package diffast-core

  1. Overview
  2. Docs
module Xhash = Diffast_misc.Xhash
module Xprint = Diffast_misc.Xprint
module XML = Diffast_misc.XML
module SB = Spec_base
exception Parse_error of string * string
exception Error of string
type ignored = (int * int) list
class virtual tree_builder : object ... end
class tree_factory : < check_extension : string -> bool.. > -> tree_builder -> object ... end
type opts_t = Parser_options.c
class type lang_t = object ... end
class c : ?subname:string option -> make_tree_builder:(opts_t -> tree_builder) -> extract_fact:(opts_t -> string -> Spec.tree_t -> unit) -> ?get_cache_key:(S.file -> string) option -> ?node_filter:(opts_t -> Spec.node_t -> bool) option -> string -> object ... end
val _register_spec : (string, 'a) Hashtbl.t -> 'a -> string list -> unit
val _register_external_specs : (string, 'a * 'b) Hashtbl.t -> 'a -> ('b * string list) list -> unit
val register_spec : string -> string list -> unit
val register_external_specs : string -> (string * string list) list -> unit
val find_pname : string -> string
val find_xpname : string -> string * string
val iter_pname_map : (string -> string -> unit) -> unit
val iter_xpname_map : (string -> (string * string) -> unit) -> unit
val remove_pname_map : string -> unit
val remove_xpname_map : string -> unit
val _register_external : 'a Diffast_core.Spec.Xset.t -> ('a, 'b) Hashtbl.t -> 'c -> 'a -> ('a -> 'c -> 'b) -> unit
val _register : 'a Diffast_core.Spec.Xset.t -> ('a, 'b) Hashtbl.t -> 'a -> ('a -> 'b) -> unit
val load_lang_specs : < verbose_flag : bool.. > -> unit -> unit
val _setup_options : string Diffast_core.Spec.Xset.t -> (string, 'a) Hashtbl.t -> (string, 'b) Hashtbl.t -> (< add_extensions : string list -> 'd ; designated_parser : string ; is_disabled_parser : string -> bool ; set_get_cache_name_for_file1 : (< get_extension : 'f.. > as 'e -> 'g) -> 'h ; verbose_flag : bool.. > as 'c -> 'f -> < get_cache_key : 'e -> 'g.. >) -> 'c -> 'h
val register_external : string -> string -> (string -> string -> lang_t) -> unit
val register : string -> (string -> lang_t) -> unit
val setup_options : opts_t -> unit
type tie_id = string * string
val null_tid : string * string
val mktid : 'a -> 'b -> 'a * 'b
val tid_to_string : (string * string) -> string
val hash_of_tid : tie_id -> string
val anonymize_tid : ?more:bool -> tie_id -> string * string
val mkstmttidattr : tie_id -> (string * string) list
val mktidattr : tie_id -> (string * string) list
val tree_of_file : opts_t -> S.file -> Spec.tree_t
OCaml

Innovation. Community. Security.