Source file `sys0.ml`

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
(* [Sys0] defines functions that are primitives or can be simply defined in
   terms of [Caml.Sys].  [Sys0] is intended to completely express the part of
   [Caml.Sys] that [Base] uses -- no other file in Base other than sys.ml
   should use [Caml.Sys]. [Sys0] has few dependencies, and so is available
   early in Base's build order.  All Base files that need to use these
   functions and come before [Base.Sys] in build order should do
   [module Sys = Sys0].  Defining [module Sys = Sys0] is also necessary because
   it prevents ocamldep from mistakenly causing a file to depend on [Base.Sys]. *)

open! Import0

type backend_type = Caml.Sys.backend_type =
  | Native
  | Bytecode
  | Other of string

let backend_type = Caml.Sys.backend_type
let interactive = Caml.Sys.interactive
let os_type = Caml.Sys.os_type
let unix = Caml.Sys.unix
let win32 = Caml.Sys.win32
let cygwin = Caml.Sys.cygwin
let word_size_in_bits = Caml.Sys.word_size
let int_size_in_bits = Caml.Sys.int_size
let big_endian = Caml.Sys.big_endian
let max_string_length = Caml.Sys.max_string_length
let max_array_length = Caml.Sys.max_array_length
let runtime_variant = Caml.Sys.runtime_variant
let runtime_parameters = Caml.Sys.runtime_parameters
let argv = Caml.Sys.argv
let get_argv () = Caml.Sys.argv
let ocaml_version = Caml.Sys.ocaml_version
let enable_runtime_warnings = Caml.Sys.enable_runtime_warnings
let runtime_warnings_enabled = Caml.Sys.runtime_warnings_enabled

let getenv_exn var =
  try Caml.Sys.getenv var with
  | Caml.Not_found ->
    Printf.failwithf "Sys.getenv_exn: environment variable %s is not set" var ()
;;

let getenv var =
  match Caml.Sys.getenv var with
  | x -> Some x
  | exception Caml.Not_found -> None
;;

external opaque_identity : 'a -> 'a = "%opaque"

exception Break = Caml.Sys.Break