1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/***********************************************************************/
/* O'Browser */
/* */
/* Copyright 2008 Benjamin Canou. This file is distributed under the */
/* terms of the GNU Library General Public License described in file */
/* ../LICENSE. */
/* */
/***********************************************************************/
// Caml name: get_argv
// Type: unit -> string * string array
RT.caml_sys_get_argv = function (unit) {
return pair (this.program_name, this.argv);
}
var init_time = (new Date ()).getTime () * 0.001;
// Caml name: time
// Type: unit -> float
RT.caml_sys_time = function (unit) {
return box_float ((new Date ()).getTime () * 0.001 - init_time);
}
// Caml name: get_config
// Type: unit -> string * int
RT.caml_sys_get_config = function (unit) {
var b = mk_block (2, 0);
b.set (0, value_from_string ("Unix"));
b.set (1, 32);
return b;
}
// Caml name: getenv
// Type: string -> string
RT.caml_sys_getenv = function (v) {0
caml_raise_constant (NOT_FOUND_EXN);
}
// Caml name: random_seed
// Type: unit -> int
RT.caml_sys_random_seed = function (unit) {
return Math.floor(Math.random() * Math.pow(2, 31));
}
// Caml name: file_exists
// Type: string -> bool
RT.caml_sys_file_exists = function (name) {
try {
http_get ("exists/" + string_from_value (name),
function (e) {throw e;});
return TRUE;
} catch (e) {
return FALSE;
}
}
// Caml name: is_directory
// Type: string -> bool
RT.caml_sys_is_directory = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: remove
// Type: string -> unit
RT.caml_sys_remove = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: rename
// Type: string -> string -> unit
RT.caml_sys_rename = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: command
// Type: string -> int
RT.caml_sys_system_command = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: chdir
// Type: string -> unit
RT.caml_sys_chdir = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: getcwd
// Type: unit -> string
RT.caml_sys_getcwd = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: readdir
// Type: string -> string array
RT.caml_sys_read_directory = function () {
this.failwith ("not implemented in obrowser");
}
// Caml name: signal
// Type: int -> signal_behavior -> signal_behavior
RT.caml_install_signal_handler = function () {
this.failwith ("not implemented in obrowser");
}
|
