Ajout de Sys.getcwd.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@204 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

stdlib/sys.ml

@@ -22,6 +22,7 @@ external remove: string -> unit = "sys_remove"
 external getenv: string -> string = "sys_getenv"
 external command: string -> int = "sys_system_command"
 external chdir: string -> unit = "sys_chdir"
+external getcwd: unit -> string = "sys_getcwd"
 
 type signal_behavior =
     Signal_default

stdlib/sys.mli

@@ -28,6 +28,8 @@ external command: string -> int = "sys_system_command"
         (* Execute the given shell command and return its exit code. *)
 external chdir: string -> unit = "sys_chdir"
         (* Change the current working directory of the process. *)
+external getcwd: unit -> string = "sys_getcwd"
+	(* Return the current working directory of the process. *)
 
 (*** Signal handling *)