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

(* [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 getenv                    = Caml.Sys.getenv

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

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

exception Break = Caml.Sys.Break