Source file oassocb.ml

open Common

open Oassoc

class ['a,'b] oassocb xs = 
  object(o)
    inherit ['a,'b] oassoc

    val data = Map_.empty

    method empty = {< data = Map_.empty >}
    method add (k,v) = {< data = Map_.add k v data >}
    method replkey (k,v) = {< data = Map_.add k v (Map_.remove k data) >}
    method iter f = Map_.iter (Common2.curry f) data
    method view = raise Todo

    method del (k,v) = {< data = Map_.remove k data >}
    method mem e = raise Todo
    method null = (Map_.is_empty data)

    method assoc k = Map_.find k data
    method delkey k = {< data = Map_.remove k data >}

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