[bpt/coccinelle.git] / commons / osequence.ml

open Oassoc

class virtual ['a] osequence =
object(o: 'o)
  (* inherit ['a] ocollection *)
  inherit [int, 'a] oassoc

  method virtual nth: int -> 'a
  method virtual first: 'a
  method virtual last: 'a
  (* head tail push pop top cons snoc *)
end
Commit	Line	Data
34e49164 C	1	open Oassoc
	2
	3	class virtual ['a] osequence =
	4	object(o: 'o)
	5	(* inherit ['a] ocollection *)
	6	inherit [int, 'a] oassoc
	7
	8	method virtual nth: int -> 'a
	9	method virtual first: 'a
	10	method virtual last: 'a
	11	(* head tail push pop top cons snoc *)
	12	end
	13