Topspeed_JPI/TS/REP16/NDXTYPES.DEF

DEFINITION MODULE NdxTypes;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/ndxtypes.dev   1.4   30 Dec 1990 18:02:56   coleb  $
 *
 *)


FROM SYSTEM IMPORT ADDRESS;
FROM GenLists IMPORT GenList;

CONST
  RecNameLength = 20;
  NdxTypeCode = 65533;
    (*arbitrary value*)

TYPE
  RecNameStr = ARRAY [0..RecNameLength - 1] OF
      CHAR;
  NdxElement =
    RECORD
      RecName : RecNameStr;
      FilePos : LONGINT;
      UsedChars, Allocated : CARDINAL;
    END;

  NdxFileType = POINTER TO NdxRecord;
  NdxRecord =
    RECORD
      name : ARRAY [0..75] OF CHAR;
      handle: CARDINAL;
      SafetyOn: BOOLEAN;
      InitCheck: CARDINAL;
      NdxFilePtr: LONGINT;
      UpdateNeeded: BOOLEAN;
      BufRecName: ARRAY [0..RecNameLength - 1] OF
          CHAR;
      Ndx, AltKeys, ListBuf, StructLst: GenList;
      FileBufPtr : ADDRESS;
      BufSizeNow : CARDINAL;
    END;

  PROCEDURE CheckInit( NdxFile: NdxFileType );

  PROCEDURE InitNdxFile(VAR NdxFile: NdxFileType);

  PROCEDURE Init();

END NdxTypes.