HOL-OCL
/
su4sml
1
0
Fork 0
Code Issues Pull Requests Releases Activity

handle output of Text nodes when writing XML trees 

git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3173 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
Jürgen Doser 2005-10-05 16:13:27 +00:00
parent 190a9166dd
commit a8f529d490
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/xmltree_parser.sml
View File

@ -273,7 +273,10 @@ fun writeIndent stream 0 = ()
| writeIndent stream n = (TextIO.output (stream, " "); writeIndent stream (n-1))
fun writeXmlTree indent stream tree =
fun writeXmlTree indent stream (Text s) =
(writeIndent stream indent;
TextIO.output (stream, s^"\n"))
| writeXmlTree indent stream tree =
let val elemName = escape (tagname_of tree)
in
writeIndent stream indent;