sig
  val line_and_column_of_location :
    Camlp4.PreCast.Ast.Loc.t -> int * int option
  val string_of_ident : Camlp4.PreCast.Ast.ident -> string
  val use_original_syntax : bool Pervasives.ref
  val check_white :
    string -> string -> (string -> unit) -> Camlp4.Sig.camlp4_token -> unit
  val check_not_white :
    string -> string -> (string -> unit) -> Camlp4.Sig.camlp4_token -> unit
  val check_first_white :
    string ->
    string ->
    (string -> unit) -> ('a * 'b * Camlp4.Sig.camlp4_token) list -> unit
  val check_first_not_white :
    string ->
    string ->
    (string -> unit) -> ('a * 'b * Camlp4.Sig.camlp4_token) list -> unit
  val print_structure : Camlp4.PreCast.Ast.str_item -> unit
  val print_signature : Camlp4.PreCast.Ast.sig_item -> unit
  val string_of_token : Camlp4.Sig.camlp4_token -> string
  val print_tokens : (int * int * Camlp4.Sig.camlp4_token) list -> unit
  val binary_names : string list
  val is_revised_binary : string -> bool
  val predefined_modules : string list
end