From 4258042c058762f21fe504032adbe782adfc1c23 Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Mon, 17 Apr 2000 16:10:37 +0000 Subject: implementation bidon de quelques fonctions git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3101 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/macosunix/macosunix.c | 32 ++++++++++++++++++++------------ 1 file changed, 20 insertions(+), 12 deletions(-) (limited to 'otherlibs/macosunix/macosunix.c') 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)) -- cgit v1.2.3-70-g09d2