hexpat-0.3: test.hs

import qualified Text.XML.Expat.IO as EIO
import qualified Text.XML.Expat.Tree as ETree
import qualified Data.ByteString.Lazy as B
import Data.Tree
import Data.Char

toByteString :: String -> B.ByteString
toByteString = B.pack . map (fromIntegral . ord)

main_eio doc = do
  parser <- EIO.newParser Nothing
  EIO.setStartElementHandler parser startElement
  EIO.parse parser doc
  putStrLn "ok"
  where
  startElement name attrs = putStrLn $ show name ++ " " ++ show attrs

main_tree doc = do
  let etree = ETree.parse Nothing doc
  --let dtree = toDTree etree
  --putStrLn (drawTree dtree)
  etree `seq` putStrLn "ok"
  where
  toDTree (ETree.Element name attrs kids) =
    Node ("<" ++ name ++ " " ++ show attrs ++ ">") (map toDTree kids)
  toDTree (ETree.Text str) = Node (show str) []

main = do
  let doc = "<foo baz='bah'><bar/><text>some &amp; text</text></foo>"
  xml <- readFile "test.xml"
  main_eio (toByteString xml)