Topspeed_JPI/TS/REP16/NDXUTILS.DEF

DEFINITION MODULE NdxUtils;
(*
 *  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/ndxutils.dev   1.4   30 Dec 1990 18:03:00   coleb  $
 *
 *)


FROM GenLists IMPORT GenList;
FROM NdxTypes IMPORT NdxFileType;

  PROCEDURE CopyMatchingFields( NdxF1:
      NdxFileType; VAR NdxF2: NdxFileType;
      RecName: ARRAY OF CHAR; MatchingFields:
      GenList );

  PROCEDURE CopyRecord( RecName: ARRAY OF CHAR;
      SourceFile, DestFile: NdxFileType ):
      BOOLEAN;

  PROCEDURE CrunchNdxFile( VAR NdxFile:
      NdxFileType );

  PROCEDURE ExportToFile( NdxFile: NdxFileType;
      RecNameList: GenList; fhandle: CARDINAL );

  PROCEDURE GarbageSize( VAR TheNdx: GenList; VAR
      GbgSize: LONGINT; VAR NumDataRecs,
      NumGbgRecs: CARDINAL);

  PROCEDURE GetRecName( NdxFile: NdxFileType;
      Which: CARDINAL; VAR RecName: ARRAY OF CHAR
      ): BOOLEAN;

  PROCEDURE GetRecNames( NdxFile: NdxFileType; VAR
      NameList: GenList );

  PROCEDURE RebuildNdx( VAR NdxFile: NdxFileType
      );

  PROCEDURE SizeInfo( VAR NdxFile: NdxFileType;
      VAR TotlSize, GbgSize: LONGINT; VAR PctUsed,
      NumDataRecs, NumGbgRecs: CARDINAL);

  PROCEDURE TransferRecord( RecName: ARRAY OF
      CHAR; SourceFile, DestFile: NdxFileType ):
      BOOLEAN;

  PROCEDURE Init();

END NdxUtils.