Skip to content
This repository
Newer
Older
100644 787 lines (696 sloc) 20.461 kb
fccc6851 » MLstate
2011-06-21 Initial open-source release
1 (*
e337a3bb » BourgerieQuentin
2012-03-02 [enhance] compiler, database: typing + code generation for the new wa…
2 Copyright © 2011, 2012 MLstate
fccc6851 » MLstate
2011-06-21 Initial open-source release
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"
eea542f3 » OpaOnWindowsNow
2012-02-23 [feature] core/xhtml: enable inlining of event handler via runtime se…
52 let dom_event_to_opa_event = !! "dom_event_to_opa_event"
fccc6851 » MLstate
2011-06-21 Initial open-source release
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
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
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
fccc6851 » MLstate
2011-06-21 Initial open-source release
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"
41273b9c » OpaOnWindowsNow
2011-10-21 [feature] opa syntax: sugar for immediate execution of a dom transfor…
88 let transform = !! "transform"
fccc6851 » MLstate
2011-06-21 Initial open-source release
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
46928796 » OpaOnWindowsNow
2011-09-08 [feature] Internationalisation: add @i18n directive and start support…
111 module I18n =
112 struct
113 let (!!) s = !! ("I18n_" ^ s)
114 let lang = !! "lang"
115 end
116
fccc6851 » MLstate
2011-06-21 Initial open-source release
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
eafacd58 » OpaOnWindowsNow
2011-06-22 [cleanup] opacapi,{list,xhtml}.opa: respect opacapi guidelines
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
fccc6851 » MLstate
2011-06-21 Initial open-source release
132 module Mutable =
133 struct
134 let (!!) s = !! ("Mutable_" ^ s)
135 let make = !! "make"
136 let set = !! "set"
137 end
138
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
139 module Db =
140 struct
141 let (!!) s = !! ("Db_" ^ s)
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
142 let write = !! "write"
143 end
144
3539236c » BourgerieQuentin
2012-03-05 [enhance] compiler, database, db3: Updated dbset generation (relative…
145 module Db3Set =
146 struct
147 let (!!) s = !! ("Db3Set_" ^ s)
148 let iterator = !! "iterator"
149 end
150
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
151 module DbMongo =
152 struct
153 let (!!) s = !! ("DbMongo_" ^ s)
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
154 let open_ = !! "open"
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
155 let path_to_path = !! "path_to_path"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
156 let build_vpath = !! "build_vpath"
157 let build_rpath = !! "build_rpath"
ea57f3d9 » BourgerieQuentin
2012-01-24 [fix] mongo: (big) Fixes on mongo behind dbgen, default values, parse…
158 let update_path = !! "update_path"
2b94068a » BourgerieQuentin
2012-01-24 [enhance] compiler/lib: (big) default value on bson unserialize + fix…
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"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
163 let option = !! "option"
164 let read = !! "read"
165 let write = !! "write"
4a8c34e3 » BourgerieQuentin
2012-04-17 [fix] compiler, database, mongo: Take care of field encoding/decoding…
166 let expr_to_field = !! "expr_to_field"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
167 end
168
169 module DbSet =
170 struct
171 let (!!) s = !! ("DbSet_" ^ s)
172 let build = !! "build"
3539236c » BourgerieQuentin
2012-03-05 [enhance] compiler, database, db3: Updated dbset generation (relative…
173 let genbuild = !! "genbuild"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
174 let update = !! "update"
175 let empty = !! "empty"
176 let opa2doc = !! "opa2doc"
177 let add_to_document = !! "add_to_document"
178 let indexes = !! "indexes"
91ab51ea » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) improve path parser + opalang handles new q…
179 let to_map = !! "to_map"
e337a3bb » BourgerieQuentin
2012-03-02 [enhance] compiler, database: typing + code generation for the new wa…
180 let iterator = !! "iterator"
4fb451fe » BourgerieQuentin
2012-04-11 [feature] compiler, database, mongo: Added sub path of multi node to …
181 let iterator_map = !! "iterator_map"
2b94068a » BourgerieQuentin
2012-01-24 [enhance] compiler/lib: (big) default value on bson unserialize + fix…
182 let map_to_uniq = !! "map_to_uniq"
183 let set_to_uniq = !! "set_to_uniq"
184 let map_to_uniq_def = !! "map_to_uniq_def"
185 let set_to_uniq_def = !! "set_to_uniq_def"
4c071862 » BourgerieQuentin
2012-03-09 [enhance] compiler, database, mongo: Allows to make ref path on mongo…
186 let map_to_docs = !! "map_to_docs"
187 let set_to_docs = !! "set_to_docs"
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
188 let build_vpath = !! "build_vpath"
189 let build_rpath = !! "build_rpath"
4c071862 » BourgerieQuentin
2012-03-09 [enhance] compiler, database, mongo: Allows to make ref path on mongo…
190 let build_rpath_collection = !! "build_rpath_collection"
2b94068a » BourgerieQuentin
2012-01-24 [enhance] compiler/lib: (big) default value on bson unserialize + fix…
191 let default = !! "default"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
192 end
193
fccc6851 » MLstate
2011-06-21 Initial open-source release
194 module Opa2Js =
195 struct
196 let (!!) s = !! ("Opa2Js_" ^ s)
197 let to_string = !! "to_string"
198 end
199
200 module OpaRPC =
201 struct
202 let (!!) s = !! ("OpaRPC_" ^ s)
203 let add_args_with_type = !! "add_args_with_type"
204 let add_var_types = !! "add_var_types"
205 let add_row_types = !! "add_row_types"
206 let add_col_types = !! "add_col_types"
207 let client_async_send_to_server = !! "Client_async_send_to_server"
208 let client_dispatcher_register = !! "Client_Dispatcher_register"
209 let client_send_to_server = !! "Client_send_to_server"
210 let client_try_cache = !! "Client_try_cache"
211 let empty_request = !! "empty_request"
212 let error_stub = !! "error_stub"
213 let extract_types = !! "extract_types"
214 let extract_values = !! "extract_values"
215 let fake_stub = !! "fake_stub"
216 let serialize = !! "serialize"
24f427dd » Valentin Gatien-Baron
2011-07-07 [feature] rpc runtime and compiler: implementing asynchronous server-…
217 let server_async_send_to_client = !! "Server_async_send_to_client"
fccc6851 » MLstate
2011-06-21 Initial open-source release
218 let server_dispatcher_register = !! "Server_Dispatcher_register"
219 let server_send_to_client = !! "Server_send_to_client"
220 let server_try_cache = !! "Server_try_cache"
221 let unserialize = !! "unserialize"
222 end
223
224 module OpaSerialize =
225 struct
226 let (!!) s = !! ("OpaSerialize_" ^ s)
227 let serialize = !! "serialize"
228 let serialize_for_js = !! "serialize_for_js"
229 let unserialize = !! "unserialize"
230 let unserialize_ty = !! "unserialize_ty"
231 let unserialize_unsafe = !! "unserialize_unsafe"
232 end
233
234 module OpaTsc =
235 struct
236 let (!!) s = !! ("OpaTsc_" ^ s)
237 let implementation = !! "implementation"
238 end
239
240 module OpaType =
241 struct
242 let (!!) s = !! ("OpaType_" ^ s)
243 let instantiate_row = !! "instantiate_row"
244 let instantiate_col = !! "instantiate_col"
245 end
246
247 module OpaValue =
248 struct
249 let (!!) s = !! ("OpaValue_" ^ s)
250 let add_compare = !! "add_compare"
251 let add_serializer = !! "add_serializer"
252 let add_to_string = !! "add_to_string"
253 let add_xmlizer = !! "add_xmlizer"
254 end
255
256 module Parser =
257 struct
258 let (!!) s = !! ("Parser_" ^ s)
259 let of_string = !! "of_string"
260 end
261
262 module Resource_private =
263 struct
264 let (!!) s = !! ("Resource_private_"^s)
265 let content_of_include = !!"content_of_include"
266 let make_include = !! "make_include"
267 let make_resource_include = !! "make_resource_include"
268 let raw_resource_factory = !! "raw_resource_factory"
269 end
270
8edc0012 » Valentin Gatien-Baron
2011-07-06 [feature] adding: an @async directive on bindings to perform asynchro…
271 module Scheduler =
272 struct
273 let (!!) s = !! ("Scheduler_" ^ s)
274 let push = !! "push"
275 end
276
fccc6851 » MLstate
2011-06-21 Initial open-source release
277 module Server_private =
278 struct
279 let (!!) s = !! ("Server_private_" ^ s)
280 let add_service = !! "add_service"
281 let run_services = !! "run_services"
282 end
283
46928796 » OpaOnWindowsNow
2011-09-08 [feature] Internationalisation: add @i18n directive and start support…
284 module String =
285 struct
286 let (!!) s = !! ("String_" ^ s)
287 let flatten = !! "flatten"
288 end
289
fccc6851 » MLstate
2011-06-21 Initial open-source release
290 module StringMap =
291 struct
292 let (!!) s = !! ("StringMap_" ^ s)
293 let add = !! "add"
294 let empty = !! "empty"
295 let fold = !! "fold"
296 end
297
51f92b4d » Hugo Heuzard
2011-09-09 [feature] adding: a no_client_calls directive
298 module ThreadContext =
299 struct
300 let (!!) s = !! ("ThreadContext_" ^ s)
301 let no_client_calls = !! "no_client_calls"
302 end
303
fccc6851 » MLstate
2011-06-21 Initial open-source release
304 module Xml =
305 struct
eafacd58 » OpaOnWindowsNow
2011-06-22 [cleanup] opacapi,{list,xhtml}.opa: respect opacapi guidelines
306 let (!!) s = !! ("Xml_" ^ s)
fccc6851 » MLstate
2011-06-21 Initial open-source release
307 let find_attr = !! "find_attr"
308 let match_number = !! "match_number"
309 let match_plus = !! "match_plus"
310 let match_question = !! "match_question"
311 let match_range = !! "match_range"
312 let match_star = !! "match_star"
313 end
314
315 (**
316 Types definitions
317 *)
318 module Types =
319 struct
320
321 let bool = !! "bool"
322
323 let badop_engine_database_options = !! "badop_engine_database_options"
324 let badoplink_data_d = !! "badoplink_data_d"
325 let badoplink_database = !! "badoplink_database"
326 let badoplink_db_partial_key = !! "badoplink_db_partial_key"
327 let badoplink_db_path_key = !! "badoplink_db_path_key"
328 let badop_engine_t = !! "badop_engine_t"
329 let badoplink_node_config = !! "badoplink_node_config"
330 let badoplink_path = !! "badoplink_path"
331 let badoplink_transaction = !! "badoplink_transaction"
332
333 let binary = !! "binary"
334 let caml_list = !! "caml_list"
335 let char = !! "char"
336 let continuation = !! "continuation"
337 let dbgraph_diff = !! "dbgraph_diff"
338 let dbset = !! "dbset"
e337a3bb » BourgerieQuentin
2012-03-02 [enhance] compiler, database: typing + code generation for the new wa…
339 let db3set = !! "Db3Set.t"
340 let dbmongoset = !! "DbMongoSet.t"
fccc6851 » MLstate
2011-06-21 Initial open-source release
341 let dom = !! "dom"
342 let finite_single_thread_lazy = !! "finite_single_thread_lazy"
343 let float = !! "float"
344 let handle_assoc = !! "handle_assoc"
345 let event_handler = !! "event_handler"
346 let int = !! "int"
347 let ip = !! "ip"
348 let itextrator = !! "itextrator"
349 let list = !! "list"
350 let llarray = !! "llarray"
351 let map = !! "map"
f583ecc5 » BourgerieQuentin
2012-05-09 [fix] compiler, database: exists + traverse 'database map'
352 let ordered_map = !! "ordered_map"
fccc6851 » MLstate
2011-06-21 Initial open-source release
353 let option = !! "option"
354
355 let path_embed_info = !! "path_embed_info"
356 let path_embedded_obj = !! "path_embedded_obj"
357 let path_ref_p = !! "path_ref_p"
358 let path_t = !! "path_t"
359 let path_val_p = !! "path_val_p"
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
360 let val_path = !! "val_path"
361 let ref_path = !! "ref_path"
fccc6851 » MLstate
2011-06-21 Initial open-source release
362
363 let string = !! "string"
364 let stringmap = !! "stringmap"
365 let text = !! "text"
3539236c » BourgerieQuentin
2012-03-05 [enhance] compiler, database, db3: Updated dbset generation (relative…
366 let iter = !! "iter"
fccc6851 » MLstate
2011-06-21 Initial open-source release
367
16819fc8 » Louis Gesbert
2011-07-08 [enhance] opa/transactions: refactored implem and interface, database…
368 let transactions_t = !! "opa_transaction_t"
fccc6851 » MLstate
2011-06-21 Initial open-source release
369 let tuple_2 = !! "tuple_2"
370 let virtual_ref_path = !! "virtual_ref_path"
371 let virtual_val_path = !! "virtual_val_path"
372
373 let void = !! "void"
374 let xhtml = !! "xhtml"
375 let xhtml_event = !! "xhtml_event"
376 let xhtml_href = !! "xhtml_href"
377 let xml = !! "xml"
378
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
379 (* module Bson = *)
380 (* struct *)
381 (* let (!!) s = !! ("Bson." ^ s) *)
382 (* let document = !! "document" *)
383 (* end *)
384
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
385 module Db =
386 struct
387 let (!!) s = !! ("Db." ^ s)
388 let ref_path = !! "ref_path"
389 let val_path = !! "val_path"
390 end
391
870ccfbe » BourgerieQuentin
2012-01-24 [fix] dbgen: switch database typing according to backend
392 module Db3 =
393 struct
394 let (!!) s = !! ("Db3." ^ s)
395 let t = !! "t"
396 end
397
3539236c » BourgerieQuentin
2012-03-05 [enhance] compiler, database, db3: Updated dbset generation (relative…
398 module Db3Set =
399 struct
400 let (!!) s = !! ("Db3Set." ^ s)
401 let engine = !! "engine"
402 end
403
642e9323 » BourgerieQuentin
2012-03-07 [fix] compiler, database: typo Db3 -> DbMongo
404 module DbMongoSet =
405 struct
406 let (!!) s = !! ("DbMongoSet." ^ s)
407 let engine = !! "engine"
408 end
409
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
410 module DbMongo =
411 struct
412 let (!!) s = !! ("DbMongo." ^ s)
870ccfbe » BourgerieQuentin
2012-01-24 [fix] dbgen: switch database typing according to backend
413 let t = !! "t"
5fdc6b9b » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) Common path typing beetween several backend…
414 let engine = !! "engine"
415 let val_path = !! "private.val_path"
416 let ref_path = !! "private.ref_path"
417 end
418
45d0b17b » mbarbin
2011-07-06 [enhance] rpc: add timeout feature in calls from server to clients
419 module Cell =
420 struct
421 let (!!) s = !! ("Cell." ^ s)
422 let timeout = !! "timeout"
423 end
424
fccc6851 » MLstate
2011-06-21 Initial open-source release
425 module Css =
426 struct
427 let (!!) s= !! ("Css." ^ s)
428 let background = !! "background"
429 let event = !! "event"
430 let length = !! "length"
431 let percentage = !! "percentage"
432 let prop_value_item = !! "prop_value_item"
433 let selector_item = !! "selector_item"
434 let size = !! "size"
435 let size_or_none = !! "size_or_none"
436 let size_or_normal = !! "size_or_normal"
437 end
438
439 module Cps =
440 struct
441 let (!!) s = !! ("Cps." ^ s)
442 let future = !! "future"
443 end
444
ccded04a » BourgerieQuentin
2012-01-24 [enhance] compiler: (big) added mongo accessors generation + database…
445 module DbSet =
446 struct
447 let (!!) s = !! ("DbSet." ^ s)
448 let query = !! "query"
449 end
450
fccc6851 » MLstate
2011-06-21 Initial open-source release
451 module Deprecated =
452 struct
453 let (!!) s = !! ("Deprecated." ^ s)
454 let argument = !! "argument"
455 end
456
457 module Dom =
458 struct
459 let (!!) s = !! ("Dom." ^ s)
460 let transformation = !! "transformation"
461 module Event =
462 struct
463 let (!!) s = !! ("event." ^ s)
464 let kind = !! "kind"
465 end
466 module Transformation =
467 struct
468 let (!!) s = !! ("Transformation." ^ s)
469 let subject = !! "subject"
470 end
471 end
472
45d0b17b » mbarbin
2011-07-06 [enhance] rpc: add timeout feature in calls from server to clients
473 module Exception =
474 struct
475 let (!!) s = !! ("Exception." ^ s)
476 let common = !! "common"
477 end
478
fccc6851 » MLstate
2011-06-21 Initial open-source release
479 module FunAction =
480 struct
481 let (!!) s = ("FunAction." ^ s)
482 let t = !! "t"
483 end
484
485 module OPA =
486 struct
487 let (!!) s = !! ("OPA." ^ s)
488 module Init =
489 struct
490 let (!!) s = !! ("Init." ^ s)
491 let value = !! "value"
492 end
493 end
494
495 module OpaRPC =
496 struct
497 let (!!) s = !! ("OpaRPC." ^s)
498 let request = !! "request"
45d0b17b » mbarbin
2011-07-06 [enhance] rpc: add timeout feature in calls from server to clients
499 let timeout = !! "timeout"
fccc6851 » MLstate
2011-06-21 Initial open-source release
500 end
501
502 module OpaSerialize =
503 struct
504 let (!!) s = !! ("OpaSerialize." ^s)
505 let options = !! "options"
506 end
507
508 module OpaTsc =
509 struct
510 let (!!) s = !! ("OpaTsc." ^s)
511 let t = !! "t"
512 end
513
514 module OpaType =
515 struct
516 let (!!) s = !! ("OpaType." ^s)
517 let col = !! "col"
518 let row = !! "row"
519 let ty = !! "ty"
520 let typevar = !! "typevar"
521 end
522
523 module Order =
524 struct
525 let (!!) s = !! ("Order." ^s)
526 let comparison = !! "comparison"
527 end
528
529 module Parser =
530 struct
531 let (!!) s = !! ("Parser." ^ s)
532 let general_parser = !! "general_parser"
533 end
534
535 module RPC =
536 struct
537 let (!!) s = !! ("RPC." ^s)
538 module Json =
539 struct
540 let (!!) s = !! ("Json." ^ s)
541 let json = !! "json"
542 end
de87e458 » nrs135
2011-09-19 [enhance] stdlib: Rename RPC.Bson.* to Bson.*.
543 end
544
fccc6851 » MLstate
2011-06-21 Initial open-source release
545 module ThreadContext =
546 struct
547 let (!!) s = !! ("ThreadContext." ^ s)
548 let t = (!!) "t"
549 end
550
551 module Xml =
552 struct
553 let (!!) s = !! ("Xml." ^ s)
554 let attribute = !! "attribute"
555 end
556
557 end
558
559
560 (**
561 Bypass inserted by the compiler
562 *)
563 module Opabsl =
564 struct
565
566 let table = Hashtbl.create 128
567
568 let (!!) s =
569 let s = BslKey.normalize s in
570 if Hashtbl.mem table s then (prerr_endline (BslKey.to_string s); assert false);
571 Hashtbl.add table s s;
572 s
573
574 module Badoplink =
575 struct
576 let (!!) s = !! ("Badoplink." ^ s)
577 let add_hole = !! "add_hole"
578 let add_key = !! "add_key"
579 let clear = !! "clear"
580 let create_dbset = !! "create_dbset"
581 let data_binary = !! "data_binary"
582 let data_float = !! "data_float"
583 let data_int = !! "data_int"
584 let data_obj_binary = !! "data_obj_binary"
585 let data_obj_float = !! "data_obj_float"
586 let data_obj_int = !! "data_obj_int"
587 let data_obj_text = !! "data_obj_text"
588 let data_text = !! "data_text"
589 let data_unit = !! "data_unit"
590 let db_prefix = !! "db_prefix"
591 let dbpath_add = !! "dbpath_add"
592 let dbpath_root = !! "dbpath_root"
593 let empty_partial_key = !! "empty_partial_key"
594 let error = !! "error"
595 let exists = !! "exists"
596 let fatal_error = !! "fatal_error"
597 let fold_children = !! "fold_children"
598 let fold_int_keys = !! "fold_int_keys"
599 let fold_string_keys = !! "fold_string_keys"
600 let get_new_key = !! "get_new_key"
601 let get_opt = !! "get_opt"
602 let get_registered_db_ident = !! "get_registered_db_ident"
603 let get_registered_root_edge = !! "get_registered_root_edge"
604 let is_db_new = !! "is_db_new"
605 let jlog = !! "jlog"
606 let key_int = !! "key_int"
607 let key_list = !! "key_list"
608 let key_string = !! "key_string"
609 let key_value_int = !! "key_value_int"
610 let key_value_string = !! "key_value_string"
611 let node_config_construct = !! "node_config_construct"
612 let node_properties = !! "node_properties"
613 let open_db = !! "open_db"
614 let register_db_ident = !! "register_db_ident"
615 let register_root_edge = !! "register_root_edge"
616 let remove_children = !! "remove_children"
617 let set = !! "set"
618 let set_current_copy = !! "set_current_copy"
619 let set_dbset_keys = !! "set_dbset_keys"
620 let set_link = !! "set_link"
621 let shall_i_upgrade = !! "shall_i_upgrade"
622 let trans_abort = !! "trans_abort"
623 let trans_commit = !! "trans_commit"
624 let trans_start = !! "trans_start"
625 let uppath = !! "uppath"
626 end
627
628 module BadopEngine =
629 struct
630 let (!!) s = !! ("Badop_engine." ^ s)
631 let check_remaining_arguments = !! "check_remaining_arguments"
632 let local_options = !! "local_options"
f7641399 » nrs135
2011-06-14 [feature] Badop_light: Attempt at OPA integration (partially successf…
633 let light_options = !! "light_options"
fccc6851 » MLstate
2011-06-21 Initial open-source release
634 let client_options = !! "client_options"
635 let get = !! "get"
636 end
637
638 module BslClientCode =
639 struct
640 let (!!) s = !! ("BslClientCode." ^ s)
641 let serialize_string_length = !! "serialize_string_length"
642 end
643
644 module BslClosure =
645 struct
646 let (!!) s = !! ("BslClosure." ^ s)
647 let create_and_register = !! "create_and_register"
648 let create_no_function_and_register = !! "create_no_function_and_register"
649 let define_function = !! "define_function"
650 end
651
652 module BslCps =
653 struct
654 let (!!) s = !! ("BslCps." ^ s)
4756eb92 » Raja
2011-09-13 [cleanup] bsl: opacapize cpsRewriter
655 let before_wait = !! "before_wait"
656 let black_make_barrier = !! "black_make_barrier"
657 let black_release_barrier = !! "black_release_barrier"
658 let black_toplevel_wait = !! "black_toplevel_wait"
659 let bt_add = !! "bt_add"
660 let callcc_directive = !! "callcc_directive"
661 let catch = !! "catch"
662 let catch_native = !! "catch_native"
663 let ccont = !! "ccont"
664 let ccont_native = !! "ccont_native"
665 let cont = !! "cont"
666 let cont_native = !! "cont_native"
667 let debug = !! "debug"
668 let fun_args2string = !! "fun_args2string"
669 let handler_cont = !! "handler_cont"
670 let magic_func = !! "magic_func"
671 let make_barrier = !! "make_barrier"
672 let release_barrier = !! "release_barrier"
673 let return = !! "return"
674 let spawn = !! "spawn"
675 let thread_context = !! "thread_context"
676 let toplevel_wait = !! "toplevel_wait"
677 let uncps_native = !! "uncps_native"
678 let wait = !! "wait"
679 let with_thread_context = !! "with_thread_context"
fccc6851 » MLstate
2011-06-21 Initial open-source release
680 module Notcps_compatibility =
681 struct
682 let (!!) s = !! ("Notcps_compatibility." ^ s)
683 let thread_context = !! "thread_context"
4756eb92 » Raja
2011-09-13 [cleanup] bsl: opacapize cpsRewriter
684 let dummy_cont = !! "dummy_cont"
09d9c9dc » OpaOnWindowsNow
2011-09-19 [enhance] qmlCpsRewriter: use opacapi in non cps mode
685 let max_cps_native = 5
686 (* define an array of !! "cps%d_native" from min_cps_native to max_cps_native *)
687 let cps_native =
688 let cps_native_str arity = Printf.sprintf "cps%d_native" arity in
689 let array = Array.init (max_cps_native+1) (fun i -> !! (cps_native_str i)) in
690 fun arity -> array.(arity)
fccc6851 » MLstate
2011-06-21 Initial open-source release
691 end
692 end
693
694 module BslInit =
695 struct
696 let (!!) s = !! ("BslInit." ^ s)
697 let set_executable_id = !! "set_executable_id"
698 end
699
700 module BslJsIdent =
701 struct
702 let (!!) s = !! ("BslJsIdent." ^ s)
703 let define_rename = !! "define_rename"
704 let set_cleaning_default_value = !! "set_cleaning_default_value"
705 end
706
707 module BslNativeLib =
708 struct
709 let (!!) s = !! ("BslNativeLib."^s)
710 let cons = !! "cons"
711 let empty_list = !! "empty_list"
712 end
713
714 module BslPervasives =
715 struct
716 let (!!) s = !! ("BslPervasives." ^ s)
717 let compare_raw = !! "compare_raw"
718 let fail = !! "fail"
719 let fail_cps = !! "fail_cps"
720 let return_exc = !! "return_exc"
721
722 module Magic =
723 struct
724 let (!!) s = !! ("Magic." ^ s)
725 let id = !! "id"
726 end
727 end
728
729 module BslReference =
730 struct
731 let (!!) s = !! ("BslReference." ^ s)
732 let create = !! "create"
733 end
734
735 module BslValue =
736 struct
737 let (!!) s = !! ("BslValue." ^ s)
738 module Tsc =
739 struct
740 let (!!) s = !! ("Tsc." ^ s)
741 let add = !! "add"
742 end
743 end
744
745 module Dbgraph =
746 struct
747 let (!!) s = !! ("Dbgraph." ^ s)
748 let diff = !! "diff"
749 let diff_message = !! "diff_message"
750 let diff_status = !! "diff_status"
751 let empty_diff = !! "empty_diff"
752 let get_diffed_schema = !! "get_diffed_schema"
753 let matching_edge = !! "matching_edge"
754 let print_tree = !! "print_tree"
755 end
756
757 module Path =
758 struct
759 let (!!) s = !! ("Path." ^ s)
760 let copy = !! "copy"
761 let embed_record_data = !! "embed_record_data"
762 let embedded_path = !! "embedded_path"
763 let get_lazy_info_opt = !! "get_lazy_info_opt"
764 let get_ref_path = !! "get_ref_path"
765 let get_val_path = !! "get_val_path"
766 let inject_record_data = !! "inject_record_data"
767 end
768
769 module Transactions =
770 struct
16819fc8 » Louis Gesbert
2011-07-08 [enhance] opa/transactions: refactored implem and interface, database…
771 let (!!) s = !! ("Opa_transaction." ^ s)
fccc6851 » MLstate
2011-06-21 Initial open-source release
772 let commit = !! "commit"
773 let continue = !! "continue"
774 let fail = !! "fail"
775 let get_global_transaction_opt = !! "get_global_transaction_opt"
776 let set_global_transaction = !! "set_global_transaction"
777 let start = !! "start"
778 end
779
780 module BslAppSrcCode =
781 struct
782 let (!!) s = !! ("BslAppSrcCode." ^ s)
783 let register_src_code = !! "register_src_code"
784 let register_special_src_code = !! "register_special_src_code"
785 end
786
787 end
Something went wrong with that request. Please try again.