PR#1914,PR#1956, suppression du portage Mac OS 9

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

1 files changed, 0 insertions, 119 deletions

diff --git a/otherlibs/macosunix/macosunix.c b/otherlibs/macosunix/macosunix.c
deleted file mode 100644
index 403aaf704..000000000
--- a/otherlibs/macosunix/macosunix.c
+++ /dev/null
@@ -1,119 +0,0 @@
-/***********************************************************************/
-/*                                                                     */
-/*                           Objective Caml                            */
-/*                                                                     */
-/*          Damien Doligez, projet Moscova, INRIA Rocquencourt         */
-/*                                                                     */
-/*  Copyright 1999 Institut National de Recherche en Informatique et   */
-/*  en Automatique.  All rights reserved.  This file is distributed    */
-/*  under the terms of the GNU Library General Public License, with    */
-/*  the special exception on linking described in file ../../LICENSE.  */
-/*                                                                     */
-/***********************************************************************/
-
-/* $Id$ */
-
-#include <Events.h>
-#include <Processes.h>
-#include <Resources.h>
-#include <TextUtils.h>
-
-#include <errno.h>
-#include <string.h>
-#include <time.h>
-
-#include <alloc.h>
-#include <mlvalues.h>
-#include <ui.h>
-
-#include "unixsupport.h"
-
-
-static unsigned long start_ticks;
-
-value macosunix_startup (value unit)  /* ML */
-{
-  start_ticks = TickCount ();
-
-  return Val_unit;
-}
-
-value unix_getlogin (void)            /* ML */
-{
-  char **hs = (char **) GetString (-16096);
-  if (hs == NULL || *hs == NULL || strlen (*hs) == 0){
-    unix_error (ENOENT, "getlogin", Nothing);
-  }
-  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;
-  
-  GetCurrentProcess (&psn);
-  return Val_long (psn.lowLongOfPSN);
-}
-
-value unix_time (void)                /* ML */
-{
-  return copy_double (time (NULL) /* - 2082844800. */);
-}
-
-value unix_times (void)               /* ML */
-{
-  value res;
-
-  res = alloc_small(4 * Double_wosize, Double_array_tag);
-  Store_double_field(res, 0, (double) (TickCount () - start_ticks) / 60);
-  Store_double_field(res, 1, (double) 0.0);
-  Store_double_field(res, 2, (double) 0.0);
-  Store_double_field(res, 3, (double) 0.0);
-  return res;
-}
-
-#define Unimplemented(f, args) \
-  value unix_##f args { invalid_argument (#f " not implemented"); }
-
-Unimplemented (chown, (value path, value uid, value gid))
-Unimplemented (chroot, (value path))
-Unimplemented (environment, (void))
-Unimplemented (execv, (value path, value args))
-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 (getgrnam, (value name))
-Unimplemented (getgrgid, (value gid))
-Unimplemented (getppid, (void))
-Unimplemented (getpwnam, (value name))
-Unimplemented (getpwuid, (value uid))
-Unimplemented (kill, (value pid, value signal))
-Unimplemented (link, (value path1, value path2))
-Unimplemented (mkfifo, (value path, value mode))
-Unimplemented (nice, (value incr))
-Unimplemented (setgid, (value gid))
-Unimplemented (setuid, (value uid))
-Unimplemented (umask, (value perm))
-Unimplemented (wait, (void))
-Unimplemented (waitpid, (value flags, value pid_req))