| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
- Listing:
- 1 DEFINITION MODULE BuildLst;
- 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/buildlst.dev 1.4 30 Dec 1990 17:58:56 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 FROM GenLists IMPORT GenList;
- 17 FROM NdxTypes IMPORT NdxFileType;
- 18 FROM ScrnTypes IMPORT DisplayFrame;
- 19
- 20 CONST
- 21 ListStorageRec = 'qQqQqQqQ';
- ***** ^ not supported yet
- 22
- 23 PROCEDURE AddNamedList( MainList: GenList;
- 24 ListName: ARRAY OF CHAR; VAR TheList:
- ***** ^ not supported yet
- 25 GenList );
- 26
- 27 PROCEDURE BuildList( NdxFile: NdxFileType;
- 28 TheFrame: DisplayFrame; FirstRuleField,
- 29 LastRuleField: CARDINAL; LimitingListName:
- 30 ARRAY OF CHAR; VAR ErrorField: CARDINAL; VAR
- ***** ^ not supported yet
- 31 OutList: GenList);
- 32
- 33 PROCEDURE DeleteListRec( VAR TheList: GenList );
- 34
- 35 PROCEDURE DelNamedList( MainList: GenList;
- 36 ListName: ARRAY OF CHAR ): BOOLEAN;
- ***** ^ not supported yet
- 37
- 38 PROCEDURE DelRecNameList( NdxFile: NdxFileType;
- 39 ListName: ARRAY OF CHAR ): BOOLEAN;
- ***** ^ not supported yet
- 40
- 41 PROCEDURE GetListNames( NdxFile: NdxFileType;
- 42 VAR TheList: GenList ): BOOLEAN;
- 43
- 44 PROCEDURE GetNamedList( MainList: GenList;
- 45 ListName: ARRAY OF CHAR; VAR TheList:
- ***** ^ not supported yet
- 46 GenList ): BOOLEAN;
- 47
- 48 PROCEDURE GetRecNameList( NdxFile: NdxFileType;
- 49 ListName: ARRAY OF CHAR; VAR TheList:
- ***** ^ not supported yet
- 50 GenList ): BOOLEAN;
- 51
- 52 PROCEDURE StoreRecNameList( NdxFile:
- 53 NdxFileType; ListName: ARRAY OF CHAR;
- ***** ^ not supported yet
- 54 TheList: GenList ): BOOLEAN;
- 55
- 56 PROCEDURE Init();
- 57
- 58 END BuildLst.
- ***** ^ not supported yet
- 9 errors
|
