module CommentFilter:Camlp4.Struct.CommentFilter.Make
(
Token
)
typet =
(string * Token.Loc.t) Stream.t * (string * Token.Loc.t) Queue.t
val mk : unit -> 'a Stream.t * 'a Queue.t
val filter : 'a * (string * 'b) Queue.t ->
(Camlp4.Sig.camlp4_token * 'b) Stream.t ->
(Camlp4.Sig.camlp4_token * 'b) Stream.t
val take_list : 'a * 'b Queue.t -> 'b list
val take_stream : 'a * 'b -> 'a
val define : Token.Filter.t -> 'a * (string * Token.Loc.t) Queue.t -> unit