simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 03:35:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

a few more combinators for Behavior

Browse source
This commit is contained in:
Simon Cruanes 2013-05-31 12:20:13 +02:00
parent fa40412216
commit a45fccca98
2 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
behavior.ml
View file

@ -77,9 +77,9 @@ let test_signal s = TestFun (fun () -> React.S.value s)
let wait e = Wait e let wait e = Wait e
let timeout f = Sequence (false, [Timeout f; Fail]) let timeout f = Sequence (false, [Timeout f; fail])
let delay f = Sequence (false, [Timeout f; Succeed]) let delay f = Sequence (false, [Timeout f; succeed])
let do_ act = Do act let do_ act = Do act
@ -87,10 +87,16 @@ let do_succeed act = Do (fun () -> act (); true)
let if_ s then_ else_ = If (s, then_, else_) let if_ s then_ else_ = If (s, then_, else_)
let when_ s t = if_ s t succeed
let while_ s l = Sequence (true, (test_signal s) :: l)
let sequence ?(loop=false) l = let sequence ?(loop=false) l =
assert (l <> []); assert (l <> []);
Sequence (loop, l) Sequence (loop, l)
let repeat t = sequence ~loop:true [t]
let select ?(strat=strategy_inorder) l = let select ?(strat=strategy_inorder) l =
assert (l <> []); assert (l <> []);
Select (strat, l) Select (strat, l)

9
behavior.mli
View file

@ -109,9 +109,18 @@ val do_succeed : (unit -> unit) -> tree
val if_ : bool React.signal -> tree -> tree -> tree val if_ : bool React.signal -> tree -> tree -> tree
(** Conditional choice, based on the current value of the signal *) (** Conditional choice, based on the current value of the signal *)
val when_ : bool React.signal -> tree -> tree
(** Run the given tree if the signal is true, else succeed *)
val while_ : bool React.signal -> tree list -> tree
(** While the signal is true, run the subtrees *)
val sequence : ?loop:bool -> tree list -> tree val sequence : ?loop:bool -> tree list -> tree
(** Sequence of sub-trees to run *) (** Sequence of sub-trees to run *)
val repeat : tree -> tree
(** Repeat the same tree indefinitely *)
val select : ?strat:select_strategy -> tree list -> tree val select : ?strat:select_strategy -> tree list -> tree
(** Choice among the subtrees. The strategy defines in which order subtrees (** Choice among the subtrees. The strategy defines in which order subtrees
are tried. *) are tried. *)