Topspeed_JPI/TS/MODBASE/NDXBONES.DEF

DEFINITION MODULE NdxBones;
(*
 *  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/ndxbones.dev   1.4   30 Dec 1990 18:02:38   coleb  $
 *
 *)


FROM SYSTEM IMPORT ADDRESS;
FROM GenLists IMPORT GenList;
FROM NdxTypes IMPORT NdxFileType;

CONST
  CodeChar = 375C;
  IsGarbageByte = 'G';
  NotGarbageByte = 'O';

TYPE
  ACompProc = PROCEDURE( ARRAY OF CHAR, ARRAY OF
      CHAR ): INTEGER;

VAR
  CompareProc: ACompProc;
  StructName : ARRAY [0..10] OF CHAR;
  EndSep, StartSep, NdxMarker, CodedStr : ARRAY
      [0..1] OF CHAR;

  RebuildProc : PROCEDURE( VAR NdxFileType );

  PROCEDURE BiggestRecord( NdxFile: NdxFileType ):
      CARDINAL;

  PROCEDURE FindRecord(NdxFile: NdxFileType; VAR
      RecordName : ARRAY OF CHAR; VAR offset :
      LONGINT; VAR UsedRecSize, AllocSize:
      CARDINAL) : BOOLEAN;

  PROCEDURE MakeEmptyBuf( VAR StruList, BufList:
      GenList);

  PROCEDURE OpenNdxFile( VAR NdxFile: NdxFileType;
      FileName: ARRAY OF CHAR): BOOLEAN;

  PROCEDURE InitBuffer( VAR NdxFile: NdxFileType;
      RecName: ARRAY OF CHAR): BOOLEAN;

  PROCEDURE Retrieve( NdxFile: NdxFileType;
      RecordName: ARRAY OF CHAR; BufAddr: ADDRESS;
      VAR RecSize: CARDINAL): BOOLEAN;

  PROCEDURE RemoveCodes( Source: ADDRESS; VAR
      TheSize: CARDINAL);

  PROCEDURE StripList( VAR TheList: GenList );

  PROCEDURE Init();

END NdxBones.