GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

newlines and indentation in XML printing

Browse Source
This commit is contained in:
aarne
2009-03-03 10:41:36 +00:00
parent d841f69f65
commit 3b881e20b2
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/GF/Data/XML.hs
View File

@@ -25,14 +25,18 @@ showsXMLDoc xml = encodeUTF8 . showString header . showsXML xml
where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>" where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"
showsXML :: XML -> ShowS showsXML :: XML -> ShowS
showsXML (Data s) = showString s showsXML = showsX 0 where
showsXML (CData s) = showString "<![CDATA[" . showString s .showString "]]>" showsX i x = ind i . case x of
showsXML (ETag t as) = showChar '<' . showString t . showsAttrs as . showString "/>" (Data s) -> showString s
showsXML (Tag t as cs) = (CData s) -> showString "<![CDATA[" . showString s .showString "]]>"
showChar '<' . showString t . showsAttrs as . showChar '>' (ETag t as) -> showChar '<' . showString t . showsAttrs as . showString "/>"
. concatS (map showsXML cs) . showString "</" . showString t . showChar '>' (Tag t as cs) ->
showsXML (Comment c) = showString "<!-- " . showString c . showString " -->" showChar '<' . showString t . showsAttrs as . showChar '>' .
showsXML (Empty) = id concatS (map (showsX (i+1)) cs) . ind i .
showString "</" . showString t . showChar '>'
(Comment c) -> showString "<!-- " . showString c . showString " -->"
(Empty) -> id
ind i = showString ("\n" ++ replicate (2*i) ' ')
showsAttrs :: [Attr] -> ShowS showsAttrs :: [Attr] -> ShowS
showsAttrs = concatS . map (showChar ' ' .) . map showsAttr showsAttrs = concatS . map (showChar ' ' .) . map showsAttr