(******************************************************************************)
(* Copyright (c) 1988 by GMD Karlruhe, Germany				      *)
(* Gesellschaft fuer Mathematik und Datenverarbeitung			      *)
(* (German National Research Center for Computer Science)		      *)
(* Forschungsstelle fuer Programmstrukturen an Universitaet Karlsruhe	      *)
(* All rights reserved.							      *)
(* Don't modify this file under any circumstances			      *)
(******************************************************************************)

DEFINITION MODULE Unix;

PROCEDURE GetCwd (VAR s: ARRAY OF CHAR);
(* Gets the Name of the working directory. 
   If the result is 0C, then the length of s was too small or there was
   an Error in the UNIX-Subroutine.                                      *)

END Unix.
