libmojave/stdlib/lm_sys.mli

   1 (*
   2  * System interface.
   3  *
   4  * ----------------------------------------------------------------
   5  *
   6  * Copyright (C) 2000-2005 Mojave Group, Caltech
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation,
  11  * version 2.1 of the License.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  21  *
  22  * Additional permission is given to link this library with the
  23  * OpenSSL project's "OpenSSL" library, and with the OCaml runtime,
  24  * and you may distribute the linked executables.  See the file
  25  * LICENSE.libmojave for more details.
  26  *
  27  * Author: Jason Hickey
  28  * jyh@cs.caltech.edu
  29  *)
  30
  31 external argv              : string array = "%argv"
  32 external file_exists       : string -> bool = "%file_exists"
  33 external remove            : string -> unit = "%file_remove"
  34 external rename            : string -> string -> unit = "%file_rename"
  35 external getenv            : string -> string = "%getenv"
  36 external time              : unit -> float = "%time"
  37 external chdir             : string -> unit = "%chdir"
  38 external getcwd            : unit -> string = "%getcwd"
  39 external interactive       : bool ref = "%interactive"
  40 external os_type           : string = "%os_type"
  41 external word_size         : int = "%word_size"
  42 external max_string_length : int = "%max_string_length"
  43 external max_array_length  :  int = "%max_array_length"
  44
  45 external sigabrt   : int = "%sigabrt"
  46 external sigalrm   : int = "%sigalrm"
  47 external sigfpe    : int = "%sigfpe"
  48 external sighup    : int = "%sighup"
  49 external sigill    : int = "%sigill"
  50 external sigint    : int = "%sigint"
  51 external sigkill   : int = "%sigkill"
  52 external sigpipe   : int = "%sigpipe"
  53 external sigquit   : int = "%sigquit"
  54 external sigsegv   : int = "%sigsegv"
  55 external sigterm   : int = "%sigterm"
  56 external sigusr1   : int = "%sigusr1"
  57 external sigusr2   : int = "%sigusr2"
  58 external sigchld   : int = "%sigchld"
  59 external sigcont   : int = "%sigcont"
  60 external sigstop   : int = "%sigstop"
  61 external sigtstp   : int = "%sigtstp"
  62 external sigttin   : int = "%sigttin"
  63 external sigttou   : int = "%sigttou"
  64 external sigvtalrm : int = "%sigvtalrm"
  65 external sigprof   : int = "%sigprof"
  66
  67 type signal_behavior =
  68    Signal_default
  69  | Signal_ignore
  70  | Signal_handle of (int -> unit)
  71
  72 val signal : int -> signal_behavior -> signal_behavior
  73 val set_signal : int -> signal_behavior -> unit
  74
  75 exception Break
  76
  77 val catch_break : bool -> unit
  78
  79 (*
  80  * -*-
  81  * Local Variables:
  82  * Caml-master: "compile"
  83  * End:
  84  * -*-
  85  *)