home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / Analysator / ana.h < prev    next >
Encoding:
Text File  |  1994-07-24  |  1.5 KB  |  49 lines
  1.  
  2. { Header-File für Analysator II: globale Definitionen }
  3.  
  4. CONST
  5.     e            = 2.718281828;
  6.  
  7.     InputLen    = 80;                { max. Länge einer Eingabezeile }
  8.     HistLen    = 1000;            { Größe des History-Buffers }
  9.  
  10.     LF            = chr($0a);
  11.     BackSpace= chr(8);
  12.  
  13. TYPE
  14.     typ = (variable,operator,literal,funktion);
  15.     atyp = Double;
  16.  
  17.     p = ^node;
  18.     node = RECORD
  19.                 t:typ;
  20.                 name:char;
  21.                 op1,op2:p;
  22.                 value:atyp
  23.              END;
  24.  
  25.     MyStr = String[inputlen];
  26.     Buffer = Record s:MyStr; p:integer END;
  27.  
  28. PROCEDURE InitAnalysis;                         IMPORT;
  29. PROCEDURE GetC;                                 IMPORT;
  30. FUNCTION  GetNum(Var tx: Buffer; Var z:Char):integer;    IMPORT;
  31. PROCEDURE Inp(Var tx:Buffer; Var i:p);                IMPORT;
  32. FUNCTION  konstant(b:p):boolean;                        IMPORT;
  33. FUNCTION  eval(b:p; x:atyp):atyp;               IMPORT;
  34. PROCEDURE Forget(Var z:p);                      IMPORT;
  35. PROCEDURE InFix(b:p; pr:integer);                    IMPORT;
  36. PROCEDURE ReadKonst(Var r:atyp; Var err:Boolean);        IMPORT;
  37. FUNCTION  sgn(x:atyp):integer;                  IMPORT;
  38.  
  39. PROCEDURE WriteC(s:Str);                        IMPORT;
  40. PROCEDURE WriteP(s:Str);                        IMPORT;
  41. PROCEDURE WriteR(r:atyp; f:integer);            IMPORT;
  42. PROCEDURE WritePR(r:atyp; f:integer); IMPORT;
  43. PROCEDURE WriteRF(r:atyp; l,f:integer);         IMPORT;
  44. FUNCTION GetKey: char;                          IMPORT;
  45. PROCEDURE ToHistory(s: MyStr);                  IMPORT;
  46. PROCEDURE FromHistory(VAR s:MyStr; i: integer); IMPORT;
  47. PROCEDURE ReadEin(Var b:Buffer);                IMPORT;
  48.  
  49.