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