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