Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 776 lines (685 sloc) 20.103 kb
fccc685 Initial open-source release
MLstate authored
1 (*
e337a3b @BourgerieQuentin [enhance] compiler, database: typing + code generation for the new way t...
BourgerieQuentin authored
2 Copyright © 2011, 2012 MLstate
fccc685 Initial open-source release
MLstate authored
3
4 This file is part of OPA.
5
6 OPA is free software: you can redistribute it and/or modify it under the
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
10 OPA is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
16 along with OPA. If not, see <http://www.gnu.org/licenses/>.
17 *)
18 (**
19 Interface between the compiler and the standard library.
20 Contain identifier and bslkeys of all opa functions inserted by the compiler.
21 *)
22
23 (**
24 The hierachy of ocaml values follows the module hierarchy of opa values.
25 The hierarchy must be respected.
26 All ident content are opa pathes where dot has been replaced by '_'.
27 Define ONLY CONSTANT STRING
28
29 A check (cf checkopacapi.ml), called during mkinstall check that:
30 - there is a strict equality between bypasses marked as [[opacapi]]
31 in the bsl and bypass available there,
32 - there is a strict equality between identifiers marked as [\@opacapi]
33 in the stdlib and identifier available there.
34 *)
35
36 let table = Hashtbl.create 128
37 let (!!) s =
38 if Hashtbl.mem table s then (prerr_endline s; assert false);
39 Hashtbl.add table s s;
40 s
41
42 (* toplevel *)
43 let (==) = !! "=="
44 let (!=) = !! "!="
45 let identity = !! "identity"
46 let internal__add_css_entry = !! "__internal__add_css_entry"
47 let magicToString = !! "magicToString"
48 let magicToXml = !! "magicToXml"
49 let never_do_anything = !! "never_do_anything"
50 let none = !! "none"
51 let callFA = !! "callFA"
eea542f @OpaOnWindowsNow [feature] core/xhtml: enable inlining of event handler via runtime serve...
OpaOnWindowsNow authored
52 let dom_event_to_opa_event = !! "dom_event_to_opa_event"
fccc685 Initial open-source release
MLstate authored
53 let some = !! "some"
54 let unary_minus = !! "unary_minus"
55 let unary_minus_dot = !! "unary_minus_dot"
56
57 module Client_code =
58 struct
59 let (!!) s = !! ("Client_code_" ^ s)
60 let register_css_declaration = !! "register_css_declaration"
61 let register_js_code = !! "register_js_code"
62 let register_js_code_elt = !! "register_js_code_elt"
63 end
64
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
65 module Db3 =
66 struct
67 let (!!) s = !! ("Db3_" ^ s)
68 let val_to_val = !! "val_to_val"
69 let ref_to_ref = !! "ref_to_ref"
70 end
71
fccc685 Initial open-source release
MLstate authored
72 module DbVirtual =
73 struct
74 let (!!) s = !! ("DbVirtual_" ^ s)
75 let hack_coerce_default = !! "hack_coerce_default"
76 let hack_coerce_option = !! "hack_coerce_option"
77 let hack_coerce_vvpath = !! "hack_coerce_vvpath"
78 let hack_coerce_vrpath = !! "hack_coerce_vrpath"
79 let make_ref = !! "make_ref"
80 let make_val = !! "make_val"
81 end
82
83 module Dom =
84 struct
85 let (!!) s = !! ("Dom_" ^ s)
86 let select_class = !! "select_class"
87 let select_id = !! "select_id"
41273b9 @OpaOnWindowsNow [feature] opa syntax: sugar for immediate execution of a dom transformat...
OpaOnWindowsNow authored
88 let transform = !! "transform"
fccc685 Initial open-source release
MLstate authored
89 end
90
91 module Core_server_code =
92 struct
93 let (!!) s = !! ("Core_server_code_" ^ s)
94 let register_server_code = !! "register_server_code"
95 end
96
97 module FiniteSingleThreadLazy =
98 struct
99 let (!!) s = !! ("FiniteSingleThreadLazy_" ^ s)
100 let force = !! "force"
101 end
102
103 module FunActionServer =
104 struct
105 let (!!) s = !! ("FunActionServer_" ^ s)
106 let serialize_argument = !! "serialize_argument"
107 let serialize_call = !! "serialize_call"
108 let serialize_ty_argument = !! "serialize_ty_argument"
109 end
110
4692879 @OpaOnWindowsNow [feature] Internationalisation: add @i18n directive and start support fo...
OpaOnWindowsNow authored
111 module I18n =
112 struct
113 let (!!) s = !! ("I18n_" ^ s)
114 let lang = !! "lang"
115 end
116
fccc685 Initial open-source release
MLstate authored
117 module IntMap =
118 struct
119 let (!!) s = !! ("IntMap_" ^ s)
120 let add = !! "add"
121 let empty = !! "empty"
122 let fold = !! "fold"
123 end
124
eafacd5 @OpaOnWindowsNow [cleanup] opacapi,{list,xhtml}.opa: respect opacapi guidelines
OpaOnWindowsNow authored
125 module List =
126 struct
127 let (!!) s = !! ("List_"^s)
128 let split_at_opt = !! "split_at_opt"
129 let split_between = !! "split_between"
130 end
131
fccc685 Initial open-source release
MLstate authored
132 module Mutable =
133 struct
134 let (!!) s = !! ("Mutable_" ^ s)
135 let make = !! "make"
136 let set = !! "set"
137 end
138
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
139 module Db =
140 struct
141 let (!!) s = !! ("Db_" ^ s)
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
142 let write = !! "write"
143 end
144
3539236 @BourgerieQuentin [enhance] compiler, database, db3: Updated dbset generation (relative to...
BourgerieQuentin authored
145 module Db3Set =
146 struct
147 let (!!) s = !! ("Db3Set_" ^ s)
148 let iterator = !! "iterator"
149 end
150
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
151 module DbMongo =
152 struct
153 let (!!) s = !! ("DbMongo_" ^ s)
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
154 let open_ = !! "open"
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
155 let path_to_path = !! "path_to_path"
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
156 let build_vpath = !! "build_vpath"
157 let build_rpath = !! "build_rpath"
ea57f3d @BourgerieQuentin [fix] mongo: (big) Fixes on mongo behind dbgen, default values, parser e...
BourgerieQuentin authored
158 let update_path = !! "update_path"
2b94068 @BourgerieQuentin [enhance] compiler/lib: (big) default value on bson unserialize + fix up...
BourgerieQuentin authored
159 let build_vpath_sub = !! "build_vpath_sub"
160 let build_rpath_sub = !! "build_rpath_sub"
161 let build_rpath_compose = !! "build_rpath_compose"
162 let build_vpath_compose = !! "build_vpath_compose"
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
163 let option = !! "option"
164 let read = !! "read"
165 let write = !! "write"
166 end
167
168 module DbSet =
169 struct
170 let (!!) s = !! ("DbSet_" ^ s)
171 let build = !! "build"
3539236 @BourgerieQuentin [enhance] compiler, database, db3: Updated dbset generation (relative to...
BourgerieQuentin authored
172 let genbuild = !! "genbuild"
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
173 let update = !! "update"
174 let empty = !! "empty"
175 let opa2doc = !! "opa2doc"
176 let add_to_document = !! "add_to_document"
177 let indexes = !! "indexes"
91ab51e @BourgerieQuentin [enhance] compiler: (big) improve path parser + opalang handles new quer...
BourgerieQuentin authored
178 let to_map = !! "to_map"
e337a3b @BourgerieQuentin [enhance] compiler, database: typing + code generation for the new way t...
BourgerieQuentin authored
179 let iterator = !! "iterator"
2b94068 @BourgerieQuentin [enhance] compiler/lib: (big) default value on bson unserialize + fix up...
BourgerieQuentin authored
180 let map_to_uniq = !! "map_to_uniq"
181 let set_to_uniq = !! "set_to_uniq"
182 let map_to_uniq_def = !! "map_to_uniq_def"
183 let set_to_uniq_def = !! "set_to_uniq_def"
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
184 let build_vpath = !! "build_vpath"
185 let build_rpath = !! "build_rpath"
2b94068 @BourgerieQuentin [enhance] compiler/lib: (big) default value on bson unserialize + fix up...
BourgerieQuentin authored
186 let default = !! "default"
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
187 end
188
fccc685 Initial open-source release
MLstate authored
189 module Opa2Js =
190 struct
191 let (!!) s = !! ("Opa2Js_" ^ s)
192 let to_string = !! "to_string"
193 end
194
195 module OpaRPC =
196 struct
197 let (!!) s = !! ("OpaRPC_" ^ s)
198 let add_args_with_type = !! "add_args_with_type"
199 let add_var_types = !! "add_var_types"
200 let add_row_types = !! "add_row_types"
201 let add_col_types = !! "add_col_types"
202 let client_async_send_to_server = !! "Client_async_send_to_server"
203 let client_dispatcher_register = !! "Client_Dispatcher_register"
204 let client_send_to_server = !! "Client_send_to_server"
205 let client_try_cache = !! "Client_try_cache"
206 let empty_request = !! "empty_request"
207 let error_stub = !! "error_stub"
208 let extract_types = !! "extract_types"
209 let extract_values = !! "extract_values"
210 let fake_stub = !! "fake_stub"
211 let serialize = !! "serialize"
24f427d [feature] rpc runtime and compiler: implementing asynchronous server->cl...
Valentin Gatien-Baron authored
212 let server_async_send_to_client = !! "Server_async_send_to_client"
fccc685 Initial open-source release
MLstate authored
213 let server_dispatcher_register = !! "Server_Dispatcher_register"
214 let server_send_to_client = !! "Server_send_to_client"
215 let server_try_cache = !! "Server_try_cache"
216 let unserialize = !! "unserialize"
217 end
218
219 module OpaSerialize =
220 struct
221 let (!!) s = !! ("OpaSerialize_" ^ s)
222 let serialize = !! "serialize"
223 let serialize_for_js = !! "serialize_for_js"
224 let unserialize = !! "unserialize"
225 let unserialize_ty = !! "unserialize_ty"
226 let unserialize_unsafe = !! "unserialize_unsafe"
227 end
228
229 module OpaTsc =
230 struct
231 let (!!) s = !! ("OpaTsc_" ^ s)
232 let implementation = !! "implementation"
233 end
234
235 module OpaType =
236 struct
237 let (!!) s = !! ("OpaType_" ^ s)
238 let instantiate_row = !! "instantiate_row"
239 let instantiate_col = !! "instantiate_col"
240 end
241
242 module OpaValue =
243 struct
244 let (!!) s = !! ("OpaValue_" ^ s)
245 let add_compare = !! "add_compare"
246 let add_serializer = !! "add_serializer"
247 let add_to_string = !! "add_to_string"
248 let add_xmlizer = !! "add_xmlizer"
249 end
250
251 module Parser =
252 struct
253 let (!!) s = !! ("Parser_" ^ s)
254 let of_string = !! "of_string"
255 end
256
257 module Resource_private =
258 struct
259 let (!!) s = !! ("Resource_private_"^s)
260 let content_of_include = !!"content_of_include"
261 let make_include = !! "make_include"
262 let make_resource_include = !! "make_resource_include"
263 let raw_resource_factory = !! "raw_resource_factory"
264 end
265
8edc001 [feature] adding: an @async directive on bindings to perform asynchronou...
Valentin Gatien-Baron authored
266 module Scheduler =
267 struct
268 let (!!) s = !! ("Scheduler_" ^ s)
269 let push = !! "push"
270 end
271
fccc685 Initial open-source release
MLstate authored
272 module Server_private =
273 struct
274 let (!!) s = !! ("Server_private_" ^ s)
275 let add_service = !! "add_service"
276 let run_services = !! "run_services"
277 end
278
4692879 @OpaOnWindowsNow [feature] Internationalisation: add @i18n directive and start support fo...
OpaOnWindowsNow authored
279 module String =
280 struct
281 let (!!) s = !! ("String_" ^ s)
282 let flatten = !! "flatten"
283 end
284
fccc685 Initial open-source release
MLstate authored
285 module StringMap =
286 struct
287 let (!!) s = !! ("StringMap_" ^ s)
288 let add = !! "add"
289 let empty = !! "empty"
290 let fold = !! "fold"
291 end
292
51f92b4 [feature] adding: a no_client_calls directive
Hugo Heuzard authored
293 module ThreadContext =
294 struct
295 let (!!) s = !! ("ThreadContext_" ^ s)
296 let no_client_calls = !! "no_client_calls"
297 end
298
fccc685 Initial open-source release
MLstate authored
299 module Xml =
300 struct
eafacd5 @OpaOnWindowsNow [cleanup] opacapi,{list,xhtml}.opa: respect opacapi guidelines
OpaOnWindowsNow authored
301 let (!!) s = !! ("Xml_" ^ s)
fccc685 Initial open-source release
MLstate authored
302 let find_attr = !! "find_attr"
303 let match_number = !! "match_number"
304 let match_plus = !! "match_plus"
305 let match_question = !! "match_question"
306 let match_range = !! "match_range"
307 let match_star = !! "match_star"
308 end
309
310 (**
311 Types definitions
312 *)
313 module Types =
314 struct
315
316 let bool = !! "bool"
317
318 let badop_engine_database_options = !! "badop_engine_database_options"
319 let badoplink_data_d = !! "badoplink_data_d"
320 let badoplink_database = !! "badoplink_database"
321 let badoplink_db_partial_key = !! "badoplink_db_partial_key"
322 let badoplink_db_path_key = !! "badoplink_db_path_key"
323 let badop_engine_t = !! "badop_engine_t"
324 let badoplink_node_config = !! "badoplink_node_config"
325 let badoplink_path = !! "badoplink_path"
326 let badoplink_transaction = !! "badoplink_transaction"
327
328 let binary = !! "binary"
329 let caml_list = !! "caml_list"
330 let char = !! "char"
331 let continuation = !! "continuation"
332 let dbgraph_diff = !! "dbgraph_diff"
333 let dbset = !! "dbset"
e337a3b @BourgerieQuentin [enhance] compiler, database: typing + code generation for the new way t...
BourgerieQuentin authored
334 let db3set = !! "Db3Set.t"
335 let dbmongoset = !! "DbMongoSet.t"
fccc685 Initial open-source release
MLstate authored
336 let dom = !! "dom"
337 let finite_single_thread_lazy = !! "finite_single_thread_lazy"
338 let float = !! "float"
339 let handle_assoc = !! "handle_assoc"
340 let event_handler = !! "event_handler"
341 let int = !! "int"
342 let ip = !! "ip"
343 let itextrator = !! "itextrator"
344 let list = !! "list"
345 let llarray = !! "llarray"
346 let map = !! "map"
347 let option = !! "option"
348
349 let path_embed_info = !! "path_embed_info"
350 let path_embedded_obj = !! "path_embedded_obj"
351 let path_ref_p = !! "path_ref_p"
352 let path_t = !! "path_t"
353 let path_val_p = !! "path_val_p"
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
354 let val_path = !! "val_path"
355 let ref_path = !! "ref_path"
fccc685 Initial open-source release
MLstate authored
356
357 let string = !! "string"
358 let stringmap = !! "stringmap"
359 let text = !! "text"
3539236 @BourgerieQuentin [enhance] compiler, database, db3: Updated dbset generation (relative to...
BourgerieQuentin authored
360 let iter = !! "iter"
fccc685 Initial open-source release
MLstate authored
361
16819fc [enhance] opa/transactions: refactored implem and interface, database tr...
Louis Gesbert authored
362 let transactions_t = !! "opa_transaction_t"
fccc685 Initial open-source release
MLstate authored
363 let tuple_2 = !! "tuple_2"
364 let virtual_ref_path = !! "virtual_ref_path"
365 let virtual_val_path = !! "virtual_val_path"
366
367 let void = !! "void"
368 let xhtml = !! "xhtml"
369 let xhtml_event = !! "xhtml_event"
370 let xhtml_href = !! "xhtml_href"
371 let xml = !! "xml"
372
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
373 (* module Bson = *)
374 (* struct *)
375 (* let (!!) s = !! ("Bson." ^ s) *)
376 (* let document = !! "document" *)
377 (* end *)
378
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
379 module Db =
380 struct
381 let (!!) s = !! ("Db." ^ s)
382 let ref_path = !! "ref_path"
383 let val_path = !! "val_path"
384 end
385
870ccfb @BourgerieQuentin [fix] dbgen: switch database typing according to backend
BourgerieQuentin authored
386 module Db3 =
387 struct
388 let (!!) s = !! ("Db3." ^ s)
389 let t = !! "t"
390 end
391
3539236 @BourgerieQuentin [enhance] compiler, database, db3: Updated dbset generation (relative to...
BourgerieQuentin authored
392 module Db3Set =
393 struct
394 let (!!) s = !! ("Db3Set." ^ s)
395 let engine = !! "engine"
396 end
397
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
398 module DbMongo =
399 struct
400 let (!!) s = !! ("DbMongo." ^ s)
870ccfb @BourgerieQuentin [fix] dbgen: switch database typing according to backend
BourgerieQuentin authored
401 let t = !! "t"
5fdc6b9 @BourgerieQuentin [enhance] compiler: (big) Common path typing beetween several backend + ...
BourgerieQuentin authored
402 let engine = !! "engine"
403 let val_path = !! "private.val_path"
404 let ref_path = !! "private.ref_path"
405 end
406
45d0b17 [enhance] rpc: add timeout feature in calls from server to clients
Mathieu Barbin authored
407 module Cell =
408 struct
409 let (!!) s = !! ("Cell." ^ s)
410 let timeout = !! "timeout"
411 end
412
fccc685 Initial open-source release
MLstate authored
413 module Css =
414 struct
415 let (!!) s= !! ("Css." ^ s)
416 let background = !! "background"
417 let event = !! "event"
418 let length = !! "length"
419 let percentage = !! "percentage"
420 let prop_value_item = !! "prop_value_item"
421 let selector_item = !! "selector_item"
422 let size = !! "size"
423 let size_or_none = !! "size_or_none"
424 let size_or_normal = !! "size_or_normal"
425 end
426
427 module Cps =
428 struct
429 let (!!) s = !! ("Cps." ^ s)
430 let future = !! "future"
431 end
432
ccded04 @BourgerieQuentin [enhance] compiler: (big) added mongo accessors generation + database ba...
BourgerieQuentin authored
433 module DbSet =
434 struct
435 let (!!) s = !! ("DbSet." ^ s)
436 let query = !! "query"
437 end
438
fccc685 Initial open-source release
MLstate authored
439 module Deprecated =
440 struct
441 let (!!) s = !! ("Deprecated." ^ s)
442 let argument = !! "argument"
443 end
444
445 module Dom =
446 struct
447 let (!!) s = !! ("Dom." ^ s)
448 let transformation = !! "transformation"
449 module Event =
450 struct
451 let (!!) s = !! ("event." ^ s)
452 let kind = !! "kind"
453 end
454 module Transformation =
455 struct
456 let (!!) s = !! ("Transformation." ^ s)
457 let subject = !! "subject"
458 end
459 end
460
45d0b17 [enhance] rpc: add timeout feature in calls from server to clients
Mathieu Barbin authored
461 module Exception =
462 struct
463 let (!!) s = !! ("Exception." ^ s)
464 let common = !! "common"
465 end
466
fccc685 Initial open-source release
MLstate authored
467 module FunAction =
468 struct
469 let (!!) s = ("FunAction." ^ s)
470 let t = !! "t"
471 end
472
473 module OPA =
474 struct
475 let (!!) s = !! ("OPA." ^ s)
476 module Init =
477 struct
478 let (!!) s = !! ("Init." ^ s)
479 let value = !! "value"
480 end
481 end
482
483 module OpaRPC =
484 struct
485 let (!!) s = !! ("OpaRPC." ^s)
486 let request = !! "request"
45d0b17 [enhance] rpc: add timeout feature in calls from server to clients
Mathieu Barbin authored
487 let timeout = !! "timeout"
fccc685 Initial open-source release
MLstate authored
488 end
489
490 module OpaSerialize =
491 struct
492 let (!!) s = !! ("OpaSerialize." ^s)
493 let options = !! "options"
494 end
495
496 module OpaTsc =
497 struct
498 let (!!) s = !! ("OpaTsc." ^s)
499 let t = !! "t"
500 end
501
502 module OpaType =
503 struct
504 let (!!) s = !! ("OpaType." ^s)
505 let col = !! "col"
506 let row = !! "row"
507 let ty = !! "ty"
508 let typevar = !! "typevar"
509 end
510
511 module Order =
512 struct
513 let (!!) s = !! ("Order." ^s)
514 let comparison = !! "comparison"
515 end
516
517 module Parser =
518 struct
519 let (!!) s = !! ("Parser." ^ s)
520 let general_parser = !! "general_parser"
521 end
522
523 module RPC =
524 struct
525 let (!!) s = !! ("RPC." ^s)
526 module Json =
527 struct
528 let (!!) s = !! ("Json." ^ s)
529 let json = !! "json"
530 end
de87e45 @nrs135 [enhance] stdlib: Rename RPC.Bson.* to Bson.*.
nrs135 authored
531 end
532
fccc685 Initial open-source release
MLstate authored
533 module ThreadContext =
534 struct
535 let (!!) s = !! ("ThreadContext." ^ s)
536 let t = (!!) "t"
537 end
538
539 module Xml =
540 struct
541 let (!!) s = !! ("Xml." ^ s)
542 let attribute = !! "attribute"
543 end
544
545 end
546
547
548 (**
549 Bypass inserted by the compiler
550 *)
551 module Opabsl =
552 struct
553
554 let table = Hashtbl.create 128
555
556 let (!!) s =
557 let s = BslKey.normalize s in
558 if Hashtbl.mem table s then (prerr_endline (BslKey.to_string s); assert false);
559 Hashtbl.add table s s;
560 s
561
562 module Badoplink =
563 struct
564 let (!!) s = !! ("Badoplink." ^ s)
565 let add_hole = !! "add_hole"
566 let add_key = !! "add_key"
567 let clear = !! "clear"
568 let create_dbset = !! "create_dbset"
569 let data_binary = !! "data_binary"
570 let data_float = !! "data_float"
571 let data_int = !! "data_int"
572 let data_obj_binary = !! "data_obj_binary"
573 let data_obj_float = !! "data_obj_float"
574 let data_obj_int = !! "data_obj_int"
575 let data_obj_text = !! "data_obj_text"
576 let data_text = !! "data_text"
577 let data_unit = !! "data_unit"
578 let db_prefix = !! "db_prefix"
579 let dbpath_add = !! "dbpath_add"
580 let dbpath_root = !! "dbpath_root"
581 let empty_partial_key = !! "empty_partial_key"
582 let error = !! "error"
583 let exists = !! "exists"
584 let fatal_error = !! "fatal_error"
585 let fold_children = !! "fold_children"
586 let fold_int_keys = !! "fold_int_keys"
587 let fold_string_keys = !! "fold_string_keys"
588 let get_new_key = !! "get_new_key"
589 let get_opt = !! "get_opt"
590 let get_registered_db_ident = !! "get_registered_db_ident"
591 let get_registered_root_edge = !! "get_registered_root_edge"
592 let is_db_new = !! "is_db_new"
593 let jlog = !! "jlog"
594 let key_int = !! "key_int"
595 let key_list = !! "key_list"
596 let key_string = !! "key_string"
597 let key_value_int = !! "key_value_int"
598 let key_value_string = !! "key_value_string"
599 let node_config_construct = !! "node_config_construct"
600 let node_properties = !! "node_properties"
601 let open_db = !! "open_db"
602 let register_db_ident = !! "register_db_ident"
603 let register_root_edge = !! "register_root_edge"
604 let remove_children = !! "remove_children"
605 let set = !! "set"
606 let set_current_copy = !! "set_current_copy"
607 let set_dbset_keys = !! "set_dbset_keys"
608 let set_link = !! "set_link"
609 let shall_i_upgrade = !! "shall_i_upgrade"
610 let trans_abort = !! "trans_abort"
611 let trans_commit = !! "trans_commit"
612 let trans_start = !! "trans_start"
613 let uppath = !! "uppath"
614 end
615
616 module BadopEngine =
617 struct
618 let (!!) s = !! ("Badop_engine." ^ s)
619 let check_remaining_arguments = !! "check_remaining_arguments"
620 let local_options = !! "local_options"
f764139 @nrs135 [feature] Badop_light: Attempt at OPA integration (partially successful...
nrs135 authored
621 let light_options = !! "light_options"
fccc685 Initial open-source release
MLstate authored
622 let client_options = !! "client_options"
623 let get = !! "get"
624 end
625
626 module BslClientCode =
627 struct
628 let (!!) s = !! ("BslClientCode." ^ s)
629 let serialize_string_length = !! "serialize_string_length"
630 end
631
632 module BslClosure =
633 struct
634 let (!!) s = !! ("BslClosure." ^ s)
635 let create_and_register = !! "create_and_register"
636 let create_no_function_and_register = !! "create_no_function_and_register"
637 let define_function = !! "define_function"
638 end
639
640 module BslCps =
641 struct
642 let (!!) s = !! ("BslCps." ^ s)
4756eb9 [cleanup] bsl: opacapize cpsRewriter
Raja authored
643 let before_wait = !! "before_wait"
644 let black_make_barrier = !! "black_make_barrier"
645 let black_release_barrier = !! "black_release_barrier"
646 let black_toplevel_wait = !! "black_toplevel_wait"
647 let bt_add = !! "bt_add"
648 let callcc_directive = !! "callcc_directive"
649 let catch = !! "catch"
650 let catch_native = !! "catch_native"
651 let ccont = !! "ccont"
652 let ccont_native = !! "ccont_native"
653 let cont = !! "cont"
654 let cont_native = !! "cont_native"
655 let debug = !! "debug"
656 let fun_args2string = !! "fun_args2string"
657 let handler_cont = !! "handler_cont"
658 let magic_func = !! "magic_func"
659 let make_barrier = !! "make_barrier"
660 let release_barrier = !! "release_barrier"
661 let return = !! "return"
662 let spawn = !! "spawn"
663 let thread_context = !! "thread_context"
664 let toplevel_wait = !! "toplevel_wait"
665 let uncps_native = !! "uncps_native"
666 let wait = !! "wait"
667 let with_thread_context = !! "with_thread_context"
fccc685 Initial open-source release
MLstate authored
668 module Notcps_compatibility =
669 struct
670 let (!!) s = !! ("Notcps_compatibility." ^ s)
671 let thread_context = !! "thread_context"
4756eb9 [cleanup] bsl: opacapize cpsRewriter
Raja authored
672 let dummy_cont = !! "dummy_cont"
09d9c9d @OpaOnWindowsNow [enhance] qmlCpsRewriter: use opacapi in non cps mode
OpaOnWindowsNow authored
673 let max_cps_native = 5
674 (* define an array of !! "cps%d_native" from min_cps_native to max_cps_native *)
675 let cps_native =
676 let cps_native_str arity = Printf.sprintf "cps%d_native" arity in
677 let array = Array.init (max_cps_native+1) (fun i -> !! (cps_native_str i)) in
678 fun arity -> array.(arity)
fccc685 Initial open-source release
MLstate authored
679 end
680 end
681
682 module BslInit =
683 struct
684 let (!!) s = !! ("BslInit." ^ s)
685 let set_executable_id = !! "set_executable_id"
686 end
687
688 module BslJsIdent =
689 struct
690 let (!!) s = !! ("BslJsIdent." ^ s)
691 let define_rename = !! "define_rename"
692 let set_cleaning_default_value = !! "set_cleaning_default_value"
693 end
694
695 module BslNativeLib =
696 struct
697 let (!!) s = !! ("BslNativeLib."^s)
698 let cons = !! "cons"
699 let empty_list = !! "empty_list"
700 end
701
702 module BslPervasives =
703 struct
704 let (!!) s = !! ("BslPervasives." ^ s)
705 let compare_raw = !! "compare_raw"
706 let fail = !! "fail"
707 let fail_cps = !! "fail_cps"
708 let return_exc = !! "return_exc"
709
710 module Magic =
711 struct
712 let (!!) s = !! ("Magic." ^ s)
713 let id = !! "id"
714 end
715 end
716
717 module BslReference =
718 struct
719 let (!!) s = !! ("BslReference." ^ s)
720 let create = !! "create"
721 end
722
723 module BslValue =
724 struct
725 let (!!) s = !! ("BslValue." ^ s)
726 module Tsc =
727 struct
728 let (!!) s = !! ("Tsc." ^ s)
729 let add = !! "add"
730 end
731 end
732
733 module Dbgraph =
734 struct
735 let (!!) s = !! ("Dbgraph." ^ s)
736 let diff = !! "diff"
737 let diff_message = !! "diff_message"
738 let diff_status = !! "diff_status"
739 let empty_diff = !! "empty_diff"
740 let get_diffed_schema = !! "get_diffed_schema"
741 let matching_edge = !! "matching_edge"
742 let print_tree = !! "print_tree"
743 end
744
745 module Path =
746 struct
747 let (!!) s = !! ("Path." ^ s)
748 let copy = !! "copy"
749 let embed_record_data = !! "embed_record_data"
750 let embedded_path = !! "embedded_path"
751 let get_lazy_info_opt = !! "get_lazy_info_opt"
752 let get_ref_path = !! "get_ref_path"
753 let get_val_path = !! "get_val_path"
754 let inject_record_data = !! "inject_record_data"
755 end
756
757 module Transactions =
758 struct
16819fc [enhance] opa/transactions: refactored implem and interface, database tr...
Louis Gesbert authored
759 let (!!) s = !! ("Opa_transaction." ^ s)
fccc685 Initial open-source release
MLstate authored
760 let commit = !! "commit"
761 let continue = !! "continue"
762 let fail = !! "fail"
763 let get_global_transaction_opt = !! "get_global_transaction_opt"
764 let set_global_transaction = !! "set_global_transaction"
765 let start = !! "start"
766 end
767
768 module BslAppSrcCode =
769 struct
770 let (!!) s = !! ("BslAppSrcCode." ^ s)
771 let register_src_code = !! "register_src_code"
772 let register_special_src_code = !! "register_special_src_code"
773 end
774
775 end
Something went wrong with that request. Please try again.