Commit c93adfda authored by gerd's avatar gerd

Improvement: 'write' writes sorted attributes. This makes

many regression tests simpler.


git-svn-id: https://godirepo.camlcity.org/svn/lib-pxp/trunk@350 dbe99aee-44db-0310-b2b3-d33182c8eb97
parent d6bb42e6
(* $Id: pxp_dtd.ml,v 1.15 2001/04/22 14:14:41 gerd Exp $
(* $Id: pxp_dtd.ml,v 1.16 2001/06/07 22:48:38 gerd Exp $
* ----------------------------------------------------------------------
* PXP: The polymorphic XML parser for Objective Caml.
* Copyright by Gerd Stolpmann. See LICENSE for details.
......@@ -404,10 +404,6 @@ class dtd the_warner init_encoding =
if doctype then
wms "]>\n";
method write_compact_as_latin1 os doctype =
self # write os `Enc_iso88591 doctype
(************************************************************)
(* VALIDATION *)
......@@ -834,13 +830,10 @@ and dtd_element the_dtd the_name =
wms "\"";
);
)
attributes;
(List.sort (fun (n1,x1) (n2,x2) -> compare n1 n2) attributes);
wms ">\n";
method write_compact_as_latin1 os =
self # write os `Enc_iso88591
(************************************************************)
(* VALIDATION *)
(************************************************************)
......@@ -990,9 +983,6 @@ object (self)
);
wms ">\n";
method write_compact_as_latin1 os =
self # write os `Enc_iso88591
end
and proc_instruction the_target the_value init_encoding =
......@@ -1024,9 +1014,6 @@ object (self)
wms value;
wms "?>";
method write_compact_as_latin1 os =
self # write os `Enc_iso88591
method parse_pxp_option =
let lexers = get_lexer_set encoding in
try
......@@ -1050,6 +1037,10 @@ object (self)
* History:
*
* $Log: pxp_dtd.ml,v $
* Revision 1.16 2001/06/07 22:48:38 gerd
* Improvement: 'write' writes sorted attributes. This makes
* many regression tests simpler.
*
* Revision 1.15 2001/04/22 14:14:41 gerd
* Updated to support private IDs.
*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment