-
Notifications
You must be signed in to change notification settings - Fork 464
/
Copy pathliterals.ml
184 lines (107 loc) · 3.68 KB
/
literals.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
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* In addition to the permissions granted to you by the LGPL, you may combine
* or link a "work that uses the Library" with a publicly distributed version
* of this file to produce a combined library or application, then distribute
* that combined work under the terms of your choosing, with no requirement
* to comply with the obligations normally placed on you by section 4 of the
* LGPL version 3 (or the corresponding section of a later version of the LGPL
* should you choose to use a later version).
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
let js_array_ctor = "Array"
let js_type_number = "number"
let js_type_string = "string"
let js_type_object = "object"
let js_type_boolean = "boolean"
let js_undefined = "undefined"
let js_prop_length = "length"
let prim = "prim"
let param = "param"
let partial_arg = "partial_arg"
let tmp = "tmp"
let create = "create" (* {!Caml_exceptions.create}*)
let runtime = "runtime" (* runtime directory *)
let stdlib = "stdlib"
let imul = "imul" (* signed int32 mul *)
let setter_suffix = "#="
let setter_suffix_len = String.length setter_suffix
let debugger = "debugger"
let fn_run = "fn_run"
let method_run = "method_run"
let fn_method = "fn_method"
let fn_mk = "fn_mk"
(*let js_fn_runmethod = "js_fn_runmethod"*)
(** nodejs *)
let node_modules = "node_modules"
let node_modules_length = String.length "node_modules"
let package_json = "package.json"
let bsconfig_json = "bsconfig.json"
let build_ninja = "build.ninja"
(* Name of the library file created for each external dependency. *)
let library_file = "lib"
let suffix_a = ".a"
let suffix_cmj = ".cmj"
let suffix_cmo = ".cmo"
let suffix_cma = ".cma"
let suffix_cmi = ".cmi"
let suffix_cmx = ".cmx"
let suffix_cmxa = ".cmxa"
let suffix_mll = ".mll"
let suffix_ml = ".ml"
let suffix_mli = ".mli"
let suffix_re = ".re"
let suffix_rei = ".rei"
let suffix_res = ".res"
let suffix_resi = ".resi"
let suffix_mlmap = ".mlmap"
let suffix_cmt = ".cmt"
let suffix_cmti = ".cmti"
let suffix_ast = ".ast"
let suffix_iast = ".iast"
let suffix_d = ".d"
let suffix_js = ".js"
let suffix_bs_js = ".bs.js"
let suffix_mjs = ".mjs"
let suffix_bs_mjs = ".bs.mjs"
let suffix_cjs = ".cjs"
let suffix_bs_cjs = ".bs.cjs"
let suffix_gen_js = ".gen.js"
let suffix_gen_tsx = ".gen.tsx"
let commonjs = "commonjs"
let es6 = "es6"
let es6_global = "es6-global"
let unused_attribute = "Unused attribute "
(** Used when produce node compatible paths *)
let node_sep = "/"
let node_parent = ".."
let node_current = "."
let gentype_import = "genType.import"
let bsbuild_cache = ".bsbuild"
let sourcedirs_meta = ".sourcedirs.json"
(* Note the build system should check the validity of filenames
espeically, it should not contain '-'
*)
let ns_sep_char = '-'
let ns_sep = "-"
let exception_id = "RE_EXN_ID"
let polyvar_hash = "NAME"
let polyvar_value = "VAL"
let cons = "::"
let hd = "hd"
let tl = "tl"
let lazy_done = "LAZY_DONE"
let lazy_val = "VAL"
let pure = "@__PURE__"