diff options
| author | krasimir <krasimir@chalmers.se> | 2009-12-13 18:50:29 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-12-13 18:50:29 +0000 |
| commit | f85232947e74ee7ef8c7b0ad2338212e7e68f1be (patch) | |
| tree | 667b886a5e3a4b026a63d4e3597f32497d824761 /src/GF/Data/XML.hs | |
| parent | d88a865faff59c98fc91556ff8700b10ee5f2df8 (diff) | |
reorganize the directories under src, and rescue the JavaScript interpreter from deprecated
Diffstat (limited to 'src/GF/Data/XML.hs')
| -rw-r--r-- | src/GF/Data/XML.hs | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs deleted file mode 100644 index bdc6f98a1..000000000 --- a/src/GF/Data/XML.hs +++ /dev/null @@ -1,58 +0,0 @@ ----------------------------------------------------------------------- --- | --- Module : XML --- --- Utilities for creating XML documents. ----------------------------------------------------------------------- -module GF.Data.XML (XML(..), Attr, comments, showXMLDoc, showsXMLDoc, showsXML, bottomUpXML) where - -import GF.Data.Utilities -import GF.Text.UTF8 - -data XML = Data String | CData String | Tag String [Attr] [XML] | ETag String [Attr] | Comment String | Empty - deriving (Ord,Eq,Show) - -type Attr = (String,String) - -comments :: [String] -> [XML] -comments = map Comment - -showXMLDoc :: XML -> String -showXMLDoc xml = showsXMLDoc xml "" - -showsXMLDoc :: XML -> ShowS -showsXMLDoc xml = encodeUTF8 . showString header . showsXML xml - where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>" - -showsXML :: XML -> ShowS -showsXML = showsX 0 where - showsX i x = ind i . case x of - (Data s) -> showString s - (CData s) -> showString "<![CDATA[" . showString s .showString "]]>" - (ETag t as) -> showChar '<' . showString t . showsAttrs as . showString "/>" - (Tag t as cs) -> - showChar '<' . showString t . showsAttrs as . showChar '>' . - 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 = concatS . map (showChar ' ' .) . map showsAttr - -showsAttr :: Attr -> ShowS -showsAttr (n,v) = showString n . showString "=\"" . showString (escape v) . showString "\"" - -escape :: String -> String -escape = concatMap escChar - where - escChar '<' = "<" - escChar '>' = ">" - escChar '&' = "&" - escChar '"' = """ - escChar c = [c] - -bottomUpXML :: (XML -> XML) -> XML -> XML -bottomUpXML f (Tag n attrs cs) = f (Tag n attrs (map (bottomUpXML f) cs)) -bottomUpXML f x = f x |