Listing:

    1  DEFINITION MODULE Parser;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/defs/parser.dev   1.6   17 Mar 1991 18:05:18   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  
   18  CONST
   19    TAB = 11C;
   20    EOF = 32C;
   21    EOL = 15C;
   22  
   23  VAR
   24    TheLine: ARRAY [0..191] OF CHAR;
*****                       ^ not supported yet
*****                               ^ not supported yet
   25    LastIndex: CARDINAL;
   26    delimiters: ARRAY [0..79] OF CHAR;
*****                          ^ not supported yet
*****                                 ^ not supported yet
   27    whitespace: ARRAY [0..15] OF CHAR;
*****                          ^ not supported yet
*****                                 ^ not supported yet
   28    StartComment, EndComment: ARRAY [0..1] OF CHAR;
*****                                        ^ not supported yet
*****                                              ^ not supported yet
   29  
   30    PROCEDURE GetNextWord( InList: GenLists.GenList; VAR
*****                                            ^ not supported yet
   31        CurrentLine, CurrentIndex: CARDINAL; VAR
   32        NextWord: ARRAY OF CHAR; VAR Terminator:
*****                           ^ not supported yet
   33        CHAR);
   34  
   35    PROCEDURE SkipComments(VAR InList: GenLists.GenList; VAR
*****                                                ^ not supported yet
   36        index, line: CARDINAL);
   37  
   38    PROCEDURE ReadComments(VAR InList, OutList: GenLists.GenList;
*****                                                         ^ not supported yet
   39        NewStartComment, NewEndComment: ARRAY OF CHAR;
*****                                                 ^ not supported yet
   40        VAR currentIndex, currentLine: CARDINAL);
   41  
   42    PROCEDURE GetLogicalStr(
   43            inList: GenLists.GenList;
*****                             ^ not supported yet
   44            opener, closer: ARRAY OF CHAR;
*****                                     ^ not supported yet
   45        VAR currentLine, currentIndex: CARDINAL;
   46        VAR outStr: ARRAY OF CHAR;
*****                             ^ not supported yet
   47        VAR terminator: CHAR);
   48  
   49    PROCEDURE GetLogicalLst(
   50            inList: GenLists.GenList;
*****                             ^ not supported yet
   51            opener, closer: ARRAY OF CHAR;
*****                                     ^ not supported yet
   52        VAR currentLine, currentIndex: CARDINAL;
   53        VAR outList: GenLists.GenList;
*****                              ^ not supported yet
   54        VAR terminator: CHAR);
   55  
   56     PROCEDURE Init();
   57  
   58  END Parser.
*****      ^ not supported yet

   20 errors