Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 73 lines (55 sloc) 1.79 kb
fccc685 Initial open-source release
MLstate authored
1 (*
2 Copyright © 2011 MLstate
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 (**
20 Flat Compiler : Compilation of Expression
21 @author Mathieu Barbin
22 @author David Rajchenbach-Teller
23 @author Louis Gesbert
24 *)
25
26 (** {6 Field Registration} *)
27
28 type label = string
29
30 (**
31 Register a shared variable for fields.
32 All definition of shared fiels will be produced at toplevel,
33 in the beginning of the code.
34 *)
35 val register_field_name : label -> unit
36
37 (**
38 Probably needed: register all vtables, by folding type definitions.
39 *)
40
41 (** {6 Processing code} *)
42
43 (**
44 Where to load primitives from plugins.
45 Used by the pass BslLoading.
46 *)
47 val dynloader : Qml2ocaml.dynloader
48
49 (**
50 This is the function considered as the pass.
51 It contains the loading of previous environment,
52 the compilation of the current package,
53 the saving of the current environment, and the reset
54 of the private imperative tables of the flat.
55 *)
56 val qml_to_ocaml : Qml2ocaml.qml_to_ocaml
57
58 (**
59 For the consol application.
60 *)
61 val back_end : Qml2ocaml.back_end
62
63 (** {6 Options} *)
64
65 module Arg:
66 sig
67 val options : (Base.Arg.key * Base.Arg.spec * Base.Arg.doc) list
68 end
69
70 (** {6 Warnings} *)
71
72 val warning_set : WarningClass.Set.t
Something went wrong with that request. Please try again.