Module Camlp4.Struct.Token.Make.Filter


module Filter: sig .. end

type token_filter = (Camlp4.Struct.Token.Make.t, Camlp4.Struct.Token.Make.Loc.t)
Camlp4.Sig.stream_filter

type t = {
   is_kwd : string -> bool;
   mutable filter : token_filter;
}
val mk : (string -> bool) -> t
val filter : t ->
(t * Camlp4.Struct.Token.Make.Loc.t) Stream.t ->
(t * Camlp4.Struct.Token.Make.Loc.t) Stream.t
val define_filter : t ->
(token_filter ->
token_filter) ->
unit
val keyword_added : 'a -> 'b -> 'c -> unit
val keyword_removed : 'a -> 'b -> unit