1 /**************************************************************************/ 2 /* */ 3 /* OCaml */ 4 /* */ 5 /* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ 6 /* */ 7 /* Copyright 1996 Institut National de Recherche en Informatique et */ 8 /* en Automatique. */ 9 /* */ 10 /* All rights reserved. This file is distributed under the terms of */ 11 /* the GNU Lesser General Public License version 2.1, with the */ 12 /* special exception on linking described in the file LICENSE. */ 13 /* */ 14 /**************************************************************************/ 15 16 #ifndef CAML_SYS_H 17 #define CAML_SYS_H 18 19 #ifdef CAML_INTERNALS 20 21 #include "misc.h" 22 23 #ifdef __cplusplus 24 extern "C" { 25 #endif 26 27 #define NO_ARG Val_int(0) 28 29 CAMLextern void caml_sys_error (value); 30 CAMLextern void caml_sys_io_error (value); 31 CAMLextern double caml_sys_time_unboxed(value); 32 CAMLextern void caml_sys_init (char * exe_name, char ** argv); 33 CAMLextern value caml_sys_exit (value); 34 extern double caml_sys_time_unboxed(value); 35 CAMLextern value caml_sys_get_argv(value unit); 36 37 extern char * caml_exe_name; 38 39 #ifdef __cplusplus 40 } 41 #endif 42 43 #endif /* CAML_INTERNALS */ 44 45 #endif /* CAML_SYS_H */ 46