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