sig
  type token_filter =
      (Camlp4.Sig.Token.t, Camlp4.Sig.Loc.t) Camlp4.Sig.stream_filter
  type t
  val mk : (string -> bool) -> Camlp4.Sig.Token.Filter.t
  val define_filter :
    Camlp4.Sig.Token.Filter.t ->
    (Camlp4.Sig.Token.Filter.token_filter ->
     Camlp4.Sig.Token.Filter.token_filter) ->
    unit
  val filter :
    Camlp4.Sig.Token.Filter.t -> Camlp4.Sig.Token.Filter.token_filter
  val keyword_added : Camlp4.Sig.Token.Filter.t -> string -> bool -> unit
  val keyword_removed : Camlp4.Sig.Token.Filter.t -> string -> unit
end