equal
deleted
inserted
replaced
34 val make1: key * 'a -> 'a table |
34 val make1: key * 'a -> 'a table |
35 val make2: key * 'a -> key * 'a -> 'a table |
35 val make2: key * 'a -> key * 'a -> 'a table |
36 val make3: key * 'a -> key * 'a -> key * 'a -> 'a table |
36 val make3: key * 'a -> key * 'a -> key * 'a -> 'a table |
37 type 'a cache_ops = {apply: key -> 'a, reset: unit -> unit, size: unit -> int}; |
37 type 'a cache_ops = {apply: key -> 'a, reset: unit -> unit, size: unit -> int}; |
38 val unsynchronized_cache: (key -> 'a) -> 'a cache_ops |
38 val unsynchronized_cache: (key -> 'a) -> 'a cache_ops |
|
39 val apply_unsynchronized_cache: (key -> 'a) -> key -> 'a |
39 type set = int table |
40 type set = int table |
40 val add_set: key -> set -> set |
41 val add_set: key -> set -> set |
41 val make_set: key list -> set |
42 val make_set: key list -> set |
42 val make1_set: key -> set |
43 val make1_set: key -> set |
43 val make2_set: key -> key -> set |
44 val make2_set: key -> key -> set |
87 fun make2 e1 e2 = build (add e1 #> add e2); |
88 fun make2 e1 e2 = build (add e1 #> add e2); |
88 fun make3 e1 e2 e3 = build (add e1 #> add e2 #> add e3); |
89 fun make3 e1 e2 e3 = build (add e1 #> add e2 #> add e3); |
89 |
90 |
90 type 'a cache_ops = 'a Table.cache_ops; |
91 type 'a cache_ops = 'a Table.cache_ops; |
91 val unsynchronized_cache = Table.unsynchronized_cache; |
92 val unsynchronized_cache = Table.unsynchronized_cache; |
|
93 val apply_unsynchronized_cache = Table.apply_unsynchronized_cache; |
92 |
94 |
93 |
95 |
94 (* set with order of addition *) |
96 (* set with order of addition *) |
95 |
97 |
96 type set = int table; |
98 type set = int table; |