Listing:

    1  DEFINITION MODULE NdxUtils;
    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/ndxutils.dev   1.4   30 Dec 1990 18:03:00   coleb  $
   12   *
   13   *)
   14  
   15  
   16  FROM GenLists IMPORT GenList;
   17  FROM NdxTypes IMPORT NdxFileType;
   18  
   19    PROCEDURE CopyMatchingFields( NdxF1:
   20        NdxFileType; VAR NdxF2: NdxFileType;
   21        RecName: ARRAY OF CHAR; MatchingFields:
*****                          ^ not supported yet
   22        GenList );
   23  
   24    PROCEDURE CopyRecord( RecName: ARRAY OF CHAR;
*****                                            ^ not supported yet
   25        SourceFile, DestFile: NdxFileType ):
   26        BOOLEAN;
   27  
   28    PROCEDURE CrunchNdxFile( VAR NdxFile:
   29        NdxFileType );
   30  
   31    PROCEDURE ExportToFile( NdxFile: NdxFileType;
   32        RecNameList: GenList; fhandle: CARDINAL );
   33  
   34    PROCEDURE GarbageSize( VAR TheNdx: GenList; VAR
   35        GbgSize: LONGINT; VAR NumDataRecs,
   36        NumGbgRecs: CARDINAL);
   37  
   38    PROCEDURE GetRecName( NdxFile: NdxFileType;
   39        Which: CARDINAL; VAR RecName: ARRAY OF CHAR
*****                                               ^ not supported yet
   40        ): BOOLEAN;
   41  
   42    PROCEDURE GetRecNames( NdxFile: NdxFileType; VAR
   43        NameList: GenList );
   44  
   45    PROCEDURE RebuildNdx( VAR NdxFile: NdxFileType
   46        );
   47  
   48    PROCEDURE SizeInfo( VAR NdxFile: NdxFileType;
   49        VAR TotlSize, GbgSize: LONGINT; VAR PctUsed,
   50        NumDataRecs, NumGbgRecs: CARDINAL);
   51  
   52    PROCEDURE TransferRecord( RecName: ARRAY OF
   53        CHAR; SourceFile, DestFile: NdxFileType ):
*****        ^ not supported yet
   54        BOOLEAN;
   55  
   56    PROCEDURE Init();
   57  
   58  END NdxUtils.
*****      ^ not supported yet

    5 errors