DEFINITION MODULE BuildLst; (* * 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/buildlst.dev 1.4 30 Dec 1990 17:58:56 coleb $ * *) FROM GenLists IMPORT GenList; FROM NdxTypes IMPORT NdxFileType; FROM ScrnTypes IMPORT DisplayFrame; CONST ListStorageRec = 'qQqQqQqQ'; PROCEDURE AddNamedList( MainList: GenList; ListName: ARRAY OF CHAR; VAR TheList: GenList ); PROCEDURE BuildList( NdxFile: NdxFileType; TheFrame: DisplayFrame; FirstRuleField, LastRuleField: CARDINAL; LimitingListName: ARRAY OF CHAR; VAR ErrorField: CARDINAL; VAR OutList: GenList); PROCEDURE DeleteListRec( VAR TheList: GenList ); PROCEDURE DelNamedList( MainList: GenList; ListName: ARRAY OF CHAR ): BOOLEAN; PROCEDURE DelRecNameList( NdxFile: NdxFileType; ListName: ARRAY OF CHAR ): BOOLEAN; PROCEDURE GetListNames( NdxFile: NdxFileType; VAR TheList: GenList ): BOOLEAN; PROCEDURE GetNamedList( MainList: GenList; ListName: ARRAY OF CHAR; VAR TheList: GenList ): BOOLEAN; PROCEDURE GetRecNameList( NdxFile: NdxFileType; ListName: ARRAY OF CHAR; VAR TheList: GenList ): BOOLEAN; PROCEDURE StoreRecNameList( NdxFile: NdxFileType; ListName: ARRAY OF CHAR; TheList: GenList ): BOOLEAN; PROCEDURE Init(); END BuildLst.