Topspeed_JPI/TS/MODBASE/PARSER.DEF

DEFINITION MODULE Parser;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/parser.dev   1.6   17 Mar 1991 18:05:18   coleb  $
 *
 *)


IMPORT GenLists;

CONST
  TAB = 11C;
  EOF = 32C;
  EOL = 15C;

VAR
  TheLine: ARRAY [0..191] OF CHAR;
  LastIndex: CARDINAL;
  delimiters: ARRAY [0..79] OF CHAR;
  whitespace: ARRAY [0..15] OF CHAR;
  StartComment, EndComment: ARRAY [0..1] OF CHAR;

  PROCEDURE GetNextWord( InList: GenLists.GenList; VAR
      CurrentLine, CurrentIndex: CARDINAL; VAR
      NextWord: ARRAY OF CHAR; VAR Terminator:
      CHAR);

  PROCEDURE SkipComments(VAR InList: GenLists.GenList; VAR
      index, line: CARDINAL);

  PROCEDURE ReadComments(VAR InList, OutList: GenLists.GenList;
      NewStartComment, NewEndComment: ARRAY OF CHAR;
      VAR currentIndex, currentLine: CARDINAL);

  PROCEDURE GetLogicalStr(
          inList: GenLists.GenList;
          opener, closer: ARRAY OF CHAR;
      VAR currentLine, currentIndex: CARDINAL;
      VAR outStr: ARRAY OF CHAR;
      VAR terminator: CHAR);

  PROCEDURE GetLogicalLst(
          inList: GenLists.GenList;
          opener, closer: ARRAY OF CHAR;
      VAR currentLine, currentIndex: CARDINAL;
      VAR outList: GenLists.GenList;
      VAR terminator: CHAR);

   PROCEDURE Init();

END Parser.