Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 32 lines (19 sloc) 0.491 kB
b201f0b @VictorNicollet Copyright year
authored
1 (* Ohm is © 2012 Victor Nicollet *)
991ccf1 @VictorNicollet Initial import of Ohm
authored
2
3 type call = {
4 name : string ;
a00cb7c @VictorNicollet Rename Json_type to Json
authored
5 args : Json.t list
991ccf1 @VictorNicollet Initial import of Ohm
authored
6 }
7
8d117c2 @VictorNicollet Define JS endpoints
authored
8 module Endpoint : sig
9
10 type t
11
12 val of_url : string -> t
13 val of_js : name:string -> args:Json.t list -> t
14
15 val to_json : t -> Json.t
16
17 end
18
991ccf1 @VictorNicollet Initial import of Ohm
authored
19 type t = Leaf of call | Node of t list
20
21 val empty : t
22
a00cb7c @VictorNicollet Rename Json_type to Json
authored
23 val make : name:string -> args:Json.t list -> t
8d117c2 @VictorNicollet Define JS endpoints
authored
24
991ccf1 @VictorNicollet Initial import of Ohm
authored
25 val seq : t list -> t
26
27 val list_of_tree : t -> call list
28
8c9c334 @VictorNicollet Adding to-string and to-json writing for HTML
authored
29 val to_script : t -> string
30 val to_event : t -> string
a00cb7c @VictorNicollet Rename Json_type to Json
authored
31 val to_json : t -> Json.t
Something went wrong with that request. Please try again.