Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 57 lines (46 sloc) 1.424 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 */
62c92c3 [doc] review: Review of stdlib.core
Guillem Rieu authored
18
19 /**
20 * {1 About this module}
21 *
22 * {1 Where should I start ?}
23 *
24 * {1 What if I need more?}
25 */
26
27 /**
28 * {1 Types defined in this module}
29 */
30
fccc685 Initial open-source release
MLstate authored
31 type ServerAst.code = llarray(ServerAst.code_elt)
32 type ServerAst.code_elt = {
33 ident : option(ServerAst.ident);
34 client_equivalent : option(JsAst.ident);
35 defines : ServerAst.definition;
36 ident_deps : llarray(ServerAst.ident)
37 rpc_deps : llarray(ServerAst.rpc_key);
38 type_deps : llarray(ServerAst.type_key);
39 root : Server.reference(bool);
40 }
41
42 type ServerAst.definition =
43 {rpc:ServerAst.rpc_key}
44 / {`type`:ServerAst.type_key}
45 / {nothing}
46 type ServerAst.rpc_key = string
47 type ServerAst.type_key = string
48 type ServerAst.ident = JsAst.ident
49
62c92c3 [doc] review: Review of stdlib.core
Guillem Rieu authored
50 /**
51 * {1 Interface}
52 */
53
fccc685 Initial open-source release
MLstate authored
54 ServerAst = {{
55 fold_code = LowLevelArray.fold
56 }}
Something went wrong with that request. Please try again.