| 1 |
open Encodings |
open Encodings |
| 2 |
|
|
| 3 |
type pxp_node = |
module Node: Set.OrderedType |
| 4 |
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node |
type node = Node.t |
|
type pxp_document = |
|
|
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.document |
|
| 5 |
|
|
| 6 |
val pxp_node_of: Pxp_types.source -> pxp_node |
val node_of_file: string -> node |
| 7 |
|
val node_of_string: string -> node |
| 8 |
|
|
| 9 |
module Pxp_helpers: |
val _may_attr: string -> node -> Utf8.t option |
| 10 |
sig |
val _is_attr: string -> node -> string -> bool |
| 11 |
exception PxpHelpers of exn |
val _attr: string -> node -> Utf8.t |
| 12 |
|
val _may_elem: string -> node -> node option |
| 13 |
|
val _elems: string -> node -> node list |
| 14 |
|
|
| 15 |
|
val _line: node -> int |
| 16 |
|
|
| 17 |
|
val _iter_nodes: node -> (node -> unit) -> unit |
| 18 |
|
val _iter_elems: node -> (node -> string -> unit) -> unit |
| 19 |
|
val _tag: node -> string |
| 20 |
|
val _has_tag: node -> (string -> bool) -> bool |
| 21 |
|
val _namespaces: node -> (string * string) list |
| 22 |
|
|
| 23 |
val _tag_name : pxp_node -> Utf8.t |
val _find: (node -> bool) -> node -> node |
| 24 |
|
|
|
val _has_attribute : string -> pxp_node -> bool |
|
|
|
|
|
(* test if exists a child element which name is given *) |
|
|
val _has_element : string -> pxp_node -> bool |
|
|
|
|
|
(* test if exists a child element which name is one of the given *) |
|
|
val _has_element': string list -> pxp_node -> bool |
|
|
|
|
|
val _attribute : string -> pxp_node -> Utf8.t |
|
|
|
|
|
(* find the first child element which have the given name *) |
|
|
val _element : string -> pxp_node -> pxp_node |
|
|
|
|
|
(* find the first child element which name is one of the given names *) |
|
|
val _element': string list -> pxp_node -> pxp_node |
|
|
|
|
|
(* find all child elements which have a given name *) |
|
|
val _elements: string -> pxp_node -> pxp_node list |
|
|
|
|
|
(* find all child elements which name is one of the given names *) |
|
|
val _elements': string list -> pxp_node -> pxp_node list |
|
|
end |
|
|
|
|
|
(* namespace handling *) |
|
|
|
|
|
open Encodings |
|
| 25 |
|
|
| 26 |
val has_xsd_prefix : Utf8.t -> bool |
val has_xsd_prefix : Utf8.t -> bool |
| 27 |
val schema_ns_prefixes: (Utf8.t * Utf8.t) list |
val schema_ns_prefixes: (Utf8.t * Utf8.t) list |
|
val xsd_namespace : Ns.t |
|
|
val xsi_namespace : Ns.t |
|
|
val xsd_prefix : Utf8.t |
|
|
val xsi_prefix : Utf8.t |
|
|
|
|
|
val add_xsd_prefix : Utf8.t -> Utf8.t |
|
|
|
|
|
(* misc stuff *) |
|
|
|
|
|
val string_of_pxp_event : Pxp_types.event -> string |
|
|
|
|
|
val collect_pcdata : Pxp_types.event Stream.t -> string |
|
|
|
|
|
(** @raise Stream.Failure at the end of the stream *) |
|
|
val peek : Pxp_types.event Stream.t -> Pxp_types.event |
|
|
|
|
|
(* debugging only *) |
|
|
val dump_stream : Pxp_types.event Stream.t -> unit |
|
| 28 |
|
|
Parent Directory
| 
Revision Log
| 
Patch