simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-28 12:24:50 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleanup: remove dead code

Browse source
This commit is contained in:
Simon Cruanes 2019-10-30 13:41:02 -05:00
parent 9ddce6a186
commit 44e168495b
2 changed files with 0 additions and 53 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
src/util/Event.ml
View file

@ -1,38 +0,0 @@
type 'a small_set =
| S0
| S1 of 'a
| S2 of 'a * 'a
| S3 of 'a * 'a * 'a * 'a small_set
type 'a t = {
mutable set: ('a -> unit) small_set;
}
let[@unroll 1] rec cons_ f set = match set with
| S0 -> S1 f
| S1 f2 -> S2(f,f2)
| S2(f2,f3) -> S3 (f,f2,f3, S0)
| S3(f1,f2,f3,tl) -> S3 (f,f1,f2,cons_ f3 tl)
let on (e:_ t) f : unit =
let set' = cons_ f e.set in
e.set <- set'
module Emitter = struct
type nonrec 'a t = 'a t
let rec fire_set_ set x =
match set with
| S0 -> ()
| S1 f -> f x
| S2 (f1,f2) -> f1 x; f2 x
| S3 (f1,f2,f3,tl) -> f1 x; f2 x; f3 x; fire_set_ tl x
let[@inline] fire e x = fire_set_ e.set x
end
let make () =
let e = {set=S0} in
e, e

15
src/util/Event.mli
View file

@ -1,15 +0,0 @@
(** {1 Observer pattern} *)
type 'a t
val on : 'a t -> ('a -> unit) -> unit
module Emitter : sig
type 'a t
val fire : 'a t -> 'a -> unit
end
val make : unit -> 'a t * 'a Emitter.t