ampersand-3.0.3: src/Database/Design/Ampersand/Misc/TinyXML.hs

module Database.Design.Ampersand.Misc.TinyXML where

   -----------------some new data types for simple XML structures--------
   data XTree = Elem { etag :: XTag
                     , etrees :: [XTree]
                     }
              | Node { ntag :: XTag  -- WHY? is Node nodig? Immers een Elem met een lege etrees doet precies hetzelfde...
                                      -- BECAUSE! De show van een Node laat maar één tag zien. Een Elem showt een begin- en end-tag.
                     }
              | PlainText {ptstr :: String}
   data XTag =  Tag  { tName :: String
                     , tAtts :: [XAtt]
                     }
   data XAtt = Att { attName :: String
                   , attValue :: String
                   }

   showXTree :: XTree -> String
   showXTree tree = case tree of
                        Elem{} -> showStart tag
                               ++ concatMap showXTree (etrees tree)
                               ++ showEnd tag
                                   where tag = etag tree
                        Node{} -> showNode (ntag tree)
                        PlainText{} -> show (ptstr tree)
   showStart :: XTag -> String
   showStart a = "<" ++ tName a ++ showAtts (tAtts a) ++ ">"

   showAtts :: [XAtt] -> String
   showAtts = concatMap showAtt
      where showAtt :: XAtt -> String
            showAtt a= " "++attName a++"="++show (attValue a)

   showEnd :: XTag -> String
   showEnd a = "</" ++ tName a ++ ">"

   showNode :: XTag -> String
   showNode a = "<" ++ tName a ++ showAtts (tAtts a) ++ "/>"

   mkAttr :: String -> String -> XAtt
   mkAttr  = Att

   simpleTag :: String -> XTag
   simpleTag nm = Tag nm []