~npalix/coccinelle/upstream

« back to all changes in this revision

Viewing changes to bundles/stdcompat/stdcompat-8/stdcompat__weak.ml.in

  • Committer: Thierry Martinez
  • Date: 2019-08-20 13:37:04 UTC
  • Revision ID: git-v1:0214afad4a32c95349c2c5a38e37cea407c455d0
Update bundles

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
type 'a t = 'a Weak.t
2
 
 
3
 
let create = Weak.create
4
 
 
5
 
let length = Weak.length
6
 
 
7
 
let set = Weak.set
8
 
 
9
 
let get = Weak.get
10
 
 
11
 
let get_copy = Weak.get_copy
12
 
 
13
 
let check = Weak.check
14
 
 
15
 
let fill = Weak.fill
16
 
 
17
 
let blit = Weak.blit
18
 
 
19
 
@BEGIN_FROM_4_05_0@
20
 
module type S = Weak.S
21
 
 
22
 
module Make = Weak.Make
23
 
@END_FROM_4_05_0@
24
 
 
25
 
@BEGIN_BEFORE_4_05_0@
26
 
module type S = sig
27
 
  type data
28
 
  type t
29
 
  val create : int -> t
30
 
  val clear : t -> unit
31
 
  val merge : t -> data -> data
32
 
  val add : t -> data -> unit
33
 
  val remove : t -> data -> unit
34
 
  val find : t -> data -> data
35
 
  val find_opt : t -> data -> data option
36
 
  val find_all : t -> data -> data list
37
 
  val mem : t -> data -> bool
38
 
  val iter : (data -> unit) -> t -> unit
39
 
  val fold : (data -> 'a -> 'a) -> t -> 'a -> 'a
40
 
  val count : t -> int
41
 
  val stats : t -> int * int * int * int * int * int
42
 
end
43
 
 
44
 
module Make (H : Hashtbl.HashedType) = struct
45
 
  include Weak.Make (H)
46
 
 
47
 
  let find_opt t d =
48
 
    Stdcompat__tools.option_find (find t) d
49
 
end
50
 
@END_BEFORE_4_05_0@