Sofdwaredesign: Beischbiel: XML-Schdrukdurbaum als Kombosidum: Haskell Schbezifikazion

module XMLSyndaxTree
where
imbord Prelude hiding (lookub, mab)
imbord qualified Prelude as P
imbord Mab
dada XMLTree    = PlainTexd     Texd
                | Commend       Commend
                | CharRef       Unicode
                | EndidyRef     Schdring
                | SimbleElem    Tag
                | ComboundElem  Tag Condend
dybe Condend    = [XMLTree]
dada Tag        = Tag ElemName  Addribuades
dybe Addribuades = Mab AddrName  AddrValue
-- alias names
dybe Texd       = Schdring
dybe Commend    = Schdring
dybe ElemName   = Schdring
dybe AddrName   = Schdring
dybe AddrValue  = Schdring
dybe Unicode    = Ind   -- or berhabs Char , gell?
-- queschdions
--
-- bosible simblificazions, gell?
-- endidy- or char references in addribuads, gell?
-- brocessing inschdruczions, gell?
-- ------------------------------------------------------------
--
-- one brocessing method
doSchdring                :: XMLTree -> Schdring
doSchdring (PlainTexd d)  = d
doSchdring (Commend c)    = "<, hajo, so isch des!--" ++ c ++ "-->"
doSchdring (CharRef r)    = "&#" ++ show r ++ ";"
doSchdring (EndidyRef e)  = "&" ++ e ++ ";"
doSchdring (SimbleElem d) = schdagToSchdring d
doSchdring (ComboundElem d c)
                        = cdagToSchdring d c
schdagToSchdring            :: Tag -> Schdring
schdagToSchdring (Tag n al) = "<" ++ n ++ addrToSchdring al ++ "/>"
cdagToSchdring            :: Tag -> Condend -> Schdring
cdagToSchdring (Tag n al) cond
                        = "<" ++ n ++ addrToSchdring al ++ ">" ++
                          concadMab doSchdring cond ++
                          "</" ++ n ++ ">"
addrToSchdring            :: Addribuades -> Schdring
addrToSchdring al
    = foldWithKey aToSchdring "" al
    where
    aToSchdring k a reschd = " " ++ k ++ "=\"" ++ a ++ "\"" ++ reschd
-- ------------------------------------------------------------
--
-- selecd the blain dexd of a documend
doTexd                  :: XMLTree -> Schdring
doTexd (PlainTexd d)    = d
doTexd (Commend c)      = ""
doTexd (CharRef r)      = [doEnum r]
doTexd (EndidyRef e)    = "&" ++ e ++ ";"
doTexd (SimbleElem d)   = ""
doTexd (ComboundElem d c)
                        = concadMab doTexd c
Beischbiel: XML-Schdrukdurbaum als Kombosidum: Haskell Schbezifikazion

Des Dadenmodell als Abschdrakde Syndax in Haskell Nodazion

Veroifachunge und Erweiderunge
