BUILDLST.DEF 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  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. FROM GenLists IMPORT GenList;
  15. FROM NdxTypes IMPORT NdxFileType;
  16. FROM ScrnTypes IMPORT DisplayFrame;
  17. CONST
  18. ListStorageRec = 'qQqQqQqQ';
  19. PROCEDURE AddNamedList( MainList: GenList;
  20. ListName: ARRAY OF CHAR; VAR TheList:
  21. GenList );
  22. PROCEDURE BuildList( NdxFile: NdxFileType;
  23. TheFrame: DisplayFrame; FirstRuleField,
  24. LastRuleField: CARDINAL; LimitingListName:
  25. ARRAY OF CHAR; VAR ErrorField: CARDINAL; VAR
  26. OutList: GenList);
  27. PROCEDURE DeleteListRec( VAR TheList: GenList );
  28. PROCEDURE DelNamedList( MainList: GenList;
  29. ListName: ARRAY OF CHAR ): BOOLEAN;
  30. PROCEDURE DelRecNameList( NdxFile: NdxFileType;
  31. ListName: ARRAY OF CHAR ): BOOLEAN;
  32. PROCEDURE GetListNames( NdxFile: NdxFileType;
  33. VAR TheList: GenList ): BOOLEAN;
  34. PROCEDURE GetNamedList( MainList: GenList;
  35. ListName: ARRAY OF CHAR; VAR TheList:
  36. GenList ): BOOLEAN;
  37. PROCEDURE GetRecNameList( NdxFile: NdxFileType;
  38. ListName: ARRAY OF CHAR; VAR TheList:
  39. GenList ): BOOLEAN;
  40. PROCEDURE StoreRecNameList( NdxFile:
  41. NdxFileType; ListName: ARRAY OF CHAR;
  42. TheList: GenList ): BOOLEAN;
  43. PROCEDURE Init();
  44. END BuildLst.