Listing: 1 IMPLEMENTATION 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/mods/ndxtypes.mov 1.5 10 Mar 1991 15:30:48 coleb $ 12 * 13 *) 14 15 16 IMPORT ErrorNames; 17 IMPORT GenLists; 18 IMPORT VStorage; 19 IMPORT Numbers; 20 21 FROM SYSTEM IMPORT TSIZE; 22 23 24 VAR 25 Initialized : BOOLEAN; 26 27 PROCEDURE Init(); 28 BEGIN 29 IF Initialized THEN 30 RETURN; 31 ELSE 32 Initialized := TRUE; 33 END; 34 ErrorNames.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 GenLists.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 Numbers.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 VStorage.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 END Init; ***** ^ not supported yet 39 40 CONST 41 InitKey = 46102; 42 (*Arbitrary value.*) 43 44 PROCEDURE CheckInit( NdxFile: NdxFileType ); ***** ^ undeclared identifier 45 BEGIN 46 IF (NdxFile = NIL) OR ***** ^ not supported yet 47 (NdxFile^.InitCheck # InitKey) THEN ***** ^ not supported yet ***** ^ not supported yet 48 ErrorNames.WarningName('BadNdx'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 END; 50 END CheckInit; ***** ^ not supported yet 51 52 PROCEDURE InitNdxFile( VAR NdxFile: NdxFileType ); ***** ^ undeclared identifier 53 BEGIN 54 VStorage.DosAlloc( NdxFile, TSIZE(NdxRecord) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 55 NdxFile^.name := ''; ***** ^ not supported yet ***** ^ not supported yet 56 NdxFile^.handle := 0; ***** ^ not supported yet ***** ^ not supported yet 57 NdxFile^.SafetyOn := FALSE; ***** ^ not supported yet ***** ^ not supported yet 58 NdxFile^.InitCheck := InitKey; ***** ^ not supported yet ***** ^ not supported yet 59 NdxFile^.NdxFilePtr := Numbers.Lc( 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 60 NdxFile^.UpdateNeeded := FALSE; ***** ^ not supported yet ***** ^ not supported yet 61 NdxFile^.BufRecName := ''; ***** ^ not supported yet ***** ^ not supported yet 62 GenLists.NilList( NdxFile^.Ndx ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 63 GenLists.NilList( NdxFile^.AltKeys ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 GenLists.NilList( NdxFile^.ListBuf ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 GenLists.NilList( NdxFile^.StructLst ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 66 NdxFile^.FileBufPtr := NIL; ***** ^ not supported yet ***** ^ not supported yet 67 NdxFile^.BufSizeNow := 0; ***** ^ not supported yet ***** ^ not supported yet 68 END InitNdxFile; ***** ^ not supported yet 69 70 BEGIN 71 Initialized := FALSE; 72 Init(); ***** ^ not supported yet ***** ^ not supported yet 73 END NdxTypes. ***** ^ not supported yet 68 errors