[bpt/coccinelle.git] / commons / ocollection / oassocid.ml

open Common
open Oassoc

(* just a class that behave as fun x -> x *)
class ['a] oassoc_id xs =
  object(o)
    inherit ['a,'a] oassoc

    method empty = {< >}
    method add (k,v) = {<  >}
    method iter f = raise Todo
    method view = raise Todo

    method del (k,v) = {<  >}
    method mem e = raise Todo
    method null = raise Todo

    method assoc k = k
    method delkey k = {<  >}

    method keys =
      List.map fst (o#tolist)

end
Commit	Line	Data
34e49164 C	1	open Common
	2	open Oassoc
	3
	4	(* just a class that behave as fun x -> x *)
ae4735db	5	class ['a] oassoc_id xs =
34e49164 C	6	object(o)
	7	inherit ['a,'a] oassoc
	8
	9	method empty = {< >}
	10	method add (k,v) = {< >}
	11	method iter f = raise Todo
	12	method view = raise Todo
	13
	14	method del (k,v) = {< >}
	15	method mem e = raise Todo
	16	method null = raise Todo
	17
	18	method assoc k = k
	19	method delkey k = {< >}
91eba41f	20
ae4735db	21	method keys =
91eba41f C	22	List.map fst (o#tolist)
91eba41f C	23
ae4735db	24	end