The unpac monorepo manager self-hosting as a monorepo using unpac
final bootstrap (all prims used in stdlib/sys)
+4
-7
boot/ocamlc
boot/ocamlc
This is a binary file and will not be displayed.
boot/ocamllex
boot/ocamllex
This is a binary file and will not be displayed.
+1
-2
stdlib/sys.mli
+1
-2
stdlib/sys.mli
···
20
20
an error.
21
21
*)
22
22
23
-
(*external argv : string array = "%sys_argv"*)
24
-
val argv : string array
23
+
external argv : string array = "%sys_argv"
25
24
(** The command line arguments given to the process.
26
25
The first element is the command name used to invoke the program.
27
26
The following elements are the command-line arguments
+3
-5
stdlib/sys.mlp
+3
-5
stdlib/sys.mlp
···
25
25
(* System interface *)
26
26
27
27
external get_config: unit -> string * int * bool = "caml_sys_get_config"
28
-
external get_argv: unit -> string * string array = "caml_sys_get_argv"
29
-
(*external get_executable_name : unit -> string = "caml_sys_executable_name"
30
-
external argv : string array = "%sys_argv"*)
28
+
external get_executable_name : unit -> string = "caml_sys_executable_name"
29
+
external argv : string array = "%sys_argv"
31
30
external big_endian : unit -> bool = "%big_endian"
32
31
external word_size : unit -> int = "%word_size"
33
32
external int_size : unit -> int = "%int_size"
···
37
36
external cygwin : unit -> bool = "%ostype_cygwin"
38
37
external get_backend_type : unit -> backend_type = "%backend_type"
39
38
40
-
(*let executable_name = get_executable_name()*)
41
-
let (executable_name, argv) = get_argv()
39
+
let executable_name = get_executable_name()
42
40
let (os_type, _, _) = get_config()
43
41
let backend_type = get_backend_type ()
44
42
let big_endian = big_endian ()