commons/oassocid.ml

   1 open Common
   2 open Oassoc
   3
   4 (* just a class that behave as fun x -> x *)
   5 class ['a] oassoc_id xs =
   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 = {<  >}
  20 end