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