| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- Listing:
- 1 DEFINITION MODULE NdxTypes;
- 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/ndxtypes.dev 1.4 30 Dec 1990 18:02:56 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 FROM SYSTEM IMPORT ADDRESS;
- 17 FROM GenLists IMPORT GenList;
- 18
- 19 CONST
- 20 RecNameLength = 20;
- 21 NdxTypeCode = 65533;
- 22 (*arbitrary value*)
- 23
- 24 TYPE
- 25 RecNameStr = ARRAY [0..RecNameLength - 1] OF
- ***** ^ not supported yet
- 26 CHAR;
- ***** ^ not supported yet
- 27 NdxElement =
- 28 RECORD
- 29 RecName : RecNameStr;
- 30 FilePos : LONGINT;
- 31 UsedChars, Allocated : CARDINAL;
- 32 END;
- ***** ^ not supported yet
- 33
- 34 NdxFileType = POINTER TO NdxRecord;
- ***** ^ undeclared identifier
- 35 NdxRecord =
- 36 RECORD
- 37 name : ARRAY [0..75] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38 handle: CARDINAL;
- 39 SafetyOn: BOOLEAN;
- 40 InitCheck: CARDINAL;
- 41 NdxFilePtr: LONGINT;
- 42 UpdateNeeded: BOOLEAN;
- 43 BufRecName: ARRAY [0..RecNameLength - 1] OF
- ***** ^ not supported yet
- 44 CHAR;
- ***** ^ not supported yet
- 45 Ndx, AltKeys, ListBuf, StructLst: GenList;
- 46 FileBufPtr : ADDRESS;
- 47 BufSizeNow : CARDINAL;
- 48 END;
- ***** ^ not supported yet
- 49
- 50 PROCEDURE CheckInit( NdxFile: NdxFileType );
- 51
- 52 PROCEDURE InitNdxFile(VAR NdxFile: NdxFileType);
- 53
- 54 PROCEDURE Init();
- 55
- 56 END NdxTypes.
- ***** ^ not supported yet
- 10 errors
|
