(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Sat Aug  3 00:44:08 1991 by kalsow         *)
(*      modified on Tue Jun 25 22:08:44 1991 by muller         *)

MODULE UFileRdWr;

IMPORT Rd, Wr, UFileRd, UFileWr;

PROCEDURE CreateFileWriter (fd: INTEGER; buffered := FALSE): Wr.T
          RAISES {Wr.Failure} =
  BEGIN
    RETURN UFileWr.New (fd, buffered);
  END CreateFileWriter;

PROCEDURE CreateFileReader (fd: INTEGER): Rd.T RAISES {Rd.Failure} =
  BEGIN
    RETURN UFileRd.New (fd);
  END CreateFileReader;

BEGIN
END UFileRdWr.