-- File: DictSortKeysDefs.Mesa
-- Last edited by: S.Umehara for OIS to CES conversion, 11-Jun-84  4:10:58 PDT

DIRECTORY
  CESDictDataDefs USING [Entry];

DictSortKeysDefs: DEFINITIONS =
  BEGIN  OPEN CESDictDataDefs;


  binNum: TYPE = [0..numAlphaBins);
  numPhonicBins: CARDINAL = 14;
  numSmallBins: CARDINAL = 49;
  numAlphaBins: CARDINAL = 256;
  lessPos: PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  lessAscAlpha: PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  lessNumeric: PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  lessKNumeric:PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  lessDscAlpha: PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  lessDict: PROC[ a,b: LONG POINTER TO Entry] RETURNS[BOOLEAN];
  getPhonicBin: PROC[ a: LONG POINTER TO Entry] RETURNS[bin: binNum];
  getPosBins: PROC[ a: LONG POINTER TO Entry] RETURNS[bin: binNum];
  getAlphaBins: PROC[ a: LONG POINTER TO Entry] RETURNS[bin: binNum];
  getSmallBins: PROC[ a: LONG POINTER TO Entry] RETURNS[bin: binNum];
  getKanjiBins: PROC[ a: LONG POINTER TO Entry] RETURNS[bin: binNum];

  END.

LOG
  Maynard  11-Feb-82 14:17:01
  S.Umehara for pos sort enhancement, 23-May-84  2:38:28 PDT