Listing:

    1  DEFINITION MODULE NdxFiles;
    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/ndxfiles.dev   1.4   30 Dec 1990 18:02:44   coleb  $
   12   *
   13   *)
   14  
   15  
   16  FROM SYSTEM IMPORT BYTE, ADDRESS;
   17  FROM GenLists IMPORT GenList;
   18  FROM NdxTypes IMPORT NdxFileType;
   19  
   20  
   21    PROCEDURE CreateNdxFile( VAR NdxFile:
   22        NdxFileType; fname, Structure: ARRAY OF CHAR
*****                                                ^ not supported yet
   23        );
   24  
   25    PROCEDURE CloseNdxFile( VAR NdxFile: NdxFileType
   26        );
   27  
   28    PROCEDURE DeleteRecord( VAR NdxFile:
   29        NdxFileType; RecName: ARRAY OF CHAR ):
*****                                       ^ not supported yet
   30        BOOLEAN;
   31  
   32    PROCEDURE WriteRecord( VAR NdxFile: NdxFileType;
   33        RecName: ARRAY OF CHAR ): BOOLEAN;
*****                          ^ not supported yet
   34  
   35    PROCEDURE GetField( VAR NdxFile: NdxFileType;
   36        RecName, FieldName: ARRAY OF CHAR; VAR
*****                                     ^ not supported yet
   37        TheType: CARDINAL; VAR TheField: ARRAY OF
   38        BYTE ): BOOLEAN;
*****        ^ not supported yet
   39  
   40    PROCEDURE PutField( VAR NdxFile: NdxFileType;
   41        RecName, FieldName: ARRAY OF CHAR; TheType:
*****                                     ^ not supported yet
   42        CARDINAL; TheField: ARRAY OF BYTE ):
*****                                     ^ not supported yet
   43        BOOLEAN;
   44  
   45    PROCEDURE GetFieldAdr( VAR NdxFile: NdxFileType;
   46        RecName, FieldName: ARRAY OF CHAR; VAR
*****                                     ^ not supported yet
   47        TheType: CARDINAL; VAR TheFieldAdr: ADDRESS;
   48        VAR TheFieldSize: CARDINAL ): BOOLEAN;
   49  
   50    PROCEDURE PutFieldAdr( VAR NdxFile: NdxFileType;
   51        RecName, FieldName: ARRAY OF CHAR; TheType:
*****                                     ^ not supported yet
   52        CARDINAL; TheFieldAdr: ADDRESS;
   53        TheFieldSize: CARDINAL ): BOOLEAN;
   54  
   55    PROCEDURE FileStructure( NdxFile: NdxFileType;
   56        VAR Structure: ARRAY OF CHAR );
*****                                ^ not supported yet
   57  
   58    PROCEDURE RecordExists( NdxFile: NdxFileType;
   59        VAR RecName: ARRAY OF CHAR ): BOOLEAN;
*****                              ^ not supported yet
   60  
   61    PROCEDURE SafetyOn( VAR NdxFile: NdxFileType );
   62  
   63    PROCEDURE SafetyOff( VAR NdxFile: NdxFileType );
   64  
   65    PROCEDURE InsertNdxEntry( RecName: ARRAY OF
   66        CHAR; VAR FilePos: LONGINT; UsedChars:
*****        ^ not supported yet
   67        CARDINAL; VAR AllocatedChars: CARDINAL; VAR
   68        NdxFile: NdxFileType ): BOOLEAN;
   69  
   70    PROCEDURE ChangeNdxEntry( OldRecName,
   71        NewRecName: ARRAY OF CHAR; FilePos: LONGINT;
*****                             ^ not supported yet
   72        NumUsed: CARDINAL; VAR NdxFile: NdxFileType
   73        ): BOOLEAN;
   74  
   75  (*=====================================================
   76  Following routines exported only for Repertoire's
   77  own use.
   78  =====================================================*)
   79  
   80    PROCEDURE FindField( StruList: GenList;
   81        FieldName: ARRAY OF CHAR; VAR DataList:
*****                            ^ not supported yet
   82        GenList; VAR spot: CARDINAL): BOOLEAN;
   83  
   84    PROCEDURE WriteNdx( NdxFile: NdxFileType );
   85  
   86    PROCEDURE SetFileUpdate( handle: CARDINAL;
   87        GbgByte: CHAR);
   88  
   89    PROCEDURE Init();
   90  
   91  END NdxFiles.
*****      ^ not supported yet

   15 errors