Topspeed_JPI/TS/INCLUDE/SCANNER.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  SCANNER.DEF - COMMS Toolkit script file scanner                         *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE Scanner;
  IMPORT FIO;

  CONST
    MaxSymLnth          = 10;

  TYPE (* Procomm Script Language Tokens *)
    Symbols             = (Other,Ident,Comma,Colon,IntConst,StringConst,AlarmSy,
                           AssignSy,BreakSy,ChDirSy,ClearSy,CloseSy,ConnectSy,
                           CWhenSy,DialSy,DosSy,EmulateSy,ExecuteSy,ExitSy,
                           FailureSy,FindSy,FoundSy,GetSy,MGetSy,GetFileSy,GosubSy,
                           GotoSy,HangupSy,HostSy,IfSy,ElseSy,EndifSy,IsFileSy,
                           KermServSy,KFlushSy,LinkedSy,LocateSy,LogSy,MacroSy,
                           MessageSy,MLoadSy,NotSy,OpenSy,PauseSy,PrinterSy,QuitSy,
                           ResumeSy,ReturnSy,RFlushSy,RGetSy,RunSy,SendFileSy,SetSy,
                           SnapshotSy,SuccessSy,SuspendSy,SwitchSy,CaseSy,EndCaseSy,
                           DefaultSy,EndSwitchSy,TraceSy,TransmitSy,WaitForSy,
                           WhenSy,OnSy,OffSy,WaitSy,EndOfFile,FTAscii,FTKermit,
                           FTXmodem,FTWXmodem,FTYmodem,FTBYmodem);
    Alpha               = ARRAY[0..MaxSymLnth] OF CHAR;

  VAR
    Sy                  : Symbols;
    GotError            : BOOLEAN;
    Id,LastNumConst     : Alpha;
    LastStringConst     : ARRAY[0..255] OF CHAR;
    infile              : FIO.File; (* This must be opened before the first GetSym *)

  PROCEDURE Error(n:CARDINAL);
  PROCEDURE StrCompare(VAR S1,S2:ARRAY OF CHAR):INTEGER;

  PROCEDURE InitScanner;
  PROCEDURE GetSym;

END Scanner.