| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384 |
- 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
|
