home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / SCRIPTOP.GLO < prev    next >
Encoding:
Text File  |  1988-02-23  |  2.5 KB  |  52 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*                     Script operator definitions                          *)
  3. (*--------------------------------------------------------------------------*)
  4.  
  5. CONST
  6.    MaxOperType              = 49;
  7.    MaxOperNames             = 44;
  8.    MaxOperNames1            = 43;
  9.    MaxPrec                  = 12;
  10.    MaxExecStack             = 32;
  11.  
  12. TYPE
  13.  
  14.    OperType     = ( NoOpSy, AddSy, SubtractSy, MultSy, DivideSy,
  15.                     EqualISy, LessISy, LessEqualISy, GreaterISy, GreaterEqualISy,
  16.                     NotEqualISy,
  17.                     EqualSSy, LessSSy, LessEqualSSy, GreaterSSy, GreaterEqualSSy,
  18.                     NotEqualSSy,
  19.                     AndSy, NotSy, OrSy, XorSy,
  20.                     SubStrSy, IndexSy, LengthSy, ConcatSy, ConnectedSy,
  21.                     WaitFoundSy, StringSy, NumberSy, AttendedSy,
  22.                     FileExistsSy, EofSy, IOResultSy, DuplSy, UpperCaseSy,
  23.                     TrimSy, ParamCountSy, ParamStrSy, ParamLineSy, DialedSy,
  24.                     LTrimSy, DateSy, TimeSy, DialEntrySy, OrdSy, ChrSy,
  25.                     ReadCtrlSy, WriteCtrlSy, EnhKeybdSy, KeyStringSy );
  26.  
  27. (* STRUCTURED *) CONST
  28.    OperSyms2    : ARRAY[0..MaxOperType] OF OperType
  29.                 = ( NoOpSy, AddSy, SubtractSy, MultSy, DivideSy,
  30.                     EqualISy, LessISy, LessEqualISy, GreaterISy, GreaterEqualISy,
  31.                     NotEqualISy,
  32.                     EqualSSy, LessSSy, LessEqualSSy, GreaterSSy, GreaterEqualSSy,
  33.                     NotEqualSSy,
  34.                     AndSy, NotSy, OrSy, XorSy,
  35.                     SubStrSy, IndexSy, LengthSy, ConcatSy, ConnectedSy,
  36.                     WaitFoundSy, StringSy, NumberSy, AttendedSy,
  37.                     FileExistsSy, EofSy, IOResultSy, DuplSy, UpperCaseSy,
  38.                     TrimSy, ParamCountSy, ParamStrSy, ParamLineSy, DialedSy,
  39.                     LTrimSy, DateSy, TimeSy, DialEntrySy,
  40.                     OrdSy, ChrSy,
  41.                     ReadCtrlSy, WriteCtrlSy, EnhKeybdSy, KeyStringSy );
  42.  
  43.    Operands     : ARRAY[0..MaxOperandTypes] OF OperandType =
  44.                   ( Bad_Operand_Type, Operator_Type, Integer_Variable_Type,
  45.                     Real_Variable_Type, String_Variable_Type,
  46.                     Char_Variable_Type,
  47.                     Integer_Constant_Type, Real_Constant_Type,
  48.                     String_Constant_Type,
  49.                     Char_Constant_Type,
  50.                     StackEnd_Type, Left_Paren_Type, Right_Paren_Type,
  51.                     Comma_Type );
  52.