src/Pure/term_items.ML
changeset 81540 58073f3d748a
parent 81259 1c2be1fca2bd
equal deleted inserted replaced
81539:8e4ca2c87e86 81540:58073f3d748a
    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;