else a.dummy
let dummy a = a.dummy
+(*
+ let iteri f a =
+ let line = a.line in
+ if a.offset == ~-1 then () else
+ for i = 0 to Array.length line - 1 do
+ let v = a.(i)
+ f (i+a.offset) v (v==a.dummy)
+ done
+*)
end
val find : 'a t -> int -> 'a
val add : 'a t -> int -> 'a -> unit
val dummy : 'a t -> 'a
-
+(* val iteri : (int -> 'a -> bool -> unit) -> 'a t -> unit *)
end
module Lvl2:
val find : 'a t -> int -> int -> 'a
val add : 'a t -> int -> int -> 'a -> unit
val dummy : 'a t -> 'a
-
+(* val iteri : (int -> int -> 'a -> bool -> unit) -> 'a t -> unit*)
end
module Lvl3 :
val find : 'a t -> int -> int -> int -> 'a
val add : 'a t -> int -> int -> int -> 'a -> unit
val dummy : 'a t -> 'a
+(* val iteri : (int -> int -> int -> 'a -> bool -> unit) -> 'a t -> unit*)
end