-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-
-type ext_id = Pxp_types.ext_id =
- System of string
- | Public of (string * string)
- | Anonymous
-type dtd_id = Pxp_types.dtd_id=
- External of ext_id
- | Derived of ext_id
- | Internal
-type content_model_type = Pxp_types.content_model_type =
- Unspecified
- | Empty
- | Any
- | Mixed of mixed_spec list
- | Regexp of regexp_spec
-and mixed_spec = Pxp_types.mixed_spec =
- MPCDATA
- | MChild of string
-and regexp_spec = Pxp_types.regexp_spec =
- Optional of regexp_spec
- | Repeated of regexp_spec
- | Repeated1 of regexp_spec
- | Alt of regexp_spec list
- | Seq of regexp_spec list
- | Child of string
-type att_type = Pxp_types.att_type =
- A_cdata
- | A_id
- | A_idref
- | A_idrefs
- | A_entity
- | A_entities
- | A_nmtoken
- | A_nmtokens
- | A_notation of string list
- | A_enum of string list
-type att_default = Pxp_types.att_default =
- D_required
- | D_implied
- | D_default of string
- | D_fixed of string
-type att_value = Pxp_types.att_value =
- Value of string
- | Valuelist of string list
- | Implied_value
-
-class collect_warnings =
-object
- val mutable w = Buffer.create 100
- method print_warnings =
- Buffer.contents w
- method reset =
- Buffer.clear w
- method warn s =
- Buffer.add_string w ("WARNING: " ^ s ^ "\n")
-end
-
-exception Illegal_character of int
-exception Validation_error = Pxp_types.Validation_error
-exception WF_error = Pxp_types.WF_error
-exception Character_not_supported = Pxp_types.Character_not_supported
-exception Bad_character_stream = Netconversion.Malformed_code
-exception At = Pxp_types.At
-exception Undeclared = Pxp_types.Undeclared
-
-let string_of_exn = Pxp_types.string_of_exn
-
-type output_stream = Pxp_types.output_stream =
- Out_buffer of Buffer.t
- | Out_channel of out_channel
- | Out_function of (string -> int -> int -> unit)
-
-let write = Pxp_types.write
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1 2000/11/17 09:57:30 lpadovan
- * Initial revision
- *
- * Revision 1.5 2000/08/18 20:19:16 gerd
- * Updates in the emulation because of PXP changes.
- *
- * Revision 1.4 2000/07/16 18:30:15 gerd
- * Updated because PXP does no longer have the exception
- * Illegal_character.
- *
- * Revision 1.3 2000/07/14 21:35:35 gerd
- * Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.2 2000/07/08 17:40:50 gerd
- * Updated the simulation.
- *
- * Revision 1.1 2000/05/29 23:43:51 gerd
- * Initial compatibility revision.
- *
- *)