home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / pretty / prscan.def < prev    next >
Encoding:
Modula Definition  |  1991-02-18  |  1.7 KB  |  41 lines
  1.  
  2. DEFINITION MODULE PRSCAN;
  3.  
  4. FROM FIO IMPORT File;
  5.  
  6. CONST MaxLen = 128;
  7.  
  8. TYPE SymbolTyp = (abssy,andsy,arraysy,beginsy,bitsetsy,booleansy,bysy,bytesy,
  9.                   capsy,cardinalsy,cardsy,casesy,charsy,chrsy,classsy,
  10.                   closecom,constsy,decsy,defsy,disposesy,divsy,dosy,elsesy,
  11.                   elsifsy,endsy,exclsy,exitsy,exportsy,falsesy,fieldofssy,
  12.                   floatsy,forsy,forwardsy,fromsy,gotosy,haltsy,highsy,
  13.                   identifier,ifsy,implsy,importsy,inclsy,incsy,inlinesy,insy,
  14.                   integersy,intsy,labelsy,longcardsy,longintsy,longrealsy,
  15.                   loopsy,maxsy,minsy,modsy,modulesy,mtasy,newsy,nilsy,notsy,
  16.                   nullprocsy,number,oddsy,ofsy,ordsy,orsy,pointersy,procsy,
  17.                   proctypsy,qualifiedsy,realsy,recordsy,repeatsy,returnsy,
  18.                   setsy,shortaddrsy,shortcardsy,shortintsy,sizesy,stringsy,
  19.                   thensy,tosy,truesy,truncsy,typesy,untilsy,valsy,varsy,
  20.                   virtualsy,vsizesy,whilesy,withsy,alias,bar,colon,comma,
  21.                   dblperiod,define,drefsy,equal,gr,greq,lbk,lbr,less,lesseq,
  22.                   lpar,notallowed,notequal,opencom,operationsy,period,rbk,rbr,
  23.                   rpar,semicolon,shiftl,shiftr);
  24.      str = ARRAY [0..MaxLen - 1] OF CHAR;
  25.      TokenTyp = RECORD
  26.                   symbol : SymbolTyp;
  27.                   value : str;
  28.                   length : CARDINAL
  29.                 END;
  30.  
  31.   PROCEDURE InitScanner;
  32.  
  33.   PROCEDURE ReadAgain;
  34.  
  35.   PROCEDURE ReadChar (tin : File;
  36.                       VAR ch : CHAR);
  37.  
  38.   PROCEDURE GetToken (tin : File;
  39.                       VAR token : TokenTyp);
  40.  
  41. END PRSCAN.