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

(* Last modified on Wed Oct 28 16:19:03 MET 1992 by preschern  *)
(*      modified on Thu Jul 30 13:24:24 PDT 1992 by muller     *)
(*      modified on Sun Jul  2 08:48:11 1989 by kalsow         *)

MODULE Unix;

FROM Ctypes IMPORT int;
FROM Utime  IMPORT struct_timeval;

PROCEDURE fcntl (fd, request, arg: int) : int =
  BEGIN
    (* should be <* ASSERT FALSE *> but is called in UFileRd.TerminalSeek 
     * therefore we simply give it what it wants 
     *)
    RETURN 0;
  END fcntl;

PROCEDURE pipe (VAR filedes: ARRAY [0..1] OF int) : int =
  BEGIN
    <* ASSERT FALSE *>
  END pipe;

PROCEDURE select (nfds: int;
                  readfds, writefds, exceptfds: UNTRACED REF FDSet;
                  timeout: UNTRACED REF struct_timeval): int =
  BEGIN
    <* ASSERT FALSE *>
  END select;


BEGIN
END Unix.