implementation bidon de quelques fonctions

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

1 files changed, 20 insertions, 12 deletions

diff --git a/otherlibs/macosunix/macosunix.c b/otherlibs/macosunix/macosunix.c
index f9a4568f0..a554886c9 100644
--- a/otherlibs/macosunix/macosunix.c
+++ b/otherlibs/macosunix/macosunix.c
@@ -37,14 +37,6 @@ value macosunix_startup (value unit)  /* ML */
   return Val_unit;
 }
 
-#if 0
-void _exit (int status);
-value unix_exit (value n)             /* ML */
-{
-  ui_exit (Int_val (n));
-}
-#endif
-
 value unix_getlogin (void)            /* ML */
 {
   char **hs = (char **) GetString (-16096);
@@ -54,6 +46,26 @@ value unix_getlogin (void)            /* ML */
   return copy_string (*hs);
 }
 
+value unix_getegid (void) /* ML */
+{
+  return Val_int (1);
+}
+
+value unix_geteuid (void) /* ML */
+{
+  return Val_int (1);
+}
+
+value unix_getgid (void) /* ML */
+{
+  return Val_int (1);
+}
+
+value unix_getuid (void) /* ML */
+{
+  return Val_int (1);
+}
+
 value unix_getpid (void)              /* ML */
 {
   ProcessSerialNumber psn;
@@ -90,15 +102,11 @@ Unimplemented (execve, (value path, value args, value env))
 Unimplemented (execvp, (value path, value args))
 Unimplemented (execvpe, (value path, value args, value env))
 Unimplemented (fork, (value unit))
-Unimplemented (getegid, (void))
-Unimplemented (geteuid, (void))
-Unimplemented (getgid, (void))
 Unimplemented (getgrnam, (value name))
 Unimplemented (getgrgid, (value gid))
 Unimplemented (getppid, (void))
 Unimplemented (getpwnam, (value name))
 Unimplemented (getpwuid, (value uid))
-Unimplemented (getuid, (void))
 Unimplemented (kill, (value pid, value signal))
 Unimplemented (link, (value path1, value path2))
 Unimplemented (mkfifo, (value path, value mode))