/usr/lib/ocaml/pxp-engine/pxp_codewriter.mli is in libpxp-ocaml-dev 1.2.4-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | (* $Id: pxp_codewriter.mli 732 2009-01-23 22:10:23Z gerd $
* ----------------------------------------------------------------------
* PXP: The polymorphic XML parser for Objective Caml.
* Copyright by Gerd Stolpmann. See LICENSE for details.
*)
(** Generate O'Caml code for creating large constant XML trees *)
open Pxp_document
open Pxp_yacc
open Pxp_dtd
(** See also {!Pxp_marshal} for direct marshalling functions. *)
val write_document : out_channel -> 'ext document -> unit
(** Writes O'Caml code to the [out_channel] so that when the code
* is compiled and executed, a fresh document is created with the
* same contents as the passed document:
*
* {[ "let create_document ?enable_namespace_processing config spec = ...;;" ]}
*
* If you compile the code and call [create_document config spec] the
* function creates a document tree which is (almost) equal to the
* passed document.
*
* The following properties may not be equal:
* - Parsed entities
* - Whether a declaration occurs in an external entity or not
*
* - [config]: The configuration to assume for re-creating the tree
* - [spec]: a {!Pxp_document.spec}
* - [enable_namespace_processing]: You can pass here a namespace_manager
* to enable the namespace code (default: no namespace processing)
*)
val write_subtree : out_channel -> 'ext node -> unit
(** Writes O'Caml code to the [out_channel] so that when the code
* is compiled and executed, a fresh tree is created with the
* same contents as the passed tree:
*
* {[ "let create_subtree dtd spec = ...;;" ]}
*
* If you compile the code and call [create_subtree dtd spec] the
* function creates a DTD object which is equal to the passed object.
*
* - [dtd]: a DTD object
* - [spec]: a Pxp_document.spec
*)
|