(* Release 3.00 *)

(* Copyright (C) 1989..1991 Jensen & Partners International *)
(*# call(o_a_copy => off, ds_eq_ss=>off, near_call=>off) *)
(*# data(near_ptr=>off) *)
(*# module(init_code => on) *)
(*# module(implementation=>off) *)
(*# call(seg_name => null) *)

DEFINITION MODULE WinFIO;

IMPORT CoreFile, Str;


CONST
  MaxOpenFiles = 15;

TYPE
  File = CoreFile.File;

CONST
  DiskFull       = 112 ;  (* Error if Write fails with disk full *)

VAR
  IOcheck : BOOLEAN;      (* if true errors terminate program with report *)
  EOF     : BOOLEAN;
  OK      : BOOLEAN;

PROCEDURE IOresult() : CARDINAL;

PROCEDURE Open    (Name: ARRAY OF CHAR) : File;
PROCEDURE OpenRead(Name: ARRAY OF CHAR) : File;
PROCEDURE Create  (Name: ARRAY OF CHAR) : File;
PROCEDURE Close (F: File);
PROCEDURE Exists(Name: ARRAY OF CHAR) : BOOLEAN;

VAR
  ShareMode: BITSET;      (* File sharing mode used by Open and OpenRead *)

CONST
  ShareNoInherit = {7};
  ShareCompat    = {};
  ShareDenyRW	 = {4};
  ShareDenyWR	 = {5};
  ShareDenyRD	 = {4, 5};
  ShareDenyNone	 = {6};
  ShareAll       = {4..6};

PROCEDURE WrBin    (F: File; Buf: ARRAY OF BYTE; Count: CARDINAL);

PROCEDURE RdBin    (F: File; VAR Buf: ARRAY OF BYTE; Count: CARDINAL) : CARDINAL;

END WinFIO.