1 (* !!take care!!: this classe have side effect, not a pure oassoc *)
2 class ['a
, 'b
] oassoc_buffer
:
4 (< add
: 'a
* 'b
-> 'd
; assoc
: 'a
-> 'b
; del
: 'a
* 'b
-> 'd
;
5 delkey
: 'a
-> 'd
; iter
: ('a
* 'b
-> unit) -> unit; length
: int;
6 keys
: 'a list
; clear
: unit;
10 inherit ['a
,'b
] Oassoc.oassoc
12 (* ocollection concrete instantiation of virtual methods *)
14 method add
: 'a
* 'b
-> 'o
16 method iter
: ('a
* 'b
-> unit) -> unit
17 method view
: ('a
* 'b
, 'o
) Ocollection.view
19 method del
: 'a
* 'b
-> 'o
20 method mem
: 'a
* 'b
-> bool
23 (* oassoc concrete instantiation of virtual methods *)
24 method assoc
: 'a
-> 'b
25 method delkey
: 'a
-> 'o
29 (* ugly, from objet class, extension trick *)
30 method private myflush
: unit
31 method misc_op_hook2
: unit