| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- 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
|
