Topspeed_JPI/TS/MODBASE/HANDLEIO.DEF

DEFINITION MODULE HandleIO;
(*
 *  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/handleio.dev   1.2   30 Dec 1990 18:00:48   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS;

  TYPE
    FileOffSet = (FromStart, FromCurrent,
      FromEnd);

  VAR
    DefaultFileAttribute, DefaultFileMode: BITSET;

  PROCEDURE BlockRead(FileHandle : CARDINAL; ptr :
      ADDRESS; size : CARDINAL) : CARDINAL;

  PROCEDURE BlockWrite(FileHandle : CARDINAL; ptr
      : ADDRESS; size : CARDINAL) : CARDINAL;

  PROCEDURE CloseHandle(FileHandle : CARDINAL) :
      CARDINAL;

  PROCEDURE CreateFile(VAR FileHandle : CARDINAL;
      fname : ARRAY OF CHAR): CARDINAL;

  PROCEDURE CreateUniqueFile(VAR FileHandle :
      CARDINAL; VAR fname : ARRAY OF CHAR) :
      CARDINAL;

  PROCEDURE EndReached(FileHandle : CARDINAL) :
      BOOLEAN;

  PROCEDURE FileExists(fname : ARRAY OF CHAR) :
      BOOLEAN;

  PROCEDURE FileLength(FileHandle : CARDINAL) :
      LONGINT;

  PROCEDURE FillFile( FileHandle: CARDINAL;
      NumberOfBytes: CARDINAL; TheByte: CHAR ):
      CARDINAL;

  PROCEDURE FindFile(VAR FileHandle : CARDINAL;
      VAR fname: ARRAY OF CHAR; EnvironVariable :
      ARRAY OF CHAR) : CARDINAL;

  PROCEDURE ForceHandleCopy( OldHandle, NewHandle:
      CARDINAL): CARDINAL;

  PROCEDURE GetFilePtr(FileHandle : CARDINAL) :
      LONGINT;

  PROCEDURE NewHandleCopy( OldHandle: CARDINAL;
      VAR NewHandle: CARDINAL ): CARDINAL;

  PROCEDURE OpenFile(VAR FileHandle : CARDINAL;
      fname : ARRAY OF CHAR) : CARDINAL;

  PROCEDURE SetFilePtr(FileHandle : CARDINAL;
      Origin : FileOffSet; OffSet : LONGINT);

  PROCEDURE OpenForAppending( name : ARRAY OF CHAR;
      VAR handl : CARDINAL);

  PROCEDURE UpdateDisk( FileHandle: CARDINAL );

  PROCEDURE Init();

END HandleIO.