blob: 9c98df05953400d1353e4080ffed16bd8da663c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
class type serializable = object
method as_sexp : Sexplib.Sexp.t
end
class literal (expr : Sexplib.Sexp.t) : serializable = object
method as_sexp = expr
end
let of_sexp (expr : Sexplib.Sexp.t) = new literal expr
let of_string (s : string) = new literal (Sexplib.Sexp.Atom s)
let of_list (f : 'a -> serializable) (l : 'a list) : serializable =
new literal (Sexplib.Sexp.List (List.map (fun e -> (f e)#as_sexp) l))
type t = { name : string;
message : string;
properties : (string, serializable) BatMap.t }
let condition name message ?parent props =
{ name;
message;
properties =
parent
|> Option.map (fun { properties; _ } -> properties)
|> Option.value ~default:BatMap.empty
|> props }
let ( |=| ) name value = (fun p -> BatMap.add name value p)
let ( & ) l r = (fun p -> r (l p))
let empty = (fun p -> p)
let to_sexp { name; message; properties } =
let open Sexplib.Sexp in
let properties' =
BatMap.to_seq properties
|> BatSeq.map (fun (k, v) -> List [Atom k; v#as_sexp])
|> BatList.of_seq in
List (Atom name :: Atom message :: properties')
let to_string e = (* FIXME *)
Sexplib.Sexp.to_string_hum (to_sexp e)
|
