HaXml 1.19.4 → 1.19.5

raw patch · 48 files changed

+11004/−9654 lines, 48 filesdep +filepathPVP ok

version bump matches the API change (PVP)

Dependencies added: filepath

API changes (from Hackage documentation)

Files

• HaXml.cabal +2/−2
• Makefile +1/−1
• configure +1/−1
• docs/HaXml/Text-XML-HaXml-TypeMapping.html +252/−0
• docs/HaXml/Text-XML-HaXml-Wrappers.html +52/−0
• docs/HaXml/Text-XML-HaXml-XmlContent.html +252/−0
• docs/HaXml/doc-index-O.html +8/−0
• docs/HaXml/src/Text/XML/HaXml.html +42/−36
• docs/HaXml/src/Text/XML/HaXml/ByteStringPP.html +346/−340
• docs/HaXml/src/Text/XML/HaXml/Combinators.html +430/−424
• docs/HaXml/src/Text/XML/HaXml/DtdToHaskell/Convert.html +133/−127
• docs/HaXml/src/Text/XML/HaXml/DtdToHaskell/Instance.html +401/−393
• docs/HaXml/src/Text/XML/HaXml/DtdToHaskell/TypeDef.html +254/−248
• docs/HaXml/src/Text/XML/HaXml/Escape.html +297/−291
• docs/HaXml/src/Text/XML/HaXml/Html/Generate.html +181/−175
• docs/HaXml/src/Text/XML/HaXml/Html/Parse.html +731/−725
• docs/HaXml/src/Text/XML/HaXml/Html/ParseLazy.html +735/−729
• docs/HaXml/src/Text/XML/HaXml/Html/Pretty.html +240/−234
• docs/HaXml/src/Text/XML/HaXml/Lex.html +339/−333
• docs/HaXml/src/Text/XML/HaXml/OneOfN.html +670/−664
• docs/HaXml/src/Text/XML/HaXml/Parse.html +893/−884
• docs/HaXml/src/Text/XML/HaXml/ParseLazy.html +903/−889
• docs/HaXml/src/Text/XML/HaXml/Posn.html +82/−75
• docs/HaXml/src/Text/XML/HaXml/Pretty.html +304/−298
• docs/HaXml/src/Text/XML/HaXml/SAX.html +99/−93
• docs/HaXml/src/Text/XML/HaXml/ShowXmlLazy.html +333/−327
• docs/HaXml/src/Text/XML/HaXml/TypeMapping.html +296/−220
• docs/HaXml/src/Text/XML/HaXml/Types.html +298/−292
• docs/HaXml/src/Text/XML/HaXml/Util.html +47/−41
• docs/HaXml/src/Text/XML/HaXml/Validate.html +278/−272
• docs/HaXml/src/Text/XML/HaXml/Verbatim.html +97/−91
• docs/HaXml/src/Text/XML/HaXml/Wrappers.html +77/−61
• docs/HaXml/src/Text/XML/HaXml/XmlContent.html +895/−680
• docs/HaXml/src/Text/XML/HaXml/Xtract/Combinators.html +110/−104
• docs/HaXml/src/Text/XML/HaXml/Xtract/Lex.html +134/−128
• docs/HaXml/src/Text/XML/HaXml/Xtract/Parse.html +423/−417
• docs/changelog.html +4/−0
• docs/index.html +5/−3
• src/Makefile +1/−1
• src/Text/XML/HaXml/DtdToHaskell/Convert.hs +2/−2
• src/Text/XML/HaXml/DtdToHaskell/Instance.hs +3/−1
• src/Text/XML/HaXml/Lex.hs +1/−1
• src/Text/XML/HaXml/Parse.hs +27/−24
• src/Text/XML/HaXml/ParseLazy.hs +27/−19
• src/Text/XML/HaXml/Posn.hs +2/−1
• src/Text/XML/HaXml/TypeMapping.hs +70/−0
• src/Text/XML/HaXml/Wrappers.hs +10/−0
• src/Text/XML/HaXml/XmlContent.hs +216/−7

@@ -1,5 +1,5 @@ name:		HaXml-version:	1.19.4+version:	1.19.5 license:	LGPL license-file:	COPYRIGHT author:		Malcolm Wallace <Malcolm.Wallace@cs.york.ac.uk>@@ -50,7 +50,7 @@         Text.XML.HaXml.Xtract.Lex,         Text.XML.HaXml.Xtract.Parse   hs-source-dirs: src-  build-depends: base, haskell98, polyparse+  build-depends: base, haskell98, polyparse, filepath   if flag(splitBase)     build-depends: base >= 3, pretty, random, containers   else

@@ -1,5 +1,5 @@ SOFTWARE = HaXml-VERSION  = 1.19.4+VERSION  = 1.19.5  #CPP      = cpp -traditional CPP     = cpphs --text --noline	# useful e.g. on MacOS X

@@ -2,7 +2,7 @@ #       configure -- prepare to compile/install the HaXml package #       author:   Malcolm.Wallace@cs.york.ac.uk, August 2002 -VERSION="1.19.4"+VERSION="1.19.5"  if [ -f obj/prefix ] then INSTALLDIR=`cat obj/prefix`

@@ -483,6 +483,258 @@ ></TR ><TR ><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> k) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j, k)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> k, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> l) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j, k, l)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> k, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> l, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> m) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> k, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> l, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> m, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> n) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m, n)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> a, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> b, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> c, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> d, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> e, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> f, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> g, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> h, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> i, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> j, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> k, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> l, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> m, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> n, <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> o) =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"+>HTypeable</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)</TD+></TR+><TR+><TD CLASS="decl" ><A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable" >HTypeable</A > a =&gt; <A HREF="Text-XML-HaXml-TypeMapping.html#t%3AHTypeable"

@@ -97,6 +97,22 @@ >Posn</A > -&gt; IO ()</TD ></TR+><TR+><TD CLASS="s8"+></TD+></TR+><TR+><TD CLASS="decl"+><A HREF="#v%3AonContent"+>onContent</A+> :: <A HREF="Text-XML-HaXml-Combinators.html#t%3ACFilter"+>CFilter</A+> i -&gt; <A HREF="Text-XML-HaXml-Types.html#t%3ADocument"+>Document</A+> i -&gt; <A HREF="Text-XML-HaXml-Types.html#t%3ADocument"+>Document</A+> i</TD+></TR ></TABLE ></TD ></TR@@ -180,6 +196,42 @@    the error-correcting HTML parser rather than the strict XML parser. </P ></TD+></TR+><TR+><TD CLASS="s15"+></TD+></TR+><TR+><TD CLASS="topdecl"+><TABLE CLASS="declbar"+><TR+><TD CLASS="declname"+><A NAME="v%3AonContent"+></A+><B+>onContent</B+> :: <A HREF="Text-XML-HaXml-Combinators.html#t%3ACFilter"+>CFilter</A+> i -&gt; <A HREF="Text-XML-HaXml-Types.html#t%3ADocument"+>Document</A+> i -&gt; <A HREF="Text-XML-HaXml-Types.html#t%3ADocument"+>Document</A+> i</TD+><TD CLASS="declbut"+><A HREF="src/Text/XML/HaXml/Wrappers.html#onContent"+>Source</A+></TD+></TR+></TABLE+></TD+></TR+><TR+><TD CLASS="doc"+>The wrapper <TT+>onContent</TT+> simply applies a given content filter to a+   document.  Ambiguous or empty results raise an error exception.+</TD ></TR ><TR ><TD CLASS="s15"

@@ -2117,6 +2117,258 @@ ></TR ><TR ><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> k) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j, k)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> k, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> l) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j, k, l)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> k, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> l, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> m) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> k, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> l, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> m, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> n) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m, n)</TD+></TR+><TR+><TD CLASS="decl"+>(<A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> a, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> b, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> c, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> d, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> e, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> f, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> g, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> h, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> i, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> j, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> k, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> l, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> m, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> n, <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> o) =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"+>XmlContent</A+> (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)</TD+></TR+><TR+><TD CLASS="decl" ><A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent" >XmlContent</A > a =&gt; <A HREF="Text-XML-HaXml-XmlContent.html#t%3AXmlContent"

@@ -571,6 +571,14 @@ ></TR ><TR ><TD CLASS="indexentry"+>onContent</TD+><TD CLASS="indexlinks"+><A HREF="Text-XML-HaXml-Wrappers.html#v%3AonContent"+>Text.XML.HaXml.Wrappers</A+></TD+></TR+><TR+><TD CLASS="indexentry" >oo</TD ><TD CLASS="indexlinks" ><A HREF="Text-XML-HaXml-Combinators.html#v%3Aoo"

@@ -1,40 +1,46 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Magenta><em>#</em></font>define dummy	<font color=Blue>-- just to ensure cpp gets called on this file</font>-<a name="(line2)"></a><font color=Blue>-- | This is just a convenient way of bunching the XML combinators</font>-<a name="(line3)"></a><font color=Blue>--   together with some other things you are likely to want at the</font>-<a name="(line4)"></a><font color=Blue>--   same time.</font>-<a name="(line5)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml-<a name="(line6)"></a>  <font color=Cyan>(</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line7)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators-<a name="(line8)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Parse-<a name="(line9)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Pretty-<a name="(line10)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate-<a name="(line11)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse-<a name="(line12)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Validate-<a name="(line13)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Wrappers-<a name="(line14)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Verbatim-<a name="(line15)"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape-<a name="(line16)"></a>  <font color=Cyan>,</font> render-<a name="(line17)"></a>  <font color=Cyan>,</font> version-<a name="(line18)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line19)"></a>-<a name="(line20)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line21)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators-<a name="(line22)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Parse       <font color=Cyan>(</font>xmlParse<font color=Cyan>,</font>dtdParse<font color=Cyan>)</font>-<a name="(line23)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Pretty      <font color=Cyan>(</font>element<font color=Cyan>)</font>-<a name="(line24)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate-<a name="(line25)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse  <font color=Cyan>(</font>htmlParse<font color=Cyan>)</font>-<a name="(line26)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Validate    <font color=Cyan>(</font>validate<font color=Cyan>)</font>-<a name="(line27)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Wrappers    <font color=Cyan>(</font>fix2Args<font color=Cyan>,</font>processXmlWith<font color=Cyan>)</font>-<a name="(line28)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Verbatim-<a name="(line29)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape-<a name="(line30)"></a>-<a name="(line31)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ  <font color=Cyan>(</font>render<font color=Cyan>)</font>-<a name="(line32)"></a>-<a name="(line33)"></a><a name="version"></a><font color=Blue>-- | The version of the library.</font>-<a name="(line34)"></a>version <font color=Red>::</font> String-<a name="(line35)"></a>version  <font color=Red>=</font> <font color=Magenta>"VERSION"</font>-<a name="(line36)"></a>		<font color=Blue>-- expect cpp to fill in value</font>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Magenta><em>#</em></font>define dummy	<font color=Blue>-- just to ensure cpp gets called on this file</font>+<a name="line-2"></a><font color=Blue>-- | This is just a convenient way of bunching the XML combinators</font>+<a name="line-3"></a><font color=Blue>--   together with some other things you are likely to want at the</font>+<a name="line-4"></a><font color=Blue>--   same time.</font>+<a name="line-5"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml+<a name="line-6"></a>  <font color=Cyan>(</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-7"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators+<a name="line-8"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Parse+<a name="line-9"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Pretty+<a name="line-10"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate+<a name="line-11"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse+<a name="line-12"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Validate+<a name="line-13"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Wrappers+<a name="line-14"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Verbatim+<a name="line-15"></a>  <font color=Cyan>,</font> <font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape+<a name="line-16"></a>  <font color=Cyan>,</font> render+<a name="line-17"></a>  <font color=Cyan>,</font> version+<a name="line-18"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-19"></a>+<a name="line-20"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-21"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators+<a name="line-22"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Parse       <font color=Cyan>(</font>xmlParse<font color=Cyan>,</font>dtdParse<font color=Cyan>)</font>+<a name="line-23"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Pretty      <font color=Cyan>(</font>element<font color=Cyan>)</font>+<a name="line-24"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate+<a name="line-25"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse  <font color=Cyan>(</font>htmlParse<font color=Cyan>)</font>+<a name="line-26"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Validate    <font color=Cyan>(</font>validate<font color=Cyan>)</font>+<a name="line-27"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Wrappers    <font color=Cyan>(</font>fix2Args<font color=Cyan>,</font>processXmlWith<font color=Cyan>)</font>+<a name="line-28"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Verbatim+<a name="line-29"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape+<a name="line-30"></a>+<a name="line-31"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ  <font color=Cyan>(</font>render<font color=Cyan>)</font>+<a name="line-32"></a>+<a name="line-33"></a><a name="version"></a><font color=Blue>-- | The version of the library.</font>+<a name="line-34"></a><font color=Blue>version</font> <font color=Red>::</font> String+<a name="line-35"></a><font color=Blue>version</font>  <font color=Red>=</font> <font color=Magenta>"VERSION"</font>+<a name="line-36"></a>		<font color=Blue>-- expect cpp to fill in value</font> </pre>+</body> </html>

@@ -1,344 +1,350 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | This is a fast non-pretty-printer for turning the internal representation</font>-<a name="(line2)"></a><font color=Blue>--   of generic structured XML documents into Lazy ByteStrings.</font>-<a name="(line3)"></a><font color=Blue>--   Like in Text.Xml.HaXml.Pretty, there is one pp function for each type in</font>-<a name="(line4)"></a><font color=Blue>--   Text.Xml.HaXml.Types, so you can pretty-print as much or as little</font>-<a name="(line5)"></a><font color=Blue>--   of the document as you wish.</font>-<a name="(line6)"></a>-<a name="(line7)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>ByteStringPP-<a name="(line8)"></a>  <font color=Cyan>(</font>-<a name="(line9)"></a>  <font color=Blue>-- * Pretty-print a whole document</font>-<a name="(line10)"></a>    document-<a name="(line11)"></a>  <font color=Blue>-- ** Just one content</font>-<a name="(line12)"></a>  <font color=Cyan>,</font>   content-<a name="(line13)"></a>  <font color=Blue>-- ** Just one tagged element</font>-<a name="(line14)"></a>  <font color=Cyan>,</font>   element-<a name="(line15)"></a>  <font color=Blue>-- * Pretty-print just a DTD</font>-<a name="(line16)"></a>  <font color=Cyan>,</font> doctypedecl-<a name="(line17)"></a>  <font color=Blue>-- ** The prolog</font>-<a name="(line18)"></a>  <font color=Cyan>,</font>   prolog-<a name="(line19)"></a>  <font color=Blue>-- ** A content particle description</font>-<a name="(line20)"></a>  <font color=Cyan>,</font>   cp-<a name="(line21)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line22)"></a>-<a name="(line23)"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>maybe<font color=Cyan>,</font>either<font color=Cyan>,</font>elem<font color=Cyan>,</font>concat<font color=Cyan>)</font>-<a name="(line24)"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>-<a name="(line25)"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>-<a name="(line26)"></a><font color=Blue>--import Data.ByteString.Lazy hiding (pack,map,head,any,singleton,intersperse,join)</font>-<a name="(line27)"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8 <font color=Cyan>(</font>ByteString()<font color=Cyan>,</font> concat<font color=Cyan>,</font> pack<font color=Cyan>,</font> singleton<font color=Cyan>,</font> intercalate-<a name="(line28)"></a>                                  <font color=Cyan>,</font> append<font color=Cyan>,</font> elem<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line29)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line30)"></a>-<a name="(line31)"></a><a name="either"></a>either <font color=Red>::</font> <font color=Cyan>(</font>t <font color=Red>-&gt;</font> t1<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>t2 <font color=Red>-&gt;</font> t1<font color=Cyan>)</font> <font color=Red>-&gt;</font> Either t t2 <font color=Red>-&gt;</font> t1-<a name="(line32)"></a>either f <font color=Green><u>_</u></font> <font color=Cyan>(</font>Left x<font color=Cyan>)</font>  <font color=Red>=</font> f x-<a name="(line33)"></a>either <font color=Green><u>_</u></font> g <font color=Cyan>(</font>Right x<font color=Cyan>)</font> <font color=Red>=</font> g x-<a name="(line34)"></a>-<a name="(line35)"></a><a name="maybe"></a>maybe <font color=Red>::</font> <font color=Cyan>(</font>t <font color=Red>-&gt;</font> ByteString<font color=Cyan>)</font> <font color=Red>-&gt;</font> Maybe t <font color=Red>-&gt;</font> ByteString-<a name="(line36)"></a>maybe <font color=Green><u>_</u></font> Nothing  <font color=Red>=</font> empty-<a name="(line37)"></a>maybe f <font color=Cyan>(</font>Just x<font color=Cyan>)</font> <font color=Red>=</font> f x-<a name="(line38)"></a>-<a name="(line39)"></a>-<a name="(line40)"></a><font color=Blue>-- A simple implementation of the pretty-printing combinator interface,</font>-<a name="(line41)"></a><font color=Blue>-- but for plain ByteStrings:</font>-<a name="(line42)"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line43)"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line44)"></a><font color=Green><u>infixl</u></font> <font color=Magenta>5</font> <font color=Cyan>$$</font>-<a name="(line45)"></a><a name="<>"></a><font color=Cyan>(</font><font color=Cyan>&lt;&gt;</font><font color=Cyan>)</font>   <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Beside</font>-<a name="(line46)"></a><a name="hcat"></a>hcat   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString                 <font color=Blue>-- List version of &lt;&gt;</font>-<a name="(line47)"></a><a name="<+>"></a><font color=Cyan>(</font><font color=Cyan>&lt;+&gt;</font><font color=Cyan>)</font>  <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Beside, separated by space</font>-<a name="(line48)"></a><a name="hsep"></a>hsep   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString                 <font color=Blue>-- List version of &lt;+&gt;</font>-<a name="(line49)"></a><a name="$$"></a><font color=Cyan>(</font><font color=Cyan>$$</font><font color=Cyan>)</font>   <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Above; if there is no</font>-<a name="(line50)"></a>                                                   <font color=Blue>-- overlap, it "dovetails"</font>-<a name="(line51)"></a><a name="vcat"></a>vcat   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- List version of $$</font>-<a name="(line52)"></a><a name="sep"></a><font color=Blue>-- cat    :: [ByteString] -&gt; ByteString       -- Either hcat or vcat</font>-<a name="(line53)"></a>sep    <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- Either hsep or vcat</font>-<a name="(line54)"></a><a name="fsep"></a><font color=Blue>-- fcat   :: [ByteString] -&gt; ByteString       -- ``Paragraph fill'' version of cat</font>-<a name="(line55)"></a>fsep   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- ``Paragraph fill'' version of sep</font>-<a name="(line56)"></a><a name="nest"></a>nest   <font color=Red>::</font> Int <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString  <font color=Blue>-- Nested</font>-<a name="(line57)"></a>-<a name="(line58)"></a><font color=Cyan>(</font><font color=Cyan>&lt;&gt;</font><font color=Cyan>)</font>  b1 b2  <font color=Red>=</font> b1 <font color=Cyan>`append`</font> b2-<a name="(line59)"></a><font color=Cyan>(</font><font color=Cyan>&lt;+&gt;</font><font color=Cyan>)</font> b1 b2  <font color=Red>=</font> b1 <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>" "</font> <font color=Cyan>&lt;&gt;</font> b2-<a name="(line60)"></a><font color=Cyan>(</font><font color=Cyan>$$</font><font color=Cyan>)</font>  b1 b2  <font color=Red>=</font> b1 <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>"\n"</font> <font color=Cyan>&lt;&gt;</font> b2-<a name="(line61)"></a><font color=Blue>-- ($+$)        = ($$)</font>-<a name="(line62)"></a>-<a name="(line63)"></a>hcat <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>concat-<a name="(line64)"></a>hsep <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>intercalate <font color=Cyan>(</font>singleton <font color=Magenta>' '</font><font color=Cyan>)</font>-<a name="(line65)"></a>vcat <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>intercalate <font color=Cyan>(</font>singleton <font color=Magenta>'\n'</font><font color=Cyan>)</font>-<a name="(line66)"></a><font color=Green><u>_</u></font>  <font color=Red>=</font> hcat-<a name="(line67)"></a>sep  <font color=Red>=</font> hsep-<a name="(line68)"></a><a name="text"></a>text <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line69)"></a>text <font color=Red>=</font> pack-<a name="(line70)"></a><font color=Blue>-- _ = cat</font>-<a name="(line71)"></a>fsep <font color=Red>=</font> sep-<a name="(line72)"></a>nest <font color=Green><u>_</u></font> b <font color=Red>=</font> pack <font color=Magenta>" "</font> <font color=Cyan>&lt;&gt;</font> b-<a name="(line73)"></a><a name="parens"></a>parens <font color=Red>::</font> ByteString <font color=Red>-&gt;</font> ByteString-<a name="(line74)"></a>parens p <font color=Red>=</font> pack <font color=Magenta>"("</font> <font color=Cyan>&lt;&gt;</font> p <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>")"</font>-<a name="(line75)"></a>-<a name="(line76)"></a>-<a name="(line77)"></a><font color=Blue>----</font>-<a name="(line78)"></a><font color=Blue>-- Now for the XML pretty-printing interface.</font>-<a name="(line79)"></a><font color=Blue>-- (Basically copied direct from Text.XML.HaXml.Pretty).</font>-<a name="(line80)"></a>-<a name="(line81)"></a><a name="document"></a>document <font color=Red>::</font> Document i <font color=Red>-&gt;</font> ByteString-<a name="(line82)"></a><a name="prolog"></a>prolog   <font color=Red>::</font> Prolog     <font color=Red>-&gt;</font> ByteString-<a name="(line83)"></a><a name="xmldecl"></a>xmldecl  <font color=Red>::</font> XMLDecl    <font color=Red>-&gt;</font> ByteString-<a name="(line84)"></a><a name="misc"></a>misc     <font color=Red>::</font> Misc       <font color=Red>-&gt;</font> ByteString-<a name="(line85)"></a><a name="sddecl"></a>sddecl   <font color=Red>::</font> Bool       <font color=Red>-&gt;</font> ByteString-<a name="(line86)"></a>-<a name="(line87)"></a><a name="doctypedecl"></a>doctypedecl   <font color=Red>::</font> DocTypeDecl   <font color=Red>-&gt;</font> ByteString-<a name="(line88)"></a><a name="markupdecl"></a>markupdecl    <font color=Red>::</font> MarkupDecl    <font color=Red>-&gt;</font> ByteString-<a name="(line89)"></a><a name="cp"></a><font color=Blue>-- extsubset     :: ExtSubset     -&gt; ByteString</font>-<a name="(line90)"></a><font color=Blue>-- extsubsetdecl :: ExtSubsetDecl -&gt; ByteString</font>-<a name="(line91)"></a>cp            <font color=Red>::</font> CP            <font color=Red>-&gt;</font> ByteString-<a name="(line92)"></a>-<a name="(line93)"></a><a name="element"></a>element   <font color=Red>::</font> Element i <font color=Red>-&gt;</font> ByteString-<a name="(line94)"></a><a name="attribute"></a>attribute <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> ByteString-<a name="(line95)"></a><a name="content"></a>content   <font color=Red>::</font> Content i <font color=Red>-&gt;</font> ByteString-<a name="(line96)"></a>-<a name="(line97)"></a><font color=Blue>----</font>-<a name="(line98)"></a>-<a name="(line99)"></a>document <font color=Cyan>(</font>Document p <font color=Green><u>_</u></font> e m<font color=Cyan>)</font><font color=Red>=</font> prolog p <font color=Cyan>$$</font> element e <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m<font color=Cyan>)</font>-<a name="(line100)"></a>prolog <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font><font color=Red>=</font> maybe xmldecl x <font color=Cyan>$$</font>-<a name="(line101)"></a>                             vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m1<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line102)"></a>                             maybe doctypedecl dtd <font color=Cyan>$$</font>-<a name="(line103)"></a>                             vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m2<font color=Cyan>)</font>-<a name="(line104)"></a>xmldecl <font color=Cyan>(</font>XMLDecl v e sd<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"&lt;?xml version='"</font> <font color=Cyan>&lt;&gt;</font> text v <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line105)"></a>                             maybe encodingdecl e <font color=Cyan>&lt;+&gt;</font>-<a name="(line106)"></a>                             maybe sddecl sd <font color=Cyan>&lt;+&gt;</font>-<a name="(line107)"></a>                             text <font color=Magenta>"?&gt;"</font>-<a name="(line108)"></a>misc <font color=Cyan>(</font>Comment s<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!--"</font> <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"--&gt;"</font>-<a name="(line109)"></a>misc <font color=Cyan>(</font>PI <font color=Cyan>(</font>n<font color=Cyan>,</font>s<font color=Cyan>)</font><font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"&lt;?"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"?&gt;"</font>-<a name="(line110)"></a>sddecl sd   <font color=Red>|</font> sd           <font color=Red>=</font> text <font color=Magenta>"standalone='yes'"</font>-<a name="(line111)"></a>            <font color=Red>|</font> otherwise    <font color=Red>=</font> text <font color=Magenta>"standalone='no'"</font>-<a name="(line112)"></a>doctypedecl <font color=Cyan>(</font>DTD n eid ds<font color=Cyan>)</font> <font color=Red>=</font> <font color=Green><u>if</u></font> Prelude<font color=Cyan>.</font>null ds <font color=Green><u>then</u></font>-<a name="(line113)"></a>                                  hd <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line114)"></a>                             <font color=Green><u>else</u></font> hd <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>" ["</font> <font color=Cyan>$$</font>-<a name="(line115)"></a>                                  vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map markupdecl ds<font color=Cyan>)</font> <font color=Cyan>$$</font> text <font color=Magenta>"]&gt;"</font>-<a name="(line116)"></a>                           <font color=Green><u>where</u></font> hd <font color=Red>=</font> text <font color=Magenta>"&lt;!DOCTYPE"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line117)"></a>                                      maybe externalid eid-<a name="(line118)"></a>markupdecl <font color=Cyan>(</font>Element e<font color=Cyan>)</font>     <font color=Red>=</font> elementdecl e-<a name="(line119)"></a>markupdecl <font color=Cyan>(</font>AttList a<font color=Cyan>)</font>     <font color=Red>=</font> attlistdecl a-<a name="(line120)"></a>markupdecl <font color=Cyan>(</font>Entity e<font color=Cyan>)</font>      <font color=Red>=</font> entitydecl e-<a name="(line121)"></a>markupdecl <font color=Cyan>(</font>Notation n<font color=Cyan>)</font>    <font color=Red>=</font> notationdecl n-<a name="(line122)"></a>markupdecl <font color=Cyan>(</font>MarkupMisc m<font color=Cyan>)</font>  <font color=Red>=</font> misc m-<a name="(line123)"></a><font color=Blue>--markupdecl (MarkupPE p m)  = peref p</font>-<a name="(line124)"></a><font color=Blue>-- _ (ExtSubset t ds) = maybe textdecl t $$</font>-<a name="(line125)"></a><font color=Blue>--                             vcat (Prelude.map extsubsetdecl ds)</font>-<a name="(line126)"></a><font color=Blue>-- _ (ExtMarkupDecl m)      = markupdecl m</font>-<a name="(line127)"></a><font color=Blue>-- extsubsetdecl (ExtConditionalSect c) = conditionalsect c</font>-<a name="(line128)"></a><font color=Blue>--extsubsetdecl (ExtPEReference p e)   = peref p</font>-<a name="(line129)"></a>-<a name="(line130)"></a>element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line131)"></a>                         fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"/&gt;"</font>-<a name="(line132)"></a>element e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font>-<a name="(line133)"></a><font color=Blue>--  | any isText cs    = text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) &lt;&gt;</font>-<a name="(line134)"></a><font color=Blue>--                       text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt;</font>-<a name="(line135)"></a><font color=Blue>--                       text "&lt;/" &lt;&gt; text n &lt;&gt; text "&gt;"</font>-<a name="(line136)"></a>    <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line137)"></a>                         text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line138)"></a>                         text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line139)"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Red>=</font> carryelem e empty-<a name="(line140)"></a>                         <font color=Green><u>in</u></font> d <font color=Cyan>&lt;&gt;</font> c-<a name="(line141)"></a>-<a name="(line142)"></a><a name="isText"></a>isText <font color=Red>::</font> Content t <font color=Red>-&gt;</font> Bool-<a name="(line143)"></a>isText <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> True-<a name="(line144)"></a>isText <font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> True-<a name="(line145)"></a>isText <font color=Green><u>_</u></font>               <font color=Red>=</font> False-<a name="(line146)"></a>-<a name="(line147)"></a><a name="carryelem"></a>carryelem <font color=Red>::</font> Element t <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> <font color=Cyan>(</font>ByteString<font color=Cyan>,</font> ByteString<font color=Cyan>)</font>-<a name="(line148)"></a>carryelem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> c-<a name="(line149)"></a>                       <font color=Red>=</font> <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>-<a name="(line150)"></a>                           text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>-<a name="(line151)"></a>                         <font color=Cyan>,</font> text <font color=Magenta>"/&gt;"</font><font color=Cyan>)</font>-<a name="(line152)"></a>carryelem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> c-<a name="(line153)"></a><font color=Blue>--  | any isText cs    =  ( c &lt;&gt; element e, empty)</font>-<a name="(line154)"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font>  <font color=Green><u>let</u></font> <font color=Cyan>(</font>cs0<font color=Cyan>,</font>d0<font color=Cyan>)</font> <font color=Red>=</font> carryscan carrycontent cs <font color=Cyan>(</font>text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>-<a name="(line155)"></a>                          <font color=Green><u>in</u></font>-<a name="(line156)"></a>                          <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>-<a name="(line157)"></a>                            text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line158)"></a>                            nest <font color=Magenta>2</font> <font color=Cyan>(</font>vcat cs0<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> <font color=Blue>--- $$</font>-<a name="(line159)"></a>                            d0 <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n-<a name="(line160)"></a>                          <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>-<a name="(line161)"></a><a name="carrycontent"></a>carrycontent <font color=Red>::</font> Content t <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> <font color=Cyan>(</font>ByteString<font color=Cyan>,</font> ByteString<font color=Cyan>)</font>-<a name="(line162)"></a>carrycontent <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font> c   <font color=Red>=</font> carryelem e c-<a name="(line163)"></a>carrycontent <font color=Cyan>(</font>CString False s <font color=Green><u>_</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> chardata s<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line164)"></a>carrycontent <font color=Cyan>(</font>CString True  s <font color=Green><u>_</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> cdsect s<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line165)"></a>carrycontent <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font> c    <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> reference r<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line166)"></a>carrycontent <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font> c   <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> misc m<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line167)"></a>-<a name="(line168)"></a><a name="carryscan"></a>carryscan <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>c<font color=Red>-&gt;</font><font color=Cyan>(</font>b<font color=Cyan>,</font>c<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>a<font color=Red>]</font> <font color=Red>-&gt;</font> c <font color=Red>-&gt;</font> <font color=Cyan>(</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>,</font>c<font color=Cyan>)</font>-<a name="(line169)"></a>carryscan <font color=Green><u>_</u></font> []     c <font color=Red>=</font> <font color=Cyan>(</font>[]<font color=Cyan>,</font>c<font color=Cyan>)</font>-<a name="(line170)"></a>carryscan f <font color=Cyan>(</font>a<font color=Red><b>:</b></font><font color=Green><u>as</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>b<font color=Cyan>,</font> c0<font color=Cyan>)</font> <font color=Red>=</font> f a c-<a name="(line171)"></a>                           <font color=Cyan>(</font>bs<font color=Cyan>,</font>c1<font color=Cyan>)</font> <font color=Red>=</font> carryscan f <font color=Green><u>as</u></font> c0-<a name="(line172)"></a>                       <font color=Green><u>in</u></font> <font color=Cyan>(</font>b<font color=Red><b>:</b></font>bs<font color=Cyan>,</font> c1<font color=Cyan>)</font>-<a name="(line173)"></a>-<a name="(line174)"></a><font color=Blue>--carryelem e@(Elem n as cs) c</font>-<a name="(line175)"></a><font color=Blue>--  | isText (head cs) =</font>-<a name="(line176)"></a><font color=Blue>--        ( start &lt;&gt;</font>-<a name="(line177)"></a><font color=Blue>--          text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt; text "&lt;/" &lt;&gt; text n</font>-<a name="(line178)"></a><font color=Blue>--        , text "&gt;")</font>-<a name="(line179)"></a><font color=Blue>--  | otherwise =</font>-<a name="(line180)"></a><font color=Blue>--        let (d,c0) = foldl carrycontent (start, text "&gt;") cs in</font>-<a name="(line181)"></a><font color=Blue>--        ( d &lt;&gt; c0 &lt;&gt; text "&lt;/" &lt;&gt; text n</font>-<a name="(line182)"></a><font color=Blue>--        , text "&gt;")</font>-<a name="(line183)"></a><font color=Blue>--  where start = c &lt;&gt; text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as)</font>-<a name="(line184)"></a><font color=Blue>--</font>-<a name="(line185)"></a><font color=Blue>--carrycontent (d,c) (CElem e)   = let (d',c') = carryelem e c in</font>-<a name="(line186)"></a><font color=Blue>--                                 (d $$ nest 2 d',       c')</font>-<a name="(line187)"></a><font color=Blue>--carrycontent (d,c) (CString _ s) = (d &lt;&gt; c &lt;&gt; chardata s, empty)</font>-<a name="(line188)"></a><font color=Blue>--carrycontent (d,c) (CRef r)    = (d &lt;&gt; c &lt;&gt; reference r,empty)</font>-<a name="(line189)"></a><font color=Blue>--carrycontent (d,c) (CMisc m)   = (d $$ c &lt;&gt; misc m,     empty)</font>-<a name="(line190)"></a>-<a name="(line191)"></a>-<a name="(line192)"></a>attribute <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font>             <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;&gt;</font> attvalue v-<a name="(line193)"></a>content <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>         <font color=Red>=</font> element e-<a name="(line194)"></a>content <font color=Cyan>(</font>CString False s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> chardata s-<a name="(line195)"></a>content <font color=Cyan>(</font>CString True s <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> cdsect s-<a name="(line196)"></a>content <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>          <font color=Red>=</font> reference r-<a name="(line197)"></a>content <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>         <font color=Red>=</font> misc m-<a name="(line198)"></a>-<a name="(line199)"></a><a name="elementdecl"></a>elementdecl <font color=Red>::</font> ElementDecl <font color=Red>-&gt;</font> ByteString-<a name="(line200)"></a>elementdecl <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ELEMENT"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line201)"></a>                                 contentspec cs <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line202)"></a><a name="contentspec"></a>contentspec <font color=Red>::</font> ContentSpec <font color=Red>-&gt;</font> ByteString-<a name="(line203)"></a>contentspec EMPTY              <font color=Red>=</font> text <font color=Magenta>"EMPTY"</font>-<a name="(line204)"></a>contentspec ANY                <font color=Red>=</font> text <font color=Magenta>"ANY"</font>-<a name="(line205)"></a>contentspec <font color=Cyan>(</font>Mixed m<font color=Cyan>)</font>          <font color=Red>=</font> mixed m-<a name="(line206)"></a>contentspec <font color=Cyan>(</font>ContentSpec c<font color=Cyan>)</font>    <font color=Red>=</font> cp c-<a name="(line207)"></a><font color=Blue>--contentspec (ContentPE p cs)   = peref p</font>-<a name="(line208)"></a>cp <font color=Cyan>(</font>TagName n m<font color=Cyan>)</font>       <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> modifier m-<a name="(line209)"></a>cp <font color=Cyan>(</font>Choice cs m<font color=Cyan>)</font>       <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line210)"></a>                           modifier m-<a name="(line211)"></a>cp <font color=Cyan>(</font>Seq cs m<font color=Cyan>)</font>          <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>","</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line212)"></a>                           modifier m-<a name="(line213)"></a><a name="modifier"></a><font color=Blue>--cp (CPPE p c)          = peref p</font>-<a name="(line214)"></a>modifier <font color=Red>::</font> Modifier <font color=Red>-&gt;</font> ByteString-<a name="(line215)"></a>modifier None          <font color=Red>=</font> empty-<a name="(line216)"></a>modifier Query         <font color=Red>=</font> text <font color=Magenta>"?"</font>-<a name="(line217)"></a>modifier Star          <font color=Red>=</font> text <font color=Magenta>"*"</font>-<a name="(line218)"></a>modifier Plus          <font color=Red>=</font> text <font color=Magenta>"+"</font>-<a name="(line219)"></a><a name="mixed"></a>mixed <font color=Red>::</font> Mixed <font color=Red>-&gt;</font> ByteString-<a name="(line220)"></a>mixed  PCDATA          <font color=Red>=</font> text <font color=Magenta>"(#PCDATA)"</font>-<a name="(line221)"></a>mixed <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"(#PCDATA |"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line222)"></a>                         hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line223)"></a>                         text <font color=Magenta>")*"</font>-<a name="(line224)"></a>-<a name="(line225)"></a><a name="attlistdecl"></a>attlistdecl <font color=Red>::</font> AttListDecl <font color=Red>-&gt;</font> ByteString-<a name="(line226)"></a>attlistdecl <font color=Cyan>(</font>AttListDecl n ds<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ATTLIST"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line227)"></a>                                 fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attdef ds<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line228)"></a><a name="attdef"></a>attdef <font color=Red>::</font> AttDef <font color=Red>-&gt;</font> ByteString-<a name="(line229)"></a>attdef <font color=Cyan>(</font>AttDef n t d<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;+&gt;</font> atttype t <font color=Cyan>&lt;+&gt;</font> defaultdecl d-<a name="(line230)"></a><a name="atttype"></a>atttype <font color=Red>::</font> AttType <font color=Red>-&gt;</font> ByteString-<a name="(line231)"></a>atttype  StringType            <font color=Red>=</font> text <font color=Magenta>"CDATA"</font>-<a name="(line232)"></a>atttype <font color=Cyan>(</font>TokenizedType t<font color=Cyan>)</font>      <font color=Red>=</font> tokenizedtype t-<a name="(line233)"></a>atttype <font color=Cyan>(</font>EnumeratedType t<font color=Cyan>)</font>     <font color=Red>=</font> enumeratedtype t-<a name="(line234)"></a><a name="tokenizedtype"></a>tokenizedtype <font color=Red>::</font> TokenizedType <font color=Red>-&gt;</font> ByteString-<a name="(line235)"></a>tokenizedtype ID               <font color=Red>=</font> text <font color=Magenta>"ID"</font>-<a name="(line236)"></a>tokenizedtype IDREF            <font color=Red>=</font> text <font color=Magenta>"IDREF"</font>-<a name="(line237)"></a>tokenizedtype IDREFS           <font color=Red>=</font> text <font color=Magenta>"IDREFS"</font>-<a name="(line238)"></a>tokenizedtype ENTITY           <font color=Red>=</font> text <font color=Magenta>"ENTITY"</font>-<a name="(line239)"></a>tokenizedtype ENTITIES         <font color=Red>=</font> text <font color=Magenta>"ENTITIES"</font>-<a name="(line240)"></a>tokenizedtype NMTOKEN          <font color=Red>=</font> text <font color=Magenta>"NMTOKEN"</font>-<a name="(line241)"></a>tokenizedtype NMTOKENS         <font color=Red>=</font> text <font color=Magenta>"NMTOKENS"</font>-<a name="(line242)"></a><a name="enumeratedtype"></a>enumeratedtype <font color=Red>::</font> EnumeratedType <font color=Red>-&gt;</font> ByteString-<a name="(line243)"></a>enumeratedtype <font color=Cyan>(</font>NotationType n<font color=Cyan>)</font><font color=Red>=</font> notationtype n-<a name="(line244)"></a>enumeratedtype <font color=Cyan>(</font>Enumeration e<font color=Cyan>)</font> <font color=Red>=</font> enumeration e-<a name="(line245)"></a><a name="notationtype"></a>notationtype <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>Char<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line246)"></a>notationtype ns                <font color=Red>=</font> text <font color=Magenta>"NOTATION"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line247)"></a>                                 parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line248)"></a><a name="enumeration"></a>enumeration <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>Char<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line249)"></a>enumeration ns                 <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map nmtoken ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line250)"></a><a name="defaultdecl"></a>defaultdecl <font color=Red>::</font> DefaultDecl <font color=Red>-&gt;</font> ByteString-<a name="(line251)"></a>defaultdecl  REQUIRED          <font color=Red>=</font> text <font color=Magenta>"#REQUIRED"</font>-<a name="(line252)"></a>defaultdecl  IMPLIED           <font color=Red>=</font> text <font color=Magenta>"#IMPLIED"</font>-<a name="(line253)"></a>defaultdecl <font color=Cyan>(</font>DefaultTo a f<font color=Cyan>)</font>    <font color=Red>=</font> maybe <font color=Cyan>(</font>const <font color=Cyan>(</font>text <font color=Magenta>"#FIXED"</font><font color=Cyan>)</font><font color=Cyan>)</font> f <font color=Cyan>&lt;+&gt;</font> attvalue a-<a name="(line254)"></a><a name="reference"></a><font color=Blue>--_ (IncludeSect i)= text "&lt;![INCLUDE [" &lt;+&gt;</font>-<a name="(line255)"></a><font color=Blue>--                                 vcat (Prelude.map extsubsetdecl i) &lt;+&gt; text "]]&gt;"</font>-<a name="(line256)"></a><font color=Blue>-- conditionalsect (IgnoreSect i) = text "&lt;![IGNORE [" &lt;+&gt;</font>-<a name="(line257)"></a><font color=Blue>--                                  fsep (Prelude.map ignoresectcontents i) &lt;+&gt; text "]]&gt;"</font>-<a name="(line258)"></a><font color=Blue>-- -- _ (Ignore)                = empty</font>-<a name="(line259)"></a><font color=Blue>-- ignoresectcontents :: IgnoreSectContents -&gt; ByteString</font>-<a name="(line260)"></a><font color=Blue>-- _ (IgnoreSectContents i is)</font>-<a name="(line261)"></a><font color=Blue>--                                = ignore i &lt;+&gt; vcat (Prelude.map internal is)</font>-<a name="(line262)"></a><font color=Blue>--                           where internal (ics,i) = text "&lt;![[" &lt;+&gt;</font>-<a name="(line263)"></a><font color=Blue>--                                                    ignoresectcontents ics &lt;+&gt;</font>-<a name="(line264)"></a><font color=Blue>--                                                    text "]]&gt;" &lt;+&gt; ignore i</font>-<a name="(line265)"></a>reference <font color=Red>::</font> Reference <font color=Red>-&gt;</font> ByteString-<a name="(line266)"></a>reference <font color=Cyan>(</font>RefEntity er<font color=Cyan>)</font>       <font color=Red>=</font> entityref er-<a name="(line267)"></a>reference <font color=Cyan>(</font>RefChar cr<font color=Cyan>)</font>         <font color=Red>=</font> charref cr-<a name="(line268)"></a><a name="entityref"></a>entityref <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line269)"></a>entityref n                    <font color=Red>=</font> text <font color=Magenta>"&amp;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>-<a name="(line270)"></a><a name="charref"></a>charref <font color=Red>::</font> <font color=Cyan>(</font>Show a<font color=Cyan>)</font> <font color=Red>=&gt;</font> a <font color=Red>-&gt;</font> ByteString-<a name="(line271)"></a>charref c                      <font color=Red>=</font> text <font color=Magenta>"&amp;#"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show c<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>-<a name="(line272)"></a><a name="entitydecl"></a>entitydecl <font color=Red>::</font> EntityDecl <font color=Red>-&gt;</font> ByteString-<a name="(line273)"></a>entitydecl <font color=Cyan>(</font>EntityGEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> gedecl d-<a name="(line274)"></a>entitydecl <font color=Cyan>(</font>EntityPEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> pedecl d-<a name="(line275)"></a><a name="gedecl"></a>gedecl <font color=Red>::</font> GEDecl <font color=Red>-&gt;</font> ByteString-<a name="(line276)"></a>gedecl <font color=Cyan>(</font>GEDecl n ed<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> entitydef ed <font color=Cyan>&lt;&gt;</font>-<a name="(line277)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line278)"></a><a name="pedecl"></a>pedecl <font color=Red>::</font> PEDecl <font color=Red>-&gt;</font> ByteString-<a name="(line279)"></a>pedecl <font color=Cyan>(</font>PEDecl n pd<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY %"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> pedef pd <font color=Cyan>&lt;&gt;</font>-<a name="(line280)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line281)"></a><a name="entitydef"></a>entitydef <font color=Red>::</font> EntityDef <font color=Red>-&gt;</font> ByteString-<a name="(line282)"></a>entitydef <font color=Cyan>(</font>DefEntityValue ew<font color=Cyan>)</font>  <font color=Red>=</font> entityvalue ew-<a name="(line283)"></a>entitydef <font color=Cyan>(</font>DefExternalID i nd<font color=Cyan>)</font> <font color=Red>=</font> externalid i <font color=Cyan>&lt;+&gt;</font> maybe ndatadecl nd-<a name="(line284)"></a><a name="pedef"></a>pedef <font color=Red>::</font> PEDef <font color=Red>-&gt;</font> ByteString-<a name="(line285)"></a>pedef <font color=Cyan>(</font>PEDefEntityValue ew<font color=Cyan>)</font>    <font color=Red>=</font> entityvalue ew-<a name="(line286)"></a>pedef <font color=Cyan>(</font>PEDefExternalID eid<font color=Cyan>)</font>    <font color=Red>=</font> externalid eid-<a name="(line287)"></a><a name="externalid"></a>externalid <font color=Red>::</font> ExternalID <font color=Red>-&gt;</font> ByteString-<a name="(line288)"></a>externalid <font color=Cyan>(</font>SYSTEM sl<font color=Cyan>)</font>         <font color=Red>=</font> text <font color=Magenta>"SYSTEM"</font> <font color=Cyan>&lt;+&gt;</font> systemliteral sl-<a name="(line289)"></a>externalid <font color=Cyan>(</font>PUBLIC i sl<font color=Cyan>)</font>       <font color=Red>=</font> text <font color=Magenta>"PUBLIC"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral i <font color=Cyan>&lt;+&gt;</font>-<a name="(line290)"></a>                                 systemliteral sl-<a name="(line291)"></a><a name="ndatadecl"></a>ndatadecl <font color=Red>::</font> NDataDecl <font color=Red>-&gt;</font> ByteString-<a name="(line292)"></a>ndatadecl <font color=Cyan>(</font>NDATA n<font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"NDATA"</font> <font color=Cyan>&lt;+&gt;</font> text n-<a name="(line293)"></a><a name="notationdecl"></a><font color=Blue>-- _ (TextDecl vi ed)      = text "&lt;?xml" &lt;+&gt; maybe text vi &lt;+&gt;</font>-<a name="(line294)"></a><font color=Blue>--                                  encodingdecl ed &lt;&gt; text "?&gt;"</font>-<a name="(line295)"></a><font color=Blue>-- extparsedent :: ExtParsedEnt t -&gt; ByteString</font>-<a name="(line296)"></a><font color=Blue>-- _ (ExtParsedEnt t c)= maybe textdecl t &lt;+&gt; content c</font>-<a name="(line297)"></a><font color=Blue>-- _ (ExtPE t esd)            = maybe textdecl t &lt;+&gt;</font>-<a name="(line298)"></a><font color=Blue>--                                  vcat (Prelude.map extsubsetdecl esd)</font>-<a name="(line299)"></a>notationdecl <font color=Red>::</font> NotationDecl <font color=Red>-&gt;</font> ByteString-<a name="(line300)"></a>notationdecl <font color=Cyan>(</font>NOTATION n e<font color=Cyan>)</font>    <font color=Red>=</font> text <font color=Magenta>"&lt;!NOTATION"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line301)"></a>                                 either externalid publicid e <font color=Cyan>&lt;&gt;</font>-<a name="(line302)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line303)"></a><a name="publicid"></a>publicid <font color=Red>::</font> PublicID <font color=Red>-&gt;</font> ByteString-<a name="(line304)"></a>publicid <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>          <font color=Red>=</font> text <font color=Magenta>"PUBLICID"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral p-<a name="(line305)"></a><a name="encodingdecl"></a>encodingdecl <font color=Red>::</font> EncodingDecl <font color=Red>-&gt;</font> ByteString-<a name="(line306)"></a>encodingdecl <font color=Cyan>(</font>EncodingDecl s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"encoding='"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line307)"></a><a name="nmtoken"></a>nmtoken <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line308)"></a>nmtoken s                      <font color=Red>=</font> text s-<a name="(line309)"></a><a name="attvalue"></a>attvalue <font color=Red>::</font> AttValue <font color=Red>-&gt;</font> ByteString-<a name="(line310)"></a>attvalue <font color=Cyan>(</font>AttValue esr<font color=Cyan>)</font>        <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line311)"></a>                                 hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map <font color=Cyan>(</font>either text reference<font color=Cyan>)</font> esr<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line312)"></a>                                 text <font color=Magenta>"\""</font>-<a name="(line313)"></a><a name="entityvalue"></a>entityvalue <font color=Red>::</font> EntityValue <font color=Red>-&gt;</font> ByteString-<a name="(line314)"></a>entityvalue <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>-<a name="(line315)"></a>  <font color=Red>|</font> containsDoubleQuote evs    <font color=Red>=</font> text <font color=Magenta>"'"</font>  <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line316)"></a>  <font color=Red>|</font> otherwise                  <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>-<a name="(line317)"></a><a name="ev"></a>ev <font color=Red>::</font> EV <font color=Red>-&gt;</font> ByteString-<a name="(line318)"></a>ev <font color=Cyan>(</font>EVString s<font color=Cyan>)</font>                <font color=Red>=</font> text s-<a name="(line319)"></a><font color=Blue>--ev (EVPERef p e)               = peref p</font>-<a name="(line320)"></a>ev <font color=Cyan>(</font>EVRef r<font color=Cyan>)</font>                   <font color=Red>=</font> reference r-<a name="(line321)"></a><a name="pubidliteral"></a>pubidliteral <font color=Red>::</font> PubidLiteral <font color=Red>-&gt;</font> ByteString-<a name="(line322)"></a>pubidliteral <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>-<a name="(line323)"></a>    <font color=Red>|</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line324)"></a>    <font color=Red>|</font> otherwise                <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>-<a name="(line325)"></a><a name="systemliteral"></a>systemliteral <font color=Red>::</font> SystemLiteral <font color=Red>-&gt;</font> ByteString-<a name="(line326)"></a>systemliteral <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>-<a name="(line327)"></a>    <font color=Red>|</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line328)"></a>    <font color=Red>|</font> otherwise                <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>-<a name="(line329)"></a><a name="chardata"></a>chardata<font color=Cyan>,</font> cdsect <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString-<a name="(line330)"></a>chardata s                     <font color=Red>=</font> <font color=Blue>{-if all isSpace s then empty else-}</font> text s-<a name="(line331)"></a><a name="cdsect"></a>cdsect c                       <font color=Red>=</font> text <font color=Magenta>"&lt;![CDATA["</font> <font color=Cyan>&lt;&gt;</font> chardata c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]]&gt;"</font>-<a name="(line332)"></a>-<a name="(line333)"></a><a name="toWord8"></a><font color=Blue>-- toWord8 :: Char -&gt; Word8</font>-<a name="(line334)"></a>toWord8 <font color=Red>::</font> <font color=Cyan>(</font>Enum a<font color=Cyan>,</font> Enum a1<font color=Cyan>)</font> <font color=Red>=&gt;</font> a1 <font color=Red>-&gt;</font> a-<a name="(line335)"></a>toWord8 <font color=Red>=</font> toEnum <font color=Cyan>.</font> fromEnum-<a name="(line336)"></a>-<a name="(line337)"></a><a name="containsDoubleQuote"></a>containsDoubleQuote <font color=Red>::</font> <font color=Red>[</font>EV<font color=Red>]</font> <font color=Red>-&gt;</font> Bool-<a name="(line338)"></a>containsDoubleQuote evs <font color=Red>=</font> any csq evs-<a name="(line339)"></a>    <font color=Green><u>where</u></font> csq <font color=Cyan>(</font>EVString s<font color=Cyan>)</font> <font color=Red>=</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font>-<a name="(line340)"></a>          csq <font color=Green><u>_</u></font>            <font color=Red>=</font> False+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/ByteStringPP.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | This is a fast non-pretty-printer for turning the internal representation</font>+<a name="line-2"></a><font color=Blue>--   of generic structured XML documents into Lazy ByteStrings.</font>+<a name="line-3"></a><font color=Blue>--   Like in Text.Xml.HaXml.Pretty, there is one pp function for each type in</font>+<a name="line-4"></a><font color=Blue>--   Text.Xml.HaXml.Types, so you can pretty-print as much or as little</font>+<a name="line-5"></a><font color=Blue>--   of the document as you wish.</font>+<a name="line-6"></a>+<a name="line-7"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>ByteStringPP+<a name="line-8"></a>  <font color=Cyan>(</font>+<a name="line-9"></a>  <font color=Blue>-- * Pretty-print a whole document</font>+<a name="line-10"></a>    document+<a name="line-11"></a>  <font color=Blue>-- ** Just one content</font>+<a name="line-12"></a>  <font color=Cyan>,</font>   content+<a name="line-13"></a>  <font color=Blue>-- ** Just one tagged element</font>+<a name="line-14"></a>  <font color=Cyan>,</font>   element+<a name="line-15"></a>  <font color=Blue>-- * Pretty-print just a DTD</font>+<a name="line-16"></a>  <font color=Cyan>,</font> doctypedecl+<a name="line-17"></a>  <font color=Blue>-- ** The prolog</font>+<a name="line-18"></a>  <font color=Cyan>,</font>   prolog+<a name="line-19"></a>  <font color=Blue>-- ** A content particle description</font>+<a name="line-20"></a>  <font color=Cyan>,</font>   cp+<a name="line-21"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-22"></a>+<a name="line-23"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>maybe<font color=Cyan>,</font>either<font color=Cyan>,</font>elem<font color=Cyan>,</font>concat<font color=Cyan>)</font>+<a name="line-24"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>+<a name="line-25"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>+<a name="line-26"></a><font color=Blue>--import Data.ByteString.Lazy hiding (pack,map,head,any,singleton,intersperse,join)</font>+<a name="line-27"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8 <font color=Cyan>(</font>ByteString()<font color=Cyan>,</font> concat<font color=Cyan>,</font> pack<font color=Cyan>,</font> singleton<font color=Cyan>,</font> intercalate+<a name="line-28"></a>                                  <font color=Cyan>,</font> append<font color=Cyan>,</font> elem<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-29"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-30"></a>+<a name="line-31"></a><a name="either"></a><font color=Blue>either</font> <font color=Red>::</font> <font color=Cyan>(</font>t <font color=Red>-&gt;</font> t1<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>t2 <font color=Red>-&gt;</font> t1<font color=Cyan>)</font> <font color=Red>-&gt;</font> Either t t2 <font color=Red>-&gt;</font> t1+<a name="line-32"></a><font color=Blue>either</font> f <font color=Green><u>_</u></font> <font color=Cyan>(</font>Left x<font color=Cyan>)</font>  <font color=Red>=</font> f x+<a name="line-33"></a><font color=Blue>either</font> <font color=Green><u>_</u></font> g <font color=Cyan>(</font>Right x<font color=Cyan>)</font> <font color=Red>=</font> g x+<a name="line-34"></a>+<a name="line-35"></a><a name="maybe"></a><font color=Blue>maybe</font> <font color=Red>::</font> <font color=Cyan>(</font>t <font color=Red>-&gt;</font> ByteString<font color=Cyan>)</font> <font color=Red>-&gt;</font> Maybe t <font color=Red>-&gt;</font> ByteString+<a name="line-36"></a><font color=Blue>maybe</font> <font color=Green><u>_</u></font> Nothing  <font color=Red>=</font> empty+<a name="line-37"></a><font color=Blue>maybe</font> f <font color=Cyan>(</font>Just x<font color=Cyan>)</font> <font color=Red>=</font> f x+<a name="line-38"></a>+<a name="line-39"></a>+<a name="line-40"></a><font color=Blue>-- A simple implementation of the pretty-printing combinator interface,</font>+<a name="line-41"></a><font color=Blue>-- but for plain ByteStrings:</font>+<a name="line-42"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-43"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-44"></a><font color=Green><u>infixl</u></font> <font color=Magenta>5</font> <font color=Cyan>$$</font>+<a name="line-45"></a><a name="<>"></a><font color=Cyan>(</font><font color=Cyan>&lt;&gt;</font><font color=Cyan>)</font>   <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Beside</font>+<a name="line-46"></a><a name="hcat"></a><font color=Blue>hcat</font>   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString                 <font color=Blue>-- List version of &lt;&gt;</font>+<a name="line-47"></a><a name="<+>"></a><font color=Cyan>(</font><font color=Cyan>&lt;+&gt;</font><font color=Cyan>)</font>  <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Beside, separated by space</font>+<a name="line-48"></a><a name="hsep"></a><font color=Blue>hsep</font>   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString                 <font color=Blue>-- List version of &lt;+&gt;</font>+<a name="line-49"></a><a name="$$"></a><font color=Cyan>(</font><font color=Cyan>$$</font><font color=Cyan>)</font>   <font color=Red>::</font> ByteString   <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString <font color=Blue>-- Above; if there is no</font>+<a name="line-50"></a>                                                   <font color=Blue>-- overlap, it "dovetails"</font>+<a name="line-51"></a><a name="vcat"></a><font color=Blue>vcat</font>   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- List version of $$</font>+<a name="line-52"></a><a name="sep"></a><font color=Blue>-- cat    :: [ByteString] -&gt; ByteString       -- Either hcat or vcat</font>+<a name="line-53"></a><font color=Blue>sep</font>    <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- Either hsep or vcat</font>+<a name="line-54"></a><a name="fsep"></a><font color=Blue>-- fcat   :: [ByteString] -&gt; ByteString       -- ``Paragraph fill'' version of cat</font>+<a name="line-55"></a><font color=Blue>fsep</font>   <font color=Red>::</font> <font color=Red>[</font>ByteString<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString       <font color=Blue>-- ``Paragraph fill'' version of sep</font>+<a name="line-56"></a><a name="nest"></a><font color=Blue>nest</font>   <font color=Red>::</font> Int <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> ByteString  <font color=Blue>-- Nested</font>+<a name="line-57"></a>+<a name="line-58"></a><font color=Cyan>(</font><font color=Cyan>&lt;&gt;</font><font color=Cyan>)</font>  b1 b2  <font color=Red>=</font> b1 <font color=Cyan>`append`</font> b2+<a name="line-59"></a><font color=Cyan>(</font><font color=Cyan>&lt;+&gt;</font><font color=Cyan>)</font> b1 b2  <font color=Red>=</font> b1 <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>" "</font> <font color=Cyan>&lt;&gt;</font> b2+<a name="line-60"></a><font color=Cyan>(</font><font color=Cyan>$$</font><font color=Cyan>)</font>  b1 b2  <font color=Red>=</font> b1 <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>"\n"</font> <font color=Cyan>&lt;&gt;</font> b2+<a name="line-61"></a><font color=Blue>-- ($+$)        = ($$)</font>+<a name="line-62"></a>+<a name="line-63"></a><font color=Blue>hcat</font> <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>concat+<a name="line-64"></a><font color=Blue>hsep</font> <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>intercalate <font color=Cyan>(</font>singleton <font color=Magenta>' '</font><font color=Cyan>)</font>+<a name="line-65"></a><font color=Blue>vcat</font> <font color=Red>=</font> Data<font color=Cyan>.</font>ByteString<font color=Cyan>.</font>Lazy<font color=Cyan>.</font>Char8<font color=Cyan>.</font>intercalate <font color=Cyan>(</font>singleton <font color=Magenta>'\n'</font><font color=Cyan>)</font>+<a name="line-66"></a><font color=Green><u>_</u></font>  <font color=Red>=</font> hcat+<a name="line-67"></a><font color=Blue>sep</font>  <font color=Red>=</font> hsep+<a name="line-68"></a><a name="text"></a><font color=Blue>text</font> <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-69"></a><font color=Blue>text</font> <font color=Red>=</font> pack+<a name="line-70"></a><font color=Blue>-- _ = cat</font>+<a name="line-71"></a><font color=Blue>fsep</font> <font color=Red>=</font> sep+<a name="line-72"></a><font color=Blue>nest</font> <font color=Green><u>_</u></font> b <font color=Red>=</font> pack <font color=Magenta>" "</font> <font color=Cyan>&lt;&gt;</font> b+<a name="line-73"></a><a name="parens"></a><font color=Blue>parens</font> <font color=Red>::</font> ByteString <font color=Red>-&gt;</font> ByteString+<a name="line-74"></a><font color=Blue>parens</font> p <font color=Red>=</font> pack <font color=Magenta>"("</font> <font color=Cyan>&lt;&gt;</font> p <font color=Cyan>&lt;&gt;</font> pack <font color=Magenta>")"</font>+<a name="line-75"></a>+<a name="line-76"></a>+<a name="line-77"></a><font color=Blue>----</font>+<a name="line-78"></a><font color=Blue>-- Now for the XML pretty-printing interface.</font>+<a name="line-79"></a><font color=Blue>-- (Basically copied direct from Text.XML.HaXml.Pretty).</font>+<a name="line-80"></a>+<a name="line-81"></a><a name="document"></a><font color=Blue>document</font> <font color=Red>::</font> Document i <font color=Red>-&gt;</font> ByteString+<a name="line-82"></a><a name="prolog"></a><font color=Blue>prolog</font>   <font color=Red>::</font> Prolog     <font color=Red>-&gt;</font> ByteString+<a name="line-83"></a><a name="xmldecl"></a><font color=Blue>xmldecl</font>  <font color=Red>::</font> XMLDecl    <font color=Red>-&gt;</font> ByteString+<a name="line-84"></a><a name="misc"></a><font color=Blue>misc</font>     <font color=Red>::</font> Misc       <font color=Red>-&gt;</font> ByteString+<a name="line-85"></a><a name="sddecl"></a><font color=Blue>sddecl</font>   <font color=Red>::</font> Bool       <font color=Red>-&gt;</font> ByteString+<a name="line-86"></a>+<a name="line-87"></a><a name="doctypedecl"></a><font color=Blue>doctypedecl</font>   <font color=Red>::</font> DocTypeDecl   <font color=Red>-&gt;</font> ByteString+<a name="line-88"></a><a name="markupdecl"></a><font color=Blue>markupdecl</font>    <font color=Red>::</font> MarkupDecl    <font color=Red>-&gt;</font> ByteString+<a name="line-89"></a><a name="cp"></a><font color=Blue>-- extsubset     :: ExtSubset     -&gt; ByteString</font>+<a name="line-90"></a><font color=Blue>-- extsubsetdecl :: ExtSubsetDecl -&gt; ByteString</font>+<a name="line-91"></a><font color=Blue>cp</font>            <font color=Red>::</font> CP            <font color=Red>-&gt;</font> ByteString+<a name="line-92"></a>+<a name="line-93"></a><a name="element"></a><font color=Blue>element</font>   <font color=Red>::</font> Element i <font color=Red>-&gt;</font> ByteString+<a name="line-94"></a><a name="attribute"></a><font color=Blue>attribute</font> <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> ByteString+<a name="line-95"></a><a name="content"></a><font color=Blue>content</font>   <font color=Red>::</font> Content i <font color=Red>-&gt;</font> ByteString+<a name="line-96"></a>+<a name="line-97"></a><font color=Blue>----</font>+<a name="line-98"></a>+<a name="line-99"></a><font color=Blue>document</font> <font color=Cyan>(</font>Document p <font color=Green><u>_</u></font> e m<font color=Cyan>)</font><font color=Red>=</font> prolog p <font color=Cyan>$$</font> element e <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m<font color=Cyan>)</font>+<a name="line-100"></a><font color=Blue>prolog</font> <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font><font color=Red>=</font> maybe xmldecl x <font color=Cyan>$$</font>+<a name="line-101"></a>                             vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m1<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-102"></a>                             maybe doctypedecl dtd <font color=Cyan>$$</font>+<a name="line-103"></a>                             vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map misc m2<font color=Cyan>)</font>+<a name="line-104"></a><font color=Blue>xmldecl</font> <font color=Cyan>(</font>XMLDecl v e sd<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"&lt;?xml version='"</font> <font color=Cyan>&lt;&gt;</font> text v <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-105"></a>                             maybe encodingdecl e <font color=Cyan>&lt;+&gt;</font>+<a name="line-106"></a>                             maybe sddecl sd <font color=Cyan>&lt;+&gt;</font>+<a name="line-107"></a>                             text <font color=Magenta>"?&gt;"</font>+<a name="line-108"></a><font color=Blue>misc</font> <font color=Cyan>(</font>Comment s<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!--"</font> <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"--&gt;"</font>+<a name="line-109"></a><font color=Blue>misc</font> <font color=Cyan>(</font>PI <font color=Cyan>(</font>n<font color=Cyan>,</font>s<font color=Cyan>)</font><font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"&lt;?"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"?&gt;"</font>+<a name="line-110"></a><font color=Blue>sddecl</font> sd   <font color=Red>|</font> sd           <font color=Red>=</font> text <font color=Magenta>"standalone='yes'"</font>+<a name="line-111"></a>            <font color=Red>|</font> otherwise    <font color=Red>=</font> text <font color=Magenta>"standalone='no'"</font>+<a name="line-112"></a><font color=Blue>doctypedecl</font> <font color=Cyan>(</font>DTD n eid ds<font color=Cyan>)</font> <font color=Red>=</font> <font color=Green><u>if</u></font> Prelude<font color=Cyan>.</font>null ds <font color=Green><u>then</u></font>+<a name="line-113"></a>                                  hd <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-114"></a>                             <font color=Green><u>else</u></font> hd <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>" ["</font> <font color=Cyan>$$</font>+<a name="line-115"></a>                                  vcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map markupdecl ds<font color=Cyan>)</font> <font color=Cyan>$$</font> text <font color=Magenta>"]&gt;"</font>+<a name="line-116"></a>                           <font color=Green><u>where</u></font> hd <font color=Red>=</font> text <font color=Magenta>"&lt;!DOCTYPE"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-117"></a>                                      maybe externalid eid+<a name="line-118"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Element e<font color=Cyan>)</font>     <font color=Red>=</font> elementdecl e+<a name="line-119"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>AttList a<font color=Cyan>)</font>     <font color=Red>=</font> attlistdecl a+<a name="line-120"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Entity e<font color=Cyan>)</font>      <font color=Red>=</font> entitydecl e+<a name="line-121"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Notation n<font color=Cyan>)</font>    <font color=Red>=</font> notationdecl n+<a name="line-122"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>MarkupMisc m<font color=Cyan>)</font>  <font color=Red>=</font> misc m+<a name="line-123"></a><font color=Blue>--markupdecl (MarkupPE p m)  = peref p</font>+<a name="line-124"></a><font color=Blue>-- _ (ExtSubset t ds) = maybe textdecl t $$</font>+<a name="line-125"></a><font color=Blue>--                             vcat (Prelude.map extsubsetdecl ds)</font>+<a name="line-126"></a><font color=Blue>-- _ (ExtMarkupDecl m)      = markupdecl m</font>+<a name="line-127"></a><font color=Blue>-- extsubsetdecl (ExtConditionalSect c) = conditionalsect c</font>+<a name="line-128"></a><font color=Blue>--extsubsetdecl (ExtPEReference p e)   = peref p</font>+<a name="line-129"></a>+<a name="line-130"></a><font color=Blue>element</font> <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-131"></a>                         fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"/&gt;"</font>+<a name="line-132"></a><font color=Blue>element</font> e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font>+<a name="line-133"></a><font color=Blue>--  | any isText cs    = text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) &lt;&gt;</font>+<a name="line-134"></a><font color=Blue>--                       text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt;</font>+<a name="line-135"></a><font color=Blue>--                       text "&lt;/" &lt;&gt; text n &lt;&gt; text "&gt;"</font>+<a name="line-136"></a>    <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-137"></a>                         text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-138"></a>                         text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-139"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Red>=</font> carryelem e empty+<a name="line-140"></a>                         <font color=Green><u>in</u></font> d <font color=Cyan>&lt;&gt;</font> c+<a name="line-141"></a>+<a name="line-142"></a><a name="isText"></a><font color=Blue>isText</font> <font color=Red>::</font> Content t <font color=Red>-&gt;</font> Bool+<a name="line-143"></a><font color=Blue>isText</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> True+<a name="line-144"></a><font color=Blue>isText</font> <font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> True+<a name="line-145"></a><font color=Blue>isText</font> <font color=Green><u>_</u></font>               <font color=Red>=</font> False+<a name="line-146"></a>+<a name="line-147"></a><a name="carryelem"></a><font color=Blue>carryelem</font> <font color=Red>::</font> Element t <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> <font color=Cyan>(</font>ByteString<font color=Cyan>,</font> ByteString<font color=Cyan>)</font>+<a name="line-148"></a><font color=Blue>carryelem</font> <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> c+<a name="line-149"></a>                       <font color=Red>=</font> <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>+<a name="line-150"></a>                           text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>+<a name="line-151"></a>                         <font color=Cyan>,</font> text <font color=Magenta>"/&gt;"</font><font color=Cyan>)</font>+<a name="line-152"></a><font color=Blue>carryelem</font> <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> c+<a name="line-153"></a><font color=Blue>--  | any isText cs    =  ( c &lt;&gt; element e, empty)</font>+<a name="line-154"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font>  <font color=Green><u>let</u></font> <font color=Cyan>(</font>cs0<font color=Cyan>,</font>d0<font color=Cyan>)</font> <font color=Red>=</font> carryscan carrycontent cs <font color=Cyan>(</font>text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>+<a name="line-155"></a>                          <font color=Green><u>in</u></font>+<a name="line-156"></a>                          <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>+<a name="line-157"></a>                            text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-158"></a>                            nest <font color=Magenta>2</font> <font color=Cyan>(</font>vcat cs0<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> <font color=Blue>--- $$</font>+<a name="line-159"></a>                            d0 <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n+<a name="line-160"></a>                          <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>+<a name="line-161"></a><a name="carrycontent"></a><font color=Blue>carrycontent</font> <font color=Red>::</font> Content t <font color=Red>-&gt;</font> ByteString <font color=Red>-&gt;</font> <font color=Cyan>(</font>ByteString<font color=Cyan>,</font> ByteString<font color=Cyan>)</font>+<a name="line-162"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font> c   <font color=Red>=</font> carryelem e c+<a name="line-163"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>CString False s <font color=Green><u>_</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> chardata s<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-164"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>CString True  s <font color=Green><u>_</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> cdsect s<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-165"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font> c    <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> reference r<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-166"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font> c   <font color=Red>=</font> <font color=Cyan>(</font>c <font color=Cyan>&lt;&gt;</font> misc m<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-167"></a>+<a name="line-168"></a><a name="carryscan"></a><font color=Blue>carryscan</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>c<font color=Red>-&gt;</font><font color=Cyan>(</font>b<font color=Cyan>,</font>c<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>a<font color=Red>]</font> <font color=Red>-&gt;</font> c <font color=Red>-&gt;</font> <font color=Cyan>(</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>,</font>c<font color=Cyan>)</font>+<a name="line-169"></a><font color=Blue>carryscan</font> <font color=Green><u>_</u></font> []     c <font color=Red>=</font> <font color=Cyan>(</font>[]<font color=Cyan>,</font>c<font color=Cyan>)</font>+<a name="line-170"></a><font color=Blue>carryscan</font> f <font color=Cyan>(</font>a<font color=Red><b>:</b></font><font color=Green><u>as</u></font><font color=Cyan>)</font> c <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>b<font color=Cyan>,</font> c0<font color=Cyan>)</font> <font color=Red>=</font> f a c+<a name="line-171"></a>                           <font color=Cyan>(</font>bs<font color=Cyan>,</font>c1<font color=Cyan>)</font> <font color=Red>=</font> carryscan f <font color=Green><u>as</u></font> c0+<a name="line-172"></a>                       <font color=Green><u>in</u></font> <font color=Cyan>(</font>b<font color=Red><b>:</b></font>bs<font color=Cyan>,</font> c1<font color=Cyan>)</font>+<a name="line-173"></a>+<a name="line-174"></a><font color=Blue>--carryelem e@(Elem n as cs) c</font>+<a name="line-175"></a><font color=Blue>--  | isText (head cs) =</font>+<a name="line-176"></a><font color=Blue>--        ( start &lt;&gt;</font>+<a name="line-177"></a><font color=Blue>--          text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt; text "&lt;/" &lt;&gt; text n</font>+<a name="line-178"></a><font color=Blue>--        , text "&gt;")</font>+<a name="line-179"></a><font color=Blue>--  | otherwise =</font>+<a name="line-180"></a><font color=Blue>--        let (d,c0) = foldl carrycontent (start, text "&gt;") cs in</font>+<a name="line-181"></a><font color=Blue>--        ( d &lt;&gt; c0 &lt;&gt; text "&lt;/" &lt;&gt; text n</font>+<a name="line-182"></a><font color=Blue>--        , text "&gt;")</font>+<a name="line-183"></a><font color=Blue>--  where start = c &lt;&gt; text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as)</font>+<a name="line-184"></a><font color=Blue>--</font>+<a name="line-185"></a><font color=Blue>--carrycontent (d,c) (CElem e)   = let (d',c') = carryelem e c in</font>+<a name="line-186"></a><font color=Blue>--                                 (d $$ nest 2 d',       c')</font>+<a name="line-187"></a><font color=Blue>--carrycontent (d,c) (CString _ s) = (d &lt;&gt; c &lt;&gt; chardata s, empty)</font>+<a name="line-188"></a><font color=Blue>--carrycontent (d,c) (CRef r)    = (d &lt;&gt; c &lt;&gt; reference r,empty)</font>+<a name="line-189"></a><font color=Blue>--carrycontent (d,c) (CMisc m)   = (d $$ c &lt;&gt; misc m,     empty)</font>+<a name="line-190"></a>+<a name="line-191"></a>+<a name="line-192"></a><font color=Blue>attribute</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font>             <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;&gt;</font> attvalue v+<a name="line-193"></a><font color=Blue>content</font> <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>         <font color=Red>=</font> element e+<a name="line-194"></a><font color=Blue>content</font> <font color=Cyan>(</font>CString False s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> chardata s+<a name="line-195"></a><font color=Blue>content</font> <font color=Cyan>(</font>CString True s <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> cdsect s+<a name="line-196"></a><font color=Blue>content</font> <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>          <font color=Red>=</font> reference r+<a name="line-197"></a><font color=Blue>content</font> <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>         <font color=Red>=</font> misc m+<a name="line-198"></a>+<a name="line-199"></a><a name="elementdecl"></a><font color=Blue>elementdecl</font> <font color=Red>::</font> ElementDecl <font color=Red>-&gt;</font> ByteString+<a name="line-200"></a><font color=Blue>elementdecl</font> <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ELEMENT"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-201"></a>                                 contentspec cs <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-202"></a><a name="contentspec"></a><font color=Blue>contentspec</font> <font color=Red>::</font> ContentSpec <font color=Red>-&gt;</font> ByteString+<a name="line-203"></a><font color=Blue>contentspec</font> EMPTY              <font color=Red>=</font> text <font color=Magenta>"EMPTY"</font>+<a name="line-204"></a><font color=Blue>contentspec</font> ANY                <font color=Red>=</font> text <font color=Magenta>"ANY"</font>+<a name="line-205"></a><font color=Blue>contentspec</font> <font color=Cyan>(</font>Mixed m<font color=Cyan>)</font>          <font color=Red>=</font> mixed m+<a name="line-206"></a><font color=Blue>contentspec</font> <font color=Cyan>(</font>ContentSpec c<font color=Cyan>)</font>    <font color=Red>=</font> cp c+<a name="line-207"></a><font color=Blue>--contentspec (ContentPE p cs)   = peref p</font>+<a name="line-208"></a><font color=Blue>cp</font> <font color=Cyan>(</font>TagName n m<font color=Cyan>)</font>       <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> modifier m+<a name="line-209"></a><font color=Blue>cp</font> <font color=Cyan>(</font>Choice cs m<font color=Cyan>)</font>       <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-210"></a>                           modifier m+<a name="line-211"></a><font color=Blue>cp</font> <font color=Cyan>(</font>Seq cs m<font color=Cyan>)</font>          <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>","</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-212"></a>                           modifier m+<a name="line-213"></a><a name="modifier"></a><font color=Blue>--cp (CPPE p c)          = peref p</font>+<a name="line-214"></a><font color=Blue>modifier</font> <font color=Red>::</font> Modifier <font color=Red>-&gt;</font> ByteString+<a name="line-215"></a><font color=Blue>modifier</font> None          <font color=Red>=</font> empty+<a name="line-216"></a><font color=Blue>modifier</font> Query         <font color=Red>=</font> text <font color=Magenta>"?"</font>+<a name="line-217"></a><font color=Blue>modifier</font> Star          <font color=Red>=</font> text <font color=Magenta>"*"</font>+<a name="line-218"></a><font color=Blue>modifier</font> Plus          <font color=Red>=</font> text <font color=Magenta>"+"</font>+<a name="line-219"></a><a name="mixed"></a><font color=Blue>mixed</font> <font color=Red>::</font> Mixed <font color=Red>-&gt;</font> ByteString+<a name="line-220"></a><font color=Blue>mixed</font>  PCDATA          <font color=Red>=</font> text <font color=Magenta>"(#PCDATA)"</font>+<a name="line-221"></a><font color=Blue>mixed</font> <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"(#PCDATA |"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-222"></a>                         hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-223"></a>                         text <font color=Magenta>")*"</font>+<a name="line-224"></a>+<a name="line-225"></a><a name="attlistdecl"></a><font color=Blue>attlistdecl</font> <font color=Red>::</font> AttListDecl <font color=Red>-&gt;</font> ByteString+<a name="line-226"></a><font color=Blue>attlistdecl</font> <font color=Cyan>(</font>AttListDecl n ds<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ATTLIST"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-227"></a>                                 fsep <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map attdef ds<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-228"></a><a name="attdef"></a><font color=Blue>attdef</font> <font color=Red>::</font> AttDef <font color=Red>-&gt;</font> ByteString+<a name="line-229"></a><font color=Blue>attdef</font> <font color=Cyan>(</font>AttDef n t d<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;+&gt;</font> atttype t <font color=Cyan>&lt;+&gt;</font> defaultdecl d+<a name="line-230"></a><a name="atttype"></a><font color=Blue>atttype</font> <font color=Red>::</font> AttType <font color=Red>-&gt;</font> ByteString+<a name="line-231"></a><font color=Blue>atttype</font>  StringType            <font color=Red>=</font> text <font color=Magenta>"CDATA"</font>+<a name="line-232"></a><font color=Blue>atttype</font> <font color=Cyan>(</font>TokenizedType t<font color=Cyan>)</font>      <font color=Red>=</font> tokenizedtype t+<a name="line-233"></a><font color=Blue>atttype</font> <font color=Cyan>(</font>EnumeratedType t<font color=Cyan>)</font>     <font color=Red>=</font> enumeratedtype t+<a name="line-234"></a><a name="tokenizedtype"></a><font color=Blue>tokenizedtype</font> <font color=Red>::</font> TokenizedType <font color=Red>-&gt;</font> ByteString+<a name="line-235"></a><font color=Blue>tokenizedtype</font> ID               <font color=Red>=</font> text <font color=Magenta>"ID"</font>+<a name="line-236"></a><font color=Blue>tokenizedtype</font> IDREF            <font color=Red>=</font> text <font color=Magenta>"IDREF"</font>+<a name="line-237"></a><font color=Blue>tokenizedtype</font> IDREFS           <font color=Red>=</font> text <font color=Magenta>"IDREFS"</font>+<a name="line-238"></a><font color=Blue>tokenizedtype</font> ENTITY           <font color=Red>=</font> text <font color=Magenta>"ENTITY"</font>+<a name="line-239"></a><font color=Blue>tokenizedtype</font> ENTITIES         <font color=Red>=</font> text <font color=Magenta>"ENTITIES"</font>+<a name="line-240"></a><font color=Blue>tokenizedtype</font> NMTOKEN          <font color=Red>=</font> text <font color=Magenta>"NMTOKEN"</font>+<a name="line-241"></a><font color=Blue>tokenizedtype</font> NMTOKENS         <font color=Red>=</font> text <font color=Magenta>"NMTOKENS"</font>+<a name="line-242"></a><a name="enumeratedtype"></a><font color=Blue>enumeratedtype</font> <font color=Red>::</font> EnumeratedType <font color=Red>-&gt;</font> ByteString+<a name="line-243"></a><font color=Blue>enumeratedtype</font> <font color=Cyan>(</font>NotationType n<font color=Cyan>)</font><font color=Red>=</font> notationtype n+<a name="line-244"></a><font color=Blue>enumeratedtype</font> <font color=Cyan>(</font>Enumeration e<font color=Cyan>)</font> <font color=Red>=</font> enumeration e+<a name="line-245"></a><a name="notationtype"></a><font color=Blue>notationtype</font> <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>Char<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-246"></a><font color=Blue>notationtype</font> ns                <font color=Red>=</font> text <font color=Magenta>"NOTATION"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-247"></a>                                 parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-248"></a><a name="enumeration"></a><font color=Blue>enumeration</font> <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>Char<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-249"></a><font color=Blue>enumeration</font> ns                 <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map nmtoken ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-250"></a><a name="defaultdecl"></a><font color=Blue>defaultdecl</font> <font color=Red>::</font> DefaultDecl <font color=Red>-&gt;</font> ByteString+<a name="line-251"></a><font color=Blue>defaultdecl</font>  REQUIRED          <font color=Red>=</font> text <font color=Magenta>"#REQUIRED"</font>+<a name="line-252"></a><font color=Blue>defaultdecl</font>  IMPLIED           <font color=Red>=</font> text <font color=Magenta>"#IMPLIED"</font>+<a name="line-253"></a><font color=Blue>defaultdecl</font> <font color=Cyan>(</font>DefaultTo a f<font color=Cyan>)</font>    <font color=Red>=</font> maybe <font color=Cyan>(</font>const <font color=Cyan>(</font>text <font color=Magenta>"#FIXED"</font><font color=Cyan>)</font><font color=Cyan>)</font> f <font color=Cyan>&lt;+&gt;</font> attvalue a+<a name="line-254"></a><a name="reference"></a><font color=Blue>--_ (IncludeSect i)= text "&lt;![INCLUDE [" &lt;+&gt;</font>+<a name="line-255"></a><font color=Blue>--                                 vcat (Prelude.map extsubsetdecl i) &lt;+&gt; text "]]&gt;"</font>+<a name="line-256"></a><font color=Blue>-- conditionalsect (IgnoreSect i) = text "&lt;![IGNORE [" &lt;+&gt;</font>+<a name="line-257"></a><font color=Blue>--                                  fsep (Prelude.map ignoresectcontents i) &lt;+&gt; text "]]&gt;"</font>+<a name="line-258"></a><font color=Blue>-- -- _ (Ignore)                = empty</font>+<a name="line-259"></a><font color=Blue>-- ignoresectcontents :: IgnoreSectContents -&gt; ByteString</font>+<a name="line-260"></a><font color=Blue>-- _ (IgnoreSectContents i is)</font>+<a name="line-261"></a><font color=Blue>--                                = ignore i &lt;+&gt; vcat (Prelude.map internal is)</font>+<a name="line-262"></a><font color=Blue>--                           where internal (ics,i) = text "&lt;![[" &lt;+&gt;</font>+<a name="line-263"></a><font color=Blue>--                                                    ignoresectcontents ics &lt;+&gt;</font>+<a name="line-264"></a><font color=Blue>--                                                    text "]]&gt;" &lt;+&gt; ignore i</font>+<a name="line-265"></a><font color=Blue>reference</font> <font color=Red>::</font> Reference <font color=Red>-&gt;</font> ByteString+<a name="line-266"></a><font color=Blue>reference</font> <font color=Cyan>(</font>RefEntity er<font color=Cyan>)</font>       <font color=Red>=</font> entityref er+<a name="line-267"></a><font color=Blue>reference</font> <font color=Cyan>(</font>RefChar cr<font color=Cyan>)</font>         <font color=Red>=</font> charref cr+<a name="line-268"></a><a name="entityref"></a><font color=Blue>entityref</font> <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-269"></a><font color=Blue>entityref</font> n                    <font color=Red>=</font> text <font color=Magenta>"&amp;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>+<a name="line-270"></a><a name="charref"></a><font color=Blue>charref</font> <font color=Red>::</font> <font color=Cyan>(</font>Show a<font color=Cyan>)</font> <font color=Red>=&gt;</font> a <font color=Red>-&gt;</font> ByteString+<a name="line-271"></a><font color=Blue>charref</font> c                      <font color=Red>=</font> text <font color=Magenta>"&amp;#"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show c<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>+<a name="line-272"></a><a name="entitydecl"></a><font color=Blue>entitydecl</font> <font color=Red>::</font> EntityDecl <font color=Red>-&gt;</font> ByteString+<a name="line-273"></a><font color=Blue>entitydecl</font> <font color=Cyan>(</font>EntityGEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> gedecl d+<a name="line-274"></a><font color=Blue>entitydecl</font> <font color=Cyan>(</font>EntityPEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> pedecl d+<a name="line-275"></a><a name="gedecl"></a><font color=Blue>gedecl</font> <font color=Red>::</font> GEDecl <font color=Red>-&gt;</font> ByteString+<a name="line-276"></a><font color=Blue>gedecl</font> <font color=Cyan>(</font>GEDecl n ed<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> entitydef ed <font color=Cyan>&lt;&gt;</font>+<a name="line-277"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-278"></a><a name="pedecl"></a><font color=Blue>pedecl</font> <font color=Red>::</font> PEDecl <font color=Red>-&gt;</font> ByteString+<a name="line-279"></a><font color=Blue>pedecl</font> <font color=Cyan>(</font>PEDecl n pd<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY %"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> pedef pd <font color=Cyan>&lt;&gt;</font>+<a name="line-280"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-281"></a><a name="entitydef"></a><font color=Blue>entitydef</font> <font color=Red>::</font> EntityDef <font color=Red>-&gt;</font> ByteString+<a name="line-282"></a><font color=Blue>entitydef</font> <font color=Cyan>(</font>DefEntityValue ew<font color=Cyan>)</font>  <font color=Red>=</font> entityvalue ew+<a name="line-283"></a><font color=Blue>entitydef</font> <font color=Cyan>(</font>DefExternalID i nd<font color=Cyan>)</font> <font color=Red>=</font> externalid i <font color=Cyan>&lt;+&gt;</font> maybe ndatadecl nd+<a name="line-284"></a><a name="pedef"></a><font color=Blue>pedef</font> <font color=Red>::</font> PEDef <font color=Red>-&gt;</font> ByteString+<a name="line-285"></a><font color=Blue>pedef</font> <font color=Cyan>(</font>PEDefEntityValue ew<font color=Cyan>)</font>    <font color=Red>=</font> entityvalue ew+<a name="line-286"></a><font color=Blue>pedef</font> <font color=Cyan>(</font>PEDefExternalID eid<font color=Cyan>)</font>    <font color=Red>=</font> externalid eid+<a name="line-287"></a><a name="externalid"></a><font color=Blue>externalid</font> <font color=Red>::</font> ExternalID <font color=Red>-&gt;</font> ByteString+<a name="line-288"></a><font color=Blue>externalid</font> <font color=Cyan>(</font>SYSTEM sl<font color=Cyan>)</font>         <font color=Red>=</font> text <font color=Magenta>"SYSTEM"</font> <font color=Cyan>&lt;+&gt;</font> systemliteral sl+<a name="line-289"></a><font color=Blue>externalid</font> <font color=Cyan>(</font>PUBLIC i sl<font color=Cyan>)</font>       <font color=Red>=</font> text <font color=Magenta>"PUBLIC"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral i <font color=Cyan>&lt;+&gt;</font>+<a name="line-290"></a>                                 systemliteral sl+<a name="line-291"></a><a name="ndatadecl"></a><font color=Blue>ndatadecl</font> <font color=Red>::</font> NDataDecl <font color=Red>-&gt;</font> ByteString+<a name="line-292"></a><font color=Blue>ndatadecl</font> <font color=Cyan>(</font>NDATA n<font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"NDATA"</font> <font color=Cyan>&lt;+&gt;</font> text n+<a name="line-293"></a><a name="notationdecl"></a><font color=Blue>-- _ (TextDecl vi ed)      = text "&lt;?xml" &lt;+&gt; maybe text vi &lt;+&gt;</font>+<a name="line-294"></a><font color=Blue>--                                  encodingdecl ed &lt;&gt; text "?&gt;"</font>+<a name="line-295"></a><font color=Blue>-- extparsedent :: ExtParsedEnt t -&gt; ByteString</font>+<a name="line-296"></a><font color=Blue>-- _ (ExtParsedEnt t c)= maybe textdecl t &lt;+&gt; content c</font>+<a name="line-297"></a><font color=Blue>-- _ (ExtPE t esd)            = maybe textdecl t &lt;+&gt;</font>+<a name="line-298"></a><font color=Blue>--                                  vcat (Prelude.map extsubsetdecl esd)</font>+<a name="line-299"></a><font color=Blue>notationdecl</font> <font color=Red>::</font> NotationDecl <font color=Red>-&gt;</font> ByteString+<a name="line-300"></a><font color=Blue>notationdecl</font> <font color=Cyan>(</font>NOTATION n e<font color=Cyan>)</font>    <font color=Red>=</font> text <font color=Magenta>"&lt;!NOTATION"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-301"></a>                                 either externalid publicid e <font color=Cyan>&lt;&gt;</font>+<a name="line-302"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-303"></a><a name="publicid"></a><font color=Blue>publicid</font> <font color=Red>::</font> PublicID <font color=Red>-&gt;</font> ByteString+<a name="line-304"></a><font color=Blue>publicid</font> <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>          <font color=Red>=</font> text <font color=Magenta>"PUBLICID"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral p+<a name="line-305"></a><a name="encodingdecl"></a><font color=Blue>encodingdecl</font> <font color=Red>::</font> EncodingDecl <font color=Red>-&gt;</font> ByteString+<a name="line-306"></a><font color=Blue>encodingdecl</font> <font color=Cyan>(</font>EncodingDecl s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"encoding='"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-307"></a><a name="nmtoken"></a><font color=Blue>nmtoken</font> <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-308"></a><font color=Blue>nmtoken</font> s                      <font color=Red>=</font> text s+<a name="line-309"></a><a name="attvalue"></a><font color=Blue>attvalue</font> <font color=Red>::</font> AttValue <font color=Red>-&gt;</font> ByteString+<a name="line-310"></a><font color=Blue>attvalue</font> <font color=Cyan>(</font>AttValue esr<font color=Cyan>)</font>        <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-311"></a>                                 hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map <font color=Cyan>(</font>either text reference<font color=Cyan>)</font> esr<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-312"></a>                                 text <font color=Magenta>"\""</font>+<a name="line-313"></a><a name="entityvalue"></a><font color=Blue>entityvalue</font> <font color=Red>::</font> EntityValue <font color=Red>-&gt;</font> ByteString+<a name="line-314"></a><font color=Blue>entityvalue</font> <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>+<a name="line-315"></a>  <font color=Red>|</font> containsDoubleQuote evs    <font color=Red>=</font> text <font color=Magenta>"'"</font>  <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-316"></a>  <font color=Red>|</font> otherwise                  <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>+<a name="line-317"></a><a name="ev"></a><font color=Blue>ev</font> <font color=Red>::</font> EV <font color=Red>-&gt;</font> ByteString+<a name="line-318"></a><font color=Blue>ev</font> <font color=Cyan>(</font>EVString s<font color=Cyan>)</font>                <font color=Red>=</font> text s+<a name="line-319"></a><font color=Blue>--ev (EVPERef p e)               = peref p</font>+<a name="line-320"></a><font color=Blue>ev</font> <font color=Cyan>(</font>EVRef r<font color=Cyan>)</font>                   <font color=Red>=</font> reference r+<a name="line-321"></a><a name="pubidliteral"></a><font color=Blue>pubidliteral</font> <font color=Red>::</font> PubidLiteral <font color=Red>-&gt;</font> ByteString+<a name="line-322"></a><font color=Blue>pubidliteral</font> <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>+<a name="line-323"></a>    <font color=Red>|</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-324"></a>    <font color=Red>|</font> otherwise                <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>+<a name="line-325"></a><a name="systemliteral"></a><font color=Blue>systemliteral</font> <font color=Red>::</font> SystemLiteral <font color=Red>-&gt;</font> ByteString+<a name="line-326"></a><font color=Blue>systemliteral</font> <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>+<a name="line-327"></a>    <font color=Red>|</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-328"></a>    <font color=Red>|</font> otherwise                <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>+<a name="line-329"></a><a name="chardata"></a><font color=Blue>chardata</font><font color=Cyan>,</font> cdsect <font color=Red>::</font> <font color=Red>[</font>Char<font color=Red>]</font> <font color=Red>-&gt;</font> ByteString+<a name="line-330"></a><font color=Blue>chardata</font> s                     <font color=Red>=</font> <font color=Blue>{-if all isSpace s then empty else-}</font> text s+<a name="line-331"></a><a name="cdsect"></a><font color=Blue>cdsect</font> c                       <font color=Red>=</font> text <font color=Magenta>"&lt;![CDATA["</font> <font color=Cyan>&lt;&gt;</font> chardata c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]]&gt;"</font>+<a name="line-332"></a>+<a name="line-333"></a><a name="toWord8"></a><font color=Blue>-- toWord8 :: Char -&gt; Word8</font>+<a name="line-334"></a><font color=Blue>toWord8</font> <font color=Red>::</font> <font color=Cyan>(</font>Enum a<font color=Cyan>,</font> Enum a1<font color=Cyan>)</font> <font color=Red>=&gt;</font> a1 <font color=Red>-&gt;</font> a+<a name="line-335"></a><font color=Blue>toWord8</font> <font color=Red>=</font> toEnum <font color=Cyan>.</font> fromEnum+<a name="line-336"></a>+<a name="line-337"></a><a name="containsDoubleQuote"></a><font color=Blue>containsDoubleQuote</font> <font color=Red>::</font> <font color=Red>[</font>EV<font color=Red>]</font> <font color=Red>-&gt;</font> Bool+<a name="line-338"></a><font color=Blue>containsDoubleQuote</font> evs <font color=Red>=</font> any csq evs+<a name="line-339"></a>    <font color=Green><u>where</u></font> csq <font color=Cyan>(</font>EVString s<font color=Cyan>)</font> <font color=Red>=</font> toWord8 <font color=Magenta>'"'</font> <font color=Cyan>`elem`</font> <font color=Cyan>(</font>pack s<font color=Cyan>)</font>+<a name="line-340"></a>          csq <font color=Green><u>_</u></font>            <font color=Red>=</font> False </pre>+</body> </html>

@@ -1,428 +1,434 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>--------------------------------------------</font>-<a name="(line2)"></a><font color=Blue>-- | This module defines the notion of filters and filter combinators</font>-<a name="(line3)"></a><font color=Blue>--   for processing XML documents.</font>-<a name="(line4)"></a><font color=Blue>--</font>-<a name="(line5)"></a><font color=Blue>--   These XML transformation combinators are described in the paper</font>-<a name="(line6)"></a><font color=Blue>--   ``Haskell and XML: Generic Combinators or Type-Based Translation?''</font>-<a name="(line7)"></a><font color=Blue>--   Malcolm Wallace and Colin Runciman, Proceedings ICFP'99.</font>-<a name="(line8)"></a><font color=Blue>--------------------------------------------</font>-<a name="(line9)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators-<a name="(line10)"></a>  <font color=Cyan>(</font><font color=Blue>-- * The content filter type.</font>-<a name="(line11)"></a>    CFilter-<a name="(line12)"></a>-<a name="(line13)"></a>   <font color=Blue>-- * Simple filters.</font>-<a name="(line14)"></a>   <font color=Blue>-- ** Selection filters.</font>-<a name="(line15)"></a>   <font color=Blue>-- $selection</font>-<a name="(line16)"></a>  <font color=Cyan>,</font> keep<font color=Cyan>,</font> none<font color=Cyan>,</font> children<font color=Cyan>,</font> position-<a name="(line17)"></a>-<a name="(line18)"></a>   <font color=Blue>-- ** Predicate filters.</font>-<a name="(line19)"></a>   <font color=Blue>-- $pred</font>-<a name="(line20)"></a>  <font color=Cyan>,</font> elm<font color=Cyan>,</font> txt<font color=Cyan>,</font> tag<font color=Cyan>,</font> attr<font color=Cyan>,</font> attrval<font color=Cyan>,</font> tagWith-<a name="(line21)"></a>-<a name="(line22)"></a>   <font color=Blue>-- ** Search filters.</font>-<a name="(line23)"></a>  <font color=Cyan>,</font> find<font color=Cyan>,</font> iffind<font color=Cyan>,</font> ifTxt-<a name="(line24)"></a>-<a name="(line25)"></a>   <font color=Blue>-- * Filter combinators</font>-<a name="(line26)"></a>   <font color=Blue>-- ** Basic combinators.</font>-<a name="(line27)"></a>  <font color=Cyan>,</font> o<font color=Cyan>,</font> union<font color=Cyan>,</font> cat<font color=Cyan>,</font> andThen-<a name="(line28)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>|&gt;|</font><font color=Cyan>)</font><font color=Cyan>,</font> with<font color=Cyan>,</font> without-<a name="(line29)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>/&gt;</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>&lt;/</font><font color=Cyan>)</font><font color=Cyan>,</font> et-<a name="(line30)"></a>  <font color=Cyan>,</font> path-<a name="(line31)"></a>   <font color=Blue>-- ** Recursive search.</font>-<a name="(line32)"></a>   <font color=Blue>-- $recursive</font>-<a name="(line33)"></a>  <font color=Cyan>,</font> deep<font color=Cyan>,</font> deepest<font color=Cyan>,</font> multi-<a name="(line34)"></a>   <font color=Blue>-- ** Interior editing.</font>-<a name="(line35)"></a>  <font color=Cyan>,</font> when<font color=Cyan>,</font> guards<font color=Cyan>,</font> chip<font color=Cyan>,</font> inplace<font color=Cyan>,</font> foldXml-<a name="(line36)"></a>   <font color=Blue>-- ** Constructive filters.</font>-<a name="(line37)"></a>  <font color=Cyan>,</font> mkElem<font color=Cyan>,</font> mkElemAttr<font color=Cyan>,</font> literal<font color=Cyan>,</font> cdata<font color=Cyan>,</font> replaceTag<font color=Cyan>,</font> replaceAttrs-<a name="(line38)"></a>-<a name="(line39)"></a>   <font color=Blue>-- * C-like conditionals.</font>-<a name="(line40)"></a>   <font color=Blue>-- $cond</font>-<a name="(line41)"></a>  <font color=Cyan>,</font> ThenElse<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?&gt;</font><font color=Cyan>)</font>-<a name="(line42)"></a>-<a name="(line43)"></a>   <font color=Blue>-- * Filters with labelled results.</font>-<a name="(line44)"></a>  <font color=Cyan>,</font> LabelFilter-<a name="(line45)"></a>   <font color=Blue>-- ** Using and combining labelled filters.</font>-<a name="(line46)"></a>  <font color=Cyan>,</font> oo<font color=Cyan>,</font> x-<a name="(line47)"></a>   <font color=Blue>-- ** Some label-generating filters.</font>-<a name="(line48)"></a>  <font color=Cyan>,</font> numbered<font color=Cyan>,</font> interspersed<font color=Cyan>,</font> tagged<font color=Cyan>,</font> attributed<font color=Cyan>,</font> textlabelled<font color=Cyan>,</font> extracted-<a name="(line49)"></a>-<a name="(line50)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line51)"></a>-<a name="(line52)"></a>-<a name="(line53)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line54)"></a><font color=Green><u>import</u></font> Maybe <font color=Cyan>(</font>fromMaybe<font color=Cyan>)</font>-<a name="(line55)"></a>-<a name="(line56)"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>`with`</font><font color=Cyan>,</font> <font color=Cyan>`without`</font>-<a name="(line57)"></a><font color=Green><u>infixr</u></font> <font color=Magenta>5</font> <font color=Cyan>`o`</font><font color=Cyan>,</font> <font color=Cyan>`oo`</font><font color=Cyan>,</font> <font color=Cyan>`union`</font><font color=Cyan>,</font> <font color=Cyan>`andThen`</font>		<font color=Blue>-- , `orelse`</font>-<a name="(line58)"></a><font color=Green><u>infixl</u></font> <font color=Magenta>5</font> <font color=Cyan>/&gt;</font><font color=Cyan>,</font> <font color=Cyan>&lt;/</font><font color=Cyan>,</font> <font color=Cyan>|&gt;|</font>-<a name="(line59)"></a><font color=Green><u>infixr</u></font> <font color=Magenta>4</font> <font color=Cyan>`when`</font><font color=Cyan>,</font> <font color=Cyan>`guards`</font>-<a name="(line60)"></a><font color=Green><u>infixr</u></font> <font color=Magenta>3</font> <font color=Cyan>?&gt;</font><font color=Cyan>,</font> <font color=Red><b>:&gt;</b></font>-<a name="(line61)"></a>-<a name="(line62)"></a>-<a name="(line63)"></a>-<a name="(line64)"></a><font color=Blue>-- THE CONTENT FILTER TYPE</font>-<a name="(line65)"></a>-<a name="(line66)"></a><a name="CFilter"></a><font color=Blue>-- | All document transformations are /content filters/.</font>-<a name="(line67)"></a><a name="CFilter"></a><font color=Blue>--   A filter takes a single XML 'Content' value and returns a sequence</font>-<a name="(line68)"></a><a name="CFilter"></a><font color=Blue>--   of 'Content' values, possibly empty.</font>-<a name="(line69)"></a><a name="CFilter"></a><font color=Green><u>type</u></font> CFilter i  <font color=Red>=</font> Content i <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line70)"></a>-<a name="(line71)"></a>-<a name="(line72)"></a>-<a name="(line73)"></a><a name="keep"></a><font color=Blue>-- BASIC SELECTION FILTERS</font>-<a name="(line74)"></a><font color=Blue>-- $selection</font>-<a name="(line75)"></a><font color=Blue>-- In the algebra of combinators, @none@ is the zero, and @keep@ the identity.</font>-<a name="(line76)"></a><font color=Blue>-- (They have a more general type than just CFilter.)</font>-<a name="(line77)"></a>keep <font color=Red>::</font> a<font color=Red>-&gt;</font><font color=Red>[</font>a<font color=Red>]</font>-<a name="(line78)"></a>keep <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font><font color=Red>[</font>x<font color=Red>]</font>-<a name="(line79)"></a><a name="none"></a>none <font color=Red>::</font> a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font>-<a name="(line80)"></a>none <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font>[]-<a name="(line81)"></a>-<a name="(line82)"></a><a name="children"></a><font color=Blue>-- | Throw away current node, keep just the (unprocessed) children.</font>-<a name="(line83)"></a>children <font color=Red>::</font> CFilter i-<a name="(line84)"></a>children <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> cs<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> cs-<a name="(line85)"></a>children <font color=Green><u>_</u></font> <font color=Red>=</font> []-<a name="(line86)"></a>-<a name="(line87)"></a><a name="position"></a><font color=Blue>-- | Select the @n@'th positional result of a filter.</font>-<a name="(line88)"></a>position <font color=Red>::</font> Int <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line89)"></a>position n f <font color=Red>=</font> <font color=Cyan>(</font><font color=Red>\</font>cs<font color=Red>-&gt;</font> <font color=Red>[</font>cs<font color=Cyan>!!</font>n<font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>.</font> f-<a name="(line90)"></a>-<a name="(line91)"></a>-<a name="(line92)"></a>-<a name="(line93)"></a><font color=Blue>-- BASIC PREDICATE FILTERS</font>-<a name="(line94)"></a><font color=Blue>-- $pred</font>-<a name="(line95)"></a><font color=Blue>-- These filters either keep or throw away some content based on</font>-<a name="(line96)"></a><font color=Blue>-- a simple test.  For instance, @elm@ keeps only a tagged element,</font>-<a name="(line97)"></a><font color=Blue>-- @txt@ keeps only non-element text, @tag@ keeps only an element</font>-<a name="(line98)"></a><font color=Blue>-- with the named tag, @attr@ keeps only an element with the named</font>-<a name="(line99)"></a><font color=Blue>-- attribute, @attrval@ keeps only an element with the given</font>-<a name="(line100)"></a><font color=Blue>-- attribute value, @tagWith@ keeps only an element whose tag name</font>-<a name="(line101)"></a><font color=Blue>-- satisfies the given predicate.</font>-<a name="(line102)"></a>-<a name="(line103)"></a><a name="elm"></a>elm<font color=Cyan>,</font> txt   <font color=Red>::</font> CFilter i-<a name="(line104)"></a><a name="tag"></a>tag        <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i-<a name="(line105)"></a><a name="attr"></a>attr       <font color=Red>::</font> Name <font color=Red>-&gt;</font> CFilter i-<a name="(line106)"></a><a name="attrval"></a>attrval    <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> CFilter i-<a name="(line107)"></a><a name="tagWith"></a>tagWith    <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>Bool<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line108)"></a>-<a name="(line109)"></a>elm x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line110)"></a>elm <font color=Green><u>_</u></font>             <font color=Red>=</font> []-<a name="(line111)"></a>-<a name="(line112)"></a><a name="txt"></a>txt x<font color=Red>@</font><font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line113)"></a>txt x<font color=Red>@</font><font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line114)"></a>txt <font color=Green><u>_</u></font>                 <font color=Red>=</font> []-<a name="(line115)"></a>-<a name="(line116)"></a>tag t x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> t<font color=Cyan>==</font>n  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line117)"></a>tag t <font color=Green><u>_</u></font>  <font color=Red>=</font> []-<a name="(line118)"></a>-<a name="(line119)"></a>tagWith p x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> p n  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line120)"></a>tagWith p <font color=Green><u>_</u></font>  <font color=Red>=</font> []-<a name="(line121)"></a>-<a name="(line122)"></a>attr n x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Cyan>(</font>map fst <font color=Green><u>as</u></font><font color=Cyan>)</font>  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line123)"></a>attr n <font color=Green><u>_</u></font>  <font color=Red>=</font> []-<a name="(line124)"></a>-<a name="(line125)"></a>attrval av x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> av <font color=Cyan>`elem`</font> <font color=Green><u>as</u></font>  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line126)"></a>attrval av <font color=Green><u>_</u></font>  <font color=Red>=</font> []-<a name="(line127)"></a>-<a name="(line128)"></a>-<a name="(line129)"></a>-<a name="(line130)"></a><font color=Blue>-- SEARCH FILTERS</font>-<a name="(line131)"></a>-<a name="(line132)"></a><a name="find"></a><font color=Blue>-- | For a mandatory attribute field, @find key cont@ looks up the value of</font>-<a name="(line133)"></a><font color=Blue>--   the attribute name @key@, and applies the continuation @cont@ to</font>-<a name="(line134)"></a><font color=Blue>--   the value.</font>-<a name="(line135)"></a>find <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line136)"></a>find key cont c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> cont <font color=Cyan>(</font>show <font color=Cyan>(</font>lookfor key <font color=Green><u>as</u></font><font color=Cyan>)</font><font color=Cyan>)</font> c-<a name="(line137)"></a>  <font color=Green><u>where</u></font> lookfor x <font color=Red>=</font> fromMaybe <font color=Cyan>(</font>error <font color=Cyan>(</font><font color=Magenta>"missing attribute: "</font><font color=Cyan>++</font>show x<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>.</font> lookup x-<a name="(line138)"></a><font color=Blue>-- 'lookfor' has the more general type :: (Eq a,Show a) =&gt; a -&gt; [(a,b)] -&gt; b</font>-<a name="(line139)"></a>-<a name="(line140)"></a><a name="iffind"></a><font color=Blue>-- | When an attribute field may be absent, use @iffind key yes no@ to lookup</font>-<a name="(line141)"></a><font color=Blue>--   its value.  If the attribute is absent, it acts as the @no@ filter,</font>-<a name="(line142)"></a><font color=Blue>--   otherwise it applies the @yes@ filter.</font>-<a name="(line143)"></a>iffind <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line144)"></a>iffind key yes no c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line145)"></a>  <font color=Green><u>case</u></font> <font color=Cyan>(</font>lookup key <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Green><u>of</u></font>-<a name="(line146)"></a>    Nothing  <font color=Red>-&gt;</font> no c-<a name="(line147)"></a>    <font color=Cyan>(</font>Just v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> yes <font color=Cyan>(</font>show v<font color=Cyan>)</font> c-<a name="(line148)"></a>iffind key yes no other <font color=Red>=</font> no other-<a name="(line149)"></a>-<a name="(line150)"></a><a name="ifTxt"></a><font color=Blue>-- | @ifTxt yes no@ processes any textual content with the @yes@ filter,</font>-<a name="(line151)"></a><font color=Blue>--   but otherwise is the same as the @no@ filter.</font>-<a name="(line152)"></a>ifTxt <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line153)"></a>ifTxt yes no c<font color=Red>@</font><font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> yes s c-<a name="(line154)"></a>ifTxt yes no c                 <font color=Red>=</font> no c-<a name="(line155)"></a>-<a name="(line156)"></a>-<a name="(line157)"></a>-<a name="(line158)"></a><font color=Blue>-- C-LIKE CONDITIONALS</font>-<a name="(line159)"></a><font color=Blue>--</font>-<a name="(line160)"></a><font color=Blue>-- $cond</font>-<a name="(line161)"></a><font color=Blue>-- These definitions provide C-like conditionals, lifted to the filter level.</font>-<a name="(line162)"></a><font color=Blue>--</font>-<a name="(line163)"></a><font color=Blue>-- The @(cond ? yes : no)@ style in C becomes @(cond ?&gt; yes :&gt; no)@ in Haskell.</font>-<a name="(line164)"></a>-<a name="(line165)"></a><a name="ThenElse"></a><font color=Blue>-- | Conjoin the two branches of a conditional.</font>-<a name="(line166)"></a><a name="ThenElse"></a><font color=Green><u>data</u></font> ThenElse a <font color=Red>=</font> a <font color=Red><b>:&gt;</b></font> a-<a name="(line167)"></a>-<a name="(line168)"></a><a name="?>"></a><font color=Blue>-- | Select between the two branches of a joined conditional.</font>-<a name="(line169)"></a><font color=Cyan>(</font><font color=Cyan>?&gt;</font><font color=Cyan>)</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> ThenElse <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>-<a name="(line170)"></a><a name="p"></a>p <font color=Cyan>?&gt;</font> <font color=Cyan>(</font>f <font color=Red><b>:&gt;</b></font> g<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>if</u></font> <font color=Cyan>(</font>not<font color=Cyan>.</font>null<font color=Cyan>.</font>p<font color=Cyan>)</font> c <font color=Green><u>then</u></font> f c <font color=Green><u>else</u></font> g c-<a name="(line171)"></a>-<a name="(line172)"></a>-<a name="(line173)"></a>-<a name="(line174)"></a><font color=Blue>-- FILTER COMBINATORS</font>-<a name="(line175)"></a>-<a name="(line176)"></a>-<a name="(line177)"></a><a name="o"></a><font color=Blue>-- | Sequential (/Irish/,/backwards/) composition</font>-<a name="(line178)"></a>o <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line179)"></a><a name="o"></a>f <font color=Cyan>`o`</font> g <font color=Red>=</font> concatMap f <font color=Cyan>.</font> g-<a name="(line180)"></a>-<a name="(line181)"></a><a name="union"></a><font color=Blue>-- | Binary parallel composition.  Each filter uses a copy of the input,</font>-<a name="(line182)"></a><font color=Blue>-- rather than one filter using the result of the other.</font>-<a name="(line183)"></a><font color=Blue>--   (Has a more general type than just CFilter.)</font>-<a name="(line184)"></a>union <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>-<a name="(line185)"></a>union <font color=Red>=</font> lift <font color=Cyan>(</font><font color=Cyan>++</font><font color=Cyan>)</font>		<font color=Blue>-- in Haskell 98:   union = lift List.union</font>-<a name="(line186)"></a>  <font color=Green><u>where</u></font>-<a name="(line187)"></a>    lift <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>b<font color=Red>-&gt;</font>d<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>a<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>b<font color=Cyan>)</font> <font color=Red>-&gt;</font> c <font color=Red>-&gt;</font> d-<a name="(line188)"></a>    lift f g h <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> f <font color=Cyan>(</font>g x<font color=Cyan>)</font> <font color=Cyan>(</font>h x<font color=Cyan>)</font>-<a name="(line189)"></a>-<a name="(line190)"></a><a name="cat"></a><font color=Blue>-- | Glue a list of filters together.  (A list version of union;</font>-<a name="(line191)"></a><font color=Blue>--   also has a more general type than just CFilter.)</font>-<a name="(line192)"></a>cat <font color=Red>::</font> <font color=Red>[</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>-<a name="(line193)"></a><font color=Blue>--   Specification: cat fs = \e-&gt; concat [ f e | f &lt;- fs ]</font>-<a name="(line194)"></a><font color=Blue>--   more efficient implementation below:</font>-<a name="(line195)"></a>cat [] <font color=Red>=</font> const []-<a name="(line196)"></a>cat fs <font color=Red>=</font> foldr1 union fs-<a name="(line197)"></a>-<a name="(line198)"></a><a name="andThen"></a><font color=Blue>-- | A special form of filter composition where the second filter</font>-<a name="(line199)"></a><font color=Blue>--   works over the same data as the first, but also uses the</font>-<a name="(line200)"></a><font color=Blue>--   first's result.</font>-<a name="(line201)"></a>andThen <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>c<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>a<font color=Red>-&gt;</font>b<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>b<font color=Cyan>)</font>-<a name="(line202)"></a>andThen f g <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> g <font color=Cyan>(</font>f x<font color=Cyan>)</font> x			<font color=Blue>-- lift g f id</font>-<a name="(line203)"></a>-<a name="(line204)"></a><a name="childrenBy"></a><font color=Blue>-- | Process children using specified filters.  /not exported/</font>-<a name="(line205)"></a>childrenBy <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i -<a name="(line206)"></a>childrenBy f <font color=Red>=</font> f <font color=Cyan>`o`</font> children-<a name="(line207)"></a>-<a name="(line208)"></a><a name="|>|"></a><font color=Blue>-- | Directional choice:</font>-<a name="(line209)"></a><font color=Blue>--   in @f |&gt;| g@ give g-productions only if no f-productions</font>-<a name="(line210)"></a><font color=Cyan>(</font><font color=Cyan>|&gt;|</font><font color=Cyan>)</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>-<a name="(line211)"></a><a name="f"></a>f <font color=Cyan>|&gt;|</font> g <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> fx <font color=Red>=</font> f x <font color=Green><u>in</u></font> <font color=Green><u>if</u></font> null fx <font color=Green><u>then</u></font> g x <font color=Green><u>else</u></font> fx-<a name="(line212)"></a><font color=Blue>--      f |&gt;| g  =  f ?&gt; f :&gt; g</font>-<a name="(line213)"></a>-<a name="(line214)"></a><a name="with"></a><font color=Blue>-- | Pruning: in @f `with` g@,</font>-<a name="(line215)"></a><font color=Blue>--   keep only those f-productions which have at least one g-production</font>-<a name="(line216)"></a>with <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line217)"></a><a name="with"></a>f <font color=Cyan>`with`</font> g <font color=Red>=</font> filter <font color=Cyan>(</font>not<font color=Cyan>.</font>null<font color=Cyan>.</font>g<font color=Cyan>)</font> <font color=Cyan>.</font> f-<a name="(line218)"></a>-<a name="(line219)"></a><a name="without"></a><font color=Blue>-- | Pruning: in @f `without` g@,</font>-<a name="(line220)"></a><font color=Blue>--   keep only those f-productions which have no g-productions</font>-<a name="(line221)"></a>without <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line222)"></a><a name="without"></a>f <font color=Cyan>`without`</font> g <font color=Red>=</font> filter <font color=Cyan>(</font>null<font color=Cyan>.</font>g<font color=Cyan>)</font> <font color=Cyan>.</font> f-<a name="(line223)"></a>-<a name="(line224)"></a><a name="/>"></a><font color=Blue>-- | Pronounced /slash/, @f \/&gt; g@ means g inside f</font>-<a name="(line225)"></a><font color=Cyan>(</font><font color=Cyan>/&gt;</font><font color=Cyan>)</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line226)"></a>f <font color=Cyan>/&gt;</font> g <font color=Red>=</font> g <font color=Cyan>`o`</font> children <font color=Cyan>`o`</font> f-<a name="(line227)"></a>-<a name="(line228)"></a><a name="</"></a><font color=Blue>-- | Pronounced /outside/, @f \&lt;\/ g@ means f containing g</font>-<a name="(line229)"></a><font color=Cyan>(</font><font color=Cyan>&lt;/</font><font color=Cyan>)</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line230)"></a>f <font color=Cyan>&lt;/</font> g <font color=Red>=</font> f <font color=Cyan>`with`</font> <font color=Cyan>(</font>g <font color=Cyan>`o`</font> children<font color=Cyan>)</font>-<a name="(line231)"></a>-<a name="(line232)"></a><a name="et"></a><font color=Blue>-- | Join an element-matching filter with a text-only filter</font>-<a name="(line233)"></a>et <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line234)"></a>et f g <font color=Red>=</font> <font color=Cyan>(</font>f <font color=Cyan>`oo`</font> tagged elm<font color=Cyan>)</font>-<a name="(line235)"></a>            <font color=Cyan>|&gt;|</font>-<a name="(line236)"></a>         <font color=Cyan>(</font>g <font color=Cyan>`o`</font> txt<font color=Cyan>)</font>-<a name="(line237)"></a>-<a name="(line238)"></a><a name="path"></a><font color=Blue>-- | Express a list of filters like an XPath query, e.g.</font>-<a name="(line239)"></a><font color=Blue>--   @path [children, tag \"name1\", attr \"attr1\", children, tag \"name2\"]@</font>-<a name="(line240)"></a><font color=Blue>--   is like the XPath query @\/name1[\@attr1]\/name2@.</font>-<a name="(line241)"></a>path <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line242)"></a>path fs <font color=Red>=</font> foldr <font color=Cyan>(</font>flip <font color=Cyan>(</font>o<font color=Cyan>)</font><font color=Cyan>)</font> keep fs-<a name="(line243)"></a>-<a name="(line244)"></a>-<a name="(line245)"></a><a name="deep"></a><font color=Blue>-- RECURSIVE SEARCH</font>-<a name="(line246)"></a><font color=Blue>-- $recursive</font>-<a name="(line247)"></a><font color=Blue>-- Recursive search has three variants: @deep@ does a breadth-first</font>-<a name="(line248)"></a><font color=Blue>-- search of the tree, @deepest@ does a depth-first search, @multi@ returns</font>-<a name="(line249)"></a><font color=Blue>-- content at all tree-levels, even those strictly contained within results</font>-<a name="(line250)"></a><font color=Blue>-- that have already been returned.</font>-<a name="(line251)"></a>deep<font color=Cyan>,</font> deepest<font color=Cyan>,</font> multi <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line252)"></a>deep f     <font color=Red>=</font> f <font color=Cyan>|&gt;|</font> <font color=Cyan>(</font>deep f <font color=Cyan>`o`</font> children<font color=Cyan>)</font>-<a name="(line253)"></a><a name="deepest"></a>deepest f  <font color=Red>=</font> <font color=Cyan>(</font>deepest f <font color=Cyan>`o`</font> children<font color=Cyan>)</font> <font color=Cyan>|&gt;|</font> f-<a name="(line254)"></a><a name="multi"></a>multi f    <font color=Red>=</font> f <font color=Cyan>`union`</font> <font color=Cyan>(</font>multi f <font color=Cyan>`o`</font> children<font color=Cyan>)</font>-<a name="(line255)"></a>-<a name="(line256)"></a><a name="when"></a><font color=Blue>-- | Interior editing:</font>-<a name="(line257)"></a><font color=Blue>--   @f `when` g@ applies @f@ only when the predicate @g@ succeeds,</font>-<a name="(line258)"></a><font color=Blue>--   otherwise the content is unchanged.</font>-<a name="(line259)"></a>when   <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line260)"></a><a name="guards"></a><font color=Blue>-- | Interior editing:</font>-<a name="(line261)"></a><font color=Blue>--   @g `guards` f@ applies @f@ only when the predicate @g@ succeeds,</font>-<a name="(line262)"></a><font color=Blue>--   otherwise the content is discarded.</font>-<a name="(line263)"></a>guards <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line264)"></a><a name="when"></a>f <font color=Cyan>`when`</font> g       <font color=Red>=</font> g <font color=Cyan>?&gt;</font> f <font color=Red><b>:&gt;</b></font> keep-<a name="(line265)"></a><a name="guards"></a>g <font color=Cyan>`guards`</font> f     <font color=Red>=</font> g <font color=Cyan>?&gt;</font> f <font color=Red><b>:&gt;</b></font> none	<font color=Blue>-- = f `o` (keep `with` g)</font>-<a name="(line266)"></a>-<a name="(line267)"></a><a name="chip"></a><font color=Blue>-- | Process CHildren In Place.  The filter is applied to any children</font>-<a name="(line268)"></a><font color=Blue>--   of an element content, and the element rebuilt around the results.</font>-<a name="(line269)"></a>chip <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line270)"></a>chip f <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> <font color=Cyan>(</font>concatMap f cs<font color=Cyan>)</font><font color=Cyan>)</font> i <font color=Red>]</font>-<a name="(line271)"></a>chip f c <font color=Red>=</font> <font color=Red>[</font>c<font color=Red>]</font>-<a name="(line272)"></a><font color=Blue>-- chip f = inplace (f `o` children)</font>-<a name="(line273)"></a>-<a name="(line274)"></a><a name="inplace"></a><font color=Blue>-- | Process an element In Place.  The filter is applied to the element</font>-<a name="(line275)"></a><font color=Blue>--   itself, and then the original element rebuilt around the results.</font>-<a name="(line276)"></a>inplace <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line277)"></a>inplace f c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem name <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem name <font color=Green><u>as</u></font> <font color=Cyan>(</font>f c<font color=Cyan>)</font><font color=Cyan>)</font> i <font color=Red>]</font>-<a name="(line278)"></a>inplace f c <font color=Red>=</font> <font color=Red>[</font>c<font color=Red>]</font>-<a name="(line279)"></a>-<a name="(line280)"></a>-<a name="(line281)"></a><a name="foldXml"></a><font color=Blue>-- | Recursive application of filters: a fold-like operator.  Defined</font>-<a name="(line282)"></a><font color=Blue>--   as @f `o` chip (foldXml f)@.</font>-<a name="(line283)"></a>foldXml <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line284)"></a>foldXml f <font color=Red>=</font> f <font color=Cyan>`o`</font> chip <font color=Cyan>(</font>foldXml f<font color=Cyan>)</font>-<a name="(line285)"></a>-<a name="(line286)"></a>-<a name="(line287)"></a>-<a name="(line288)"></a>-<a name="(line289)"></a><font color=Blue>-- CONSTRUCTIVE CONTENT FILTERS</font>-<a name="(line290)"></a>-<a name="(line291)"></a><a name="mkElem"></a><font color=Blue>-- | Build an element with the given tag name - its content is the results</font>-<a name="(line292)"></a><font color=Blue>--   of the given list of filters.</font>-<a name="(line293)"></a>mkElem <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line294)"></a>mkElem h cfs <font color=Red>=</font> <font color=Red>\</font>t<font color=Red>-&gt;</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem h [] <font color=Cyan>(</font>cat cfs t<font color=Cyan>)</font><font color=Cyan>)</font> undefined <font color=Red>]</font>-<a name="(line295)"></a>-<a name="(line296)"></a><a name="mkElemAttr"></a><font color=Blue>-- | Build an element with the given name, attributes, and content.</font>-<a name="(line297)"></a>mkElemAttr <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font>CFilter i<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line298)"></a>mkElemAttr h <font color=Green><u>as</u></font> cfs <font color=Red>=</font> <font color=Red>\</font>t<font color=Red>-&gt;</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem h <font color=Cyan>(</font>map <font color=Cyan>(</font>attr t<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>cat cfs t<font color=Cyan>)</font><font color=Cyan>)</font> undefined <font color=Red>]</font>-<a name="(line299)"></a>  <font color=Green><u>where</u></font> attr t <font color=Cyan>(</font>n<font color=Cyan>,</font>vf<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line300)"></a>            <font color=Green><u>let</u></font> v <font color=Red>=</font> concat <font color=Red>[</font> s <font color=Red>|</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> <font color=Cyan>(</font>deep txt <font color=Cyan>`o`</font> vf<font color=Cyan>)</font> t <font color=Red>]</font>-<a name="(line301)"></a>            <font color=Green><u>in</u></font>  <font color=Cyan>(</font>n<font color=Cyan>,</font> AttValue <font color=Red>[</font>Left v<font color=Red>]</font><font color=Cyan>)</font>-<a name="(line302)"></a>-<a name="(line303)"></a><a name="literal"></a><font color=Blue>-- | Build some textual content.</font>-<a name="(line304)"></a>literal <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i-<a name="(line305)"></a>literal s <font color=Red>=</font> const <font color=Red>[</font>CString False s undefined<font color=Red>]</font>-<a name="(line306)"></a>-<a name="(line307)"></a><a name="cdata"></a><font color=Blue>-- | Build some CDATA content.</font>-<a name="(line308)"></a>cdata <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i-<a name="(line309)"></a>cdata s <font color=Red>=</font> const <font color=Red>[</font>CString True s undefined<font color=Red>]</font>-<a name="(line310)"></a>-<a name="(line311)"></a><a name="replaceTag"></a><font color=Blue>-- | Rename an element tag (leaving attributes in place).</font>-<a name="(line312)"></a>replaceTag <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i-<a name="(line313)"></a>replaceTag n <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Red>]</font>-<a name="(line314)"></a>replaceTag n <font color=Green><u>_</u></font> <font color=Red>=</font> []-<a name="(line315)"></a>-<a name="(line316)"></a><a name="replaceAttrs"></a><font color=Blue>-- | Replace the attributes of an element (leaving tag the same).</font>-<a name="(line317)"></a>replaceAttrs <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font>String<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line318)"></a>replaceAttrs <font color=Green><u>as</u></font> <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>Elem n as' cs<font color=Cyan>)</font> i<font color=Red>]</font>-<a name="(line319)"></a>    <font color=Green><u>where</u></font> as' <font color=Red>=</font> map <font color=Cyan>(</font><font color=Red>\</font><font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font><font color=Red>-&gt;</font> <font color=Cyan>(</font>n<font color=Cyan>,</font> AttValue <font color=Red>[</font>Left v<font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>as</u></font>-<a name="(line320)"></a>replaceAttrs <font color=Green><u>as</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> []-<a name="(line321)"></a>-<a name="(line322)"></a>-<a name="(line323)"></a>-<a name="(line324)"></a><font color=Blue>-- LABELLING</font>-<a name="(line325)"></a>-<a name="(line326)"></a><a name="LabelFilter"></a><font color=Blue>-- | A LabelFilter is like a CFilter except that it pairs up a polymorphic</font>-<a name="(line327)"></a><a name="LabelFilter"></a><font color=Blue>--   value (label) with each of its results.</font>-<a name="(line328)"></a><a name="LabelFilter"></a><font color=Green><u>type</u></font> LabelFilter i a <font color=Red>=</font> Content i <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>Content i<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line329)"></a>-<a name="(line330)"></a><a name="oo"></a><font color=Blue>-- | Compose a label-processing filter with a label-generating filter.</font>-<a name="(line331)"></a>oo <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> LabelFilter i a <font color=Red>-&gt;</font> CFilter i-<a name="(line332)"></a><a name="oo"></a>f <font color=Cyan>`oo`</font> g <font color=Red>=</font> concatMap <font color=Cyan>(</font>uncurry f<font color=Cyan>)</font> <font color=Cyan>.</font> g-<a name="(line333)"></a>-<a name="(line334)"></a><font color=Blue>{--<a name="(line335)"></a>-- | Process the information labels (very nearly monadic bind).-<a name="(line336)"></a>oo :: (b -&gt; CFilter b c) -&gt; CFilter a b -&gt; CFilter a c-<a name="(line337)"></a>f `oo` g = concatMap info . g-<a name="(line338)"></a>    where info c@(CElem _ i)     = f i c-<a name="(line339)"></a>          info c@(CString _ _ i) = f i c-<a name="(line340)"></a>          info c@(CRef _ i)      = f i c-<a name="(line341)"></a>          info c                 = [c]-<a name="(line342)"></a>-}</font>-<a name="(line343)"></a>-<a name="(line344)"></a><a name="x"></a><font color=Blue>-- | Combine labels.  Think of this as a pair-wise zip on labels.</font>-<a name="(line345)"></a><font color=Blue>--   e.g. @(numbered `x` tagged)@</font>-<a name="(line346)"></a>x <font color=Red>::</font> <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i a<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i b<font color=Cyan>)</font> <font color=Red>-&gt;</font>-<a name="(line347)"></a>       <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i <font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line348)"></a><a name="x"></a>f <font color=Cyan>`x`</font> g <font color=Red>=</font> <font color=Red>\</font>cf c<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> gs <font color=Red>=</font> map fst <font color=Cyan>(</font>g cf c<font color=Cyan>)</font>-<a name="(line349)"></a>                      fs <font color=Red>=</font> map fst <font color=Cyan>(</font>f cf c<font color=Cyan>)</font>-<a name="(line350)"></a>                  <font color=Green><u>in</u></font> zip <font color=Cyan>(</font>zip fs gs<font color=Cyan>)</font> <font color=Cyan>(</font>cf c<font color=Cyan>)</font>-<a name="(line351)"></a>-<a name="(line352)"></a>-<a name="(line353)"></a><font color=Blue>-- Some basic label-generating filters.</font>-<a name="(line354)"></a>-<a name="(line355)"></a><a name="numbered"></a><font color=Blue>-- | Number the results from 1 upwards.</font>-<a name="(line356)"></a>numbered <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i Int-<a name="(line357)"></a>numbered f <font color=Red>=</font> zip <font color=Red>[</font><font color=Magenta>1</font><font color=Red>..</font><font color=Red>]</font> <font color=Cyan>.</font> f-<a name="(line358)"></a>-<a name="(line359)"></a><a name="interspersed"></a><font color=Blue>-- | In @interspersed a f b@, label each result of @f@ with the string @a@,</font>-<a name="(line360)"></a><font color=Blue>--   except for the last one which is labelled with the string @b@.</font>-<a name="(line361)"></a>interspersed <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> LabelFilter i String-<a name="(line362)"></a>interspersed a f b <font color=Red>=</font>-<a name="(line363)"></a>  <font color=Cyan>(</font><font color=Red>\</font>xs<font color=Red>-&gt;</font> zip <font color=Cyan>(</font>replicate <font color=Cyan>(</font>len xs<font color=Cyan>)</font> a <font color=Cyan>++</font> <font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> xs<font color=Cyan>)</font> <font color=Cyan>.</font> f-<a name="(line364)"></a>  <font color=Green><u>where</u></font>-<a name="(line365)"></a>  len [] <font color=Red>=</font> <font color=Magenta>0</font>-<a name="(line366)"></a>  len xs <font color=Red>=</font> length xs <font color=Blue>-</font> <font color=Magenta>1</font>-<a name="(line367)"></a>-<a name="(line368)"></a><a name="tagged"></a><font color=Blue>-- | Label each element in the result with its tag name.  Non-element</font>-<a name="(line369)"></a><font color=Blue>--   results get an empty string label.</font>-<a name="(line370)"></a>tagged <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i String-<a name="(line371)"></a>tagged f <font color=Red>=</font> extracted name f-<a name="(line372)"></a>  <font color=Green><u>where</u></font> name <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> n-<a name="(line373)"></a>        name <font color=Green><u>_</u></font>                      <font color=Red>=</font> <font color=Magenta>""</font>-<a name="(line374)"></a>-<a name="(line375)"></a><a name="attributed"></a><font color=Blue>-- | Label each element in the result with the value of the named attribute.</font>-<a name="(line376)"></a><font color=Blue>--   Elements without the attribute, and non-element results, get an</font>-<a name="(line377)"></a><font color=Blue>--   empty string label.</font>-<a name="(line378)"></a>attributed <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i String-<a name="(line379)"></a>attributed key f <font color=Red>=</font> extracted att f-<a name="(line380)"></a>  <font color=Green><u>where</u></font> att <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line381)"></a>            <font color=Green><u>case</u></font> <font color=Cyan>(</font>lookup key <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Green><u>of</u></font>-<a name="(line382)"></a>              Nothing  <font color=Red>-&gt;</font> <font color=Magenta>""</font>-<a name="(line383)"></a>              <font color=Cyan>(</font>Just v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> show v-<a name="(line384)"></a>        att <font color=Green><u>_</u></font> <font color=Red>=</font> <font color=Magenta>""</font>-<a name="(line385)"></a>-<a name="(line386)"></a><a name="textlabelled"></a><font color=Blue>-- | Label each textual part of the result with its text.  Element</font>-<a name="(line387)"></a><font color=Blue>--   results get an empty string label.</font>-<a name="(line388)"></a>textlabelled <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>-<a name="(line389)"></a>textlabelled f <font color=Red>=</font> extracted text f-<a name="(line390)"></a>  <font color=Green><u>where</u></font> text <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Just s-<a name="(line391)"></a>        text <font color=Green><u>_</u></font>               <font color=Red>=</font> Nothing-<a name="(line392)"></a>-<a name="(line393)"></a><a name="extracted"></a><font color=Blue>-- | Label each content with some information extracted from itself.</font>-<a name="(line394)"></a>extracted <font color=Red>::</font> <font color=Cyan>(</font>Content i<font color=Red>-&gt;</font>a<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i a-<a name="(line395)"></a>extracted proj f <font color=Red>=</font> concatMap <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font><font color=Red>[</font><font color=Cyan>(</font>proj c<font color=Cyan>,</font> c<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>.</font> f-<a name="(line396)"></a>                                                                                -<a name="(line397)"></a>-<a name="(line398)"></a>-<a name="(line399)"></a><font color=Blue>{--<a name="(line400)"></a>-- MISC-<a name="(line401)"></a>-<a name="(line402)"></a>-- | I haven't yet remembered \/ worked out what this does.-<a name="(line403)"></a>combine :: (Read a,Show a) =&gt; ([a]-&gt;a) -&gt; LabelFilter String -&gt; CFilter-<a name="(line404)"></a>combine f lf = \c-&gt; [ CString False (show (f [ read l | (l,_) &lt;- lf c ])) ]-<a name="(line405)"></a>-}</font>-<a name="(line406)"></a>-<a name="(line407)"></a>-<a name="(line408)"></a><font color=Blue>{- OLD STUFF - OBSOLETE-<a name="(line409)"></a>-- Keep an element by its numbered position (starting at 1).-<a name="(line410)"></a>position :: Int -&gt; [Content] -&gt; [Content]-<a name="(line411)"></a>position n | n&gt;0  = (:[]) . (!!(n-1))-<a name="(line412)"></a>           | otherwise = const []-<a name="(line413)"></a>-<a name="(line414)"></a>-- Chop and remove the root portions of trees to depth n.-<a name="(line415)"></a>layer :: Int -&gt; [Content] -&gt; [Content]-<a name="(line416)"></a>layer n = apply n (concatMap lay)-<a name="(line417)"></a>  where lay (CElem (Elem _ _ cs)) = cs-<a name="(line418)"></a>        lay _ = []-<a name="(line419)"></a>        apply 0 f xs = xs-<a name="(line420)"></a>        apply n f xs = apply (n-1) f (f xs)-<a name="(line421)"></a>-<a name="(line422)"></a>combine :: (Read a, Show a) =&gt; ([a]-&gt;a) -&gt; [Content] -&gt; [Content]-<a name="(line423)"></a>combine f = \cs-&gt; [ CString False (show (f [ read s | CString _ s &lt;- cs ])) ]-<a name="(line424)"></a>-}</font>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Combinators.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>--------------------------------------------</font>+<a name="line-2"></a><font color=Blue>-- | This module defines the notion of filters and filter combinators</font>+<a name="line-3"></a><font color=Blue>--   for processing XML documents.</font>+<a name="line-4"></a><font color=Blue>--</font>+<a name="line-5"></a><font color=Blue>--   These XML transformation combinators are described in the paper</font>+<a name="line-6"></a><font color=Blue>--   ``Haskell and XML: Generic Combinators or Type-Based Translation?''</font>+<a name="line-7"></a><font color=Blue>--   Malcolm Wallace and Colin Runciman, Proceedings ICFP'99.</font>+<a name="line-8"></a><font color=Blue>--------------------------------------------</font>+<a name="line-9"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators+<a name="line-10"></a>  <font color=Cyan>(</font><font color=Blue>-- * The content filter type.</font>+<a name="line-11"></a>    CFilter+<a name="line-12"></a>+<a name="line-13"></a>   <font color=Blue>-- * Simple filters.</font>+<a name="line-14"></a>   <font color=Blue>-- ** Selection filters.</font>+<a name="line-15"></a>   <font color=Blue>-- $selection</font>+<a name="line-16"></a>  <font color=Cyan>,</font> keep<font color=Cyan>,</font> none<font color=Cyan>,</font> children<font color=Cyan>,</font> position+<a name="line-17"></a>+<a name="line-18"></a>   <font color=Blue>-- ** Predicate filters.</font>+<a name="line-19"></a>   <font color=Blue>-- $pred</font>+<a name="line-20"></a>  <font color=Cyan>,</font> elm<font color=Cyan>,</font> txt<font color=Cyan>,</font> tag<font color=Cyan>,</font> attr<font color=Cyan>,</font> attrval<font color=Cyan>,</font> tagWith+<a name="line-21"></a>+<a name="line-22"></a>   <font color=Blue>-- ** Search filters.</font>+<a name="line-23"></a>  <font color=Cyan>,</font> find<font color=Cyan>,</font> iffind<font color=Cyan>,</font> ifTxt+<a name="line-24"></a>+<a name="line-25"></a>   <font color=Blue>-- * Filter combinators</font>+<a name="line-26"></a>   <font color=Blue>-- ** Basic combinators.</font>+<a name="line-27"></a>  <font color=Cyan>,</font> o<font color=Cyan>,</font> union<font color=Cyan>,</font> cat<font color=Cyan>,</font> andThen+<a name="line-28"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>|&gt;|</font><font color=Cyan>)</font><font color=Cyan>,</font> with<font color=Cyan>,</font> without+<a name="line-29"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>/&gt;</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>&lt;/</font><font color=Cyan>)</font><font color=Cyan>,</font> et+<a name="line-30"></a>  <font color=Cyan>,</font> path+<a name="line-31"></a>   <font color=Blue>-- ** Recursive search.</font>+<a name="line-32"></a>   <font color=Blue>-- $recursive</font>+<a name="line-33"></a>  <font color=Cyan>,</font> deep<font color=Cyan>,</font> deepest<font color=Cyan>,</font> multi+<a name="line-34"></a>   <font color=Blue>-- ** Interior editing.</font>+<a name="line-35"></a>  <font color=Cyan>,</font> when<font color=Cyan>,</font> guards<font color=Cyan>,</font> chip<font color=Cyan>,</font> inplace<font color=Cyan>,</font> foldXml+<a name="line-36"></a>   <font color=Blue>-- ** Constructive filters.</font>+<a name="line-37"></a>  <font color=Cyan>,</font> mkElem<font color=Cyan>,</font> mkElemAttr<font color=Cyan>,</font> literal<font color=Cyan>,</font> cdata<font color=Cyan>,</font> replaceTag<font color=Cyan>,</font> replaceAttrs+<a name="line-38"></a>+<a name="line-39"></a>   <font color=Blue>-- * C-like conditionals.</font>+<a name="line-40"></a>   <font color=Blue>-- $cond</font>+<a name="line-41"></a>  <font color=Cyan>,</font> ThenElse<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?&gt;</font><font color=Cyan>)</font>+<a name="line-42"></a>+<a name="line-43"></a>   <font color=Blue>-- * Filters with labelled results.</font>+<a name="line-44"></a>  <font color=Cyan>,</font> LabelFilter+<a name="line-45"></a>   <font color=Blue>-- ** Using and combining labelled filters.</font>+<a name="line-46"></a>  <font color=Cyan>,</font> oo<font color=Cyan>,</font> x+<a name="line-47"></a>   <font color=Blue>-- ** Some label-generating filters.</font>+<a name="line-48"></a>  <font color=Cyan>,</font> numbered<font color=Cyan>,</font> interspersed<font color=Cyan>,</font> tagged<font color=Cyan>,</font> attributed<font color=Cyan>,</font> textlabelled<font color=Cyan>,</font> extracted+<a name="line-49"></a>+<a name="line-50"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-51"></a>+<a name="line-52"></a>+<a name="line-53"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-54"></a><font color=Green><u>import</u></font> Maybe <font color=Cyan>(</font>fromMaybe<font color=Cyan>)</font>+<a name="line-55"></a>+<a name="line-56"></a><font color=Green><u>infixl</u></font> <font color=Magenta>6</font> <font color=Cyan>`with`</font><font color=Cyan>,</font> <font color=Cyan>`without`</font>+<a name="line-57"></a><font color=Green><u>infixr</u></font> <font color=Magenta>5</font> <font color=Cyan>`o`</font><font color=Cyan>,</font> <font color=Cyan>`oo`</font><font color=Cyan>,</font> <font color=Cyan>`union`</font><font color=Cyan>,</font> <font color=Cyan>`andThen`</font>		<font color=Blue>-- , `orelse`</font>+<a name="line-58"></a><font color=Green><u>infixl</u></font> <font color=Magenta>5</font> <font color=Cyan>/&gt;</font><font color=Cyan>,</font> <font color=Cyan>&lt;/</font><font color=Cyan>,</font> <font color=Cyan>|&gt;|</font>+<a name="line-59"></a><font color=Green><u>infixr</u></font> <font color=Magenta>4</font> <font color=Cyan>`when`</font><font color=Cyan>,</font> <font color=Cyan>`guards`</font>+<a name="line-60"></a><font color=Green><u>infixr</u></font> <font color=Magenta>3</font> <font color=Cyan>?&gt;</font><font color=Cyan>,</font> <font color=Red><b>:&gt;</b></font>+<a name="line-61"></a>+<a name="line-62"></a>+<a name="line-63"></a>+<a name="line-64"></a><font color=Blue>-- THE CONTENT FILTER TYPE</font>+<a name="line-65"></a>+<a name="line-66"></a><a name="CFilter"></a><font color=Blue>-- | All document transformations are /content filters/.</font>+<a name="line-67"></a><a name="CFilter"></a><font color=Blue>--   A filter takes a single XML 'Content' value and returns a sequence</font>+<a name="line-68"></a><a name="CFilter"></a><font color=Blue>--   of 'Content' values, possibly empty.</font>+<a name="line-69"></a><a name="CFilter"></a><font color=Green><u>type</u></font> CFilter i  <font color=Red>=</font> Content i <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-70"></a>+<a name="line-71"></a>+<a name="line-72"></a>+<a name="line-73"></a><a name="keep"></a><font color=Blue>-- BASIC SELECTION FILTERS</font>+<a name="line-74"></a><font color=Blue>-- $selection</font>+<a name="line-75"></a><font color=Blue>-- In the algebra of combinators, @none@ is the zero, and @keep@ the identity.</font>+<a name="line-76"></a><font color=Blue>-- (They have a more general type than just CFilter.)</font>+<a name="line-77"></a><font color=Blue>keep</font> <font color=Red>::</font> a<font color=Red>-&gt;</font><font color=Red>[</font>a<font color=Red>]</font>+<a name="line-78"></a><font color=Blue>keep</font> <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font><font color=Red>[</font>x<font color=Red>]</font>+<a name="line-79"></a><a name="none"></a><font color=Blue>none</font> <font color=Red>::</font> a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font>+<a name="line-80"></a><font color=Blue>none</font> <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font>[]+<a name="line-81"></a>+<a name="line-82"></a><a name="children"></a><font color=Blue>-- | Throw away current node, keep just the (unprocessed) children.</font>+<a name="line-83"></a><font color=Blue>children</font> <font color=Red>::</font> CFilter i+<a name="line-84"></a><font color=Blue>children</font> <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> cs<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> cs+<a name="line-85"></a><font color=Blue>children</font> <font color=Green><u>_</u></font> <font color=Red>=</font> []+<a name="line-86"></a>+<a name="line-87"></a><a name="position"></a><font color=Blue>-- | Select the @n@'th positional result of a filter.</font>+<a name="line-88"></a><font color=Blue>position</font> <font color=Red>::</font> Int <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-89"></a><font color=Blue>position</font> n f <font color=Red>=</font> <font color=Cyan>(</font><font color=Red>\</font>cs<font color=Red>-&gt;</font> <font color=Red>[</font>cs<font color=Cyan>!!</font>n<font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>.</font> f+<a name="line-90"></a>+<a name="line-91"></a>+<a name="line-92"></a>+<a name="line-93"></a><font color=Blue>-- BASIC PREDICATE FILTERS</font>+<a name="line-94"></a><font color=Blue>-- $pred</font>+<a name="line-95"></a><font color=Blue>-- These filters either keep or throw away some content based on</font>+<a name="line-96"></a><font color=Blue>-- a simple test.  For instance, @elm@ keeps only a tagged element,</font>+<a name="line-97"></a><font color=Blue>-- @txt@ keeps only non-element text, @tag@ keeps only an element</font>+<a name="line-98"></a><font color=Blue>-- with the named tag, @attr@ keeps only an element with the named</font>+<a name="line-99"></a><font color=Blue>-- attribute, @attrval@ keeps only an element with the given</font>+<a name="line-100"></a><font color=Blue>-- attribute value, @tagWith@ keeps only an element whose tag name</font>+<a name="line-101"></a><font color=Blue>-- satisfies the given predicate.</font>+<a name="line-102"></a>+<a name="line-103"></a><a name="elm"></a><font color=Blue>elm</font><font color=Cyan>,</font> txt   <font color=Red>::</font> CFilter i+<a name="line-104"></a><a name="tag"></a><font color=Blue>tag</font>        <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i+<a name="line-105"></a><a name="attr"></a><font color=Blue>attr</font>       <font color=Red>::</font> Name <font color=Red>-&gt;</font> CFilter i+<a name="line-106"></a><a name="attrval"></a><font color=Blue>attrval</font>    <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> CFilter i+<a name="line-107"></a><a name="tagWith"></a><font color=Blue>tagWith</font>    <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>Bool<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-108"></a>+<a name="line-109"></a><font color=Blue>elm</font> x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-110"></a><font color=Blue>elm</font> <font color=Green><u>_</u></font>             <font color=Red>=</font> []+<a name="line-111"></a>+<a name="line-112"></a><a name="txt"></a><font color=Blue>txt</font> x<font color=Red>@</font><font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-113"></a><font color=Blue>txt</font> x<font color=Red>@</font><font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-114"></a><font color=Blue>txt</font> <font color=Green><u>_</u></font>                 <font color=Red>=</font> []+<a name="line-115"></a>+<a name="line-116"></a><font color=Blue>tag</font> t x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> t<font color=Cyan>==</font>n  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-117"></a><font color=Blue>tag</font> t <font color=Green><u>_</u></font>  <font color=Red>=</font> []+<a name="line-118"></a>+<a name="line-119"></a><font color=Blue>tagWith</font> p x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> p n  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-120"></a><font color=Blue>tagWith</font> p <font color=Green><u>_</u></font>  <font color=Red>=</font> []+<a name="line-121"></a>+<a name="line-122"></a><font color=Blue>attr</font> n x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Cyan>(</font>map fst <font color=Green><u>as</u></font><font color=Cyan>)</font>  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-123"></a><font color=Blue>attr</font> n <font color=Green><u>_</u></font>  <font color=Red>=</font> []+<a name="line-124"></a>+<a name="line-125"></a><font color=Blue>attrval</font> av x<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> av <font color=Cyan>`elem`</font> <font color=Green><u>as</u></font>  <font color=Red>=</font> <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-126"></a><font color=Blue>attrval</font> av <font color=Green><u>_</u></font>  <font color=Red>=</font> []+<a name="line-127"></a>+<a name="line-128"></a>+<a name="line-129"></a>+<a name="line-130"></a><font color=Blue>-- SEARCH FILTERS</font>+<a name="line-131"></a>+<a name="line-132"></a><a name="find"></a><font color=Blue>-- | For a mandatory attribute field, @find key cont@ looks up the value of</font>+<a name="line-133"></a><font color=Blue>--   the attribute name @key@, and applies the continuation @cont@ to</font>+<a name="line-134"></a><font color=Blue>--   the value.</font>+<a name="line-135"></a><font color=Blue>find</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-136"></a><font color=Blue>find</font> key cont c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> cont <font color=Cyan>(</font>show <font color=Cyan>(</font>lookfor key <font color=Green><u>as</u></font><font color=Cyan>)</font><font color=Cyan>)</font> c+<a name="line-137"></a>  <font color=Green><u>where</u></font> lookfor x <font color=Red>=</font> fromMaybe <font color=Cyan>(</font>error <font color=Cyan>(</font><font color=Magenta>"missing attribute: "</font><font color=Cyan>++</font>show x<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>.</font> lookup x+<a name="line-138"></a><font color=Blue>-- 'lookfor' has the more general type :: (Eq a,Show a) =&gt; a -&gt; [(a,b)] -&gt; b</font>+<a name="line-139"></a>+<a name="line-140"></a><a name="iffind"></a><font color=Blue>-- | When an attribute field may be absent, use @iffind key yes no@ to lookup</font>+<a name="line-141"></a><font color=Blue>--   its value.  If the attribute is absent, it acts as the @no@ filter,</font>+<a name="line-142"></a><font color=Blue>--   otherwise it applies the @yes@ filter.</font>+<a name="line-143"></a><font color=Blue>iffind</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-144"></a><font color=Blue>iffind</font> key yes no c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-145"></a>  <font color=Green><u>case</u></font> <font color=Cyan>(</font>lookup key <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Green><u>of</u></font>+<a name="line-146"></a>    Nothing  <font color=Red>-&gt;</font> no c+<a name="line-147"></a>    <font color=Cyan>(</font>Just v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> yes <font color=Cyan>(</font>show v<font color=Cyan>)</font> c+<a name="line-148"></a><font color=Blue>iffind</font> key yes no other <font color=Red>=</font> no other+<a name="line-149"></a>+<a name="line-150"></a><a name="ifTxt"></a><font color=Blue>-- | @ifTxt yes no@ processes any textual content with the @yes@ filter,</font>+<a name="line-151"></a><font color=Blue>--   but otherwise is the same as the @no@ filter.</font>+<a name="line-152"></a><font color=Blue>ifTxt</font> <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-153"></a><font color=Blue>ifTxt</font> yes no c<font color=Red>@</font><font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> yes s c+<a name="line-154"></a><font color=Blue>ifTxt</font> yes no c                 <font color=Red>=</font> no c+<a name="line-155"></a>+<a name="line-156"></a>+<a name="line-157"></a>+<a name="line-158"></a><font color=Blue>-- C-LIKE CONDITIONALS</font>+<a name="line-159"></a><font color=Blue>--</font>+<a name="line-160"></a><font color=Blue>-- $cond</font>+<a name="line-161"></a><font color=Blue>-- These definitions provide C-like conditionals, lifted to the filter level.</font>+<a name="line-162"></a><font color=Blue>--</font>+<a name="line-163"></a><font color=Blue>-- The @(cond ? yes : no)@ style in C becomes @(cond ?&gt; yes :&gt; no)@ in Haskell.</font>+<a name="line-164"></a>+<a name="line-165"></a><a name="ThenElse"></a><font color=Blue>-- | Conjoin the two branches of a conditional.</font>+<a name="line-166"></a><a name="ThenElse"></a><font color=Green><u>data</u></font> ThenElse a <font color=Red>=</font> a <font color=Red><b>:&gt;</b></font> a+<a name="line-167"></a>+<a name="line-168"></a><a name="?>"></a><font color=Blue>-- | Select between the two branches of a joined conditional.</font>+<a name="line-169"></a><font color=Cyan>(</font><font color=Cyan>?&gt;</font><font color=Cyan>)</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> ThenElse <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>+<a name="line-170"></a><a name="p"></a><font color=Blue>p</font> <font color=Cyan>?&gt;</font> <font color=Cyan>(</font>f <font color=Red><b>:&gt;</b></font> g<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>if</u></font> <font color=Cyan>(</font>not<font color=Cyan>.</font>null<font color=Cyan>.</font>p<font color=Cyan>)</font> c <font color=Green><u>then</u></font> f c <font color=Green><u>else</u></font> g c+<a name="line-171"></a>+<a name="line-172"></a>+<a name="line-173"></a>+<a name="line-174"></a><font color=Blue>-- FILTER COMBINATORS</font>+<a name="line-175"></a>+<a name="line-176"></a>+<a name="line-177"></a><a name="o"></a><font color=Blue>-- | Sequential (/Irish/,/backwards/) composition</font>+<a name="line-178"></a><font color=Blue>o</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-179"></a><a name="o"></a><font color=Blue>f</font> <font color=Cyan>`o`</font> g <font color=Red>=</font> concatMap f <font color=Cyan>.</font> g+<a name="line-180"></a>+<a name="line-181"></a><a name="union"></a><font color=Blue>-- | Binary parallel composition.  Each filter uses a copy of the input,</font>+<a name="line-182"></a><font color=Blue>-- rather than one filter using the result of the other.</font>+<a name="line-183"></a><font color=Blue>--   (Has a more general type than just CFilter.)</font>+<a name="line-184"></a><font color=Blue>union</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>+<a name="line-185"></a><font color=Blue>union</font> <font color=Red>=</font> lift <font color=Cyan>(</font><font color=Cyan>++</font><font color=Cyan>)</font>		<font color=Blue>-- in Haskell 98:   union = lift List.union</font>+<a name="line-186"></a>  <font color=Green><u>where</u></font>+<a name="line-187"></a>    lift <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>b<font color=Red>-&gt;</font>d<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>a<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>b<font color=Cyan>)</font> <font color=Red>-&gt;</font> c <font color=Red>-&gt;</font> d+<a name="line-188"></a>    lift f g h <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> f <font color=Cyan>(</font>g x<font color=Cyan>)</font> <font color=Cyan>(</font>h x<font color=Cyan>)</font>+<a name="line-189"></a>+<a name="line-190"></a><a name="cat"></a><font color=Blue>-- | Glue a list of filters together.  (A list version of union;</font>+<a name="line-191"></a><font color=Blue>--   also has a more general type than just CFilter.)</font>+<a name="line-192"></a><font color=Blue>cat</font> <font color=Red>::</font> <font color=Red>[</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>+<a name="line-193"></a><font color=Blue>--   Specification: cat fs = \e-&gt; concat [ f e | f &lt;- fs ]</font>+<a name="line-194"></a><font color=Blue>--   more efficient implementation below:</font>+<a name="line-195"></a><font color=Blue>cat</font> [] <font color=Red>=</font> const []+<a name="line-196"></a><font color=Blue>cat</font> fs <font color=Red>=</font> foldr1 union fs+<a name="line-197"></a>+<a name="line-198"></a><a name="andThen"></a><font color=Blue>-- | A special form of filter composition where the second filter</font>+<a name="line-199"></a><font color=Blue>--   works over the same data as the first, but also uses the</font>+<a name="line-200"></a><font color=Blue>--   first's result.</font>+<a name="line-201"></a><font color=Blue>andThen</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>c<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>c<font color=Red>-&gt;</font>a<font color=Red>-&gt;</font>b<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>b<font color=Cyan>)</font>+<a name="line-202"></a><font color=Blue>andThen</font> f g <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> g <font color=Cyan>(</font>f x<font color=Cyan>)</font> x			<font color=Blue>-- lift g f id</font>+<a name="line-203"></a>+<a name="line-204"></a><a name="childrenBy"></a><font color=Blue>-- | Process children using specified filters.  /not exported/</font>+<a name="line-205"></a><font color=Blue>childrenBy</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i +<a name="line-206"></a><font color=Blue>childrenBy</font> f <font color=Red>=</font> f <font color=Cyan>`o`</font> children+<a name="line-207"></a>+<a name="line-208"></a><a name="|>|"></a><font color=Blue>-- | Directional choice:</font>+<a name="line-209"></a><font color=Blue>--   in @f |&gt;| g@ give g-productions only if no f-productions</font>+<a name="line-210"></a><font color=Cyan>(</font><font color=Cyan>|&gt;|</font><font color=Cyan>)</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font><font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font>+<a name="line-211"></a><a name="f"></a><font color=Blue>f</font> <font color=Cyan>|&gt;|</font> g <font color=Red>=</font> <font color=Red>\</font>x<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> fx <font color=Red>=</font> f x <font color=Green><u>in</u></font> <font color=Green><u>if</u></font> null fx <font color=Green><u>then</u></font> g x <font color=Green><u>else</u></font> fx+<a name="line-212"></a><font color=Blue>--      f |&gt;| g  =  f ?&gt; f :&gt; g</font>+<a name="line-213"></a>+<a name="line-214"></a><a name="with"></a><font color=Blue>-- | Pruning: in @f `with` g@,</font>+<a name="line-215"></a><font color=Blue>--   keep only those f-productions which have at least one g-production</font>+<a name="line-216"></a><font color=Blue>with</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-217"></a><a name="with"></a><font color=Blue>f</font> <font color=Cyan>`with`</font> g <font color=Red>=</font> filter <font color=Cyan>(</font>not<font color=Cyan>.</font>null<font color=Cyan>.</font>g<font color=Cyan>)</font> <font color=Cyan>.</font> f+<a name="line-218"></a>+<a name="line-219"></a><a name="without"></a><font color=Blue>-- | Pruning: in @f `without` g@,</font>+<a name="line-220"></a><font color=Blue>--   keep only those f-productions which have no g-productions</font>+<a name="line-221"></a><font color=Blue>without</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-222"></a><a name="without"></a><font color=Blue>f</font> <font color=Cyan>`without`</font> g <font color=Red>=</font> filter <font color=Cyan>(</font>null<font color=Cyan>.</font>g<font color=Cyan>)</font> <font color=Cyan>.</font> f+<a name="line-223"></a>+<a name="line-224"></a><a name="/>"></a><font color=Blue>-- | Pronounced /slash/, @f \/&gt; g@ means g inside f</font>+<a name="line-225"></a><font color=Cyan>(</font><font color=Cyan>/&gt;</font><font color=Cyan>)</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-226"></a><font color=Blue>f</font> <font color=Cyan>/&gt;</font> g <font color=Red>=</font> g <font color=Cyan>`o`</font> children <font color=Cyan>`o`</font> f+<a name="line-227"></a>+<a name="line-228"></a><a name="</"></a><font color=Blue>-- | Pronounced /outside/, @f \&lt;\/ g@ means f containing g</font>+<a name="line-229"></a><font color=Cyan>(</font><font color=Cyan>&lt;/</font><font color=Cyan>)</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-230"></a><font color=Blue>f</font> <font color=Cyan>&lt;/</font> g <font color=Red>=</font> f <font color=Cyan>`with`</font> <font color=Cyan>(</font>g <font color=Cyan>`o`</font> children<font color=Cyan>)</font>+<a name="line-231"></a>+<a name="line-232"></a><a name="et"></a><font color=Blue>-- | Join an element-matching filter with a text-only filter</font>+<a name="line-233"></a><font color=Blue>et</font> <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-234"></a><font color=Blue>et</font> f g <font color=Red>=</font> <font color=Cyan>(</font>f <font color=Cyan>`oo`</font> tagged elm<font color=Cyan>)</font>+<a name="line-235"></a>            <font color=Cyan>|&gt;|</font>+<a name="line-236"></a>         <font color=Cyan>(</font>g <font color=Cyan>`o`</font> txt<font color=Cyan>)</font>+<a name="line-237"></a>+<a name="line-238"></a><a name="path"></a><font color=Blue>-- | Express a list of filters like an XPath query, e.g.</font>+<a name="line-239"></a><font color=Blue>--   @path [children, tag \"name1\", attr \"attr1\", children, tag \"name2\"]@</font>+<a name="line-240"></a><font color=Blue>--   is like the XPath query @\/name1[\@attr1]\/name2@.</font>+<a name="line-241"></a><font color=Blue>path</font> <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-242"></a><font color=Blue>path</font> fs <font color=Red>=</font> foldr <font color=Cyan>(</font>flip <font color=Cyan>(</font>o<font color=Cyan>)</font><font color=Cyan>)</font> keep fs+<a name="line-243"></a>+<a name="line-244"></a>+<a name="line-245"></a><a name="deep"></a><font color=Blue>-- RECURSIVE SEARCH</font>+<a name="line-246"></a><font color=Blue>-- $recursive</font>+<a name="line-247"></a><font color=Blue>-- Recursive search has three variants: @deep@ does a breadth-first</font>+<a name="line-248"></a><font color=Blue>-- search of the tree, @deepest@ does a depth-first search, @multi@ returns</font>+<a name="line-249"></a><font color=Blue>-- content at all tree-levels, even those strictly contained within results</font>+<a name="line-250"></a><font color=Blue>-- that have already been returned.</font>+<a name="line-251"></a><font color=Blue>deep</font><font color=Cyan>,</font> deepest<font color=Cyan>,</font> multi <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-252"></a><font color=Blue>deep</font> f     <font color=Red>=</font> f <font color=Cyan>|&gt;|</font> <font color=Cyan>(</font>deep f <font color=Cyan>`o`</font> children<font color=Cyan>)</font>+<a name="line-253"></a><a name="deepest"></a><font color=Blue>deepest</font> f  <font color=Red>=</font> <font color=Cyan>(</font>deepest f <font color=Cyan>`o`</font> children<font color=Cyan>)</font> <font color=Cyan>|&gt;|</font> f+<a name="line-254"></a><a name="multi"></a><font color=Blue>multi</font> f    <font color=Red>=</font> f <font color=Cyan>`union`</font> <font color=Cyan>(</font>multi f <font color=Cyan>`o`</font> children<font color=Cyan>)</font>+<a name="line-255"></a>+<a name="line-256"></a><a name="when"></a><font color=Blue>-- | Interior editing:</font>+<a name="line-257"></a><font color=Blue>--   @f `when` g@ applies @f@ only when the predicate @g@ succeeds,</font>+<a name="line-258"></a><font color=Blue>--   otherwise the content is unchanged.</font>+<a name="line-259"></a><font color=Blue>when</font>   <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-260"></a><a name="guards"></a><font color=Blue>-- | Interior editing:</font>+<a name="line-261"></a><font color=Blue>--   @g `guards` f@ applies @f@ only when the predicate @g@ succeeds,</font>+<a name="line-262"></a><font color=Blue>--   otherwise the content is discarded.</font>+<a name="line-263"></a><font color=Blue>guards</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-264"></a><a name="when"></a><font color=Blue>f</font> <font color=Cyan>`when`</font> g       <font color=Red>=</font> g <font color=Cyan>?&gt;</font> f <font color=Red><b>:&gt;</b></font> keep+<a name="line-265"></a><a name="guards"></a><font color=Blue>g</font> <font color=Cyan>`guards`</font> f     <font color=Red>=</font> g <font color=Cyan>?&gt;</font> f <font color=Red><b>:&gt;</b></font> none	<font color=Blue>-- = f `o` (keep `with` g)</font>+<a name="line-266"></a>+<a name="line-267"></a><a name="chip"></a><font color=Blue>-- | Process CHildren In Place.  The filter is applied to any children</font>+<a name="line-268"></a><font color=Blue>--   of an element content, and the element rebuilt around the results.</font>+<a name="line-269"></a><font color=Blue>chip</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-270"></a><font color=Blue>chip</font> f <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> <font color=Cyan>(</font>concatMap f cs<font color=Cyan>)</font><font color=Cyan>)</font> i <font color=Red>]</font>+<a name="line-271"></a><font color=Blue>chip</font> f c <font color=Red>=</font> <font color=Red>[</font>c<font color=Red>]</font>+<a name="line-272"></a><font color=Blue>-- chip f = inplace (f `o` children)</font>+<a name="line-273"></a>+<a name="line-274"></a><a name="inplace"></a><font color=Blue>-- | Process an element In Place.  The filter is applied to the element</font>+<a name="line-275"></a><font color=Blue>--   itself, and then the original element rebuilt around the results.</font>+<a name="line-276"></a><font color=Blue>inplace</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-277"></a><font color=Blue>inplace</font> f c<font color=Red>@</font><font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem name <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem name <font color=Green><u>as</u></font> <font color=Cyan>(</font>f c<font color=Cyan>)</font><font color=Cyan>)</font> i <font color=Red>]</font>+<a name="line-278"></a><font color=Blue>inplace</font> f c <font color=Red>=</font> <font color=Red>[</font>c<font color=Red>]</font>+<a name="line-279"></a>+<a name="line-280"></a>+<a name="line-281"></a><a name="foldXml"></a><font color=Blue>-- | Recursive application of filters: a fold-like operator.  Defined</font>+<a name="line-282"></a><font color=Blue>--   as @f `o` chip (foldXml f)@.</font>+<a name="line-283"></a><font color=Blue>foldXml</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-284"></a><font color=Blue>foldXml</font> f <font color=Red>=</font> f <font color=Cyan>`o`</font> chip <font color=Cyan>(</font>foldXml f<font color=Cyan>)</font>+<a name="line-285"></a>+<a name="line-286"></a>+<a name="line-287"></a>+<a name="line-288"></a>+<a name="line-289"></a><font color=Blue>-- CONSTRUCTIVE CONTENT FILTERS</font>+<a name="line-290"></a>+<a name="line-291"></a><a name="mkElem"></a><font color=Blue>-- | Build an element with the given tag name - its content is the results</font>+<a name="line-292"></a><font color=Blue>--   of the given list of filters.</font>+<a name="line-293"></a><font color=Blue>mkElem</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-294"></a><font color=Blue>mkElem</font> h cfs <font color=Red>=</font> <font color=Red>\</font>t<font color=Red>-&gt;</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem h [] <font color=Cyan>(</font>cat cfs t<font color=Cyan>)</font><font color=Cyan>)</font> undefined <font color=Red>]</font>+<a name="line-295"></a>+<a name="line-296"></a><a name="mkElemAttr"></a><font color=Blue>-- | Build an element with the given name, attributes, and content.</font>+<a name="line-297"></a><font color=Blue>mkElemAttr</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font>CFilter i<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-298"></a><font color=Blue>mkElemAttr</font> h <font color=Green><u>as</u></font> cfs <font color=Red>=</font> <font color=Red>\</font>t<font color=Red>-&gt;</font> <font color=Red>[</font> CElem <font color=Cyan>(</font>Elem h <font color=Cyan>(</font>map <font color=Cyan>(</font>attr t<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>cat cfs t<font color=Cyan>)</font><font color=Cyan>)</font> undefined <font color=Red>]</font>+<a name="line-299"></a>  <font color=Green><u>where</u></font> attr t <font color=Cyan>(</font>n<font color=Cyan>,</font>vf<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-300"></a>            <font color=Green><u>let</u></font> v <font color=Red>=</font> concat <font color=Red>[</font> s <font color=Red>|</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> <font color=Cyan>(</font>deep txt <font color=Cyan>`o`</font> vf<font color=Cyan>)</font> t <font color=Red>]</font>+<a name="line-301"></a>            <font color=Green><u>in</u></font>  <font color=Cyan>(</font>n<font color=Cyan>,</font> AttValue <font color=Red>[</font>Left v<font color=Red>]</font><font color=Cyan>)</font>+<a name="line-302"></a>+<a name="line-303"></a><a name="literal"></a><font color=Blue>-- | Build some textual content.</font>+<a name="line-304"></a><font color=Blue>literal</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i+<a name="line-305"></a><font color=Blue>literal</font> s <font color=Red>=</font> const <font color=Red>[</font>CString False s undefined<font color=Red>]</font>+<a name="line-306"></a>+<a name="line-307"></a><a name="cdata"></a><font color=Blue>-- | Build some CDATA content.</font>+<a name="line-308"></a><font color=Blue>cdata</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i+<a name="line-309"></a><font color=Blue>cdata</font> s <font color=Red>=</font> const <font color=Red>[</font>CString True s undefined<font color=Red>]</font>+<a name="line-310"></a>+<a name="line-311"></a><a name="replaceTag"></a><font color=Blue>-- | Rename an element tag (leaving attributes in place).</font>+<a name="line-312"></a><font color=Blue>replaceTag</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i+<a name="line-313"></a><font color=Blue>replaceTag</font> n <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> i<font color=Red>]</font>+<a name="line-314"></a><font color=Blue>replaceTag</font> n <font color=Green><u>_</u></font> <font color=Red>=</font> []+<a name="line-315"></a>+<a name="line-316"></a><a name="replaceAttrs"></a><font color=Blue>-- | Replace the attributes of an element (leaving tag the same).</font>+<a name="line-317"></a><font color=Blue>replaceAttrs</font> <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font>String<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-318"></a><font color=Blue>replaceAttrs</font> <font color=Green><u>as</u></font> <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> cs<font color=Cyan>)</font> i<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>Elem n as' cs<font color=Cyan>)</font> i<font color=Red>]</font>+<a name="line-319"></a>    <font color=Green><u>where</u></font> as' <font color=Red>=</font> map <font color=Cyan>(</font><font color=Red>\</font><font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font><font color=Red>-&gt;</font> <font color=Cyan>(</font>n<font color=Cyan>,</font> AttValue <font color=Red>[</font>Left v<font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>as</u></font>+<a name="line-320"></a><font color=Blue>replaceAttrs</font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> []+<a name="line-321"></a>+<a name="line-322"></a>+<a name="line-323"></a>+<a name="line-324"></a><font color=Blue>-- LABELLING</font>+<a name="line-325"></a>+<a name="line-326"></a><a name="LabelFilter"></a><font color=Blue>-- | A LabelFilter is like a CFilter except that it pairs up a polymorphic</font>+<a name="line-327"></a><a name="LabelFilter"></a><font color=Blue>--   value (label) with each of its results.</font>+<a name="line-328"></a><a name="LabelFilter"></a><font color=Green><u>type</u></font> LabelFilter i a <font color=Red>=</font> Content i <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>Content i<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-329"></a>+<a name="line-330"></a><a name="oo"></a><font color=Blue>-- | Compose a label-processing filter with a label-generating filter.</font>+<a name="line-331"></a><font color=Blue>oo</font> <font color=Red>::</font> <font color=Cyan>(</font>a<font color=Red>-&gt;</font>CFilter i<font color=Cyan>)</font> <font color=Red>-&gt;</font> LabelFilter i a <font color=Red>-&gt;</font> CFilter i+<a name="line-332"></a><a name="oo"></a><font color=Blue>f</font> <font color=Cyan>`oo`</font> g <font color=Red>=</font> concatMap <font color=Cyan>(</font>uncurry f<font color=Cyan>)</font> <font color=Cyan>.</font> g+<a name="line-333"></a>+<a name="line-334"></a><font color=Blue>{-+<a name="line-335"></a>-- | Process the information labels (very nearly monadic bind).+<a name="line-336"></a>oo :: (b -&gt; CFilter b c) -&gt; CFilter a b -&gt; CFilter a c+<a name="line-337"></a>f `oo` g = concatMap info . g+<a name="line-338"></a>    where info c@(CElem _ i)     = f i c+<a name="line-339"></a>          info c@(CString _ _ i) = f i c+<a name="line-340"></a>          info c@(CRef _ i)      = f i c+<a name="line-341"></a>          info c                 = [c]+<a name="line-342"></a>-}</font>+<a name="line-343"></a>+<a name="line-344"></a><a name="x"></a><font color=Blue>-- | Combine labels.  Think of this as a pair-wise zip on labels.</font>+<a name="line-345"></a><font color=Blue>--   e.g. @(numbered `x` tagged)@</font>+<a name="line-346"></a><font color=Blue>x</font> <font color=Red>::</font> <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i a<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i b<font color=Cyan>)</font> <font color=Red>-&gt;</font>+<a name="line-347"></a>       <font color=Cyan>(</font>CFilter i<font color=Red>-&gt;</font>LabelFilter i <font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-348"></a><a name="x"></a><font color=Blue>f</font> <font color=Cyan>`x`</font> g <font color=Red>=</font> <font color=Red>\</font>cf c<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> gs <font color=Red>=</font> map fst <font color=Cyan>(</font>g cf c<font color=Cyan>)</font>+<a name="line-349"></a>                      fs <font color=Red>=</font> map fst <font color=Cyan>(</font>f cf c<font color=Cyan>)</font>+<a name="line-350"></a>                  <font color=Green><u>in</u></font> zip <font color=Cyan>(</font>zip fs gs<font color=Cyan>)</font> <font color=Cyan>(</font>cf c<font color=Cyan>)</font>+<a name="line-351"></a>+<a name="line-352"></a>+<a name="line-353"></a><font color=Blue>-- Some basic label-generating filters.</font>+<a name="line-354"></a>+<a name="line-355"></a><a name="numbered"></a><font color=Blue>-- | Number the results from 1 upwards.</font>+<a name="line-356"></a><font color=Blue>numbered</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i Int+<a name="line-357"></a><font color=Blue>numbered</font> f <font color=Red>=</font> zip <font color=Red>[</font><font color=Magenta>1</font><font color=Red>..</font><font color=Red>]</font> <font color=Cyan>.</font> f+<a name="line-358"></a>+<a name="line-359"></a><a name="interspersed"></a><font color=Blue>-- | In @interspersed a f b@, label each result of @f@ with the string @a@,</font>+<a name="line-360"></a><font color=Blue>--   except for the last one which is labelled with the string @b@.</font>+<a name="line-361"></a><font color=Blue>interspersed</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> LabelFilter i String+<a name="line-362"></a><font color=Blue>interspersed</font> a f b <font color=Red>=</font>+<a name="line-363"></a>  <font color=Cyan>(</font><font color=Red>\</font>xs<font color=Red>-&gt;</font> zip <font color=Cyan>(</font>replicate <font color=Cyan>(</font>len xs<font color=Cyan>)</font> a <font color=Cyan>++</font> <font color=Red>[</font>b<font color=Red>]</font><font color=Cyan>)</font> xs<font color=Cyan>)</font> <font color=Cyan>.</font> f+<a name="line-364"></a>  <font color=Green><u>where</u></font>+<a name="line-365"></a>  len [] <font color=Red>=</font> <font color=Magenta>0</font>+<a name="line-366"></a>  len xs <font color=Red>=</font> length xs <font color=Blue>-</font> <font color=Magenta>1</font>+<a name="line-367"></a>+<a name="line-368"></a><a name="tagged"></a><font color=Blue>-- | Label each element in the result with its tag name.  Non-element</font>+<a name="line-369"></a><font color=Blue>--   results get an empty string label.</font>+<a name="line-370"></a><font color=Blue>tagged</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i String+<a name="line-371"></a><font color=Blue>tagged</font> f <font color=Red>=</font> extracted name f+<a name="line-372"></a>  <font color=Green><u>where</u></font> name <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem n <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> n+<a name="line-373"></a>        name <font color=Green><u>_</u></font>                      <font color=Red>=</font> <font color=Magenta>""</font>+<a name="line-374"></a>+<a name="line-375"></a><a name="attributed"></a><font color=Blue>-- | Label each element in the result with the value of the named attribute.</font>+<a name="line-376"></a><font color=Blue>--   Elements without the attribute, and non-element results, get an</font>+<a name="line-377"></a><font color=Blue>--   empty string label.</font>+<a name="line-378"></a><font color=Blue>attributed</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i String+<a name="line-379"></a><font color=Blue>attributed</font> key f <font color=Red>=</font> extracted att f+<a name="line-380"></a>  <font color=Green><u>where</u></font> att <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Green><u>_</u></font> <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-381"></a>            <font color=Green><u>case</u></font> <font color=Cyan>(</font>lookup key <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Green><u>of</u></font>+<a name="line-382"></a>              Nothing  <font color=Red>-&gt;</font> <font color=Magenta>""</font>+<a name="line-383"></a>              <font color=Cyan>(</font>Just v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> show v+<a name="line-384"></a>        att <font color=Green><u>_</u></font> <font color=Red>=</font> <font color=Magenta>""</font>+<a name="line-385"></a>+<a name="line-386"></a><a name="textlabelled"></a><font color=Blue>-- | Label each textual part of the result with its text.  Element</font>+<a name="line-387"></a><font color=Blue>--   results get an empty string label.</font>+<a name="line-388"></a><font color=Blue>textlabelled</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>+<a name="line-389"></a><font color=Blue>textlabelled</font> f <font color=Red>=</font> extracted text f+<a name="line-390"></a>  <font color=Green><u>where</u></font> text <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Just s+<a name="line-391"></a>        text <font color=Green><u>_</u></font>               <font color=Red>=</font> Nothing+<a name="line-392"></a>+<a name="line-393"></a><a name="extracted"></a><font color=Blue>-- | Label each content with some information extracted from itself.</font>+<a name="line-394"></a><font color=Blue>extracted</font> <font color=Red>::</font> <font color=Cyan>(</font>Content i<font color=Red>-&gt;</font>a<font color=Cyan>)</font> <font color=Red>-&gt;</font> CFilter i <font color=Red>-&gt;</font> LabelFilter i a+<a name="line-395"></a><font color=Blue>extracted</font> proj f <font color=Red>=</font> concatMap <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font><font color=Red>[</font><font color=Cyan>(</font>proj c<font color=Cyan>,</font> c<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>.</font> f+<a name="line-396"></a>                                                                                +<a name="line-397"></a>+<a name="line-398"></a>+<a name="line-399"></a><font color=Blue>{-+<a name="line-400"></a>-- MISC+<a name="line-401"></a>+<a name="line-402"></a>-- | I haven't yet remembered \/ worked out what this does.+<a name="line-403"></a>combine :: (Read a,Show a) =&gt; ([a]-&gt;a) -&gt; LabelFilter String -&gt; CFilter+<a name="line-404"></a>combine f lf = \c-&gt; [ CString False (show (f [ read l | (l,_) &lt;- lf c ])) ]+<a name="line-405"></a>-}</font>+<a name="line-406"></a>+<a name="line-407"></a>+<a name="line-408"></a><font color=Blue>{- OLD STUFF - OBSOLETE+<a name="line-409"></a>-- Keep an element by its numbered position (starting at 1).+<a name="line-410"></a>position :: Int -&gt; [Content] -&gt; [Content]+<a name="line-411"></a>position n | n&gt;0  = (:[]) . (!!(n-1))+<a name="line-412"></a>           | otherwise = const []+<a name="line-413"></a>+<a name="line-414"></a>-- Chop and remove the root portions of trees to depth n.+<a name="line-415"></a>layer :: Int -&gt; [Content] -&gt; [Content]+<a name="line-416"></a>layer n = apply n (concatMap lay)+<a name="line-417"></a>  where lay (CElem (Elem _ _ cs)) = cs+<a name="line-418"></a>        lay _ = []+<a name="line-419"></a>        apply 0 f xs = xs+<a name="line-420"></a>        apply n f xs = apply (n-1) f (f xs)+<a name="line-421"></a>+<a name="line-422"></a>combine :: (Read a, Show a) =&gt; ([a]-&gt;a) -&gt; [Content] -&gt; [Content]+<a name="line-423"></a>combine f = \cs-&gt; [ CString False (show (f [ read s | CString _ s &lt;- cs ])) ]+<a name="line-424"></a>-}</font> </pre>+</body> </html>

@@ -1,131 +1,137 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | This module performs the translation of a parsed XML DTD into the</font>-<a name="(line2)"></a><font color=Blue>--   internal representation of corresponding Haskell data\/newtypes.</font>-<a name="(line3)"></a>-<a name="(line4)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>Convert-<a name="(line5)"></a>  <font color=Cyan>(</font> dtd2TypeDef-<a name="(line6)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line7)"></a>-<a name="(line8)"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>-<a name="(line9)"></a>-<a name="(line10)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types hiding <font color=Cyan>(</font>Name<font color=Cyan>)</font>-<a name="(line11)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef-<a name="(line12)"></a>-<a name="(line13)"></a>-<a name="(line14)"></a><a name="Record"></a><font color=Blue>---- Internal representation for database of DTD decls ----</font>-<a name="(line15)"></a><a name="Record"></a><font color=Green><u>data</u></font> Record <font color=Red>=</font> R <font color=Red>[</font>AttDef<font color=Red>]</font> ContentSpec-<a name="(line16)"></a><font color=Blue>-- type Db = [(String,Record)]</font>-<a name="(line17)"></a>-<a name="(line18)"></a>-<a name="(line19)"></a><a name="dtd2TypeDef"></a><font color=Blue>---- Build a database of DTD decls then convert them to typedefs ----</font>-<a name="(line20)"></a><font color=Blue>---- (Done in two steps because we need to merge ELEMENT and ATTLIST decls.)</font>-<a name="(line21)"></a><font color=Blue>---- Apparently multiple ATTLIST decls for the same element are permitted,</font>-<a name="(line22)"></a><font color=Blue>---- although only one ELEMENT decl for it is allowed.</font>-<a name="(line23)"></a>dtd2TypeDef <font color=Red>::</font> <font color=Red>[</font>MarkupDecl<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>-<a name="(line24)"></a>dtd2TypeDef mds <font color=Red>=</font>-<a name="(line25)"></a>  <font color=Cyan>(</font>concatMap convert <font color=Cyan>.</font> reverse <font color=Cyan>.</font> database []<font color=Cyan>)</font> mds-<a name="(line26)"></a>  <font color=Green><u>where</u></font>-<a name="(line27)"></a>  database db [] <font color=Red>=</font> db-<a name="(line28)"></a>  database db <font color=Cyan>(</font>m<font color=Red><b>:</b></font>ms<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line29)"></a>      <font color=Green><u>case</u></font> m <font color=Green><u>of</u></font>-<a name="(line30)"></a>        <font color=Cyan>(</font>Element <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font>-<a name="(line31)"></a>          <font color=Green><u>case</u></font> lookup n db <font color=Green><u>of</u></font>-<a name="(line32)"></a>            Nothing <font color=Red>-&gt;</font> database <font color=Cyan>(</font><font color=Cyan>(</font>n<font color=Cyan>,</font> R [] cs<font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font> ms-<a name="(line33)"></a>            <font color=Cyan>(</font>Just <font color=Cyan>(</font>R <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> database <font color=Cyan>(</font>replace n <font color=Cyan>(</font>R <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> db<font color=Cyan>)</font> ms-<a name="(line34)"></a>        <font color=Cyan>(</font>AttList <font color=Cyan>(</font>AttListDecl n <font color=Green><u>as</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font>-<a name="(line35)"></a>          <font color=Green><u>case</u></font> lookup n db <font color=Green><u>of</u></font>-<a name="(line36)"></a>            Nothing <font color=Red>-&gt;</font> database <font color=Cyan>(</font><font color=Cyan>(</font>n<font color=Cyan>,</font> R <font color=Green><u>as</u></font> EMPTY<font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font> ms-<a name="(line37)"></a>            <font color=Cyan>(</font>Just <font color=Cyan>(</font>R a cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> database <font color=Cyan>(</font>replace n <font color=Cyan>(</font>R <font color=Cyan>(</font>a<font color=Cyan>++</font><font color=Green><u>as</u></font><font color=Cyan>)</font> cs<font color=Cyan>)</font> db<font color=Cyan>)</font> ms-<a name="(line38)"></a>    <font color=Blue>--  (MarkupPE _ m') -&gt; database db (m':ms)</font>-<a name="(line39)"></a>        <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> database db ms-<a name="(line40)"></a>-<a name="(line41)"></a>  replace <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> [] <font color=Red>=</font> error <font color=Magenta>"dtd2TypeDef.replace: no element to replace"</font>-<a name="(line42)"></a>  replace n v <font color=Cyan>(</font>x<font color=Red>@</font><font color=Cyan>(</font>n0<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font>-<a name="(line43)"></a>      <font color=Red>|</font> n<font color=Cyan>==</font>n0     <font color=Red>=</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font><font color=Red><b>:</b></font> db-<a name="(line44)"></a>      <font color=Red>|</font> otherwise <font color=Red>=</font> x<font color=Red><b>:</b></font> replace n v db-<a name="(line45)"></a>-<a name="(line46)"></a>-<a name="(line47)"></a>-<a name="(line48)"></a><a name="convert"></a><font color=Blue>---- Convert DTD record to typedef ----</font>-<a name="(line49)"></a>convert <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Cyan>,</font> Record<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>-<a name="(line50)"></a>convert <font color=Cyan>(</font>n<font color=Cyan>,</font> R <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line51)"></a>    <font color=Green><u>case</u></font> cs <font color=Green><u>of</u></font>-<a name="(line52)"></a>      EMPTY                   <font color=Red>-&gt;</font> modifier None []-<a name="(line53)"></a>      ANY                     <font color=Red>-&gt;</font> modifier None <font color=Red>[</font><font color=Red>[</font>Any<font color=Red>]</font><font color=Red>]</font>-<a name="(line54)"></a>                                 <font color=Blue>--error "NYI: contentspec of ANY"</font>-<a name="(line55)"></a>      <font color=Cyan>(</font>Mixed PCDATA<font color=Cyan>)</font>          <font color=Red>-&gt;</font> modifier None <font color=Red>[</font><font color=Red>[</font>String<font color=Red>]</font><font color=Red>]</font>-<a name="(line56)"></a>      <font color=Cyan>(</font>Mixed <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier Star <font color=Cyan>(</font><font color=Red>[</font>String<font color=Red>]</font><font color=Red><b>:</b></font> map <font color=Cyan>(</font><font color=Cyan>(</font><font color=Red><b>:</b></font>[]<font color=Cyan>)</font> <font color=Cyan>.</font> Defined <font color=Cyan>.</font> name<font color=Cyan>)</font> ns<font color=Cyan>)</font>-<a name="(line57)"></a>      <font color=Cyan>(</font>ContentSpec cp<font color=Cyan>)</font>        <font color=Red>-&gt;</font>-<a name="(line58)"></a>          <font color=Green><u>case</u></font> cp <font color=Green><u>of</u></font>-<a name="(line59)"></a>            <font color=Cyan>(</font>TagName n' m<font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier m <font color=Red>[</font><font color=Red>[</font>Defined <font color=Cyan>(</font>name n'<font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>-<a name="(line60)"></a>            <font color=Cyan>(</font>Choice cps m<font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier m <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Cyan>(</font><font color=Red><b>:</b></font>[]<font color=Cyan>)</font><font color=Cyan>.</font>inner<font color=Cyan>)</font> cps<font color=Cyan>)</font>-<a name="(line61)"></a>            <font color=Cyan>(</font>Seq cps m<font color=Cyan>)</font>    <font color=Red>-&gt;</font> modifier m <font color=Red>[</font>map inner cps<font color=Red>]</font>-<a name="(line62)"></a>    <font color=Cyan>++</font> concatMap <font color=Cyan>(</font>mkAttrDef n<font color=Cyan>)</font> <font color=Green><u>as</u></font>-<a name="(line63)"></a>  <font color=Green><u>where</u></font>-<a name="(line64)"></a>    attrs    <font color=Red>::</font> AttrFields-<a name="(line65)"></a>    attrs     <font color=Red>=</font> map <font color=Cyan>(</font>mkAttrField n<font color=Cyan>)</font> <font color=Green><u>as</u></font>-<a name="(line66)"></a>-<a name="(line67)"></a>    modifier None sts   <font color=Red>=</font> mkData sts            attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font>-<a name="(line68)"></a>    modifier m   <font color=Red>[</font><font color=Red>[</font>st<font color=Red>]</font><font color=Red>]</font> <font color=Red>=</font> mkData <font color=Red>[</font><font color=Red>[</font>modf m st<font color=Red>]</font><font color=Red>]</font>  attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font>-<a name="(line69)"></a>    modifier m    sts   <font color=Red>=</font> mkData <font color=Red>[</font><font color=Red>[</font>modf m <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_ n<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>-<a name="(line70)"></a>                                                attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font> <font color=Cyan>++</font>-<a name="(line71)"></a>                          mkData sts            []    True  <font color=Cyan>(</font>name_ n<font color=Cyan>)</font>-<a name="(line72)"></a>-<a name="(line73)"></a>    inner <font color=Red>::</font> CP <font color=Red>-&gt;</font> StructType-<a name="(line74)"></a>    inner <font color=Cyan>(</font>TagName n' m<font color=Cyan>)</font> <font color=Red>=</font> modf m <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name n'<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line75)"></a>    inner <font color=Cyan>(</font>Choice cps m<font color=Cyan>)</font> <font color=Red>=</font> modf m <font color=Cyan>(</font>OneOf <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line76)"></a>    inner <font color=Cyan>(</font>Seq cps None<font color=Cyan>)</font> <font color=Red>=</font> Tuple <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font>-<a name="(line77)"></a>    inner <font color=Cyan>(</font>Seq cps m<font color=Cyan>)</font>    <font color=Red>=</font> modf m <font color=Cyan>(</font>Tuple <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line78)"></a>-<a name="(line79)"></a>    modf None x  <font color=Red>=</font> x-<a name="(line80)"></a>    modf Query x <font color=Red>=</font> Maybe x-<a name="(line81)"></a>    modf Star x  <font color=Red>=</font> List x-<a name="(line82)"></a>    modf Plus x  <font color=Red>=</font> List1 x-<a name="(line83)"></a>-<a name="(line84)"></a><a name="mkData"></a>mkData <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> AttrFields <font color=Red>-&gt;</font> Bool <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>-<a name="(line85)"></a>mkData []   fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs []<font color=Red>]</font>-<a name="(line86)"></a>mkData <font color=Red>[</font>ts<font color=Red>]</font> fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs <font color=Red>[</font><font color=Cyan>(</font>n<font color=Cyan>,</font> ts<font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>-<a name="(line87)"></a>mkData tss  fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs <font color=Cyan>(</font>map <font color=Cyan>(</font>mkConstr n<font color=Cyan>)</font> tss<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line88)"></a>  <font color=Green><u>where</u></font>-<a name="(line89)"></a>    mkConstr m ts <font color=Red>=</font> <font color=Cyan>(</font>mkConsName m ts<font color=Cyan>,</font> ts<font color=Cyan>)</font>-<a name="(line90)"></a>    mkConsName <font color=Cyan>(</font>Name x m<font color=Cyan>)</font> sts <font color=Red>=</font> Name x <font color=Cyan>(</font>m<font color=Cyan>++</font>concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line91)"></a>    flatten <font color=Cyan>(</font>Maybe st<font color=Cyan>)</font>   <font color=Red>=</font> <font color=Blue>{-"Maybe_" ++ -}</font> flatten st-<a name="(line92)"></a>    flatten <font color=Cyan>(</font>List st<font color=Cyan>)</font>    <font color=Red>=</font> <font color=Blue>{-"List_" ++ -}</font> flatten st-<a name="(line93)"></a>    flatten <font color=Cyan>(</font>List1 st<font color=Cyan>)</font>   <font color=Red>=</font> <font color=Blue>{-"List1_" ++ -}</font> flatten st-<a name="(line94)"></a>    flatten <font color=Cyan>(</font>Tuple sts<font color=Cyan>)</font>  <font color=Red>=</font> <font color=Blue>{-"Tuple" ++ show (length sts) ++ "_" ++ -}</font>-<a name="(line95)"></a>                            concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line96)"></a>    flatten String       <font color=Red>=</font> <font color=Magenta>"Str"</font>-<a name="(line97)"></a>    flatten <font color=Cyan>(</font>OneOf sts<font color=Cyan>)</font>  <font color=Red>=</font> <font color=Blue>{-"OneOf" ++ show (length sts) ++ "_" ++ -}</font>-<a name="(line98)"></a>                            concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line99)"></a>    flatten Any          <font color=Red>=</font> <font color=Magenta>"Any"</font>-<a name="(line100)"></a>    flatten <font color=Cyan>(</font>Defined <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> m<font color=Cyan>)</font><font color=Cyan>)</font>  <font color=Red>=</font> m-<a name="(line101)"></a>-<a name="(line102)"></a><a name="mkAttrDef"></a>mkAttrDef <font color=Red>::</font> String <font color=Red>-&gt;</font> AttDef <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>-<a name="(line103)"></a>mkAttrDef <font color=Green><u>_</u></font> <font color=Cyan>(</font>AttDef <font color=Green><u>_</u></font> StringType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line104)"></a>    []-<a name="(line105)"></a>mkAttrDef <font color=Green><u>_</u></font> <font color=Cyan>(</font>AttDef <font color=Green><u>_</u></font> <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line106)"></a>    [] <font color=Blue>-- mkData [[String]] [] False (name n)</font>-<a name="(line107)"></a>mkAttrDef e <font color=Cyan>(</font>AttDef n <font color=Cyan>(</font>EnumeratedType <font color=Cyan>(</font>NotationType nt<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line108)"></a>    <font color=Red>[</font>EnumDef <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font> <font color=Cyan>(</font>map <font color=Cyan>(</font>name_ac e n<font color=Cyan>)</font> nt<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line109)"></a>mkAttrDef e <font color=Cyan>(</font>AttDef n <font color=Cyan>(</font>EnumeratedType <font color=Cyan>(</font>Enumeration es<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line110)"></a>    <font color=Red>[</font>EnumDef <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font> <font color=Cyan>(</font>map <font color=Cyan>(</font>name_ac e n<font color=Cyan>)</font> es<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line111)"></a>        <font color=Blue>-- Default attribute values not handled here</font>-<a name="(line112)"></a>-<a name="(line113)"></a><a name="mkAttrField"></a>mkAttrField <font color=Red>::</font> String <font color=Red>-&gt;</font> AttDef <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font>-<a name="(line114)"></a>mkAttrField e <font color=Cyan>(</font>AttDef n typ req<font color=Cyan>)</font> <font color=Red>=</font> <font color=Cyan>(</font>name_f e n<font color=Cyan>,</font> mkType typ req<font color=Cyan>)</font>-<a name="(line115)"></a>  <font color=Green><u>where</u></font>-<a name="(line116)"></a>    mkType StringType REQUIRED <font color=Red>=</font> String-<a name="(line117)"></a>    mkType StringType IMPLIED  <font color=Red>=</font> Maybe String-<a name="(line118)"></a>    mkType StringType <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Defaultable String <font color=Cyan>(</font>show v<font color=Cyan>)</font>-<a name="(line119)"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> REQUIRED  <font color=Red>=</font> String-<a name="(line120)"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> IMPLIED   <font color=Red>=</font> Maybe String-<a name="(line121)"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line122)"></a>                                                        Defaultable String <font color=Cyan>(</font>show v<font color=Cyan>)</font>-<a name="(line123)"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> REQUIRED <font color=Red>=</font> Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font>-<a name="(line124)"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> IMPLIED  <font color=Red>=</font> Maybe <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line125)"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line126)"></a>                Defaultable <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>hName <font color=Cyan>(</font>name_ac e n <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line127)"></a>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/DtdToHaskell/Convert.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | This module performs the translation of a parsed XML DTD into the</font>+<a name="line-2"></a><font color=Blue>--   internal representation of corresponding Haskell data\/newtypes.</font>+<a name="line-3"></a>+<a name="line-4"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>Convert+<a name="line-5"></a>  <font color=Cyan>(</font> dtd2TypeDef+<a name="line-6"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-7"></a>+<a name="line-8"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>,</font>nub<font color=Cyan>)</font>+<a name="line-9"></a>+<a name="line-10"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types hiding <font color=Cyan>(</font>Name<font color=Cyan>)</font>+<a name="line-11"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef+<a name="line-12"></a>+<a name="line-13"></a>+<a name="line-14"></a><a name="Record"></a><font color=Blue>---- Internal representation for database of DTD decls ----</font>+<a name="line-15"></a><a name="Record"></a><font color=Green><u>data</u></font> Record <font color=Red>=</font> R <font color=Red>[</font>AttDef<font color=Red>]</font> ContentSpec+<a name="line-16"></a><font color=Blue>-- type Db = [(String,Record)]</font>+<a name="line-17"></a>+<a name="line-18"></a>+<a name="line-19"></a><a name="dtd2TypeDef"></a><font color=Blue>---- Build a database of DTD decls then convert them to typedefs ----</font>+<a name="line-20"></a><font color=Blue>---- (Done in two steps because we need to merge ELEMENT and ATTLIST decls.)</font>+<a name="line-21"></a><font color=Blue>---- Apparently multiple ATTLIST decls for the same element are permitted,</font>+<a name="line-22"></a><font color=Blue>---- although only one ELEMENT decl for it is allowed.</font>+<a name="line-23"></a><font color=Blue>dtd2TypeDef</font> <font color=Red>::</font> <font color=Red>[</font>MarkupDecl<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>+<a name="line-24"></a><font color=Blue>dtd2TypeDef</font> mds <font color=Red>=</font>+<a name="line-25"></a>  <font color=Cyan>(</font>concatMap convert <font color=Cyan>.</font> reverse <font color=Cyan>.</font> database []<font color=Cyan>)</font> mds+<a name="line-26"></a>  <font color=Green><u>where</u></font>+<a name="line-27"></a>  database db [] <font color=Red>=</font> db+<a name="line-28"></a>  database db <font color=Cyan>(</font>m<font color=Red><b>:</b></font>ms<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-29"></a>      <font color=Green><u>case</u></font> m <font color=Green><u>of</u></font>+<a name="line-30"></a>        <font color=Cyan>(</font>Element <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font>+<a name="line-31"></a>          <font color=Green><u>case</u></font> lookup n db <font color=Green><u>of</u></font>+<a name="line-32"></a>            Nothing <font color=Red>-&gt;</font> database <font color=Cyan>(</font><font color=Cyan>(</font>n<font color=Cyan>,</font> R [] cs<font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font> ms+<a name="line-33"></a>            <font color=Cyan>(</font>Just <font color=Cyan>(</font>R <font color=Green><u>as</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> database <font color=Cyan>(</font>replace n <font color=Cyan>(</font>R <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> db<font color=Cyan>)</font> ms+<a name="line-34"></a>        <font color=Cyan>(</font>AttList <font color=Cyan>(</font>AttListDecl n <font color=Green><u>as</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font>+<a name="line-35"></a>          <font color=Green><u>case</u></font> lookup n db <font color=Green><u>of</u></font>+<a name="line-36"></a>            Nothing <font color=Red>-&gt;</font> database <font color=Cyan>(</font><font color=Cyan>(</font>n<font color=Cyan>,</font> R <font color=Green><u>as</u></font> EMPTY<font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font> ms+<a name="line-37"></a>            <font color=Cyan>(</font>Just <font color=Cyan>(</font>R a cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> database <font color=Cyan>(</font>replace n <font color=Cyan>(</font>R <font color=Cyan>(</font>nub <font color=Cyan>(</font>a<font color=Cyan>++</font><font color=Green><u>as</u></font><font color=Cyan>)</font><font color=Cyan>)</font> cs<font color=Cyan>)</font> db<font color=Cyan>)</font> ms+<a name="line-38"></a>    <font color=Blue>--  (MarkupPE _ m') -&gt; database db (m':ms)</font>+<a name="line-39"></a>        <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> database db ms+<a name="line-40"></a>+<a name="line-41"></a>  replace <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> [] <font color=Red>=</font> error <font color=Magenta>"dtd2TypeDef.replace: no element to replace"</font>+<a name="line-42"></a>  replace n v <font color=Cyan>(</font>x<font color=Red>@</font><font color=Cyan>(</font>n0<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Red><b>:</b></font>db<font color=Cyan>)</font>+<a name="line-43"></a>      <font color=Red>|</font> n<font color=Cyan>==</font>n0     <font color=Red>=</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font><font color=Red><b>:</b></font> db+<a name="line-44"></a>      <font color=Red>|</font> otherwise <font color=Red>=</font> x<font color=Red><b>:</b></font> replace n v db+<a name="line-45"></a>+<a name="line-46"></a>+<a name="line-47"></a>+<a name="line-48"></a><a name="convert"></a><font color=Blue>---- Convert DTD record to typedef ----</font>+<a name="line-49"></a><font color=Blue>convert</font> <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Cyan>,</font> Record<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>+<a name="line-50"></a><font color=Blue>convert</font> <font color=Cyan>(</font>n<font color=Cyan>,</font> R <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-51"></a>    <font color=Green><u>case</u></font> cs <font color=Green><u>of</u></font>+<a name="line-52"></a>      EMPTY                   <font color=Red>-&gt;</font> modifier None []+<a name="line-53"></a>      ANY                     <font color=Red>-&gt;</font> modifier None <font color=Red>[</font><font color=Red>[</font>Any<font color=Red>]</font><font color=Red>]</font>+<a name="line-54"></a>                                 <font color=Blue>--error "NYI: contentspec of ANY"</font>+<a name="line-55"></a>      <font color=Cyan>(</font>Mixed PCDATA<font color=Cyan>)</font>          <font color=Red>-&gt;</font> modifier None <font color=Red>[</font><font color=Red>[</font>String<font color=Red>]</font><font color=Red>]</font>+<a name="line-56"></a>      <font color=Cyan>(</font>Mixed <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier Star <font color=Cyan>(</font><font color=Red>[</font>String<font color=Red>]</font><font color=Red><b>:</b></font> map <font color=Cyan>(</font><font color=Cyan>(</font><font color=Red><b>:</b></font>[]<font color=Cyan>)</font> <font color=Cyan>.</font> Defined <font color=Cyan>.</font> name<font color=Cyan>)</font> ns<font color=Cyan>)</font>+<a name="line-57"></a>      <font color=Cyan>(</font>ContentSpec cp<font color=Cyan>)</font>        <font color=Red>-&gt;</font>+<a name="line-58"></a>          <font color=Green><u>case</u></font> cp <font color=Green><u>of</u></font>+<a name="line-59"></a>            <font color=Cyan>(</font>TagName n' m<font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier m <font color=Red>[</font><font color=Red>[</font>Defined <font color=Cyan>(</font>name n'<font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>+<a name="line-60"></a>            <font color=Cyan>(</font>Choice cps m<font color=Cyan>)</font> <font color=Red>-&gt;</font> modifier m <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Cyan>(</font><font color=Red><b>:</b></font>[]<font color=Cyan>)</font><font color=Cyan>.</font>inner<font color=Cyan>)</font> cps<font color=Cyan>)</font>+<a name="line-61"></a>            <font color=Cyan>(</font>Seq cps m<font color=Cyan>)</font>    <font color=Red>-&gt;</font> modifier m <font color=Red>[</font>map inner cps<font color=Red>]</font>+<a name="line-62"></a>    <font color=Cyan>++</font> concatMap <font color=Cyan>(</font>mkAttrDef n<font color=Cyan>)</font> <font color=Green><u>as</u></font>+<a name="line-63"></a>  <font color=Green><u>where</u></font>+<a name="line-64"></a>    attrs    <font color=Red>::</font> AttrFields+<a name="line-65"></a>    attrs     <font color=Red>=</font> map <font color=Cyan>(</font>mkAttrField n<font color=Cyan>)</font> <font color=Green><u>as</u></font>+<a name="line-66"></a>+<a name="line-67"></a>    modifier None sts   <font color=Red>=</font> mkData sts            attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font>+<a name="line-68"></a>    modifier m   <font color=Red>[</font><font color=Red>[</font>st<font color=Red>]</font><font color=Red>]</font> <font color=Red>=</font> mkData <font color=Red>[</font><font color=Red>[</font>modf m st<font color=Red>]</font><font color=Red>]</font>  attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font>+<a name="line-69"></a>    modifier m    sts   <font color=Red>=</font> mkData <font color=Red>[</font><font color=Red>[</font>modf m <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_ n<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>+<a name="line-70"></a>                                                attrs False <font color=Cyan>(</font>name n<font color=Cyan>)</font> <font color=Cyan>++</font>+<a name="line-71"></a>                          mkData sts            []    True  <font color=Cyan>(</font>name_ n<font color=Cyan>)</font>+<a name="line-72"></a>+<a name="line-73"></a>    inner <font color=Red>::</font> CP <font color=Red>-&gt;</font> StructType+<a name="line-74"></a>    inner <font color=Cyan>(</font>TagName n' m<font color=Cyan>)</font> <font color=Red>=</font> modf m <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name n'<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-75"></a>    inner <font color=Cyan>(</font>Choice cps m<font color=Cyan>)</font> <font color=Red>=</font> modf m <font color=Cyan>(</font>OneOf <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-76"></a>    inner <font color=Cyan>(</font>Seq cps None<font color=Cyan>)</font> <font color=Red>=</font> Tuple <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font>+<a name="line-77"></a>    inner <font color=Cyan>(</font>Seq cps m<font color=Cyan>)</font>    <font color=Red>=</font> modf m <font color=Cyan>(</font>Tuple <font color=Cyan>(</font>map inner cps<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-78"></a>+<a name="line-79"></a>    modf None x  <font color=Red>=</font> x+<a name="line-80"></a>    modf Query x <font color=Red>=</font> Maybe x+<a name="line-81"></a>    modf Star x  <font color=Red>=</font> List x+<a name="line-82"></a>    modf Plus x  <font color=Red>=</font> List1 x+<a name="line-83"></a>+<a name="line-84"></a><a name="mkData"></a><font color=Blue>mkData</font> <font color=Red>::</font> <font color=Red>[</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Red>]</font> <font color=Red>-&gt;</font> AttrFields <font color=Red>-&gt;</font> Bool <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>+<a name="line-85"></a><font color=Blue>mkData</font> []   fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs []<font color=Red>]</font>+<a name="line-86"></a><font color=Blue>mkData</font> <font color=Red>[</font>ts<font color=Red>]</font> fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs <font color=Red>[</font><font color=Cyan>(</font>n<font color=Cyan>,</font> ts<font color=Cyan>)</font><font color=Red>]</font><font color=Red>]</font>+<a name="line-87"></a><font color=Blue>mkData</font> tss  fs aux n  <font color=Red>=</font> <font color=Red>[</font>DataDef aux n fs <font color=Cyan>(</font>map <font color=Cyan>(</font>mkConstr n<font color=Cyan>)</font> tss<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-88"></a>  <font color=Green><u>where</u></font>+<a name="line-89"></a>    mkConstr m ts <font color=Red>=</font> <font color=Cyan>(</font>mkConsName m ts<font color=Cyan>,</font> ts<font color=Cyan>)</font>+<a name="line-90"></a>    mkConsName <font color=Cyan>(</font>Name x m<font color=Cyan>)</font> sts <font color=Red>=</font> Name x <font color=Cyan>(</font>m<font color=Cyan>++</font>concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-91"></a>    flatten <font color=Cyan>(</font>Maybe st<font color=Cyan>)</font>   <font color=Red>=</font> <font color=Blue>{-"Maybe_" ++ -}</font> flatten st+<a name="line-92"></a>    flatten <font color=Cyan>(</font>List st<font color=Cyan>)</font>    <font color=Red>=</font> <font color=Blue>{-"List_" ++ -}</font> flatten st+<a name="line-93"></a>    flatten <font color=Cyan>(</font>List1 st<font color=Cyan>)</font>   <font color=Red>=</font> <font color=Blue>{-"List1_" ++ -}</font> flatten st+<a name="line-94"></a>    flatten <font color=Cyan>(</font>Tuple sts<font color=Cyan>)</font>  <font color=Red>=</font> <font color=Blue>{-"Tuple" ++ show (length sts) ++ "_" ++ -}</font>+<a name="line-95"></a>                            concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-96"></a>    flatten String       <font color=Red>=</font> <font color=Magenta>"Str"</font>+<a name="line-97"></a>    flatten <font color=Cyan>(</font>OneOf sts<font color=Cyan>)</font>  <font color=Red>=</font> <font color=Blue>{-"OneOf" ++ show (length sts) ++ "_" ++ -}</font>+<a name="line-98"></a>                            concat <font color=Cyan>(</font>intersperse <font color=Magenta>"_"</font> <font color=Cyan>(</font>map flatten sts<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-99"></a>    flatten Any          <font color=Red>=</font> <font color=Magenta>"Any"</font>+<a name="line-100"></a>    flatten <font color=Cyan>(</font>Defined <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> m<font color=Cyan>)</font><font color=Cyan>)</font>  <font color=Red>=</font> m+<a name="line-101"></a>+<a name="line-102"></a><a name="mkAttrDef"></a><font color=Blue>mkAttrDef</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> AttDef <font color=Red>-&gt;</font> <font color=Red>[</font>TypeDef<font color=Red>]</font>+<a name="line-103"></a><font color=Blue>mkAttrDef</font> <font color=Green><u>_</u></font> <font color=Cyan>(</font>AttDef <font color=Green><u>_</u></font> StringType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-104"></a>    []+<a name="line-105"></a><font color=Blue>mkAttrDef</font> <font color=Green><u>_</u></font> <font color=Cyan>(</font>AttDef <font color=Green><u>_</u></font> <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-106"></a>    [] <font color=Blue>-- mkData [[String]] [] False (name n)</font>+<a name="line-107"></a><font color=Blue>mkAttrDef</font> e <font color=Cyan>(</font>AttDef n <font color=Cyan>(</font>EnumeratedType <font color=Cyan>(</font>NotationType nt<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-108"></a>    <font color=Red>[</font>EnumDef <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font> <font color=Cyan>(</font>map <font color=Cyan>(</font>name_ac e n<font color=Cyan>)</font> nt<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-109"></a><font color=Blue>mkAttrDef</font> e <font color=Cyan>(</font>AttDef n <font color=Cyan>(</font>EnumeratedType <font color=Cyan>(</font>Enumeration es<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-110"></a>    <font color=Red>[</font>EnumDef <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font> <font color=Cyan>(</font>map <font color=Cyan>(</font>name_ac e n<font color=Cyan>)</font> es<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-111"></a>        <font color=Blue>-- Default attribute values not handled here</font>+<a name="line-112"></a>+<a name="line-113"></a><a name="mkAttrField"></a><font color=Blue>mkAttrField</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> AttDef <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font>+<a name="line-114"></a><font color=Blue>mkAttrField</font> e <font color=Cyan>(</font>AttDef n typ req<font color=Cyan>)</font> <font color=Red>=</font> <font color=Cyan>(</font>name_f e n<font color=Cyan>,</font> mkType typ req<font color=Cyan>)</font>+<a name="line-115"></a>  <font color=Green><u>where</u></font>+<a name="line-116"></a>    mkType StringType REQUIRED <font color=Red>=</font> String+<a name="line-117"></a>    mkType StringType IMPLIED  <font color=Red>=</font> Maybe String+<a name="line-118"></a>    mkType StringType <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Defaultable String <font color=Cyan>(</font>show v<font color=Cyan>)</font>+<a name="line-119"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> REQUIRED  <font color=Red>=</font> String+<a name="line-120"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> IMPLIED   <font color=Red>=</font> Maybe String+<a name="line-121"></a>    mkType <font color=Cyan>(</font>TokenizedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-122"></a>                                                        Defaultable String <font color=Cyan>(</font>show v<font color=Cyan>)</font>+<a name="line-123"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> REQUIRED <font color=Red>=</font> Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font>+<a name="line-124"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> IMPLIED  <font color=Red>=</font> Maybe <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-125"></a>    mkType <font color=Cyan>(</font>EnumeratedType <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Cyan>(</font>DefaultTo v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-126"></a>                Defaultable <font color=Cyan>(</font>Defined <font color=Cyan>(</font>name_a e n<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>hName <font color=Cyan>(</font>name_ac e n <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-127"></a> </pre>+</body> </html>

@@ -1,397 +1,405 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>Instance-<a name="(line2)"></a>  <font color=Cyan>(</font> mkInstance-<a name="(line3)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line4)"></a>-<a name="(line5)"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>-<a name="(line6)"></a>-<a name="(line7)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef-<a name="(line8)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ-<a name="(line9)"></a>-<a name="(line10)"></a><a name="mkInstance"></a><font color=Blue>-- | Convert typedef to appropriate instance declaration, either @XmlContent@,</font>-<a name="(line11)"></a><font color=Blue>--   @XmlAttributes@, or @XmlAttrType@.</font>-<a name="(line12)"></a>mkInstance <font color=Red>::</font> TypeDef <font color=Red>-&gt;</font> Doc-<a name="(line13)"></a>-<a name="(line14)"></a><font color=Blue>-- no constructors - represents an element with empty content but attributes.</font>-<a name="(line15)"></a>mkInstance <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs []<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line16)"></a>    <font color=Green><u>let</u></font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs-<a name="(line17)"></a>        frretval <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> ppHName n <font color=Green><u>else</u></font> frattr-<a name="(line18)"></a>        topatval <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> ppHName n <font color=Green><u>else</u></font> topat-<a name="(line19)"></a>    <font color=Green><u>in</u></font>-<a name="(line20)"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line21)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>-<a name="(line22)"></a>    <font color=Cyan>$$</font>-<a name="(line23)"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line24)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font>-<a name="(line25)"></a>             text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> topatval <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>$$</font>-<a name="(line26)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>-<a name="(line27)"></a>                          <font color=Cyan>&lt;+&gt;</font> toattr <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"[]) ()]"</font><font color=Cyan>)</font>-<a name="(line28)"></a>           <font color=Cyan>$$</font>-<a name="(line29)"></a>             text <font color=Magenta>"parseContents = do"</font> <font color=Cyan>$$</font>-<a name="(line30)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ (Elem _ as []) &lt;- element [\""</font>-<a name="(line31)"></a>                             <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font> <font color=Cyan>$$</font>-<a name="(line32)"></a>                     text <font color=Magenta>"; return"</font> <font color=Cyan>&lt;+&gt;</font> frretval <font color=Cyan>$$</font>-<a name="(line33)"></a>                     text <font color=Magenta>"} `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n-<a name="(line34)"></a>                                                  <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>-<a name="(line35)"></a>                    <font color=Cyan>)</font>-<a name="(line36)"></a>           <font color=Cyan>)</font>-<a name="(line37)"></a>    <font color=Cyan>$$</font>-<a name="(line38)"></a>    mkInstanceAttrs Same n fs-<a name="(line39)"></a>-<a name="(line40)"></a><font color=Blue>-- single constructor, "real" (non-auxiliary) type</font>-<a name="(line41)"></a>mkInstance <font color=Cyan>(</font>DataDef False n fs <font color=Red>[</font><font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line42)"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts-<a name="(line43)"></a>        <font color=Cyan>(</font>frpat<font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs-<a name="(line44)"></a>    <font color=Green><u>in</u></font>-<a name="(line45)"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line46)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>-<a name="(line47)"></a>    <font color=Cyan>$$</font>-<a name="(line48)"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line49)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font>-<a name="(line50)"></a>             text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n0 topat vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>$$</font>-<a name="(line51)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>-<a name="(line52)"></a>                          <font color=Cyan>&lt;+&gt;</font> toattr <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font>-<a name="(line53)"></a>                          <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>") ()]"</font><font color=Cyan>)</font>-<a name="(line54)"></a>           <font color=Cyan>$$</font>-<a name="(line55)"></a>             text <font color=Magenta>"parseContents = do"</font> <font color=Cyan>$$</font>-<a name="(line56)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ e@(Elem _"</font><font color=Cyan>&lt;+&gt;</font> frpat <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"_) &lt;- element [\""</font>-<a name="(line57)"></a>                             <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font>-<a name="(line58)"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"; interior e $"</font>-<a name="(line59)"></a>                           <font color=Cyan>&lt;+&gt;</font> <font color=Cyan>(</font>mkParseConstr frattr <font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line60)"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"} `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n-<a name="(line61)"></a>                                                     <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font><font color=Cyan>)</font>-<a name="(line62)"></a>           <font color=Cyan>)</font>-<a name="(line63)"></a>    <font color=Cyan>$$</font>-<a name="(line64)"></a>    mkInstanceAttrs Extended n fs-<a name="(line65)"></a>-<a name="(line66)"></a><font color=Blue>-- single constructor, auxiliary type (i.e. no corresponding element tag)</font>-<a name="(line67)"></a><font color=Blue>--   cannot be attributes here?</font>-<a name="(line68)"></a>mkInstance <font color=Cyan>(</font>DataDef True n [] <font color=Red>[</font><font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line69)"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts-<a name="(line70)"></a>    <font color=Green><u>in</u></font>-<a name="(line71)"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line72)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>-<a name="(line73)"></a>    <font color=Cyan>$$</font>-<a name="(line74)"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line75)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n0 empty vs<font color=Cyan>)</font>-<a name="(line76)"></a>                               <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font>-<a name="(line77)"></a>                               <font color=Cyan>$$</font>  nest <font color=Magenta>4</font> <font color=Cyan>(</font>parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line78)"></a>           <font color=Cyan>$$</font>-<a name="(line79)"></a>             text <font color=Magenta>"parseContents ="</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr empty <font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font>-<a name="(line80)"></a>           <font color=Cyan>)</font>-<a name="(line81)"></a>-<a name="(line82)"></a><font color=Blue>-- multiple constructors (real)</font>-<a name="(line83)"></a>mkInstance <font color=Cyan>(</font>DataDef False n fs cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line84)"></a>    <font color=Green><u>let</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> nameSupply cs-<a name="(line85)"></a>        <font color=Cyan>(</font>frpat<font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs-<a name="(line86)"></a>        <font color=Green><u>_</u></font> <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> False <font color=Green><u>else</u></font> True-<a name="(line87)"></a>    <font color=Green><u>in</u></font>-<a name="(line88)"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line89)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>-<a name="(line90)"></a>    <font color=Cyan>$$</font>-<a name="(line91)"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line92)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font>mkToMult n topat toattr<font color=Cyan>)</font> cs<font color=Cyan>)</font>-<a name="(line93)"></a>           <font color=Cyan>$$</font> text <font color=Magenta>"parseContents = do "</font>-<a name="(line94)"></a>           <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ e@(Elem _"</font><font color=Cyan>&lt;+&gt;</font> frpat <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"_) &lt;- element [\""</font>-<a name="(line95)"></a>                                                  <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font>-<a name="(line96)"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"; interior e $ oneOf"</font>-<a name="(line97)"></a>                     <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr <font color=Cyan>(</font>head cs<font color=Cyan>)</font>-<a name="(line98)"></a>                               <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr c<font color=Cyan>)</font>-<a name="(line99)"></a>                                            <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line100)"></a>                               <font color=Cyan>$$</font> text <font color=Magenta>"] `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n-<a name="(line101)"></a>                                                             <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>-<a name="(line102)"></a>                               <font color=Cyan>)</font>-<a name="(line103)"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"}"</font>-<a name="(line104)"></a>                     <font color=Cyan>)</font>-<a name="(line105)"></a>           <font color=Cyan>)</font>-<a name="(line106)"></a>    <font color=Cyan>$$</font>-<a name="(line107)"></a>    mkInstanceAttrs Extended n fs-<a name="(line108)"></a>-<a name="(line109)"></a><font color=Blue>-- multiple constructors (auxiliary)</font>-<a name="(line110)"></a>mkInstance <font color=Cyan>(</font>DataDef True n fs cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line111)"></a>    <font color=Green><u>let</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> nameSupply cs-<a name="(line112)"></a>        <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font> frattr<font color=Cyan>,</font> <font color=Green><u>_</u></font><font color=Cyan>,</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> attrpats fs-<a name="(line113)"></a>        mixattrs <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> False <font color=Green><u>else</u></font> True-<a name="(line114)"></a>    <font color=Green><u>in</u></font>-<a name="(line115)"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line116)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>-<a name="(line117)"></a>    <font color=Cyan>$$</font>-<a name="(line118)"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line119)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font>mkToAux mixattrs<font color=Cyan>)</font> cs<font color=Cyan>)</font>-<a name="(line120)"></a>           <font color=Cyan>$$</font> text <font color=Magenta>"parseContents = oneOf"</font>-<a name="(line121)"></a>           <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr <font color=Cyan>(</font>head cs<font color=Cyan>)</font>-<a name="(line122)"></a>                     <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr c<font color=Cyan>)</font>-<a name="(line123)"></a>                                  <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line124)"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"] `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n-<a name="(line125)"></a>                                                     <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>-<a name="(line126)"></a>                     <font color=Cyan>)</font>-<a name="(line127)"></a>           <font color=Cyan>)</font>-<a name="(line128)"></a>    <font color=Cyan>$$</font>-<a name="(line129)"></a>    mkInstanceAttrs Extended n fs-<a name="(line130)"></a>-<a name="(line131)"></a><font color=Blue>-- enumeration of attribute values</font>-<a name="(line132)"></a>mkInstance <font color=Cyan>(</font>EnumDef n es<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line133)"></a>    text <font color=Magenta>"instance XmlAttrType"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line134)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"fromAttrToTyp n (n',v)"</font> <font color=Cyan>$$</font>-<a name="(line135)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"| n==n'     = translate (attr2str v)"</font> <font color=Cyan>$$</font>-<a name="(line136)"></a>                     text <font color=Magenta>"| otherwise = Nothing"</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line137)"></a>             nest <font color=Magenta>2</font> <font color=Cyan>(</font>text <font color=Magenta>"where"</font> <font color=Cyan>&lt;+&gt;</font> mkTranslate es<font color=Cyan>)</font>-<a name="(line138)"></a>           <font color=Cyan>$$</font>-<a name="(line139)"></a>             vcat <font color=Cyan>(</font>map mkToAttr es<font color=Cyan>)</font>-<a name="(line140)"></a>           <font color=Cyan>)</font>-<a name="(line141)"></a>-<a name="(line142)"></a>-<a name="(line143)"></a><a name="SameName"></a><font color=Green><u>data</u></font> SameName <font color=Red>=</font> Same <font color=Red>|</font> Extended-<a name="(line144)"></a>-<a name="(line145)"></a><a name="mkInstanceAttrs"></a>mkInstanceAttrs        <font color=Red>::</font> SameName <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> AttrFields <font color=Red>-&gt;</font> Doc-<a name="(line146)"></a>mkInstanceAttrs <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> []  <font color=Red>=</font> empty-<a name="(line147)"></a>mkInstanceAttrs s n fs  <font color=Red>=</font>-<a name="(line148)"></a>    <font color=Green><u>let</u></font> ppName <font color=Red>=</font> <font color=Green><u>case</u></font> s <font color=Green><u>of</u></font> <font color=Cyan>{</font> Same<font color=Red>-&gt;</font> ppHName<font color=Cyan>;</font>  Extended<font color=Red>-&gt;</font> ppAName<font color=Cyan>;</font> <font color=Cyan>}</font>-<a name="(line149)"></a>    <font color=Green><u>in</u></font>-<a name="(line150)"></a>    text <font color=Magenta>"instance XmlAttributes"</font> <font color=Cyan>&lt;+&gt;</font> ppName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>-<a name="(line151)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"fromAttrs as ="</font> <font color=Cyan>$$</font>-<a name="(line152)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font> ppName n <font color=Cyan>$$</font>-<a name="(line153)"></a>                      nest <font color=Magenta>2</font> <font color=Cyan>(</font>vcat <font color=Cyan>(</font><font color=Cyan>(</font>text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> mkFrFld n <font color=Cyan>(</font>head fs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red><b>:</b></font>-<a name="(line154)"></a>                                     map <font color=Cyan>(</font><font color=Red>\</font>x<font color=Red>-&gt;</font> comma <font color=Cyan>&lt;+&gt;</font> mkFrFld n x<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line155)"></a>                              text <font color=Magenta>"}"</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line156)"></a>           <font color=Cyan>$$</font>-<a name="(line157)"></a>             text <font color=Magenta>"toAttrs v = catMaybes "</font> <font color=Cyan>$$</font>-<a name="(line158)"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>vcat <font color=Cyan>(</font><font color=Cyan>(</font>text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkToFld <font color=Cyan>(</font>head fs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red><b>:</b></font>-<a name="(line159)"></a>                           map <font color=Cyan>(</font><font color=Red>\</font>x<font color=Red>-&gt;</font> comma <font color=Cyan>&lt;+&gt;</font> mkToFld x<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line160)"></a>                     text <font color=Magenta>"]"</font><font color=Cyan>)</font>-<a name="(line161)"></a>           <font color=Cyan>)</font>-<a name="(line162)"></a>-<a name="(line163)"></a>-<a name="(line164)"></a><a name="attrpats"></a><font color=Blue>--                  respectively (frpat,frattr,topat,toattr)</font>-<a name="(line165)"></a>attrpats <font color=Red>::</font> AttrFields <font color=Red>-&gt;</font> <font color=Cyan>(</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>)</font>-<a name="(line166)"></a>attrpats fs <font color=Red>=</font>-<a name="(line167)"></a>  <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> <font color=Cyan>(</font>text <font color=Magenta>"[]"</font><font color=Cyan>,</font> empty<font color=Cyan>,</font> empty<font color=Cyan>,</font> text <font color=Magenta>"[]"</font><font color=Cyan>)</font>-<a name="(line168)"></a>  <font color=Green><u>else</u></font> <font color=Cyan>(</font>text <font color=Magenta>"as"</font><font color=Cyan>,</font> parens <font color=Cyan>(</font>text <font color=Magenta>"fromAttrs as"</font><font color=Cyan>)</font><font color=Cyan>,</font> text <font color=Magenta>"as"</font><font color=Cyan>,</font> parens <font color=Cyan>(</font>text <font color=Magenta>"toAttrs as"</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line169)"></a>-<a name="(line170)"></a>-<a name="(line171)"></a>-<a name="(line172)"></a>-<a name="(line173)"></a><font color=Blue>-- mkFrElem :: Name -&gt; [StructType] -&gt; [Doc] -&gt; Doc -&gt; Doc</font>-<a name="(line174)"></a><font color=Blue>-- mkFrElem n sts vs inner =</font>-<a name="(line175)"></a><font color=Blue>--     foldr (frElem n) inner (zip3 sts vs cvs)</font>-<a name="(line176)"></a><font color=Blue>--   where</font>-<a name="(line177)"></a><font color=Blue>--     cvs = let ns = nameSupply2 vs</font>-<a name="(line178)"></a><font color=Blue>--           in zip ns (text "c0": init ns)</font>-<a name="(line179)"></a><font color=Blue>--     frElem _ (st,v,(cvi,cvo)) inner =</font>-<a name="(line180)"></a><font color=Blue>--         parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$</font>-<a name="(line181)"></a><font color=Blue>--                 nest 2 inner) $$</font>-<a name="(line182)"></a><font color=Blue>--         parens (</font>-<a name="(line183)"></a><font color=Blue>--           case st of</font>-<a name="(line184)"></a><font color=Blue>--             (Maybe String)  -&gt; text "fromText" &lt;+&gt; cvo</font>-<a name="(line185)"></a><font color=Blue>--             (Maybe _)       -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line186)"></a><font color=Blue>--             (List String)   -&gt; text "many fromText" &lt;+&gt; cvo</font>-<a name="(line187)"></a><font color=Blue>--             (List _)        -&gt; text "many fromElem" &lt;+&gt; cvo</font>-<a name="(line188)"></a><font color=Blue>--             (List1 s)       -&gt; text "definite fromElem"</font>-<a name="(line189)"></a><font color=Blue>--                                &lt;+&gt; text "\"" &lt;&gt; text (show s)&lt;&gt; text "+\""</font>-<a name="(line190)"></a><font color=Blue>--                                &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>-<a name="(line191)"></a><font color=Blue>--                                &lt;+&gt; cvo</font>-<a name="(line192)"></a><font color=Blue>--             (Tuple ss)  -&gt; text "definite fromElem"</font>-<a name="(line193)"></a><font color=Blue>--                            &lt;+&gt; text "\"(" &lt;&gt; hcat (intersperse (text ",")</font>-<a name="(line194)"></a><font color=Blue>--                                                            (map (text.show) ss))</font>-<a name="(line195)"></a><font color=Blue>--                                           &lt;&gt; text ")\""</font>-<a name="(line196)"></a><font color=Blue>--                            &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>-<a name="(line197)"></a><font color=Blue>--                            &lt;+&gt; cvo</font>-<a name="(line198)"></a><font color=Blue>--             (OneOf _)  -&gt; text "definite fromElem"</font>-<a name="(line199)"></a><font color=Blue>--                            &lt;+&gt; text "\"OneOf\""</font>-<a name="(line200)"></a><font color=Blue>--                            &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>-<a name="(line201)"></a><font color=Blue>--                            &lt;+&gt; cvo</font>-<a name="(line202)"></a><font color=Blue>--             (String)    -&gt; text "definite fromText" &lt;+&gt; text "\"text\" \"" &lt;&gt;</font>-<a name="(line203)"></a><font color=Blue>--                                                  ppXName n &lt;&gt; text "\"" &lt;+&gt; cvo</font>-<a name="(line204)"></a><font color=Blue>--             (Any)       -&gt; text "definite fromElem" &lt;+&gt; text "\"ANY\" \"" &lt;&gt;</font>-<a name="(line205)"></a><font color=Blue>--                                                  ppXName n &lt;&gt; text "\"" &lt;+&gt; cvo</font>-<a name="(line206)"></a><font color=Blue>--             (Defined m) -&gt; text "definite fromElem" &lt;+&gt;</font>-<a name="(line207)"></a><font color=Blue>--                                  text "\"&lt;" &lt;&gt; ppXName m &lt;&gt; text "&gt;\" \"" &lt;&gt;</font>-<a name="(line208)"></a><font color=Blue>--                                                  ppXName m &lt;&gt; text "\"" &lt;+&gt; cvo</font>-<a name="(line209)"></a><font color=Blue>--             (Defaultable _ _)  -&gt; text "nyi_fromElem_Defaultable" &lt;+&gt; cvo</font>-<a name="(line210)"></a><font color=Blue>--           )</font>-<a name="(line211)"></a>-<a name="(line212)"></a><a name="mkParseConstr"></a><font color=Blue>--</font>-<a name="(line213)"></a><font color=Blue>{--<a name="(line214)"></a>mkParseContents :: Name -&gt; [StructType] -&gt; [Doc] -&gt; Doc -&gt; Doc-<a name="(line215)"></a>mkParseContents n sts vs inner =-<a name="(line216)"></a>    foldr (frElem n) inner (zip3 sts vs cvs)-<a name="(line217)"></a>  where-<a name="(line218)"></a>    cvs = let ns = nameSupply2 vs-<a name="(line219)"></a>          in zip ns (text "c0": init ns)-<a name="(line220)"></a>    frElem n (st,v,(cvi,cvo)) inner =-<a name="(line221)"></a>        parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$-<a name="(line222)"></a>                nest 2 inner) $$-<a name="(line223)"></a>        parens (-<a name="(line224)"></a>          )-<a name="(line225)"></a>-}</font>-<a name="(line226)"></a>mkParseConstr <font color=Red>::</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font> <font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line227)"></a>mkParseConstr frattr <font color=Cyan>(</font>c<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line228)"></a>        fsep <font color=Cyan>(</font>text <font color=Magenta>"return"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>ppHName c <font color=Cyan>&lt;+&gt;</font> frattr<font color=Cyan>)</font>-<a name="(line229)"></a>             <font color=Red><b>:</b></font> map mkParseContents sts<font color=Cyan>)</font>-<a name="(line230)"></a>-<a name="(line231)"></a><a name="mkParseContents"></a>mkParseContents <font color=Red>::</font> StructType <font color=Red>-&gt;</font> Doc-<a name="(line232)"></a>mkParseContents st <font color=Red>=</font>-<a name="(line233)"></a>  <font color=Green><u>let</u></font> ap <font color=Red>=</font> text <font color=Magenta>"`apply`"</font> <font color=Green><u>in</u></font>-<a name="(line234)"></a>          <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>-<a name="(line235)"></a>            <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>  <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"optional text"</font>-<a name="(line236)"></a>            <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"optional parseContents"</font>-<a name="(line237)"></a>            <font color=Cyan>(</font>List String<font color=Cyan>)</font>   <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"many text"</font>-<a name="(line238)"></a>            <font color=Cyan>(</font>List <font color=Green><u>_</u></font><font color=Cyan>)</font>        <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"many parseContents"</font>-<a name="(line239)"></a>            <font color=Cyan>(</font>List1 <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>-<a name="(line240)"></a>            <font color=Cyan>(</font>Tuple <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>-<a name="(line241)"></a>            <font color=Cyan>(</font>OneOf <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>-<a name="(line242)"></a>            <font color=Cyan>(</font>String<font color=Cyan>)</font>        <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"(text `onFail` return \"\")"</font>-<a name="(line243)"></a>            <font color=Cyan>(</font>Any<font color=Cyan>)</font>           <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>-<a name="(line244)"></a>            <font color=Cyan>(</font>Defined <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>-<a name="(line245)"></a>            <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"nyi_fromElem_Defaultable"</font>-<a name="(line246)"></a>-<a name="(line247)"></a><a name="mkToElem"></a><font color=Blue>--</font>-<a name="(line248)"></a>mkToElem <font color=Red>::</font> <font color=Red>[</font>StructType<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc-<a name="(line249)"></a>mkToElem []  [] <font color=Red>=</font> text <font color=Magenta>"[]"</font>-<a name="(line250)"></a>mkToElem sts vs <font color=Red>=</font>-<a name="(line251)"></a>    fsep <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"++"</font><font color=Cyan>)</font> <font color=Cyan>(</font>zipWith toElem sts vs<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line252)"></a>  <font color=Green><u>where</u></font>-<a name="(line253)"></a>    toElem st v <font color=Red>=</font>-<a name="(line254)"></a>      <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>-<a name="(line255)"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>  <font color=Red>-&gt;</font> text <font color=Magenta>"maybe [] toText"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line256)"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> text <font color=Magenta>"maybe [] toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line257)"></a>        <font color=Cyan>(</font>List String<font color=Cyan>)</font>   <font color=Red>-&gt;</font> text <font color=Magenta>"concatMap toText"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line258)"></a>        <font color=Cyan>(</font>List <font color=Green><u>_</u></font><font color=Cyan>)</font>        <font color=Red>-&gt;</font> text <font color=Magenta>"concatMap toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line259)"></a>        <font color=Cyan>(</font>List1 <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line260)"></a>        <font color=Cyan>(</font>Tuple <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line261)"></a>        <font color=Cyan>(</font>OneOf <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line262)"></a>        <font color=Cyan>(</font>String<font color=Cyan>)</font>        <font color=Red>-&gt;</font> text <font color=Magenta>"toText"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line263)"></a>        <font color=Cyan>(</font>Any<font color=Cyan>)</font>           <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line264)"></a>        <font color=Cyan>(</font>Defined <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line265)"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>-&gt;</font> text <font color=Magenta>"nyi_toElem_Defaultable"</font> <font color=Cyan>&lt;+&gt;</font> v-<a name="(line266)"></a>-<a name="(line267)"></a><font color=Blue>-- mkRpat :: [Doc] -&gt; Doc</font>-<a name="(line268)"></a><font color=Blue>-- mkRpat [v] = v</font>-<a name="(line269)"></a><font color=Blue>-- mkRpat vs  = (parens . hcat . intersperse comma) vs</font>-<a name="(line270)"></a>-<a name="(line271)"></a><a name="mkCpat"></a>mkCpat <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc-<a name="(line272)"></a>mkCpat n i vs <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> i <font color=Cyan>&lt;+&gt;</font> fsep vs-<a name="(line273)"></a>-<a name="(line274)"></a><a name="nameSupply"></a>nameSupply <font color=Red>::</font> <font color=Red>[</font>b<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font>-<a name="(line275)"></a>nameSupply  ss <font color=Red>=</font> take <font color=Cyan>(</font>length ss<font color=Cyan>)</font> <font color=Cyan>(</font>map char <font color=Red>[</font><font color=Magenta>'a'</font><font color=Red>..</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line276)"></a><font color=Blue>-- nameSupply2 ss = take (length ss) [ text ('c':v:[]) | v &lt;- ['a'..]]</font>-<a name="(line277)"></a>-<a name="(line278)"></a><a name="mkTranslate"></a>mkTranslate <font color=Red>::</font> <font color=Red>[</font>Name<font color=Red>]</font> <font color=Red>-&gt;</font> Doc-<a name="(line279)"></a>mkTranslate es <font color=Red>=</font>-<a name="(line280)"></a>    vcat <font color=Cyan>(</font>map trans es<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line281)"></a>    text <font color=Magenta>"translate _ = Nothing"</font>-<a name="(line282)"></a>  <font color=Green><u>where</u></font>-<a name="(line283)"></a>    trans n <font color=Red>=</font> text <font color=Magenta>"translate \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" ="</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line284)"></a>              text <font color=Magenta>"Just"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n-<a name="(line285)"></a>-<a name="(line286)"></a><a name="mkToAttr"></a>mkToAttr <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc-<a name="(line287)"></a>mkToAttr n <font color=Red>=</font> text <font color=Magenta>"toAttrFrTyp n"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line288)"></a>             text <font color=Magenta>"Just (n, str2attr"</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>")"</font>-<a name="(line289)"></a>-<a name="(line290)"></a><a name="mkFrFld"></a>mkFrFld <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line291)"></a>mkFrFld tag <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line292)"></a>    ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line293)"></a>    <font color=Cyan>(</font> <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>-<a name="(line294)"></a>        <font color=Cyan>(</font>Defaultable String s<font color=Cyan>)</font> <font color=Red>-&gt;</font> text <font color=Magenta>"defaultA fromAttrToStr"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line295)"></a>                                                 doubleQuotes <font color=Cyan>(</font>text s<font color=Cyan>)</font>-<a name="(line296)"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> s<font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"defaultA fromAttrToTyp"</font> <font color=Cyan>&lt;+&gt;</font> text s-<a name="(line297)"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>         <font color=Red>-&gt;</font> text <font color=Magenta>"possibleA fromAttrToStr"</font>-<a name="(line298)"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>              <font color=Red>-&gt;</font> text <font color=Magenta>"possibleA fromAttrToTyp"</font>-<a name="(line299)"></a>        String                 <font color=Red>-&gt;</font> text <font color=Magenta>"definiteA fromAttrToStr"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line300)"></a>                                                 doubleQuotes <font color=Cyan>(</font>ppXName tag<font color=Cyan>)</font>-<a name="(line301)"></a>        <font color=Green><u>_</u></font>                      <font color=Red>-&gt;</font> text <font color=Magenta>"definiteA fromAttrToTyp"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line302)"></a>                                                 doubleQuotes <font color=Cyan>(</font>ppXName tag<font color=Cyan>)</font>-<a name="(line303)"></a>    <font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"as"</font>-<a name="(line304)"></a>-<a name="(line305)"></a><a name="mkToFld"></a>mkToFld <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line306)"></a>mkToFld <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line307)"></a>    <font color=Cyan>(</font> <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>-<a name="(line308)"></a>        <font color=Cyan>(</font>Defaultable String <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>-&gt;</font> text <font color=Magenta>"defaultToAttr toAttrFrStr"</font>-<a name="(line309)"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"defaultToAttr toAttrFrTyp"</font>-<a name="(line310)"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>         <font color=Red>-&gt;</font> text <font color=Magenta>"maybeToAttr toAttrFrStr"</font>-<a name="(line311)"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>              <font color=Red>-&gt;</font> text <font color=Magenta>"maybeToAttr toAttrFrTyp"</font>-<a name="(line312)"></a>        String                 <font color=Red>-&gt;</font> text <font color=Magenta>"toAttrFrStr"</font>-<a name="(line313)"></a>        <font color=Green><u>_</u></font>                      <font color=Red>-&gt;</font> text <font color=Magenta>"toAttrFrTyp"</font>-<a name="(line314)"></a>    <font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"v"</font><font color=Cyan>)</font>-<a name="(line315)"></a>-<a name="(line316)"></a><font color=Blue>-- mkFrAux :: Bool -&gt; Doc -&gt; [(Name,[StructType])] -&gt; Doc</font>-<a name="(line317)"></a><font color=Blue>-- mkFrAux keeprest attrs cs = foldr frAux inner cs</font>-<a name="(line318)"></a><font color=Blue>--   where</font>-<a name="(line319)"></a><font color=Blue>--     inner = text "(Nothing, c0)"</font>-<a name="(line320)"></a><font color=Blue>--     rest  = if keeprest then text "rest" else text "_"</font>-<a name="(line321)"></a><font color=Blue>--     frAux (n,sts) innr =</font>-<a name="(line322)"></a><font color=Blue>--         let vs  = nameSupply sts in</font>-<a name="(line323)"></a><font color=Blue>--         nest 4 (text "case" &lt;+&gt; blah sts vs &lt;+&gt; text "of" $$</font>-<a name="(line324)"></a><font color=Blue>--                 succpat sts vs &lt;+&gt; text "-&gt; (Just" &lt;+&gt;</font>-<a name="(line325)"></a><font color=Blue>--                                    parens (mkCpat n attrs vs) &lt;&gt; text ", rest)"</font>-<a name="(line326)"></a><font color=Blue>--                 $$</font>-<a name="(line327)"></a><font color=Blue>--                 failpat sts &lt;+&gt; text "-&gt;" $$ nest 4 innr</font>-<a name="(line328)"></a><font color=Blue>--                )</font>-<a name="(line329)"></a><font color=Blue>--     blah [st] [_] =</font>-<a name="(line330)"></a><font color=Blue>--         blahblahblah st (text "c0")</font>-<a name="(line331)"></a><font color=Blue>--     blah sts vs =</font>-<a name="(line332)"></a><font color=Blue>--         let ns = nameSupply2 vs</font>-<a name="(line333)"></a><font color=Blue>--             cvs = zip ns (text "c0": init ns)</font>-<a name="(line334)"></a><font color=Blue>--             blahblah (st,v,(cvi,cvo)) innr =</font>-<a name="(line335)"></a><font color=Blue>--                 parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$</font>-<a name="(line336)"></a><font color=Blue>--                         nest 2 innr) $$</font>-<a name="(line337)"></a><font color=Blue>--                 blahblahblah st cvo</font>-<a name="(line338)"></a><font color=Blue>--         in</font>-<a name="(line339)"></a><font color=Blue>--         foldr blahblah (mkRpat (vs++[last ns])) (zip3 sts vs cvs)</font>-<a name="(line340)"></a><font color=Blue>--     blahblahblah st cvo = parens (</font>-<a name="(line341)"></a><font color=Blue>--         case st of</font>-<a name="(line342)"></a><font color=Blue>--           (Maybe String) -&gt; text "fromText" &lt;+&gt; cvo</font>-<a name="(line343)"></a><font color=Blue>--           (Maybe _)      -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line344)"></a><font color=Blue>--           (List String)  -&gt; text "many fromText" &lt;+&gt; cvo</font>-<a name="(line345)"></a><font color=Blue>--           (List _)       -&gt; text "many fromElem" &lt;+&gt; cvo</font>-<a name="(line346)"></a><font color=Blue>--           (List1 _)      -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line347)"></a><font color=Blue>--           (Tuple _)     -&gt; text "fromElem" &lt;+&gt; cvo      -- ??</font>-<a name="(line348)"></a><font color=Blue>--           (OneOf _)     -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line349)"></a><font color=Blue>--           (String)       -&gt; text "fromText" &lt;+&gt; cvo</font>-<a name="(line350)"></a><font color=Blue>--           (Any)          -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line351)"></a><font color=Blue>--           (Defined _)    -&gt; text "fromElem" &lt;+&gt; cvo</font>-<a name="(line352)"></a><font color=Blue>--         )</font>-<a name="(line353)"></a><font color=Blue>--     failpat sts =</font>-<a name="(line354)"></a><font color=Blue>--         let fp st =</font>-<a name="(line355)"></a><font color=Blue>--                 case st of</font>-<a name="(line356)"></a><font color=Blue>--                   (Maybe _)   -&gt; text "Nothing"</font>-<a name="(line357)"></a><font color=Blue>--                   (List _)    -&gt; text "[]"</font>-<a name="(line358)"></a><font color=Blue>--                   (List1 _)   -&gt; text "_"</font>-<a name="(line359)"></a><font color=Blue>--                   (Tuple _)  -&gt; text "_"</font>-<a name="(line360)"></a><font color=Blue>--                   (OneOf _)  -&gt; text "_"</font>-<a name="(line361)"></a><font color=Blue>--                   (String)    -&gt; text "_"</font>-<a name="(line362)"></a><font color=Blue>--                   (Any)       -&gt; text "_"</font>-<a name="(line363)"></a><font color=Blue>--                   (Defined _) -&gt; text "_"</font>-<a name="(line364)"></a><font color=Blue>--         in parens (hcat (intersperse comma (map fp sts++[text "_"])))</font>-<a name="(line365)"></a><font color=Blue>--     succpat sts vs =</font>-<a name="(line366)"></a><font color=Blue>--         let sp st v =</font>-<a name="(line367)"></a><font color=Blue>--                 case st of</font>-<a name="(line368)"></a><font color=Blue>--                   (Maybe _)   -&gt; v</font>-<a name="(line369)"></a><font color=Blue>--                   (List _)    -&gt; v</font>-<a name="(line370)"></a><font color=Blue>--                   (List1 _)   -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line371)"></a><font color=Blue>--                   (Tuple _)  -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line372)"></a><font color=Blue>--                   (OneOf _)  -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line373)"></a><font color=Blue>--                   (String)    -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line374)"></a><font color=Blue>--                   (Any)       -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line375)"></a><font color=Blue>--                   (Defined _) -&gt; text "Just" &lt;+&gt; v</font>-<a name="(line376)"></a><font color=Blue>--         in parens (hcat (intersperse comma (zipWith sp sts vs++[rest])))</font>-<a name="(line377)"></a>-<a name="(line378)"></a><a name="mkToAux"></a>mkToAux <font color=Red>::</font> Bool <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line379)"></a>mkToAux mixattrs <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line380)"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts-<a name="(line381)"></a>        attrs <font color=Red>=</font> <font color=Green><u>if</u></font> mixattrs <font color=Green><u>then</u></font> text <font color=Magenta>"as"</font> <font color=Green><u>else</u></font> empty-<a name="(line382)"></a>    <font color=Green><u>in</u></font>-<a name="(line383)"></a>    text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n attrs vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line384)"></a>    mkToElem sts vs-<a name="(line385)"></a>-<a name="(line386)"></a><a name="mkToMult"></a>mkToMult <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line387)"></a>mkToMult tag attrpat attrexp <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line388)"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts-<a name="(line389)"></a>    <font color=Green><u>in</u></font>-<a name="(line390)"></a>    text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n attrpat vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font>-<a name="(line391)"></a>    <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName tag <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font><font color=Cyan>&lt;+&gt;</font> attrexp-<a name="(line392)"></a>              <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>") ()]"</font><font color=Cyan>)</font>-<a name="(line393)"></a>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/DtdToHaskell/Instance.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>Instance+<a name="line-2"></a>  <font color=Cyan>(</font> mkInstance+<a name="line-3"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-4"></a>+<a name="line-5"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>+<a name="line-6"></a>+<a name="line-7"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef+<a name="line-8"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ+<a name="line-9"></a>+<a name="line-10"></a><a name="mkInstance"></a><font color=Blue>-- | Convert typedef to appropriate instance declaration, either @XmlContent@,</font>+<a name="line-11"></a><font color=Blue>--   @XmlAttributes@, or @XmlAttrType@.</font>+<a name="line-12"></a><font color=Blue>mkInstance</font> <font color=Red>::</font> TypeDef <font color=Red>-&gt;</font> Doc+<a name="line-13"></a>+<a name="line-14"></a><font color=Blue>-- no constructors - represents an element with empty content but attributes.</font>+<a name="line-15"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs []<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-16"></a>    <font color=Green><u>let</u></font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs+<a name="line-17"></a>        frretval <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> ppHName n <font color=Green><u>else</u></font> frattr+<a name="line-18"></a>        topatval <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> ppHName n <font color=Green><u>else</u></font> topat+<a name="line-19"></a>    <font color=Green><u>in</u></font>+<a name="line-20"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-21"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>+<a name="line-22"></a>    <font color=Cyan>$$</font>+<a name="line-23"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-24"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font>+<a name="line-25"></a>             text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> topatval <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>$$</font>+<a name="line-26"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>+<a name="line-27"></a>                          <font color=Cyan>&lt;+&gt;</font> toattr <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"[]) ()]"</font><font color=Cyan>)</font>+<a name="line-28"></a>           <font color=Cyan>$$</font>+<a name="line-29"></a>             text <font color=Magenta>"parseContents = do"</font> <font color=Cyan>$$</font>+<a name="line-30"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ (Elem _ as []) &lt;- element [\""</font>+<a name="line-31"></a>                             <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font> <font color=Cyan>$$</font>+<a name="line-32"></a>                     text <font color=Magenta>"; return"</font> <font color=Cyan>&lt;+&gt;</font> frretval <font color=Cyan>$$</font>+<a name="line-33"></a>                     text <font color=Magenta>"} `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n+<a name="line-34"></a>                                                  <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>+<a name="line-35"></a>                    <font color=Cyan>)</font>+<a name="line-36"></a>           <font color=Cyan>)</font>+<a name="line-37"></a>    <font color=Cyan>$$</font>+<a name="line-38"></a>    mkInstanceAttrs Same n fs+<a name="line-39"></a>+<a name="line-40"></a><font color=Blue>-- single constructor, "real" (non-auxiliary) type</font>+<a name="line-41"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>DataDef False n fs <font color=Red>[</font><font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-42"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts+<a name="line-43"></a>        <font color=Cyan>(</font>frpat<font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs+<a name="line-44"></a>    <font color=Green><u>in</u></font>+<a name="line-45"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-46"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>+<a name="line-47"></a>    <font color=Cyan>$$</font>+<a name="line-48"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-49"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font>+<a name="line-50"></a>             text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n0 topat vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>$$</font>+<a name="line-51"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font>+<a name="line-52"></a>                          <font color=Cyan>&lt;+&gt;</font> toattr <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font>+<a name="line-53"></a>                          <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>") ()]"</font><font color=Cyan>)</font>+<a name="line-54"></a>           <font color=Cyan>$$</font>+<a name="line-55"></a>             text <font color=Magenta>"parseContents = do"</font> <font color=Cyan>$$</font>+<a name="line-56"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ e@(Elem _"</font><font color=Cyan>&lt;+&gt;</font> frpat <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"_) &lt;- element [\""</font>+<a name="line-57"></a>                             <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font>+<a name="line-58"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"; interior e $"</font>+<a name="line-59"></a>                           <font color=Cyan>&lt;+&gt;</font> <font color=Cyan>(</font>mkParseConstr frattr <font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-60"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"} `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n+<a name="line-61"></a>                                                     <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font><font color=Cyan>)</font>+<a name="line-62"></a>           <font color=Cyan>)</font>+<a name="line-63"></a>    <font color=Cyan>$$</font>+<a name="line-64"></a>    mkInstanceAttrs Extended n fs+<a name="line-65"></a>+<a name="line-66"></a><font color=Blue>-- single constructor, auxiliary type (i.e. no corresponding element tag)</font>+<a name="line-67"></a><font color=Blue>--   cannot be attributes here?</font>+<a name="line-68"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>DataDef True n [] <font color=Red>[</font><font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-69"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts+<a name="line-70"></a>    <font color=Green><u>in</u></font>+<a name="line-71"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-72"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>+<a name="line-73"></a>    <font color=Cyan>$$</font>+<a name="line-74"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-75"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n0 empty vs<font color=Cyan>)</font>+<a name="line-76"></a>                               <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font>+<a name="line-77"></a>                               <font color=Cyan>$$</font>  nest <font color=Magenta>4</font> <font color=Cyan>(</font>parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-78"></a>           <font color=Cyan>$$</font>+<a name="line-79"></a>             text <font color=Magenta>"parseContents ="</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr empty <font color=Cyan>(</font>n0<font color=Cyan>,</font>sts<font color=Cyan>)</font>+<a name="line-80"></a>           <font color=Cyan>)</font>+<a name="line-81"></a>+<a name="line-82"></a><font color=Blue>-- multiple constructors (real)</font>+<a name="line-83"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>DataDef False n fs cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-84"></a>    <font color=Green><u>let</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> nameSupply cs+<a name="line-85"></a>        <font color=Cyan>(</font>frpat<font color=Cyan>,</font> frattr<font color=Cyan>,</font> topat<font color=Cyan>,</font> toattr<font color=Cyan>)</font> <font color=Red>=</font> attrpats fs+<a name="line-86"></a>        <font color=Green><u>_</u></font> <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> False <font color=Green><u>else</u></font> True+<a name="line-87"></a>    <font color=Green><u>in</u></font>+<a name="line-88"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-89"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>+<a name="line-90"></a>    <font color=Cyan>$$</font>+<a name="line-91"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-92"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font>mkToMult n topat toattr<font color=Cyan>)</font> cs<font color=Cyan>)</font>+<a name="line-93"></a>           <font color=Cyan>$$</font> text <font color=Magenta>"parseContents = do "</font>+<a name="line-94"></a>           <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"{ e@(Elem _"</font><font color=Cyan>&lt;+&gt;</font> frpat <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"_) &lt;- element [\""</font>+<a name="line-95"></a>                                                  <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\"]"</font>+<a name="line-96"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"; interior e $ oneOf"</font>+<a name="line-97"></a>                     <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr <font color=Cyan>(</font>head cs<font color=Cyan>)</font>+<a name="line-98"></a>                               <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr c<font color=Cyan>)</font>+<a name="line-99"></a>                                            <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-100"></a>                               <font color=Cyan>$$</font> text <font color=Magenta>"] `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n+<a name="line-101"></a>                                                             <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>+<a name="line-102"></a>                               <font color=Cyan>)</font>+<a name="line-103"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"}"</font>+<a name="line-104"></a>                     <font color=Cyan>)</font>+<a name="line-105"></a>           <font color=Cyan>)</font>+<a name="line-106"></a>    <font color=Cyan>$$</font>+<a name="line-107"></a>    mkInstanceAttrs Extended n fs+<a name="line-108"></a>+<a name="line-109"></a><font color=Blue>-- multiple constructors (auxiliary)</font>+<a name="line-110"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>DataDef True n fs cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-111"></a>    <font color=Green><u>let</u></font> <font color=Green><u>_</u></font> <font color=Red>=</font> nameSupply cs+<a name="line-112"></a>        <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font> frattr<font color=Cyan>,</font> <font color=Green><u>_</u></font><font color=Cyan>,</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> attrpats fs+<a name="line-113"></a>        mixattrs <font color=Red>=</font> <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> False <font color=Green><u>else</u></font> True+<a name="line-114"></a>    <font color=Green><u>in</u></font>+<a name="line-115"></a>    text <font color=Magenta>"instance HTypeable"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-116"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"toHType x = Defined \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" [] []"</font> <font color=Cyan>)</font>+<a name="line-117"></a>    <font color=Cyan>$$</font>+<a name="line-118"></a>    text <font color=Magenta>"instance XmlContent"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-119"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font>mkToAux mixattrs<font color=Cyan>)</font> cs<font color=Cyan>)</font>+<a name="line-120"></a>           <font color=Cyan>$$</font> text <font color=Magenta>"parseContents = oneOf"</font>+<a name="line-121"></a>           <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr <font color=Cyan>(</font>head cs<font color=Cyan>)</font>+<a name="line-122"></a>                     <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> mkParseConstr frattr c<font color=Cyan>)</font>+<a name="line-123"></a>                                  <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-124"></a>                     <font color=Cyan>$$</font> text <font color=Magenta>"] `adjustErr` (\"in &lt;"</font> <font color=Cyan>&lt;&gt;</font> ppXName n+<a name="line-125"></a>                                                     <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;, \"++)"</font>+<a name="line-126"></a>                     <font color=Cyan>)</font>+<a name="line-127"></a>           <font color=Cyan>)</font>+<a name="line-128"></a>    <font color=Cyan>$$</font>+<a name="line-129"></a>    mkInstanceAttrs Extended n fs+<a name="line-130"></a>+<a name="line-131"></a><font color=Blue>-- enumeration of attribute values</font>+<a name="line-132"></a><font color=Blue>mkInstance</font> <font color=Cyan>(</font>EnumDef n es<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-133"></a>    text <font color=Magenta>"instance XmlAttrType"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-134"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"fromAttrToTyp n (n',v)"</font> <font color=Cyan>$$</font>+<a name="line-135"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"| n==n'     = translate (attr2str v)"</font> <font color=Cyan>$$</font>+<a name="line-136"></a>                     text <font color=Magenta>"| otherwise = Nothing"</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-137"></a>             nest <font color=Magenta>2</font> <font color=Cyan>(</font>text <font color=Magenta>"where"</font> <font color=Cyan>&lt;+&gt;</font> mkTranslate es<font color=Cyan>)</font>+<a name="line-138"></a>           <font color=Cyan>$$</font>+<a name="line-139"></a>             vcat <font color=Cyan>(</font>map mkToAttr es<font color=Cyan>)</font>+<a name="line-140"></a>           <font color=Cyan>)</font>+<a name="line-141"></a>+<a name="line-142"></a>+<a name="line-143"></a><a name="SameName"></a><font color=Green><u>data</u></font> SameName <font color=Red>=</font> Same <font color=Red>|</font> Extended+<a name="line-144"></a>+<a name="line-145"></a><a name="mkInstanceAttrs"></a><font color=Blue>mkInstanceAttrs</font>        <font color=Red>::</font> SameName <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> AttrFields <font color=Red>-&gt;</font> Doc+<a name="line-146"></a><font color=Blue>mkInstanceAttrs</font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> []  <font color=Red>=</font> empty+<a name="line-147"></a><font color=Blue>mkInstanceAttrs</font> s n fs  <font color=Red>=</font>+<a name="line-148"></a>    <font color=Green><u>let</u></font> ppName <font color=Red>=</font> <font color=Green><u>case</u></font> s <font color=Green><u>of</u></font> <font color=Cyan>{</font> Same<font color=Red>-&gt;</font> ppHName<font color=Cyan>;</font>  Extended<font color=Red>-&gt;</font> ppAName<font color=Cyan>;</font> <font color=Cyan>}</font>+<a name="line-149"></a>    <font color=Green><u>in</u></font>+<a name="line-150"></a>    text <font color=Magenta>"instance XmlAttributes"</font> <font color=Cyan>&lt;+&gt;</font> ppName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"where"</font> <font color=Cyan>$$</font>+<a name="line-151"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"fromAttrs as ="</font> <font color=Cyan>$$</font>+<a name="line-152"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font> ppName n <font color=Cyan>$$</font>+<a name="line-153"></a>                      nest <font color=Magenta>2</font> <font color=Cyan>(</font>vcat <font color=Cyan>(</font><font color=Cyan>(</font>text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> mkFrFld n <font color=Cyan>(</font>head fs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red><b>:</b></font>+<a name="line-154"></a>                                     map <font color=Cyan>(</font><font color=Red>\</font>x<font color=Red>-&gt;</font> comma <font color=Cyan>&lt;+&gt;</font> mkFrFld n x<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-155"></a>                              text <font color=Magenta>"}"</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-156"></a>           <font color=Cyan>$$</font>+<a name="line-157"></a>             text <font color=Magenta>"toAttrs v = catMaybes "</font> <font color=Cyan>$$</font>+<a name="line-158"></a>             nest <font color=Magenta>4</font> <font color=Cyan>(</font>vcat <font color=Cyan>(</font><font color=Cyan>(</font>text <font color=Magenta>"["</font> <font color=Cyan>&lt;+&gt;</font> mkToFld <font color=Cyan>(</font>head fs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Red><b>:</b></font>+<a name="line-159"></a>                           map <font color=Cyan>(</font><font color=Red>\</font>x<font color=Red>-&gt;</font> comma <font color=Cyan>&lt;+&gt;</font> mkToFld x<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-160"></a>                     text <font color=Magenta>"]"</font><font color=Cyan>)</font>+<a name="line-161"></a>           <font color=Cyan>)</font>+<a name="line-162"></a>+<a name="line-163"></a>+<a name="line-164"></a><a name="attrpats"></a><font color=Blue>--                  respectively (frpat,frattr,topat,toattr)</font>+<a name="line-165"></a><font color=Blue>attrpats</font> <font color=Red>::</font> AttrFields <font color=Red>-&gt;</font> <font color=Cyan>(</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>,</font>Doc<font color=Cyan>)</font>+<a name="line-166"></a><font color=Blue>attrpats</font> fs <font color=Red>=</font>+<a name="line-167"></a>  <font color=Green><u>if</u></font> null fs <font color=Green><u>then</u></font> <font color=Cyan>(</font>text <font color=Magenta>"[]"</font><font color=Cyan>,</font> empty<font color=Cyan>,</font> empty<font color=Cyan>,</font> text <font color=Magenta>"[]"</font><font color=Cyan>)</font>+<a name="line-168"></a>  <font color=Green><u>else</u></font> <font color=Cyan>(</font>text <font color=Magenta>"as"</font><font color=Cyan>,</font> parens <font color=Cyan>(</font>text <font color=Magenta>"fromAttrs as"</font><font color=Cyan>)</font><font color=Cyan>,</font> text <font color=Magenta>"as"</font><font color=Cyan>,</font> parens <font color=Cyan>(</font>text <font color=Magenta>"toAttrs as"</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-169"></a>+<a name="line-170"></a>+<a name="line-171"></a>+<a name="line-172"></a>+<a name="line-173"></a><font color=Blue>-- mkFrElem :: Name -&gt; [StructType] -&gt; [Doc] -&gt; Doc -&gt; Doc</font>+<a name="line-174"></a><font color=Blue>-- mkFrElem n sts vs inner =</font>+<a name="line-175"></a><font color=Blue>--     foldr (frElem n) inner (zip3 sts vs cvs)</font>+<a name="line-176"></a><font color=Blue>--   where</font>+<a name="line-177"></a><font color=Blue>--     cvs = let ns = nameSupply2 vs</font>+<a name="line-178"></a><font color=Blue>--           in zip ns (text "c0": init ns)</font>+<a name="line-179"></a><font color=Blue>--     frElem _ (st,v,(cvi,cvo)) inner =</font>+<a name="line-180"></a><font color=Blue>--         parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$</font>+<a name="line-181"></a><font color=Blue>--                 nest 2 inner) $$</font>+<a name="line-182"></a><font color=Blue>--         parens (</font>+<a name="line-183"></a><font color=Blue>--           case st of</font>+<a name="line-184"></a><font color=Blue>--             (Maybe String)  -&gt; text "fromText" &lt;+&gt; cvo</font>+<a name="line-185"></a><font color=Blue>--             (Maybe _)       -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-186"></a><font color=Blue>--             (List String)   -&gt; text "many fromText" &lt;+&gt; cvo</font>+<a name="line-187"></a><font color=Blue>--             (List _)        -&gt; text "many fromElem" &lt;+&gt; cvo</font>+<a name="line-188"></a><font color=Blue>--             (List1 s)       -&gt; text "definite fromElem"</font>+<a name="line-189"></a><font color=Blue>--                                &lt;+&gt; text "\"" &lt;&gt; text (show s)&lt;&gt; text "+\""</font>+<a name="line-190"></a><font color=Blue>--                                &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>+<a name="line-191"></a><font color=Blue>--                                &lt;+&gt; cvo</font>+<a name="line-192"></a><font color=Blue>--             (Tuple ss)  -&gt; text "definite fromElem"</font>+<a name="line-193"></a><font color=Blue>--                            &lt;+&gt; text "\"(" &lt;&gt; hcat (intersperse (text ",")</font>+<a name="line-194"></a><font color=Blue>--                                                            (map (text.show) ss))</font>+<a name="line-195"></a><font color=Blue>--                                           &lt;&gt; text ")\""</font>+<a name="line-196"></a><font color=Blue>--                            &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>+<a name="line-197"></a><font color=Blue>--                            &lt;+&gt; cvo</font>+<a name="line-198"></a><font color=Blue>--             (OneOf _)  -&gt; text "definite fromElem"</font>+<a name="line-199"></a><font color=Blue>--                            &lt;+&gt; text "\"OneOf\""</font>+<a name="line-200"></a><font color=Blue>--                            &lt;+&gt; text "\"" &lt;&gt; ppXName n &lt;&gt; text "\""</font>+<a name="line-201"></a><font color=Blue>--                            &lt;+&gt; cvo</font>+<a name="line-202"></a><font color=Blue>--             (String)    -&gt; text "definite fromText" &lt;+&gt; text "\"text\" \"" &lt;&gt;</font>+<a name="line-203"></a><font color=Blue>--                                                  ppXName n &lt;&gt; text "\"" &lt;+&gt; cvo</font>+<a name="line-204"></a><font color=Blue>--             (Any)       -&gt; text "definite fromElem" &lt;+&gt; text "\"ANY\" \"" &lt;&gt;</font>+<a name="line-205"></a><font color=Blue>--                                                  ppXName n &lt;&gt; text "\"" &lt;+&gt; cvo</font>+<a name="line-206"></a><font color=Blue>--             (Defined m) -&gt; text "definite fromElem" &lt;+&gt;</font>+<a name="line-207"></a><font color=Blue>--                                  text "\"&lt;" &lt;&gt; ppXName m &lt;&gt; text "&gt;\" \"" &lt;&gt;</font>+<a name="line-208"></a><font color=Blue>--                                                  ppXName m &lt;&gt; text "\"" &lt;+&gt; cvo</font>+<a name="line-209"></a><font color=Blue>--             (Defaultable _ _)  -&gt; text "nyi_fromElem_Defaultable" &lt;+&gt; cvo</font>+<a name="line-210"></a><font color=Blue>--           )</font>+<a name="line-211"></a>+<a name="line-212"></a><a name="mkParseConstr"></a><font color=Blue>--</font>+<a name="line-213"></a><font color=Blue>{-+<a name="line-214"></a>mkParseContents :: Name -&gt; [StructType] -&gt; [Doc] -&gt; Doc -&gt; Doc+<a name="line-215"></a>mkParseContents n sts vs inner =+<a name="line-216"></a>    foldr (frElem n) inner (zip3 sts vs cvs)+<a name="line-217"></a>  where+<a name="line-218"></a>    cvs = let ns = nameSupply2 vs+<a name="line-219"></a>          in zip ns (text "c0": init ns)+<a name="line-220"></a>    frElem n (st,v,(cvi,cvo)) inner =+<a name="line-221"></a>        parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$+<a name="line-222"></a>                nest 2 inner) $$+<a name="line-223"></a>        parens (+<a name="line-224"></a>          )+<a name="line-225"></a>-}</font>+<a name="line-226"></a><font color=Blue>mkParseConstr</font> <font color=Red>::</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font> <font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-227"></a><font color=Blue>mkParseConstr</font> frattr <font color=Cyan>(</font>c<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-228"></a>        fsep <font color=Cyan>(</font>text <font color=Magenta>"return"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>ppHName c <font color=Cyan>&lt;+&gt;</font> frattr<font color=Cyan>)</font>+<a name="line-229"></a>             <font color=Red><b>:</b></font> map mkParseContents sts<font color=Cyan>)</font>+<a name="line-230"></a>+<a name="line-231"></a><a name="mkParseContents"></a><font color=Blue>mkParseContents</font> <font color=Red>::</font> StructType <font color=Red>-&gt;</font> Doc+<a name="line-232"></a><font color=Blue>mkParseContents</font> st <font color=Red>=</font>+<a name="line-233"></a>  <font color=Green><u>let</u></font> ap <font color=Red>=</font> text <font color=Magenta>"`apply`"</font> <font color=Green><u>in</u></font>+<a name="line-234"></a>          <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>+<a name="line-235"></a>            <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>  <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"optional text"</font>+<a name="line-236"></a>            <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"optional parseContents"</font>+<a name="line-237"></a>            <font color=Cyan>(</font>List String<font color=Cyan>)</font>   <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"many text"</font>+<a name="line-238"></a>            <font color=Cyan>(</font>List <font color=Green><u>_</u></font><font color=Cyan>)</font>        <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"many parseContents"</font>+<a name="line-239"></a>            <font color=Cyan>(</font>List1 <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>+<a name="line-240"></a>            <font color=Cyan>(</font>Tuple <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>+<a name="line-241"></a>            <font color=Cyan>(</font>OneOf <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>+<a name="line-242"></a>            <font color=Cyan>(</font>String<font color=Cyan>)</font>        <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"(text `onFail` return \"\")"</font>+<a name="line-243"></a>            <font color=Cyan>(</font>Any<font color=Cyan>)</font>           <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>+<a name="line-244"></a>            <font color=Cyan>(</font>Defined <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"parseContents"</font>+<a name="line-245"></a>            <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>-&gt;</font> ap <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"nyi_fromElem_Defaultable"</font>+<a name="line-246"></a>+<a name="line-247"></a><a name="mkToElem"></a><font color=Blue>--</font>+<a name="line-248"></a><font color=Blue>mkToElem</font> <font color=Red>::</font> <font color=Red>[</font>StructType<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc+<a name="line-249"></a><font color=Blue>mkToElem</font> []  [] <font color=Red>=</font> text <font color=Magenta>"[]"</font>+<a name="line-250"></a><font color=Blue>mkToElem</font> sts vs <font color=Red>=</font>+<a name="line-251"></a>    fsep <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"++"</font><font color=Cyan>)</font> <font color=Cyan>(</font>zipWith toElem sts vs<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-252"></a>  <font color=Green><u>where</u></font>+<a name="line-253"></a>    toElem st v <font color=Red>=</font>+<a name="line-254"></a>      <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>+<a name="line-255"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>  <font color=Red>-&gt;</font> text <font color=Magenta>"maybe [] toText"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-256"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> text <font color=Magenta>"maybe [] toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-257"></a>        <font color=Cyan>(</font>List String<font color=Cyan>)</font>   <font color=Red>-&gt;</font> text <font color=Magenta>"concatMap toText"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-258"></a>        <font color=Cyan>(</font>List <font color=Green><u>_</u></font><font color=Cyan>)</font>        <font color=Red>-&gt;</font> text <font color=Magenta>"concatMap toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-259"></a>        <font color=Cyan>(</font>List1 <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-260"></a>        <font color=Cyan>(</font>Tuple <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-261"></a>        <font color=Cyan>(</font>OneOf <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-262"></a>        <font color=Cyan>(</font>String<font color=Cyan>)</font>        <font color=Red>-&gt;</font> text <font color=Magenta>"toText"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-263"></a>        <font color=Cyan>(</font>Any<font color=Cyan>)</font>           <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-264"></a>        <font color=Cyan>(</font>Defined <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>-&gt;</font> text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-265"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>-&gt;</font> text <font color=Magenta>"nyi_toElem_Defaultable"</font> <font color=Cyan>&lt;+&gt;</font> v+<a name="line-266"></a>+<a name="line-267"></a><font color=Blue>-- mkRpat :: [Doc] -&gt; Doc</font>+<a name="line-268"></a><font color=Blue>-- mkRpat [v] = v</font>+<a name="line-269"></a><font color=Blue>-- mkRpat vs  = (parens . hcat . intersperse comma) vs</font>+<a name="line-270"></a>+<a name="line-271"></a><a name="mkCpat"></a><font color=Blue>mkCpat</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc+<a name="line-272"></a><font color=Blue>mkCpat</font> n i vs <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> i <font color=Cyan>&lt;+&gt;</font> fsep vs+<a name="line-273"></a>+<a name="line-274"></a><a name="nameSupply"></a><font color=Blue>nameSupply</font> <font color=Red>::</font> <font color=Red>[</font>b<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Doc<font color=Red>]</font>+<a name="line-275"></a><font color=Blue>nameSupply</font>  ss <font color=Red>=</font> take <font color=Cyan>(</font>length ss<font color=Cyan>)</font> <font color=Cyan>(</font>map char <font color=Red>[</font><font color=Magenta>'a'</font><font color=Red>..</font><font color=Magenta>'z'</font><font color=Red>]</font>+<a name="line-276"></a>                                  <font color=Cyan>++</font> map text <font color=Red>[</font> a<font color=Red><b>:</b></font>n<font color=Red><b>:</b></font>[] <font color=Red>|</font> n <font color=Red>&lt;-</font> <font color=Red>[</font><font color=Magenta>'0'</font><font color=Red>..</font><font color=Magenta>'9'</font><font color=Red>]</font>+<a name="line-277"></a>                                                       <font color=Cyan>,</font> a <font color=Red>&lt;-</font> <font color=Red>[</font><font color=Magenta>'a'</font><font color=Red>..</font><font color=Magenta>'z'</font><font color=Red>]</font> <font color=Red>]</font><font color=Cyan>)</font>+<a name="line-278"></a><font color=Blue>-- nameSupply2 ss = take (length ss) [ text ('c':v:[]) | v &lt;- ['a'..]]</font>+<a name="line-279"></a>+<a name="line-280"></a><a name="mkTranslate"></a><font color=Blue>mkTranslate</font> <font color=Red>::</font> <font color=Red>[</font>Name<font color=Red>]</font> <font color=Red>-&gt;</font> Doc+<a name="line-281"></a><font color=Blue>mkTranslate</font> es <font color=Red>=</font>+<a name="line-282"></a>    vcat <font color=Cyan>(</font>map trans es<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-283"></a>    text <font color=Magenta>"translate _ = Nothing"</font>+<a name="line-284"></a>  <font color=Green><u>where</u></font>+<a name="line-285"></a>    trans n <font color=Red>=</font> text <font color=Magenta>"translate \""</font> <font color=Cyan>&lt;&gt;</font> ppXName n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\" ="</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-286"></a>              text <font color=Magenta>"Just"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n+<a name="line-287"></a>+<a name="line-288"></a><a name="mkToAttr"></a><font color=Blue>mkToAttr</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc+<a name="line-289"></a><font color=Blue>mkToAttr</font> n <font color=Red>=</font> text <font color=Magenta>"toAttrFrTyp n"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-290"></a>             text <font color=Magenta>"Just (n, str2attr"</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>")"</font>+<a name="line-291"></a>+<a name="line-292"></a><a name="mkFrFld"></a><font color=Blue>mkFrFld</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-293"></a><font color=Blue>mkFrFld</font> tag <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-294"></a>    ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-295"></a>    <font color=Cyan>(</font> <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>+<a name="line-296"></a>        <font color=Cyan>(</font>Defaultable String s<font color=Cyan>)</font> <font color=Red>-&gt;</font> text <font color=Magenta>"defaultA fromAttrToStr"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-297"></a>                                                 doubleQuotes <font color=Cyan>(</font>text s<font color=Cyan>)</font>+<a name="line-298"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> s<font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"defaultA fromAttrToTyp"</font> <font color=Cyan>&lt;+&gt;</font> text s+<a name="line-299"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>         <font color=Red>-&gt;</font> text <font color=Magenta>"possibleA fromAttrToStr"</font>+<a name="line-300"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>              <font color=Red>-&gt;</font> text <font color=Magenta>"possibleA fromAttrToTyp"</font>+<a name="line-301"></a>        String                 <font color=Red>-&gt;</font> text <font color=Magenta>"definiteA fromAttrToStr"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-302"></a>                                                 doubleQuotes <font color=Cyan>(</font>ppXName tag<font color=Cyan>)</font>+<a name="line-303"></a>        <font color=Green><u>_</u></font>                      <font color=Red>-&gt;</font> text <font color=Magenta>"definiteA fromAttrToTyp"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-304"></a>                                                 doubleQuotes <font color=Cyan>(</font>ppXName tag<font color=Cyan>)</font>+<a name="line-305"></a>    <font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"as"</font>+<a name="line-306"></a>+<a name="line-307"></a><a name="mkToFld"></a><font color=Blue>mkToFld</font> <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-308"></a><font color=Blue>mkToFld</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-309"></a>    <font color=Cyan>(</font> <font color=Green><u>case</u></font> st <font color=Green><u>of</u></font>+<a name="line-310"></a>        <font color=Cyan>(</font>Defaultable String <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>-&gt;</font> text <font color=Magenta>"defaultToAttr toAttrFrStr"</font>+<a name="line-311"></a>        <font color=Cyan>(</font>Defaultable <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>-&gt;</font> text <font color=Magenta>"defaultToAttr toAttrFrTyp"</font>+<a name="line-312"></a>        <font color=Cyan>(</font>Maybe String<font color=Cyan>)</font>         <font color=Red>-&gt;</font> text <font color=Magenta>"maybeToAttr toAttrFrStr"</font>+<a name="line-313"></a>        <font color=Cyan>(</font>Maybe <font color=Green><u>_</u></font><font color=Cyan>)</font>              <font color=Red>-&gt;</font> text <font color=Magenta>"maybeToAttr toAttrFrTyp"</font>+<a name="line-314"></a>        String                 <font color=Red>-&gt;</font> text <font color=Magenta>"toAttrFrStr"</font>+<a name="line-315"></a>        <font color=Green><u>_</u></font>                      <font color=Red>-&gt;</font> text <font color=Magenta>"toAttrFrTyp"</font>+<a name="line-316"></a>    <font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> doubleQuotes <font color=Cyan>(</font>ppXName n<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"v"</font><font color=Cyan>)</font>+<a name="line-317"></a>+<a name="line-318"></a><font color=Blue>-- mkFrAux :: Bool -&gt; Doc -&gt; [(Name,[StructType])] -&gt; Doc</font>+<a name="line-319"></a><font color=Blue>-- mkFrAux keeprest attrs cs = foldr frAux inner cs</font>+<a name="line-320"></a><font color=Blue>--   where</font>+<a name="line-321"></a><font color=Blue>--     inner = text "(Nothing, c0)"</font>+<a name="line-322"></a><font color=Blue>--     rest  = if keeprest then text "rest" else text "_"</font>+<a name="line-323"></a><font color=Blue>--     frAux (n,sts) innr =</font>+<a name="line-324"></a><font color=Blue>--         let vs  = nameSupply sts in</font>+<a name="line-325"></a><font color=Blue>--         nest 4 (text "case" &lt;+&gt; blah sts vs &lt;+&gt; text "of" $$</font>+<a name="line-326"></a><font color=Blue>--                 succpat sts vs &lt;+&gt; text "-&gt; (Just" &lt;+&gt;</font>+<a name="line-327"></a><font color=Blue>--                                    parens (mkCpat n attrs vs) &lt;&gt; text ", rest)"</font>+<a name="line-328"></a><font color=Blue>--                 $$</font>+<a name="line-329"></a><font color=Blue>--                 failpat sts &lt;+&gt; text "-&gt;" $$ nest 4 innr</font>+<a name="line-330"></a><font color=Blue>--                )</font>+<a name="line-331"></a><font color=Blue>--     blah [st] [_] =</font>+<a name="line-332"></a><font color=Blue>--         blahblahblah st (text "c0")</font>+<a name="line-333"></a><font color=Blue>--     blah sts vs =</font>+<a name="line-334"></a><font color=Blue>--         let ns = nameSupply2 vs</font>+<a name="line-335"></a><font color=Blue>--             cvs = zip ns (text "c0": init ns)</font>+<a name="line-336"></a><font color=Blue>--             blahblah (st,v,(cvi,cvo)) innr =</font>+<a name="line-337"></a><font color=Blue>--                 parens (text "\\" &lt;&gt; parens (v&lt;&gt;comma&lt;&gt;cvi) &lt;&gt; text "-&gt;" $$</font>+<a name="line-338"></a><font color=Blue>--                         nest 2 innr) $$</font>+<a name="line-339"></a><font color=Blue>--                 blahblahblah st cvo</font>+<a name="line-340"></a><font color=Blue>--         in</font>+<a name="line-341"></a><font color=Blue>--         foldr blahblah (mkRpat (vs++[last ns])) (zip3 sts vs cvs)</font>+<a name="line-342"></a><font color=Blue>--     blahblahblah st cvo = parens (</font>+<a name="line-343"></a><font color=Blue>--         case st of</font>+<a name="line-344"></a><font color=Blue>--           (Maybe String) -&gt; text "fromText" &lt;+&gt; cvo</font>+<a name="line-345"></a><font color=Blue>--           (Maybe _)      -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-346"></a><font color=Blue>--           (List String)  -&gt; text "many fromText" &lt;+&gt; cvo</font>+<a name="line-347"></a><font color=Blue>--           (List _)       -&gt; text "many fromElem" &lt;+&gt; cvo</font>+<a name="line-348"></a><font color=Blue>--           (List1 _)      -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-349"></a><font color=Blue>--           (Tuple _)     -&gt; text "fromElem" &lt;+&gt; cvo      -- ??</font>+<a name="line-350"></a><font color=Blue>--           (OneOf _)     -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-351"></a><font color=Blue>--           (String)       -&gt; text "fromText" &lt;+&gt; cvo</font>+<a name="line-352"></a><font color=Blue>--           (Any)          -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-353"></a><font color=Blue>--           (Defined _)    -&gt; text "fromElem" &lt;+&gt; cvo</font>+<a name="line-354"></a><font color=Blue>--         )</font>+<a name="line-355"></a><font color=Blue>--     failpat sts =</font>+<a name="line-356"></a><font color=Blue>--         let fp st =</font>+<a name="line-357"></a><font color=Blue>--                 case st of</font>+<a name="line-358"></a><font color=Blue>--                   (Maybe _)   -&gt; text "Nothing"</font>+<a name="line-359"></a><font color=Blue>--                   (List _)    -&gt; text "[]"</font>+<a name="line-360"></a><font color=Blue>--                   (List1 _)   -&gt; text "_"</font>+<a name="line-361"></a><font color=Blue>--                   (Tuple _)  -&gt; text "_"</font>+<a name="line-362"></a><font color=Blue>--                   (OneOf _)  -&gt; text "_"</font>+<a name="line-363"></a><font color=Blue>--                   (String)    -&gt; text "_"</font>+<a name="line-364"></a><font color=Blue>--                   (Any)       -&gt; text "_"</font>+<a name="line-365"></a><font color=Blue>--                   (Defined _) -&gt; text "_"</font>+<a name="line-366"></a><font color=Blue>--         in parens (hcat (intersperse comma (map fp sts++[text "_"])))</font>+<a name="line-367"></a><font color=Blue>--     succpat sts vs =</font>+<a name="line-368"></a><font color=Blue>--         let sp st v =</font>+<a name="line-369"></a><font color=Blue>--                 case st of</font>+<a name="line-370"></a><font color=Blue>--                   (Maybe _)   -&gt; v</font>+<a name="line-371"></a><font color=Blue>--                   (List _)    -&gt; v</font>+<a name="line-372"></a><font color=Blue>--                   (List1 _)   -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-373"></a><font color=Blue>--                   (Tuple _)  -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-374"></a><font color=Blue>--                   (OneOf _)  -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-375"></a><font color=Blue>--                   (String)    -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-376"></a><font color=Blue>--                   (Any)       -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-377"></a><font color=Blue>--                   (Defined _) -&gt; text "Just" &lt;+&gt; v</font>+<a name="line-378"></a><font color=Blue>--         in parens (hcat (intersperse comma (zipWith sp sts vs++[rest])))</font>+<a name="line-379"></a>+<a name="line-380"></a><a name="mkToAux"></a><font color=Blue>mkToAux</font> <font color=Red>::</font> Bool <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-381"></a><font color=Blue>mkToAux</font> mixattrs <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-382"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts+<a name="line-383"></a>        attrs <font color=Red>=</font> <font color=Green><u>if</u></font> mixattrs <font color=Green><u>then</u></font> text <font color=Magenta>"as"</font> <font color=Green><u>else</u></font> empty+<a name="line-384"></a>    <font color=Green><u>in</u></font>+<a name="line-385"></a>    text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n attrs vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-386"></a>    mkToElem sts vs+<a name="line-387"></a>+<a name="line-388"></a><a name="mkToMult"></a><font color=Blue>mkToMult</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-389"></a><font color=Blue>mkToMult</font> tag attrpat attrexp <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-390"></a>    <font color=Green><u>let</u></font> vs <font color=Red>=</font> nameSupply sts+<a name="line-391"></a>    <font color=Green><u>in</u></font>+<a name="line-392"></a>    text <font color=Magenta>"toContents"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkCpat n attrpat vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font>+<a name="line-393"></a>    <font color=Cyan>$$</font> nest <font color=Magenta>4</font> <font color=Cyan>(</font>text <font color=Magenta>"[CElem (Elem \""</font> <font color=Cyan>&lt;&gt;</font> ppXName tag <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"\""</font><font color=Cyan>&lt;+&gt;</font> attrexp+<a name="line-394"></a>              <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>mkToElem sts vs<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>") ()]"</font><font color=Cyan>)</font>+<a name="line-395"></a> </pre>+</body> </html>

@@ -1,252 +1,258 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | Defines an internal representation of Haskell data\/newtype definitions</font>-<a name="(line2)"></a><font color=Blue>--   that correspond to the XML DTD types, and provides pretty-printers to</font>-<a name="(line3)"></a><font color=Blue>--   convert these types into the 'Doc' type of "Text.PrettyPrint.HughesPJ".</font>-<a name="(line4)"></a>-<a name="(line5)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef-<a name="(line6)"></a>  <font color=Cyan>(</font> <font color=Blue>-- * Internal representation of types</font>-<a name="(line7)"></a>    TypeDef<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>-<a name="(line8)"></a>  <font color=Cyan>,</font> Constructors-<a name="(line9)"></a>  <font color=Cyan>,</font> AttrFields-<a name="(line10)"></a>  <font color=Cyan>,</font> StructType<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>-<a name="(line11)"></a>  <font color=Blue>-- * Pretty-print a TypeDef</font>-<a name="(line12)"></a>  <font color=Cyan>,</font> ppTypeDef-<a name="(line13)"></a>  <font color=Cyan>,</font> ppHName-<a name="(line14)"></a>  <font color=Cyan>,</font> ppXName-<a name="(line15)"></a>  <font color=Cyan>,</font> ppAName-<a name="(line16)"></a>  <font color=Blue>-- * Name mangling</font>-<a name="(line17)"></a>  <font color=Cyan>,</font> Name<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>-<a name="(line18)"></a>  <font color=Cyan>,</font> name<font color=Cyan>,</font> name_<font color=Cyan>,</font> name_a<font color=Cyan>,</font> name_ac<font color=Cyan>,</font> name_f<font color=Cyan>,</font> mangle<font color=Cyan>,</font> manglef-<a name="(line19)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line20)"></a>-<a name="(line21)"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isLower<font color=Cyan>,</font> isUpper<font color=Cyan>,</font> toLower<font color=Cyan>,</font> toUpper<font color=Cyan>,</font> isDigit<font color=Cyan>)</font>-<a name="(line22)"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>-<a name="(line23)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ-<a name="(line24)"></a>-<a name="(line25)"></a>-<a name="(line26)"></a><font color=Blue>---- Internal representation for typedefs ----</font>-<a name="(line27)"></a>-<a name="(line28)"></a><a name="Name"></a><font color=Blue>-- | Need to keep both the XML and Haskell versions of a name.</font>-<a name="(line29)"></a><a name="Name"></a><font color=Green><u>data</u></font> Name <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>::</font> String       <font color=Blue>-- ^ original XML name</font>-<a name="(line30)"></a>                 <font color=Cyan>,</font> hName <font color=Red>::</font> String       <font color=Blue>-- ^ mangled Haskell name</font>-<a name="(line31)"></a>                 <font color=Cyan>}</font>-<a name="(line32)"></a>          <font color=Green><u>deriving</u></font> Eq-<a name="(line33)"></a>-<a name="(line34)"></a><a name="TypeDef"></a><font color=Green><u>data</u></font> TypeDef <font color=Red>=</font>-<a name="(line35)"></a>      DataDef Bool Name AttrFields Constructors <font color=Blue>-- ^ Bool for main\/aux.</font>-<a name="(line36)"></a>    <font color=Red>|</font> EnumDef Name <font color=Red>[</font>Name<font color=Red>]</font>-<a name="(line37)"></a>    <font color=Green><u>deriving</u></font> Eq-<a name="(line38)"></a><a name="Constructors"></a><font color=Green><u>type</u></font> Constructors <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line39)"></a><a name="AttrFields"></a><font color=Green><u>type</u></font> AttrFields   <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font> StructType<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line40)"></a><a name="StructType"></a><font color=Green><u>data</u></font> StructType <font color=Red>=</font>-<a name="(line41)"></a>      Maybe StructType-<a name="(line42)"></a>    <font color=Red>|</font> Defaultable StructType String     <font color=Blue>-- ^ String holds default value.</font>-<a name="(line43)"></a>    <font color=Red>|</font> List StructType-<a name="(line44)"></a>    <font color=Red>|</font> List1 StructType                  <font color=Blue>-- ^ Non-empty lists.</font>-<a name="(line45)"></a>    <font color=Red>|</font> Tuple <font color=Red>[</font>StructType<font color=Red>]</font>-<a name="(line46)"></a>    <font color=Red>|</font> OneOf <font color=Red>[</font>StructType<font color=Red>]</font>-<a name="(line47)"></a>    <font color=Red>|</font> Any                               <font color=Blue>-- ^ XML's contentspec allows ANY</font>-<a name="(line48)"></a>    <font color=Red>|</font> String-<a name="(line49)"></a>    <font color=Red>|</font> Defined Name-<a name="(line50)"></a>    <font color=Green><u>deriving</u></font> Eq-<a name="(line51)"></a>-<a name="(line52)"></a><font color=Blue>-- used for converting StructType (roughly) back to an XML content model</font>-<a name="(line53)"></a><font color=Green><u>instance</u></font> Show StructType <font color=Green><u>where</u></font>-<a name="(line54)"></a>    showsPrec p <font color=Cyan>(</font>Maybe s<font color=Cyan>)</font>         <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'?'</font>-<a name="(line55)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Defaultable s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> shows s-<a name="(line56)"></a>    showsPrec p <font color=Cyan>(</font>List s<font color=Cyan>)</font>          <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'*'</font>-<a name="(line57)"></a>    showsPrec p <font color=Cyan>(</font>List1 s<font color=Cyan>)</font>         <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'+'</font>-<a name="(line58)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Tuple ss<font color=Cyan>)</font>        <font color=Red>=</font> showChar <font color=Magenta>'('</font>-<a name="(line59)"></a>                                    <font color=Cyan>.</font> foldr1 <font color=Cyan>(</font><font color=Cyan>.</font><font color=Cyan>)</font> <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>showChar <font color=Magenta>','</font><font color=Cyan>)</font>-<a name="(line60)"></a>                                                              <font color=Cyan>(</font>map shows ss<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line61)"></a>                                    <font color=Cyan>.</font> showChar <font color=Magenta>')'</font>-<a name="(line62)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>OneOf ss<font color=Cyan>)</font>        <font color=Red>=</font> showChar <font color=Magenta>'('</font>-<a name="(line63)"></a>                                    <font color=Cyan>.</font> foldr1 <font color=Cyan>(</font><font color=Cyan>.</font><font color=Cyan>)</font> <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>showChar <font color=Magenta>'|'</font><font color=Cyan>)</font>-<a name="(line64)"></a>                                                              <font color=Cyan>(</font>map shows ss<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line65)"></a>                                    <font color=Cyan>.</font> showChar <font color=Magenta>')'</font>-<a name="(line66)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Any<font color=Cyan>)</font>             <font color=Red>=</font> showString <font color=Magenta>"ANY"</font>-<a name="(line67)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>String<font color=Cyan>)</font>          <font color=Red>=</font> showString <font color=Magenta>"#PCDATA"</font>-<a name="(line68)"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Defined <font color=Cyan>(</font>Name n <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> showString n-<a name="(line69)"></a>-<a name="(line70)"></a>-<a name="(line71)"></a><a name="ppTypeDef"></a><font color=Blue>---- Pretty-printing typedefs ----</font>-<a name="(line72)"></a>ppTypeDef <font color=Red>::</font> TypeDef <font color=Red>-&gt;</font> Doc-<a name="(line73)"></a>-<a name="(line74)"></a><font color=Blue>--      no attrs, no constructors</font>-<a name="(line75)"></a>ppTypeDef <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] []<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line76)"></a>    <font color=Green><u>let</u></font> nme <font color=Red>=</font> ppHName n <font color=Green><u>in</u></font>-<a name="(line77)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"\t\t"</font> <font color=Cyan>&lt;&gt;</font> derives-<a name="(line78)"></a>-<a name="(line79)"></a><font color=Blue>--      no attrs, single constructor</font>-<a name="(line80)"></a>ppTypeDef <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] <font color=Red>[</font>c<font color=Red>@</font><font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Red>[</font><font color=Green><u>_</u></font><font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line81)"></a>    text <font color=Magenta>"newtype"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppC c <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"\t\t"</font> <font color=Cyan>&lt;&gt;</font> derives-<a name="(line82)"></a>-<a name="(line83)"></a><font color=Blue>--      no attrs, multiple constrs</font>-<a name="(line84)"></a>ppTypeDef <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line85)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>-<a name="(line86)"></a>           <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppC <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line87)"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>"|"</font> <font color=Cyan>&lt;+&gt;</font> ppC c<font color=Cyan>)</font> <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line88)"></a>             derives <font color=Cyan>)</font>-<a name="(line89)"></a>-<a name="(line90)"></a><font color=Blue>--      nonzero attrs, no constructors</font>-<a name="(line91)"></a>ppTypeDef <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs []<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line92)"></a>    <font color=Green><u>let</u></font> nme <font color=Red>=</font> ppHName n <font color=Green><u>in</u></font>-<a name="(line93)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>$$</font>-<a name="(line94)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> ppF <font color=Cyan>(</font>head fs<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line95)"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>f<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> ppF f<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line96)"></a>             text <font color=Magenta>"}"</font> <font color=Cyan>&lt;+&gt;</font> derives <font color=Cyan>)</font>-<a name="(line97)"></a>-<a name="(line98)"></a><font color=Blue>--      nonzero attrs, one or more constrs</font>-<a name="(line99)"></a>ppTypeDef <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line100)"></a>    <font color=Green><u>let</u></font> attr <font color=Red>=</font> ppAName n <font color=Green><u>in</u></font>-<a name="(line101)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>-<a name="(line102)"></a>           <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppAC attr <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line103)"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>"|"</font> <font color=Cyan>&lt;+&gt;</font> ppAC attr c<font color=Cyan>)</font> <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line104)"></a>             derives <font color=Cyan>)</font>  <font color=Cyan>$$</font>-<a name="(line105)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> attr <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> attr <font color=Cyan>$$</font>-<a name="(line106)"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> ppF <font color=Cyan>(</font>head fs<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line107)"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>f<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> ppF f<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line108)"></a>             text <font color=Magenta>"}"</font> <font color=Cyan>&lt;+&gt;</font> derives <font color=Cyan>)</font>-<a name="(line109)"></a>-<a name="(line110)"></a><font color=Blue>--      enumerations (of attribute values)</font>-<a name="(line111)"></a>ppTypeDef <font color=Cyan>(</font>EnumDef n es<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line112)"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>-<a name="(line113)"></a>    <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line114)"></a>      fsep <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>" | "</font><font color=Cyan>)</font> <font color=Cyan>(</font>map ppHName es<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line115)"></a>    <font color=Cyan>$$</font> derives <font color=Cyan>)</font>-<a name="(line116)"></a>-<a name="(line117)"></a>-<a name="(line118)"></a><a name="ppST"></a>ppST <font color=Red>::</font> StructType <font color=Red>-&gt;</font> Doc-<a name="(line119)"></a>ppST <font color=Cyan>(</font>Defaultable st <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"Defaultable"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>-<a name="(line120)"></a>ppST <font color=Cyan>(</font>Maybe st<font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"Maybe"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>-<a name="(line121)"></a>ppST <font color=Cyan>(</font>List st<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;&gt;</font> ppST st <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]"</font>-<a name="(line122)"></a>ppST <font color=Cyan>(</font>List1 st<font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"List1"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>-<a name="(line123)"></a>ppST <font color=Cyan>(</font>Tuple sts<font color=Cyan>)</font> <font color=Red>=</font> parens <font color=Cyan>(</font>commaList <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line124)"></a>ppST <font color=Cyan>(</font>OneOf sts<font color=Cyan>)</font> <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"OneOf"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show <font color=Cyan>(</font>length sts<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line125)"></a>                           hsep <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line126)"></a>ppST  String     <font color=Red>=</font> text <font color=Magenta>"String"</font>-<a name="(line127)"></a>ppST  Any        <font color=Red>=</font> text <font color=Magenta>"ANYContent"</font>-<a name="(line128)"></a>ppST <font color=Cyan>(</font>Defined n<font color=Cyan>)</font> <font color=Red>=</font> ppHName n-<a name="(line129)"></a>-<a name="(line130)"></a><a name="ppC"></a><font color=Blue>-- constructor and components</font>-<a name="(line131)"></a>ppC <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line132)"></a>ppC <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font>-<a name="(line133)"></a>-<a name="(line134)"></a><a name="ppF"></a><font color=Blue>-- attribute (fieldname and type)</font>-<a name="(line135)"></a>ppF <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line136)"></a>ppF <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"::"</font> <font color=Cyan>&lt;+&gt;</font> ppST st-<a name="(line137)"></a>-<a name="(line138)"></a><a name="ppAC"></a><font color=Blue>-- constructor and components with initial attr-type</font>-<a name="(line139)"></a>ppAC <font color=Red>::</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc-<a name="(line140)"></a>ppAC atype <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>atype<font color=Red><b>:</b></font> map ppST sts<font color=Cyan>)</font>-<a name="(line141)"></a>-<a name="(line142)"></a><a name="ppHName"></a><font color=Blue>-- | Pretty print Haskell name.</font>-<a name="(line143)"></a>ppHName <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc-<a name="(line144)"></a>ppHName <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> s<font color=Cyan>)</font> <font color=Red>=</font> text s-<a name="(line145)"></a><a name="ppXName"></a><font color=Blue>-- | Pretty print XML name.</font>-<a name="(line146)"></a>ppXName <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc-<a name="(line147)"></a>ppXName <font color=Cyan>(</font>Name s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> text s-<a name="(line148)"></a><a name="ppAName"></a><font color=Blue>-- | Pretty print Haskell attributes name.</font>-<a name="(line149)"></a>ppAName <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc-<a name="(line150)"></a>ppAName <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> s<font color=Cyan>)</font> <font color=Red>=</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"_Attrs"</font>-<a name="(line151)"></a>-<a name="(line152)"></a><a name="derives"></a>derives <font color=Red>::</font> Doc-<a name="(line153)"></a>derives <font color=Red>=</font> text <font color=Magenta>"deriving"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>commaList <font color=Cyan>(</font>map text <font color=Red>[</font><font color=Magenta>"Eq"</font><font color=Cyan>,</font><font color=Magenta>"Show"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line154)"></a>-<a name="(line155)"></a>-<a name="(line156)"></a><font color=Blue>---- Some operations on Names ----</font>-<a name="(line157)"></a>-<a name="(line158)"></a><a name="name"></a><font color=Blue>-- | Make a type name valid in both XML and Haskell.</font>-<a name="(line159)"></a>name <font color=Red>::</font> String <font color=Red>-&gt;</font> Name-<a name="(line160)"></a>name n     <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n-<a name="(line161)"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle n <font color=Cyan>}</font>-<a name="(line162)"></a>-<a name="(line163)"></a><a name="name_"></a><font color=Blue>-- | Append an underscore to the Haskell version of the name.</font>-<a name="(line164)"></a>name_ <font color=Red>::</font> String <font color=Red>-&gt;</font> Name-<a name="(line165)"></a>name_ n    <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n-<a name="(line166)"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle n <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>}</font>-<a name="(line167)"></a>-<a name="(line168)"></a><a name="name_a"></a><font color=Blue>-- | Prefix an attribute enumeration type name with its containing element</font>-<a name="(line169)"></a><font color=Blue>--   name.</font>-<a name="(line170)"></a>name_a <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name-<a name="(line171)"></a>name_a e n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n-<a name="(line172)"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle e <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify n <font color=Cyan>}</font>-<a name="(line173)"></a>-<a name="(line174)"></a><a name="name_ac"></a><font color=Blue>-- | Prefix an attribute enumeration constructor with its element-tag name,</font>-<a name="(line175)"></a><font color=Blue>--   and its enumeration type name.</font>-<a name="(line176)"></a>name_ac <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name-<a name="(line177)"></a>name_ac e t n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n-<a name="(line178)"></a>                     <font color=Cyan>,</font> hName <font color=Red>=</font> mangle e <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify t-<a name="(line179)"></a>                                        <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify n <font color=Cyan>}</font>-<a name="(line180)"></a>-<a name="(line181)"></a><a name="name_f"></a><font color=Blue>-- | Prefix a field name with its enclosing element name.</font>-<a name="(line182)"></a>name_f <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name-<a name="(line183)"></a>name_f e n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n-<a name="(line184)"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> manglef e <font color=Cyan>++</font> mangle n <font color=Cyan>}</font>-<a name="(line185)"></a>-<a name="(line186)"></a><font color=Blue>---- obsolete</font>-<a name="(line187)"></a><font color=Blue>-- elementname_at :: String -&gt; Name</font>-<a name="(line188)"></a><font color=Blue>-- elementname_at n  = Name n (mangle n ++ "_Attrs")</font>-<a name="(line189)"></a>-<a name="(line190)"></a><a name="mangle"></a><font color=Blue>-- | Convert an XML name to a Haskell conid.</font>-<a name="(line191)"></a>mangle <font color=Red>::</font> String <font color=Red>-&gt;</font> String-<a name="(line192)"></a>mangle <font color=Cyan>(</font>n<font color=Red><b>:</b></font>ns<font color=Cyan>)</font>-<a name="(line193)"></a>    <font color=Red>|</font> isLower n   <font color=Red>=</font> notPrelude <font color=Cyan>(</font>toUpper n<font color=Red><b>:</b></font> map decolonify ns<font color=Cyan>)</font>-<a name="(line194)"></a>    <font color=Red>|</font> isDigit n   <font color=Red>=</font> <font color=Magenta>'I'</font><font color=Red><b>:</b></font> n<font color=Red><b>:</b></font> map decolonify ns-<a name="(line195)"></a>    <font color=Red>|</font> otherwise   <font color=Red>=</font> notPrelude <font color=Cyan>(</font>n<font color=Red><b>:</b></font> map decolonify ns<font color=Cyan>)</font>-<a name="(line196)"></a>-<a name="(line197)"></a><a name="notPrelude"></a><font color=Blue>-- | Ensure a generated name does not conflict with a standard haskell one.</font>-<a name="(line198)"></a>notPrelude <font color=Red>::</font> String <font color=Red>-&gt;</font> String-<a name="(line199)"></a>notPrelude <font color=Magenta>"Bool"</font>    <font color=Red>=</font> <font color=Magenta>"ABool"</font>-<a name="(line200)"></a>notPrelude <font color=Magenta>"Bounded"</font> <font color=Red>=</font> <font color=Magenta>"ABounded"</font>-<a name="(line201)"></a>notPrelude <font color=Magenta>"Char"</font>    <font color=Red>=</font> <font color=Magenta>"AChar"</font>-<a name="(line202)"></a>notPrelude <font color=Magenta>"Double"</font>  <font color=Red>=</font> <font color=Magenta>"ADouble"</font>-<a name="(line203)"></a>notPrelude <font color=Magenta>"Either"</font>  <font color=Red>=</font> <font color=Magenta>"AEither"</font>-<a name="(line204)"></a>notPrelude <font color=Magenta>"Enum"</font>    <font color=Red>=</font> <font color=Magenta>"AEnum"</font>-<a name="(line205)"></a>notPrelude <font color=Magenta>"Eq"</font>      <font color=Red>=</font> <font color=Magenta>"AEq"</font>-<a name="(line206)"></a>notPrelude <font color=Magenta>"FilePath"</font><font color=Red>=</font> <font color=Magenta>"AFilePath"</font>-<a name="(line207)"></a>notPrelude <font color=Magenta>"Float"</font>   <font color=Red>=</font> <font color=Magenta>"AFloat"</font>-<a name="(line208)"></a>notPrelude <font color=Magenta>"Floating"</font><font color=Red>=</font> <font color=Magenta>"AFloating"</font>-<a name="(line209)"></a>notPrelude <font color=Magenta>"Fractional"</font><font color=Red>=</font> <font color=Magenta>"AFractional"</font>-<a name="(line210)"></a>notPrelude <font color=Magenta>"Functor"</font> <font color=Red>=</font> <font color=Magenta>"AFunctor"</font>-<a name="(line211)"></a>notPrelude <font color=Magenta>"IO"</font>      <font color=Red>=</font> <font color=Magenta>"AIO"</font>-<a name="(line212)"></a>notPrelude <font color=Magenta>"IOError"</font> <font color=Red>=</font> <font color=Magenta>"AIOError"</font>-<a name="(line213)"></a>notPrelude <font color=Magenta>"Int"</font>     <font color=Red>=</font> <font color=Magenta>"AInt"</font>-<a name="(line214)"></a>notPrelude <font color=Magenta>"Integer"</font> <font color=Red>=</font> <font color=Magenta>"AInteger"</font>-<a name="(line215)"></a>notPrelude <font color=Magenta>"Integral"</font><font color=Red>=</font> <font color=Magenta>"AIntegral"</font>-<a name="(line216)"></a>notPrelude <font color=Magenta>"List1"</font>   <font color=Red>=</font> <font color=Magenta>"AList1"</font> <font color=Blue>-- part of HaXml</font>-<a name="(line217)"></a>notPrelude <font color=Magenta>"Maybe"</font>   <font color=Red>=</font> <font color=Magenta>"AMaybe"</font>-<a name="(line218)"></a>notPrelude <font color=Magenta>"Monad"</font>   <font color=Red>=</font> <font color=Magenta>"AMonad"</font>-<a name="(line219)"></a>notPrelude <font color=Magenta>"Num"</font>     <font color=Red>=</font> <font color=Magenta>"ANum"</font>-<a name="(line220)"></a>notPrelude <font color=Magenta>"Ord"</font>     <font color=Red>=</font> <font color=Magenta>"AOrd"</font>-<a name="(line221)"></a>notPrelude <font color=Magenta>"Ordering"</font><font color=Red>=</font> <font color=Magenta>"AOrdering"</font>-<a name="(line222)"></a>notPrelude <font color=Magenta>"Rational"</font><font color=Red>=</font> <font color=Magenta>"ARational"</font>-<a name="(line223)"></a>notPrelude <font color=Magenta>"Read"</font>    <font color=Red>=</font> <font color=Magenta>"ARead"</font>-<a name="(line224)"></a>notPrelude <font color=Magenta>"ReadS"</font>   <font color=Red>=</font> <font color=Magenta>"AReadS"</font>-<a name="(line225)"></a>notPrelude <font color=Magenta>"Real"</font>    <font color=Red>=</font> <font color=Magenta>"AReal"</font>-<a name="(line226)"></a>notPrelude <font color=Magenta>"RealFloat"</font> <font color=Red>=</font> <font color=Magenta>"ARealFloat"</font>-<a name="(line227)"></a>notPrelude <font color=Magenta>"RealFrac"</font><font color=Red>=</font> <font color=Magenta>"ARealFrac"</font>-<a name="(line228)"></a>notPrelude <font color=Magenta>"Show"</font>    <font color=Red>=</font> <font color=Magenta>"AShow"</font>-<a name="(line229)"></a>notPrelude <font color=Magenta>"ShowS"</font>   <font color=Red>=</font> <font color=Magenta>"AShowS"</font>-<a name="(line230)"></a>notPrelude <font color=Magenta>"String"</font>  <font color=Red>=</font> <font color=Magenta>"AString"</font>-<a name="(line231)"></a>notPrelude n         <font color=Red>=</font> n-<a name="(line232)"></a>-<a name="(line233)"></a><a name="manglef"></a><font color=Blue>-- | Convert an XML name to a Haskell varid.</font>-<a name="(line234)"></a>manglef <font color=Red>::</font> String <font color=Red>-&gt;</font> String-<a name="(line235)"></a>manglef <font color=Cyan>(</font>n<font color=Red><b>:</b></font>ns<font color=Cyan>)</font>-<a name="(line236)"></a>    <font color=Red>|</font> isUpper n   <font color=Red>=</font> toLower n<font color=Red><b>:</b></font> map decolonify ns-<a name="(line237)"></a>    <font color=Red>|</font> isDigit n   <font color=Red>=</font> <font color=Magenta>'_'</font><font color=Red><b>:</b></font> n<font color=Red><b>:</b></font> map decolonify ns-<a name="(line238)"></a>    <font color=Red>|</font> otherwise   <font color=Red>=</font> n<font color=Red><b>:</b></font> map decolonify ns-<a name="(line239)"></a>-<a name="(line240)"></a><a name="decolonify"></a><font color=Blue>-- | Convert colon to prime, hyphen to underscore.</font>-<a name="(line241)"></a>decolonify <font color=Red>::</font> Char <font color=Red>-&gt;</font> Char-<a name="(line242)"></a>decolonify <font color=Magenta>':'</font> <font color=Red>=</font> <font color=Magenta>'\''</font>   <font color=Blue>-- TODO: turn namespaces into qualified identifiers</font>-<a name="(line243)"></a>decolonify <font color=Magenta>'-'</font> <font color=Red>=</font> <font color=Magenta>'_'</font>-<a name="(line244)"></a>decolonify <font color=Magenta>'.'</font> <font color=Red>=</font> <font color=Magenta>'_'</font>-<a name="(line245)"></a>decolonify  c  <font color=Red>=</font> c-<a name="(line246)"></a>-<a name="(line247)"></a><a name="commaList"></a>commaList <font color=Red>::</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc-<a name="(line248)"></a>commaList <font color=Red>=</font> hcat <font color=Cyan>.</font> intersperse comma+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/DtdToHaskell/TypeDef.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | Defines an internal representation of Haskell data\/newtype definitions</font>+<a name="line-2"></a><font color=Blue>--   that correspond to the XML DTD types, and provides pretty-printers to</font>+<a name="line-3"></a><font color=Blue>--   convert these types into the 'Doc' type of "Text.PrettyPrint.HughesPJ".</font>+<a name="line-4"></a>+<a name="line-5"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>DtdToHaskell<font color=Cyan>.</font>TypeDef+<a name="line-6"></a>  <font color=Cyan>(</font> <font color=Blue>-- * Internal representation of types</font>+<a name="line-7"></a>    TypeDef<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>+<a name="line-8"></a>  <font color=Cyan>,</font> Constructors+<a name="line-9"></a>  <font color=Cyan>,</font> AttrFields+<a name="line-10"></a>  <font color=Cyan>,</font> StructType<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>+<a name="line-11"></a>  <font color=Blue>-- * Pretty-print a TypeDef</font>+<a name="line-12"></a>  <font color=Cyan>,</font> ppTypeDef+<a name="line-13"></a>  <font color=Cyan>,</font> ppHName+<a name="line-14"></a>  <font color=Cyan>,</font> ppXName+<a name="line-15"></a>  <font color=Cyan>,</font> ppAName+<a name="line-16"></a>  <font color=Blue>-- * Name mangling</font>+<a name="line-17"></a>  <font color=Cyan>,</font> Name<font color=Cyan>(</font><font color=Red>..</font><font color=Cyan>)</font>+<a name="line-18"></a>  <font color=Cyan>,</font> name<font color=Cyan>,</font> name_<font color=Cyan>,</font> name_a<font color=Cyan>,</font> name_ac<font color=Cyan>,</font> name_f<font color=Cyan>,</font> mangle<font color=Cyan>,</font> manglef+<a name="line-19"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-20"></a>+<a name="line-21"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isLower<font color=Cyan>,</font> isUpper<font color=Cyan>,</font> toLower<font color=Cyan>,</font> toUpper<font color=Cyan>,</font> isDigit<font color=Cyan>)</font>+<a name="line-22"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>+<a name="line-23"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ+<a name="line-24"></a>+<a name="line-25"></a>+<a name="line-26"></a><font color=Blue>---- Internal representation for typedefs ----</font>+<a name="line-27"></a>+<a name="line-28"></a><a name="Name"></a><font color=Blue>-- | Need to keep both the XML and Haskell versions of a name.</font>+<a name="line-29"></a><a name="Name"></a><font color=Green><u>data</u></font> Name <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>::</font> String       <font color=Blue>-- ^ original XML name</font>+<a name="line-30"></a>                 <font color=Cyan>,</font> hName <font color=Red>::</font> String       <font color=Blue>-- ^ mangled Haskell name</font>+<a name="line-31"></a>                 <font color=Cyan>}</font>+<a name="line-32"></a>          <font color=Green><u>deriving</u></font> Eq+<a name="line-33"></a>+<a name="line-34"></a><a name="TypeDef"></a><font color=Green><u>data</u></font> TypeDef <font color=Red>=</font>+<a name="line-35"></a>      DataDef Bool Name AttrFields Constructors <font color=Blue>-- ^ Bool for main\/aux.</font>+<a name="line-36"></a>    <font color=Red>|</font> EnumDef Name <font color=Red>[</font>Name<font color=Red>]</font>+<a name="line-37"></a>    <font color=Green><u>deriving</u></font> Eq+<a name="line-38"></a><a name="Constructors"></a><font color=Green><u>type</u></font> Constructors <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-39"></a><a name="AttrFields"></a><font color=Green><u>type</u></font> AttrFields   <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font> StructType<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-40"></a><a name="StructType"></a><font color=Green><u>data</u></font> StructType <font color=Red>=</font>+<a name="line-41"></a>      Maybe StructType+<a name="line-42"></a>    <font color=Red>|</font> Defaultable StructType String     <font color=Blue>-- ^ String holds default value.</font>+<a name="line-43"></a>    <font color=Red>|</font> List StructType+<a name="line-44"></a>    <font color=Red>|</font> List1 StructType                  <font color=Blue>-- ^ Non-empty lists.</font>+<a name="line-45"></a>    <font color=Red>|</font> Tuple <font color=Red>[</font>StructType<font color=Red>]</font>+<a name="line-46"></a>    <font color=Red>|</font> OneOf <font color=Red>[</font>StructType<font color=Red>]</font>+<a name="line-47"></a>    <font color=Red>|</font> Any                               <font color=Blue>-- ^ XML's contentspec allows ANY</font>+<a name="line-48"></a>    <font color=Red>|</font> String+<a name="line-49"></a>    <font color=Red>|</font> Defined Name+<a name="line-50"></a>    <font color=Green><u>deriving</u></font> Eq+<a name="line-51"></a>+<a name="line-52"></a><font color=Blue>-- used for converting StructType (roughly) back to an XML content model</font>+<a name="line-53"></a><font color=Green><u>instance</u></font> Show StructType <font color=Green><u>where</u></font>+<a name="line-54"></a>    showsPrec p <font color=Cyan>(</font>Maybe s<font color=Cyan>)</font>         <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'?'</font>+<a name="line-55"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Defaultable s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> shows s+<a name="line-56"></a>    showsPrec p <font color=Cyan>(</font>List s<font color=Cyan>)</font>          <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'*'</font>+<a name="line-57"></a>    showsPrec p <font color=Cyan>(</font>List1 s<font color=Cyan>)</font>         <font color=Red>=</font> showsPrec <font color=Cyan>(</font>p<font color=Cyan>+</font><font color=Magenta>1</font><font color=Cyan>)</font> s <font color=Cyan>.</font> showChar <font color=Magenta>'+'</font>+<a name="line-58"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Tuple ss<font color=Cyan>)</font>        <font color=Red>=</font> showChar <font color=Magenta>'('</font>+<a name="line-59"></a>                                    <font color=Cyan>.</font> foldr1 <font color=Cyan>(</font><font color=Cyan>.</font><font color=Cyan>)</font> <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>showChar <font color=Magenta>','</font><font color=Cyan>)</font>+<a name="line-60"></a>                                                              <font color=Cyan>(</font>map shows ss<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-61"></a>                                    <font color=Cyan>.</font> showChar <font color=Magenta>')'</font>+<a name="line-62"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>OneOf ss<font color=Cyan>)</font>        <font color=Red>=</font> showChar <font color=Magenta>'('</font>+<a name="line-63"></a>                                    <font color=Cyan>.</font> foldr1 <font color=Cyan>(</font><font color=Cyan>.</font><font color=Cyan>)</font> <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>showChar <font color=Magenta>'|'</font><font color=Cyan>)</font>+<a name="line-64"></a>                                                              <font color=Cyan>(</font>map shows ss<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-65"></a>                                    <font color=Cyan>.</font> showChar <font color=Magenta>')'</font>+<a name="line-66"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Any<font color=Cyan>)</font>             <font color=Red>=</font> showString <font color=Magenta>"ANY"</font>+<a name="line-67"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>String<font color=Cyan>)</font>          <font color=Red>=</font> showString <font color=Magenta>"#PCDATA"</font>+<a name="line-68"></a>    showsPrec <font color=Green><u>_</u></font> <font color=Cyan>(</font>Defined <font color=Cyan>(</font>Name n <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> showString n+<a name="line-69"></a>+<a name="line-70"></a>+<a name="line-71"></a><a name="ppTypeDef"></a><font color=Blue>---- Pretty-printing typedefs ----</font>+<a name="line-72"></a><font color=Blue>ppTypeDef</font> <font color=Red>::</font> TypeDef <font color=Red>-&gt;</font> Doc+<a name="line-73"></a>+<a name="line-74"></a><font color=Blue>--      no attrs, no constructors</font>+<a name="line-75"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] []<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-76"></a>    <font color=Green><u>let</u></font> nme <font color=Red>=</font> ppHName n <font color=Green><u>in</u></font>+<a name="line-77"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"\t\t"</font> <font color=Cyan>&lt;&gt;</font> derives+<a name="line-78"></a>+<a name="line-79"></a><font color=Blue>--      no attrs, single constructor</font>+<a name="line-80"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] <font color=Red>[</font>c<font color=Red>@</font><font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Red>[</font><font color=Green><u>_</u></font><font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-81"></a>    text <font color=Magenta>"newtype"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppC c <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"\t\t"</font> <font color=Cyan>&lt;&gt;</font> derives+<a name="line-82"></a>+<a name="line-83"></a><font color=Blue>--      no attrs, multiple constrs</font>+<a name="line-84"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n [] cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-85"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>+<a name="line-86"></a>           <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppC <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-87"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>"|"</font> <font color=Cyan>&lt;+&gt;</font> ppC c<font color=Cyan>)</font> <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-88"></a>             derives <font color=Cyan>)</font>+<a name="line-89"></a>+<a name="line-90"></a><font color=Blue>--      nonzero attrs, no constructors</font>+<a name="line-91"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs []<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-92"></a>    <font color=Green><u>let</u></font> nme <font color=Red>=</font> ppHName n <font color=Green><u>in</u></font>+<a name="line-93"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> nme <font color=Cyan>$$</font>+<a name="line-94"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> ppF <font color=Cyan>(</font>head fs<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-95"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>f<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> ppF f<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-96"></a>             text <font color=Magenta>"}"</font> <font color=Cyan>&lt;+&gt;</font> derives <font color=Cyan>)</font>+<a name="line-97"></a>+<a name="line-98"></a><font color=Blue>--      nonzero attrs, one or more constrs</font>+<a name="line-99"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>DataDef <font color=Green><u>_</u></font> n fs cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-100"></a>    <font color=Green><u>let</u></font> attr <font color=Red>=</font> ppAName n <font color=Green><u>in</u></font>+<a name="line-101"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>+<a name="line-102"></a>           <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> ppAC attr <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-103"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> text <font color=Magenta>"|"</font> <font color=Cyan>&lt;+&gt;</font> ppAC attr c<font color=Cyan>)</font> <font color=Cyan>(</font>tail cs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-104"></a>             derives <font color=Cyan>)</font>  <font color=Cyan>$$</font>+<a name="line-105"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> attr <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font> attr <font color=Cyan>$$</font>+<a name="line-106"></a>    nest <font color=Magenta>4</font> <font color=Cyan>(</font> text <font color=Magenta>"{"</font> <font color=Cyan>&lt;+&gt;</font> ppF <font color=Cyan>(</font>head fs<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-107"></a>             vcat <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font>f<font color=Red>-&gt;</font> text <font color=Magenta>","</font> <font color=Cyan>&lt;+&gt;</font> ppF f<font color=Cyan>)</font> <font color=Cyan>(</font>tail fs<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-108"></a>             text <font color=Magenta>"}"</font> <font color=Cyan>&lt;+&gt;</font> derives <font color=Cyan>)</font>+<a name="line-109"></a>+<a name="line-110"></a><font color=Blue>--      enumerations (of attribute values)</font>+<a name="line-111"></a><font color=Blue>ppTypeDef</font> <font color=Cyan>(</font>EnumDef n es<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-112"></a>    text <font color=Magenta>"data"</font> <font color=Cyan>&lt;+&gt;</font> ppHName n <font color=Cyan>&lt;+&gt;</font>+<a name="line-113"></a>    <font color=Cyan>(</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-114"></a>      fsep <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>" | "</font><font color=Cyan>)</font> <font color=Cyan>(</font>map ppHName es<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-115"></a>    <font color=Cyan>$$</font> derives <font color=Cyan>)</font>+<a name="line-116"></a>+<a name="line-117"></a>+<a name="line-118"></a><a name="ppST"></a><font color=Blue>ppST</font> <font color=Red>::</font> StructType <font color=Red>-&gt;</font> Doc+<a name="line-119"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>Defaultable st <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"Defaultable"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>+<a name="line-120"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>Maybe st<font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"Maybe"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>+<a name="line-121"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>List st<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"["</font> <font color=Cyan>&lt;&gt;</font> ppST st <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]"</font>+<a name="line-122"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>List1 st<font color=Cyan>)</font>  <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"List1"</font> <font color=Cyan>&lt;+&gt;</font> ppST st<font color=Cyan>)</font>+<a name="line-123"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>Tuple sts<font color=Cyan>)</font> <font color=Red>=</font> parens <font color=Cyan>(</font>commaList <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-124"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>OneOf sts<font color=Cyan>)</font> <font color=Red>=</font> parens <font color=Cyan>(</font>text <font color=Magenta>"OneOf"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show <font color=Cyan>(</font>length sts<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-125"></a>                           hsep <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-126"></a><font color=Blue>ppST</font>  String     <font color=Red>=</font> text <font color=Magenta>"String"</font>+<a name="line-127"></a><font color=Blue>ppST</font>  Any        <font color=Red>=</font> text <font color=Magenta>"ANYContent"</font>+<a name="line-128"></a><font color=Blue>ppST</font> <font color=Cyan>(</font>Defined n<font color=Cyan>)</font> <font color=Red>=</font> ppHName n+<a name="line-129"></a>+<a name="line-130"></a><a name="ppC"></a><font color=Blue>-- constructor and components</font>+<a name="line-131"></a><font color=Blue>ppC</font> <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-132"></a><font color=Blue>ppC</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map ppST sts<font color=Cyan>)</font>+<a name="line-133"></a>+<a name="line-134"></a><a name="ppF"></a><font color=Blue>-- attribute (fieldname and type)</font>+<a name="line-135"></a><font color=Blue>ppF</font> <font color=Red>::</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font>StructType<font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-136"></a><font color=Blue>ppF</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>st<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"::"</font> <font color=Cyan>&lt;+&gt;</font> ppST st+<a name="line-137"></a>+<a name="line-138"></a><a name="ppAC"></a><font color=Blue>-- constructor and components with initial attr-type</font>+<a name="line-139"></a><font color=Blue>ppAC</font> <font color=Red>::</font> Doc <font color=Red>-&gt;</font> <font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>StructType<font color=Red>]</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> Doc+<a name="line-140"></a><font color=Blue>ppAC</font> atype <font color=Cyan>(</font>n<font color=Cyan>,</font>sts<font color=Cyan>)</font> <font color=Red>=</font> ppHName n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>atype<font color=Red><b>:</b></font> map ppST sts<font color=Cyan>)</font>+<a name="line-141"></a>+<a name="line-142"></a><a name="ppHName"></a><font color=Blue>-- | Pretty print Haskell name.</font>+<a name="line-143"></a><font color=Blue>ppHName</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc+<a name="line-144"></a><font color=Blue>ppHName</font> <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> s<font color=Cyan>)</font> <font color=Red>=</font> text s+<a name="line-145"></a><a name="ppXName"></a><font color=Blue>-- | Pretty print XML name.</font>+<a name="line-146"></a><font color=Blue>ppXName</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc+<a name="line-147"></a><font color=Blue>ppXName</font> <font color=Cyan>(</font>Name s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> text s+<a name="line-148"></a><a name="ppAName"></a><font color=Blue>-- | Pretty print Haskell attributes name.</font>+<a name="line-149"></a><font color=Blue>ppAName</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Doc+<a name="line-150"></a><font color=Blue>ppAName</font> <font color=Cyan>(</font>Name <font color=Green><u>_</u></font> s<font color=Cyan>)</font> <font color=Red>=</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"_Attrs"</font>+<a name="line-151"></a>+<a name="line-152"></a><a name="derives"></a><font color=Blue>derives</font> <font color=Red>::</font> Doc+<a name="line-153"></a><font color=Blue>derives</font> <font color=Red>=</font> text <font color=Magenta>"deriving"</font> <font color=Cyan>&lt;+&gt;</font> parens <font color=Cyan>(</font>commaList <font color=Cyan>(</font>map text <font color=Red>[</font><font color=Magenta>"Eq"</font><font color=Cyan>,</font><font color=Magenta>"Show"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-154"></a>+<a name="line-155"></a>+<a name="line-156"></a><font color=Blue>---- Some operations on Names ----</font>+<a name="line-157"></a>+<a name="line-158"></a><a name="name"></a><font color=Blue>-- | Make a type name valid in both XML and Haskell.</font>+<a name="line-159"></a><font color=Blue>name</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> Name+<a name="line-160"></a><font color=Blue>name</font> n     <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n+<a name="line-161"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle n <font color=Cyan>}</font>+<a name="line-162"></a>+<a name="line-163"></a><a name="name_"></a><font color=Blue>-- | Append an underscore to the Haskell version of the name.</font>+<a name="line-164"></a><font color=Blue>name_</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> Name+<a name="line-165"></a><font color=Blue>name_</font> n    <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n+<a name="line-166"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle n <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>}</font>+<a name="line-167"></a>+<a name="line-168"></a><a name="name_a"></a><font color=Blue>-- | Prefix an attribute enumeration type name with its containing element</font>+<a name="line-169"></a><font color=Blue>--   name.</font>+<a name="line-170"></a><font color=Blue>name_a</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name+<a name="line-171"></a><font color=Blue>name_a</font> e n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n+<a name="line-172"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> mangle e <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify n <font color=Cyan>}</font>+<a name="line-173"></a>+<a name="line-174"></a><a name="name_ac"></a><font color=Blue>-- | Prefix an attribute enumeration constructor with its element-tag name,</font>+<a name="line-175"></a><font color=Blue>--   and its enumeration type name.</font>+<a name="line-176"></a><font color=Blue>name_ac</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name+<a name="line-177"></a><font color=Blue>name_ac</font> e t n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n+<a name="line-178"></a>                     <font color=Cyan>,</font> hName <font color=Red>=</font> mangle e <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify t+<a name="line-179"></a>                                        <font color=Cyan>++</font> <font color=Magenta>"_"</font> <font color=Cyan>++</font> map decolonify n <font color=Cyan>}</font>+<a name="line-180"></a>+<a name="line-181"></a><a name="name_f"></a><font color=Blue>-- | Prefix a field name with its enclosing element name.</font>+<a name="line-182"></a><font color=Blue>name_f</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Name+<a name="line-183"></a><font color=Blue>name_f</font> e n <font color=Red>=</font> Name <font color=Cyan>{</font> xName <font color=Red>=</font> n+<a name="line-184"></a>                  <font color=Cyan>,</font> hName <font color=Red>=</font> manglef e <font color=Cyan>++</font> mangle n <font color=Cyan>}</font>+<a name="line-185"></a>+<a name="line-186"></a><font color=Blue>---- obsolete</font>+<a name="line-187"></a><font color=Blue>-- elementname_at :: String -&gt; Name</font>+<a name="line-188"></a><font color=Blue>-- elementname_at n  = Name n (mangle n ++ "_Attrs")</font>+<a name="line-189"></a>+<a name="line-190"></a><a name="mangle"></a><font color=Blue>-- | Convert an XML name to a Haskell conid.</font>+<a name="line-191"></a><font color=Blue>mangle</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String+<a name="line-192"></a><font color=Blue>mangle</font> <font color=Cyan>(</font>n<font color=Red><b>:</b></font>ns<font color=Cyan>)</font>+<a name="line-193"></a>    <font color=Red>|</font> isLower n   <font color=Red>=</font> notPrelude <font color=Cyan>(</font>toUpper n<font color=Red><b>:</b></font> map decolonify ns<font color=Cyan>)</font>+<a name="line-194"></a>    <font color=Red>|</font> isDigit n   <font color=Red>=</font> <font color=Magenta>'I'</font><font color=Red><b>:</b></font> n<font color=Red><b>:</b></font> map decolonify ns+<a name="line-195"></a>    <font color=Red>|</font> otherwise   <font color=Red>=</font> notPrelude <font color=Cyan>(</font>n<font color=Red><b>:</b></font> map decolonify ns<font color=Cyan>)</font>+<a name="line-196"></a>+<a name="line-197"></a><a name="notPrelude"></a><font color=Blue>-- | Ensure a generated name does not conflict with a standard haskell one.</font>+<a name="line-198"></a><font color=Blue>notPrelude</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String+<a name="line-199"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Bool"</font>    <font color=Red>=</font> <font color=Magenta>"ABool"</font>+<a name="line-200"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Bounded"</font> <font color=Red>=</font> <font color=Magenta>"ABounded"</font>+<a name="line-201"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Char"</font>    <font color=Red>=</font> <font color=Magenta>"AChar"</font>+<a name="line-202"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Double"</font>  <font color=Red>=</font> <font color=Magenta>"ADouble"</font>+<a name="line-203"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Either"</font>  <font color=Red>=</font> <font color=Magenta>"AEither"</font>+<a name="line-204"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Enum"</font>    <font color=Red>=</font> <font color=Magenta>"AEnum"</font>+<a name="line-205"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Eq"</font>      <font color=Red>=</font> <font color=Magenta>"AEq"</font>+<a name="line-206"></a><font color=Blue>notPrelude</font> <font color=Magenta>"FilePath"</font><font color=Red>=</font> <font color=Magenta>"AFilePath"</font>+<a name="line-207"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Float"</font>   <font color=Red>=</font> <font color=Magenta>"AFloat"</font>+<a name="line-208"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Floating"</font><font color=Red>=</font> <font color=Magenta>"AFloating"</font>+<a name="line-209"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Fractional"</font><font color=Red>=</font> <font color=Magenta>"AFractional"</font>+<a name="line-210"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Functor"</font> <font color=Red>=</font> <font color=Magenta>"AFunctor"</font>+<a name="line-211"></a><font color=Blue>notPrelude</font> <font color=Magenta>"IO"</font>      <font color=Red>=</font> <font color=Magenta>"AIO"</font>+<a name="line-212"></a><font color=Blue>notPrelude</font> <font color=Magenta>"IOError"</font> <font color=Red>=</font> <font color=Magenta>"AIOError"</font>+<a name="line-213"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Int"</font>     <font color=Red>=</font> <font color=Magenta>"AInt"</font>+<a name="line-214"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Integer"</font> <font color=Red>=</font> <font color=Magenta>"AInteger"</font>+<a name="line-215"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Integral"</font><font color=Red>=</font> <font color=Magenta>"AIntegral"</font>+<a name="line-216"></a><font color=Blue>notPrelude</font> <font color=Magenta>"List1"</font>   <font color=Red>=</font> <font color=Magenta>"AList1"</font> <font color=Blue>-- part of HaXml</font>+<a name="line-217"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Maybe"</font>   <font color=Red>=</font> <font color=Magenta>"AMaybe"</font>+<a name="line-218"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Monad"</font>   <font color=Red>=</font> <font color=Magenta>"AMonad"</font>+<a name="line-219"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Num"</font>     <font color=Red>=</font> <font color=Magenta>"ANum"</font>+<a name="line-220"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Ord"</font>     <font color=Red>=</font> <font color=Magenta>"AOrd"</font>+<a name="line-221"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Ordering"</font><font color=Red>=</font> <font color=Magenta>"AOrdering"</font>+<a name="line-222"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Rational"</font><font color=Red>=</font> <font color=Magenta>"ARational"</font>+<a name="line-223"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Read"</font>    <font color=Red>=</font> <font color=Magenta>"ARead"</font>+<a name="line-224"></a><font color=Blue>notPrelude</font> <font color=Magenta>"ReadS"</font>   <font color=Red>=</font> <font color=Magenta>"AReadS"</font>+<a name="line-225"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Real"</font>    <font color=Red>=</font> <font color=Magenta>"AReal"</font>+<a name="line-226"></a><font color=Blue>notPrelude</font> <font color=Magenta>"RealFloat"</font> <font color=Red>=</font> <font color=Magenta>"ARealFloat"</font>+<a name="line-227"></a><font color=Blue>notPrelude</font> <font color=Magenta>"RealFrac"</font><font color=Red>=</font> <font color=Magenta>"ARealFrac"</font>+<a name="line-228"></a><font color=Blue>notPrelude</font> <font color=Magenta>"Show"</font>    <font color=Red>=</font> <font color=Magenta>"AShow"</font>+<a name="line-229"></a><font color=Blue>notPrelude</font> <font color=Magenta>"ShowS"</font>   <font color=Red>=</font> <font color=Magenta>"AShowS"</font>+<a name="line-230"></a><font color=Blue>notPrelude</font> <font color=Magenta>"String"</font>  <font color=Red>=</font> <font color=Magenta>"AString"</font>+<a name="line-231"></a><font color=Blue>notPrelude</font> n         <font color=Red>=</font> n+<a name="line-232"></a>+<a name="line-233"></a><a name="manglef"></a><font color=Blue>-- | Convert an XML name to a Haskell varid.</font>+<a name="line-234"></a><font color=Blue>manglef</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String+<a name="line-235"></a><font color=Blue>manglef</font> <font color=Cyan>(</font>n<font color=Red><b>:</b></font>ns<font color=Cyan>)</font>+<a name="line-236"></a>    <font color=Red>|</font> isUpper n   <font color=Red>=</font> toLower n<font color=Red><b>:</b></font> map decolonify ns+<a name="line-237"></a>    <font color=Red>|</font> isDigit n   <font color=Red>=</font> <font color=Magenta>'_'</font><font color=Red><b>:</b></font> n<font color=Red><b>:</b></font> map decolonify ns+<a name="line-238"></a>    <font color=Red>|</font> otherwise   <font color=Red>=</font> n<font color=Red><b>:</b></font> map decolonify ns+<a name="line-239"></a>+<a name="line-240"></a><a name="decolonify"></a><font color=Blue>-- | Convert colon to prime, hyphen to underscore.</font>+<a name="line-241"></a><font color=Blue>decolonify</font> <font color=Red>::</font> Char <font color=Red>-&gt;</font> Char+<a name="line-242"></a><font color=Blue>decolonify</font> <font color=Magenta>':'</font> <font color=Red>=</font> <font color=Magenta>'\''</font>   <font color=Blue>-- TODO: turn namespaces into qualified identifiers</font>+<a name="line-243"></a><font color=Blue>decolonify</font> <font color=Magenta>'-'</font> <font color=Red>=</font> <font color=Magenta>'_'</font>+<a name="line-244"></a><font color=Blue>decolonify</font> <font color=Magenta>'.'</font> <font color=Red>=</font> <font color=Magenta>'_'</font>+<a name="line-245"></a><font color=Blue>decolonify</font>  c  <font color=Red>=</font> c+<a name="line-246"></a>+<a name="line-247"></a><a name="commaList"></a><font color=Blue>commaList</font> <font color=Red>::</font> <font color=Red>[</font>Doc<font color=Red>]</font> <font color=Red>-&gt;</font> Doc+<a name="line-248"></a><font color=Blue>commaList</font> <font color=Red>=</font> hcat <font color=Cyan>.</font> intersperse comma </pre>+</body> </html>

@@ -1,295 +1,301 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>{- This module contains code for escaping/unescaping text in attributes-<a name="(line2)"></a>   and elements in the HaXml Element type, replacing characters by character-<a name="(line3)"></a>   references or vice-versa.  Two uses are envisaged for this:-<a name="(line4)"></a>-<a name="(line5)"></a>   (1) stopping HaXml generating incorrect XML when a character is included-<a name="(line6)"></a>       which is also the appropriate XML terminating character, for example-<a name="(line7)"></a>       when an attribute includes a double quote.-<a name="(line8)"></a>   (2) representing XML which contains non-ASCII characters as ASCII.-<a name="(line9)"></a>   -}</font>-<a name="(line10)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape<font color=Cyan>(</font>-<a name="(line11)"></a>   xmlEscape<font color=Cyan>,</font>-<a name="(line12)"></a>      <font color=Blue>-- :: XmlEscaper -&gt; Element i -&gt; Element i</font>-<a name="(line13)"></a>   xmlUnEscape<font color=Cyan>,</font>-<a name="(line14)"></a>      <font color=Blue>-- :: XmlEscaper -&gt; Element i -&gt; Element i</font>-<a name="(line15)"></a>   xmlEscapeContent<font color=Cyan>,</font>-<a name="(line16)"></a>      <font color=Blue>-- :: XmlEscaper -&gt; [Content i] -&gt; [Content i]</font>-<a name="(line17)"></a>   xmlUnEscapeContent<font color=Cyan>,</font>-<a name="(line18)"></a>      <font color=Blue>-- :: XmlEscaper -&gt; [Content i] -&gt; [Content i]</font>-<a name="(line19)"></a>-<a name="(line20)"></a>   XmlEscaper<font color=Cyan>,</font>-<a name="(line21)"></a>      <font color=Blue>-- Something describing a particular set of escapes.</font>-<a name="(line22)"></a>-<a name="(line23)"></a>   stdXmlEscaper<font color=Cyan>,</font>-<a name="(line24)"></a>      <font color=Blue>-- Standard boilerplate escaper, escaping everything that is</font>-<a name="(line25)"></a>      <font color=Blue>-- nonprintable, non-ASCII, or might conceivably cause problems by</font>-<a name="(line26)"></a>      <font color=Blue>-- parsing XML, for example quotes, &lt; signs, and ampersands.</font>-<a name="(line27)"></a>-<a name="(line28)"></a>   mkXmlEscaper<font color=Cyan>,</font>-<a name="(line29)"></a>      <font color=Blue>-- :: [(Char,String)] -&gt; (Char -&gt; Bool) -&gt; XmlEscaper</font>-<a name="(line30)"></a>      <font color=Blue>-- The first argument contains a list of characters, with their</font>-<a name="(line31)"></a>      <font color=Blue>--    corresponding character reference names.</font>-<a name="(line32)"></a>      <font color=Blue>--    For example [('\60',"lt"),('\62',"gt"),('\38',"amp"),</font>-<a name="(line33)"></a>      <font color=Blue>--       ('\39',"apos"),('\34',"quot")] will give you the "standard"</font>-<a name="(line34)"></a>      <font color=Blue>--       XML escapes listed in section 4.6 of the XML standard, so that</font>-<a name="(line35)"></a>      <font color=Blue>--       "&amp;quot;" will automatically get translated into a double</font>-<a name="(line36)"></a>      <font color=Blue>--       quotation mark.</font>-<a name="(line37)"></a>      <font color=Blue>--</font>-<a name="(line38)"></a>      <font color=Blue>--       It's the caller's responsibility to see that the reference</font>-<a name="(line39)"></a>      <font color=Blue>--       names ("lt","gt","amp","apos" and "quot" in the above example)</font>-<a name="(line40)"></a>      <font color=Blue>--       are valid XML reference names.  A sequence of letters, digits,</font>-<a name="(line41)"></a>      <font color=Blue>--       "." or ":" characters should be fine so long as the first one</font>-<a name="(line42)"></a>      <font color=Blue>--       isn't a digit.</font>-<a name="(line43)"></a>      <font color=Blue>--</font>-<a name="(line44)"></a>      <font color=Blue>-- The second argument is a function applied to each text character.</font>-<a name="(line45)"></a>      <font color=Blue>--    If it returns True, that means we should escape this character.</font>-<a name="(line46)"></a>-<a name="(line47)"></a>      <font color=Blue>-- Policy: on escaping, we expand all characters for which the</font>-<a name="(line48)"></a>      <font color=Blue>-- (Char -&gt; Bool) function returns True, either giving the corresponding</font>-<a name="(line49)"></a>      <font color=Blue>-- character reference name if one was supplied, or else using a</font>-<a name="(line50)"></a>      <font color=Blue>-- hexadecimal CharRef.</font>-<a name="(line51)"></a>      <font color=Blue>--</font>-<a name="(line52)"></a>      <font color=Blue>-- on unescaping, we translate all the references we understand</font>-<a name="(line53)"></a>      <font color=Blue>--   (hexadecimal,decimal, and the ones in the [(Char,String)] list,</font>-<a name="(line54)"></a>      <font color=Blue>--   and leave the others alone.</font>-<a name="(line55)"></a>-<a name="(line56)"></a>   <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line57)"></a>-<a name="(line58)"></a><font color=Green><u>import</u></font> Char-<a name="(line59)"></a><font color=Blue>-- import Numeric</font>-<a name="(line60)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line61)"></a>-<a name="(line62)"></a><font color=Magenta><em>#if __GLASGOW_HASKELL__ &gt;= 604 || __NHC__ &gt;= 118 || defined(__HUGS__)</em></font>-<a name="(line63)"></a><font color=Blue>-- emulate older finite map interface using Data.Map, if it is available</font>-<a name="(line64)"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Data<font color=Cyan>.</font>Map <font color=Green><u>as</u></font> Map-<a name="(line65)"></a><a name="FiniteMap"></a><font color=Green><u>type</u></font> FiniteMap a b <font color=Red>=</font> Map<font color=Cyan>.</font>Map a b-<a name="(line66)"></a><a name="listToFM"></a>listToFM <font color=Red>::</font> Ord a <font color=Red>=&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> FiniteMap a b-<a name="(line67)"></a>listToFM <font color=Red>=</font> Map<font color=Cyan>.</font>fromList-<a name="(line68)"></a><a name="lookupFM"></a>lookupFM <font color=Red>::</font> Ord a <font color=Red>=&gt;</font> FiniteMap a b <font color=Red>-&gt;</font> a <font color=Red>-&gt;</font> Maybe b-<a name="(line69)"></a>lookupFM <font color=Red>=</font> flip Map<font color=Cyan>.</font>lookup-<a name="(line70)"></a><font color=Magenta><em>#elif __GLASGOW_HASKELL__ &gt;= 504 || __NHC__ &gt; 114</em></font>-<a name="(line71)"></a><font color=Blue>-- real finite map, if it is available</font>-<a name="(line72)"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>FiniteMap-<a name="(line73)"></a><font color=Magenta><em>#else</em></font>-<a name="(line74)"></a><a name="FiniteMap"></a><font color=Blue>-- otherwise, a very simple and inefficient implementation of a finite map</font>-<a name="(line75)"></a><a name="FiniteMap"></a><font color=Green><u>type</u></font> FiniteMap a b <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line76)"></a>listToFM <font color=Red>::</font> Eq a <font color=Red>=&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> FiniteMap a b-<a name="(line77)"></a>listToFM <font color=Red>=</font> id-<a name="(line78)"></a>lookupFM <font color=Red>::</font> Eq a <font color=Red>=&gt;</font> FiniteMap a b <font color=Red>-&gt;</font> a <font color=Red>-&gt;</font> Maybe b-<a name="(line79)"></a>lookupFM fm k <font color=Red>=</font> lookup k fm-<a name="(line80)"></a><font color=Magenta><em>#endif</em></font>-<a name="(line81)"></a>-<a name="(line82)"></a>-<a name="(line83)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line84)"></a><font color=Blue>-- Data types</font>-<a name="(line85)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line86)"></a>-<a name="(line87)"></a><a name="XmlEscaper"></a><font color=Green><u>data</u></font> XmlEscaper <font color=Red>=</font> XmlEscaper <font color=Cyan>{</font>-<a name="(line88)"></a>   toEscape <font color=Red>::</font> FiniteMap Char String<font color=Cyan>,</font>-<a name="(line89)"></a>   fromEscape <font color=Red>::</font> FiniteMap String Char<font color=Cyan>,</font>-<a name="(line90)"></a>   isEscape <font color=Red>::</font> Char <font color=Red>-&gt;</font> Bool-<a name="(line91)"></a>   <font color=Cyan>}</font>-<a name="(line92)"></a>-<a name="(line93)"></a>-<a name="(line94)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line95)"></a><font color=Blue>-- Escaping</font>-<a name="(line96)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line97)"></a>-<a name="(line98)"></a>-<a name="(line99)"></a>-<a name="(line100)"></a><a name="xmlEscape"></a>xmlEscape <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i-<a name="(line101)"></a>xmlEscape xmlEscaper element <font color=Red>=</font>-<a name="(line102)"></a>   compressElement <font color=Cyan>(</font>escapeElement xmlEscaper element<font color=Cyan>)</font>-<a name="(line103)"></a>-<a name="(line104)"></a><a name="xmlEscapeContent"></a>xmlEscapeContent <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line105)"></a>xmlEscapeContent xmlEscaper cs <font color=Red>=</font>-<a name="(line106)"></a>   compressContent <font color=Cyan>(</font>escapeContent xmlEscaper cs<font color=Cyan>)</font>-<a name="(line107)"></a>-<a name="(line108)"></a><a name="escapeElement"></a>escapeElement <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i-<a name="(line109)"></a>escapeElement xmlEscaper <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line110)"></a>   Elem name <font color=Cyan>(</font>escapeAttributes xmlEscaper attributes<font color=Cyan>)</font>-<a name="(line111)"></a>      <font color=Cyan>(</font>escapeContent xmlEscaper content<font color=Cyan>)</font>-<a name="(line112)"></a>-<a name="(line113)"></a><a name="escapeAttributes"></a>escapeAttributes <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font>-<a name="(line114)"></a>escapeAttributes xmlEscaper atts <font color=Red>=</font>-<a name="(line115)"></a>   map-<a name="(line116)"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>escapeAttValue xmlEscaper av<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line117)"></a>      atts-<a name="(line118)"></a>-<a name="(line119)"></a><a name="escapeAttValue"></a>escapeAttValue <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> AttValue <font color=Red>-&gt;</font> AttValue-<a name="(line120)"></a>escapeAttValue xmlEscaper <font color=Cyan>(</font>AttValue attValList<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line121)"></a>   AttValue <font color=Cyan>(</font>-<a name="(line122)"></a>      concat <font color=Cyan>(</font>-<a name="(line123)"></a>         map-<a name="(line124)"></a>            <font color=Cyan>(</font><font color=Red>\</font> av <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> av <font color=Green><u>of</u></font>-<a name="(line125)"></a>               Right <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> <font color=Red>[</font>av<font color=Red>]</font>-<a name="(line126)"></a>               Left s <font color=Red>-&gt;</font>-<a name="(line127)"></a>                  map-<a name="(line128)"></a>                     <font color=Cyan>(</font><font color=Red>\</font> c <font color=Red>-&gt;</font> <font color=Green><u>if</u></font> isEscape xmlEscaper c-<a name="(line129)"></a>                        <font color=Green><u>then</u></font>-<a name="(line130)"></a>                           Right <font color=Cyan>(</font>mkEscape xmlEscaper c<font color=Cyan>)</font>-<a name="(line131)"></a>                        <font color=Green><u>else</u></font>-<a name="(line132)"></a>                           Left <font color=Red>[</font>c<font color=Red>]</font>-<a name="(line133)"></a>                        <font color=Cyan>)</font>-<a name="(line134)"></a>                     s-<a name="(line135)"></a>               <font color=Cyan>)</font>-<a name="(line136)"></a>            attValList-<a name="(line137)"></a>         <font color=Cyan>)</font>-<a name="(line138)"></a>      <font color=Cyan>)</font>-<a name="(line139)"></a>-<a name="(line140)"></a><a name="escapeContent"></a>escapeContent <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line141)"></a>escapeContent xmlEscaper contents <font color=Red>=</font>-<a name="(line142)"></a>   concat-<a name="(line143)"></a>      <font color=Cyan>(</font>map-<a name="(line144)"></a>          <font color=Cyan>(</font><font color=Red>\</font> content <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> content <font color=Green><u>of</u></font>-<a name="(line145)"></a>             <font color=Cyan>(</font>CString b str i<font color=Cyan>)</font> <font color=Red>-&gt;</font>-<a name="(line146)"></a>                map-<a name="(line147)"></a>                   <font color=Cyan>(</font><font color=Red>\</font> c <font color=Red>-&gt;</font> <font color=Green><u>if</u></font> isEscape xmlEscaper c-<a name="(line148)"></a>                      <font color=Green><u>then</u></font>-<a name="(line149)"></a>                         CRef <font color=Cyan>(</font>mkEscape xmlEscaper c<font color=Cyan>)</font> i-<a name="(line150)"></a>                      <font color=Green><u>else</u></font>-<a name="(line151)"></a>                         CString b <font color=Red>[</font>c<font color=Red>]</font> i-<a name="(line152)"></a>                      <font color=Cyan>)</font>-<a name="(line153)"></a>                   str-<a name="(line154)"></a>             <font color=Cyan>(</font>CElem element i<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>escapeElement xmlEscaper element<font color=Cyan>)</font> i<font color=Red>]</font>-<a name="(line155)"></a>             <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> <font color=Red>[</font>content<font color=Red>]</font>-<a name="(line156)"></a>             <font color=Cyan>)</font>-<a name="(line157)"></a>          contents-<a name="(line158)"></a>          <font color=Cyan>)</font>-<a name="(line159)"></a>-<a name="(line160)"></a><a name="mkEscape"></a>mkEscape <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Char <font color=Red>-&gt;</font> Reference-<a name="(line161)"></a>mkEscape <font color=Cyan>(</font>XmlEscaper <font color=Cyan>{</font>toEscape <font color=Red>=</font> toescape<font color=Cyan>}</font><font color=Cyan>)</font> ch <font color=Red>=</font>-<a name="(line162)"></a>   <font color=Green><u>case</u></font> lookupFM toescape ch <font color=Green><u>of</u></font>-<a name="(line163)"></a>      Nothing  <font color=Red>-&gt;</font> RefChar <font color=Cyan>(</font>ord ch<font color=Cyan>)</font>-<a name="(line164)"></a>      Just str <font color=Red>-&gt;</font> RefEntity str-<a name="(line165)"></a><font color=Blue>--    where</font>-<a name="(line166)"></a><font color=Blue>--       _ = showIntAtBase 16 intToDigit</font>-<a name="(line167)"></a><font color=Blue>--       -- It should be, but in GHC it isn't.</font>-<a name="(line168)"></a>-<a name="(line169)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line170)"></a><font color=Blue>-- Unescaping</font>-<a name="(line171)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line172)"></a>-<a name="(line173)"></a><a name="xmlUnEscape"></a>xmlUnEscape <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i-<a name="(line174)"></a>xmlUnEscape xmlEscaper element <font color=Red>=</font>-<a name="(line175)"></a>   compressElement <font color=Cyan>(</font>unEscapeElement xmlEscaper element<font color=Cyan>)</font>-<a name="(line176)"></a>-<a name="(line177)"></a><a name="xmlUnEscapeContent"></a>xmlUnEscapeContent <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line178)"></a>xmlUnEscapeContent xmlEscaper cs <font color=Red>=</font>-<a name="(line179)"></a>   compressContent <font color=Cyan>(</font>unEscapeContent xmlEscaper cs<font color=Cyan>)</font>-<a name="(line180)"></a>-<a name="(line181)"></a><a name="unEscapeElement"></a>unEscapeElement <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i-<a name="(line182)"></a>unEscapeElement xmlEscaper <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line183)"></a>   Elem name <font color=Cyan>(</font>unEscapeAttributes xmlEscaper attributes<font color=Cyan>)</font>-<a name="(line184)"></a>      <font color=Cyan>(</font>unEscapeContent xmlEscaper content<font color=Cyan>)</font>-<a name="(line185)"></a>-<a name="(line186)"></a><a name="unEscapeAttributes"></a>unEscapeAttributes <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font>-<a name="(line187)"></a>unEscapeAttributes xmlEscaper atts <font color=Red>=</font>-<a name="(line188)"></a>   map-<a name="(line189)"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>unEscapeAttValue xmlEscaper av<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line190)"></a>      atts-<a name="(line191)"></a>-<a name="(line192)"></a><a name="unEscapeAttValue"></a>unEscapeAttValue <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> AttValue <font color=Red>-&gt;</font> AttValue-<a name="(line193)"></a>unEscapeAttValue xmlEscaper <font color=Cyan>(</font>AttValue attValList<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line194)"></a>   AttValue <font color=Cyan>(</font>-<a name="(line195)"></a>      map-<a name="(line196)"></a>         <font color=Cyan>(</font><font color=Red>\</font> av <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> av <font color=Green><u>of</u></font>-<a name="(line197)"></a>            Left <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> av-<a name="(line198)"></a>            Right ref <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> unEscapeChar xmlEscaper ref <font color=Green><u>of</u></font>-<a name="(line199)"></a>               Just c <font color=Red>-&gt;</font> Left <font color=Red>[</font>c<font color=Red>]</font>-<a name="(line200)"></a>               Nothing <font color=Red>-&gt;</font> av-<a name="(line201)"></a>            <font color=Cyan>)</font>-<a name="(line202)"></a>         attValList-<a name="(line203)"></a>      <font color=Cyan>)</font>-<a name="(line204)"></a>-<a name="(line205)"></a><a name="unEscapeContent"></a>unEscapeContent <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line206)"></a>unEscapeContent xmlEscaper content <font color=Red>=</font>-<a name="(line207)"></a>   map-<a name="(line208)"></a>      <font color=Cyan>(</font><font color=Red>\</font> cntnt <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> cntnt <font color=Green><u>of</u></font>-<a name="(line209)"></a>         CRef ref i <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> unEscapeChar xmlEscaper ref <font color=Green><u>of</u></font>-<a name="(line210)"></a>            Just c <font color=Red>-&gt;</font> CString False <font color=Red>[</font>c<font color=Red>]</font> i-<a name="(line211)"></a>            Nothing <font color=Red>-&gt;</font> cntnt-<a name="(line212)"></a>         CElem element i <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>unEscapeElement xmlEscaper element<font color=Cyan>)</font> i-<a name="(line213)"></a>         <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> cntnt-<a name="(line214)"></a>         <font color=Cyan>)</font>-<a name="(line215)"></a>      content-<a name="(line216)"></a>-<a name="(line217)"></a><a name="unEscapeChar"></a>unEscapeChar <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Reference <font color=Red>-&gt;</font> Maybe Char-<a name="(line218)"></a>unEscapeChar xmlEscaper ref <font color=Red>=</font>-<a name="(line219)"></a>   <font color=Green><u>case</u></font> ref <font color=Green><u>of</u></font>-<a name="(line220)"></a>      RefChar i      <font color=Red>-&gt;</font> Just <font color=Cyan>(</font>chr i<font color=Cyan>)</font>-<a name="(line221)"></a>      RefEntity name <font color=Red>-&gt;</font> lookupFM <font color=Cyan>(</font>fromEscape xmlEscaper<font color=Cyan>)</font> name-<a name="(line222)"></a>-<a name="(line223)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line224)"></a><font color=Blue>-- After escaping and unescaping we rebuild the lists, compressing</font>-<a name="(line225)"></a><font color=Blue>-- adjacent identical character data.</font>-<a name="(line226)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line227)"></a>-<a name="(line228)"></a><a name="compressElement"></a>compressElement <font color=Red>::</font> Element i <font color=Red>-&gt;</font> Element i-<a name="(line229)"></a>compressElement <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line230)"></a>   Elem name <font color=Cyan>(</font>compressAttributes attributes<font color=Cyan>)</font> <font color=Cyan>(</font>compressContent content<font color=Cyan>)</font>-<a name="(line231)"></a>-<a name="(line232)"></a><a name="compressAttributes"></a>compressAttributes <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font>AttValue<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font>AttValue<font color=Cyan>)</font><font color=Red>]</font>-<a name="(line233)"></a>compressAttributes atts <font color=Red>=</font>-<a name="(line234)"></a>   map-<a name="(line235)"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>compressAttValue av<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line236)"></a>      atts-<a name="(line237)"></a>-<a name="(line238)"></a><a name="compressAttValue"></a>compressAttValue <font color=Red>::</font> AttValue <font color=Red>-&gt;</font> AttValue-<a name="(line239)"></a>compressAttValue <font color=Cyan>(</font>AttValue l<font color=Cyan>)</font> <font color=Red>=</font> AttValue <font color=Cyan>(</font>compress l<font color=Cyan>)</font>-<a name="(line240)"></a>   <font color=Green><u>where</u></font>-<a name="(line241)"></a>      compress <font color=Red>::</font> <font color=Red>[</font>Either String Reference<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Either String Reference<font color=Red>]</font>-<a name="(line242)"></a>      compress [] <font color=Red>=</font> []-<a name="(line243)"></a>      compress <font color=Cyan>(</font>Right ref <font color=Red><b>:</b></font> es<font color=Cyan>)</font> <font color=Red>=</font> Right ref <font color=Red><b>:</b></font> <font color=Cyan>(</font>compress es<font color=Cyan>)</font>-<a name="(line244)"></a>      compress <font color=Cyan>(</font> <font color=Cyan>(</font>ls <font color=Red>@</font> <font color=Cyan>(</font>Left s1<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red><b>:</b></font> es<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line245)"></a>         <font color=Green><u>case</u></font> compress es <font color=Green><u>of</u></font>-<a name="(line246)"></a>            <font color=Cyan>(</font>Left s2 <font color=Red><b>:</b></font> es2<font color=Cyan>)</font> <font color=Red>-&gt;</font> Left <font color=Cyan>(</font>s1 <font color=Cyan>++</font> s2<font color=Cyan>)</font> <font color=Red><b>:</b></font> es2-<a name="(line247)"></a>            es2 <font color=Red>-&gt;</font> ls <font color=Red><b>:</b></font> es2-<a name="(line248)"></a>-<a name="(line249)"></a><a name="compressContent"></a>compressContent <font color=Red>::</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>-<a name="(line250)"></a>compressContent [] <font color=Red>=</font> []-<a name="(line251)"></a>compressContent <font color=Cyan>(</font><font color=Cyan>(</font>csb <font color=Red>@</font> <font color=Cyan>(</font>CString b1 s1 i1<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line252)"></a>   <font color=Green><u>case</u></font> compressContent cs <font color=Green><u>of</u></font>-<a name="(line253)"></a>      <font color=Cyan>(</font>CString b2 s2 <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red><b>:</b></font> cs2-<a name="(line254)"></a>          <font color=Red>|</font> b1 <font color=Cyan>==</font> b2-<a name="(line255)"></a>          <font color=Red>-&gt;</font> CString b1 <font color=Cyan>(</font>s1 <font color=Cyan>++</font> s2<font color=Cyan>)</font> i1<font color=Red><b>:</b></font> cs2-<a name="(line256)"></a>      cs2 <font color=Red>-&gt;</font> csb <font color=Red><b>:</b></font> cs2-<a name="(line257)"></a>compressContent <font color=Cyan>(</font>CElem element i <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line258)"></a>   CElem <font color=Cyan>(</font>compressElement element<font color=Cyan>)</font> i <font color=Red><b>:</b></font> compressContent cs-<a name="(line259)"></a>compressContent <font color=Cyan>(</font>c <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font> c <font color=Red><b>:</b></font> compressContent cs-<a name="(line260)"></a>-<a name="(line261)"></a>-<a name="(line262)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line263)"></a><font color=Blue>-- Making XmlEscaper values.</font>-<a name="(line264)"></a><font color=Blue>-- ------------------------------------------------------------------------</font>-<a name="(line265)"></a>-<a name="(line266)"></a><a name="stdXmlEscaper"></a>stdXmlEscaper <font color=Red>::</font> XmlEscaper-<a name="(line267)"></a>stdXmlEscaper <font color=Red>=</font> mkXmlEscaper-<a name="(line268)"></a>   <font color=Red>[</font><font color=Cyan>(</font><font color=Magenta>'\60'</font><font color=Cyan>,</font><font color=Magenta>"lt"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\62'</font><font color=Cyan>,</font><font color=Magenta>"gt"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\38'</font><font color=Cyan>,</font><font color=Magenta>"amp"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\39'</font><font color=Cyan>,</font><font color=Magenta>"apos"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\34'</font><font color=Cyan>,</font><font color=Magenta>"quot"</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line269)"></a>   <font color=Cyan>(</font><font color=Red>\</font> ch <font color=Red>-&gt;</font>-<a name="(line270)"></a>      <font color=Green><u>let</u></font>-<a name="(line271)"></a>         i <font color=Red>=</font> ord ch-<a name="(line272)"></a>      <font color=Green><u>in</u></font>-<a name="(line273)"></a>         i <font color=Cyan>&lt;</font> <font color=Magenta>10</font> <font color=Cyan>||</font> <font color=Cyan>(</font><font color=Magenta>10</font><font color=Cyan>&lt;</font>i <font color=Cyan>&amp;&amp;</font> i<font color=Cyan>&lt;</font><font color=Magenta>32</font><font color=Cyan>)</font> <font color=Cyan>||</font> i <font color=Cyan>&gt;=</font> <font color=Magenta>127</font> <font color=Cyan>||</font>-<a name="(line274)"></a>            <font color=Green><u>case</u></font> ch <font color=Green><u>of</u></font>-<a name="(line275)"></a>               <font color=Magenta>'\''</font> <font color=Red>-&gt;</font> True-<a name="(line276)"></a>               <font color=Magenta>'\"'</font> <font color=Red>-&gt;</font> True-<a name="(line277)"></a>               <font color=Magenta>'&amp;'</font> <font color=Red>-&gt;</font> True-<a name="(line278)"></a>               <font color=Magenta>'&lt;'</font> <font color=Red>-&gt;</font> True-<a name="(line279)"></a>               <font color=Magenta>'&gt;'</font> <font color=Red>-&gt;</font> True-<a name="(line280)"></a>               <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> False-<a name="(line281)"></a>      <font color=Cyan>)</font>-<a name="(line282)"></a>-<a name="(line283)"></a>-<a name="(line284)"></a><a name="mkXmlEscaper"></a>mkXmlEscaper <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>Char<font color=Cyan>,</font>String<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>Char <font color=Red>-&gt;</font> Bool<font color=Cyan>)</font> <font color=Red>-&gt;</font> XmlEscaper-<a name="(line285)"></a>mkXmlEscaper escapes isescape <font color=Red>=</font>-<a name="(line286)"></a>   XmlEscaper <font color=Cyan>{</font>-<a name="(line287)"></a>      toEscape <font color=Red>=</font> listToFM escapes<font color=Cyan>,</font>-<a name="(line288)"></a>      fromEscape <font color=Red>=</font> listToFM <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>c<font color=Cyan>,</font>str<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>str<font color=Cyan>,</font>c<font color=Cyan>)</font><font color=Cyan>)</font> escapes<font color=Cyan>)</font><font color=Cyan>,</font>-<a name="(line289)"></a>      isEscape <font color=Red>=</font> isescape-<a name="(line290)"></a>      <font color=Cyan>}</font>-<a name="(line291)"></a>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Escape.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>{- This module contains code for escaping/unescaping text in attributes+<a name="line-2"></a>   and elements in the HaXml Element type, replacing characters by character+<a name="line-3"></a>   references or vice-versa.  Two uses are envisaged for this:+<a name="line-4"></a>+<a name="line-5"></a>   (1) stopping HaXml generating incorrect XML when a character is included+<a name="line-6"></a>       which is also the appropriate XML terminating character, for example+<a name="line-7"></a>       when an attribute includes a double quote.+<a name="line-8"></a>   (2) representing XML which contains non-ASCII characters as ASCII.+<a name="line-9"></a>   -}</font>+<a name="line-10"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Escape<font color=Cyan>(</font>+<a name="line-11"></a>   xmlEscape<font color=Cyan>,</font>+<a name="line-12"></a>      <font color=Blue>-- :: XmlEscaper -&gt; Element i -&gt; Element i</font>+<a name="line-13"></a>   xmlUnEscape<font color=Cyan>,</font>+<a name="line-14"></a>      <font color=Blue>-- :: XmlEscaper -&gt; Element i -&gt; Element i</font>+<a name="line-15"></a>   xmlEscapeContent<font color=Cyan>,</font>+<a name="line-16"></a>      <font color=Blue>-- :: XmlEscaper -&gt; [Content i] -&gt; [Content i]</font>+<a name="line-17"></a>   xmlUnEscapeContent<font color=Cyan>,</font>+<a name="line-18"></a>      <font color=Blue>-- :: XmlEscaper -&gt; [Content i] -&gt; [Content i]</font>+<a name="line-19"></a>+<a name="line-20"></a>   XmlEscaper<font color=Cyan>,</font>+<a name="line-21"></a>      <font color=Blue>-- Something describing a particular set of escapes.</font>+<a name="line-22"></a>+<a name="line-23"></a>   stdXmlEscaper<font color=Cyan>,</font>+<a name="line-24"></a>      <font color=Blue>-- Standard boilerplate escaper, escaping everything that is</font>+<a name="line-25"></a>      <font color=Blue>-- nonprintable, non-ASCII, or might conceivably cause problems by</font>+<a name="line-26"></a>      <font color=Blue>-- parsing XML, for example quotes, &lt; signs, and ampersands.</font>+<a name="line-27"></a>+<a name="line-28"></a>   mkXmlEscaper<font color=Cyan>,</font>+<a name="line-29"></a>      <font color=Blue>-- :: [(Char,String)] -&gt; (Char -&gt; Bool) -&gt; XmlEscaper</font>+<a name="line-30"></a>      <font color=Blue>-- The first argument contains a list of characters, with their</font>+<a name="line-31"></a>      <font color=Blue>--    corresponding character reference names.</font>+<a name="line-32"></a>      <font color=Blue>--    For example [('\60',"lt"),('\62',"gt"),('\38',"amp"),</font>+<a name="line-33"></a>      <font color=Blue>--       ('\39',"apos"),('\34',"quot")] will give you the "standard"</font>+<a name="line-34"></a>      <font color=Blue>--       XML escapes listed in section 4.6 of the XML standard, so that</font>+<a name="line-35"></a>      <font color=Blue>--       "&amp;quot;" will automatically get translated into a double</font>+<a name="line-36"></a>      <font color=Blue>--       quotation mark.</font>+<a name="line-37"></a>      <font color=Blue>--</font>+<a name="line-38"></a>      <font color=Blue>--       It's the caller's responsibility to see that the reference</font>+<a name="line-39"></a>      <font color=Blue>--       names ("lt","gt","amp","apos" and "quot" in the above example)</font>+<a name="line-40"></a>      <font color=Blue>--       are valid XML reference names.  A sequence of letters, digits,</font>+<a name="line-41"></a>      <font color=Blue>--       "." or ":" characters should be fine so long as the first one</font>+<a name="line-42"></a>      <font color=Blue>--       isn't a digit.</font>+<a name="line-43"></a>      <font color=Blue>--</font>+<a name="line-44"></a>      <font color=Blue>-- The second argument is a function applied to each text character.</font>+<a name="line-45"></a>      <font color=Blue>--    If it returns True, that means we should escape this character.</font>+<a name="line-46"></a>+<a name="line-47"></a>      <font color=Blue>-- Policy: on escaping, we expand all characters for which the</font>+<a name="line-48"></a>      <font color=Blue>-- (Char -&gt; Bool) function returns True, either giving the corresponding</font>+<a name="line-49"></a>      <font color=Blue>-- character reference name if one was supplied, or else using a</font>+<a name="line-50"></a>      <font color=Blue>-- hexadecimal CharRef.</font>+<a name="line-51"></a>      <font color=Blue>--</font>+<a name="line-52"></a>      <font color=Blue>-- on unescaping, we translate all the references we understand</font>+<a name="line-53"></a>      <font color=Blue>--   (hexadecimal,decimal, and the ones in the [(Char,String)] list,</font>+<a name="line-54"></a>      <font color=Blue>--   and leave the others alone.</font>+<a name="line-55"></a>+<a name="line-56"></a>   <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-57"></a>+<a name="line-58"></a><font color=Green><u>import</u></font> Char+<a name="line-59"></a><font color=Blue>-- import Numeric</font>+<a name="line-60"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-61"></a>+<a name="line-62"></a><font color=Magenta><em>#if __GLASGOW_HASKELL__ &gt;= 604 || __NHC__ &gt;= 118 || defined(__HUGS__)</em></font>+<a name="line-63"></a><font color=Blue>-- emulate older finite map interface using Data.Map, if it is available</font>+<a name="line-64"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Data<font color=Cyan>.</font>Map <font color=Green><u>as</u></font> Map+<a name="line-65"></a><a name="FiniteMap"></a><font color=Green><u>type</u></font> FiniteMap a b <font color=Red>=</font> Map<font color=Cyan>.</font>Map a b+<a name="line-66"></a><a name="listToFM"></a><font color=Blue>listToFM</font> <font color=Red>::</font> Ord a <font color=Red>=&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> FiniteMap a b+<a name="line-67"></a><font color=Blue>listToFM</font> <font color=Red>=</font> Map<font color=Cyan>.</font>fromList+<a name="line-68"></a><a name="lookupFM"></a><font color=Blue>lookupFM</font> <font color=Red>::</font> Ord a <font color=Red>=&gt;</font> FiniteMap a b <font color=Red>-&gt;</font> a <font color=Red>-&gt;</font> Maybe b+<a name="line-69"></a><font color=Blue>lookupFM</font> <font color=Red>=</font> flip Map<font color=Cyan>.</font>lookup+<a name="line-70"></a><font color=Magenta><em>#elif __GLASGOW_HASKELL__ &gt;= 504 || __NHC__ &gt; 114</em></font>+<a name="line-71"></a><font color=Blue>-- real finite map, if it is available</font>+<a name="line-72"></a><font color=Green><u>import</u></font> Data<font color=Cyan>.</font>FiniteMap+<a name="line-73"></a><font color=Magenta><em>#else</em></font>+<a name="line-74"></a><a name="FiniteMap"></a><font color=Blue>-- otherwise, a very simple and inefficient implementation of a finite map</font>+<a name="line-75"></a><a name="FiniteMap"></a><font color=Green><u>type</u></font> FiniteMap a b <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-76"></a><font color=Blue>listToFM</font> <font color=Red>::</font> Eq a <font color=Red>=&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>a<font color=Cyan>,</font>b<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> FiniteMap a b+<a name="line-77"></a><font color=Blue>listToFM</font> <font color=Red>=</font> id+<a name="line-78"></a><font color=Blue>lookupFM</font> <font color=Red>::</font> Eq a <font color=Red>=&gt;</font> FiniteMap a b <font color=Red>-&gt;</font> a <font color=Red>-&gt;</font> Maybe b+<a name="line-79"></a><font color=Blue>lookupFM</font> fm k <font color=Red>=</font> lookup k fm+<a name="line-80"></a><font color=Magenta><em>#endif</em></font>+<a name="line-81"></a>+<a name="line-82"></a>+<a name="line-83"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-84"></a><font color=Blue>-- Data types</font>+<a name="line-85"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-86"></a>+<a name="line-87"></a><a name="XmlEscaper"></a><font color=Green><u>data</u></font> XmlEscaper <font color=Red>=</font> XmlEscaper <font color=Cyan>{</font>+<a name="line-88"></a>   toEscape <font color=Red>::</font> FiniteMap Char String<font color=Cyan>,</font>+<a name="line-89"></a>   fromEscape <font color=Red>::</font> FiniteMap String Char<font color=Cyan>,</font>+<a name="line-90"></a>   isEscape <font color=Red>::</font> Char <font color=Red>-&gt;</font> Bool+<a name="line-91"></a>   <font color=Cyan>}</font>+<a name="line-92"></a>+<a name="line-93"></a>+<a name="line-94"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-95"></a><font color=Blue>-- Escaping</font>+<a name="line-96"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-97"></a>+<a name="line-98"></a>+<a name="line-99"></a>+<a name="line-100"></a><a name="xmlEscape"></a><font color=Blue>xmlEscape</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i+<a name="line-101"></a><font color=Blue>xmlEscape</font> xmlEscaper element <font color=Red>=</font>+<a name="line-102"></a>   compressElement <font color=Cyan>(</font>escapeElement xmlEscaper element<font color=Cyan>)</font>+<a name="line-103"></a>+<a name="line-104"></a><a name="xmlEscapeContent"></a><font color=Blue>xmlEscapeContent</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-105"></a><font color=Blue>xmlEscapeContent</font> xmlEscaper cs <font color=Red>=</font>+<a name="line-106"></a>   compressContent <font color=Cyan>(</font>escapeContent xmlEscaper cs<font color=Cyan>)</font>+<a name="line-107"></a>+<a name="line-108"></a><a name="escapeElement"></a><font color=Blue>escapeElement</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i+<a name="line-109"></a><font color=Blue>escapeElement</font> xmlEscaper <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-110"></a>   Elem name <font color=Cyan>(</font>escapeAttributes xmlEscaper attributes<font color=Cyan>)</font>+<a name="line-111"></a>      <font color=Cyan>(</font>escapeContent xmlEscaper content<font color=Cyan>)</font>+<a name="line-112"></a>+<a name="line-113"></a><a name="escapeAttributes"></a><font color=Blue>escapeAttributes</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font>+<a name="line-114"></a><font color=Blue>escapeAttributes</font> xmlEscaper atts <font color=Red>=</font>+<a name="line-115"></a>   map+<a name="line-116"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>escapeAttValue xmlEscaper av<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-117"></a>      atts+<a name="line-118"></a>+<a name="line-119"></a><a name="escapeAttValue"></a><font color=Blue>escapeAttValue</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> AttValue <font color=Red>-&gt;</font> AttValue+<a name="line-120"></a><font color=Blue>escapeAttValue</font> xmlEscaper <font color=Cyan>(</font>AttValue attValList<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-121"></a>   AttValue <font color=Cyan>(</font>+<a name="line-122"></a>      concat <font color=Cyan>(</font>+<a name="line-123"></a>         map+<a name="line-124"></a>            <font color=Cyan>(</font><font color=Red>\</font> av <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> av <font color=Green><u>of</u></font>+<a name="line-125"></a>               Right <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> <font color=Red>[</font>av<font color=Red>]</font>+<a name="line-126"></a>               Left s <font color=Red>-&gt;</font>+<a name="line-127"></a>                  map+<a name="line-128"></a>                     <font color=Cyan>(</font><font color=Red>\</font> c <font color=Red>-&gt;</font> <font color=Green><u>if</u></font> isEscape xmlEscaper c+<a name="line-129"></a>                        <font color=Green><u>then</u></font>+<a name="line-130"></a>                           Right <font color=Cyan>(</font>mkEscape xmlEscaper c<font color=Cyan>)</font>+<a name="line-131"></a>                        <font color=Green><u>else</u></font>+<a name="line-132"></a>                           Left <font color=Red>[</font>c<font color=Red>]</font>+<a name="line-133"></a>                        <font color=Cyan>)</font>+<a name="line-134"></a>                     s+<a name="line-135"></a>               <font color=Cyan>)</font>+<a name="line-136"></a>            attValList+<a name="line-137"></a>         <font color=Cyan>)</font>+<a name="line-138"></a>      <font color=Cyan>)</font>+<a name="line-139"></a>+<a name="line-140"></a><a name="escapeContent"></a><font color=Blue>escapeContent</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-141"></a><font color=Blue>escapeContent</font> xmlEscaper contents <font color=Red>=</font>+<a name="line-142"></a>   concat+<a name="line-143"></a>      <font color=Cyan>(</font>map+<a name="line-144"></a>          <font color=Cyan>(</font><font color=Red>\</font> content <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> content <font color=Green><u>of</u></font>+<a name="line-145"></a>             <font color=Cyan>(</font>CString b str i<font color=Cyan>)</font> <font color=Red>-&gt;</font>+<a name="line-146"></a>                map+<a name="line-147"></a>                   <font color=Cyan>(</font><font color=Red>\</font> c <font color=Red>-&gt;</font> <font color=Green><u>if</u></font> isEscape xmlEscaper c+<a name="line-148"></a>                      <font color=Green><u>then</u></font>+<a name="line-149"></a>                         CRef <font color=Cyan>(</font>mkEscape xmlEscaper c<font color=Cyan>)</font> i+<a name="line-150"></a>                      <font color=Green><u>else</u></font>+<a name="line-151"></a>                         CString b <font color=Red>[</font>c<font color=Red>]</font> i+<a name="line-152"></a>                      <font color=Cyan>)</font>+<a name="line-153"></a>                   str+<a name="line-154"></a>             <font color=Cyan>(</font>CElem element i<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CElem <font color=Cyan>(</font>escapeElement xmlEscaper element<font color=Cyan>)</font> i<font color=Red>]</font>+<a name="line-155"></a>             <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> <font color=Red>[</font>content<font color=Red>]</font>+<a name="line-156"></a>             <font color=Cyan>)</font>+<a name="line-157"></a>          contents+<a name="line-158"></a>          <font color=Cyan>)</font>+<a name="line-159"></a>+<a name="line-160"></a><a name="mkEscape"></a><font color=Blue>mkEscape</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Char <font color=Red>-&gt;</font> Reference+<a name="line-161"></a><font color=Blue>mkEscape</font> <font color=Cyan>(</font>XmlEscaper <font color=Cyan>{</font>toEscape <font color=Red>=</font> toescape<font color=Cyan>}</font><font color=Cyan>)</font> ch <font color=Red>=</font>+<a name="line-162"></a>   <font color=Green><u>case</u></font> lookupFM toescape ch <font color=Green><u>of</u></font>+<a name="line-163"></a>      Nothing  <font color=Red>-&gt;</font> RefChar <font color=Cyan>(</font>ord ch<font color=Cyan>)</font>+<a name="line-164"></a>      Just str <font color=Red>-&gt;</font> RefEntity str+<a name="line-165"></a><font color=Blue>--    where</font>+<a name="line-166"></a><font color=Blue>--       _ = showIntAtBase 16 intToDigit</font>+<a name="line-167"></a><font color=Blue>--       -- It should be, but in GHC it isn't.</font>+<a name="line-168"></a>+<a name="line-169"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-170"></a><font color=Blue>-- Unescaping</font>+<a name="line-171"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-172"></a>+<a name="line-173"></a><a name="xmlUnEscape"></a><font color=Blue>xmlUnEscape</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i+<a name="line-174"></a><font color=Blue>xmlUnEscape</font> xmlEscaper element <font color=Red>=</font>+<a name="line-175"></a>   compressElement <font color=Cyan>(</font>unEscapeElement xmlEscaper element<font color=Cyan>)</font>+<a name="line-176"></a>+<a name="line-177"></a><a name="xmlUnEscapeContent"></a><font color=Blue>xmlUnEscapeContent</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-178"></a><font color=Blue>xmlUnEscapeContent</font> xmlEscaper cs <font color=Red>=</font>+<a name="line-179"></a>   compressContent <font color=Cyan>(</font>unEscapeContent xmlEscaper cs<font color=Cyan>)</font>+<a name="line-180"></a>+<a name="line-181"></a><a name="unEscapeElement"></a><font color=Blue>unEscapeElement</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Element i <font color=Red>-&gt;</font> Element i+<a name="line-182"></a><font color=Blue>unEscapeElement</font> xmlEscaper <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-183"></a>   Elem name <font color=Cyan>(</font>unEscapeAttributes xmlEscaper attributes<font color=Cyan>)</font>+<a name="line-184"></a>      <font color=Cyan>(</font>unEscapeContent xmlEscaper content<font color=Cyan>)</font>+<a name="line-185"></a>+<a name="line-186"></a><a name="unEscapeAttributes"></a><font color=Blue>unEscapeAttributes</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Attribute<font color=Red>]</font>+<a name="line-187"></a><font color=Blue>unEscapeAttributes</font> xmlEscaper atts <font color=Red>=</font>+<a name="line-188"></a>   map+<a name="line-189"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>unEscapeAttValue xmlEscaper av<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-190"></a>      atts+<a name="line-191"></a>+<a name="line-192"></a><a name="unEscapeAttValue"></a><font color=Blue>unEscapeAttValue</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> AttValue <font color=Red>-&gt;</font> AttValue+<a name="line-193"></a><font color=Blue>unEscapeAttValue</font> xmlEscaper <font color=Cyan>(</font>AttValue attValList<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-194"></a>   AttValue <font color=Cyan>(</font>+<a name="line-195"></a>      map+<a name="line-196"></a>         <font color=Cyan>(</font><font color=Red>\</font> av <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> av <font color=Green><u>of</u></font>+<a name="line-197"></a>            Left <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> av+<a name="line-198"></a>            Right ref <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> unEscapeChar xmlEscaper ref <font color=Green><u>of</u></font>+<a name="line-199"></a>               Just c <font color=Red>-&gt;</font> Left <font color=Red>[</font>c<font color=Red>]</font>+<a name="line-200"></a>               Nothing <font color=Red>-&gt;</font> av+<a name="line-201"></a>            <font color=Cyan>)</font>+<a name="line-202"></a>         attValList+<a name="line-203"></a>      <font color=Cyan>)</font>+<a name="line-204"></a>+<a name="line-205"></a><a name="unEscapeContent"></a><font color=Blue>unEscapeContent</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-206"></a><font color=Blue>unEscapeContent</font> xmlEscaper content <font color=Red>=</font>+<a name="line-207"></a>   map+<a name="line-208"></a>      <font color=Cyan>(</font><font color=Red>\</font> cntnt <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> cntnt <font color=Green><u>of</u></font>+<a name="line-209"></a>         CRef ref i <font color=Red>-&gt;</font> <font color=Green><u>case</u></font> unEscapeChar xmlEscaper ref <font color=Green><u>of</u></font>+<a name="line-210"></a>            Just c <font color=Red>-&gt;</font> CString False <font color=Red>[</font>c<font color=Red>]</font> i+<a name="line-211"></a>            Nothing <font color=Red>-&gt;</font> cntnt+<a name="line-212"></a>         CElem element i <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>unEscapeElement xmlEscaper element<font color=Cyan>)</font> i+<a name="line-213"></a>         <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> cntnt+<a name="line-214"></a>         <font color=Cyan>)</font>+<a name="line-215"></a>      content+<a name="line-216"></a>+<a name="line-217"></a><a name="unEscapeChar"></a><font color=Blue>unEscapeChar</font> <font color=Red>::</font> XmlEscaper <font color=Red>-&gt;</font> Reference <font color=Red>-&gt;</font> Maybe Char+<a name="line-218"></a><font color=Blue>unEscapeChar</font> xmlEscaper ref <font color=Red>=</font>+<a name="line-219"></a>   <font color=Green><u>case</u></font> ref <font color=Green><u>of</u></font>+<a name="line-220"></a>      RefChar i      <font color=Red>-&gt;</font> Just <font color=Cyan>(</font>chr i<font color=Cyan>)</font>+<a name="line-221"></a>      RefEntity name <font color=Red>-&gt;</font> lookupFM <font color=Cyan>(</font>fromEscape xmlEscaper<font color=Cyan>)</font> name+<a name="line-222"></a>+<a name="line-223"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-224"></a><font color=Blue>-- After escaping and unescaping we rebuild the lists, compressing</font>+<a name="line-225"></a><font color=Blue>-- adjacent identical character data.</font>+<a name="line-226"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-227"></a>+<a name="line-228"></a><a name="compressElement"></a><font color=Blue>compressElement</font> <font color=Red>::</font> Element i <font color=Red>-&gt;</font> Element i+<a name="line-229"></a><font color=Blue>compressElement</font> <font color=Cyan>(</font>Elem name attributes content<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-230"></a>   Elem name <font color=Cyan>(</font>compressAttributes attributes<font color=Cyan>)</font> <font color=Cyan>(</font>compressContent content<font color=Cyan>)</font>+<a name="line-231"></a>+<a name="line-232"></a><a name="compressAttributes"></a><font color=Blue>compressAttributes</font> <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font>AttValue<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font>AttValue<font color=Cyan>)</font><font color=Red>]</font>+<a name="line-233"></a><font color=Blue>compressAttributes</font> atts <font color=Red>=</font>+<a name="line-234"></a>   map+<a name="line-235"></a>      <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>av<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>name<font color=Cyan>,</font>compressAttValue av<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-236"></a>      atts+<a name="line-237"></a>+<a name="line-238"></a><a name="compressAttValue"></a><font color=Blue>compressAttValue</font> <font color=Red>::</font> AttValue <font color=Red>-&gt;</font> AttValue+<a name="line-239"></a><font color=Blue>compressAttValue</font> <font color=Cyan>(</font>AttValue l<font color=Cyan>)</font> <font color=Red>=</font> AttValue <font color=Cyan>(</font>compress l<font color=Cyan>)</font>+<a name="line-240"></a>   <font color=Green><u>where</u></font>+<a name="line-241"></a>      compress <font color=Red>::</font> <font color=Red>[</font>Either String Reference<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Either String Reference<font color=Red>]</font>+<a name="line-242"></a>      compress [] <font color=Red>=</font> []+<a name="line-243"></a>      compress <font color=Cyan>(</font>Right ref <font color=Red><b>:</b></font> es<font color=Cyan>)</font> <font color=Red>=</font> Right ref <font color=Red><b>:</b></font> <font color=Cyan>(</font>compress es<font color=Cyan>)</font>+<a name="line-244"></a>      compress <font color=Cyan>(</font> <font color=Cyan>(</font>ls <font color=Red>@</font> <font color=Cyan>(</font>Left s1<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red><b>:</b></font> es<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-245"></a>         <font color=Green><u>case</u></font> compress es <font color=Green><u>of</u></font>+<a name="line-246"></a>            <font color=Cyan>(</font>Left s2 <font color=Red><b>:</b></font> es2<font color=Cyan>)</font> <font color=Red>-&gt;</font> Left <font color=Cyan>(</font>s1 <font color=Cyan>++</font> s2<font color=Cyan>)</font> <font color=Red><b>:</b></font> es2+<a name="line-247"></a>            es2 <font color=Red>-&gt;</font> ls <font color=Red><b>:</b></font> es2+<a name="line-248"></a>+<a name="line-249"></a><a name="compressContent"></a><font color=Blue>compressContent</font> <font color=Red>::</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>Content i<font color=Red>]</font>+<a name="line-250"></a><font color=Blue>compressContent</font> [] <font color=Red>=</font> []+<a name="line-251"></a><font color=Blue>compressContent</font> <font color=Cyan>(</font><font color=Cyan>(</font>csb <font color=Red>@</font> <font color=Cyan>(</font>CString b1 s1 i1<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-252"></a>   <font color=Green><u>case</u></font> compressContent cs <font color=Green><u>of</u></font>+<a name="line-253"></a>      <font color=Cyan>(</font>CString b2 s2 <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red><b>:</b></font> cs2+<a name="line-254"></a>          <font color=Red>|</font> b1 <font color=Cyan>==</font> b2+<a name="line-255"></a>          <font color=Red>-&gt;</font> CString b1 <font color=Cyan>(</font>s1 <font color=Cyan>++</font> s2<font color=Cyan>)</font> i1<font color=Red><b>:</b></font> cs2+<a name="line-256"></a>      cs2 <font color=Red>-&gt;</font> csb <font color=Red><b>:</b></font> cs2+<a name="line-257"></a><font color=Blue>compressContent</font> <font color=Cyan>(</font>CElem element i <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-258"></a>   CElem <font color=Cyan>(</font>compressElement element<font color=Cyan>)</font> i <font color=Red><b>:</b></font> compressContent cs+<a name="line-259"></a><font color=Blue>compressContent</font> <font color=Cyan>(</font>c <font color=Red><b>:</b></font> cs<font color=Cyan>)</font> <font color=Red>=</font> c <font color=Red><b>:</b></font> compressContent cs+<a name="line-260"></a>+<a name="line-261"></a>+<a name="line-262"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-263"></a><font color=Blue>-- Making XmlEscaper values.</font>+<a name="line-264"></a><font color=Blue>-- ------------------------------------------------------------------------</font>+<a name="line-265"></a>+<a name="line-266"></a><a name="stdXmlEscaper"></a><font color=Blue>stdXmlEscaper</font> <font color=Red>::</font> XmlEscaper+<a name="line-267"></a><font color=Blue>stdXmlEscaper</font> <font color=Red>=</font> mkXmlEscaper+<a name="line-268"></a>   <font color=Red>[</font><font color=Cyan>(</font><font color=Magenta>'\60'</font><font color=Cyan>,</font><font color=Magenta>"lt"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\62'</font><font color=Cyan>,</font><font color=Magenta>"gt"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\38'</font><font color=Cyan>,</font><font color=Magenta>"amp"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\39'</font><font color=Cyan>,</font><font color=Magenta>"apos"</font><font color=Cyan>)</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>'\34'</font><font color=Cyan>,</font><font color=Magenta>"quot"</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-269"></a>   <font color=Cyan>(</font><font color=Red>\</font> ch <font color=Red>-&gt;</font>+<a name="line-270"></a>      <font color=Green><u>let</u></font>+<a name="line-271"></a>         i <font color=Red>=</font> ord ch+<a name="line-272"></a>      <font color=Green><u>in</u></font>+<a name="line-273"></a>         i <font color=Cyan>&lt;</font> <font color=Magenta>10</font> <font color=Cyan>||</font> <font color=Cyan>(</font><font color=Magenta>10</font><font color=Cyan>&lt;</font>i <font color=Cyan>&amp;&amp;</font> i<font color=Cyan>&lt;</font><font color=Magenta>32</font><font color=Cyan>)</font> <font color=Cyan>||</font> i <font color=Cyan>&gt;=</font> <font color=Magenta>127</font> <font color=Cyan>||</font>+<a name="line-274"></a>            <font color=Green><u>case</u></font> ch <font color=Green><u>of</u></font>+<a name="line-275"></a>               <font color=Magenta>'\''</font> <font color=Red>-&gt;</font> True+<a name="line-276"></a>               <font color=Magenta>'\"'</font> <font color=Red>-&gt;</font> True+<a name="line-277"></a>               <font color=Magenta>'&amp;'</font> <font color=Red>-&gt;</font> True+<a name="line-278"></a>               <font color=Magenta>'&lt;'</font> <font color=Red>-&gt;</font> True+<a name="line-279"></a>               <font color=Magenta>'&gt;'</font> <font color=Red>-&gt;</font> True+<a name="line-280"></a>               <font color=Green><u>_</u></font> <font color=Red>-&gt;</font> False+<a name="line-281"></a>      <font color=Cyan>)</font>+<a name="line-282"></a>+<a name="line-283"></a>+<a name="line-284"></a><a name="mkXmlEscaper"></a><font color=Blue>mkXmlEscaper</font> <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>Char<font color=Cyan>,</font>String<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>Char <font color=Red>-&gt;</font> Bool<font color=Cyan>)</font> <font color=Red>-&gt;</font> XmlEscaper+<a name="line-285"></a><font color=Blue>mkXmlEscaper</font> escapes isescape <font color=Red>=</font>+<a name="line-286"></a>   XmlEscaper <font color=Cyan>{</font>+<a name="line-287"></a>      toEscape <font color=Red>=</font> listToFM escapes<font color=Cyan>,</font>+<a name="line-288"></a>      fromEscape <font color=Red>=</font> listToFM <font color=Cyan>(</font>map <font color=Cyan>(</font><font color=Red>\</font> <font color=Cyan>(</font>c<font color=Cyan>,</font>str<font color=Cyan>)</font> <font color=Red>-&gt;</font> <font color=Cyan>(</font>str<font color=Cyan>,</font>c<font color=Cyan>)</font><font color=Cyan>)</font> escapes<font color=Cyan>)</font><font color=Cyan>,</font>+<a name="line-289"></a>      isEscape <font color=Red>=</font> isescape+<a name="line-290"></a>      <font color=Cyan>}</font>+<a name="line-291"></a> </pre>+</body> </html>

@@ -1,179 +1,185 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | These are just some common abbreviations for generating HTML</font>-<a name="(line2)"></a><font color=Blue>--   content within the XML transformation framework defined</font>-<a name="(line3)"></a><font color=Blue>--   by "Text.Xml.HaXml.Combinators".</font>-<a name="(line4)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate-<a name="(line5)"></a>  <font color=Cyan>(</font> <font color=Blue>-- * HTML construction filters</font>-<a name="(line6)"></a>  <font color=Blue>-- ** Containers</font>-<a name="(line7)"></a>    html-<a name="(line8)"></a>  <font color=Cyan>,</font> hhead-<a name="(line9)"></a>  <font color=Cyan>,</font> htitle-<a name="(line10)"></a>  <font color=Cyan>,</font> hbody-<a name="(line11)"></a>  <font color=Cyan>,</font> h1<font color=Cyan>,</font> h2<font color=Cyan>,</font> h3<font color=Cyan>,</font> h4-<a name="(line12)"></a>  <font color=Cyan>,</font> hpara-<a name="(line13)"></a>  <font color=Cyan>,</font> hdiv<font color=Cyan>,</font> hspan<font color=Cyan>,</font> margin-<a name="(line14)"></a>  <font color=Blue>-- ** Anchors</font>-<a name="(line15)"></a>  <font color=Cyan>,</font> anchor<font color=Cyan>,</font> makehref<font color=Cyan>,</font> anchorname-<a name="(line16)"></a>  <font color=Blue>-- ** Text style</font>-<a name="(line17)"></a>  <font color=Cyan>,</font> hpre-<a name="(line18)"></a>  <font color=Cyan>,</font> hcentre-<a name="(line19)"></a>  <font color=Cyan>,</font> hem<font color=Cyan>,</font> htt<font color=Cyan>,</font> hbold-<a name="(line20)"></a>  <font color=Cyan>,</font> parens<font color=Cyan>,</font> bullet-<a name="(line21)"></a>  <font color=Blue>-- ** Tables</font>-<a name="(line22)"></a>  <font color=Cyan>,</font> htable<font color=Cyan>,</font> hrow<font color=Cyan>,</font> hcol-<a name="(line23)"></a>  <font color=Blue>-- ** Breaks, lines</font>-<a name="(line24)"></a>  <font color=Cyan>,</font> hbr<font color=Cyan>,</font> hhr-<a name="(line25)"></a>  <font color=Blue>-- ** Attributes</font>-<a name="(line26)"></a>  <font color=Cyan>,</font> showattr<font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font>-<a name="(line27)"></a>  <font color=Blue>-- * A simple HTML pretty-printer</font>-<a name="(line28)"></a>  <font color=Cyan>,</font> htmlprint-<a name="(line29)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line30)"></a>-<a name="(line31)"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isSpace<font color=Cyan>)</font>-<a name="(line32)"></a>-<a name="(line33)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line34)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators-<a name="(line35)"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ <font color=Green><u>as</u></font> Pretty-<a name="(line36)"></a>-<a name="(line37)"></a><font color=Blue>---- Constructor functions</font>-<a name="(line38)"></a>-<a name="(line39)"></a><a name="html"></a>html<font color=Cyan>,</font> hhead<font color=Cyan>,</font> htitle<font color=Cyan>,</font> hbody<font color=Cyan>,</font> h1<font color=Cyan>,</font> h2<font color=Cyan>,</font> h3<font color=Cyan>,</font> h4<font color=Cyan>,</font> hpara<font color=Cyan>,</font> hpre<font color=Cyan>,</font> hcentre<font color=Cyan>,</font>-<a name="(line40)"></a>    hem<font color=Cyan>,</font> htt<font color=Cyan>,</font> hbold<font color=Cyan>,</font> htable<font color=Cyan>,</font> hrow<font color=Cyan>,</font> hcol<font color=Cyan>,</font> hdiv<font color=Cyan>,</font> hspan<font color=Cyan>,</font> margin-<a name="(line41)"></a>       <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line42)"></a>html    <font color=Red>=</font> mkElem <font color=Magenta>"html"</font>-<a name="(line43)"></a><a name="hhead"></a>hhead   <font color=Red>=</font> mkElem <font color=Magenta>"head"</font>-<a name="(line44)"></a><a name="htitle"></a>htitle  <font color=Red>=</font> mkElem <font color=Magenta>"title"</font>-<a name="(line45)"></a><a name="hbody"></a>hbody   <font color=Red>=</font> mkElem <font color=Magenta>"body"</font>-<a name="(line46)"></a><a name="h1"></a>h1      <font color=Red>=</font> mkElem <font color=Magenta>"h1"</font>-<a name="(line47)"></a><a name="h2"></a>h2      <font color=Red>=</font> mkElem <font color=Magenta>"h2"</font>-<a name="(line48)"></a><a name="h3"></a>h3      <font color=Red>=</font> mkElem <font color=Magenta>"h3"</font>-<a name="(line49)"></a><a name="h4"></a>h4      <font color=Red>=</font> mkElem <font color=Magenta>"h4"</font>-<a name="(line50)"></a><a name="hpara"></a>hpara   <font color=Red>=</font> mkElem <font color=Magenta>"p"</font>-<a name="(line51)"></a><a name="hpre"></a>hpre    <font color=Red>=</font> mkElem <font color=Magenta>"pre"</font>-<a name="(line52)"></a><a name="hcentre"></a>hcentre <font color=Red>=</font> mkElem <font color=Magenta>"center"</font>-<a name="(line53)"></a><a name="hem"></a>hem     <font color=Red>=</font> mkElem <font color=Magenta>"em"</font>-<a name="(line54)"></a><a name="htt"></a>htt     <font color=Red>=</font> mkElem <font color=Magenta>"tt"</font>-<a name="(line55)"></a><a name="hbold"></a>hbold   <font color=Red>=</font> mkElem <font color=Magenta>"b"</font>-<a name="(line56)"></a>-<a name="(line57)"></a><a name="htable"></a>htable <font color=Red>=</font> mkElem <font color=Magenta>"table"</font>-<a name="(line58)"></a><a name="hrow"></a>hrow   <font color=Red>=</font> mkElem <font color=Magenta>"tr"</font>-<a name="(line59)"></a><a name="hcol"></a>hcol   <font color=Red>=</font> mkElem <font color=Magenta>"td"</font>-<a name="(line60)"></a>-<a name="(line61)"></a><a name="hdiv"></a>hdiv   <font color=Red>=</font> mkElem <font color=Magenta>"div"</font>-<a name="(line62)"></a><a name="hspan"></a>hspan  <font color=Red>=</font> mkElem <font color=Magenta>"span"</font>-<a name="(line63)"></a><a name="margin"></a>margin <font color=Red>=</font> mkElemAttr <font color=Magenta>"div"</font> <font color=Red>[</font><font color=Cyan>(</font><font color=Magenta>"margin-left"</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>"2em"</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>,</font>-<a name="(line64)"></a>                           <font color=Cyan>(</font><font color=Magenta>"margin-top"</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"1em"</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line65)"></a>-<a name="(line66)"></a><a name="anchor"></a>anchor      <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font> CFilter i<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter  i-<a name="(line67)"></a>anchor       <font color=Red>=</font> mkElemAttr <font color=Magenta>"a"</font>-<a name="(line68)"></a>-<a name="(line69)"></a><a name="makehref"></a>makehref<font color=Cyan>,</font> anchorname <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line70)"></a>makehref r   <font color=Red>=</font> anchor <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"href"</font><font color=Cyan>,</font>r<font color=Cyan>)</font> <font color=Red>]</font>-<a name="(line71)"></a><a name="anchorname"></a>anchorname n <font color=Red>=</font> anchor <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"name"</font><font color=Cyan>,</font>n<font color=Cyan>)</font> <font color=Red>]</font>-<a name="(line72)"></a>-<a name="(line73)"></a>-<a name="(line74)"></a><a name="hbr"></a>hbr<font color=Cyan>,</font> hhr <font color=Red>::</font> CFilter i-<a name="(line75)"></a>hbr       <font color=Red>=</font> mkElem <font color=Magenta>"br"</font> []-<a name="(line76)"></a><a name="hhr"></a>hhr       <font color=Red>=</font> mkElem <font color=Magenta>"hr"</font> []-<a name="(line77)"></a>-<a name="(line78)"></a>-<a name="(line79)"></a><a name="showattr"></a>showattr<font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i-<a name="(line80)"></a>showattr n <font color=Red>=</font> find n literal-<a name="(line81)"></a><a name="!"></a><font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font> <font color=Red>=</font> literal-<a name="(line82)"></a><a name="?"></a><font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font> <font color=Red>=</font> showattr-<a name="(line83)"></a>-<a name="(line84)"></a><a name="parens"></a>parens <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i-<a name="(line85)"></a>parens f <font color=Red>=</font> cat <font color=Red>[</font> literal <font color=Magenta>"("</font><font color=Cyan>,</font> f<font color=Cyan>,</font> literal <font color=Magenta>")"</font> <font color=Red>]</font>-<a name="(line86)"></a>-<a name="(line87)"></a><a name="bullet"></a>bullet <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i-<a name="(line88)"></a>bullet <font color=Red>=</font> cat <font color=Cyan>.</font> <font color=Cyan>(</font>literal <font color=Magenta>"M-^U"</font><font color=Red><b>:</b></font><font color=Cyan>)</font>-<a name="(line89)"></a>-<a name="(line90)"></a>-<a name="(line91)"></a><font color=Blue>---- Printing function</font>-<a name="(line92)"></a>-<a name="(line93)"></a><font color=Blue>-- htmlprint :: [Content] -&gt; String</font>-<a name="(line94)"></a><font color=Blue>-- htmlprint = concatMap cprint</font>-<a name="(line95)"></a><font color=Blue>--   where</font>-<a name="(line96)"></a><font color=Blue>--   cprint (CElem e _) = elem e</font>-<a name="(line97)"></a><font color=Blue>--   cprint (CString _ s) = s</font>-<a name="(line98)"></a><font color=Blue>--   cprint (CMisc m) = ""</font>-<a name="(line99)"></a><font color=Blue>--</font>-<a name="(line100)"></a><font color=Blue>--   elem (Elem n as []) = "\n&lt;"++n++attrs as++" /&gt;"</font>-<a name="(line101)"></a><font color=Blue>--   elem (Elem n as cs) = "\n&lt;"++n++attrs as++"&gt;"++htmlprint cs++"\n&lt;/"++n++"&gt;"</font>-<a name="(line102)"></a><font color=Blue>--</font>-<a name="(line103)"></a><font color=Blue>--   attrs = concatMap attr</font>-<a name="(line104)"></a><font color=Blue>--   attr (n,v) = " "++n++"='"++v++"'"</font>-<a name="(line105)"></a>-<a name="(line106)"></a>-<a name="(line107)"></a><a name="htmlprint"></a>htmlprint <font color=Red>::</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> Pretty<font color=Cyan>.</font>Doc-<a name="(line108)"></a>htmlprint <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>.</font> map cprint <font color=Cyan>.</font> foldrefs-<a name="(line109)"></a>  <font color=Green><u>where</u></font>-<a name="(line110)"></a>  foldrefs [] <font color=Red>=</font> []-<a name="(line111)"></a>  foldrefs <font color=Cyan>(</font>CString ws s1 i<font color=Red><b>:</b></font>CRef r <font color=Green><u>_</u></font><font color=Red><b>:</b></font>CString <font color=Green><u>_</u></font> s2 <font color=Green><u>_</u></font><font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line112)"></a>              CString ws <font color=Cyan>(</font>s1<font color=Cyan>++</font><font color=Magenta>"&amp;"</font><font color=Cyan>++</font>ref r<font color=Cyan>++</font><font color=Magenta>";"</font><font color=Cyan>++</font>s2<font color=Cyan>)</font> i<font color=Red><b>:</b></font> foldrefs cs-<a name="(line113)"></a>  foldrefs <font color=Cyan>(</font>c<font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>=</font> c <font color=Red><b>:</b></font> foldrefs cs-<a name="(line114)"></a>-<a name="(line115)"></a><font color=Blue>--ref (RefEntity (EntityRef n)) = n     -- Actually, should look-up symtable.</font>-<a name="(line116)"></a><font color=Blue>--ref (RefChar (CharRef s)) = s</font>-<a name="(line117)"></a>  ref <font color=Cyan>(</font>RefEntity n<font color=Cyan>)</font> <font color=Red>=</font> n <font color=Blue>-- Actually, should look-up symtable.</font>-<a name="(line118)"></a>  ref <font color=Cyan>(</font>RefChar s<font color=Cyan>)</font> <font color=Red>=</font> show s-<a name="(line119)"></a>-<a name="(line120)"></a>  cprint <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> element e-<a name="(line121)"></a>  cprint <font color=Cyan>(</font>CString ws s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>(</font>map Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font>fmt <font color=Magenta>60</font>-<a name="(line122)"></a>                                             <font color=Cyan>(</font><font color=Cyan>(</font><font color=Green><u>if</u></font> ws <font color=Green><u>then</u></font> id <font color=Green><u>else</u></font> deSpace<font color=Cyan>)</font> s<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line123)"></a>  cprint <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>=</font> Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font><font color=Magenta>"&amp;"</font><font color=Cyan>++</font>ref r<font color=Cyan>++</font><font color=Magenta>";"</font><font color=Cyan>)</font>-<a name="(line124)"></a>  cprint <font color=Cyan>(</font>CMisc <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> Pretty<font color=Cyan>.</font>empty-<a name="(line125)"></a>-<a name="(line126)"></a>  element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;"</font>   Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line127)"></a>                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line128)"></a>                        attrs <font color=Green><u>as</u></font>          Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line129)"></a>                        Pretty<font color=Cyan>.</font>text <font color=Magenta>" /&gt;"</font>-<a name="(line130)"></a>  element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line131)"></a>                    <font color=Blue>--  ( Pretty.text "&lt;"   Pretty.&lt;&gt;</font>-<a name="(line132)"></a>                    <font color=Blue>--    Pretty.text n     Pretty.&lt;&gt;</font>-<a name="(line133)"></a>                    <font color=Blue>--    attrs as          Pretty.&lt;&gt;</font>-<a name="(line134)"></a>                    <font color=Blue>--    Pretty.text "&gt;")  Pretty.$$</font>-<a name="(line135)"></a>                    <font color=Blue>--  Pretty.nest 6 (htmlprint cs)  Pretty.$$</font>-<a name="(line136)"></a>                    <font color=Blue>--  ( Pretty.text "&lt;/"  Pretty.&lt;&gt;</font>-<a name="(line137)"></a>                    <font color=Blue>--    Pretty.text n     Pretty.&lt;&gt;</font>-<a name="(line138)"></a>                    <font color=Blue>--    Pretty.text "&gt;" )</font>-<a name="(line139)"></a>                        Pretty<font color=Cyan>.</font>fcat <font color=Red>[</font> <font color=Cyan>(</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;"</font>   Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line140)"></a>                                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line141)"></a>                                        attrs <font color=Green><u>as</u></font>          Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line142)"></a>                                        Pretty<font color=Cyan>.</font>text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>-<a name="(line143)"></a>                                    <font color=Cyan>,</font> Pretty<font color=Cyan>.</font>nest <font color=Magenta>4</font> <font color=Cyan>(</font>htmlprint cs<font color=Cyan>)</font>-<a name="(line144)"></a>                                    <font color=Cyan>,</font> <font color=Cyan>(</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;/"</font>  Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line145)"></a>                                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line146)"></a>                                        Pretty<font color=Cyan>.</font>text <font color=Magenta>"&gt;"</font> <font color=Cyan>)</font>-<a name="(line147)"></a>                                    <font color=Red>]</font>-<a name="(line148)"></a>-<a name="(line149)"></a>  attrs <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>.</font> map attribute-<a name="(line150)"></a>  attribute <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line151)"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>" "</font>  Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line152)"></a>               Pretty<font color=Cyan>.</font>text n    Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line153)"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>"='"</font> Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line154)"></a>               Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font>show v<font color=Cyan>)</font> Pretty<font color=Cyan>.&lt;&gt;</font>-<a name="(line155)"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>"'"</font>-<a name="(line156)"></a>-<a name="(line157)"></a>  fmt <font color=Green><u>_</u></font> [] <font color=Red>=</font> []-<a name="(line158)"></a>  fmt n s  <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>top<font color=Cyan>,</font>bot<font color=Cyan>)</font> <font color=Red>=</font> splitAt n s-<a name="(line159)"></a>                 <font color=Cyan>(</font>word<font color=Cyan>,</font>left<font color=Cyan>)</font> <font color=Red>=</font> keepUntil isSpace <font color=Cyan>(</font>reverse top<font color=Cyan>)</font>-<a name="(line160)"></a>             <font color=Green><u>in</u></font> <font color=Green><u>if</u></font> length top <font color=Cyan>&lt;</font> n <font color=Green><u>then</u></font> <font color=Red>[</font>s<font color=Red>]</font>-<a name="(line161)"></a>                <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> not <font color=Cyan>(</font>null left<font color=Cyan>)</font> <font color=Green><u>then</u></font>-<a name="(line162)"></a>                     reverse left<font color=Red><b>:</b></font> fmt n <font color=Cyan>(</font>word<font color=Cyan>++</font>bot<font color=Cyan>)</font>-<a name="(line163)"></a>                <font color=Green><u>else</u></font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>big<font color=Cyan>,</font>rest<font color=Cyan>)</font> <font color=Red>=</font> keepUntil isSpace s-<a name="(line164)"></a>                     <font color=Green><u>in</u></font> reverse big<font color=Red><b>:</b></font> fmt n rest-<a name="(line165)"></a>-<a name="(line166)"></a>  deSpace []     <font color=Red>=</font> []-<a name="(line167)"></a>  deSpace <font color=Cyan>(</font>c<font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>|</font> c<font color=Cyan>==</font><font color=Magenta>'\n'</font>   <font color=Red>=</font> deSpace <font color=Cyan>(</font><font color=Magenta>' '</font><font color=Red><b>:</b></font>cs<font color=Cyan>)</font>-<a name="(line168)"></a>                 <font color=Red>|</font> isSpace c <font color=Red>=</font> c <font color=Red><b>:</b></font> deSpace <font color=Cyan>(</font>dropWhile isSpace cs<font color=Cyan>)</font>-<a name="(line169)"></a>                 <font color=Red>|</font> otherwise <font color=Red>=</font> c <font color=Red><b>:</b></font> deSpace cs-<a name="(line170)"></a>-<a name="(line171)"></a>  keepUntil p xs <font color=Red>=</font> select p <font color=Cyan>(</font>[]<font color=Cyan>,</font>xs<font color=Cyan>)</font>-<a name="(line172)"></a>      <font color=Green><u>where</u></font> select <font color=Green><u>_</u></font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>[]<font color=Cyan>)</font>     <font color=Red>=</font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>[]<font color=Cyan>)</font>-<a name="(line173)"></a>            select q <font color=Cyan>(</font>ls<font color=Cyan>,</font><font color=Cyan>(</font>y<font color=Red><b>:</b></font>ys<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>|</font> q y       <font color=Red>=</font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>y<font color=Red><b>:</b></font>ys<font color=Cyan>)</font>-<a name="(line174)"></a>                                 <font color=Red>|</font> otherwise <font color=Red>=</font> select q <font color=Cyan>(</font>y<font color=Red><b>:</b></font>ls<font color=Cyan>,</font>ys<font color=Cyan>)</font>-<a name="(line175)"></a>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Html/Generate.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | These are just some common abbreviations for generating HTML</font>+<a name="line-2"></a><font color=Blue>--   content within the XML transformation framework defined</font>+<a name="line-3"></a><font color=Blue>--   by "Text.Xml.HaXml.Combinators".</font>+<a name="line-4"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Generate+<a name="line-5"></a>  <font color=Cyan>(</font> <font color=Blue>-- * HTML construction filters</font>+<a name="line-6"></a>  <font color=Blue>-- ** Containers</font>+<a name="line-7"></a>    html+<a name="line-8"></a>  <font color=Cyan>,</font> hhead+<a name="line-9"></a>  <font color=Cyan>,</font> htitle+<a name="line-10"></a>  <font color=Cyan>,</font> hbody+<a name="line-11"></a>  <font color=Cyan>,</font> h1<font color=Cyan>,</font> h2<font color=Cyan>,</font> h3<font color=Cyan>,</font> h4+<a name="line-12"></a>  <font color=Cyan>,</font> hpara+<a name="line-13"></a>  <font color=Cyan>,</font> hdiv<font color=Cyan>,</font> hspan<font color=Cyan>,</font> margin+<a name="line-14"></a>  <font color=Blue>-- ** Anchors</font>+<a name="line-15"></a>  <font color=Cyan>,</font> anchor<font color=Cyan>,</font> makehref<font color=Cyan>,</font> anchorname+<a name="line-16"></a>  <font color=Blue>-- ** Text style</font>+<a name="line-17"></a>  <font color=Cyan>,</font> hpre+<a name="line-18"></a>  <font color=Cyan>,</font> hcentre+<a name="line-19"></a>  <font color=Cyan>,</font> hem<font color=Cyan>,</font> htt<font color=Cyan>,</font> hbold+<a name="line-20"></a>  <font color=Cyan>,</font> parens<font color=Cyan>,</font> bullet+<a name="line-21"></a>  <font color=Blue>-- ** Tables</font>+<a name="line-22"></a>  <font color=Cyan>,</font> htable<font color=Cyan>,</font> hrow<font color=Cyan>,</font> hcol+<a name="line-23"></a>  <font color=Blue>-- ** Breaks, lines</font>+<a name="line-24"></a>  <font color=Cyan>,</font> hbr<font color=Cyan>,</font> hhr+<a name="line-25"></a>  <font color=Blue>-- ** Attributes</font>+<a name="line-26"></a>  <font color=Cyan>,</font> showattr<font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font>+<a name="line-27"></a>  <font color=Blue>-- * A simple HTML pretty-printer</font>+<a name="line-28"></a>  <font color=Cyan>,</font> htmlprint+<a name="line-29"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-30"></a>+<a name="line-31"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isSpace<font color=Cyan>)</font>+<a name="line-32"></a>+<a name="line-33"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-34"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Combinators+<a name="line-35"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ <font color=Green><u>as</u></font> Pretty+<a name="line-36"></a>+<a name="line-37"></a><font color=Blue>---- Constructor functions</font>+<a name="line-38"></a>+<a name="line-39"></a><a name="html"></a><font color=Blue>html</font><font color=Cyan>,</font> hhead<font color=Cyan>,</font> htitle<font color=Cyan>,</font> hbody<font color=Cyan>,</font> h1<font color=Cyan>,</font> h2<font color=Cyan>,</font> h3<font color=Cyan>,</font> h4<font color=Cyan>,</font> hpara<font color=Cyan>,</font> hpre<font color=Cyan>,</font> hcentre<font color=Cyan>,</font>+<a name="line-40"></a>    hem<font color=Cyan>,</font> htt<font color=Cyan>,</font> hbold<font color=Cyan>,</font> htable<font color=Cyan>,</font> hrow<font color=Cyan>,</font> hcol<font color=Cyan>,</font> hdiv<font color=Cyan>,</font> hspan<font color=Cyan>,</font> margin+<a name="line-41"></a>       <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-42"></a><font color=Blue>html</font>    <font color=Red>=</font> mkElem <font color=Magenta>"html"</font>+<a name="line-43"></a><a name="hhead"></a><font color=Blue>hhead</font>   <font color=Red>=</font> mkElem <font color=Magenta>"head"</font>+<a name="line-44"></a><a name="htitle"></a><font color=Blue>htitle</font>  <font color=Red>=</font> mkElem <font color=Magenta>"title"</font>+<a name="line-45"></a><a name="hbody"></a><font color=Blue>hbody</font>   <font color=Red>=</font> mkElem <font color=Magenta>"body"</font>+<a name="line-46"></a><a name="h1"></a><font color=Blue>h1</font>      <font color=Red>=</font> mkElem <font color=Magenta>"h1"</font>+<a name="line-47"></a><a name="h2"></a><font color=Blue>h2</font>      <font color=Red>=</font> mkElem <font color=Magenta>"h2"</font>+<a name="line-48"></a><a name="h3"></a><font color=Blue>h3</font>      <font color=Red>=</font> mkElem <font color=Magenta>"h3"</font>+<a name="line-49"></a><a name="h4"></a><font color=Blue>h4</font>      <font color=Red>=</font> mkElem <font color=Magenta>"h4"</font>+<a name="line-50"></a><a name="hpara"></a><font color=Blue>hpara</font>   <font color=Red>=</font> mkElem <font color=Magenta>"p"</font>+<a name="line-51"></a><a name="hpre"></a><font color=Blue>hpre</font>    <font color=Red>=</font> mkElem <font color=Magenta>"pre"</font>+<a name="line-52"></a><a name="hcentre"></a><font color=Blue>hcentre</font> <font color=Red>=</font> mkElem <font color=Magenta>"center"</font>+<a name="line-53"></a><a name="hem"></a><font color=Blue>hem</font>     <font color=Red>=</font> mkElem <font color=Magenta>"em"</font>+<a name="line-54"></a><a name="htt"></a><font color=Blue>htt</font>     <font color=Red>=</font> mkElem <font color=Magenta>"tt"</font>+<a name="line-55"></a><a name="hbold"></a><font color=Blue>hbold</font>   <font color=Red>=</font> mkElem <font color=Magenta>"b"</font>+<a name="line-56"></a>+<a name="line-57"></a><a name="htable"></a><font color=Blue>htable</font> <font color=Red>=</font> mkElem <font color=Magenta>"table"</font>+<a name="line-58"></a><a name="hrow"></a><font color=Blue>hrow</font>   <font color=Red>=</font> mkElem <font color=Magenta>"tr"</font>+<a name="line-59"></a><a name="hcol"></a><font color=Blue>hcol</font>   <font color=Red>=</font> mkElem <font color=Magenta>"td"</font>+<a name="line-60"></a>+<a name="line-61"></a><a name="hdiv"></a><font color=Blue>hdiv</font>   <font color=Red>=</font> mkElem <font color=Magenta>"div"</font>+<a name="line-62"></a><a name="hspan"></a><font color=Blue>hspan</font>  <font color=Red>=</font> mkElem <font color=Magenta>"span"</font>+<a name="line-63"></a><a name="margin"></a><font color=Blue>margin</font> <font color=Red>=</font> mkElemAttr <font color=Magenta>"div"</font> <font color=Red>[</font><font color=Cyan>(</font><font color=Magenta>"margin-left"</font><font color=Cyan>,</font><font color=Cyan>(</font><font color=Magenta>"2em"</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>,</font>+<a name="line-64"></a>                           <font color=Cyan>(</font><font color=Magenta>"margin-top"</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"1em"</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-65"></a>+<a name="line-66"></a><a name="anchor"></a><font color=Blue>anchor</font>      <font color=Red>::</font> <font color=Red>[</font><font color=Cyan>(</font>String<font color=Cyan>,</font> CFilter i<font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter  i+<a name="line-67"></a><font color=Blue>anchor</font>       <font color=Red>=</font> mkElemAttr <font color=Magenta>"a"</font>+<a name="line-68"></a>+<a name="line-69"></a><a name="makehref"></a><font color=Blue>makehref</font><font color=Cyan>,</font> anchorname <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-70"></a><font color=Blue>makehref</font> r   <font color=Red>=</font> anchor <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"href"</font><font color=Cyan>,</font>r<font color=Cyan>)</font> <font color=Red>]</font>+<a name="line-71"></a><a name="anchorname"></a><font color=Blue>anchorname</font> n <font color=Red>=</font> anchor <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"name"</font><font color=Cyan>,</font>n<font color=Cyan>)</font> <font color=Red>]</font>+<a name="line-72"></a>+<a name="line-73"></a>+<a name="line-74"></a><a name="hbr"></a><font color=Blue>hbr</font><font color=Cyan>,</font> hhr <font color=Red>::</font> CFilter i+<a name="line-75"></a><font color=Blue>hbr</font>       <font color=Red>=</font> mkElem <font color=Magenta>"br"</font> []+<a name="line-76"></a><a name="hhr"></a><font color=Blue>hhr</font>       <font color=Red>=</font> mkElem <font color=Magenta>"hr"</font> []+<a name="line-77"></a>+<a name="line-78"></a>+<a name="line-79"></a><a name="showattr"></a><font color=Blue>showattr</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font><font color=Cyan>,</font> <font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> CFilter i+<a name="line-80"></a><font color=Blue>showattr</font> n <font color=Red>=</font> find n literal+<a name="line-81"></a><a name="!"></a><font color=Cyan>(</font><font color=Cyan>!</font><font color=Cyan>)</font> <font color=Red>=</font> literal+<a name="line-82"></a><a name="?"></a><font color=Cyan>(</font><font color=Cyan>?</font><font color=Cyan>)</font> <font color=Red>=</font> showattr+<a name="line-83"></a>+<a name="line-84"></a><a name="parens"></a><font color=Blue>parens</font> <font color=Red>::</font> CFilter i <font color=Red>-&gt;</font> CFilter i+<a name="line-85"></a><font color=Blue>parens</font> f <font color=Red>=</font> cat <font color=Red>[</font> literal <font color=Magenta>"("</font><font color=Cyan>,</font> f<font color=Cyan>,</font> literal <font color=Magenta>")"</font> <font color=Red>]</font>+<a name="line-86"></a>+<a name="line-87"></a><a name="bullet"></a><font color=Blue>bullet</font> <font color=Red>::</font> <font color=Red>[</font>CFilter i<font color=Red>]</font> <font color=Red>-&gt;</font> CFilter i+<a name="line-88"></a><font color=Blue>bullet</font> <font color=Red>=</font> cat <font color=Cyan>.</font> <font color=Cyan>(</font>literal <font color=Magenta>"M-^U"</font><font color=Red><b>:</b></font><font color=Cyan>)</font>+<a name="line-89"></a>+<a name="line-90"></a>+<a name="line-91"></a><font color=Blue>---- Printing function</font>+<a name="line-92"></a>+<a name="line-93"></a><font color=Blue>-- htmlprint :: [Content] -&gt; String</font>+<a name="line-94"></a><font color=Blue>-- htmlprint = concatMap cprint</font>+<a name="line-95"></a><font color=Blue>--   where</font>+<a name="line-96"></a><font color=Blue>--   cprint (CElem e _) = elem e</font>+<a name="line-97"></a><font color=Blue>--   cprint (CString _ s) = s</font>+<a name="line-98"></a><font color=Blue>--   cprint (CMisc m) = ""</font>+<a name="line-99"></a><font color=Blue>--</font>+<a name="line-100"></a><font color=Blue>--   elem (Elem n as []) = "\n&lt;"++n++attrs as++" /&gt;"</font>+<a name="line-101"></a><font color=Blue>--   elem (Elem n as cs) = "\n&lt;"++n++attrs as++"&gt;"++htmlprint cs++"\n&lt;/"++n++"&gt;"</font>+<a name="line-102"></a><font color=Blue>--</font>+<a name="line-103"></a><font color=Blue>--   attrs = concatMap attr</font>+<a name="line-104"></a><font color=Blue>--   attr (n,v) = " "++n++"='"++v++"'"</font>+<a name="line-105"></a>+<a name="line-106"></a>+<a name="line-107"></a><a name="htmlprint"></a><font color=Blue>htmlprint</font> <font color=Red>::</font> <font color=Red>[</font>Content i<font color=Red>]</font> <font color=Red>-&gt;</font> Pretty<font color=Cyan>.</font>Doc+<a name="line-108"></a><font color=Blue>htmlprint</font> <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>.</font> map cprint <font color=Cyan>.</font> foldrefs+<a name="line-109"></a>  <font color=Green><u>where</u></font>+<a name="line-110"></a>  foldrefs [] <font color=Red>=</font> []+<a name="line-111"></a>  foldrefs <font color=Cyan>(</font>CString ws s1 i<font color=Red><b>:</b></font>CRef r <font color=Green><u>_</u></font><font color=Red><b>:</b></font>CString <font color=Green><u>_</u></font> s2 <font color=Green><u>_</u></font><font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-112"></a>              CString ws <font color=Cyan>(</font>s1<font color=Cyan>++</font><font color=Magenta>"&amp;"</font><font color=Cyan>++</font>ref r<font color=Cyan>++</font><font color=Magenta>";"</font><font color=Cyan>++</font>s2<font color=Cyan>)</font> i<font color=Red><b>:</b></font> foldrefs cs+<a name="line-113"></a>  foldrefs <font color=Cyan>(</font>c<font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>=</font> c <font color=Red><b>:</b></font> foldrefs cs+<a name="line-114"></a>+<a name="line-115"></a><font color=Blue>--ref (RefEntity (EntityRef n)) = n     -- Actually, should look-up symtable.</font>+<a name="line-116"></a><font color=Blue>--ref (RefChar (CharRef s)) = s</font>+<a name="line-117"></a>  ref <font color=Cyan>(</font>RefEntity n<font color=Cyan>)</font> <font color=Red>=</font> n <font color=Blue>-- Actually, should look-up symtable.</font>+<a name="line-118"></a>  ref <font color=Cyan>(</font>RefChar s<font color=Cyan>)</font> <font color=Red>=</font> show s+<a name="line-119"></a>+<a name="line-120"></a>  cprint <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> element e+<a name="line-121"></a>  cprint <font color=Cyan>(</font>CString ws s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>(</font>map Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font>fmt <font color=Magenta>60</font>+<a name="line-122"></a>                                             <font color=Cyan>(</font><font color=Cyan>(</font><font color=Green><u>if</u></font> ws <font color=Green><u>then</u></font> id <font color=Green><u>else</u></font> deSpace<font color=Cyan>)</font> s<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-123"></a>  cprint <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>=</font> Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font><font color=Magenta>"&amp;"</font><font color=Cyan>++</font>ref r<font color=Cyan>++</font><font color=Magenta>";"</font><font color=Cyan>)</font>+<a name="line-124"></a>  cprint <font color=Cyan>(</font>CMisc <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> Pretty<font color=Cyan>.</font>empty+<a name="line-125"></a>+<a name="line-126"></a>  element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;"</font>   Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-127"></a>                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-128"></a>                        attrs <font color=Green><u>as</u></font>          Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-129"></a>                        Pretty<font color=Cyan>.</font>text <font color=Magenta>" /&gt;"</font>+<a name="line-130"></a>  element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-131"></a>                    <font color=Blue>--  ( Pretty.text "&lt;"   Pretty.&lt;&gt;</font>+<a name="line-132"></a>                    <font color=Blue>--    Pretty.text n     Pretty.&lt;&gt;</font>+<a name="line-133"></a>                    <font color=Blue>--    attrs as          Pretty.&lt;&gt;</font>+<a name="line-134"></a>                    <font color=Blue>--    Pretty.text "&gt;")  Pretty.$$</font>+<a name="line-135"></a>                    <font color=Blue>--  Pretty.nest 6 (htmlprint cs)  Pretty.$$</font>+<a name="line-136"></a>                    <font color=Blue>--  ( Pretty.text "&lt;/"  Pretty.&lt;&gt;</font>+<a name="line-137"></a>                    <font color=Blue>--    Pretty.text n     Pretty.&lt;&gt;</font>+<a name="line-138"></a>                    <font color=Blue>--    Pretty.text "&gt;" )</font>+<a name="line-139"></a>                        Pretty<font color=Cyan>.</font>fcat <font color=Red>[</font> <font color=Cyan>(</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;"</font>   Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-140"></a>                                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-141"></a>                                        attrs <font color=Green><u>as</u></font>          Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-142"></a>                                        Pretty<font color=Cyan>.</font>text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>+<a name="line-143"></a>                                    <font color=Cyan>,</font> Pretty<font color=Cyan>.</font>nest <font color=Magenta>4</font> <font color=Cyan>(</font>htmlprint cs<font color=Cyan>)</font>+<a name="line-144"></a>                                    <font color=Cyan>,</font> <font color=Cyan>(</font> Pretty<font color=Cyan>.</font>text <font color=Magenta>"&lt;/"</font>  Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-145"></a>                                        Pretty<font color=Cyan>.</font>text n     Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-146"></a>                                        Pretty<font color=Cyan>.</font>text <font color=Magenta>"&gt;"</font> <font color=Cyan>)</font>+<a name="line-147"></a>                                    <font color=Red>]</font>+<a name="line-148"></a>+<a name="line-149"></a>  attrs <font color=Red>=</font> Pretty<font color=Cyan>.</font>cat <font color=Cyan>.</font> map attribute+<a name="line-150"></a>  attribute <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-151"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>" "</font>  Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-152"></a>               Pretty<font color=Cyan>.</font>text n    Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-153"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>"='"</font> Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-154"></a>               Pretty<font color=Cyan>.</font>text <font color=Cyan>(</font>show v<font color=Cyan>)</font> Pretty<font color=Cyan>.&lt;&gt;</font>+<a name="line-155"></a>               Pretty<font color=Cyan>.</font>text <font color=Magenta>"'"</font>+<a name="line-156"></a>+<a name="line-157"></a>  fmt <font color=Green><u>_</u></font> [] <font color=Red>=</font> []+<a name="line-158"></a>  fmt n s  <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>top<font color=Cyan>,</font>bot<font color=Cyan>)</font> <font color=Red>=</font> splitAt n s+<a name="line-159"></a>                 <font color=Cyan>(</font>word<font color=Cyan>,</font>left<font color=Cyan>)</font> <font color=Red>=</font> keepUntil isSpace <font color=Cyan>(</font>reverse top<font color=Cyan>)</font>+<a name="line-160"></a>             <font color=Green><u>in</u></font> <font color=Green><u>if</u></font> length top <font color=Cyan>&lt;</font> n <font color=Green><u>then</u></font> <font color=Red>[</font>s<font color=Red>]</font>+<a name="line-161"></a>                <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> not <font color=Cyan>(</font>null left<font color=Cyan>)</font> <font color=Green><u>then</u></font>+<a name="line-162"></a>                     reverse left<font color=Red><b>:</b></font> fmt n <font color=Cyan>(</font>word<font color=Cyan>++</font>bot<font color=Cyan>)</font>+<a name="line-163"></a>                <font color=Green><u>else</u></font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>big<font color=Cyan>,</font>rest<font color=Cyan>)</font> <font color=Red>=</font> keepUntil isSpace s+<a name="line-164"></a>                     <font color=Green><u>in</u></font> reverse big<font color=Red><b>:</b></font> fmt n rest+<a name="line-165"></a>+<a name="line-166"></a>  deSpace []     <font color=Red>=</font> []+<a name="line-167"></a>  deSpace <font color=Cyan>(</font>c<font color=Red><b>:</b></font>cs<font color=Cyan>)</font> <font color=Red>|</font> c<font color=Cyan>==</font><font color=Magenta>'\n'</font>   <font color=Red>=</font> deSpace <font color=Cyan>(</font><font color=Magenta>' '</font><font color=Red><b>:</b></font>cs<font color=Cyan>)</font>+<a name="line-168"></a>                 <font color=Red>|</font> isSpace c <font color=Red>=</font> c <font color=Red><b>:</b></font> deSpace <font color=Cyan>(</font>dropWhile isSpace cs<font color=Cyan>)</font>+<a name="line-169"></a>                 <font color=Red>|</font> otherwise <font color=Red>=</font> c <font color=Red><b>:</b></font> deSpace cs+<a name="line-170"></a>+<a name="line-171"></a>  keepUntil p xs <font color=Red>=</font> select p <font color=Cyan>(</font>[]<font color=Cyan>,</font>xs<font color=Cyan>)</font>+<a name="line-172"></a>      <font color=Green><u>where</u></font> select <font color=Green><u>_</u></font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>[]<font color=Cyan>)</font>     <font color=Red>=</font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>[]<font color=Cyan>)</font>+<a name="line-173"></a>            select q <font color=Cyan>(</font>ls<font color=Cyan>,</font><font color=Cyan>(</font>y<font color=Red><b>:</b></font>ys<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>|</font> q y       <font color=Red>=</font> <font color=Cyan>(</font>ls<font color=Cyan>,</font>y<font color=Red><b>:</b></font>ys<font color=Cyan>)</font>+<a name="line-174"></a>                                 <font color=Red>|</font> otherwise <font color=Red>=</font> select q <font color=Cyan>(</font>y<font color=Red><b>:</b></font>ls<font color=Cyan>,</font>ys<font color=Cyan>)</font>+<a name="line-175"></a> </pre>+</body> </html>

@@ -1,728 +1,734 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | This is a parser for HTML documents.  Unlike for XML documents, it</font>-<a name="(line2)"></a><font color=Blue>--   must include a certain amount of error-correction to account for</font>-<a name="(line3)"></a><font color=Blue>--   HTML features like self-terminating tags, unterminated tags, and</font>-<a name="(line4)"></a><font color=Blue>--   incorrect nesting.  The input is tokenised by the</font>-<a name="(line5)"></a><font color=Blue>--   XML lexer (a separate lexer is not required for HTML).</font>-<a name="(line6)"></a>-<a name="(line7)"></a><font color=Blue>-- It uses a slightly extended version of the Hutton/Meijer parser</font>-<a name="(line8)"></a><font color=Blue>-- combinators.</font>-<a name="(line9)"></a>-<a name="(line10)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse-<a name="(line11)"></a>  <font color=Cyan>(</font> htmlParse-<a name="(line12)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line13)"></a>-<a name="(line14)"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>either<font color=Cyan>,</font>maybe<font color=Cyan>,</font>sequence<font color=Cyan>)</font>-<a name="(line15)"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Prelude <font color=Cyan>(</font>either<font color=Cyan>)</font>-<a name="(line16)"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>-<a name="(line17)"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>toLower<font color=Cyan>,</font> isSpace<font color=Cyan>,</font> isDigit<font color=Cyan>,</font> isHexDigit<font color=Cyan>)</font>-<a name="(line18)"></a><font color=Green><u>import</u></font> Numeric <font color=Cyan>(</font>readDec<font color=Cyan>,</font>readHex<font color=Cyan>)</font>-<a name="(line19)"></a><font color=Green><u>import</u></font> Monad-<a name="(line20)"></a>-<a name="(line21)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line22)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Lex-<a name="(line23)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Posn-<a name="(line24)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>ParserCombinators<font color=Cyan>.</font>Poly<font color=Cyan>.</font>NoLeak<font color=Cyan>.</font>Plain-<a name="(line25)"></a>-<a name="(line26)"></a><font color=Blue>--  #define DEBUG</font>-<a name="(line27)"></a> -<a name="(line28)"></a><font color=Magenta><em>#if defined(DEBUG)</em></font>-<a name="(line29)"></a><font color=Magenta><em>#  if ( defined(__GLASGOW_HASKELL__) &amp;&amp; __GLASGOW_HASKELL__ &gt; 502 ) || \</em></font>-<a name="(line30)"></a>      <font color=Cyan>(</font> defined<font color=Cyan>(</font><b><font color=Magenta>__NHC__</font></b><font color=Cyan>)</font> <font color=Cyan>&amp;&amp;</font> <b><font color=Magenta>__NHC__</font></b> <font color=Cyan>&gt;</font> <font color=Magenta>114</font> <font color=Cyan>)</font> <font color=Cyan>||</font> defined<font color=Cyan>(</font><b><font color=Magenta>__HUGS__</font></b><font color=Cyan>)</font>-<a name="(line31)"></a><font color=Green><u>import</u></font> Debug<font color=Cyan>.</font>Trace<font color=Cyan>(</font>trace<font color=Cyan>)</font>-<a name="(line32)"></a><font color=Magenta><em>#  elif defined(__GLASGOW_HASKELL__)</em></font>-<a name="(line33)"></a><font color=Green><u>import</u></font> IOExts<font color=Cyan>(</font>trace<font color=Cyan>)</font>-<a name="(line34)"></a><font color=Magenta><em>#  elif defined(__NHC__) || defined(__HBC__)</em></font>-<a name="(line35)"></a><font color=Green><u>import</u></font> NonStdTrace-<a name="(line36)"></a><font color=Magenta><em>#  endif</em></font>-<a name="(line37)"></a><a name="debug"></a>debug <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()-<a name="(line38)"></a>debug s <font color=Red>=</font> trace s <font color=Cyan>(</font>return ()<font color=Cyan>)</font>-<a name="(line39)"></a><font color=Magenta><em>#else</em></font>-<a name="(line40)"></a>debug <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()-<a name="(line41)"></a>debug s <font color=Red>=</font> return ()-<a name="(line42)"></a><font color=Magenta><em>#endif</em></font>-<a name="(line43)"></a>-<a name="(line44)"></a>-<a name="(line45)"></a><a name="htmlParse"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>-<a name="(line46)"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>-<a name="(line47)"></a><font color=Blue>--   an XML document.  Any errors cause program failure with message to stderr.</font>-<a name="(line48)"></a>htmlParse <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Document Posn-<a name="(line49)"></a>htmlParse name <font color=Red>=</font> Prelude<font color=Cyan>.</font>either error id <font color=Cyan>.</font> htmlParse' name-<a name="(line50)"></a>-<a name="(line51)"></a><a name="htmlParse'"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>-<a name="(line52)"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>-<a name="(line53)"></a><font color=Blue>--   an XML document.  Any parsing errors are returned in the @Either@ type.</font>-<a name="(line54)"></a>htmlParse' <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Either String <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>-<a name="(line55)"></a>htmlParse' name <font color=Red>=</font> Prelude<font color=Cyan>.</font>either Left <font color=Cyan>(</font>Right <font color=Cyan>.</font> simplify<font color=Cyan>)</font> <font color=Cyan>.</font> fst-<a name="(line56)"></a>                  <font color=Cyan>.</font> runParser document <font color=Cyan>.</font> xmlLex name-<a name="(line57)"></a>-<a name="(line58)"></a><font color=Blue>---- Document simplification ----</font>-<a name="(line59)"></a>-<a name="(line60)"></a><a name="simplify"></a>simplify <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Document i-<a name="(line61)"></a>simplify <font color=Cyan>(</font>Document p st <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> ms<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line62)"></a>    Document p st <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter simp cs<font color=Cyan>)</font><font color=Cyan>)</font> ms-<a name="(line63)"></a>  <font color=Green><u>where</u></font>-<a name="(line64)"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> False-<a name="(line65)"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem  n     <font color=Green><u>_</u></font>  []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"font"</font><font color=Cyan>,</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"i"</font><font color=Cyan>,</font><font color=Magenta>"b"</font><font color=Cyan>,</font><font color=Magenta>"em"</font>-<a name="(line66)"></a>                                                  <font color=Cyan>,</font><font color=Magenta>"tt"</font><font color=Cyan>,</font><font color=Magenta>"big"</font><font color=Cyan>,</font><font color=Magenta>"small"</font><font color=Red>]</font> <font color=Red>=</font> False-<a name="(line67)"></a> <font color=Blue>-- simp (CString False s _) | all isSpace s = False</font>-<a name="(line68)"></a>    simp <font color=Green><u>_</u></font> <font color=Red>=</font> True-<a name="(line69)"></a>    deepfilter p <font color=Red>=</font>-<a name="(line70)"></a>        filter p <font color=Cyan>.</font> map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>case</u></font> c <font color=Green><u>of</u></font>-<a name="(line71)"></a>                          CElem <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> i-<a name="(line72)"></a>                                  <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter p cs<font color=Cyan>)</font><font color=Cyan>)</font> i-<a name="(line73)"></a>                          <font color=Green><u>_</u></font>       <font color=Red>-&gt;</font> c<font color=Cyan>)</font>-<a name="(line74)"></a>-<a name="(line75)"></a><a name="selfclosingtags"></a><font color=Blue>-- opening any of these, they close again immediately</font>-<a name="(line76)"></a>selfclosingtags <font color=Red>=</font> <font color=Red>[</font><font color=Magenta>"img"</font><font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"br"</font><font color=Cyan>,</font><font color=Magenta>"meta"</font><font color=Cyan>,</font><font color=Magenta>"col"</font><font color=Cyan>,</font><font color=Magenta>"link"</font><font color=Cyan>,</font><font color=Magenta>"base"</font>-<a name="(line77)"></a>                  <font color=Cyan>,</font><font color=Magenta>"param"</font><font color=Cyan>,</font><font color=Magenta>"area"</font><font color=Cyan>,</font><font color=Magenta>"frame"</font><font color=Cyan>,</font><font color=Magenta>"input"</font><font color=Red>]</font>-<a name="(line78)"></a>-<a name="(line79)"></a><a name="closeInnerTags"></a><font color=Blue>--closing this, implicitly closes any of those which are contained in it</font>-<a name="(line80)"></a>closeInnerTags <font color=Red>=</font>-<a name="(line81)"></a>  <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"ul"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line82)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"ol"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line83)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dl"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line84)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tr"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line85)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"div"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line86)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"thead"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line87)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line88)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line89)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"table"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"tbody"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line90)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"caption"</font><font color=Cyan>,</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line91)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"th"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line92)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"td"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line93)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"li"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line94)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dt"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line95)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dd"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line96)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"object"</font><font color=Cyan>,</font>  <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line97)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"map"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line98)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"body"</font><font color=Cyan>,</font>    <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line99)"></a>  <font color=Red>]</font>-<a name="(line100)"></a>-<a name="(line101)"></a><a name="closes"></a><font color=Blue>--opening this, implicitly closes that</font>-<a name="(line102)"></a>closes <font color=Red>::</font> Name <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> Bool-<a name="(line103)"></a><font color=Magenta>"a"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"a"</font>   <font color=Red>=</font>  True-<a name="(line104)"></a><font color=Magenta>"li"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"li"</font>  <font color=Red>=</font>  True-<a name="(line105)"></a><font color=Magenta>"th"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line106)"></a><font color=Magenta>"td"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line107)"></a><font color=Magenta>"tr"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Red>]</font> <font color=Red>=</font>  True-<a name="(line108)"></a><font color=Magenta>"dt"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line109)"></a><font color=Magenta>"dd"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line110)"></a><font color=Magenta>"form"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"form"</font>      <font color=Red>=</font> True-<a name="(line111)"></a><font color=Magenta>"label"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"label"</font>     <font color=Red>=</font> True-<a name="(line112)"></a><font color=Green><u>_</u></font>       <font color=Cyan>`closes`</font> <font color=Magenta>"option"</font>    <font color=Red>=</font> True-<a name="(line113)"></a><font color=Magenta>"thead"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>          <font color=Red>=</font> True-<a name="(line114)"></a><font color=Magenta>"tfoot"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>  <font color=Red>=</font> True-<a name="(line115)"></a><font color=Magenta>"tbody"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font> <font color=Red>=</font> True-<a name="(line116)"></a><font color=Magenta>"colgroup"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"colgroup"</font>  <font color=Red>=</font> True-<a name="(line117)"></a><a name="closes"></a>t <font color=Cyan>`closes`</font> <font color=Magenta>"p"</font>-<a name="(line118)"></a>    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"h1"</font><font color=Cyan>,</font><font color=Magenta>"h2"</font><font color=Cyan>,</font><font color=Magenta>"h3"</font><font color=Cyan>,</font><font color=Magenta>"h4"</font><font color=Cyan>,</font><font color=Magenta>"h5"</font><font color=Cyan>,</font><font color=Magenta>"h6"</font>-<a name="(line119)"></a>               <font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"div"</font><font color=Cyan>,</font><font color=Magenta>"ul"</font><font color=Cyan>,</font><font color=Magenta>"dl"</font><font color=Cyan>,</font><font color=Magenta>"ol"</font><font color=Cyan>,</font><font color=Magenta>"table"</font><font color=Red>]</font>  <font color=Red>=</font>  True-<a name="(line120)"></a><font color=Green><u>_</u></font> <font color=Cyan>`closes`</font> <font color=Green><u>_</u></font> <font color=Red>=</font> False-<a name="(line121)"></a>-<a name="(line122)"></a>-<a name="(line123)"></a>-<a name="(line124)"></a><font color=Blue>---- Misc ----</font>-<a name="(line125)"></a>-<a name="(line126)"></a><a name="fst3"></a>fst3 <font color=Cyan>(</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line127)"></a><a name="snd3"></a>snd3 <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line128)"></a><a name="thd3"></a>thd3 <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line129)"></a>-<a name="(line130)"></a>-<a name="(line131)"></a>-<a name="(line132)"></a><font color=Blue>---- Auxiliary Parsing Functions ----</font>-<a name="(line133)"></a>-<a name="(line134)"></a><a name="HParser"></a><font color=Green><u>type</u></font> HParser a <font color=Red>=</font> Parser <font color=Cyan>(</font>Posn<font color=Cyan>,</font>TokenT<font color=Cyan>)</font> a-<a name="(line135)"></a>-<a name="(line136)"></a><a name="tok"></a>tok <font color=Red>::</font> TokenT <font color=Red>-&gt;</font> HParser TokenT-<a name="(line137)"></a>tok t <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t'<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line138)"></a>           <font color=Green><u>case</u></font> t' <font color=Green><u>of</u></font> TokError s    <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'-<a name="(line139)"></a>                      <font color=Green><u>_</u></font> <font color=Red>|</font> t'<font color=Cyan>==</font>t     <font color=Red>-&gt;</font> return t-<a name="(line140)"></a>                        <font color=Red>|</font> otherwise <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'-<a name="(line141)"></a>-<a name="(line142)"></a><a name="name"></a>name <font color=Red>::</font> HParser Name-<a name="(line143)"></a><font color=Blue>--name = do {(p,TokName s) &lt;- next; return s}</font>-<a name="(line144)"></a>name <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>tok<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line145)"></a>          <font color=Green><u>case</u></font> tok <font color=Green><u>of</u></font> -<a name="(line146)"></a>            TokName s  <font color=Red>-&gt;</font> return s -<a name="(line147)"></a>            TokError s <font color=Red>-&gt;</font> report failBad <font color=Magenta>"a name"</font> p tok-<a name="(line148)"></a>            <font color=Green><u>_</u></font>          <font color=Red>-&gt;</font> report fail <font color=Magenta>"a name"</font> p tok-<a name="(line149)"></a>-<a name="(line150)"></a><a name="string"></a>string<font color=Cyan>,</font> freetext <font color=Red>::</font> HParser String-<a name="(line151)"></a>string   <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line152)"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokName s <font color=Red>-&gt;</font> return s-<a name="(line153)"></a>                        <font color=Green><u>_</u></font>         <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t-<a name="(line154)"></a><a name="freetext"></a>freetext <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line155)"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokFreeText s <font color=Red>-&gt;</font> return s-<a name="(line156)"></a>                        <font color=Green><u>_</u></font>             <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t-<a name="(line157)"></a>-<a name="(line158)"></a><a name="maybe"></a>maybe <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Maybe a<font color=Cyan>)</font>-<a name="(line159)"></a>maybe p <font color=Red>=</font>-<a name="(line160)"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Just<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line161)"></a>    <font color=Cyan>(</font> return Nothing<font color=Cyan>)</font>-<a name="(line162)"></a>-<a name="(line163)"></a><a name="either"></a>either <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser b <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Either a b<font color=Cyan>)</font>-<a name="(line164)"></a>either p q <font color=Red>=</font>-<a name="(line165)"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Left<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line166)"></a>    <font color=Cyan>(</font> q <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Right<font color=Cyan>)</font>-<a name="(line167)"></a>-<a name="(line168)"></a><a name="word"></a>word <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser ()-<a name="(line169)"></a>word s <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x <font color=Red>&lt;-</font> next-<a name="(line170)"></a>            <font color=Cyan>;</font> <font color=Green><u>case</u></font> x <font color=Green><u>of</u></font>-<a name="(line171)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokName n<font color=Cyan>)</font>     <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()-<a name="(line172)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokFreeText n<font color=Cyan>)</font> <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()-<a name="(line173)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Red>@</font><font color=Cyan>(</font>TokError <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t-<a name="(line174)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t-<a name="(line175)"></a>            <font color=Cyan>}</font>-<a name="(line176)"></a>-<a name="(line177)"></a><a name="posn"></a>posn <font color=Red>::</font> HParser Posn-<a name="(line178)"></a>posn <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x<font color=Red>@</font><font color=Cyan>(</font>p<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line179)"></a>          <font color=Cyan>;</font> reparse <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line180)"></a>          <font color=Cyan>;</font> return p-<a name="(line181)"></a>          <font color=Cyan>}</font> <font color=Cyan>`onFail`</font> return noPos-<a name="(line182)"></a>-<a name="(line183)"></a><a name="nmtoken"></a>nmtoken <font color=Red>::</font> HParser NmToken-<a name="(line184)"></a>nmtoken <font color=Red>=</font> <font color=Cyan>(</font>string <font color=Cyan>`onFail`</font> freetext<font color=Cyan>)</font>-<a name="(line185)"></a>-<a name="(line186)"></a><a name="failP"></a>failP<font color=Cyan>,</font> failBadP <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser a-<a name="(line187)"></a>failP msg    <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> fail <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>-<a name="(line188)"></a><a name="failBadP"></a>failBadP msg <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> failBad <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>-<a name="(line189)"></a>-<a name="(line190)"></a><a name="report"></a>report <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>HParser a<font color=Cyan>)</font> <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Posn <font color=Red>-&gt;</font> TokenT <font color=Red>-&gt;</font> HParser a-<a name="(line191)"></a>report fail exp p t <font color=Red>=</font> fail <font color=Cyan>(</font><font color=Magenta>"Expected "</font><font color=Cyan>++</font>show exp<font color=Cyan>++</font><font color=Magenta>" but found "</font><font color=Cyan>++</font>show t-<a name="(line192)"></a>                           <font color=Cyan>++</font><font color=Magenta>"\n  at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font>-<a name="(line193)"></a>-<a name="(line194)"></a><a name="adjustErrP"></a>adjustErrP <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>String<font color=Cyan>)</font> <font color=Red>-&gt;</font> HParser a-<a name="(line195)"></a><a name="adjustErrP"></a>p <font color=Cyan>`adjustErrP`</font> f <font color=Red>=</font> p <font color=Cyan>`onFail`</font> <font color=Green><u>do</u></font> pn <font color=Red>&lt;-</font> posn-<a name="(line196)"></a>                                 <font color=Cyan>(</font>p <font color=Cyan>`adjustErr`</font> f<font color=Cyan>)</font> <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Cyan>++</font>show pn<font color=Cyan>)</font>-<a name="(line197)"></a>-<a name="(line198)"></a><font color=Blue>---- XML Parsing Functions ----</font>-<a name="(line199)"></a>-<a name="(line200)"></a><a name="document"></a>document <font color=Red>::</font> HParser <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>-<a name="(line201)"></a>document <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line202)"></a>    p     <font color=Red>&lt;-</font> prolog <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Magenta>"unrecognisable XML prolog\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>-<a name="(line203)"></a>    es    <font color=Red>&lt;-</font> many1 <font color=Cyan>(</font>element <font color=Magenta>"HTML document"</font><font color=Cyan>)</font>-<a name="(line204)"></a>    ms    <font color=Red>&lt;-</font> many misc-<a name="(line205)"></a>    return <font color=Cyan>(</font>Document p emptyST <font color=Cyan>(</font><font color=Green><u>case</u></font> map snd es <font color=Green><u>of</u></font>-<a name="(line206)"></a>                                  <font color=Red>[</font>e<font color=Red>]</font> <font color=Red>-&gt;</font> e-<a name="(line207)"></a>                                  es  <font color=Red>-&gt;</font> Elem <font color=Magenta>"html"</font> [] <font color=Cyan>(</font>map mkCElem es<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line208)"></a>                               ms<font color=Cyan>)</font>-<a name="(line209)"></a>  <font color=Green><u>where</u></font> mkCElem e <font color=Red>=</font> CElem e noPos-<a name="(line210)"></a>-<a name="(line211)"></a><a name="comment"></a>comment <font color=Red>::</font> HParser Comment-<a name="(line212)"></a>comment <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line213)"></a>    bracket <font color=Cyan>(</font>tok TokCommentOpen<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokCommentClose<font color=Cyan>)</font> freetext-<a name="(line214)"></a>-<a name="(line215)"></a><a name="processinginstruction"></a>processinginstruction <font color=Red>::</font> HParser ProcessingInstruction-<a name="(line216)"></a>processinginstruction <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line217)"></a>    tok TokPIOpen-<a name="(line218)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line219)"></a>      n <font color=Red>&lt;-</font> string  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"processing instruction has no target"</font>-<a name="(line220)"></a>      f <font color=Red>&lt;-</font> freetext-<a name="(line221)"></a>      <font color=Cyan>(</font>tok TokPIClose <font color=Cyan>`onFail`</font> tok TokAnyClose<font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing ?&gt; or &gt;"</font>-<a name="(line222)"></a>      return <font color=Cyan>(</font>n<font color=Cyan>,</font> f<font color=Cyan>)</font>-<a name="(line223)"></a>-<a name="(line224)"></a><a name="cdsect"></a>cdsect <font color=Red>::</font> HParser CDSect-<a name="(line225)"></a>cdsect <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line226)"></a>    tok TokSectionOpen-<a name="(line227)"></a>    bracket <font color=Cyan>(</font>tok <font color=Cyan>(</font>TokSection CDATAx<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSectionClose<font color=Cyan>)</font> chardata-<a name="(line228)"></a>-<a name="(line229)"></a><a name="prolog"></a>prolog <font color=Red>::</font> HParser Prolog-<a name="(line230)"></a>prolog <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line231)"></a>    x <font color=Red>&lt;-</font> maybe xmldecl-<a name="(line232)"></a>    m1 <font color=Red>&lt;-</font> many misc-<a name="(line233)"></a>    dtd <font color=Red>&lt;-</font> maybe doctypedecl-<a name="(line234)"></a>    m2 <font color=Red>&lt;-</font> many misc-<a name="(line235)"></a>    return <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font>-<a name="(line236)"></a>-<a name="(line237)"></a><a name="xmldecl"></a>xmldecl <font color=Red>::</font> HParser XMLDecl-<a name="(line238)"></a>xmldecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line239)"></a>    tok TokPIOpen-<a name="(line240)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>-<a name="(line241)"></a>    p <font color=Red>&lt;-</font> posn-<a name="(line242)"></a>    s <font color=Red>&lt;-</font> freetext-<a name="(line243)"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"missing ?&gt; in &lt;?xml ...?&gt;"</font>-<a name="(line244)"></a>    <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>either failP return <font color=Cyan>.</font> fst <font color=Cyan>.</font> runParser aux <font color=Cyan>.</font> xmlReLex p<font color=Cyan>)</font> s-<a name="(line245)"></a>  <font color=Green><u>where</u></font>-<a name="(line246)"></a>    aux <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line247)"></a>      v <font color=Red>&lt;-</font> versioninfo  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing XML version info"</font>-<a name="(line248)"></a>      e <font color=Red>&lt;-</font> maybe encodingdecl-<a name="(line249)"></a>      s <font color=Red>&lt;-</font> maybe sddecl-<a name="(line250)"></a>      return <font color=Cyan>(</font>XMLDecl v e s<font color=Cyan>)</font>-<a name="(line251)"></a>-<a name="(line252)"></a><a name="versioninfo"></a>versioninfo <font color=Red>::</font> HParser VersionInfo-<a name="(line253)"></a>versioninfo <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line254)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"version"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"VERSION"</font><font color=Cyan>)</font>-<a name="(line255)"></a>    tok TokEqual-<a name="(line256)"></a>    bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line257)"></a>-<a name="(line258)"></a><a name="misc"></a>misc <font color=Red>::</font> HParser Misc-<a name="(line259)"></a>misc <font color=Red>=</font> -<a name="(line260)"></a>    oneOf' <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"&lt;!--comment--&gt;"</font><font color=Cyan>,</font> comment <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Comment<font color=Cyan>)</font>-<a name="(line261)"></a>           <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"&lt;?PI?&gt;"</font><font color=Cyan>,</font>         processinginstruction <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> PI<font color=Cyan>)</font>-<a name="(line262)"></a>           <font color=Red>]</font>-<a name="(line263)"></a>-<a name="(line264)"></a>-<a name="(line265)"></a><font color=Blue>-- Question: for HTML, should we disallow in-line DTDs, allowing only externals?</font>-<a name="(line266)"></a><font color=Blue>-- Answer: I think so.</font>-<a name="(line267)"></a>-<a name="(line268)"></a><a name="doctypedecl"></a>doctypedecl <font color=Red>::</font> HParser DocTypeDecl-<a name="(line269)"></a>doctypedecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line270)"></a>    tok TokSpecialOpen-<a name="(line271)"></a>    tok <font color=Cyan>(</font>TokSpecial DOCTYPEx<font color=Cyan>)</font>-<a name="(line272)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line273)"></a>      n <font color=Red>&lt;-</font> name-<a name="(line274)"></a>      eid <font color=Red>&lt;-</font> maybe externalid-<a name="(line275)"></a><font color=Blue>--    es &lt;- maybe (bracket (tok TokSqOpen) (tok TokSqClose)) (many markupdecl)</font>-<a name="(line276)"></a>      tok TokAnyClose  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; in DOCTYPE decl"</font>-<a name="(line277)"></a><font color=Blue>--    return (DTD n eid (case es of { Nothing -&gt; []; Just e -&gt; e }))</font>-<a name="(line278)"></a>      return <font color=Cyan>(</font>DTD n eid []<font color=Cyan>)</font>-<a name="(line279)"></a>-<a name="(line280)"></a><font color=Blue>--markupdecl :: HParser MarkupDecl</font>-<a name="(line281)"></a><font color=Blue>--markupdecl =</font>-<a name="(line282)"></a><font color=Blue>--    ( elementdecl &gt;&gt;= return . Element) `onFail`</font>-<a name="(line283)"></a><font color=Blue>--    ( attlistdecl &gt;&gt;= return . AttList) `onFail`</font>-<a name="(line284)"></a><font color=Blue>--    ( entitydecl &gt;&gt;= return . Entity) `onFail`</font>-<a name="(line285)"></a><font color=Blue>--    ( notationdecl &gt;&gt;= return . Notation) `onFail`</font>-<a name="(line286)"></a><font color=Blue>--    ( misc &gt;&gt;= return . MarkupMisc) `onFail`</font>-<a name="(line287)"></a><font color=Blue>--    PEREF(MarkupPE,markupdecl)</font>-<a name="(line288)"></a><font color=Blue>--</font>-<a name="(line289)"></a><font color=Blue>--extsubset :: HParser ExtSubset</font>-<a name="(line290)"></a><font color=Blue>--extsubset = do</font>-<a name="(line291)"></a><font color=Blue>--    td &lt;- maybe textdecl</font>-<a name="(line292)"></a><font color=Blue>--    ds &lt;- many extsubsetdecl</font>-<a name="(line293)"></a><font color=Blue>--    return (ExtSubset td ds)</font>-<a name="(line294)"></a><font color=Blue>--</font>-<a name="(line295)"></a><font color=Blue>--extsubsetdecl :: HParser ExtSubsetDecl</font>-<a name="(line296)"></a><font color=Blue>--extsubsetdecl =</font>-<a name="(line297)"></a><font color=Blue>--    ( markupdecl &gt;&gt;= return . ExtMarkupDecl) `onFail`</font>-<a name="(line298)"></a><font color=Blue>--    ( conditionalsect &gt;&gt;= return . ExtConditionalSect) `onFail`</font>-<a name="(line299)"></a><font color=Blue>--    PEREF(ExtPEReference,extsubsetdecl)</font>-<a name="(line300)"></a>-<a name="(line301)"></a><a name="sddecl"></a>sddecl <font color=Red>::</font> HParser SDDecl-<a name="(line302)"></a>sddecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line303)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"standalone"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"STANDALONE"</font><font color=Cyan>)</font>-<a name="(line304)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line305)"></a>      tok TokEqual <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing = in 'standalone' decl"</font>-<a name="(line306)"></a>      bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>-<a name="(line307)"></a>              <font color=Cyan>(</font> <font color=Cyan>(</font>word <font color=Magenta>"yes"</font> <font color=Cyan>&gt;&gt;</font> return True<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line308)"></a>                <font color=Cyan>(</font>word <font color=Magenta>"no"</font> <font color=Cyan>&gt;&gt;</font> return False<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line309)"></a>                failP <font color=Magenta>"'standalone' decl requires 'yes' or 'no' value"</font> <font color=Cyan>)</font>-<a name="(line310)"></a>-<a name="(line311)"></a>-<a name="(line312)"></a>-<a name="(line313)"></a>-<a name="(line314)"></a><a name="Stack"></a><font color=Blue>----</font>-<a name="(line315)"></a><a name="Stack"></a><font color=Blue>-- VERY IMPORTANT NOTE: The stack returned here contains those tags which</font>-<a name="(line316)"></a><a name="Stack"></a><font color=Blue>-- have been closed implicitly and need to be reopened again at the</font>-<a name="(line317)"></a><a name="Stack"></a><font color=Blue>-- earliest opportunity.</font>-<a name="(line318)"></a><a name="Stack"></a><font color=Green><u>type</u></font> Stack <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line319)"></a>-<a name="(line320)"></a><a name="element"></a>element <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Element Posn<font color=Cyan>)</font>-<a name="(line321)"></a>element ctx <font color=Red>=</font>-<a name="(line322)"></a>  <font color=Green><u>do</u></font>-<a name="(line323)"></a>    tok TokAnyOpen-<a name="(line324)"></a>    <font color=Cyan>(</font>ElemTag e avs<font color=Cyan>)</font> <font color=Red>&lt;-</font> elemtag-<a name="(line325)"></a>    <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>`closes`</font> ctx <font color=Green><u>then</u></font>-<a name="(line326)"></a>         <font color=Blue>-- insert the missing close-tag, fail forward, and reparse.</font>-<a name="(line327)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> debug <font color=Cyan>(</font><font color=Magenta>"/"</font><font color=Cyan>)</font>-<a name="(line328)"></a>              unparse <font color=Cyan>(</font><font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName ctx<font color=Cyan>,</font> TokAnyClose<font color=Cyan>,</font>-<a name="(line329)"></a>                        TokAnyOpen<font color=Cyan>,</font> TokName e<font color=Red>]</font> <font color=Cyan>++</font> reformatAttrs avs<font color=Cyan>)</font>-<a name="(line330)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line331)"></a>      <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> e <font color=Cyan>`elem`</font> selfclosingtags <font color=Green><u>then</u></font>-<a name="(line332)"></a>         <font color=Blue>-- complete the parse straightaway.</font>-<a name="(line333)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose	<font color=Blue>-- self-closing &lt;tag /&gt; </font>-<a name="(line334)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>-<a name="(line335)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line336)"></a>     <font color=Blue>--  ( do tok TokAnyClose	-- sequence &lt;tag&gt;&lt;/tag&gt;	(**not HTML?**)</font>-<a name="(line337)"></a>     <font color=Blue>--       debug (e++"[+")</font>-<a name="(line338)"></a>     <font color=Blue>--       n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>-<a name="(line339)"></a>     <font color=Blue>--       debug "]"</font>-<a name="(line340)"></a>     <font color=Blue>--       if e == (map toLower n :: Name) </font>-<a name="(line341)"></a>     <font color=Blue>--         then return ([], Elem e avs [])      </font>-<a name="(line342)"></a>     <font color=Blue>--         else return (error "no nesting in empty tag")) `onFail`</font>-<a name="(line343)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose	<font color=Blue>-- &lt;tag&gt; with no close (e.g. &lt;IMG&gt;)</font>-<a name="(line344)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>-<a name="(line345)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line346)"></a>      <font color=Green><u>else</u></font>-<a name="(line347)"></a>        <font color=Cyan>(</font><font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose-<a name="(line348)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[]"</font><font color=Cyan>)</font>-<a name="(line349)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line350)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; or /&gt; in element tag"</font>-<a name="(line351)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"["</font><font color=Cyan>)</font>-<a name="(line352)"></a>           <font color=Blue>-- zz &lt;- many (content e)</font>-<a name="(line353)"></a>           <font color=Blue>-- n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>-<a name="(line354)"></a>              zz <font color=Red>&lt;-</font> manyFinally <font color=Cyan>(</font>content e<font color=Cyan>)</font>-<a name="(line355)"></a>                                <font color=Cyan>(</font>tok TokEndOpen<font color=Cyan>)</font>-<a name="(line356)"></a>              n <font color=Red>&lt;-</font> name-<a name="(line357)"></a>              commit <font color=Cyan>(</font>tok TokAnyClose<font color=Cyan>)</font>-<a name="(line358)"></a>              debug <font color=Magenta>"]"</font>-<a name="(line359)"></a>              <font color=Green><u>let</u></font> <font color=Cyan>(</font>ss<font color=Cyan>,</font>cs<font color=Cyan>)</font> <font color=Red>=</font> unzip zz-<a name="(line360)"></a>              <font color=Green><u>let</u></font> s       <font color=Red>=</font> <font color=Green><u>if</u></font> null ss <font color=Green><u>then</u></font> [] <font color=Green><u>else</u></font> last ss-<a name="(line361)"></a>              <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>==</font> <font color=Cyan>(</font>map toLower n <font color=Red>::</font> Name<font color=Cyan>)</font> <font color=Green><u>then</u></font>-<a name="(line362)"></a>                  <font color=Green><u>do</u></font> unparse <font color=Cyan>(</font>reformatTags <font color=Cyan>(</font>closeInner e s<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line363)"></a>                     debug <font color=Magenta>"^"</font>-<a name="(line364)"></a>                     return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs cs<font color=Cyan>)</font>-<a name="(line365)"></a>                <font color=Green><u>else</u></font>-<a name="(line366)"></a>                  <font color=Green><u>do</u></font> unparse <font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName n<font color=Cyan>,</font> TokAnyClose<font color=Red>]</font>-<a name="(line367)"></a>                     debug <font color=Magenta>"-"</font>-<a name="(line368)"></a>                     return <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>(</font>e<font color=Cyan>,</font>avs<font color=Cyan>)</font><font color=Red><b>:</b></font>s<font color=Cyan>)</font><font color=Cyan>,</font> Elem e avs cs<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line369)"></a>         <font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Cyan>(</font><font color=Magenta>"failed to repair non-matching tags in context: "</font><font color=Cyan>++</font>ctx<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line370)"></a>-<a name="(line371)"></a><a name="closeInner"></a>closeInner <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line372)"></a>closeInner c ts <font color=Red>=</font>-<a name="(line373)"></a>    <font color=Green><u>case</u></font> lookup c closeInnerTags <font color=Green><u>of</u></font>-<a name="(line374)"></a>      <font color=Cyan>(</font>Just these<font color=Cyan>)</font> <font color=Red>-&gt;</font> filter <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>`notElem`</font> these<font color=Cyan>)</font><font color=Cyan>.</font>fst<font color=Cyan>)</font> ts-<a name="(line375)"></a>      Nothing      <font color=Red>-&gt;</font> ts-<a name="(line376)"></a>-<a name="(line377)"></a><a name="unparse"></a>unparse ts <font color=Red>=</font> <font color=Green><u>do</u></font> p <font color=Red>&lt;-</font> posn-<a name="(line378)"></a>                reparse <font color=Cyan>(</font>zip <font color=Cyan>(</font>repeat p<font color=Cyan>)</font> ts<font color=Cyan>)</font>-<a name="(line379)"></a>-<a name="(line380)"></a><a name="reformatAttrs"></a>reformatAttrs avs <font color=Red>=</font> concatMap f0 avs-<a name="(line381)"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>a<font color=Cyan>,</font> v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokName a<font color=Cyan>,</font> TokEqual<font color=Cyan>,</font> TokQuote<font color=Cyan>,</font>-<a name="(line382)"></a>                                       TokFreeText <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>,</font> TokQuote<font color=Red>]</font>-<a name="(line383)"></a><a name="reformatTags"></a>reformatTags ts <font color=Red>=</font> concatMap f0 ts-<a name="(line384)"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>t<font color=Cyan>,</font>avs<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokAnyOpen<font color=Cyan>,</font> TokName t<font color=Red>]</font><font color=Cyan>++</font>reformatAttrs avs<font color=Cyan>++</font><font color=Red>[</font>TokAnyClose<font color=Red>]</font>-<a name="(line385)"></a>-<a name="(line386)"></a><a name="content"></a>content <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Content Posn<font color=Cyan>)</font>-<a name="(line387)"></a>content ctx <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn <font color=Cyan>;</font> content' p ctx <font color=Cyan>}</font>-<a name="(line388)"></a>  <font color=Green><u>where</u></font> content' p ctx <font color=Red>=</font> oneOf'-<a name="(line389)"></a>          <font color=Red>[</font> <font color=Cyan>(</font> <font color=Magenta>"element"</font><font color=Cyan>,</font> element ctx <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font><font color=Cyan>(</font>s<font color=Cyan>,</font>e<font color=Cyan>)</font><font color=Red>-&gt;</font> return <font color=Cyan>(</font>s<font color=Cyan>,</font> CElem e p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line390)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"chardata"</font><font color=Cyan>,</font> chardata <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>s<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString False s p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line391)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"reference"</font><font color=Cyan>,</font> reference <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>r<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CRef r p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line392)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"cdsect"</font><font color=Cyan>,</font> cdsect <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString True c p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line393)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"misc"</font><font color=Cyan>,</font> misc <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>m<font color=Red>-&gt;</font>  return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CMisc m p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line394)"></a>          <font color=Red>]</font> <font color=Cyan>`adjustErrP`</font> <font color=Cyan>(</font><font color=Magenta>"when looking for a content item,\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>-<a name="(line395)"></a>-<a name="(line396)"></a><a name="elemtag"></a><font color=Blue>----</font>-<a name="(line397)"></a>elemtag <font color=Red>::</font> HParser ElemTag-<a name="(line398)"></a>elemtag <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line399)"></a>    n <font color=Red>&lt;-</font> name <font color=Cyan>`adjustErrBad`</font> <font color=Cyan>(</font><font color=Magenta>"malformed element tag\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>-<a name="(line400)"></a>    <font color=Green><u>as</u></font> <font color=Red>&lt;-</font> many attribute-<a name="(line401)"></a>    return <font color=Cyan>(</font>ElemTag <font color=Cyan>(</font>map toLower n<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font>-<a name="(line402)"></a>-<a name="(line403)"></a><a name="attribute"></a>attribute <font color=Red>::</font> HParser Attribute-<a name="(line404)"></a>attribute <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line405)"></a>    n <font color=Red>&lt;-</font> name-<a name="(line406)"></a>    v <font color=Red>&lt;-</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> tok TokEqual-<a name="(line407)"></a>             attvalue<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line408)"></a>         <font color=Cyan>(</font>return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Magenta>"TRUE"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line409)"></a>    return <font color=Cyan>(</font>map toLower n<font color=Cyan>,</font>v<font color=Cyan>)</font>-<a name="(line410)"></a>-<a name="(line411)"></a><font color=Blue>--elementdecl :: HParser ElementDecl</font>-<a name="(line412)"></a><font color=Blue>--elementdecl = do</font>-<a name="(line413)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line414)"></a><font color=Blue>--    tok (TokSpecial ELEMENTx)</font>-<a name="(line415)"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ELEMENT decl"</font>-<a name="(line416)"></a><font color=Blue>--    c &lt;- contentspec `onFail` failP "missing content spec in ELEMENT decl"</font>-<a name="(line417)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating ELEMENT decl"</font>-<a name="(line418)"></a><font color=Blue>--    return (ElementDecl n c)</font>-<a name="(line419)"></a><font color=Blue>--</font>-<a name="(line420)"></a><font color=Blue>--contentspec :: HParser ContentSpec</font>-<a name="(line421)"></a><font color=Blue>--contentspec =</font>-<a name="(line422)"></a><font color=Blue>--    ( word "EMPTY" &gt;&gt; return EMPTY) `onFail`</font>-<a name="(line423)"></a><font color=Blue>--    ( word "ANY" &gt;&gt; return ANY) `onFail`</font>-<a name="(line424)"></a><font color=Blue>--    ( mixed &gt;&gt;= return . Mixed) `onFail`</font>-<a name="(line425)"></a><font color=Blue>--    ( cp &gt;&gt;= return . ContentSpec) `onFail`</font>-<a name="(line426)"></a><font color=Blue>--    PEREF(ContentPE,contentspec)</font>-<a name="(line427)"></a><font color=Blue>--</font>-<a name="(line428)"></a><font color=Blue>--choice :: HParser [CP]</font>-<a name="(line429)"></a><font color=Blue>--choice = do</font>-<a name="(line430)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line431)"></a><font color=Blue>--            (cp `sepby1` (tok TokPipe))</font>-<a name="(line432)"></a><font color=Blue>--</font>-<a name="(line433)"></a><font color=Blue>--sequence :: HParser [CP]</font>-<a name="(line434)"></a><font color=Blue>--sequence = do</font>-<a name="(line435)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line436)"></a><font color=Blue>--            (cp `sepby1` (tok TokComma))</font>-<a name="(line437)"></a><font color=Blue>--</font>-<a name="(line438)"></a><font color=Blue>--cp :: HParser CP</font>-<a name="(line439)"></a><font color=Blue>--cp =</font>-<a name="(line440)"></a><font color=Blue>--    ( do n &lt;- name</font>-<a name="(line441)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line442)"></a><font color=Blue>--         return (TagName n m)) `onFail`</font>-<a name="(line443)"></a><font color=Blue>--    ( do ss &lt;- sequence</font>-<a name="(line444)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line445)"></a><font color=Blue>--         return (Seq ss m)) `onFail`</font>-<a name="(line446)"></a><font color=Blue>--    ( do cs &lt;- choice</font>-<a name="(line447)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line448)"></a><font color=Blue>--         return (Choice cs m)) `onFail`</font>-<a name="(line449)"></a><font color=Blue>--    PEREF(CPPE,cp)</font>-<a name="(line450)"></a><font color=Blue>--</font>-<a name="(line451)"></a><font color=Blue>--modifier :: HParser Modifier</font>-<a name="(line452)"></a><font color=Blue>--modifier =</font>-<a name="(line453)"></a><font color=Blue>--    ( tok TokStar &gt;&gt; return Star) `onFail`</font>-<a name="(line454)"></a><font color=Blue>--    ( tok TokQuery &gt;&gt; return Query) `onFail`</font>-<a name="(line455)"></a><font color=Blue>--    ( tok TokPlus &gt;&gt; return Plus) `onFail`</font>-<a name="(line456)"></a><font color=Blue>--    ( return None)</font>-<a name="(line457)"></a><font color=Blue>--</font>-<a name="(line458)"></a><font color=Blue>--mixed :: HParser Mixed</font>-<a name="(line459)"></a><font color=Blue>--mixed = do</font>-<a name="(line460)"></a><font color=Blue>--    tok TokBraOpen</font>-<a name="(line461)"></a><font color=Blue>--    tok TokHash</font>-<a name="(line462)"></a><font color=Blue>--    word "PCDATA"</font>-<a name="(line463)"></a><font color=Blue>--    cont</font>-<a name="(line464)"></a><font color=Blue>--  where</font>-<a name="(line465)"></a><font color=Blue>--    cont = ( tok TokBraClose &gt;&gt; return PCDATA) `onFail`</font>-<a name="(line466)"></a><font color=Blue>--           ( do cs &lt;- many ( do tok TokPipe</font>-<a name="(line467)"></a><font color=Blue>--                                n &lt;- name</font>-<a name="(line468)"></a><font color=Blue>--                                return n)</font>-<a name="(line469)"></a><font color=Blue>--                tok TokBraClose</font>-<a name="(line470)"></a><font color=Blue>--                tok TokStar</font>-<a name="(line471)"></a><font color=Blue>--                return (PCDATAplus cs))</font>-<a name="(line472)"></a><font color=Blue>--</font>-<a name="(line473)"></a><font color=Blue>--attlistdecl :: HParser AttListDecl</font>-<a name="(line474)"></a><font color=Blue>--attlistdecl = do</font>-<a name="(line475)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line476)"></a><font color=Blue>--    tok (TokSpecial ATTLISTx)</font>-<a name="(line477)"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ATTLIST"</font>-<a name="(line478)"></a><font color=Blue>--    ds &lt;- many attdef</font>-<a name="(line479)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "missing &gt; terminating ATTLIST"</font>-<a name="(line480)"></a><font color=Blue>--    return (AttListDecl n ds)</font>-<a name="(line481)"></a><font color=Blue>--</font>-<a name="(line482)"></a><font color=Blue>--attdef :: HParser AttDef</font>-<a name="(line483)"></a><font color=Blue>--attdef = do</font>-<a name="(line484)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line485)"></a><font color=Blue>--    t &lt;- atttype `onFail` failP "missing attribute type in attlist defn"</font>-<a name="(line486)"></a><font color=Blue>--    d &lt;- defaultdecl</font>-<a name="(line487)"></a><font color=Blue>--    return (AttDef n t d)</font>-<a name="(line488)"></a><font color=Blue>--</font>-<a name="(line489)"></a><font color=Blue>--atttype :: HParser AttType</font>-<a name="(line490)"></a><font color=Blue>--atttype =</font>-<a name="(line491)"></a><font color=Blue>--    ( word "CDATA" &gt;&gt; return StringType) `onFail`</font>-<a name="(line492)"></a><font color=Blue>--    ( tokenizedtype &gt;&gt;= return . TokenizedType) `onFail`</font>-<a name="(line493)"></a><font color=Blue>--    ( enumeratedtype &gt;&gt;= return . EnumeratedType)</font>-<a name="(line494)"></a><font color=Blue>--</font>-<a name="(line495)"></a><font color=Blue>--tokenizedtype :: HParser TokenizedType</font>-<a name="(line496)"></a><font color=Blue>--tokenizedtype =</font>-<a name="(line497)"></a><font color=Blue>--    ( word "ID" &gt;&gt; return ID) `onFail`</font>-<a name="(line498)"></a><font color=Blue>--    ( word "IDREF" &gt;&gt; return IDREF) `onFail`</font>-<a name="(line499)"></a><font color=Blue>--    ( word "IDREFS" &gt;&gt; return IDREFS) `onFail`</font>-<a name="(line500)"></a><font color=Blue>--    ( word "ENTITY" &gt;&gt; return ENTITY) `onFail`</font>-<a name="(line501)"></a><font color=Blue>--    ( word "ENTITIES" &gt;&gt; return ENTITIES) `onFail`</font>-<a name="(line502)"></a><font color=Blue>--    ( word "NMTOKEN" &gt;&gt; return NMTOKEN) `onFail`</font>-<a name="(line503)"></a><font color=Blue>--    ( word "NMTOKENS" &gt;&gt; return NMTOKENS)</font>-<a name="(line504)"></a><font color=Blue>--</font>-<a name="(line505)"></a><font color=Blue>--enumeratedtype :: HParser EnumeratedType</font>-<a name="(line506)"></a><font color=Blue>--enumeratedtype =</font>-<a name="(line507)"></a><font color=Blue>--    ( notationtype &gt;&gt;= return . NotationType) `onFail`</font>-<a name="(line508)"></a><font color=Blue>--    ( enumeration &gt;&gt;= return . Enumeration)</font>-<a name="(line509)"></a><font color=Blue>--</font>-<a name="(line510)"></a><font color=Blue>--notationtype :: HParser NotationType</font>-<a name="(line511)"></a><font color=Blue>--notationtype = do</font>-<a name="(line512)"></a><font color=Blue>--    word "NOTATION"</font>-<a name="(line513)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line514)"></a><font color=Blue>--            (name `sepby1` (tok TokPipe))</font>-<a name="(line515)"></a><font color=Blue>--</font>-<a name="(line516)"></a><font color=Blue>--enumeration :: HParser Enumeration</font>-<a name="(line517)"></a><font color=Blue>--enumeration =</font>-<a name="(line518)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line519)"></a><font color=Blue>--            (nmtoken `sepby1` (tok TokPipe))</font>-<a name="(line520)"></a><font color=Blue>--</font>-<a name="(line521)"></a><font color=Blue>--defaultdecl :: HParser DefaultDecl</font>-<a name="(line522)"></a><font color=Blue>--defaultdecl =</font>-<a name="(line523)"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "REQUIRED" &gt;&gt; return REQUIRED) `onFail`</font>-<a name="(line524)"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "IMPLIED" &gt;&gt; return IMPLIED) `onFail`</font>-<a name="(line525)"></a><font color=Blue>--    ( do f &lt;- maybe (tok TokHash &gt;&gt; word "FIXED" &gt;&gt; return FIXED)</font>-<a name="(line526)"></a><font color=Blue>--         a &lt;- attvalue</font>-<a name="(line527)"></a><font color=Blue>--         return (DefaultTo a f))</font>-<a name="(line528)"></a><font color=Blue>--</font>-<a name="(line529)"></a><font color=Blue>--conditionalsect :: HParser ConditionalSect</font>-<a name="(line530)"></a><font color=Blue>--conditionalsect =</font>-<a name="(line531)"></a><font color=Blue>--    ( do tok TokSectionOpen</font>-<a name="(line532)"></a><font color=Blue>--         tok (TokSection INCLUDEx)</font>-<a name="(line533)"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after INCLUDE"</font>-<a name="(line534)"></a><font color=Blue>--         i &lt;- extsubsetdecl `onFail` failP "missing ExtSubsetDecl in INCLUDE"</font>-<a name="(line535)"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after INCLUDE"</font>-<a name="(line536)"></a><font color=Blue>--         return (IncludeSect i)) `onFail`</font>-<a name="(line537)"></a><font color=Blue>--    ( do tok TokSectionOpen</font>-<a name="(line538)"></a><font color=Blue>--         tok (TokSection IGNOREx)</font>-<a name="(line539)"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after IGNORE"</font>-<a name="(line540)"></a><font color=Blue>--         i &lt;- many ignoresectcontents</font>-<a name="(line541)"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after IGNORE"</font>-<a name="(line542)"></a><font color=Blue>--         return (IgnoreSect i))</font>-<a name="(line543)"></a><font color=Blue>--</font>-<a name="(line544)"></a><font color=Blue>--ignoresectcontents :: HParser IgnoreSectContents</font>-<a name="(line545)"></a><font color=Blue>--ignoresectcontents = do</font>-<a name="(line546)"></a><font color=Blue>--    i &lt;- ignore</font>-<a name="(line547)"></a><font color=Blue>--    is &lt;- many (do tok TokSectionOpen</font>-<a name="(line548)"></a><font color=Blue>--                   ic &lt;- ignoresectcontents</font>-<a name="(line549)"></a><font color=Blue>--                   tok TokSectionClose</font>-<a name="(line550)"></a><font color=Blue>--                   ig &lt;- ignore</font>-<a name="(line551)"></a><font color=Blue>--                   return (ic,ig))</font>-<a name="(line552)"></a><font color=Blue>--    return (IgnoreSectContents i is)</font>-<a name="(line553)"></a><font color=Blue>--</font>-<a name="(line554)"></a><font color=Blue>--ignore :: HParser Ignore</font>-<a name="(line555)"></a><font color=Blue>--ignore = freetext &gt;&gt;= return . Ignore</font>-<a name="(line556)"></a>-<a name="(line557)"></a><a name="reference"></a>reference <font color=Red>::</font> HParser Reference-<a name="(line558)"></a>reference <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line559)"></a>    bracket <font color=Cyan>(</font>tok TokAmp<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSemi<font color=Cyan>)</font> <font color=Cyan>(</font>freetext <font color=Cyan>&gt;&gt;=</font> val<font color=Cyan>)</font>-<a name="(line560)"></a>  <font color=Green><u>where</u></font>-<a name="(line561)"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font><font color=Magenta>'x'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font> <font color=Red>|</font> all isHexDigit i-<a name="(line562)"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readHex <font color=Cyan>$</font> i-<a name="(line563)"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font>     <font color=Red>|</font> all isDigit i-<a name="(line564)"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readDec <font color=Cyan>$</font> i-<a name="(line565)"></a>    val name        <font color=Red>=</font> return <font color=Cyan>.</font> RefEntity <font color=Cyan>$</font> name-<a name="(line566)"></a>-<a name="(line567)"></a><font color=Blue>{--<a name="(line568)"></a>reference :: HParser Reference-<a name="(line569)"></a>reference =-<a name="(line570)"></a>    ( charref &gt;&gt;= return . RefChar) `onFail`-<a name="(line571)"></a>    ( entityref &gt;&gt;= return . RefEntity)-<a name="(line572)"></a>-<a name="(line573)"></a>entityref :: HParser EntityRef-<a name="(line574)"></a>entityref = do-<a name="(line575)"></a>    n &lt;- bracket (tok TokAmp) (tok TokSemi) name-<a name="(line576)"></a>    return n-<a name="(line577)"></a>-<a name="(line578)"></a>charref :: HParser CharRef-<a name="(line579)"></a>charref = do-<a name="(line580)"></a>    bracket (tok TokAmp) (tok TokSemi) (freetext &gt;&gt;= readCharVal)-<a name="(line581)"></a>  where-<a name="(line582)"></a>    readCharVal ('#':'x':i) = return . fst . head . readHex $ i-<a name="(line583)"></a>    readCharVal ('#':i)     = return . fst . head . readDec $ i-<a name="(line584)"></a>    readCharVal _           = mzero-<a name="(line585)"></a>-}</font>-<a name="(line586)"></a>-<a name="(line587)"></a><font color=Blue>--pereference :: HParser PEReference</font>-<a name="(line588)"></a><font color=Blue>--pereference = do</font>-<a name="(line589)"></a><font color=Blue>--    bracket (tok TokPercent) (tok TokSemi) nmtoken</font>-<a name="(line590)"></a><font color=Blue>--</font>-<a name="(line591)"></a><font color=Blue>--entitydecl :: HParser EntityDecl</font>-<a name="(line592)"></a><font color=Blue>--entitydecl =</font>-<a name="(line593)"></a><font color=Blue>--    ( gedecl &gt;&gt;= return . EntityGEDecl) `onFail`</font>-<a name="(line594)"></a><font color=Blue>--    ( pedecl &gt;&gt;= return . EntityPEDecl)</font>-<a name="(line595)"></a><font color=Blue>--</font>-<a name="(line596)"></a><font color=Blue>--gedecl :: HParser GEDecl</font>-<a name="(line597)"></a><font color=Blue>--gedecl = do</font>-<a name="(line598)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line599)"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>-<a name="(line600)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line601)"></a><font color=Blue>--    e &lt;- entitydef `onFail` failP "missing entity defn in G ENTITY decl"</font>-<a name="(line602)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating G ENTITY decl"</font>-<a name="(line603)"></a><font color=Blue>--    return (GEDecl n e)</font>-<a name="(line604)"></a><font color=Blue>--</font>-<a name="(line605)"></a><font color=Blue>--pedecl :: HParser PEDecl</font>-<a name="(line606)"></a><font color=Blue>--pedecl = do</font>-<a name="(line607)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line608)"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>-<a name="(line609)"></a><font color=Blue>--    tok TokPercent</font>-<a name="(line610)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line611)"></a><font color=Blue>--    e &lt;- pedef `onFail` failP "missing entity defn in P ENTITY decl"</font>-<a name="(line612)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating P ENTITY decl"</font>-<a name="(line613)"></a><font color=Blue>--    return (PEDecl n e)</font>-<a name="(line614)"></a><font color=Blue>--</font>-<a name="(line615)"></a><font color=Blue>--entitydef :: HParser EntityDef</font>-<a name="(line616)"></a><font color=Blue>--entitydef =</font>-<a name="(line617)"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . DefEntityValue) `onFail`</font>-<a name="(line618)"></a><font color=Blue>--    ( do eid &lt;- externalid</font>-<a name="(line619)"></a><font color=Blue>--         ndd &lt;- maybe ndatadecl</font>-<a name="(line620)"></a><font color=Blue>--         return (DefExternalID eid ndd))</font>-<a name="(line621)"></a><font color=Blue>--</font>-<a name="(line622)"></a><font color=Blue>--pedef :: HParser PEDef</font>-<a name="(line623)"></a><font color=Blue>--pedef =</font>-<a name="(line624)"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . PEDefEntityValue) `onFail`</font>-<a name="(line625)"></a><font color=Blue>--    ( externalid &gt;&gt;= return . PEDefExternalID)</font>-<a name="(line626)"></a>-<a name="(line627)"></a><a name="externalid"></a>externalid <font color=Red>::</font> HParser ExternalID-<a name="(line628)"></a>externalid <font color=Red>=</font>-<a name="(line629)"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"SYSTEM"</font>-<a name="(line630)"></a>         s <font color=Red>&lt;-</font> systemliteral-<a name="(line631)"></a>         return <font color=Cyan>(</font>SYSTEM s<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line632)"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"PUBLIC"</font>-<a name="(line633)"></a>         p <font color=Red>&lt;-</font> pubidliteral-<a name="(line634)"></a>         s <font color=Red>&lt;-</font> <font color=Cyan>(</font>systemliteral <font color=Cyan>`onFail`</font> return <font color=Cyan>(</font>SystemLiteral <font color=Magenta>""</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line635)"></a>         return <font color=Cyan>(</font>PUBLIC p s<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line636)"></a>-<a name="(line637)"></a><font color=Blue>--ndatadecl :: HParser NDataDecl</font>-<a name="(line638)"></a><font color=Blue>--ndatadecl = do</font>-<a name="(line639)"></a><font color=Blue>--    word "NDATA"</font>-<a name="(line640)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line641)"></a><font color=Blue>--    return (NDATA n)</font>-<a name="(line642)"></a>-<a name="(line643)"></a><a name="textdecl"></a>textdecl <font color=Red>::</font> HParser TextDecl-<a name="(line644)"></a>textdecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line645)"></a>    tok TokPIOpen-<a name="(line646)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>-<a name="(line647)"></a>    v <font color=Red>&lt;-</font> maybe versioninfo-<a name="(line648)"></a>    e <font color=Red>&lt;-</font> encodingdecl-<a name="(line649)"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"expected ?&gt; terminating text decl"</font>-<a name="(line650)"></a>    return <font color=Cyan>(</font>TextDecl v e<font color=Cyan>)</font>-<a name="(line651)"></a>-<a name="(line652)"></a><font color=Blue>--extparsedent :: HParser ExtParsedEnt</font>-<a name="(line653)"></a><font color=Blue>--extparsedent = do</font>-<a name="(line654)"></a><font color=Blue>--    t &lt;- maybe textdecl</font>-<a name="(line655)"></a><font color=Blue>--    (_,c) &lt;- (content "")</font>-<a name="(line656)"></a><font color=Blue>--    return (ExtParsedEnt t c)</font>-<a name="(line657)"></a><font color=Blue>--</font>-<a name="(line658)"></a><font color=Blue>--extpe :: HParser ExtPE</font>-<a name="(line659)"></a><font color=Blue>--extpe = do</font>-<a name="(line660)"></a><font color=Blue>--    t &lt;- maybe textdecl</font>-<a name="(line661)"></a><font color=Blue>--    e &lt;- extsubsetdecl</font>-<a name="(line662)"></a><font color=Blue>--    return (ExtPE t e)</font>-<a name="(line663)"></a>-<a name="(line664)"></a><a name="encodingdecl"></a>encodingdecl <font color=Red>::</font> HParser EncodingDecl-<a name="(line665)"></a>encodingdecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line666)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"encoding"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"ENCODING"</font><font color=Cyan>)</font>-<a name="(line667)"></a>    tok TokEqual <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"expected = in 'encoding' decl"</font>-<a name="(line668)"></a>    f <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line669)"></a>    return <font color=Cyan>(</font>EncodingDecl f<font color=Cyan>)</font>-<a name="(line670)"></a>-<a name="(line671)"></a><font color=Blue>--notationdecl :: HParser NotationDecl</font>-<a name="(line672)"></a><font color=Blue>--notationdecl = do</font>-<a name="(line673)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line674)"></a><font color=Blue>--    word "NOTATION"</font>-<a name="(line675)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line676)"></a><font color=Blue>--    e &lt;- either externalid publicid</font>-<a name="(line677)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating NOTATION decl"</font>-<a name="(line678)"></a><font color=Blue>--    return (NOTATION n e)</font>-<a name="(line679)"></a>-<a name="(line680)"></a><a name="publicid"></a>publicid <font color=Red>::</font> HParser PublicID-<a name="(line681)"></a>publicid <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line682)"></a>    word <font color=Magenta>"PUBLICID"</font>-<a name="(line683)"></a>    p <font color=Red>&lt;-</font> pubidliteral-<a name="(line684)"></a>    return <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>-<a name="(line685)"></a>-<a name="(line686)"></a><a name="entityvalue"></a>entityvalue <font color=Red>::</font> HParser EntityValue-<a name="(line687)"></a>entityvalue <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line688)"></a>    evs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>many ev<font color=Cyan>)</font>-<a name="(line689)"></a>    return <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>-<a name="(line690)"></a>-<a name="(line691)"></a><a name="ev"></a>ev <font color=Red>::</font> HParser EV-<a name="(line692)"></a>ev <font color=Red>=</font>-<a name="(line693)"></a>    <font color=Cyan>(</font> freetext <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVString<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line694)"></a><font color=Blue>--  PEREF(EVPERef,ev) `onFail`</font>-<a name="(line695)"></a>    <font color=Cyan>(</font> reference <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVRef<font color=Cyan>)</font>-<a name="(line696)"></a>-<a name="(line697)"></a><a name="attvalue"></a>attvalue <font color=Red>::</font> HParser AttValue-<a name="(line698)"></a>attvalue <font color=Red>=</font>-<a name="(line699)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> avs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>-<a name="(line700)"></a>                      <font color=Cyan>(</font>many <font color=Cyan>(</font>either freetext reference<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line701)"></a>       return <font color=Cyan>(</font>AttValue avs<font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line702)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> v <font color=Red>&lt;-</font> nmtoken-<a name="(line703)"></a>       s <font color=Red>&lt;-</font> <font color=Cyan>(</font>tok TokPercent <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"%"</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font> return <font color=Magenta>""</font>-<a name="(line704)"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>v<font color=Cyan>++</font>s<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line705)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> s <font color=Red>&lt;-</font> oneOf <font color=Red>[</font> tok TokPlus <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"+"</font>-<a name="(line706)"></a>                  <font color=Cyan>,</font> tok TokHash <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"#"</font>-<a name="(line707)"></a>                  <font color=Red>]</font>-<a name="(line708)"></a>       v <font color=Red>&lt;-</font> nmtoken-<a name="(line709)"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>s<font color=Cyan>++</font>v<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line710)"></a>  failP <font color=Magenta>"Badly formatted attribute value"</font>-<a name="(line711)"></a>-<a name="(line712)"></a><a name="systemliteral"></a>systemliteral <font color=Red>::</font> HParser SystemLiteral-<a name="(line713)"></a>systemliteral <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line714)"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line715)"></a>    return <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>-<a name="(line716)"></a>-<a name="(line717)"></a><a name="pubidliteral"></a>pubidliteral <font color=Red>::</font> HParser PubidLiteral-<a name="(line718)"></a>pubidliteral <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line719)"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line720)"></a>    return <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>-<a name="(line721)"></a>-<a name="(line722)"></a><a name="chardata"></a>chardata <font color=Red>::</font> HParser CharData-<a name="(line723)"></a>chardata <font color=Red>=</font> freetext <font color=Blue>-- &gt;&gt;= return . CharData</font>-<a name="(line724)"></a>-</pre>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Html/Parse.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | This is a parser for HTML documents.  Unlike for XML documents, it</font>+<a name="line-2"></a><font color=Blue>--   must include a certain amount of error-correction to account for</font>+<a name="line-3"></a><font color=Blue>--   HTML features like self-terminating tags, unterminated tags, and</font>+<a name="line-4"></a><font color=Blue>--   incorrect nesting.  The input is tokenised by the</font>+<a name="line-5"></a><font color=Blue>--   XML lexer (a separate lexer is not required for HTML).</font>+<a name="line-6"></a>+<a name="line-7"></a><font color=Blue>-- It uses a slightly extended version of the Hutton/Meijer parser</font>+<a name="line-8"></a><font color=Blue>-- combinators.</font>+<a name="line-9"></a>+<a name="line-10"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Parse+<a name="line-11"></a>  <font color=Cyan>(</font> htmlParse+<a name="line-12"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-13"></a>+<a name="line-14"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>either<font color=Cyan>,</font>maybe<font color=Cyan>,</font>sequence<font color=Cyan>)</font>+<a name="line-15"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Prelude <font color=Cyan>(</font>either<font color=Cyan>)</font>+<a name="line-16"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>+<a name="line-17"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>toLower<font color=Cyan>,</font> isSpace<font color=Cyan>,</font> isDigit<font color=Cyan>,</font> isHexDigit<font color=Cyan>)</font>+<a name="line-18"></a><font color=Green><u>import</u></font> Numeric <font color=Cyan>(</font>readDec<font color=Cyan>,</font>readHex<font color=Cyan>)</font>+<a name="line-19"></a><font color=Green><u>import</u></font> Monad+<a name="line-20"></a>+<a name="line-21"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-22"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Lex+<a name="line-23"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Posn+<a name="line-24"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>ParserCombinators<font color=Cyan>.</font>Poly<font color=Cyan>.</font>NoLeak<font color=Cyan>.</font>Plain+<a name="line-25"></a>+<a name="line-26"></a><font color=Blue>--  #define DEBUG</font>+<a name="line-27"></a> +<a name="line-28"></a><font color=Magenta><em>#if defined(DEBUG)</em></font>+<a name="line-29"></a><font color=Magenta><em>#  if ( defined(__GLASGOW_HASKELL__) &amp;&amp; __GLASGOW_HASKELL__ &gt; 502 ) || \</em></font>+<a name="line-30"></a>      <font color=Cyan>(</font> defined<font color=Cyan>(</font><b><font color=Magenta>__NHC__</font></b><font color=Cyan>)</font> <font color=Cyan>&amp;&amp;</font> <b><font color=Magenta>__NHC__</font></b> <font color=Cyan>&gt;</font> <font color=Magenta>114</font> <font color=Cyan>)</font> <font color=Cyan>||</font> defined<font color=Cyan>(</font><b><font color=Magenta>__HUGS__</font></b><font color=Cyan>)</font>+<a name="line-31"></a><font color=Green><u>import</u></font> Debug<font color=Cyan>.</font>Trace<font color=Cyan>(</font>trace<font color=Cyan>)</font>+<a name="line-32"></a><font color=Magenta><em>#  elif defined(__GLASGOW_HASKELL__)</em></font>+<a name="line-33"></a><font color=Green><u>import</u></font> IOExts<font color=Cyan>(</font>trace<font color=Cyan>)</font>+<a name="line-34"></a><font color=Magenta><em>#  elif defined(__NHC__) || defined(__HBC__)</em></font>+<a name="line-35"></a><font color=Green><u>import</u></font> NonStdTrace+<a name="line-36"></a><font color=Magenta><em>#  endif</em></font>+<a name="line-37"></a><a name="debug"></a><font color=Blue>debug</font> <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()+<a name="line-38"></a><font color=Blue>debug</font> s <font color=Red>=</font> trace s <font color=Cyan>(</font>return ()<font color=Cyan>)</font>+<a name="line-39"></a><font color=Magenta><em>#else</em></font>+<a name="line-40"></a><font color=Blue>debug</font> <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()+<a name="line-41"></a><font color=Blue>debug</font> s <font color=Red>=</font> return ()+<a name="line-42"></a><font color=Magenta><em>#endif</em></font>+<a name="line-43"></a>+<a name="line-44"></a>+<a name="line-45"></a><a name="htmlParse"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>+<a name="line-46"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>+<a name="line-47"></a><font color=Blue>--   an XML document.  Any errors cause program failure with message to stderr.</font>+<a name="line-48"></a><font color=Blue>htmlParse</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Document Posn+<a name="line-49"></a><font color=Blue>htmlParse</font> name <font color=Red>=</font> Prelude<font color=Cyan>.</font>either error id <font color=Cyan>.</font> htmlParse' name+<a name="line-50"></a>+<a name="line-51"></a><a name="htmlParse'"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>+<a name="line-52"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>+<a name="line-53"></a><font color=Blue>--   an XML document.  Any parsing errors are returned in the @Either@ type.</font>+<a name="line-54"></a><font color=Blue>htmlParse'</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Either String <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>+<a name="line-55"></a><font color=Blue>htmlParse'</font> name <font color=Red>=</font> Prelude<font color=Cyan>.</font>either Left <font color=Cyan>(</font>Right <font color=Cyan>.</font> simplify<font color=Cyan>)</font> <font color=Cyan>.</font> fst+<a name="line-56"></a>                  <font color=Cyan>.</font> runParser document <font color=Cyan>.</font> xmlLex name+<a name="line-57"></a>+<a name="line-58"></a><font color=Blue>---- Document simplification ----</font>+<a name="line-59"></a>+<a name="line-60"></a><a name="simplify"></a><font color=Blue>simplify</font> <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Document i+<a name="line-61"></a><font color=Blue>simplify</font> <font color=Cyan>(</font>Document p st <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> ms<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-62"></a>    Document p st <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter simp cs<font color=Cyan>)</font><font color=Cyan>)</font> ms+<a name="line-63"></a>  <font color=Green><u>where</u></font>+<a name="line-64"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> False+<a name="line-65"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem  n     <font color=Green><u>_</u></font>  []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"font"</font><font color=Cyan>,</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"i"</font><font color=Cyan>,</font><font color=Magenta>"b"</font><font color=Cyan>,</font><font color=Magenta>"em"</font>+<a name="line-66"></a>                                                  <font color=Cyan>,</font><font color=Magenta>"tt"</font><font color=Cyan>,</font><font color=Magenta>"big"</font><font color=Cyan>,</font><font color=Magenta>"small"</font><font color=Red>]</font> <font color=Red>=</font> False+<a name="line-67"></a> <font color=Blue>-- simp (CString False s _) | all isSpace s = False</font>+<a name="line-68"></a>    simp <font color=Green><u>_</u></font> <font color=Red>=</font> True+<a name="line-69"></a>    deepfilter p <font color=Red>=</font>+<a name="line-70"></a>        filter p <font color=Cyan>.</font> map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>case</u></font> c <font color=Green><u>of</u></font>+<a name="line-71"></a>                          CElem <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> i+<a name="line-72"></a>                                  <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter p cs<font color=Cyan>)</font><font color=Cyan>)</font> i+<a name="line-73"></a>                          <font color=Green><u>_</u></font>       <font color=Red>-&gt;</font> c<font color=Cyan>)</font>+<a name="line-74"></a>+<a name="line-75"></a><a name="selfclosingtags"></a><font color=Blue>-- opening any of these, they close again immediately</font>+<a name="line-76"></a><font color=Blue>selfclosingtags</font> <font color=Red>=</font> <font color=Red>[</font><font color=Magenta>"img"</font><font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"br"</font><font color=Cyan>,</font><font color=Magenta>"meta"</font><font color=Cyan>,</font><font color=Magenta>"col"</font><font color=Cyan>,</font><font color=Magenta>"link"</font><font color=Cyan>,</font><font color=Magenta>"base"</font>+<a name="line-77"></a>                  <font color=Cyan>,</font><font color=Magenta>"param"</font><font color=Cyan>,</font><font color=Magenta>"area"</font><font color=Cyan>,</font><font color=Magenta>"frame"</font><font color=Cyan>,</font><font color=Magenta>"input"</font><font color=Red>]</font>+<a name="line-78"></a>+<a name="line-79"></a><a name="closeInnerTags"></a><font color=Blue>--closing this, implicitly closes any of those which are contained in it</font>+<a name="line-80"></a><font color=Blue>closeInnerTags</font> <font color=Red>=</font>+<a name="line-81"></a>  <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"ul"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-82"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"ol"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-83"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dl"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-84"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tr"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-85"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"div"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-86"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"thead"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-87"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-88"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-89"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"table"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"tbody"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-90"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"caption"</font><font color=Cyan>,</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-91"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"th"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-92"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"td"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-93"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"li"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-94"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dt"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-95"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dd"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-96"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"object"</font><font color=Cyan>,</font>  <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-97"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"map"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-98"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"body"</font><font color=Cyan>,</font>    <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-99"></a>  <font color=Red>]</font>+<a name="line-100"></a>+<a name="line-101"></a><a name="closes"></a><font color=Blue>--opening this, implicitly closes that</font>+<a name="line-102"></a><font color=Blue>closes</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> Bool+<a name="line-103"></a><font color=Magenta>"a"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"a"</font>   <font color=Red>=</font>  True+<a name="line-104"></a><font color=Magenta>"li"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"li"</font>  <font color=Red>=</font>  True+<a name="line-105"></a><font color=Magenta>"th"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-106"></a><font color=Magenta>"td"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-107"></a><font color=Magenta>"tr"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Red>]</font> <font color=Red>=</font>  True+<a name="line-108"></a><font color=Magenta>"dt"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-109"></a><font color=Magenta>"dd"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-110"></a><font color=Magenta>"form"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"form"</font>      <font color=Red>=</font> True+<a name="line-111"></a><font color=Magenta>"label"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"label"</font>     <font color=Red>=</font> True+<a name="line-112"></a><font color=Green><u>_</u></font>       <font color=Cyan>`closes`</font> <font color=Magenta>"option"</font>    <font color=Red>=</font> True+<a name="line-113"></a><font color=Magenta>"thead"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>          <font color=Red>=</font> True+<a name="line-114"></a><font color=Magenta>"tfoot"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>  <font color=Red>=</font> True+<a name="line-115"></a><font color=Magenta>"tbody"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font> <font color=Red>=</font> True+<a name="line-116"></a><font color=Magenta>"colgroup"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"colgroup"</font>  <font color=Red>=</font> True+<a name="line-117"></a><a name="closes"></a><font color=Blue>t</font> <font color=Cyan>`closes`</font> <font color=Magenta>"p"</font>+<a name="line-118"></a>    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"h1"</font><font color=Cyan>,</font><font color=Magenta>"h2"</font><font color=Cyan>,</font><font color=Magenta>"h3"</font><font color=Cyan>,</font><font color=Magenta>"h4"</font><font color=Cyan>,</font><font color=Magenta>"h5"</font><font color=Cyan>,</font><font color=Magenta>"h6"</font>+<a name="line-119"></a>               <font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"div"</font><font color=Cyan>,</font><font color=Magenta>"ul"</font><font color=Cyan>,</font><font color=Magenta>"dl"</font><font color=Cyan>,</font><font color=Magenta>"ol"</font><font color=Cyan>,</font><font color=Magenta>"table"</font><font color=Red>]</font>  <font color=Red>=</font>  True+<a name="line-120"></a><font color=Green><u>_</u></font> <font color=Cyan>`closes`</font> <font color=Green><u>_</u></font> <font color=Red>=</font> False+<a name="line-121"></a>+<a name="line-122"></a>+<a name="line-123"></a>+<a name="line-124"></a><font color=Blue>---- Misc ----</font>+<a name="line-125"></a>+<a name="line-126"></a><a name="fst3"></a><font color=Blue>fst3</font> <font color=Cyan>(</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-127"></a><a name="snd3"></a><font color=Blue>snd3</font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-128"></a><a name="thd3"></a><font color=Blue>thd3</font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-129"></a>+<a name="line-130"></a>+<a name="line-131"></a>+<a name="line-132"></a><font color=Blue>---- Auxiliary Parsing Functions ----</font>+<a name="line-133"></a>+<a name="line-134"></a><a name="HParser"></a><font color=Green><u>type</u></font> HParser a <font color=Red>=</font> Parser <font color=Cyan>(</font>Posn<font color=Cyan>,</font>TokenT<font color=Cyan>)</font> a+<a name="line-135"></a>+<a name="line-136"></a><a name="tok"></a><font color=Blue>tok</font> <font color=Red>::</font> TokenT <font color=Red>-&gt;</font> HParser TokenT+<a name="line-137"></a><font color=Blue>tok</font> t <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t'<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-138"></a>           <font color=Green><u>case</u></font> t' <font color=Green><u>of</u></font> TokError s    <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'+<a name="line-139"></a>                      <font color=Green><u>_</u></font> <font color=Red>|</font> t'<font color=Cyan>==</font>t     <font color=Red>-&gt;</font> return t+<a name="line-140"></a>                        <font color=Red>|</font> otherwise <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'+<a name="line-141"></a>+<a name="line-142"></a><a name="name"></a><font color=Blue>name</font> <font color=Red>::</font> HParser Name+<a name="line-143"></a><font color=Blue>--name = do {(p,TokName s) &lt;- next; return s}</font>+<a name="line-144"></a><font color=Blue>name</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>tok<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-145"></a>          <font color=Green><u>case</u></font> tok <font color=Green><u>of</u></font> +<a name="line-146"></a>            TokName s  <font color=Red>-&gt;</font> return s +<a name="line-147"></a>            TokError s <font color=Red>-&gt;</font> report failBad <font color=Magenta>"a name"</font> p tok+<a name="line-148"></a>            <font color=Green><u>_</u></font>          <font color=Red>-&gt;</font> report fail <font color=Magenta>"a name"</font> p tok+<a name="line-149"></a>+<a name="line-150"></a><a name="string"></a><font color=Blue>string</font><font color=Cyan>,</font> freetext <font color=Red>::</font> HParser String+<a name="line-151"></a><font color=Blue>string</font>   <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-152"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokName s <font color=Red>-&gt;</font> return s+<a name="line-153"></a>                        <font color=Green><u>_</u></font>         <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t+<a name="line-154"></a><a name="freetext"></a><font color=Blue>freetext</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-155"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokFreeText s <font color=Red>-&gt;</font> return s+<a name="line-156"></a>                        <font color=Green><u>_</u></font>             <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t+<a name="line-157"></a>+<a name="line-158"></a><a name="maybe"></a><font color=Blue>maybe</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Maybe a<font color=Cyan>)</font>+<a name="line-159"></a><font color=Blue>maybe</font> p <font color=Red>=</font>+<a name="line-160"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Just<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-161"></a>    <font color=Cyan>(</font> return Nothing<font color=Cyan>)</font>+<a name="line-162"></a>+<a name="line-163"></a><a name="either"></a><font color=Blue>either</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser b <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Either a b<font color=Cyan>)</font>+<a name="line-164"></a><font color=Blue>either</font> p q <font color=Red>=</font>+<a name="line-165"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Left<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-166"></a>    <font color=Cyan>(</font> q <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Right<font color=Cyan>)</font>+<a name="line-167"></a>+<a name="line-168"></a><a name="word"></a><font color=Blue>word</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser ()+<a name="line-169"></a><font color=Blue>word</font> s <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x <font color=Red>&lt;-</font> next+<a name="line-170"></a>            <font color=Cyan>;</font> <font color=Green><u>case</u></font> x <font color=Green><u>of</u></font>+<a name="line-171"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokName n<font color=Cyan>)</font>     <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()+<a name="line-172"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokFreeText n<font color=Cyan>)</font> <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()+<a name="line-173"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Red>@</font><font color=Cyan>(</font>TokError <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t+<a name="line-174"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t+<a name="line-175"></a>            <font color=Cyan>}</font>+<a name="line-176"></a>+<a name="line-177"></a><a name="posn"></a><font color=Blue>posn</font> <font color=Red>::</font> HParser Posn+<a name="line-178"></a><font color=Blue>posn</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x<font color=Red>@</font><font color=Cyan>(</font>p<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-179"></a>          <font color=Cyan>;</font> reparse <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-180"></a>          <font color=Cyan>;</font> return p+<a name="line-181"></a>          <font color=Cyan>}</font> <font color=Cyan>`onFail`</font> return noPos+<a name="line-182"></a>+<a name="line-183"></a><a name="nmtoken"></a><font color=Blue>nmtoken</font> <font color=Red>::</font> HParser NmToken+<a name="line-184"></a><font color=Blue>nmtoken</font> <font color=Red>=</font> <font color=Cyan>(</font>string <font color=Cyan>`onFail`</font> freetext<font color=Cyan>)</font>+<a name="line-185"></a>+<a name="line-186"></a><a name="failP"></a><font color=Blue>failP</font><font color=Cyan>,</font> failBadP <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser a+<a name="line-187"></a><font color=Blue>failP</font> msg    <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> fail <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>+<a name="line-188"></a><a name="failBadP"></a><font color=Blue>failBadP</font> msg <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> failBad <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>+<a name="line-189"></a>+<a name="line-190"></a><a name="report"></a><font color=Blue>report</font> <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>HParser a<font color=Cyan>)</font> <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Posn <font color=Red>-&gt;</font> TokenT <font color=Red>-&gt;</font> HParser a+<a name="line-191"></a><font color=Blue>report</font> fail exp p t <font color=Red>=</font> fail <font color=Cyan>(</font><font color=Magenta>"Expected "</font><font color=Cyan>++</font>show exp<font color=Cyan>++</font><font color=Magenta>" but found "</font><font color=Cyan>++</font>show t+<a name="line-192"></a>                           <font color=Cyan>++</font><font color=Magenta>"\n  at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font>+<a name="line-193"></a>+<a name="line-194"></a><a name="adjustErrP"></a><font color=Blue>adjustErrP</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>String<font color=Cyan>)</font> <font color=Red>-&gt;</font> HParser a+<a name="line-195"></a><a name="adjustErrP"></a><font color=Blue>p</font> <font color=Cyan>`adjustErrP`</font> f <font color=Red>=</font> p <font color=Cyan>`onFail`</font> <font color=Green><u>do</u></font> pn <font color=Red>&lt;-</font> posn+<a name="line-196"></a>                                 <font color=Cyan>(</font>p <font color=Cyan>`adjustErr`</font> f<font color=Cyan>)</font> <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Cyan>++</font>show pn<font color=Cyan>)</font>+<a name="line-197"></a>+<a name="line-198"></a><font color=Blue>---- XML Parsing Functions ----</font>+<a name="line-199"></a>+<a name="line-200"></a><a name="document"></a><font color=Blue>document</font> <font color=Red>::</font> HParser <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>+<a name="line-201"></a><font color=Blue>document</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-202"></a>    p     <font color=Red>&lt;-</font> prolog <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Magenta>"unrecognisable XML prolog\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>+<a name="line-203"></a>    es    <font color=Red>&lt;-</font> many1 <font color=Cyan>(</font>element <font color=Magenta>"HTML document"</font><font color=Cyan>)</font>+<a name="line-204"></a>    ms    <font color=Red>&lt;-</font> many misc+<a name="line-205"></a>    return <font color=Cyan>(</font>Document p emptyST <font color=Cyan>(</font><font color=Green><u>case</u></font> map snd es <font color=Green><u>of</u></font>+<a name="line-206"></a>                                  <font color=Red>[</font>e<font color=Red>]</font> <font color=Red>-&gt;</font> e+<a name="line-207"></a>                                  es  <font color=Red>-&gt;</font> Elem <font color=Magenta>"html"</font> [] <font color=Cyan>(</font>map mkCElem es<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-208"></a>                               ms<font color=Cyan>)</font>+<a name="line-209"></a>  <font color=Green><u>where</u></font> mkCElem e <font color=Red>=</font> CElem e noPos+<a name="line-210"></a>+<a name="line-211"></a><a name="comment"></a><font color=Blue>comment</font> <font color=Red>::</font> HParser Comment+<a name="line-212"></a><font color=Blue>comment</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-213"></a>    bracket <font color=Cyan>(</font>tok TokCommentOpen<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokCommentClose<font color=Cyan>)</font> freetext+<a name="line-214"></a>+<a name="line-215"></a><a name="processinginstruction"></a><font color=Blue>processinginstruction</font> <font color=Red>::</font> HParser ProcessingInstruction+<a name="line-216"></a><font color=Blue>processinginstruction</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-217"></a>    tok TokPIOpen+<a name="line-218"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-219"></a>      n <font color=Red>&lt;-</font> string  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"processing instruction has no target"</font>+<a name="line-220"></a>      f <font color=Red>&lt;-</font> freetext+<a name="line-221"></a>      <font color=Cyan>(</font>tok TokPIClose <font color=Cyan>`onFail`</font> tok TokAnyClose<font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing ?&gt; or &gt;"</font>+<a name="line-222"></a>      return <font color=Cyan>(</font>n<font color=Cyan>,</font> f<font color=Cyan>)</font>+<a name="line-223"></a>+<a name="line-224"></a><a name="cdsect"></a><font color=Blue>cdsect</font> <font color=Red>::</font> HParser CDSect+<a name="line-225"></a><font color=Blue>cdsect</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-226"></a>    tok TokSectionOpen+<a name="line-227"></a>    bracket <font color=Cyan>(</font>tok <font color=Cyan>(</font>TokSection CDATAx<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSectionClose<font color=Cyan>)</font> chardata+<a name="line-228"></a>+<a name="line-229"></a><a name="prolog"></a><font color=Blue>prolog</font> <font color=Red>::</font> HParser Prolog+<a name="line-230"></a><font color=Blue>prolog</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-231"></a>    x <font color=Red>&lt;-</font> maybe xmldecl+<a name="line-232"></a>    m1 <font color=Red>&lt;-</font> many misc+<a name="line-233"></a>    dtd <font color=Red>&lt;-</font> maybe doctypedecl+<a name="line-234"></a>    m2 <font color=Red>&lt;-</font> many misc+<a name="line-235"></a>    return <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font>+<a name="line-236"></a>+<a name="line-237"></a><a name="xmldecl"></a><font color=Blue>xmldecl</font> <font color=Red>::</font> HParser XMLDecl+<a name="line-238"></a><font color=Blue>xmldecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-239"></a>    tok TokPIOpen+<a name="line-240"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>+<a name="line-241"></a>    p <font color=Red>&lt;-</font> posn+<a name="line-242"></a>    s <font color=Red>&lt;-</font> freetext+<a name="line-243"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"missing ?&gt; in &lt;?xml ...?&gt;"</font>+<a name="line-244"></a>    <font color=Cyan>(</font>Prelude<font color=Cyan>.</font>either failP return <font color=Cyan>.</font> fst <font color=Cyan>.</font> runParser aux <font color=Cyan>.</font> xmlReLex p<font color=Cyan>)</font> s+<a name="line-245"></a>  <font color=Green><u>where</u></font>+<a name="line-246"></a>    aux <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-247"></a>      v <font color=Red>&lt;-</font> versioninfo  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing XML version info"</font>+<a name="line-248"></a>      e <font color=Red>&lt;-</font> maybe encodingdecl+<a name="line-249"></a>      s <font color=Red>&lt;-</font> maybe sddecl+<a name="line-250"></a>      return <font color=Cyan>(</font>XMLDecl v e s<font color=Cyan>)</font>+<a name="line-251"></a>+<a name="line-252"></a><a name="versioninfo"></a><font color=Blue>versioninfo</font> <font color=Red>::</font> HParser VersionInfo+<a name="line-253"></a><font color=Blue>versioninfo</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-254"></a>    <font color=Cyan>(</font>word <font color=Magenta>"version"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"VERSION"</font><font color=Cyan>)</font>+<a name="line-255"></a>    tok TokEqual+<a name="line-256"></a>    bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-257"></a>+<a name="line-258"></a><a name="misc"></a><font color=Blue>misc</font> <font color=Red>::</font> HParser Misc+<a name="line-259"></a><font color=Blue>misc</font> <font color=Red>=</font> +<a name="line-260"></a>    oneOf' <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"&lt;!--comment--&gt;"</font><font color=Cyan>,</font> comment <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Comment<font color=Cyan>)</font>+<a name="line-261"></a>           <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"&lt;?PI?&gt;"</font><font color=Cyan>,</font>         processinginstruction <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> PI<font color=Cyan>)</font>+<a name="line-262"></a>           <font color=Red>]</font>+<a name="line-263"></a>+<a name="line-264"></a>+<a name="line-265"></a><font color=Blue>-- Question: for HTML, should we disallow in-line DTDs, allowing only externals?</font>+<a name="line-266"></a><font color=Blue>-- Answer: I think so.</font>+<a name="line-267"></a>+<a name="line-268"></a><a name="doctypedecl"></a><font color=Blue>doctypedecl</font> <font color=Red>::</font> HParser DocTypeDecl+<a name="line-269"></a><font color=Blue>doctypedecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-270"></a>    tok TokSpecialOpen+<a name="line-271"></a>    tok <font color=Cyan>(</font>TokSpecial DOCTYPEx<font color=Cyan>)</font>+<a name="line-272"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-273"></a>      n <font color=Red>&lt;-</font> name+<a name="line-274"></a>      eid <font color=Red>&lt;-</font> maybe externalid+<a name="line-275"></a><font color=Blue>--    es &lt;- maybe (bracket (tok TokSqOpen) (tok TokSqClose)) (many markupdecl)</font>+<a name="line-276"></a>      tok TokAnyClose  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; in DOCTYPE decl"</font>+<a name="line-277"></a><font color=Blue>--    return (DTD n eid (case es of { Nothing -&gt; []; Just e -&gt; e }))</font>+<a name="line-278"></a>      return <font color=Cyan>(</font>DTD n eid []<font color=Cyan>)</font>+<a name="line-279"></a>+<a name="line-280"></a><font color=Blue>--markupdecl :: HParser MarkupDecl</font>+<a name="line-281"></a><font color=Blue>--markupdecl =</font>+<a name="line-282"></a><font color=Blue>--    ( elementdecl &gt;&gt;= return . Element) `onFail`</font>+<a name="line-283"></a><font color=Blue>--    ( attlistdecl &gt;&gt;= return . AttList) `onFail`</font>+<a name="line-284"></a><font color=Blue>--    ( entitydecl &gt;&gt;= return . Entity) `onFail`</font>+<a name="line-285"></a><font color=Blue>--    ( notationdecl &gt;&gt;= return . Notation) `onFail`</font>+<a name="line-286"></a><font color=Blue>--    ( misc &gt;&gt;= return . MarkupMisc) `onFail`</font>+<a name="line-287"></a><font color=Blue>--    PEREF(MarkupPE,markupdecl)</font>+<a name="line-288"></a><font color=Blue>--</font>+<a name="line-289"></a><font color=Blue>--extsubset :: HParser ExtSubset</font>+<a name="line-290"></a><font color=Blue>--extsubset = do</font>+<a name="line-291"></a><font color=Blue>--    td &lt;- maybe textdecl</font>+<a name="line-292"></a><font color=Blue>--    ds &lt;- many extsubsetdecl</font>+<a name="line-293"></a><font color=Blue>--    return (ExtSubset td ds)</font>+<a name="line-294"></a><font color=Blue>--</font>+<a name="line-295"></a><font color=Blue>--extsubsetdecl :: HParser ExtSubsetDecl</font>+<a name="line-296"></a><font color=Blue>--extsubsetdecl =</font>+<a name="line-297"></a><font color=Blue>--    ( markupdecl &gt;&gt;= return . ExtMarkupDecl) `onFail`</font>+<a name="line-298"></a><font color=Blue>--    ( conditionalsect &gt;&gt;= return . ExtConditionalSect) `onFail`</font>+<a name="line-299"></a><font color=Blue>--    PEREF(ExtPEReference,extsubsetdecl)</font>+<a name="line-300"></a>+<a name="line-301"></a><a name="sddecl"></a><font color=Blue>sddecl</font> <font color=Red>::</font> HParser SDDecl+<a name="line-302"></a><font color=Blue>sddecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-303"></a>    <font color=Cyan>(</font>word <font color=Magenta>"standalone"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"STANDALONE"</font><font color=Cyan>)</font>+<a name="line-304"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-305"></a>      tok TokEqual <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing = in 'standalone' decl"</font>+<a name="line-306"></a>      bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>+<a name="line-307"></a>              <font color=Cyan>(</font> <font color=Cyan>(</font>word <font color=Magenta>"yes"</font> <font color=Cyan>&gt;&gt;</font> return True<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-308"></a>                <font color=Cyan>(</font>word <font color=Magenta>"no"</font> <font color=Cyan>&gt;&gt;</font> return False<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-309"></a>                failP <font color=Magenta>"'standalone' decl requires 'yes' or 'no' value"</font> <font color=Cyan>)</font>+<a name="line-310"></a>+<a name="line-311"></a>+<a name="line-312"></a>+<a name="line-313"></a>+<a name="line-314"></a><a name="Stack"></a><font color=Blue>----</font>+<a name="line-315"></a><a name="Stack"></a><font color=Blue>-- VERY IMPORTANT NOTE: The stack returned here contains those tags which</font>+<a name="line-316"></a><a name="Stack"></a><font color=Blue>-- have been closed implicitly and need to be reopened again at the</font>+<a name="line-317"></a><a name="Stack"></a><font color=Blue>-- earliest opportunity.</font>+<a name="line-318"></a><a name="Stack"></a><font color=Green><u>type</u></font> Stack <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-319"></a>+<a name="line-320"></a><a name="element"></a><font color=Blue>element</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Element Posn<font color=Cyan>)</font>+<a name="line-321"></a><font color=Blue>element</font> ctx <font color=Red>=</font>+<a name="line-322"></a>  <font color=Green><u>do</u></font>+<a name="line-323"></a>    tok TokAnyOpen+<a name="line-324"></a>    <font color=Cyan>(</font>ElemTag e avs<font color=Cyan>)</font> <font color=Red>&lt;-</font> elemtag+<a name="line-325"></a>    <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>`closes`</font> ctx <font color=Green><u>then</u></font>+<a name="line-326"></a>         <font color=Blue>-- insert the missing close-tag, fail forward, and reparse.</font>+<a name="line-327"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> debug <font color=Cyan>(</font><font color=Magenta>"/"</font><font color=Cyan>)</font>+<a name="line-328"></a>              unparse <font color=Cyan>(</font><font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName ctx<font color=Cyan>,</font> TokAnyClose<font color=Cyan>,</font>+<a name="line-329"></a>                        TokAnyOpen<font color=Cyan>,</font> TokName e<font color=Red>]</font> <font color=Cyan>++</font> reformatAttrs avs<font color=Cyan>)</font>+<a name="line-330"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-331"></a>      <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> e <font color=Cyan>`elem`</font> selfclosingtags <font color=Green><u>then</u></font>+<a name="line-332"></a>         <font color=Blue>-- complete the parse straightaway.</font>+<a name="line-333"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose	<font color=Blue>-- self-closing &lt;tag /&gt; </font>+<a name="line-334"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>+<a name="line-335"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-336"></a>     <font color=Blue>--  ( do tok TokAnyClose	-- sequence &lt;tag&gt;&lt;/tag&gt;	(**not HTML?**)</font>+<a name="line-337"></a>     <font color=Blue>--       debug (e++"[+")</font>+<a name="line-338"></a>     <font color=Blue>--       n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>+<a name="line-339"></a>     <font color=Blue>--       debug "]"</font>+<a name="line-340"></a>     <font color=Blue>--       if e == (map toLower n :: Name) </font>+<a name="line-341"></a>     <font color=Blue>--         then return ([], Elem e avs [])      </font>+<a name="line-342"></a>     <font color=Blue>--         else return (error "no nesting in empty tag")) `onFail`</font>+<a name="line-343"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose	<font color=Blue>-- &lt;tag&gt; with no close (e.g. &lt;IMG&gt;)</font>+<a name="line-344"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>+<a name="line-345"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-346"></a>      <font color=Green><u>else</u></font>+<a name="line-347"></a>        <font color=Cyan>(</font><font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose+<a name="line-348"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[]"</font><font color=Cyan>)</font>+<a name="line-349"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-350"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; or /&gt; in element tag"</font>+<a name="line-351"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"["</font><font color=Cyan>)</font>+<a name="line-352"></a>           <font color=Blue>-- zz &lt;- many (content e)</font>+<a name="line-353"></a>           <font color=Blue>-- n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>+<a name="line-354"></a>              zz <font color=Red>&lt;-</font> manyFinally <font color=Cyan>(</font>content e<font color=Cyan>)</font>+<a name="line-355"></a>                                <font color=Cyan>(</font>tok TokEndOpen<font color=Cyan>)</font>+<a name="line-356"></a>              n <font color=Red>&lt;-</font> name+<a name="line-357"></a>              commit <font color=Cyan>(</font>tok TokAnyClose<font color=Cyan>)</font>+<a name="line-358"></a>              debug <font color=Magenta>"]"</font>+<a name="line-359"></a>              <font color=Green><u>let</u></font> <font color=Cyan>(</font>ss<font color=Cyan>,</font>cs<font color=Cyan>)</font> <font color=Red>=</font> unzip zz+<a name="line-360"></a>              <font color=Green><u>let</u></font> s       <font color=Red>=</font> <font color=Green><u>if</u></font> null ss <font color=Green><u>then</u></font> [] <font color=Green><u>else</u></font> last ss+<a name="line-361"></a>              <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>==</font> <font color=Cyan>(</font>map toLower n <font color=Red>::</font> Name<font color=Cyan>)</font> <font color=Green><u>then</u></font>+<a name="line-362"></a>                  <font color=Green><u>do</u></font> unparse <font color=Cyan>(</font>reformatTags <font color=Cyan>(</font>closeInner e s<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-363"></a>                     debug <font color=Magenta>"^"</font>+<a name="line-364"></a>                     return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs cs<font color=Cyan>)</font>+<a name="line-365"></a>                <font color=Green><u>else</u></font>+<a name="line-366"></a>                  <font color=Green><u>do</u></font> unparse <font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName n<font color=Cyan>,</font> TokAnyClose<font color=Red>]</font>+<a name="line-367"></a>                     debug <font color=Magenta>"-"</font>+<a name="line-368"></a>                     return <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>(</font>e<font color=Cyan>,</font>avs<font color=Cyan>)</font><font color=Red><b>:</b></font>s<font color=Cyan>)</font><font color=Cyan>,</font> Elem e avs cs<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-369"></a>         <font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Cyan>(</font><font color=Magenta>"failed to repair non-matching tags in context: "</font><font color=Cyan>++</font>ctx<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-370"></a>+<a name="line-371"></a><a name="closeInner"></a><font color=Blue>closeInner</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-372"></a><font color=Blue>closeInner</font> c ts <font color=Red>=</font>+<a name="line-373"></a>    <font color=Green><u>case</u></font> lookup c closeInnerTags <font color=Green><u>of</u></font>+<a name="line-374"></a>      <font color=Cyan>(</font>Just these<font color=Cyan>)</font> <font color=Red>-&gt;</font> filter <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>`notElem`</font> these<font color=Cyan>)</font><font color=Cyan>.</font>fst<font color=Cyan>)</font> ts+<a name="line-375"></a>      Nothing      <font color=Red>-&gt;</font> ts+<a name="line-376"></a>+<a name="line-377"></a><a name="unparse"></a><font color=Blue>unparse</font> ts <font color=Red>=</font> <font color=Green><u>do</u></font> p <font color=Red>&lt;-</font> posn+<a name="line-378"></a>                reparse <font color=Cyan>(</font>zip <font color=Cyan>(</font>repeat p<font color=Cyan>)</font> ts<font color=Cyan>)</font>+<a name="line-379"></a>+<a name="line-380"></a><a name="reformatAttrs"></a><font color=Blue>reformatAttrs</font> avs <font color=Red>=</font> concatMap f0 avs+<a name="line-381"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>a<font color=Cyan>,</font> v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokName a<font color=Cyan>,</font> TokEqual<font color=Cyan>,</font> TokQuote<font color=Cyan>,</font>+<a name="line-382"></a>                                       TokFreeText <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>,</font> TokQuote<font color=Red>]</font>+<a name="line-383"></a><a name="reformatTags"></a><font color=Blue>reformatTags</font> ts <font color=Red>=</font> concatMap f0 ts+<a name="line-384"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>t<font color=Cyan>,</font>avs<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokAnyOpen<font color=Cyan>,</font> TokName t<font color=Red>]</font><font color=Cyan>++</font>reformatAttrs avs<font color=Cyan>++</font><font color=Red>[</font>TokAnyClose<font color=Red>]</font>+<a name="line-385"></a>+<a name="line-386"></a><a name="content"></a><font color=Blue>content</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Content Posn<font color=Cyan>)</font>+<a name="line-387"></a><font color=Blue>content</font> ctx <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn <font color=Cyan>;</font> content' p ctx <font color=Cyan>}</font>+<a name="line-388"></a>  <font color=Green><u>where</u></font> content' p ctx <font color=Red>=</font> oneOf'+<a name="line-389"></a>          <font color=Red>[</font> <font color=Cyan>(</font> <font color=Magenta>"element"</font><font color=Cyan>,</font> element ctx <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font><font color=Cyan>(</font>s<font color=Cyan>,</font>e<font color=Cyan>)</font><font color=Red>-&gt;</font> return <font color=Cyan>(</font>s<font color=Cyan>,</font> CElem e p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-390"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"chardata"</font><font color=Cyan>,</font> chardata <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>s<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString False s p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-391"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"reference"</font><font color=Cyan>,</font> reference <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>r<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CRef r p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-392"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"cdsect"</font><font color=Cyan>,</font> cdsect <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString True c p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-393"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"misc"</font><font color=Cyan>,</font> misc <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>m<font color=Red>-&gt;</font>  return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CMisc m p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-394"></a>          <font color=Red>]</font> <font color=Cyan>`adjustErrP`</font> <font color=Cyan>(</font><font color=Magenta>"when looking for a content item,\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>+<a name="line-395"></a>+<a name="line-396"></a><a name="elemtag"></a><font color=Blue>----</font>+<a name="line-397"></a><font color=Blue>elemtag</font> <font color=Red>::</font> HParser ElemTag+<a name="line-398"></a><font color=Blue>elemtag</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-399"></a>    n <font color=Red>&lt;-</font> name <font color=Cyan>`adjustErrBad`</font> <font color=Cyan>(</font><font color=Magenta>"malformed element tag\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>+<a name="line-400"></a>    <font color=Green><u>as</u></font> <font color=Red>&lt;-</font> many attribute+<a name="line-401"></a>    return <font color=Cyan>(</font>ElemTag <font color=Cyan>(</font>map toLower n<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font>+<a name="line-402"></a>+<a name="line-403"></a><a name="attribute"></a><font color=Blue>attribute</font> <font color=Red>::</font> HParser Attribute+<a name="line-404"></a><font color=Blue>attribute</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-405"></a>    n <font color=Red>&lt;-</font> name+<a name="line-406"></a>    v <font color=Red>&lt;-</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> tok TokEqual+<a name="line-407"></a>             attvalue<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-408"></a>         <font color=Cyan>(</font>return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Magenta>"TRUE"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-409"></a>    return <font color=Cyan>(</font>map toLower n<font color=Cyan>,</font>v<font color=Cyan>)</font>+<a name="line-410"></a>+<a name="line-411"></a><font color=Blue>--elementdecl :: HParser ElementDecl</font>+<a name="line-412"></a><font color=Blue>--elementdecl = do</font>+<a name="line-413"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-414"></a><font color=Blue>--    tok (TokSpecial ELEMENTx)</font>+<a name="line-415"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ELEMENT decl"</font>+<a name="line-416"></a><font color=Blue>--    c &lt;- contentspec `onFail` failP "missing content spec in ELEMENT decl"</font>+<a name="line-417"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating ELEMENT decl"</font>+<a name="line-418"></a><font color=Blue>--    return (ElementDecl n c)</font>+<a name="line-419"></a><font color=Blue>--</font>+<a name="line-420"></a><font color=Blue>--contentspec :: HParser ContentSpec</font>+<a name="line-421"></a><font color=Blue>--contentspec =</font>+<a name="line-422"></a><font color=Blue>--    ( word "EMPTY" &gt;&gt; return EMPTY) `onFail`</font>+<a name="line-423"></a><font color=Blue>--    ( word "ANY" &gt;&gt; return ANY) `onFail`</font>+<a name="line-424"></a><font color=Blue>--    ( mixed &gt;&gt;= return . Mixed) `onFail`</font>+<a name="line-425"></a><font color=Blue>--    ( cp &gt;&gt;= return . ContentSpec) `onFail`</font>+<a name="line-426"></a><font color=Blue>--    PEREF(ContentPE,contentspec)</font>+<a name="line-427"></a><font color=Blue>--</font>+<a name="line-428"></a><font color=Blue>--choice :: HParser [CP]</font>+<a name="line-429"></a><font color=Blue>--choice = do</font>+<a name="line-430"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-431"></a><font color=Blue>--            (cp `sepby1` (tok TokPipe))</font>+<a name="line-432"></a><font color=Blue>--</font>+<a name="line-433"></a><font color=Blue>--sequence :: HParser [CP]</font>+<a name="line-434"></a><font color=Blue>--sequence = do</font>+<a name="line-435"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-436"></a><font color=Blue>--            (cp `sepby1` (tok TokComma))</font>+<a name="line-437"></a><font color=Blue>--</font>+<a name="line-438"></a><font color=Blue>--cp :: HParser CP</font>+<a name="line-439"></a><font color=Blue>--cp =</font>+<a name="line-440"></a><font color=Blue>--    ( do n &lt;- name</font>+<a name="line-441"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-442"></a><font color=Blue>--         return (TagName n m)) `onFail`</font>+<a name="line-443"></a><font color=Blue>--    ( do ss &lt;- sequence</font>+<a name="line-444"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-445"></a><font color=Blue>--         return (Seq ss m)) `onFail`</font>+<a name="line-446"></a><font color=Blue>--    ( do cs &lt;- choice</font>+<a name="line-447"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-448"></a><font color=Blue>--         return (Choice cs m)) `onFail`</font>+<a name="line-449"></a><font color=Blue>--    PEREF(CPPE,cp)</font>+<a name="line-450"></a><font color=Blue>--</font>+<a name="line-451"></a><font color=Blue>--modifier :: HParser Modifier</font>+<a name="line-452"></a><font color=Blue>--modifier =</font>+<a name="line-453"></a><font color=Blue>--    ( tok TokStar &gt;&gt; return Star) `onFail`</font>+<a name="line-454"></a><font color=Blue>--    ( tok TokQuery &gt;&gt; return Query) `onFail`</font>+<a name="line-455"></a><font color=Blue>--    ( tok TokPlus &gt;&gt; return Plus) `onFail`</font>+<a name="line-456"></a><font color=Blue>--    ( return None)</font>+<a name="line-457"></a><font color=Blue>--</font>+<a name="line-458"></a><font color=Blue>--mixed :: HParser Mixed</font>+<a name="line-459"></a><font color=Blue>--mixed = do</font>+<a name="line-460"></a><font color=Blue>--    tok TokBraOpen</font>+<a name="line-461"></a><font color=Blue>--    tok TokHash</font>+<a name="line-462"></a><font color=Blue>--    word "PCDATA"</font>+<a name="line-463"></a><font color=Blue>--    cont</font>+<a name="line-464"></a><font color=Blue>--  where</font>+<a name="line-465"></a><font color=Blue>--    cont = ( tok TokBraClose &gt;&gt; return PCDATA) `onFail`</font>+<a name="line-466"></a><font color=Blue>--           ( do cs &lt;- many ( do tok TokPipe</font>+<a name="line-467"></a><font color=Blue>--                                n &lt;- name</font>+<a name="line-468"></a><font color=Blue>--                                return n)</font>+<a name="line-469"></a><font color=Blue>--                tok TokBraClose</font>+<a name="line-470"></a><font color=Blue>--                tok TokStar</font>+<a name="line-471"></a><font color=Blue>--                return (PCDATAplus cs))</font>+<a name="line-472"></a><font color=Blue>--</font>+<a name="line-473"></a><font color=Blue>--attlistdecl :: HParser AttListDecl</font>+<a name="line-474"></a><font color=Blue>--attlistdecl = do</font>+<a name="line-475"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-476"></a><font color=Blue>--    tok (TokSpecial ATTLISTx)</font>+<a name="line-477"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ATTLIST"</font>+<a name="line-478"></a><font color=Blue>--    ds &lt;- many attdef</font>+<a name="line-479"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "missing &gt; terminating ATTLIST"</font>+<a name="line-480"></a><font color=Blue>--    return (AttListDecl n ds)</font>+<a name="line-481"></a><font color=Blue>--</font>+<a name="line-482"></a><font color=Blue>--attdef :: HParser AttDef</font>+<a name="line-483"></a><font color=Blue>--attdef = do</font>+<a name="line-484"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-485"></a><font color=Blue>--    t &lt;- atttype `onFail` failP "missing attribute type in attlist defn"</font>+<a name="line-486"></a><font color=Blue>--    d &lt;- defaultdecl</font>+<a name="line-487"></a><font color=Blue>--    return (AttDef n t d)</font>+<a name="line-488"></a><font color=Blue>--</font>+<a name="line-489"></a><font color=Blue>--atttype :: HParser AttType</font>+<a name="line-490"></a><font color=Blue>--atttype =</font>+<a name="line-491"></a><font color=Blue>--    ( word "CDATA" &gt;&gt; return StringType) `onFail`</font>+<a name="line-492"></a><font color=Blue>--    ( tokenizedtype &gt;&gt;= return . TokenizedType) `onFail`</font>+<a name="line-493"></a><font color=Blue>--    ( enumeratedtype &gt;&gt;= return . EnumeratedType)</font>+<a name="line-494"></a><font color=Blue>--</font>+<a name="line-495"></a><font color=Blue>--tokenizedtype :: HParser TokenizedType</font>+<a name="line-496"></a><font color=Blue>--tokenizedtype =</font>+<a name="line-497"></a><font color=Blue>--    ( word "ID" &gt;&gt; return ID) `onFail`</font>+<a name="line-498"></a><font color=Blue>--    ( word "IDREF" &gt;&gt; return IDREF) `onFail`</font>+<a name="line-499"></a><font color=Blue>--    ( word "IDREFS" &gt;&gt; return IDREFS) `onFail`</font>+<a name="line-500"></a><font color=Blue>--    ( word "ENTITY" &gt;&gt; return ENTITY) `onFail`</font>+<a name="line-501"></a><font color=Blue>--    ( word "ENTITIES" &gt;&gt; return ENTITIES) `onFail`</font>+<a name="line-502"></a><font color=Blue>--    ( word "NMTOKEN" &gt;&gt; return NMTOKEN) `onFail`</font>+<a name="line-503"></a><font color=Blue>--    ( word "NMTOKENS" &gt;&gt; return NMTOKENS)</font>+<a name="line-504"></a><font color=Blue>--</font>+<a name="line-505"></a><font color=Blue>--enumeratedtype :: HParser EnumeratedType</font>+<a name="line-506"></a><font color=Blue>--enumeratedtype =</font>+<a name="line-507"></a><font color=Blue>--    ( notationtype &gt;&gt;= return . NotationType) `onFail`</font>+<a name="line-508"></a><font color=Blue>--    ( enumeration &gt;&gt;= return . Enumeration)</font>+<a name="line-509"></a><font color=Blue>--</font>+<a name="line-510"></a><font color=Blue>--notationtype :: HParser NotationType</font>+<a name="line-511"></a><font color=Blue>--notationtype = do</font>+<a name="line-512"></a><font color=Blue>--    word "NOTATION"</font>+<a name="line-513"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-514"></a><font color=Blue>--            (name `sepby1` (tok TokPipe))</font>+<a name="line-515"></a><font color=Blue>--</font>+<a name="line-516"></a><font color=Blue>--enumeration :: HParser Enumeration</font>+<a name="line-517"></a><font color=Blue>--enumeration =</font>+<a name="line-518"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-519"></a><font color=Blue>--            (nmtoken `sepby1` (tok TokPipe))</font>+<a name="line-520"></a><font color=Blue>--</font>+<a name="line-521"></a><font color=Blue>--defaultdecl :: HParser DefaultDecl</font>+<a name="line-522"></a><font color=Blue>--defaultdecl =</font>+<a name="line-523"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "REQUIRED" &gt;&gt; return REQUIRED) `onFail`</font>+<a name="line-524"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "IMPLIED" &gt;&gt; return IMPLIED) `onFail`</font>+<a name="line-525"></a><font color=Blue>--    ( do f &lt;- maybe (tok TokHash &gt;&gt; word "FIXED" &gt;&gt; return FIXED)</font>+<a name="line-526"></a><font color=Blue>--         a &lt;- attvalue</font>+<a name="line-527"></a><font color=Blue>--         return (DefaultTo a f))</font>+<a name="line-528"></a><font color=Blue>--</font>+<a name="line-529"></a><font color=Blue>--conditionalsect :: HParser ConditionalSect</font>+<a name="line-530"></a><font color=Blue>--conditionalsect =</font>+<a name="line-531"></a><font color=Blue>--    ( do tok TokSectionOpen</font>+<a name="line-532"></a><font color=Blue>--         tok (TokSection INCLUDEx)</font>+<a name="line-533"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after INCLUDE"</font>+<a name="line-534"></a><font color=Blue>--         i &lt;- extsubsetdecl `onFail` failP "missing ExtSubsetDecl in INCLUDE"</font>+<a name="line-535"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after INCLUDE"</font>+<a name="line-536"></a><font color=Blue>--         return (IncludeSect i)) `onFail`</font>+<a name="line-537"></a><font color=Blue>--    ( do tok TokSectionOpen</font>+<a name="line-538"></a><font color=Blue>--         tok (TokSection IGNOREx)</font>+<a name="line-539"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after IGNORE"</font>+<a name="line-540"></a><font color=Blue>--         i &lt;- many ignoresectcontents</font>+<a name="line-541"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after IGNORE"</font>+<a name="line-542"></a><font color=Blue>--         return (IgnoreSect i))</font>+<a name="line-543"></a><font color=Blue>--</font>+<a name="line-544"></a><font color=Blue>--ignoresectcontents :: HParser IgnoreSectContents</font>+<a name="line-545"></a><font color=Blue>--ignoresectcontents = do</font>+<a name="line-546"></a><font color=Blue>--    i &lt;- ignore</font>+<a name="line-547"></a><font color=Blue>--    is &lt;- many (do tok TokSectionOpen</font>+<a name="line-548"></a><font color=Blue>--                   ic &lt;- ignoresectcontents</font>+<a name="line-549"></a><font color=Blue>--                   tok TokSectionClose</font>+<a name="line-550"></a><font color=Blue>--                   ig &lt;- ignore</font>+<a name="line-551"></a><font color=Blue>--                   return (ic,ig))</font>+<a name="line-552"></a><font color=Blue>--    return (IgnoreSectContents i is)</font>+<a name="line-553"></a><font color=Blue>--</font>+<a name="line-554"></a><font color=Blue>--ignore :: HParser Ignore</font>+<a name="line-555"></a><font color=Blue>--ignore = freetext &gt;&gt;= return . Ignore</font>+<a name="line-556"></a>+<a name="line-557"></a><a name="reference"></a><font color=Blue>reference</font> <font color=Red>::</font> HParser Reference+<a name="line-558"></a><font color=Blue>reference</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-559"></a>    bracket <font color=Cyan>(</font>tok TokAmp<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSemi<font color=Cyan>)</font> <font color=Cyan>(</font>freetext <font color=Cyan>&gt;&gt;=</font> val<font color=Cyan>)</font>+<a name="line-560"></a>  <font color=Green><u>where</u></font>+<a name="line-561"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font><font color=Magenta>'x'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font> <font color=Red>|</font> all isHexDigit i+<a name="line-562"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readHex <font color=Cyan>$</font> i+<a name="line-563"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font>     <font color=Red>|</font> all isDigit i+<a name="line-564"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readDec <font color=Cyan>$</font> i+<a name="line-565"></a>    val name        <font color=Red>=</font> return <font color=Cyan>.</font> RefEntity <font color=Cyan>$</font> name+<a name="line-566"></a>+<a name="line-567"></a><font color=Blue>{-+<a name="line-568"></a>reference :: HParser Reference+<a name="line-569"></a>reference =+<a name="line-570"></a>    ( charref &gt;&gt;= return . RefChar) `onFail`+<a name="line-571"></a>    ( entityref &gt;&gt;= return . RefEntity)+<a name="line-572"></a>+<a name="line-573"></a>entityref :: HParser EntityRef+<a name="line-574"></a>entityref = do+<a name="line-575"></a>    n &lt;- bracket (tok TokAmp) (tok TokSemi) name+<a name="line-576"></a>    return n+<a name="line-577"></a>+<a name="line-578"></a>charref :: HParser CharRef+<a name="line-579"></a>charref = do+<a name="line-580"></a>    bracket (tok TokAmp) (tok TokSemi) (freetext &gt;&gt;= readCharVal)+<a name="line-581"></a>  where+<a name="line-582"></a>    readCharVal ('#':'x':i) = return . fst . head . readHex $ i+<a name="line-583"></a>    readCharVal ('#':i)     = return . fst . head . readDec $ i+<a name="line-584"></a>    readCharVal _           = mzero+<a name="line-585"></a>-}</font>+<a name="line-586"></a>+<a name="line-587"></a><font color=Blue>--pereference :: HParser PEReference</font>+<a name="line-588"></a><font color=Blue>--pereference = do</font>+<a name="line-589"></a><font color=Blue>--    bracket (tok TokPercent) (tok TokSemi) nmtoken</font>+<a name="line-590"></a><font color=Blue>--</font>+<a name="line-591"></a><font color=Blue>--entitydecl :: HParser EntityDecl</font>+<a name="line-592"></a><font color=Blue>--entitydecl =</font>+<a name="line-593"></a><font color=Blue>--    ( gedecl &gt;&gt;= return . EntityGEDecl) `onFail`</font>+<a name="line-594"></a><font color=Blue>--    ( pedecl &gt;&gt;= return . EntityPEDecl)</font>+<a name="line-595"></a><font color=Blue>--</font>+<a name="line-596"></a><font color=Blue>--gedecl :: HParser GEDecl</font>+<a name="line-597"></a><font color=Blue>--gedecl = do</font>+<a name="line-598"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-599"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>+<a name="line-600"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-601"></a><font color=Blue>--    e &lt;- entitydef `onFail` failP "missing entity defn in G ENTITY decl"</font>+<a name="line-602"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating G ENTITY decl"</font>+<a name="line-603"></a><font color=Blue>--    return (GEDecl n e)</font>+<a name="line-604"></a><font color=Blue>--</font>+<a name="line-605"></a><font color=Blue>--pedecl :: HParser PEDecl</font>+<a name="line-606"></a><font color=Blue>--pedecl = do</font>+<a name="line-607"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-608"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>+<a name="line-609"></a><font color=Blue>--    tok TokPercent</font>+<a name="line-610"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-611"></a><font color=Blue>--    e &lt;- pedef `onFail` failP "missing entity defn in P ENTITY decl"</font>+<a name="line-612"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating P ENTITY decl"</font>+<a name="line-613"></a><font color=Blue>--    return (PEDecl n e)</font>+<a name="line-614"></a><font color=Blue>--</font>+<a name="line-615"></a><font color=Blue>--entitydef :: HParser EntityDef</font>+<a name="line-616"></a><font color=Blue>--entitydef =</font>+<a name="line-617"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . DefEntityValue) `onFail`</font>+<a name="line-618"></a><font color=Blue>--    ( do eid &lt;- externalid</font>+<a name="line-619"></a><font color=Blue>--         ndd &lt;- maybe ndatadecl</font>+<a name="line-620"></a><font color=Blue>--         return (DefExternalID eid ndd))</font>+<a name="line-621"></a><font color=Blue>--</font>+<a name="line-622"></a><font color=Blue>--pedef :: HParser PEDef</font>+<a name="line-623"></a><font color=Blue>--pedef =</font>+<a name="line-624"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . PEDefEntityValue) `onFail`</font>+<a name="line-625"></a><font color=Blue>--    ( externalid &gt;&gt;= return . PEDefExternalID)</font>+<a name="line-626"></a>+<a name="line-627"></a><a name="externalid"></a><font color=Blue>externalid</font> <font color=Red>::</font> HParser ExternalID+<a name="line-628"></a><font color=Blue>externalid</font> <font color=Red>=</font>+<a name="line-629"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"SYSTEM"</font>+<a name="line-630"></a>         s <font color=Red>&lt;-</font> systemliteral+<a name="line-631"></a>         return <font color=Cyan>(</font>SYSTEM s<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-632"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"PUBLIC"</font>+<a name="line-633"></a>         p <font color=Red>&lt;-</font> pubidliteral+<a name="line-634"></a>         s <font color=Red>&lt;-</font> <font color=Cyan>(</font>systemliteral <font color=Cyan>`onFail`</font> return <font color=Cyan>(</font>SystemLiteral <font color=Magenta>""</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-635"></a>         return <font color=Cyan>(</font>PUBLIC p s<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-636"></a>+<a name="line-637"></a><font color=Blue>--ndatadecl :: HParser NDataDecl</font>+<a name="line-638"></a><font color=Blue>--ndatadecl = do</font>+<a name="line-639"></a><font color=Blue>--    word "NDATA"</font>+<a name="line-640"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-641"></a><font color=Blue>--    return (NDATA n)</font>+<a name="line-642"></a>+<a name="line-643"></a><a name="textdecl"></a><font color=Blue>textdecl</font> <font color=Red>::</font> HParser TextDecl+<a name="line-644"></a><font color=Blue>textdecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-645"></a>    tok TokPIOpen+<a name="line-646"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>+<a name="line-647"></a>    v <font color=Red>&lt;-</font> maybe versioninfo+<a name="line-648"></a>    e <font color=Red>&lt;-</font> encodingdecl+<a name="line-649"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"expected ?&gt; terminating text decl"</font>+<a name="line-650"></a>    return <font color=Cyan>(</font>TextDecl v e<font color=Cyan>)</font>+<a name="line-651"></a>+<a name="line-652"></a><font color=Blue>--extparsedent :: HParser ExtParsedEnt</font>+<a name="line-653"></a><font color=Blue>--extparsedent = do</font>+<a name="line-654"></a><font color=Blue>--    t &lt;- maybe textdecl</font>+<a name="line-655"></a><font color=Blue>--    (_,c) &lt;- (content "")</font>+<a name="line-656"></a><font color=Blue>--    return (ExtParsedEnt t c)</font>+<a name="line-657"></a><font color=Blue>--</font>+<a name="line-658"></a><font color=Blue>--extpe :: HParser ExtPE</font>+<a name="line-659"></a><font color=Blue>--extpe = do</font>+<a name="line-660"></a><font color=Blue>--    t &lt;- maybe textdecl</font>+<a name="line-661"></a><font color=Blue>--    e &lt;- extsubsetdecl</font>+<a name="line-662"></a><font color=Blue>--    return (ExtPE t e)</font>+<a name="line-663"></a>+<a name="line-664"></a><a name="encodingdecl"></a><font color=Blue>encodingdecl</font> <font color=Red>::</font> HParser EncodingDecl+<a name="line-665"></a><font color=Blue>encodingdecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-666"></a>    <font color=Cyan>(</font>word <font color=Magenta>"encoding"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"ENCODING"</font><font color=Cyan>)</font>+<a name="line-667"></a>    tok TokEqual <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"expected = in 'encoding' decl"</font>+<a name="line-668"></a>    f <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-669"></a>    return <font color=Cyan>(</font>EncodingDecl f<font color=Cyan>)</font>+<a name="line-670"></a>+<a name="line-671"></a><font color=Blue>--notationdecl :: HParser NotationDecl</font>+<a name="line-672"></a><font color=Blue>--notationdecl = do</font>+<a name="line-673"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-674"></a><font color=Blue>--    word "NOTATION"</font>+<a name="line-675"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-676"></a><font color=Blue>--    e &lt;- either externalid publicid</font>+<a name="line-677"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating NOTATION decl"</font>+<a name="line-678"></a><font color=Blue>--    return (NOTATION n e)</font>+<a name="line-679"></a>+<a name="line-680"></a><a name="publicid"></a><font color=Blue>publicid</font> <font color=Red>::</font> HParser PublicID+<a name="line-681"></a><font color=Blue>publicid</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-682"></a>    word <font color=Magenta>"PUBLICID"</font>+<a name="line-683"></a>    p <font color=Red>&lt;-</font> pubidliteral+<a name="line-684"></a>    return <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>+<a name="line-685"></a>+<a name="line-686"></a><a name="entityvalue"></a><font color=Blue>entityvalue</font> <font color=Red>::</font> HParser EntityValue+<a name="line-687"></a><font color=Blue>entityvalue</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-688"></a>    evs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>many ev<font color=Cyan>)</font>+<a name="line-689"></a>    return <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>+<a name="line-690"></a>+<a name="line-691"></a><a name="ev"></a><font color=Blue>ev</font> <font color=Red>::</font> HParser EV+<a name="line-692"></a><font color=Blue>ev</font> <font color=Red>=</font>+<a name="line-693"></a>    <font color=Cyan>(</font> freetext <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVString<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-694"></a><font color=Blue>--  PEREF(EVPERef,ev) `onFail`</font>+<a name="line-695"></a>    <font color=Cyan>(</font> reference <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVRef<font color=Cyan>)</font>+<a name="line-696"></a>+<a name="line-697"></a><a name="attvalue"></a><font color=Blue>attvalue</font> <font color=Red>::</font> HParser AttValue+<a name="line-698"></a><font color=Blue>attvalue</font> <font color=Red>=</font>+<a name="line-699"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> avs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>+<a name="line-700"></a>                      <font color=Cyan>(</font>many <font color=Cyan>(</font>either freetext reference<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-701"></a>       return <font color=Cyan>(</font>AttValue avs<font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-702"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> v <font color=Red>&lt;-</font> nmtoken+<a name="line-703"></a>       s <font color=Red>&lt;-</font> <font color=Cyan>(</font>tok TokPercent <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"%"</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font> return <font color=Magenta>""</font>+<a name="line-704"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>v<font color=Cyan>++</font>s<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-705"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> s <font color=Red>&lt;-</font> oneOf <font color=Red>[</font> tok TokPlus <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"+"</font>+<a name="line-706"></a>                  <font color=Cyan>,</font> tok TokHash <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"#"</font>+<a name="line-707"></a>                  <font color=Red>]</font>+<a name="line-708"></a>       v <font color=Red>&lt;-</font> nmtoken+<a name="line-709"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>s<font color=Cyan>++</font>v<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-710"></a>  failP <font color=Magenta>"Badly formatted attribute value"</font>+<a name="line-711"></a>+<a name="line-712"></a><a name="systemliteral"></a><font color=Blue>systemliteral</font> <font color=Red>::</font> HParser SystemLiteral+<a name="line-713"></a><font color=Blue>systemliteral</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-714"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-715"></a>    return <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>+<a name="line-716"></a>+<a name="line-717"></a><a name="pubidliteral"></a><font color=Blue>pubidliteral</font> <font color=Red>::</font> HParser PubidLiteral+<a name="line-718"></a><font color=Blue>pubidliteral</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-719"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-720"></a>    return <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>+<a name="line-721"></a>+<a name="line-722"></a><a name="chardata"></a><font color=Blue>chardata</font> <font color=Red>::</font> HParser CharData+<a name="line-723"></a><font color=Blue>chardata</font> <font color=Red>=</font> freetext <font color=Blue>-- &gt;&gt;= return . CharData</font>+<a name="line-724"></a>+</pre>+</body> </html>

@@ -1,732 +1,738 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | This is a parser for HTML documents.  Unlike for XML documents, it</font>-<a name="(line2)"></a><font color=Blue>--   must include a certain amount of error-correction to account for</font>-<a name="(line3)"></a><font color=Blue>--   HTML features like self-terminating tags, unterminated tags, and</font>-<a name="(line4)"></a><font color=Blue>--   incorrect nesting.  The input is tokenised by the</font>-<a name="(line5)"></a><font color=Blue>--   XML lexer (a separate lexer is not required for HTML).</font>-<a name="(line6)"></a>-<a name="(line7)"></a><font color=Blue>-- It uses a slightly extended version of the Hutton/Meijer parser</font>-<a name="(line8)"></a><font color=Blue>-- combinators.</font>-<a name="(line9)"></a>-<a name="(line10)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>ParseLazy-<a name="(line11)"></a>  <font color=Cyan>(</font> htmlParse-<a name="(line12)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line13)"></a>-<a name="(line14)"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>either<font color=Cyan>,</font>maybe<font color=Cyan>,</font>sequence<font color=Cyan>)</font>-<a name="(line15)"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Prelude <font color=Cyan>(</font>either<font color=Cyan>)</font>-<a name="(line16)"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>-<a name="(line17)"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>toLower<font color=Cyan>,</font> isSpace<font color=Cyan>,</font> isDigit<font color=Cyan>,</font> isHexDigit<font color=Cyan>)</font>-<a name="(line18)"></a><font color=Green><u>import</u></font> Numeric <font color=Cyan>(</font>readDec<font color=Cyan>,</font>readHex<font color=Cyan>)</font>-<a name="(line19)"></a><font color=Green><u>import</u></font> Monad-<a name="(line20)"></a>-<a name="(line21)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line22)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Lex-<a name="(line23)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Posn-<a name="(line24)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>ParserCombinators<font color=Cyan>.</font>Poly<font color=Cyan>.</font>NoLeak<font color=Cyan>.</font>Lazy-<a name="(line25)"></a>-<a name="(line26)"></a><font color=Blue>--  #define DEBUG</font>-<a name="(line27)"></a> -<a name="(line28)"></a><font color=Magenta><em>#if defined(DEBUG)</em></font>-<a name="(line29)"></a><font color=Magenta><em>#  if ( defined(__GLASGOW_HASKELL__) &amp;&amp; __GLASGOW_HASKELL__ &gt; 502 ) || \</em></font>-<a name="(line30)"></a>      <font color=Cyan>(</font> defined<font color=Cyan>(</font><b><font color=Magenta>__NHC__</font></b><font color=Cyan>)</font> <font color=Cyan>&amp;&amp;</font> <b><font color=Magenta>__NHC__</font></b> <font color=Cyan>&gt;</font> <font color=Magenta>114</font> <font color=Cyan>)</font> <font color=Cyan>||</font> defined<font color=Cyan>(</font><b><font color=Magenta>__HUGS__</font></b><font color=Cyan>)</font>-<a name="(line31)"></a><font color=Green><u>import</u></font> Debug<font color=Cyan>.</font>Trace<font color=Cyan>(</font>trace<font color=Cyan>)</font>-<a name="(line32)"></a><font color=Magenta><em>#  elif defined(__GLASGOW_HASKELL__)</em></font>-<a name="(line33)"></a><font color=Green><u>import</u></font> IOExts<font color=Cyan>(</font>trace<font color=Cyan>)</font>-<a name="(line34)"></a><font color=Magenta><em>#  elif defined(__NHC__) || defined(__HBC__)</em></font>-<a name="(line35)"></a><font color=Green><u>import</u></font> NonStdTrace-<a name="(line36)"></a><font color=Magenta><em>#  endif</em></font>-<a name="(line37)"></a><a name="debug"></a>debug <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()-<a name="(line38)"></a>debug s <font color=Red>=</font> trace s <font color=Cyan>(</font>return ()<font color=Cyan>)</font>-<a name="(line39)"></a><font color=Magenta><em>#else</em></font>-<a name="(line40)"></a>debug <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()-<a name="(line41)"></a>debug s <font color=Red>=</font> return ()-<a name="(line42)"></a><font color=Magenta><em>#endif</em></font>-<a name="(line43)"></a>-<a name="(line44)"></a>-<a name="(line45)"></a><a name="htmlParse"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>-<a name="(line46)"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>-<a name="(line47)"></a><font color=Blue>--   an XML document.  Any errors cause program failure with message to stderr.</font>-<a name="(line48)"></a>htmlParse <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Document Posn-<a name="(line49)"></a>htmlParse name <font color=Red>=</font> <font color=Blue>{-simplify .-}</font> fst <font color=Cyan>.</font> runParser document <font color=Cyan>.</font> xmlLex name-<a name="(line50)"></a>-<a name="(line51)"></a><font color=Blue>{--<a name="(line52)"></a>-- | The first argument is the name of the file, the second is the string-<a name="(line53)"></a>--   contents of the file.  The result is the generic representation of-<a name="(line54)"></a>--   an XML document.  Any parsing errors are returned in the @Either@ type.-<a name="(line55)"></a>htmlParse' :: String -&gt; String -&gt; Either String (Document Posn)-<a name="(line56)"></a>htmlParse' name = Prelude.either Left (Right . simplify) . fst-<a name="(line57)"></a>                  . runParser document . xmlLex name-<a name="(line58)"></a>-}</font>-<a name="(line59)"></a>-<a name="(line60)"></a><font color=Blue>---- Document simplification ----</font>-<a name="(line61)"></a>-<a name="(line62)"></a><a name="simplify"></a>simplify <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Document i-<a name="(line63)"></a>simplify <font color=Cyan>(</font>Document p st <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> ms<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line64)"></a>    Document p st <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter simp cs<font color=Cyan>)</font><font color=Cyan>)</font> ms-<a name="(line65)"></a>  <font color=Green><u>where</u></font>-<a name="(line66)"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> False-<a name="(line67)"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem  n     <font color=Green><u>_</u></font>  []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"font"</font><font color=Cyan>,</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"i"</font><font color=Cyan>,</font><font color=Magenta>"b"</font><font color=Cyan>,</font><font color=Magenta>"em"</font>-<a name="(line68)"></a>                                                  <font color=Cyan>,</font><font color=Magenta>"tt"</font><font color=Cyan>,</font><font color=Magenta>"big"</font><font color=Cyan>,</font><font color=Magenta>"small"</font><font color=Red>]</font> <font color=Red>=</font> False-<a name="(line69)"></a> <font color=Blue>-- simp (CString False s _) | all isSpace s = False</font>-<a name="(line70)"></a>    simp <font color=Green><u>_</u></font> <font color=Red>=</font> True-<a name="(line71)"></a>    deepfilter p <font color=Red>=</font>-<a name="(line72)"></a>        filter p <font color=Cyan>.</font> map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>case</u></font> c <font color=Green><u>of</u></font>-<a name="(line73)"></a>                          CElem <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> i-<a name="(line74)"></a>                                  <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter p cs<font color=Cyan>)</font><font color=Cyan>)</font> i-<a name="(line75)"></a>                          <font color=Green><u>_</u></font>       <font color=Red>-&gt;</font> c<font color=Cyan>)</font>-<a name="(line76)"></a>-<a name="(line77)"></a><a name="selfclosingtags"></a><font color=Blue>-- opening any of these, they close again immediately</font>-<a name="(line78)"></a>selfclosingtags <font color=Red>=</font> <font color=Red>[</font><font color=Magenta>"img"</font><font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"br"</font><font color=Cyan>,</font><font color=Magenta>"meta"</font><font color=Cyan>,</font><font color=Magenta>"col"</font><font color=Cyan>,</font><font color=Magenta>"link"</font><font color=Cyan>,</font><font color=Magenta>"base"</font>-<a name="(line79)"></a>                  <font color=Cyan>,</font><font color=Magenta>"param"</font><font color=Cyan>,</font><font color=Magenta>"area"</font><font color=Cyan>,</font><font color=Magenta>"frame"</font><font color=Cyan>,</font><font color=Magenta>"input"</font><font color=Red>]</font>-<a name="(line80)"></a>-<a name="(line81)"></a><a name="closeInnerTags"></a><font color=Blue>--closing this, implicitly closes any of those which are contained in it</font>-<a name="(line82)"></a>closeInnerTags <font color=Red>=</font>-<a name="(line83)"></a>  <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"ul"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line84)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"ol"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line85)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dl"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line86)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tr"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line87)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"div"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line88)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"thead"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line89)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line90)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line91)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"table"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"tbody"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line92)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"caption"</font><font color=Cyan>,</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line93)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"th"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line94)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"td"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line95)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"li"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line96)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dt"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line97)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dd"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line98)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"object"</font><font color=Cyan>,</font>  <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line99)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"map"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line100)"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"body"</font><font color=Cyan>,</font>    <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>-<a name="(line101)"></a>  <font color=Red>]</font>-<a name="(line102)"></a>-<a name="(line103)"></a><a name="closes"></a><font color=Blue>--opening this, implicitly closes that</font>-<a name="(line104)"></a>closes <font color=Red>::</font> Name <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> Bool-<a name="(line105)"></a><font color=Magenta>"a"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"a"</font>   <font color=Red>=</font>  True-<a name="(line106)"></a><font color=Magenta>"li"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"li"</font>  <font color=Red>=</font>  True-<a name="(line107)"></a><font color=Magenta>"th"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line108)"></a><font color=Magenta>"td"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line109)"></a><font color=Magenta>"tr"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Red>]</font> <font color=Red>=</font>  True-<a name="(line110)"></a><font color=Magenta>"dt"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line111)"></a><font color=Magenta>"dd"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True-<a name="(line112)"></a><font color=Magenta>"form"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"form"</font>      <font color=Red>=</font> True-<a name="(line113)"></a><font color=Magenta>"label"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"label"</font>     <font color=Red>=</font> True-<a name="(line114)"></a><font color=Green><u>_</u></font>       <font color=Cyan>`closes`</font> <font color=Magenta>"option"</font>    <font color=Red>=</font> True-<a name="(line115)"></a><font color=Magenta>"thead"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>          <font color=Red>=</font> True-<a name="(line116)"></a><font color=Magenta>"tfoot"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>  <font color=Red>=</font> True-<a name="(line117)"></a><font color=Magenta>"tbody"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font> <font color=Red>=</font> True-<a name="(line118)"></a><font color=Magenta>"colgroup"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"colgroup"</font>  <font color=Red>=</font> True-<a name="(line119)"></a><a name="closes"></a>t <font color=Cyan>`closes`</font> <font color=Magenta>"p"</font>-<a name="(line120)"></a>    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"h1"</font><font color=Cyan>,</font><font color=Magenta>"h2"</font><font color=Cyan>,</font><font color=Magenta>"h3"</font><font color=Cyan>,</font><font color=Magenta>"h4"</font><font color=Cyan>,</font><font color=Magenta>"h5"</font><font color=Cyan>,</font><font color=Magenta>"h6"</font>-<a name="(line121)"></a>               <font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"div"</font><font color=Cyan>,</font><font color=Magenta>"ul"</font><font color=Cyan>,</font><font color=Magenta>"dl"</font><font color=Cyan>,</font><font color=Magenta>"ol"</font><font color=Cyan>,</font><font color=Magenta>"table"</font><font color=Red>]</font>  <font color=Red>=</font>  True-<a name="(line122)"></a><font color=Green><u>_</u></font> <font color=Cyan>`closes`</font> <font color=Green><u>_</u></font> <font color=Red>=</font> False-<a name="(line123)"></a>-<a name="(line124)"></a>-<a name="(line125)"></a>-<a name="(line126)"></a><font color=Blue>---- Misc ----</font>-<a name="(line127)"></a>-<a name="(line128)"></a><a name="fst3"></a>fst3 <font color=Cyan>(</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line129)"></a><a name="snd3"></a>snd3 <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line130)"></a><a name="thd3"></a>thd3 <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>)</font> <font color=Red>=</font> a-<a name="(line131)"></a>-<a name="(line132)"></a>-<a name="(line133)"></a>-<a name="(line134)"></a><font color=Blue>---- Auxiliary Parsing Functions ----</font>-<a name="(line135)"></a>-<a name="(line136)"></a><a name="HParser"></a><font color=Green><u>type</u></font> HParser a <font color=Red>=</font> Parser <font color=Cyan>(</font>Posn<font color=Cyan>,</font>TokenT<font color=Cyan>)</font> a-<a name="(line137)"></a>-<a name="(line138)"></a><a name="tok"></a>tok <font color=Red>::</font> TokenT <font color=Red>-&gt;</font> HParser TokenT-<a name="(line139)"></a>tok t <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t'<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line140)"></a>           <font color=Green><u>case</u></font> t' <font color=Green><u>of</u></font> TokError s    <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'-<a name="(line141)"></a>                      <font color=Green><u>_</u></font> <font color=Red>|</font> t'<font color=Cyan>==</font>t     <font color=Red>-&gt;</font> return t-<a name="(line142)"></a>                        <font color=Red>|</font> otherwise <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'-<a name="(line143)"></a>-<a name="(line144)"></a><a name="name"></a>name <font color=Red>::</font> HParser Name-<a name="(line145)"></a><font color=Blue>--name = do {(p,TokName s) &lt;- next; return s}</font>-<a name="(line146)"></a>name <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>tok<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line147)"></a>          <font color=Green><u>case</u></font> tok <font color=Green><u>of</u></font> -<a name="(line148)"></a>            TokName s  <font color=Red>-&gt;</font> return s -<a name="(line149)"></a>            TokError s <font color=Red>-&gt;</font> report failBad <font color=Magenta>"a name"</font> p tok-<a name="(line150)"></a>            <font color=Green><u>_</u></font>          <font color=Red>-&gt;</font> report fail <font color=Magenta>"a name"</font> p tok-<a name="(line151)"></a>-<a name="(line152)"></a><a name="string"></a>string<font color=Cyan>,</font> freetext <font color=Red>::</font> HParser String-<a name="(line153)"></a>string   <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line154)"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokName s <font color=Red>-&gt;</font> return s-<a name="(line155)"></a>                        <font color=Green><u>_</u></font>         <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t-<a name="(line156)"></a><a name="freetext"></a>freetext <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line157)"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokFreeText s <font color=Red>-&gt;</font> return s-<a name="(line158)"></a>                        <font color=Green><u>_</u></font>             <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t-<a name="(line159)"></a>-<a name="(line160)"></a><a name="maybe"></a>maybe <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Maybe a<font color=Cyan>)</font>-<a name="(line161)"></a>maybe p <font color=Red>=</font>-<a name="(line162)"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Just<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line163)"></a>    <font color=Cyan>(</font> return Nothing<font color=Cyan>)</font>-<a name="(line164)"></a>-<a name="(line165)"></a><a name="either"></a>either <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser b <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Either a b<font color=Cyan>)</font>-<a name="(line166)"></a>either p q <font color=Red>=</font>-<a name="(line167)"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Left<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line168)"></a>    <font color=Cyan>(</font> q <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Right<font color=Cyan>)</font>-<a name="(line169)"></a>-<a name="(line170)"></a><a name="word"></a>word <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser ()-<a name="(line171)"></a>word s <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x <font color=Red>&lt;-</font> next-<a name="(line172)"></a>            <font color=Cyan>;</font> <font color=Green><u>case</u></font> x <font color=Green><u>of</u></font>-<a name="(line173)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokName n<font color=Cyan>)</font>     <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()-<a name="(line174)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokFreeText n<font color=Cyan>)</font> <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()-<a name="(line175)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Red>@</font><font color=Cyan>(</font>TokError <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t-<a name="(line176)"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t-<a name="(line177)"></a>            <font color=Cyan>}</font>-<a name="(line178)"></a>-<a name="(line179)"></a><a name="posn"></a>posn <font color=Red>::</font> HParser Posn-<a name="(line180)"></a>posn <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x<font color=Red>@</font><font color=Cyan>(</font>p<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> next-<a name="(line181)"></a>          <font color=Cyan>;</font> reparse <font color=Red>[</font>x<font color=Red>]</font>-<a name="(line182)"></a>          <font color=Cyan>;</font> return p-<a name="(line183)"></a>          <font color=Cyan>}</font> <font color=Cyan>`onFail`</font> return noPos-<a name="(line184)"></a>-<a name="(line185)"></a><a name="nmtoken"></a>nmtoken <font color=Red>::</font> HParser NmToken-<a name="(line186)"></a>nmtoken <font color=Red>=</font> <font color=Cyan>(</font>string <font color=Cyan>`onFail`</font> freetext<font color=Cyan>)</font>-<a name="(line187)"></a>-<a name="(line188)"></a><a name="failP"></a>failP<font color=Cyan>,</font> failBadP <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser a-<a name="(line189)"></a>failP msg    <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> fail <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>-<a name="(line190)"></a><a name="failBadP"></a>failBadP msg <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> failBad <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>-<a name="(line191)"></a>-<a name="(line192)"></a><a name="report"></a>report <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>HParser a<font color=Cyan>)</font> <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Posn <font color=Red>-&gt;</font> TokenT <font color=Red>-&gt;</font> HParser a-<a name="(line193)"></a>report fail exp p t <font color=Red>=</font> fail <font color=Cyan>(</font><font color=Magenta>"Expected "</font><font color=Cyan>++</font>show exp<font color=Cyan>++</font><font color=Magenta>" but found "</font><font color=Cyan>++</font>show t-<a name="(line194)"></a>                           <font color=Cyan>++</font><font color=Magenta>"\n  at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font>-<a name="(line195)"></a>-<a name="(line196)"></a><a name="adjustErrP"></a>adjustErrP <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>String<font color=Cyan>)</font> <font color=Red>-&gt;</font> HParser a-<a name="(line197)"></a><a name="adjustErrP"></a>p <font color=Cyan>`adjustErrP`</font> f <font color=Red>=</font> p <font color=Cyan>`onFail`</font> <font color=Green><u>do</u></font> pn <font color=Red>&lt;-</font> posn-<a name="(line198)"></a>                                 <font color=Cyan>(</font>p <font color=Cyan>`adjustErr`</font> f<font color=Cyan>)</font> <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Cyan>++</font>show pn<font color=Cyan>)</font>-<a name="(line199)"></a>-<a name="(line200)"></a><font color=Blue>---- XML Parsing Functions ----</font>-<a name="(line201)"></a>-<a name="(line202)"></a><a name="document"></a>document <font color=Red>::</font> HParser <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>-<a name="(line203)"></a>document <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line204)"></a>    return Document-<a name="(line205)"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>prolog <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Magenta>"unrecognisable XML prolog\n"</font><font color=Cyan>++</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line206)"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>return emptyST<font color=Cyan>)</font>-<a name="(line207)"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> es <font color=Red>&lt;-</font> many1 <font color=Cyan>(</font>element <font color=Magenta>"HTML document"</font><font color=Cyan>)</font>-<a name="(line208)"></a>                    return <font color=Cyan>(</font><font color=Green><u>case</u></font> map snd es <font color=Green><u>of</u></font>-<a name="(line209)"></a>                                <font color=Red>[</font>e<font color=Red>]</font> <font color=Red>-&gt;</font> e-<a name="(line210)"></a>                                es  <font color=Red>-&gt;</font> Elem <font color=Magenta>"html"</font> [] <font color=Cyan>(</font>map mkCElem es<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line211)"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>many misc<font color=Cyan>)</font>-<a name="(line212)"></a>  <font color=Green><u>where</u></font> mkCElem e <font color=Red>=</font> CElem e noPos-<a name="(line213)"></a>-<a name="(line214)"></a><a name="comment"></a>comment <font color=Red>::</font> HParser Comment-<a name="(line215)"></a>comment <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line216)"></a>    bracket <font color=Cyan>(</font>tok TokCommentOpen<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokCommentClose<font color=Cyan>)</font> freetext-<a name="(line217)"></a>-<a name="(line218)"></a><a name="processinginstruction"></a>processinginstruction <font color=Red>::</font> HParser ProcessingInstruction-<a name="(line219)"></a>processinginstruction <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line220)"></a>    tok TokPIOpen-<a name="(line221)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line222)"></a>      n <font color=Red>&lt;-</font> string  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"processing instruction has no target"</font>-<a name="(line223)"></a>      f <font color=Red>&lt;-</font> freetext-<a name="(line224)"></a>      <font color=Cyan>(</font>tok TokPIClose <font color=Cyan>`onFail`</font> tok TokAnyClose<font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing ?&gt; or &gt;"</font>-<a name="(line225)"></a>      return <font color=Cyan>(</font>n<font color=Cyan>,</font> f<font color=Cyan>)</font>-<a name="(line226)"></a>-<a name="(line227)"></a><a name="cdsect"></a>cdsect <font color=Red>::</font> HParser CDSect-<a name="(line228)"></a>cdsect <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line229)"></a>    tok TokSectionOpen-<a name="(line230)"></a>    bracket <font color=Cyan>(</font>tok <font color=Cyan>(</font>TokSection CDATAx<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSectionClose<font color=Cyan>)</font> chardata-<a name="(line231)"></a>-<a name="(line232)"></a><a name="prolog"></a>prolog <font color=Red>::</font> HParser Prolog-<a name="(line233)"></a>prolog <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line234)"></a>    x <font color=Red>&lt;-</font> maybe xmldecl-<a name="(line235)"></a>    m1 <font color=Red>&lt;-</font> many misc-<a name="(line236)"></a>    dtd <font color=Red>&lt;-</font> maybe doctypedecl-<a name="(line237)"></a>    m2 <font color=Red>&lt;-</font> many misc-<a name="(line238)"></a>    return <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font>-<a name="(line239)"></a>-<a name="(line240)"></a><a name="xmldecl"></a>xmldecl <font color=Red>::</font> HParser XMLDecl-<a name="(line241)"></a>xmldecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line242)"></a>    tok TokPIOpen-<a name="(line243)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>-<a name="(line244)"></a>    p <font color=Red>&lt;-</font> posn-<a name="(line245)"></a>    s <font color=Red>&lt;-</font> freetext-<a name="(line246)"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"missing ?&gt; in &lt;?xml ...?&gt;"</font>-<a name="(line247)"></a>    <font color=Cyan>(</font>return <font color=Cyan>.</font> fst <font color=Cyan>.</font> runParser aux <font color=Cyan>.</font> xmlReLex p<font color=Cyan>)</font> s-<a name="(line248)"></a>  <font color=Green><u>where</u></font>-<a name="(line249)"></a>    aux <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line250)"></a>      v <font color=Red>&lt;-</font> versioninfo  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing XML version info"</font>-<a name="(line251)"></a>      e <font color=Red>&lt;-</font> maybe encodingdecl-<a name="(line252)"></a>      s <font color=Red>&lt;-</font> maybe sddecl-<a name="(line253)"></a>      return <font color=Cyan>(</font>XMLDecl v e s<font color=Cyan>)</font>-<a name="(line254)"></a>-<a name="(line255)"></a><a name="versioninfo"></a>versioninfo <font color=Red>::</font> HParser VersionInfo-<a name="(line256)"></a>versioninfo <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line257)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"version"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"VERSION"</font><font color=Cyan>)</font>-<a name="(line258)"></a>    tok TokEqual-<a name="(line259)"></a>    bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line260)"></a>-<a name="(line261)"></a><a name="misc"></a>misc <font color=Red>::</font> HParser Misc-<a name="(line262)"></a>misc <font color=Red>=</font> -<a name="(line263)"></a>    oneOf' <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"&lt;!--comment--&gt;"</font><font color=Cyan>,</font> comment <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Comment<font color=Cyan>)</font>-<a name="(line264)"></a>           <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"&lt;?PI?&gt;"</font><font color=Cyan>,</font>         processinginstruction <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> PI<font color=Cyan>)</font>-<a name="(line265)"></a>           <font color=Red>]</font>-<a name="(line266)"></a>-<a name="(line267)"></a>-<a name="(line268)"></a><font color=Blue>-- Question: for HTML, should we disallow in-line DTDs, allowing only externals?</font>-<a name="(line269)"></a><font color=Blue>-- Answer: I think so.</font>-<a name="(line270)"></a>-<a name="(line271)"></a><a name="doctypedecl"></a>doctypedecl <font color=Red>::</font> HParser DocTypeDecl-<a name="(line272)"></a>doctypedecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line273)"></a>    tok TokSpecialOpen-<a name="(line274)"></a>    tok <font color=Cyan>(</font>TokSpecial DOCTYPEx<font color=Cyan>)</font>-<a name="(line275)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line276)"></a>      n <font color=Red>&lt;-</font> name-<a name="(line277)"></a>      eid <font color=Red>&lt;-</font> maybe externalid-<a name="(line278)"></a><font color=Blue>--    es &lt;- maybe (bracket (tok TokSqOpen) (tok TokSqClose)) (many markupdecl)</font>-<a name="(line279)"></a>      tok TokAnyClose  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; in DOCTYPE decl"</font>-<a name="(line280)"></a><font color=Blue>--    return (DTD n eid (case es of { Nothing -&gt; []; Just e -&gt; e }))</font>-<a name="(line281)"></a>      return <font color=Cyan>(</font>DTD n eid []<font color=Cyan>)</font>-<a name="(line282)"></a>-<a name="(line283)"></a><font color=Blue>--markupdecl :: HParser MarkupDecl</font>-<a name="(line284)"></a><font color=Blue>--markupdecl =</font>-<a name="(line285)"></a><font color=Blue>--    ( elementdecl &gt;&gt;= return . Element) `onFail`</font>-<a name="(line286)"></a><font color=Blue>--    ( attlistdecl &gt;&gt;= return . AttList) `onFail`</font>-<a name="(line287)"></a><font color=Blue>--    ( entitydecl &gt;&gt;= return . Entity) `onFail`</font>-<a name="(line288)"></a><font color=Blue>--    ( notationdecl &gt;&gt;= return . Notation) `onFail`</font>-<a name="(line289)"></a><font color=Blue>--    ( misc &gt;&gt;= return . MarkupMisc) `onFail`</font>-<a name="(line290)"></a><font color=Blue>--    PEREF(MarkupPE,markupdecl)</font>-<a name="(line291)"></a><font color=Blue>--</font>-<a name="(line292)"></a><font color=Blue>--extsubset :: HParser ExtSubset</font>-<a name="(line293)"></a><font color=Blue>--extsubset = do</font>-<a name="(line294)"></a><font color=Blue>--    td &lt;- maybe textdecl</font>-<a name="(line295)"></a><font color=Blue>--    ds &lt;- many extsubsetdecl</font>-<a name="(line296)"></a><font color=Blue>--    return (ExtSubset td ds)</font>-<a name="(line297)"></a><font color=Blue>--</font>-<a name="(line298)"></a><font color=Blue>--extsubsetdecl :: HParser ExtSubsetDecl</font>-<a name="(line299)"></a><font color=Blue>--extsubsetdecl =</font>-<a name="(line300)"></a><font color=Blue>--    ( markupdecl &gt;&gt;= return . ExtMarkupDecl) `onFail`</font>-<a name="(line301)"></a><font color=Blue>--    ( conditionalsect &gt;&gt;= return . ExtConditionalSect) `onFail`</font>-<a name="(line302)"></a><font color=Blue>--    PEREF(ExtPEReference,extsubsetdecl)</font>-<a name="(line303)"></a>-<a name="(line304)"></a><a name="sddecl"></a>sddecl <font color=Red>::</font> HParser SDDecl-<a name="(line305)"></a>sddecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line306)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"standalone"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"STANDALONE"</font><font color=Cyan>)</font>-<a name="(line307)"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>-<a name="(line308)"></a>      tok TokEqual <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing = in 'standalone' decl"</font>-<a name="(line309)"></a>      bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>-<a name="(line310)"></a>              <font color=Cyan>(</font> <font color=Cyan>(</font>word <font color=Magenta>"yes"</font> <font color=Cyan>&gt;&gt;</font> return True<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line311)"></a>                <font color=Cyan>(</font>word <font color=Magenta>"no"</font> <font color=Cyan>&gt;&gt;</font> return False<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line312)"></a>                failP <font color=Magenta>"'standalone' decl requires 'yes' or 'no' value"</font> <font color=Cyan>)</font>-<a name="(line313)"></a>-<a name="(line314)"></a>-<a name="(line315)"></a>-<a name="(line316)"></a>-<a name="(line317)"></a><a name="Stack"></a><font color=Blue>----</font>-<a name="(line318)"></a><a name="Stack"></a><font color=Blue>-- VERY IMPORTANT NOTE: The stack returned here contains those tags which</font>-<a name="(line319)"></a><a name="Stack"></a><font color=Blue>-- have been closed implicitly and need to be reopened again at the</font>-<a name="(line320)"></a><a name="Stack"></a><font color=Blue>-- earliest opportunity.</font>-<a name="(line321)"></a><a name="Stack"></a><font color=Green><u>type</u></font> Stack <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line322)"></a>-<a name="(line323)"></a><a name="element"></a>element <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Element Posn<font color=Cyan>)</font>-<a name="(line324)"></a>element ctx <font color=Red>=</font>-<a name="(line325)"></a>  <font color=Green><u>do</u></font>-<a name="(line326)"></a>    tok TokAnyOpen-<a name="(line327)"></a>    <font color=Cyan>(</font>ElemTag e avs<font color=Cyan>)</font> <font color=Red>&lt;-</font> elemtag-<a name="(line328)"></a>    <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>`closes`</font> ctx <font color=Green><u>then</u></font>-<a name="(line329)"></a>         <font color=Blue>-- insert the missing close-tag, fail forward, and reparse.</font>-<a name="(line330)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> debug <font color=Cyan>(</font><font color=Magenta>"/"</font><font color=Cyan>)</font>-<a name="(line331)"></a>              unparse <font color=Cyan>(</font><font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName ctx<font color=Cyan>,</font> TokAnyClose<font color=Cyan>,</font>-<a name="(line332)"></a>                        TokAnyOpen<font color=Cyan>,</font> TokName e<font color=Red>]</font> <font color=Cyan>++</font> reformatAttrs avs<font color=Cyan>)</font>-<a name="(line333)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line334)"></a>      <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> e <font color=Cyan>`elem`</font> selfclosingtags <font color=Green><u>then</u></font>-<a name="(line335)"></a>         <font color=Blue>-- complete the parse straightaway.</font>-<a name="(line336)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose	<font color=Blue>-- self-closing &lt;tag /&gt; </font>-<a name="(line337)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>-<a name="(line338)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line339)"></a>     <font color=Blue>--  ( do tok TokAnyClose	-- sequence &lt;tag&gt;&lt;/tag&gt;	(**not HTML?**)</font>-<a name="(line340)"></a>     <font color=Blue>--       debug (e++"[+")</font>-<a name="(line341)"></a>     <font color=Blue>--       n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>-<a name="(line342)"></a>     <font color=Blue>--       debug "]"</font>-<a name="(line343)"></a>     <font color=Blue>--       if e == (map toLower n :: Name) </font>-<a name="(line344)"></a>     <font color=Blue>--         then return ([], Elem e avs [])      </font>-<a name="(line345)"></a>     <font color=Blue>--         else return (error "no nesting in empty tag")) `onFail`</font>-<a name="(line346)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose	<font color=Blue>-- &lt;tag&gt; with no close (e.g. &lt;IMG&gt;)</font>-<a name="(line347)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>-<a name="(line348)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line349)"></a>      <font color=Green><u>else</u></font>-<a name="(line350)"></a>        <font color=Cyan>(</font><font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose-<a name="(line351)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[]"</font><font color=Cyan>)</font>-<a name="(line352)"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line353)"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; or /&gt; in element tag"</font>-<a name="(line354)"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"["</font><font color=Cyan>)</font>-<a name="(line355)"></a>              return <font color=Cyan>(</font><font color=Red>\</font> interior<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>stack<font color=Cyan>,</font>contained<font color=Cyan>)</font> <font color=Red>=</font> interior-<a name="(line356)"></a>                                   <font color=Green><u>in</u></font>  <font color=Cyan>(</font>stack<font color=Cyan>,</font> Elem e avs contained<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line357)"></a>                  <font color=Cyan>`apply`</font>-<a name="(line358)"></a>                  <font color=Cyan>(</font><font color=Green><u>do</u></font> zz <font color=Red>&lt;-</font> manyFinally <font color=Cyan>(</font>content e<font color=Cyan>)</font>-<a name="(line359)"></a>                                        <font color=Cyan>(</font>tok TokEndOpen<font color=Cyan>)</font>-<a name="(line360)"></a>                      n <font color=Red>&lt;-</font> name-<a name="(line361)"></a>                      commit <font color=Cyan>(</font>tok TokAnyClose<font color=Cyan>)</font>-<a name="(line362)"></a>                      debug <font color=Magenta>"]"</font>-<a name="(line363)"></a>                      <font color=Green><u>let</u></font> <font color=Cyan>(</font>ss<font color=Cyan>,</font>cs<font color=Cyan>)</font> <font color=Red>=</font> unzip zz-<a name="(line364)"></a>                      <font color=Green><u>let</u></font> s       <font color=Red>=</font> <font color=Green><u>if</u></font> null ss <font color=Green><u>then</u></font> [] <font color=Green><u>else</u></font> last ss-<a name="(line365)"></a>                      <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>==</font> <font color=Cyan>(</font>map toLower n <font color=Red>::</font> Name<font color=Cyan>)</font> <font color=Green><u>then</u></font>-<a name="(line366)"></a>                          <font color=Green><u>do</u></font> unparse <font color=Cyan>(</font>reformatTags <font color=Cyan>(</font>closeInner e s<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line367)"></a>                             debug <font color=Magenta>"^"</font>-<a name="(line368)"></a>                             return <font color=Cyan>(</font>[]<font color=Cyan>,</font> cs<font color=Cyan>)</font>-<a name="(line369)"></a>                        <font color=Green><u>else</u></font>-<a name="(line370)"></a>                          <font color=Green><u>do</u></font> unparse <font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName n<font color=Cyan>,</font> TokAnyClose<font color=Red>]</font>-<a name="(line371)"></a>                             debug <font color=Magenta>"-"</font>-<a name="(line372)"></a>                             return <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>(</font>e<font color=Cyan>,</font>avs<font color=Cyan>)</font><font color=Red><b>:</b></font>s<font color=Cyan>)</font><font color=Cyan>,</font> cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line373)"></a>         <font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Cyan>(</font><font color=Magenta>"failed to repair non-matching tags in context: "</font><font color=Cyan>++</font>ctx<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line374)"></a>-<a name="(line375)"></a><a name="closeInner"></a>closeInner <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>-<a name="(line376)"></a>closeInner c ts <font color=Red>=</font>-<a name="(line377)"></a>    <font color=Green><u>case</u></font> lookup c closeInnerTags <font color=Green><u>of</u></font>-<a name="(line378)"></a>      <font color=Cyan>(</font>Just these<font color=Cyan>)</font> <font color=Red>-&gt;</font> filter <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>`notElem`</font> these<font color=Cyan>)</font><font color=Cyan>.</font>fst<font color=Cyan>)</font> ts-<a name="(line379)"></a>      Nothing      <font color=Red>-&gt;</font> ts-<a name="(line380)"></a>-<a name="(line381)"></a><a name="unparse"></a>unparse ts <font color=Red>=</font> <font color=Green><u>do</u></font> p <font color=Red>&lt;-</font> posn-<a name="(line382)"></a>                reparse <font color=Cyan>(</font>zip <font color=Cyan>(</font>repeat p<font color=Cyan>)</font> ts<font color=Cyan>)</font>-<a name="(line383)"></a>-<a name="(line384)"></a><a name="reformatAttrs"></a>reformatAttrs avs <font color=Red>=</font> concatMap f0 avs-<a name="(line385)"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>a<font color=Cyan>,</font> v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokName a<font color=Cyan>,</font> TokEqual<font color=Cyan>,</font> TokQuote<font color=Cyan>,</font>-<a name="(line386)"></a>                                       TokFreeText <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>,</font> TokQuote<font color=Red>]</font>-<a name="(line387)"></a><a name="reformatTags"></a>reformatTags ts <font color=Red>=</font> concatMap f0 ts-<a name="(line388)"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>t<font color=Cyan>,</font>avs<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokAnyOpen<font color=Cyan>,</font> TokName t<font color=Red>]</font><font color=Cyan>++</font>reformatAttrs avs<font color=Cyan>++</font><font color=Red>[</font>TokAnyClose<font color=Red>]</font>-<a name="(line389)"></a>-<a name="(line390)"></a><a name="content"></a>content <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Content Posn<font color=Cyan>)</font>-<a name="(line391)"></a>content ctx <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn <font color=Cyan>;</font> content' p ctx <font color=Cyan>}</font>-<a name="(line392)"></a>  <font color=Green><u>where</u></font> content' p ctx <font color=Red>=</font> oneOf'-<a name="(line393)"></a>          <font color=Red>[</font> <font color=Cyan>(</font> <font color=Magenta>"element"</font><font color=Cyan>,</font> element ctx <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font><font color=Cyan>(</font>s<font color=Cyan>,</font>e<font color=Cyan>)</font><font color=Red>-&gt;</font> return <font color=Cyan>(</font>s<font color=Cyan>,</font> CElem e p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line394)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"chardata"</font><font color=Cyan>,</font> chardata <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>s<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString False s p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line395)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"reference"</font><font color=Cyan>,</font> reference <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>r<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CRef r p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line396)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"cdsect"</font><font color=Cyan>,</font> cdsect <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString True c p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line397)"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"misc"</font><font color=Cyan>,</font> misc <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>m<font color=Red>-&gt;</font>  return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CMisc m p<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line398)"></a>          <font color=Red>]</font> <font color=Cyan>`adjustErrP`</font> <font color=Cyan>(</font><font color=Magenta>"when looking for a content item,\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>-<a name="(line399)"></a>-<a name="(line400)"></a><a name="elemtag"></a><font color=Blue>----</font>-<a name="(line401)"></a>elemtag <font color=Red>::</font> HParser ElemTag-<a name="(line402)"></a>elemtag <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line403)"></a>    n <font color=Red>&lt;-</font> name <font color=Cyan>`adjustErrBad`</font> <font color=Cyan>(</font><font color=Magenta>"malformed element tag\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>-<a name="(line404)"></a>    <font color=Green><u>as</u></font> <font color=Red>&lt;-</font> many attribute-<a name="(line405)"></a>    return <font color=Cyan>(</font>ElemTag <font color=Cyan>(</font>map toLower n<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font>-<a name="(line406)"></a>-<a name="(line407)"></a><a name="attribute"></a>attribute <font color=Red>::</font> HParser Attribute-<a name="(line408)"></a>attribute <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line409)"></a>    n <font color=Red>&lt;-</font> name-<a name="(line410)"></a>    v <font color=Red>&lt;-</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> tok TokEqual-<a name="(line411)"></a>             attvalue<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line412)"></a>         <font color=Cyan>(</font>return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Magenta>"TRUE"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line413)"></a>    return <font color=Cyan>(</font>map toLower n<font color=Cyan>,</font>v<font color=Cyan>)</font>-<a name="(line414)"></a>-<a name="(line415)"></a><font color=Blue>--elementdecl :: HParser ElementDecl</font>-<a name="(line416)"></a><font color=Blue>--elementdecl = do</font>-<a name="(line417)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line418)"></a><font color=Blue>--    tok (TokSpecial ELEMENTx)</font>-<a name="(line419)"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ELEMENT decl"</font>-<a name="(line420)"></a><font color=Blue>--    c &lt;- contentspec `onFail` failP "missing content spec in ELEMENT decl"</font>-<a name="(line421)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating ELEMENT decl"</font>-<a name="(line422)"></a><font color=Blue>--    return (ElementDecl n c)</font>-<a name="(line423)"></a><font color=Blue>--</font>-<a name="(line424)"></a><font color=Blue>--contentspec :: HParser ContentSpec</font>-<a name="(line425)"></a><font color=Blue>--contentspec =</font>-<a name="(line426)"></a><font color=Blue>--    ( word "EMPTY" &gt;&gt; return EMPTY) `onFail`</font>-<a name="(line427)"></a><font color=Blue>--    ( word "ANY" &gt;&gt; return ANY) `onFail`</font>-<a name="(line428)"></a><font color=Blue>--    ( mixed &gt;&gt;= return . Mixed) `onFail`</font>-<a name="(line429)"></a><font color=Blue>--    ( cp &gt;&gt;= return . ContentSpec) `onFail`</font>-<a name="(line430)"></a><font color=Blue>--    PEREF(ContentPE,contentspec)</font>-<a name="(line431)"></a><font color=Blue>--</font>-<a name="(line432)"></a><font color=Blue>--choice :: HParser [CP]</font>-<a name="(line433)"></a><font color=Blue>--choice = do</font>-<a name="(line434)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line435)"></a><font color=Blue>--            (cp `sepby1` (tok TokPipe))</font>-<a name="(line436)"></a><font color=Blue>--</font>-<a name="(line437)"></a><font color=Blue>--sequence :: HParser [CP]</font>-<a name="(line438)"></a><font color=Blue>--sequence = do</font>-<a name="(line439)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line440)"></a><font color=Blue>--            (cp `sepby1` (tok TokComma))</font>-<a name="(line441)"></a><font color=Blue>--</font>-<a name="(line442)"></a><font color=Blue>--cp :: HParser CP</font>-<a name="(line443)"></a><font color=Blue>--cp =</font>-<a name="(line444)"></a><font color=Blue>--    ( do n &lt;- name</font>-<a name="(line445)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line446)"></a><font color=Blue>--         return (TagName n m)) `onFail`</font>-<a name="(line447)"></a><font color=Blue>--    ( do ss &lt;- sequence</font>-<a name="(line448)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line449)"></a><font color=Blue>--         return (Seq ss m)) `onFail`</font>-<a name="(line450)"></a><font color=Blue>--    ( do cs &lt;- choice</font>-<a name="(line451)"></a><font color=Blue>--         m &lt;- modifier</font>-<a name="(line452)"></a><font color=Blue>--         return (Choice cs m)) `onFail`</font>-<a name="(line453)"></a><font color=Blue>--    PEREF(CPPE,cp)</font>-<a name="(line454)"></a><font color=Blue>--</font>-<a name="(line455)"></a><font color=Blue>--modifier :: HParser Modifier</font>-<a name="(line456)"></a><font color=Blue>--modifier =</font>-<a name="(line457)"></a><font color=Blue>--    ( tok TokStar &gt;&gt; return Star) `onFail`</font>-<a name="(line458)"></a><font color=Blue>--    ( tok TokQuery &gt;&gt; return Query) `onFail`</font>-<a name="(line459)"></a><font color=Blue>--    ( tok TokPlus &gt;&gt; return Plus) `onFail`</font>-<a name="(line460)"></a><font color=Blue>--    ( return None)</font>-<a name="(line461)"></a><font color=Blue>--</font>-<a name="(line462)"></a><font color=Blue>--mixed :: HParser Mixed</font>-<a name="(line463)"></a><font color=Blue>--mixed = do</font>-<a name="(line464)"></a><font color=Blue>--    tok TokBraOpen</font>-<a name="(line465)"></a><font color=Blue>--    tok TokHash</font>-<a name="(line466)"></a><font color=Blue>--    word "PCDATA"</font>-<a name="(line467)"></a><font color=Blue>--    cont</font>-<a name="(line468)"></a><font color=Blue>--  where</font>-<a name="(line469)"></a><font color=Blue>--    cont = ( tok TokBraClose &gt;&gt; return PCDATA) `onFail`</font>-<a name="(line470)"></a><font color=Blue>--           ( do cs &lt;- many ( do tok TokPipe</font>-<a name="(line471)"></a><font color=Blue>--                                n &lt;- name</font>-<a name="(line472)"></a><font color=Blue>--                                return n)</font>-<a name="(line473)"></a><font color=Blue>--                tok TokBraClose</font>-<a name="(line474)"></a><font color=Blue>--                tok TokStar</font>-<a name="(line475)"></a><font color=Blue>--                return (PCDATAplus cs))</font>-<a name="(line476)"></a><font color=Blue>--</font>-<a name="(line477)"></a><font color=Blue>--attlistdecl :: HParser AttListDecl</font>-<a name="(line478)"></a><font color=Blue>--attlistdecl = do</font>-<a name="(line479)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line480)"></a><font color=Blue>--    tok (TokSpecial ATTLISTx)</font>-<a name="(line481)"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ATTLIST"</font>-<a name="(line482)"></a><font color=Blue>--    ds &lt;- many attdef</font>-<a name="(line483)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "missing &gt; terminating ATTLIST"</font>-<a name="(line484)"></a><font color=Blue>--    return (AttListDecl n ds)</font>-<a name="(line485)"></a><font color=Blue>--</font>-<a name="(line486)"></a><font color=Blue>--attdef :: HParser AttDef</font>-<a name="(line487)"></a><font color=Blue>--attdef = do</font>-<a name="(line488)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line489)"></a><font color=Blue>--    t &lt;- atttype `onFail` failP "missing attribute type in attlist defn"</font>-<a name="(line490)"></a><font color=Blue>--    d &lt;- defaultdecl</font>-<a name="(line491)"></a><font color=Blue>--    return (AttDef n t d)</font>-<a name="(line492)"></a><font color=Blue>--</font>-<a name="(line493)"></a><font color=Blue>--atttype :: HParser AttType</font>-<a name="(line494)"></a><font color=Blue>--atttype =</font>-<a name="(line495)"></a><font color=Blue>--    ( word "CDATA" &gt;&gt; return StringType) `onFail`</font>-<a name="(line496)"></a><font color=Blue>--    ( tokenizedtype &gt;&gt;= return . TokenizedType) `onFail`</font>-<a name="(line497)"></a><font color=Blue>--    ( enumeratedtype &gt;&gt;= return . EnumeratedType)</font>-<a name="(line498)"></a><font color=Blue>--</font>-<a name="(line499)"></a><font color=Blue>--tokenizedtype :: HParser TokenizedType</font>-<a name="(line500)"></a><font color=Blue>--tokenizedtype =</font>-<a name="(line501)"></a><font color=Blue>--    ( word "ID" &gt;&gt; return ID) `onFail`</font>-<a name="(line502)"></a><font color=Blue>--    ( word "IDREF" &gt;&gt; return IDREF) `onFail`</font>-<a name="(line503)"></a><font color=Blue>--    ( word "IDREFS" &gt;&gt; return IDREFS) `onFail`</font>-<a name="(line504)"></a><font color=Blue>--    ( word "ENTITY" &gt;&gt; return ENTITY) `onFail`</font>-<a name="(line505)"></a><font color=Blue>--    ( word "ENTITIES" &gt;&gt; return ENTITIES) `onFail`</font>-<a name="(line506)"></a><font color=Blue>--    ( word "NMTOKEN" &gt;&gt; return NMTOKEN) `onFail`</font>-<a name="(line507)"></a><font color=Blue>--    ( word "NMTOKENS" &gt;&gt; return NMTOKENS)</font>-<a name="(line508)"></a><font color=Blue>--</font>-<a name="(line509)"></a><font color=Blue>--enumeratedtype :: HParser EnumeratedType</font>-<a name="(line510)"></a><font color=Blue>--enumeratedtype =</font>-<a name="(line511)"></a><font color=Blue>--    ( notationtype &gt;&gt;= return . NotationType) `onFail`</font>-<a name="(line512)"></a><font color=Blue>--    ( enumeration &gt;&gt;= return . Enumeration)</font>-<a name="(line513)"></a><font color=Blue>--</font>-<a name="(line514)"></a><font color=Blue>--notationtype :: HParser NotationType</font>-<a name="(line515)"></a><font color=Blue>--notationtype = do</font>-<a name="(line516)"></a><font color=Blue>--    word "NOTATION"</font>-<a name="(line517)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line518)"></a><font color=Blue>--            (name `sepby1` (tok TokPipe))</font>-<a name="(line519)"></a><font color=Blue>--</font>-<a name="(line520)"></a><font color=Blue>--enumeration :: HParser Enumeration</font>-<a name="(line521)"></a><font color=Blue>--enumeration =</font>-<a name="(line522)"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>-<a name="(line523)"></a><font color=Blue>--            (nmtoken `sepby1` (tok TokPipe))</font>-<a name="(line524)"></a><font color=Blue>--</font>-<a name="(line525)"></a><font color=Blue>--defaultdecl :: HParser DefaultDecl</font>-<a name="(line526)"></a><font color=Blue>--defaultdecl =</font>-<a name="(line527)"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "REQUIRED" &gt;&gt; return REQUIRED) `onFail`</font>-<a name="(line528)"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "IMPLIED" &gt;&gt; return IMPLIED) `onFail`</font>-<a name="(line529)"></a><font color=Blue>--    ( do f &lt;- maybe (tok TokHash &gt;&gt; word "FIXED" &gt;&gt; return FIXED)</font>-<a name="(line530)"></a><font color=Blue>--         a &lt;- attvalue</font>-<a name="(line531)"></a><font color=Blue>--         return (DefaultTo a f))</font>-<a name="(line532)"></a><font color=Blue>--</font>-<a name="(line533)"></a><font color=Blue>--conditionalsect :: HParser ConditionalSect</font>-<a name="(line534)"></a><font color=Blue>--conditionalsect =</font>-<a name="(line535)"></a><font color=Blue>--    ( do tok TokSectionOpen</font>-<a name="(line536)"></a><font color=Blue>--         tok (TokSection INCLUDEx)</font>-<a name="(line537)"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after INCLUDE"</font>-<a name="(line538)"></a><font color=Blue>--         i &lt;- extsubsetdecl `onFail` failP "missing ExtSubsetDecl in INCLUDE"</font>-<a name="(line539)"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after INCLUDE"</font>-<a name="(line540)"></a><font color=Blue>--         return (IncludeSect i)) `onFail`</font>-<a name="(line541)"></a><font color=Blue>--    ( do tok TokSectionOpen</font>-<a name="(line542)"></a><font color=Blue>--         tok (TokSection IGNOREx)</font>-<a name="(line543)"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after IGNORE"</font>-<a name="(line544)"></a><font color=Blue>--         i &lt;- many ignoresectcontents</font>-<a name="(line545)"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after IGNORE"</font>-<a name="(line546)"></a><font color=Blue>--         return (IgnoreSect i))</font>-<a name="(line547)"></a><font color=Blue>--</font>-<a name="(line548)"></a><font color=Blue>--ignoresectcontents :: HParser IgnoreSectContents</font>-<a name="(line549)"></a><font color=Blue>--ignoresectcontents = do</font>-<a name="(line550)"></a><font color=Blue>--    i &lt;- ignore</font>-<a name="(line551)"></a><font color=Blue>--    is &lt;- many (do tok TokSectionOpen</font>-<a name="(line552)"></a><font color=Blue>--                   ic &lt;- ignoresectcontents</font>-<a name="(line553)"></a><font color=Blue>--                   tok TokSectionClose</font>-<a name="(line554)"></a><font color=Blue>--                   ig &lt;- ignore</font>-<a name="(line555)"></a><font color=Blue>--                   return (ic,ig))</font>-<a name="(line556)"></a><font color=Blue>--    return (IgnoreSectContents i is)</font>-<a name="(line557)"></a><font color=Blue>--</font>-<a name="(line558)"></a><font color=Blue>--ignore :: HParser Ignore</font>-<a name="(line559)"></a><font color=Blue>--ignore = freetext &gt;&gt;= return . Ignore</font>-<a name="(line560)"></a>-<a name="(line561)"></a><a name="reference"></a>reference <font color=Red>::</font> HParser Reference-<a name="(line562)"></a>reference <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line563)"></a>    bracket <font color=Cyan>(</font>tok TokAmp<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSemi<font color=Cyan>)</font> <font color=Cyan>(</font>freetext <font color=Cyan>&gt;&gt;=</font> val<font color=Cyan>)</font>-<a name="(line564)"></a>  <font color=Green><u>where</u></font>-<a name="(line565)"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font><font color=Magenta>'x'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font> <font color=Red>|</font> all isHexDigit i-<a name="(line566)"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readHex <font color=Cyan>$</font> i-<a name="(line567)"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font>     <font color=Red>|</font> all isDigit i-<a name="(line568)"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readDec <font color=Cyan>$</font> i-<a name="(line569)"></a>    val name        <font color=Red>=</font> return <font color=Cyan>.</font> RefEntity <font color=Cyan>$</font> name-<a name="(line570)"></a>-<a name="(line571)"></a><font color=Blue>{--<a name="(line572)"></a>reference :: HParser Reference-<a name="(line573)"></a>reference =-<a name="(line574)"></a>    ( charref &gt;&gt;= return . RefChar) `onFail`-<a name="(line575)"></a>    ( entityref &gt;&gt;= return . RefEntity)-<a name="(line576)"></a>-<a name="(line577)"></a>entityref :: HParser EntityRef-<a name="(line578)"></a>entityref = do-<a name="(line579)"></a>    n &lt;- bracket (tok TokAmp) (tok TokSemi) name-<a name="(line580)"></a>    return n-<a name="(line581)"></a>-<a name="(line582)"></a>charref :: HParser CharRef-<a name="(line583)"></a>charref = do-<a name="(line584)"></a>    bracket (tok TokAmp) (tok TokSemi) (freetext &gt;&gt;= readCharVal)-<a name="(line585)"></a>  where-<a name="(line586)"></a>    readCharVal ('#':'x':i) = return . fst . head . readHex $ i-<a name="(line587)"></a>    readCharVal ('#':i)     = return . fst . head . readDec $ i-<a name="(line588)"></a>    readCharVal _           = mzero-<a name="(line589)"></a>-}</font>-<a name="(line590)"></a>-<a name="(line591)"></a><font color=Blue>--pereference :: HParser PEReference</font>-<a name="(line592)"></a><font color=Blue>--pereference = do</font>-<a name="(line593)"></a><font color=Blue>--    bracket (tok TokPercent) (tok TokSemi) nmtoken</font>-<a name="(line594)"></a><font color=Blue>--</font>-<a name="(line595)"></a><font color=Blue>--entitydecl :: HParser EntityDecl</font>-<a name="(line596)"></a><font color=Blue>--entitydecl =</font>-<a name="(line597)"></a><font color=Blue>--    ( gedecl &gt;&gt;= return . EntityGEDecl) `onFail`</font>-<a name="(line598)"></a><font color=Blue>--    ( pedecl &gt;&gt;= return . EntityPEDecl)</font>-<a name="(line599)"></a><font color=Blue>--</font>-<a name="(line600)"></a><font color=Blue>--gedecl :: HParser GEDecl</font>-<a name="(line601)"></a><font color=Blue>--gedecl = do</font>-<a name="(line602)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line603)"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>-<a name="(line604)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line605)"></a><font color=Blue>--    e &lt;- entitydef `onFail` failP "missing entity defn in G ENTITY decl"</font>-<a name="(line606)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating G ENTITY decl"</font>-<a name="(line607)"></a><font color=Blue>--    return (GEDecl n e)</font>-<a name="(line608)"></a><font color=Blue>--</font>-<a name="(line609)"></a><font color=Blue>--pedecl :: HParser PEDecl</font>-<a name="(line610)"></a><font color=Blue>--pedecl = do</font>-<a name="(line611)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line612)"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>-<a name="(line613)"></a><font color=Blue>--    tok TokPercent</font>-<a name="(line614)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line615)"></a><font color=Blue>--    e &lt;- pedef `onFail` failP "missing entity defn in P ENTITY decl"</font>-<a name="(line616)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating P ENTITY decl"</font>-<a name="(line617)"></a><font color=Blue>--    return (PEDecl n e)</font>-<a name="(line618)"></a><font color=Blue>--</font>-<a name="(line619)"></a><font color=Blue>--entitydef :: HParser EntityDef</font>-<a name="(line620)"></a><font color=Blue>--entitydef =</font>-<a name="(line621)"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . DefEntityValue) `onFail`</font>-<a name="(line622)"></a><font color=Blue>--    ( do eid &lt;- externalid</font>-<a name="(line623)"></a><font color=Blue>--         ndd &lt;- maybe ndatadecl</font>-<a name="(line624)"></a><font color=Blue>--         return (DefExternalID eid ndd))</font>-<a name="(line625)"></a><font color=Blue>--</font>-<a name="(line626)"></a><font color=Blue>--pedef :: HParser PEDef</font>-<a name="(line627)"></a><font color=Blue>--pedef =</font>-<a name="(line628)"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . PEDefEntityValue) `onFail`</font>-<a name="(line629)"></a><font color=Blue>--    ( externalid &gt;&gt;= return . PEDefExternalID)</font>-<a name="(line630)"></a>-<a name="(line631)"></a><a name="externalid"></a>externalid <font color=Red>::</font> HParser ExternalID-<a name="(line632)"></a>externalid <font color=Red>=</font>-<a name="(line633)"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"SYSTEM"</font>-<a name="(line634)"></a>         s <font color=Red>&lt;-</font> systemliteral-<a name="(line635)"></a>         return <font color=Cyan>(</font>SYSTEM s<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line636)"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"PUBLIC"</font>-<a name="(line637)"></a>         p <font color=Red>&lt;-</font> pubidliteral-<a name="(line638)"></a>         s <font color=Red>&lt;-</font> <font color=Cyan>(</font>systemliteral <font color=Cyan>`onFail`</font> return <font color=Cyan>(</font>SystemLiteral <font color=Magenta>""</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line639)"></a>         return <font color=Cyan>(</font>PUBLIC p s<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line640)"></a>-<a name="(line641)"></a><font color=Blue>--ndatadecl :: HParser NDataDecl</font>-<a name="(line642)"></a><font color=Blue>--ndatadecl = do</font>-<a name="(line643)"></a><font color=Blue>--    word "NDATA"</font>-<a name="(line644)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line645)"></a><font color=Blue>--    return (NDATA n)</font>-<a name="(line646)"></a>-<a name="(line647)"></a><a name="textdecl"></a>textdecl <font color=Red>::</font> HParser TextDecl-<a name="(line648)"></a>textdecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line649)"></a>    tok TokPIOpen-<a name="(line650)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>-<a name="(line651)"></a>    v <font color=Red>&lt;-</font> maybe versioninfo-<a name="(line652)"></a>    e <font color=Red>&lt;-</font> encodingdecl-<a name="(line653)"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"expected ?&gt; terminating text decl"</font>-<a name="(line654)"></a>    return <font color=Cyan>(</font>TextDecl v e<font color=Cyan>)</font>-<a name="(line655)"></a>-<a name="(line656)"></a><font color=Blue>--extparsedent :: HParser ExtParsedEnt</font>-<a name="(line657)"></a><font color=Blue>--extparsedent = do</font>-<a name="(line658)"></a><font color=Blue>--    t &lt;- maybe textdecl</font>-<a name="(line659)"></a><font color=Blue>--    (_,c) &lt;- (content "")</font>-<a name="(line660)"></a><font color=Blue>--    return (ExtParsedEnt t c)</font>-<a name="(line661)"></a><font color=Blue>--</font>-<a name="(line662)"></a><font color=Blue>--extpe :: HParser ExtPE</font>-<a name="(line663)"></a><font color=Blue>--extpe = do</font>-<a name="(line664)"></a><font color=Blue>--    t &lt;- maybe textdecl</font>-<a name="(line665)"></a><font color=Blue>--    e &lt;- extsubsetdecl</font>-<a name="(line666)"></a><font color=Blue>--    return (ExtPE t e)</font>-<a name="(line667)"></a>-<a name="(line668)"></a><a name="encodingdecl"></a>encodingdecl <font color=Red>::</font> HParser EncodingDecl-<a name="(line669)"></a>encodingdecl <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line670)"></a>    <font color=Cyan>(</font>word <font color=Magenta>"encoding"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"ENCODING"</font><font color=Cyan>)</font>-<a name="(line671)"></a>    tok TokEqual <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"expected = in 'encoding' decl"</font>-<a name="(line672)"></a>    f <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line673)"></a>    return <font color=Cyan>(</font>EncodingDecl f<font color=Cyan>)</font>-<a name="(line674)"></a>-<a name="(line675)"></a><font color=Blue>--notationdecl :: HParser NotationDecl</font>-<a name="(line676)"></a><font color=Blue>--notationdecl = do</font>-<a name="(line677)"></a><font color=Blue>--    tok TokSpecialOpen</font>-<a name="(line678)"></a><font color=Blue>--    word "NOTATION"</font>-<a name="(line679)"></a><font color=Blue>--    n &lt;- name</font>-<a name="(line680)"></a><font color=Blue>--    e &lt;- either externalid publicid</font>-<a name="(line681)"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating NOTATION decl"</font>-<a name="(line682)"></a><font color=Blue>--    return (NOTATION n e)</font>-<a name="(line683)"></a>-<a name="(line684)"></a><a name="publicid"></a>publicid <font color=Red>::</font> HParser PublicID-<a name="(line685)"></a>publicid <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line686)"></a>    word <font color=Magenta>"PUBLICID"</font>-<a name="(line687)"></a>    p <font color=Red>&lt;-</font> pubidliteral-<a name="(line688)"></a>    return <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>-<a name="(line689)"></a>-<a name="(line690)"></a><a name="entityvalue"></a>entityvalue <font color=Red>::</font> HParser EntityValue-<a name="(line691)"></a>entityvalue <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line692)"></a>    evs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>many ev<font color=Cyan>)</font>-<a name="(line693)"></a>    return <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>-<a name="(line694)"></a>-<a name="(line695)"></a><a name="ev"></a>ev <font color=Red>::</font> HParser EV-<a name="(line696)"></a>ev <font color=Red>=</font>-<a name="(line697)"></a>    <font color=Cyan>(</font> freetext <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVString<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line698)"></a><font color=Blue>--  PEREF(EVPERef,ev) `onFail`</font>-<a name="(line699)"></a>    <font color=Cyan>(</font> reference <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVRef<font color=Cyan>)</font>-<a name="(line700)"></a>-<a name="(line701)"></a><a name="attvalue"></a>attvalue <font color=Red>::</font> HParser AttValue-<a name="(line702)"></a>attvalue <font color=Red>=</font>-<a name="(line703)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> avs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>-<a name="(line704)"></a>                      <font color=Cyan>(</font>many <font color=Cyan>(</font>either freetext reference<font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line705)"></a>       return <font color=Cyan>(</font>AttValue avs<font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line706)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> v <font color=Red>&lt;-</font> nmtoken-<a name="(line707)"></a>       s <font color=Red>&lt;-</font> <font color=Cyan>(</font>tok TokPercent <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"%"</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font> return <font color=Magenta>""</font>-<a name="(line708)"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>v<font color=Cyan>++</font>s<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line709)"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> s <font color=Red>&lt;-</font> oneOf <font color=Red>[</font> tok TokPlus <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"+"</font>-<a name="(line710)"></a>                  <font color=Cyan>,</font> tok TokHash <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"#"</font>-<a name="(line711)"></a>                  <font color=Red>]</font>-<a name="(line712)"></a>       v <font color=Red>&lt;-</font> nmtoken-<a name="(line713)"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>s<font color=Cyan>++</font>v<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>-<a name="(line714)"></a>  failP <font color=Magenta>"Badly formatted attribute value"</font>-<a name="(line715)"></a>-<a name="(line716)"></a><a name="systemliteral"></a>systemliteral <font color=Red>::</font> HParser SystemLiteral-<a name="(line717)"></a>systemliteral <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line718)"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line719)"></a>    return <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>-<a name="(line720)"></a>-<a name="(line721)"></a><a name="pubidliteral"></a>pubidliteral <font color=Red>::</font> HParser PubidLiteral-<a name="(line722)"></a>pubidliteral <font color=Red>=</font> <font color=Green><u>do</u></font>-<a name="(line723)"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext-<a name="(line724)"></a>    return <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>-<a name="(line725)"></a>-<a name="(line726)"></a><a name="chardata"></a>chardata <font color=Red>::</font> HParser CharData-<a name="(line727)"></a>chardata <font color=Red>=</font> freetext <font color=Blue>-- &gt;&gt;= return . CharData</font>-<a name="(line728)"></a>-</pre>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Html/ParseLazy.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | This is a parser for HTML documents.  Unlike for XML documents, it</font>+<a name="line-2"></a><font color=Blue>--   must include a certain amount of error-correction to account for</font>+<a name="line-3"></a><font color=Blue>--   HTML features like self-terminating tags, unterminated tags, and</font>+<a name="line-4"></a><font color=Blue>--   incorrect nesting.  The input is tokenised by the</font>+<a name="line-5"></a><font color=Blue>--   XML lexer (a separate lexer is not required for HTML).</font>+<a name="line-6"></a>+<a name="line-7"></a><font color=Blue>-- It uses a slightly extended version of the Hutton/Meijer parser</font>+<a name="line-8"></a><font color=Blue>-- combinators.</font>+<a name="line-9"></a>+<a name="line-10"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>ParseLazy+<a name="line-11"></a>  <font color=Cyan>(</font> htmlParse+<a name="line-12"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-13"></a>+<a name="line-14"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>either<font color=Cyan>,</font>maybe<font color=Cyan>,</font>sequence<font color=Cyan>)</font>+<a name="line-15"></a><font color=Green><u>import</u></font> <font color=Green><u>qualified</u></font> Prelude <font color=Cyan>(</font>either<font color=Cyan>)</font>+<a name="line-16"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>+<a name="line-17"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>toLower<font color=Cyan>,</font> isSpace<font color=Cyan>,</font> isDigit<font color=Cyan>,</font> isHexDigit<font color=Cyan>)</font>+<a name="line-18"></a><font color=Green><u>import</u></font> Numeric <font color=Cyan>(</font>readDec<font color=Cyan>,</font>readHex<font color=Cyan>)</font>+<a name="line-19"></a><font color=Green><u>import</u></font> Monad+<a name="line-20"></a>+<a name="line-21"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-22"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Lex+<a name="line-23"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Posn+<a name="line-24"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>ParserCombinators<font color=Cyan>.</font>Poly<font color=Cyan>.</font>NoLeak<font color=Cyan>.</font>Lazy+<a name="line-25"></a>+<a name="line-26"></a><font color=Blue>--  #define DEBUG</font>+<a name="line-27"></a> +<a name="line-28"></a><font color=Magenta><em>#if defined(DEBUG)</em></font>+<a name="line-29"></a><font color=Magenta><em>#  if ( defined(__GLASGOW_HASKELL__) &amp;&amp; __GLASGOW_HASKELL__ &gt; 502 ) || \</em></font>+<a name="line-30"></a>      <font color=Cyan>(</font> defined<font color=Cyan>(</font><b><font color=Magenta>__NHC__</font></b><font color=Cyan>)</font> <font color=Cyan>&amp;&amp;</font> <b><font color=Magenta>__NHC__</font></b> <font color=Cyan>&gt;</font> <font color=Magenta>114</font> <font color=Cyan>)</font> <font color=Cyan>||</font> defined<font color=Cyan>(</font><b><font color=Magenta>__HUGS__</font></b><font color=Cyan>)</font>+<a name="line-31"></a><font color=Green><u>import</u></font> Debug<font color=Cyan>.</font>Trace<font color=Cyan>(</font>trace<font color=Cyan>)</font>+<a name="line-32"></a><font color=Magenta><em>#  elif defined(__GLASGOW_HASKELL__)</em></font>+<a name="line-33"></a><font color=Green><u>import</u></font> IOExts<font color=Cyan>(</font>trace<font color=Cyan>)</font>+<a name="line-34"></a><font color=Magenta><em>#  elif defined(__NHC__) || defined(__HBC__)</em></font>+<a name="line-35"></a><font color=Green><u>import</u></font> NonStdTrace+<a name="line-36"></a><font color=Magenta><em>#  endif</em></font>+<a name="line-37"></a><a name="debug"></a><font color=Blue>debug</font> <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()+<a name="line-38"></a><font color=Blue>debug</font> s <font color=Red>=</font> trace s <font color=Cyan>(</font>return ()<font color=Cyan>)</font>+<a name="line-39"></a><font color=Magenta><em>#else</em></font>+<a name="line-40"></a><font color=Blue>debug</font> <font color=Red>::</font> Monad m <font color=Red>=&gt;</font> String <font color=Red>-&gt;</font> m ()+<a name="line-41"></a><font color=Blue>debug</font> s <font color=Red>=</font> return ()+<a name="line-42"></a><font color=Magenta><em>#endif</em></font>+<a name="line-43"></a>+<a name="line-44"></a>+<a name="line-45"></a><a name="htmlParse"></a><font color=Blue>-- | The first argument is the name of the file, the second is the string</font>+<a name="line-46"></a><font color=Blue>--   contents of the file.  The result is the generic representation of</font>+<a name="line-47"></a><font color=Blue>--   an XML document.  Any errors cause program failure with message to stderr.</font>+<a name="line-48"></a><font color=Blue>htmlParse</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Document Posn+<a name="line-49"></a><font color=Blue>htmlParse</font> name <font color=Red>=</font> <font color=Blue>{-simplify .-}</font> fst <font color=Cyan>.</font> runParser document <font color=Cyan>.</font> xmlLex name+<a name="line-50"></a>+<a name="line-51"></a><font color=Blue>{-+<a name="line-52"></a>-- | The first argument is the name of the file, the second is the string+<a name="line-53"></a>--   contents of the file.  The result is the generic representation of+<a name="line-54"></a>--   an XML document.  Any parsing errors are returned in the @Either@ type.+<a name="line-55"></a>htmlParse' :: String -&gt; String -&gt; Either String (Document Posn)+<a name="line-56"></a>htmlParse' name = Prelude.either Left (Right . simplify) . fst+<a name="line-57"></a>                  . runParser document . xmlLex name+<a name="line-58"></a>-}</font>+<a name="line-59"></a>+<a name="line-60"></a><font color=Blue>---- Document simplification ----</font>+<a name="line-61"></a>+<a name="line-62"></a><a name="simplify"></a><font color=Blue>simplify</font> <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Document i+<a name="line-63"></a><font color=Blue>simplify</font> <font color=Cyan>(</font>Document p st <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> ms<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-64"></a>    Document p st <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter simp cs<font color=Cyan>)</font><font color=Cyan>)</font> ms+<a name="line-65"></a>  <font color=Green><u>where</u></font>+<a name="line-66"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> False+<a name="line-67"></a>    simp <font color=Cyan>(</font>CElem <font color=Cyan>(</font>Elem  n     <font color=Green><u>_</u></font>  []<font color=Cyan>)</font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>|</font> n <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"font"</font><font color=Cyan>,</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"i"</font><font color=Cyan>,</font><font color=Magenta>"b"</font><font color=Cyan>,</font><font color=Magenta>"em"</font>+<a name="line-68"></a>                                                  <font color=Cyan>,</font><font color=Magenta>"tt"</font><font color=Cyan>,</font><font color=Magenta>"big"</font><font color=Cyan>,</font><font color=Magenta>"small"</font><font color=Red>]</font> <font color=Red>=</font> False+<a name="line-69"></a> <font color=Blue>-- simp (CString False s _) | all isSpace s = False</font>+<a name="line-70"></a>    simp <font color=Green><u>_</u></font> <font color=Red>=</font> True+<a name="line-71"></a>    deepfilter p <font color=Red>=</font>+<a name="line-72"></a>        filter p <font color=Cyan>.</font> map <font color=Cyan>(</font><font color=Red>\</font>c<font color=Red>-&gt;</font> <font color=Green><u>case</u></font> c <font color=Green><u>of</u></font>+<a name="line-73"></a>                          CElem <font color=Cyan>(</font>Elem n avs cs<font color=Cyan>)</font> i+<a name="line-74"></a>                                  <font color=Red>-&gt;</font> CElem <font color=Cyan>(</font>Elem n avs <font color=Cyan>(</font>deepfilter p cs<font color=Cyan>)</font><font color=Cyan>)</font> i+<a name="line-75"></a>                          <font color=Green><u>_</u></font>       <font color=Red>-&gt;</font> c<font color=Cyan>)</font>+<a name="line-76"></a>+<a name="line-77"></a><a name="selfclosingtags"></a><font color=Blue>-- opening any of these, they close again immediately</font>+<a name="line-78"></a><font color=Blue>selfclosingtags</font> <font color=Red>=</font> <font color=Red>[</font><font color=Magenta>"img"</font><font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"br"</font><font color=Cyan>,</font><font color=Magenta>"meta"</font><font color=Cyan>,</font><font color=Magenta>"col"</font><font color=Cyan>,</font><font color=Magenta>"link"</font><font color=Cyan>,</font><font color=Magenta>"base"</font>+<a name="line-79"></a>                  <font color=Cyan>,</font><font color=Magenta>"param"</font><font color=Cyan>,</font><font color=Magenta>"area"</font><font color=Cyan>,</font><font color=Magenta>"frame"</font><font color=Cyan>,</font><font color=Magenta>"input"</font><font color=Red>]</font>+<a name="line-80"></a>+<a name="line-81"></a><a name="closeInnerTags"></a><font color=Blue>--closing this, implicitly closes any of those which are contained in it</font>+<a name="line-82"></a><font color=Blue>closeInnerTags</font> <font color=Red>=</font>+<a name="line-83"></a>  <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"ul"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-84"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"ol"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"li"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-85"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dl"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-86"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tr"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-87"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"div"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-88"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"thead"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-89"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-90"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-91"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"table"</font><font color=Cyan>,</font>   <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"tbody"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-92"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"caption"</font><font color=Cyan>,</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-93"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"th"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-94"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"td"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-95"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"li"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-96"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dt"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-97"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"dd"</font><font color=Cyan>,</font>      <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-98"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"object"</font><font color=Cyan>,</font>  <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-99"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"map"</font><font color=Cyan>,</font>     <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-100"></a>  <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"body"</font><font color=Cyan>,</font>    <font color=Red>[</font><font color=Magenta>"p"</font><font color=Red>]</font><font color=Cyan>)</font>+<a name="line-101"></a>  <font color=Red>]</font>+<a name="line-102"></a>+<a name="line-103"></a><a name="closes"></a><font color=Blue>--opening this, implicitly closes that</font>+<a name="line-104"></a><font color=Blue>closes</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> Name <font color=Red>-&gt;</font> Bool+<a name="line-105"></a><font color=Magenta>"a"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"a"</font>   <font color=Red>=</font>  True+<a name="line-106"></a><font color=Magenta>"li"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"li"</font>  <font color=Red>=</font>  True+<a name="line-107"></a><font color=Magenta>"th"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-108"></a><font color=Magenta>"td"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-109"></a><font color=Magenta>"tr"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"th"</font><font color=Cyan>,</font><font color=Magenta>"td"</font><font color=Cyan>,</font><font color=Magenta>"tr"</font><font color=Red>]</font> <font color=Red>=</font>  True+<a name="line-110"></a><font color=Magenta>"dt"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-111"></a><font color=Magenta>"dd"</font> <font color=Cyan>`closes`</font>  t    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"dt"</font><font color=Cyan>,</font><font color=Magenta>"dd"</font><font color=Red>]</font>      <font color=Red>=</font>  True+<a name="line-112"></a><font color=Magenta>"form"</font>  <font color=Cyan>`closes`</font> <font color=Magenta>"form"</font>      <font color=Red>=</font> True+<a name="line-113"></a><font color=Magenta>"label"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"label"</font>     <font color=Red>=</font> True+<a name="line-114"></a><font color=Green><u>_</u></font>       <font color=Cyan>`closes`</font> <font color=Magenta>"option"</font>    <font color=Red>=</font> True+<a name="line-115"></a><font color=Magenta>"thead"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>          <font color=Red>=</font> True+<a name="line-116"></a><font color=Magenta>"tfoot"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font>  <font color=Red>=</font> True+<a name="line-117"></a><font color=Magenta>"tbody"</font> <font color=Cyan>`closes`</font> t  <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"tbody"</font><font color=Cyan>,</font><font color=Magenta>"tfoot"</font><font color=Cyan>,</font><font color=Magenta>"thead"</font><font color=Cyan>,</font><font color=Magenta>"colgroup"</font><font color=Red>]</font> <font color=Red>=</font> True+<a name="line-118"></a><font color=Magenta>"colgroup"</font> <font color=Cyan>`closes`</font> <font color=Magenta>"colgroup"</font>  <font color=Red>=</font> True+<a name="line-119"></a><a name="closes"></a><font color=Blue>t</font> <font color=Cyan>`closes`</font> <font color=Magenta>"p"</font>+<a name="line-120"></a>    <font color=Red>|</font> t <font color=Cyan>`elem`</font> <font color=Red>[</font><font color=Magenta>"p"</font><font color=Cyan>,</font><font color=Magenta>"h1"</font><font color=Cyan>,</font><font color=Magenta>"h2"</font><font color=Cyan>,</font><font color=Magenta>"h3"</font><font color=Cyan>,</font><font color=Magenta>"h4"</font><font color=Cyan>,</font><font color=Magenta>"h5"</font><font color=Cyan>,</font><font color=Magenta>"h6"</font>+<a name="line-121"></a>               <font color=Cyan>,</font><font color=Magenta>"hr"</font><font color=Cyan>,</font><font color=Magenta>"div"</font><font color=Cyan>,</font><font color=Magenta>"ul"</font><font color=Cyan>,</font><font color=Magenta>"dl"</font><font color=Cyan>,</font><font color=Magenta>"ol"</font><font color=Cyan>,</font><font color=Magenta>"table"</font><font color=Red>]</font>  <font color=Red>=</font>  True+<a name="line-122"></a><font color=Green><u>_</u></font> <font color=Cyan>`closes`</font> <font color=Green><u>_</u></font> <font color=Red>=</font> False+<a name="line-123"></a>+<a name="line-124"></a>+<a name="line-125"></a>+<a name="line-126"></a><font color=Blue>---- Misc ----</font>+<a name="line-127"></a>+<a name="line-128"></a><a name="fst3"></a><font color=Blue>fst3</font> <font color=Cyan>(</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-129"></a><a name="snd3"></a><font color=Blue>snd3</font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-130"></a><a name="thd3"></a><font color=Blue>thd3</font> <font color=Cyan>(</font><font color=Green><u>_</u></font><font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>,</font>a<font color=Cyan>)</font> <font color=Red>=</font> a+<a name="line-131"></a>+<a name="line-132"></a>+<a name="line-133"></a>+<a name="line-134"></a><font color=Blue>---- Auxiliary Parsing Functions ----</font>+<a name="line-135"></a>+<a name="line-136"></a><a name="HParser"></a><font color=Green><u>type</u></font> HParser a <font color=Red>=</font> Parser <font color=Cyan>(</font>Posn<font color=Cyan>,</font>TokenT<font color=Cyan>)</font> a+<a name="line-137"></a>+<a name="line-138"></a><a name="tok"></a><font color=Blue>tok</font> <font color=Red>::</font> TokenT <font color=Red>-&gt;</font> HParser TokenT+<a name="line-139"></a><font color=Blue>tok</font> t <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t'<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-140"></a>           <font color=Green><u>case</u></font> t' <font color=Green><u>of</u></font> TokError s    <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'+<a name="line-141"></a>                      <font color=Green><u>_</u></font> <font color=Red>|</font> t'<font color=Cyan>==</font>t     <font color=Red>-&gt;</font> return t+<a name="line-142"></a>                        <font color=Red>|</font> otherwise <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show t<font color=Cyan>)</font> p t'+<a name="line-143"></a>+<a name="line-144"></a><a name="name"></a><font color=Blue>name</font> <font color=Red>::</font> HParser Name+<a name="line-145"></a><font color=Blue>--name = do {(p,TokName s) &lt;- next; return s}</font>+<a name="line-146"></a><font color=Blue>name</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>tok<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-147"></a>          <font color=Green><u>case</u></font> tok <font color=Green><u>of</u></font> +<a name="line-148"></a>            TokName s  <font color=Red>-&gt;</font> return s +<a name="line-149"></a>            TokError s <font color=Red>-&gt;</font> report failBad <font color=Magenta>"a name"</font> p tok+<a name="line-150"></a>            <font color=Green><u>_</u></font>          <font color=Red>-&gt;</font> report fail <font color=Magenta>"a name"</font> p tok+<a name="line-151"></a>+<a name="line-152"></a><a name="string"></a><font color=Blue>string</font><font color=Cyan>,</font> freetext <font color=Red>::</font> HParser String+<a name="line-153"></a><font color=Blue>string</font>   <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-154"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokName s <font color=Red>-&gt;</font> return s+<a name="line-155"></a>                        <font color=Green><u>_</u></font>         <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t+<a name="line-156"></a><a name="freetext"></a><font color=Blue>freetext</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-157"></a>              <font color=Green><u>case</u></font> t <font color=Green><u>of</u></font> TokFreeText s <font color=Red>-&gt;</font> return s+<a name="line-158"></a>                        <font color=Green><u>_</u></font>             <font color=Red>-&gt;</font> report fail <font color=Magenta>"text"</font> p t+<a name="line-159"></a>+<a name="line-160"></a><a name="maybe"></a><font color=Blue>maybe</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Maybe a<font color=Cyan>)</font>+<a name="line-161"></a><font color=Blue>maybe</font> p <font color=Red>=</font>+<a name="line-162"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Just<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-163"></a>    <font color=Cyan>(</font> return Nothing<font color=Cyan>)</font>+<a name="line-164"></a>+<a name="line-165"></a><a name="either"></a><font color=Blue>either</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> HParser b <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Either a b<font color=Cyan>)</font>+<a name="line-166"></a><font color=Blue>either</font> p q <font color=Red>=</font>+<a name="line-167"></a>    <font color=Cyan>(</font> p <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Left<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-168"></a>    <font color=Cyan>(</font> q <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Right<font color=Cyan>)</font>+<a name="line-169"></a>+<a name="line-170"></a><a name="word"></a><font color=Blue>word</font> <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser ()+<a name="line-171"></a><font color=Blue>word</font> s <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x <font color=Red>&lt;-</font> next+<a name="line-172"></a>            <font color=Cyan>;</font> <font color=Green><u>case</u></font> x <font color=Green><u>of</u></font>+<a name="line-173"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokName n<font color=Cyan>)</font>     <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()+<a name="line-174"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>TokFreeText n<font color=Cyan>)</font> <font color=Red>|</font> s<font color=Cyan>==</font>n <font color=Red>-&gt;</font> return ()+<a name="line-175"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Red>@</font><font color=Cyan>(</font>TokError <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>-&gt;</font> report failBad <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t+<a name="line-176"></a>                <font color=Cyan>(</font>p<font color=Cyan>,</font>t<font color=Cyan>)</font> <font color=Red>-&gt;</font> report fail <font color=Cyan>(</font>show s<font color=Cyan>)</font> p t+<a name="line-177"></a>            <font color=Cyan>}</font>+<a name="line-178"></a>+<a name="line-179"></a><a name="posn"></a><font color=Blue>posn</font> <font color=Red>::</font> HParser Posn+<a name="line-180"></a><font color=Blue>posn</font> <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> x<font color=Red>@</font><font color=Cyan>(</font>p<font color=Cyan>,</font><font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>&lt;-</font> next+<a name="line-181"></a>          <font color=Cyan>;</font> reparse <font color=Red>[</font>x<font color=Red>]</font>+<a name="line-182"></a>          <font color=Cyan>;</font> return p+<a name="line-183"></a>          <font color=Cyan>}</font> <font color=Cyan>`onFail`</font> return noPos+<a name="line-184"></a>+<a name="line-185"></a><a name="nmtoken"></a><font color=Blue>nmtoken</font> <font color=Red>::</font> HParser NmToken+<a name="line-186"></a><font color=Blue>nmtoken</font> <font color=Red>=</font> <font color=Cyan>(</font>string <font color=Cyan>`onFail`</font> freetext<font color=Cyan>)</font>+<a name="line-187"></a>+<a name="line-188"></a><a name="failP"></a><font color=Blue>failP</font><font color=Cyan>,</font> failBadP <font color=Red>::</font> String <font color=Red>-&gt;</font> HParser a+<a name="line-189"></a><font color=Blue>failP</font> msg    <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> fail <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>+<a name="line-190"></a><a name="failBadP"></a><font color=Blue>failBadP</font> msg <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn<font color=Cyan>;</font> failBad <font color=Cyan>(</font>msg<font color=Cyan>++</font><font color=Magenta>"\n    at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font> <font color=Cyan>}</font>+<a name="line-191"></a>+<a name="line-192"></a><a name="report"></a><font color=Blue>report</font> <font color=Red>::</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>HParser a<font color=Cyan>)</font> <font color=Red>-&gt;</font> String <font color=Red>-&gt;</font> Posn <font color=Red>-&gt;</font> TokenT <font color=Red>-&gt;</font> HParser a+<a name="line-193"></a><font color=Blue>report</font> fail exp p t <font color=Red>=</font> fail <font color=Cyan>(</font><font color=Magenta>"Expected "</font><font color=Cyan>++</font>show exp<font color=Cyan>++</font><font color=Magenta>" but found "</font><font color=Cyan>++</font>show t+<a name="line-194"></a>                           <font color=Cyan>++</font><font color=Magenta>"\n  at "</font><font color=Cyan>++</font>show p<font color=Cyan>)</font>+<a name="line-195"></a>+<a name="line-196"></a><a name="adjustErrP"></a><font color=Blue>adjustErrP</font> <font color=Red>::</font> HParser a <font color=Red>-&gt;</font> <font color=Cyan>(</font>String<font color=Red>-&gt;</font>String<font color=Cyan>)</font> <font color=Red>-&gt;</font> HParser a+<a name="line-197"></a><a name="adjustErrP"></a><font color=Blue>p</font> <font color=Cyan>`adjustErrP`</font> f <font color=Red>=</font> p <font color=Cyan>`onFail`</font> <font color=Green><u>do</u></font> pn <font color=Red>&lt;-</font> posn+<a name="line-198"></a>                                 <font color=Cyan>(</font>p <font color=Cyan>`adjustErr`</font> f<font color=Cyan>)</font> <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Cyan>++</font>show pn<font color=Cyan>)</font>+<a name="line-199"></a>+<a name="line-200"></a><font color=Blue>---- XML Parsing Functions ----</font>+<a name="line-201"></a>+<a name="line-202"></a><a name="document"></a><font color=Blue>document</font> <font color=Red>::</font> HParser <font color=Cyan>(</font>Document Posn<font color=Cyan>)</font>+<a name="line-203"></a><font color=Blue>document</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-204"></a>    return Document+<a name="line-205"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>prolog <font color=Cyan>`adjustErr`</font> <font color=Cyan>(</font><font color=Magenta>"unrecognisable XML prolog\n"</font><font color=Cyan>++</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-206"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>return emptyST<font color=Cyan>)</font>+<a name="line-207"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> es <font color=Red>&lt;-</font> many1 <font color=Cyan>(</font>element <font color=Magenta>"HTML document"</font><font color=Cyan>)</font>+<a name="line-208"></a>                    return <font color=Cyan>(</font><font color=Green><u>case</u></font> map snd es <font color=Green><u>of</u></font>+<a name="line-209"></a>                                <font color=Red>[</font>e<font color=Red>]</font> <font color=Red>-&gt;</font> e+<a name="line-210"></a>                                es  <font color=Red>-&gt;</font> Elem <font color=Magenta>"html"</font> [] <font color=Cyan>(</font>map mkCElem es<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-211"></a>        <font color=Cyan>`apply`</font> <font color=Cyan>(</font>many misc<font color=Cyan>)</font>+<a name="line-212"></a>  <font color=Green><u>where</u></font> mkCElem e <font color=Red>=</font> CElem e noPos+<a name="line-213"></a>+<a name="line-214"></a><a name="comment"></a><font color=Blue>comment</font> <font color=Red>::</font> HParser Comment+<a name="line-215"></a><font color=Blue>comment</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-216"></a>    bracket <font color=Cyan>(</font>tok TokCommentOpen<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokCommentClose<font color=Cyan>)</font> freetext+<a name="line-217"></a>+<a name="line-218"></a><a name="processinginstruction"></a><font color=Blue>processinginstruction</font> <font color=Red>::</font> HParser ProcessingInstruction+<a name="line-219"></a><font color=Blue>processinginstruction</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-220"></a>    tok TokPIOpen+<a name="line-221"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-222"></a>      n <font color=Red>&lt;-</font> string  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"processing instruction has no target"</font>+<a name="line-223"></a>      f <font color=Red>&lt;-</font> freetext+<a name="line-224"></a>      <font color=Cyan>(</font>tok TokPIClose <font color=Cyan>`onFail`</font> tok TokAnyClose<font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing ?&gt; or &gt;"</font>+<a name="line-225"></a>      return <font color=Cyan>(</font>n<font color=Cyan>,</font> f<font color=Cyan>)</font>+<a name="line-226"></a>+<a name="line-227"></a><a name="cdsect"></a><font color=Blue>cdsect</font> <font color=Red>::</font> HParser CDSect+<a name="line-228"></a><font color=Blue>cdsect</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-229"></a>    tok TokSectionOpen+<a name="line-230"></a>    bracket <font color=Cyan>(</font>tok <font color=Cyan>(</font>TokSection CDATAx<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSectionClose<font color=Cyan>)</font> chardata+<a name="line-231"></a>+<a name="line-232"></a><a name="prolog"></a><font color=Blue>prolog</font> <font color=Red>::</font> HParser Prolog+<a name="line-233"></a><font color=Blue>prolog</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-234"></a>    x <font color=Red>&lt;-</font> maybe xmldecl+<a name="line-235"></a>    m1 <font color=Red>&lt;-</font> many misc+<a name="line-236"></a>    dtd <font color=Red>&lt;-</font> maybe doctypedecl+<a name="line-237"></a>    m2 <font color=Red>&lt;-</font> many misc+<a name="line-238"></a>    return <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font>+<a name="line-239"></a>+<a name="line-240"></a><a name="xmldecl"></a><font color=Blue>xmldecl</font> <font color=Red>::</font> HParser XMLDecl+<a name="line-241"></a><font color=Blue>xmldecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-242"></a>    tok TokPIOpen+<a name="line-243"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>+<a name="line-244"></a>    p <font color=Red>&lt;-</font> posn+<a name="line-245"></a>    s <font color=Red>&lt;-</font> freetext+<a name="line-246"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"missing ?&gt; in &lt;?xml ...?&gt;"</font>+<a name="line-247"></a>    <font color=Cyan>(</font>return <font color=Cyan>.</font> fst <font color=Cyan>.</font> runParser aux <font color=Cyan>.</font> xmlReLex p<font color=Cyan>)</font> s+<a name="line-248"></a>  <font color=Green><u>where</u></font>+<a name="line-249"></a>    aux <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-250"></a>      v <font color=Red>&lt;-</font> versioninfo  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing XML version info"</font>+<a name="line-251"></a>      e <font color=Red>&lt;-</font> maybe encodingdecl+<a name="line-252"></a>      s <font color=Red>&lt;-</font> maybe sddecl+<a name="line-253"></a>      return <font color=Cyan>(</font>XMLDecl v e s<font color=Cyan>)</font>+<a name="line-254"></a>+<a name="line-255"></a><a name="versioninfo"></a><font color=Blue>versioninfo</font> <font color=Red>::</font> HParser VersionInfo+<a name="line-256"></a><font color=Blue>versioninfo</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-257"></a>    <font color=Cyan>(</font>word <font color=Magenta>"version"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"VERSION"</font><font color=Cyan>)</font>+<a name="line-258"></a>    tok TokEqual+<a name="line-259"></a>    bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-260"></a>+<a name="line-261"></a><a name="misc"></a><font color=Blue>misc</font> <font color=Red>::</font> HParser Misc+<a name="line-262"></a><font color=Blue>misc</font> <font color=Red>=</font> +<a name="line-263"></a>    oneOf' <font color=Red>[</font> <font color=Cyan>(</font><font color=Magenta>"&lt;!--comment--&gt;"</font><font color=Cyan>,</font> comment <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> Comment<font color=Cyan>)</font>+<a name="line-264"></a>           <font color=Cyan>,</font> <font color=Cyan>(</font><font color=Magenta>"&lt;?PI?&gt;"</font><font color=Cyan>,</font>         processinginstruction <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> PI<font color=Cyan>)</font>+<a name="line-265"></a>           <font color=Red>]</font>+<a name="line-266"></a>+<a name="line-267"></a>+<a name="line-268"></a><font color=Blue>-- Question: for HTML, should we disallow in-line DTDs, allowing only externals?</font>+<a name="line-269"></a><font color=Blue>-- Answer: I think so.</font>+<a name="line-270"></a>+<a name="line-271"></a><a name="doctypedecl"></a><font color=Blue>doctypedecl</font> <font color=Red>::</font> HParser DocTypeDecl+<a name="line-272"></a><font color=Blue>doctypedecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-273"></a>    tok TokSpecialOpen+<a name="line-274"></a>    tok <font color=Cyan>(</font>TokSpecial DOCTYPEx<font color=Cyan>)</font>+<a name="line-275"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-276"></a>      n <font color=Red>&lt;-</font> name+<a name="line-277"></a>      eid <font color=Red>&lt;-</font> maybe externalid+<a name="line-278"></a><font color=Blue>--    es &lt;- maybe (bracket (tok TokSqOpen) (tok TokSqClose)) (many markupdecl)</font>+<a name="line-279"></a>      tok TokAnyClose  <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; in DOCTYPE decl"</font>+<a name="line-280"></a><font color=Blue>--    return (DTD n eid (case es of { Nothing -&gt; []; Just e -&gt; e }))</font>+<a name="line-281"></a>      return <font color=Cyan>(</font>DTD n eid []<font color=Cyan>)</font>+<a name="line-282"></a>+<a name="line-283"></a><font color=Blue>--markupdecl :: HParser MarkupDecl</font>+<a name="line-284"></a><font color=Blue>--markupdecl =</font>+<a name="line-285"></a><font color=Blue>--    ( elementdecl &gt;&gt;= return . Element) `onFail`</font>+<a name="line-286"></a><font color=Blue>--    ( attlistdecl &gt;&gt;= return . AttList) `onFail`</font>+<a name="line-287"></a><font color=Blue>--    ( entitydecl &gt;&gt;= return . Entity) `onFail`</font>+<a name="line-288"></a><font color=Blue>--    ( notationdecl &gt;&gt;= return . Notation) `onFail`</font>+<a name="line-289"></a><font color=Blue>--    ( misc &gt;&gt;= return . MarkupMisc) `onFail`</font>+<a name="line-290"></a><font color=Blue>--    PEREF(MarkupPE,markupdecl)</font>+<a name="line-291"></a><font color=Blue>--</font>+<a name="line-292"></a><font color=Blue>--extsubset :: HParser ExtSubset</font>+<a name="line-293"></a><font color=Blue>--extsubset = do</font>+<a name="line-294"></a><font color=Blue>--    td &lt;- maybe textdecl</font>+<a name="line-295"></a><font color=Blue>--    ds &lt;- many extsubsetdecl</font>+<a name="line-296"></a><font color=Blue>--    return (ExtSubset td ds)</font>+<a name="line-297"></a><font color=Blue>--</font>+<a name="line-298"></a><font color=Blue>--extsubsetdecl :: HParser ExtSubsetDecl</font>+<a name="line-299"></a><font color=Blue>--extsubsetdecl =</font>+<a name="line-300"></a><font color=Blue>--    ( markupdecl &gt;&gt;= return . ExtMarkupDecl) `onFail`</font>+<a name="line-301"></a><font color=Blue>--    ( conditionalsect &gt;&gt;= return . ExtConditionalSect) `onFail`</font>+<a name="line-302"></a><font color=Blue>--    PEREF(ExtPEReference,extsubsetdecl)</font>+<a name="line-303"></a>+<a name="line-304"></a><a name="sddecl"></a><font color=Blue>sddecl</font> <font color=Red>::</font> HParser SDDecl+<a name="line-305"></a><font color=Blue>sddecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-306"></a>    <font color=Cyan>(</font>word <font color=Magenta>"standalone"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"STANDALONE"</font><font color=Cyan>)</font>+<a name="line-307"></a>    commit <font color=Cyan>$</font> <font color=Green><u>do</u></font>+<a name="line-308"></a>      tok TokEqual <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing = in 'standalone' decl"</font>+<a name="line-309"></a>      bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>+<a name="line-310"></a>              <font color=Cyan>(</font> <font color=Cyan>(</font>word <font color=Magenta>"yes"</font> <font color=Cyan>&gt;&gt;</font> return True<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-311"></a>                <font color=Cyan>(</font>word <font color=Magenta>"no"</font> <font color=Cyan>&gt;&gt;</font> return False<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-312"></a>                failP <font color=Magenta>"'standalone' decl requires 'yes' or 'no' value"</font> <font color=Cyan>)</font>+<a name="line-313"></a>+<a name="line-314"></a>+<a name="line-315"></a>+<a name="line-316"></a>+<a name="line-317"></a><a name="Stack"></a><font color=Blue>----</font>+<a name="line-318"></a><a name="Stack"></a><font color=Blue>-- VERY IMPORTANT NOTE: The stack returned here contains those tags which</font>+<a name="line-319"></a><a name="Stack"></a><font color=Blue>-- have been closed implicitly and need to be reopened again at the</font>+<a name="line-320"></a><a name="Stack"></a><font color=Blue>-- earliest opportunity.</font>+<a name="line-321"></a><a name="Stack"></a><font color=Green><u>type</u></font> Stack <font color=Red>=</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-322"></a>+<a name="line-323"></a><a name="element"></a><font color=Blue>element</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Element Posn<font color=Cyan>)</font>+<a name="line-324"></a><font color=Blue>element</font> ctx <font color=Red>=</font>+<a name="line-325"></a>  <font color=Green><u>do</u></font>+<a name="line-326"></a>    tok TokAnyOpen+<a name="line-327"></a>    <font color=Cyan>(</font>ElemTag e avs<font color=Cyan>)</font> <font color=Red>&lt;-</font> elemtag+<a name="line-328"></a>    <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>`closes`</font> ctx <font color=Green><u>then</u></font>+<a name="line-329"></a>         <font color=Blue>-- insert the missing close-tag, fail forward, and reparse.</font>+<a name="line-330"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> debug <font color=Cyan>(</font><font color=Magenta>"/"</font><font color=Cyan>)</font>+<a name="line-331"></a>              unparse <font color=Cyan>(</font><font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName ctx<font color=Cyan>,</font> TokAnyClose<font color=Cyan>,</font>+<a name="line-332"></a>                        TokAnyOpen<font color=Cyan>,</font> TokName e<font color=Red>]</font> <font color=Cyan>++</font> reformatAttrs avs<font color=Cyan>)</font>+<a name="line-333"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem <font color=Magenta>"null"</font> [] []<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-334"></a>      <font color=Green><u>else</u></font> <font color=Green><u>if</u></font> e <font color=Cyan>`elem`</font> selfclosingtags <font color=Green><u>then</u></font>+<a name="line-335"></a>         <font color=Blue>-- complete the parse straightaway.</font>+<a name="line-336"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose	<font color=Blue>-- self-closing &lt;tag /&gt; </font>+<a name="line-337"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>+<a name="line-338"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-339"></a>     <font color=Blue>--  ( do tok TokAnyClose	-- sequence &lt;tag&gt;&lt;/tag&gt;	(**not HTML?**)</font>+<a name="line-340"></a>     <font color=Blue>--       debug (e++"[+")</font>+<a name="line-341"></a>     <font color=Blue>--       n &lt;- bracket (tok TokEndOpen) (tok TokAnyClose) name</font>+<a name="line-342"></a>     <font color=Blue>--       debug "]"</font>+<a name="line-343"></a>     <font color=Blue>--       if e == (map toLower n :: Name) </font>+<a name="line-344"></a>     <font color=Blue>--         then return ([], Elem e avs [])      </font>+<a name="line-345"></a>     <font color=Blue>--         else return (error "no nesting in empty tag")) `onFail`</font>+<a name="line-346"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose	<font color=Blue>-- &lt;tag&gt; with no close (e.g. &lt;IMG&gt;)</font>+<a name="line-347"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[+]"</font><font color=Cyan>)</font>+<a name="line-348"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-349"></a>      <font color=Green><u>else</u></font>+<a name="line-350"></a>        <font color=Cyan>(</font><font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokEndClose+<a name="line-351"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"[]"</font><font color=Cyan>)</font>+<a name="line-352"></a>              return <font color=Cyan>(</font>[]<font color=Cyan>,</font> Elem e avs []<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-353"></a>         <font color=Cyan>(</font> <font color=Green><u>do</u></font> tok TokAnyClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"missing &gt; or /&gt; in element tag"</font>+<a name="line-354"></a>              debug <font color=Cyan>(</font>e<font color=Cyan>++</font><font color=Magenta>"["</font><font color=Cyan>)</font>+<a name="line-355"></a>              return <font color=Cyan>(</font><font color=Red>\</font> interior<font color=Red>-&gt;</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>stack<font color=Cyan>,</font>contained<font color=Cyan>)</font> <font color=Red>=</font> interior+<a name="line-356"></a>                                   <font color=Green><u>in</u></font>  <font color=Cyan>(</font>stack<font color=Cyan>,</font> Elem e avs contained<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-357"></a>                  <font color=Cyan>`apply`</font>+<a name="line-358"></a>                  <font color=Cyan>(</font><font color=Green><u>do</u></font> zz <font color=Red>&lt;-</font> manyFinally <font color=Cyan>(</font>content e<font color=Cyan>)</font>+<a name="line-359"></a>                                        <font color=Cyan>(</font>tok TokEndOpen<font color=Cyan>)</font>+<a name="line-360"></a>                      n <font color=Red>&lt;-</font> name+<a name="line-361"></a>                      commit <font color=Cyan>(</font>tok TokAnyClose<font color=Cyan>)</font>+<a name="line-362"></a>                      debug <font color=Magenta>"]"</font>+<a name="line-363"></a>                      <font color=Green><u>let</u></font> <font color=Cyan>(</font>ss<font color=Cyan>,</font>cs<font color=Cyan>)</font> <font color=Red>=</font> unzip zz+<a name="line-364"></a>                      <font color=Green><u>let</u></font> s       <font color=Red>=</font> <font color=Green><u>if</u></font> null ss <font color=Green><u>then</u></font> [] <font color=Green><u>else</u></font> last ss+<a name="line-365"></a>                      <font color=Cyan>(</font> <font color=Green><u>if</u></font> e <font color=Cyan>==</font> <font color=Cyan>(</font>map toLower n <font color=Red>::</font> Name<font color=Cyan>)</font> <font color=Green><u>then</u></font>+<a name="line-366"></a>                          <font color=Green><u>do</u></font> unparse <font color=Cyan>(</font>reformatTags <font color=Cyan>(</font>closeInner e s<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-367"></a>                             debug <font color=Magenta>"^"</font>+<a name="line-368"></a>                             return <font color=Cyan>(</font>[]<font color=Cyan>,</font> cs<font color=Cyan>)</font>+<a name="line-369"></a>                        <font color=Green><u>else</u></font>+<a name="line-370"></a>                          <font color=Green><u>do</u></font> unparse <font color=Red>[</font>TokEndOpen<font color=Cyan>,</font> TokName n<font color=Cyan>,</font> TokAnyClose<font color=Red>]</font>+<a name="line-371"></a>                             debug <font color=Magenta>"-"</font>+<a name="line-372"></a>                             return <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>(</font>e<font color=Cyan>,</font>avs<font color=Cyan>)</font><font color=Red><b>:</b></font>s<font color=Cyan>)</font><font color=Cyan>,</font> cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-373"></a>         <font color=Cyan>)</font> <font color=Cyan>`onFail`</font> failP <font color=Cyan>(</font><font color=Magenta>"failed to repair non-matching tags in context: "</font><font color=Cyan>++</font>ctx<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-374"></a>+<a name="line-375"></a><a name="closeInner"></a><font color=Blue>closeInner</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font> <font color=Red>-&gt;</font> <font color=Red>[</font><font color=Cyan>(</font>Name<font color=Cyan>,</font><font color=Red>[</font>Attribute<font color=Red>]</font><font color=Cyan>)</font><font color=Red>]</font>+<a name="line-376"></a><font color=Blue>closeInner</font> c ts <font color=Red>=</font>+<a name="line-377"></a>    <font color=Green><u>case</u></font> lookup c closeInnerTags <font color=Green><u>of</u></font>+<a name="line-378"></a>      <font color=Cyan>(</font>Just these<font color=Cyan>)</font> <font color=Red>-&gt;</font> filter <font color=Cyan>(</font><font color=Cyan>(</font><font color=Cyan>`notElem`</font> these<font color=Cyan>)</font><font color=Cyan>.</font>fst<font color=Cyan>)</font> ts+<a name="line-379"></a>      Nothing      <font color=Red>-&gt;</font> ts+<a name="line-380"></a>+<a name="line-381"></a><a name="unparse"></a><font color=Blue>unparse</font> ts <font color=Red>=</font> <font color=Green><u>do</u></font> p <font color=Red>&lt;-</font> posn+<a name="line-382"></a>                reparse <font color=Cyan>(</font>zip <font color=Cyan>(</font>repeat p<font color=Cyan>)</font> ts<font color=Cyan>)</font>+<a name="line-383"></a>+<a name="line-384"></a><a name="reformatAttrs"></a><font color=Blue>reformatAttrs</font> avs <font color=Red>=</font> concatMap f0 avs+<a name="line-385"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>a<font color=Cyan>,</font> v<font color=Red>@</font><font color=Cyan>(</font>AttValue <font color=Green><u>_</u></font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokName a<font color=Cyan>,</font> TokEqual<font color=Cyan>,</font> TokQuote<font color=Cyan>,</font>+<a name="line-386"></a>                                       TokFreeText <font color=Cyan>(</font>show v<font color=Cyan>)</font><font color=Cyan>,</font> TokQuote<font color=Red>]</font>+<a name="line-387"></a><a name="reformatTags"></a><font color=Blue>reformatTags</font> ts <font color=Red>=</font> concatMap f0 ts+<a name="line-388"></a>    <font color=Green><u>where</u></font> f0 <font color=Cyan>(</font>t<font color=Cyan>,</font>avs<font color=Cyan>)</font> <font color=Red>=</font> <font color=Red>[</font>TokAnyOpen<font color=Cyan>,</font> TokName t<font color=Red>]</font><font color=Cyan>++</font>reformatAttrs avs<font color=Cyan>++</font><font color=Red>[</font>TokAnyClose<font color=Red>]</font>+<a name="line-389"></a>+<a name="line-390"></a><a name="content"></a><font color=Blue>content</font> <font color=Red>::</font> Name <font color=Red>-&gt;</font> HParser <font color=Cyan>(</font>Stack<font color=Cyan>,</font>Content Posn<font color=Cyan>)</font>+<a name="line-391"></a><font color=Blue>content</font> ctx <font color=Red>=</font> <font color=Green><u>do</u></font> <font color=Cyan>{</font> p <font color=Red>&lt;-</font> posn <font color=Cyan>;</font> content' p ctx <font color=Cyan>}</font>+<a name="line-392"></a>  <font color=Green><u>where</u></font> content' p ctx <font color=Red>=</font> oneOf'+<a name="line-393"></a>          <font color=Red>[</font> <font color=Cyan>(</font> <font color=Magenta>"element"</font><font color=Cyan>,</font> element ctx <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font><font color=Cyan>(</font>s<font color=Cyan>,</font>e<font color=Cyan>)</font><font color=Red>-&gt;</font> return <font color=Cyan>(</font>s<font color=Cyan>,</font> CElem e p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-394"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"chardata"</font><font color=Cyan>,</font> chardata <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>s<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString False s p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-395"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"reference"</font><font color=Cyan>,</font> reference <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>r<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CRef r p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-396"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"cdsect"</font><font color=Cyan>,</font> cdsect <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>c<font color=Red>-&gt;</font> return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CString True c p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-397"></a>          <font color=Cyan>,</font> <font color=Cyan>(</font> <font color=Magenta>"misc"</font><font color=Cyan>,</font> misc <font color=Cyan>&gt;&gt;=</font> <font color=Red>\</font>m<font color=Red>-&gt;</font>  return <font color=Cyan>(</font>[]<font color=Cyan>,</font> CMisc m p<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-398"></a>          <font color=Red>]</font> <font color=Cyan>`adjustErrP`</font> <font color=Cyan>(</font><font color=Magenta>"when looking for a content item,\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>+<a name="line-399"></a>+<a name="line-400"></a><a name="elemtag"></a><font color=Blue>----</font>+<a name="line-401"></a><font color=Blue>elemtag</font> <font color=Red>::</font> HParser ElemTag+<a name="line-402"></a><font color=Blue>elemtag</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-403"></a>    n <font color=Red>&lt;-</font> name <font color=Cyan>`adjustErrBad`</font> <font color=Cyan>(</font><font color=Magenta>"malformed element tag\n"</font><font color=Cyan>++</font><font color=Cyan>)</font>+<a name="line-404"></a>    <font color=Green><u>as</u></font> <font color=Red>&lt;-</font> many attribute+<a name="line-405"></a>    return <font color=Cyan>(</font>ElemTag <font color=Cyan>(</font>map toLower n<font color=Cyan>)</font> <font color=Green><u>as</u></font><font color=Cyan>)</font>+<a name="line-406"></a>+<a name="line-407"></a><a name="attribute"></a><font color=Blue>attribute</font> <font color=Red>::</font> HParser Attribute+<a name="line-408"></a><font color=Blue>attribute</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-409"></a>    n <font color=Red>&lt;-</font> name+<a name="line-410"></a>    v <font color=Red>&lt;-</font> <font color=Cyan>(</font><font color=Green><u>do</u></font> tok TokEqual+<a name="line-411"></a>             attvalue<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-412"></a>         <font color=Cyan>(</font>return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Magenta>"TRUE"</font><font color=Red>]</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-413"></a>    return <font color=Cyan>(</font>map toLower n<font color=Cyan>,</font>v<font color=Cyan>)</font>+<a name="line-414"></a>+<a name="line-415"></a><font color=Blue>--elementdecl :: HParser ElementDecl</font>+<a name="line-416"></a><font color=Blue>--elementdecl = do</font>+<a name="line-417"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-418"></a><font color=Blue>--    tok (TokSpecial ELEMENTx)</font>+<a name="line-419"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ELEMENT decl"</font>+<a name="line-420"></a><font color=Blue>--    c &lt;- contentspec `onFail` failP "missing content spec in ELEMENT decl"</font>+<a name="line-421"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating ELEMENT decl"</font>+<a name="line-422"></a><font color=Blue>--    return (ElementDecl n c)</font>+<a name="line-423"></a><font color=Blue>--</font>+<a name="line-424"></a><font color=Blue>--contentspec :: HParser ContentSpec</font>+<a name="line-425"></a><font color=Blue>--contentspec =</font>+<a name="line-426"></a><font color=Blue>--    ( word "EMPTY" &gt;&gt; return EMPTY) `onFail`</font>+<a name="line-427"></a><font color=Blue>--    ( word "ANY" &gt;&gt; return ANY) `onFail`</font>+<a name="line-428"></a><font color=Blue>--    ( mixed &gt;&gt;= return . Mixed) `onFail`</font>+<a name="line-429"></a><font color=Blue>--    ( cp &gt;&gt;= return . ContentSpec) `onFail`</font>+<a name="line-430"></a><font color=Blue>--    PEREF(ContentPE,contentspec)</font>+<a name="line-431"></a><font color=Blue>--</font>+<a name="line-432"></a><font color=Blue>--choice :: HParser [CP]</font>+<a name="line-433"></a><font color=Blue>--choice = do</font>+<a name="line-434"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-435"></a><font color=Blue>--            (cp `sepby1` (tok TokPipe))</font>+<a name="line-436"></a><font color=Blue>--</font>+<a name="line-437"></a><font color=Blue>--sequence :: HParser [CP]</font>+<a name="line-438"></a><font color=Blue>--sequence = do</font>+<a name="line-439"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-440"></a><font color=Blue>--            (cp `sepby1` (tok TokComma))</font>+<a name="line-441"></a><font color=Blue>--</font>+<a name="line-442"></a><font color=Blue>--cp :: HParser CP</font>+<a name="line-443"></a><font color=Blue>--cp =</font>+<a name="line-444"></a><font color=Blue>--    ( do n &lt;- name</font>+<a name="line-445"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-446"></a><font color=Blue>--         return (TagName n m)) `onFail`</font>+<a name="line-447"></a><font color=Blue>--    ( do ss &lt;- sequence</font>+<a name="line-448"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-449"></a><font color=Blue>--         return (Seq ss m)) `onFail`</font>+<a name="line-450"></a><font color=Blue>--    ( do cs &lt;- choice</font>+<a name="line-451"></a><font color=Blue>--         m &lt;- modifier</font>+<a name="line-452"></a><font color=Blue>--         return (Choice cs m)) `onFail`</font>+<a name="line-453"></a><font color=Blue>--    PEREF(CPPE,cp)</font>+<a name="line-454"></a><font color=Blue>--</font>+<a name="line-455"></a><font color=Blue>--modifier :: HParser Modifier</font>+<a name="line-456"></a><font color=Blue>--modifier =</font>+<a name="line-457"></a><font color=Blue>--    ( tok TokStar &gt;&gt; return Star) `onFail`</font>+<a name="line-458"></a><font color=Blue>--    ( tok TokQuery &gt;&gt; return Query) `onFail`</font>+<a name="line-459"></a><font color=Blue>--    ( tok TokPlus &gt;&gt; return Plus) `onFail`</font>+<a name="line-460"></a><font color=Blue>--    ( return None)</font>+<a name="line-461"></a><font color=Blue>--</font>+<a name="line-462"></a><font color=Blue>--mixed :: HParser Mixed</font>+<a name="line-463"></a><font color=Blue>--mixed = do</font>+<a name="line-464"></a><font color=Blue>--    tok TokBraOpen</font>+<a name="line-465"></a><font color=Blue>--    tok TokHash</font>+<a name="line-466"></a><font color=Blue>--    word "PCDATA"</font>+<a name="line-467"></a><font color=Blue>--    cont</font>+<a name="line-468"></a><font color=Blue>--  where</font>+<a name="line-469"></a><font color=Blue>--    cont = ( tok TokBraClose &gt;&gt; return PCDATA) `onFail`</font>+<a name="line-470"></a><font color=Blue>--           ( do cs &lt;- many ( do tok TokPipe</font>+<a name="line-471"></a><font color=Blue>--                                n &lt;- name</font>+<a name="line-472"></a><font color=Blue>--                                return n)</font>+<a name="line-473"></a><font color=Blue>--                tok TokBraClose</font>+<a name="line-474"></a><font color=Blue>--                tok TokStar</font>+<a name="line-475"></a><font color=Blue>--                return (PCDATAplus cs))</font>+<a name="line-476"></a><font color=Blue>--</font>+<a name="line-477"></a><font color=Blue>--attlistdecl :: HParser AttListDecl</font>+<a name="line-478"></a><font color=Blue>--attlistdecl = do</font>+<a name="line-479"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-480"></a><font color=Blue>--    tok (TokSpecial ATTLISTx)</font>+<a name="line-481"></a><font color=Blue>--    n &lt;- name `onFail` failP "missing identifier in ATTLIST"</font>+<a name="line-482"></a><font color=Blue>--    ds &lt;- many attdef</font>+<a name="line-483"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "missing &gt; terminating ATTLIST"</font>+<a name="line-484"></a><font color=Blue>--    return (AttListDecl n ds)</font>+<a name="line-485"></a><font color=Blue>--</font>+<a name="line-486"></a><font color=Blue>--attdef :: HParser AttDef</font>+<a name="line-487"></a><font color=Blue>--attdef = do</font>+<a name="line-488"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-489"></a><font color=Blue>--    t &lt;- atttype `onFail` failP "missing attribute type in attlist defn"</font>+<a name="line-490"></a><font color=Blue>--    d &lt;- defaultdecl</font>+<a name="line-491"></a><font color=Blue>--    return (AttDef n t d)</font>+<a name="line-492"></a><font color=Blue>--</font>+<a name="line-493"></a><font color=Blue>--atttype :: HParser AttType</font>+<a name="line-494"></a><font color=Blue>--atttype =</font>+<a name="line-495"></a><font color=Blue>--    ( word "CDATA" &gt;&gt; return StringType) `onFail`</font>+<a name="line-496"></a><font color=Blue>--    ( tokenizedtype &gt;&gt;= return . TokenizedType) `onFail`</font>+<a name="line-497"></a><font color=Blue>--    ( enumeratedtype &gt;&gt;= return . EnumeratedType)</font>+<a name="line-498"></a><font color=Blue>--</font>+<a name="line-499"></a><font color=Blue>--tokenizedtype :: HParser TokenizedType</font>+<a name="line-500"></a><font color=Blue>--tokenizedtype =</font>+<a name="line-501"></a><font color=Blue>--    ( word "ID" &gt;&gt; return ID) `onFail`</font>+<a name="line-502"></a><font color=Blue>--    ( word "IDREF" &gt;&gt; return IDREF) `onFail`</font>+<a name="line-503"></a><font color=Blue>--    ( word "IDREFS" &gt;&gt; return IDREFS) `onFail`</font>+<a name="line-504"></a><font color=Blue>--    ( word "ENTITY" &gt;&gt; return ENTITY) `onFail`</font>+<a name="line-505"></a><font color=Blue>--    ( word "ENTITIES" &gt;&gt; return ENTITIES) `onFail`</font>+<a name="line-506"></a><font color=Blue>--    ( word "NMTOKEN" &gt;&gt; return NMTOKEN) `onFail`</font>+<a name="line-507"></a><font color=Blue>--    ( word "NMTOKENS" &gt;&gt; return NMTOKENS)</font>+<a name="line-508"></a><font color=Blue>--</font>+<a name="line-509"></a><font color=Blue>--enumeratedtype :: HParser EnumeratedType</font>+<a name="line-510"></a><font color=Blue>--enumeratedtype =</font>+<a name="line-511"></a><font color=Blue>--    ( notationtype &gt;&gt;= return . NotationType) `onFail`</font>+<a name="line-512"></a><font color=Blue>--    ( enumeration &gt;&gt;= return . Enumeration)</font>+<a name="line-513"></a><font color=Blue>--</font>+<a name="line-514"></a><font color=Blue>--notationtype :: HParser NotationType</font>+<a name="line-515"></a><font color=Blue>--notationtype = do</font>+<a name="line-516"></a><font color=Blue>--    word "NOTATION"</font>+<a name="line-517"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-518"></a><font color=Blue>--            (name `sepby1` (tok TokPipe))</font>+<a name="line-519"></a><font color=Blue>--</font>+<a name="line-520"></a><font color=Blue>--enumeration :: HParser Enumeration</font>+<a name="line-521"></a><font color=Blue>--enumeration =</font>+<a name="line-522"></a><font color=Blue>--    bracket (tok TokBraOpen) (tok TokBraClose)</font>+<a name="line-523"></a><font color=Blue>--            (nmtoken `sepby1` (tok TokPipe))</font>+<a name="line-524"></a><font color=Blue>--</font>+<a name="line-525"></a><font color=Blue>--defaultdecl :: HParser DefaultDecl</font>+<a name="line-526"></a><font color=Blue>--defaultdecl =</font>+<a name="line-527"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "REQUIRED" &gt;&gt; return REQUIRED) `onFail`</font>+<a name="line-528"></a><font color=Blue>--    ( tok TokHash &gt;&gt; word "IMPLIED" &gt;&gt; return IMPLIED) `onFail`</font>+<a name="line-529"></a><font color=Blue>--    ( do f &lt;- maybe (tok TokHash &gt;&gt; word "FIXED" &gt;&gt; return FIXED)</font>+<a name="line-530"></a><font color=Blue>--         a &lt;- attvalue</font>+<a name="line-531"></a><font color=Blue>--         return (DefaultTo a f))</font>+<a name="line-532"></a><font color=Blue>--</font>+<a name="line-533"></a><font color=Blue>--conditionalsect :: HParser ConditionalSect</font>+<a name="line-534"></a><font color=Blue>--conditionalsect =</font>+<a name="line-535"></a><font color=Blue>--    ( do tok TokSectionOpen</font>+<a name="line-536"></a><font color=Blue>--         tok (TokSection INCLUDEx)</font>+<a name="line-537"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after INCLUDE"</font>+<a name="line-538"></a><font color=Blue>--         i &lt;- extsubsetdecl `onFail` failP "missing ExtSubsetDecl in INCLUDE"</font>+<a name="line-539"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after INCLUDE"</font>+<a name="line-540"></a><font color=Blue>--         return (IncludeSect i)) `onFail`</font>+<a name="line-541"></a><font color=Blue>--    ( do tok TokSectionOpen</font>+<a name="line-542"></a><font color=Blue>--         tok (TokSection IGNOREx)</font>+<a name="line-543"></a><font color=Blue>--         tok TokSqOpen `onFail` failP "missing [ after IGNORE"</font>+<a name="line-544"></a><font color=Blue>--         i &lt;- many ignoresectcontents</font>+<a name="line-545"></a><font color=Blue>--         tok TokSectionClose `onFail` failP "missing ] after IGNORE"</font>+<a name="line-546"></a><font color=Blue>--         return (IgnoreSect i))</font>+<a name="line-547"></a><font color=Blue>--</font>+<a name="line-548"></a><font color=Blue>--ignoresectcontents :: HParser IgnoreSectContents</font>+<a name="line-549"></a><font color=Blue>--ignoresectcontents = do</font>+<a name="line-550"></a><font color=Blue>--    i &lt;- ignore</font>+<a name="line-551"></a><font color=Blue>--    is &lt;- many (do tok TokSectionOpen</font>+<a name="line-552"></a><font color=Blue>--                   ic &lt;- ignoresectcontents</font>+<a name="line-553"></a><font color=Blue>--                   tok TokSectionClose</font>+<a name="line-554"></a><font color=Blue>--                   ig &lt;- ignore</font>+<a name="line-555"></a><font color=Blue>--                   return (ic,ig))</font>+<a name="line-556"></a><font color=Blue>--    return (IgnoreSectContents i is)</font>+<a name="line-557"></a><font color=Blue>--</font>+<a name="line-558"></a><font color=Blue>--ignore :: HParser Ignore</font>+<a name="line-559"></a><font color=Blue>--ignore = freetext &gt;&gt;= return . Ignore</font>+<a name="line-560"></a>+<a name="line-561"></a><a name="reference"></a><font color=Blue>reference</font> <font color=Red>::</font> HParser Reference+<a name="line-562"></a><font color=Blue>reference</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-563"></a>    bracket <font color=Cyan>(</font>tok TokAmp<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokSemi<font color=Cyan>)</font> <font color=Cyan>(</font>freetext <font color=Cyan>&gt;&gt;=</font> val<font color=Cyan>)</font>+<a name="line-564"></a>  <font color=Green><u>where</u></font>+<a name="line-565"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font><font color=Magenta>'x'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font> <font color=Red>|</font> all isHexDigit i+<a name="line-566"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readHex <font color=Cyan>$</font> i+<a name="line-567"></a>    val <font color=Cyan>(</font><font color=Magenta>'#'</font><font color=Red><b>:</b></font>i<font color=Cyan>)</font>     <font color=Red>|</font> all isDigit i+<a name="line-568"></a>                    <font color=Red>=</font> return <font color=Cyan>.</font> RefChar <font color=Cyan>.</font> fst <font color=Cyan>.</font> head <font color=Cyan>.</font> readDec <font color=Cyan>$</font> i+<a name="line-569"></a>    val name        <font color=Red>=</font> return <font color=Cyan>.</font> RefEntity <font color=Cyan>$</font> name+<a name="line-570"></a>+<a name="line-571"></a><font color=Blue>{-+<a name="line-572"></a>reference :: HParser Reference+<a name="line-573"></a>reference =+<a name="line-574"></a>    ( charref &gt;&gt;= return . RefChar) `onFail`+<a name="line-575"></a>    ( entityref &gt;&gt;= return . RefEntity)+<a name="line-576"></a>+<a name="line-577"></a>entityref :: HParser EntityRef+<a name="line-578"></a>entityref = do+<a name="line-579"></a>    n &lt;- bracket (tok TokAmp) (tok TokSemi) name+<a name="line-580"></a>    return n+<a name="line-581"></a>+<a name="line-582"></a>charref :: HParser CharRef+<a name="line-583"></a>charref = do+<a name="line-584"></a>    bracket (tok TokAmp) (tok TokSemi) (freetext &gt;&gt;= readCharVal)+<a name="line-585"></a>  where+<a name="line-586"></a>    readCharVal ('#':'x':i) = return . fst . head . readHex $ i+<a name="line-587"></a>    readCharVal ('#':i)     = return . fst . head . readDec $ i+<a name="line-588"></a>    readCharVal _           = mzero+<a name="line-589"></a>-}</font>+<a name="line-590"></a>+<a name="line-591"></a><font color=Blue>--pereference :: HParser PEReference</font>+<a name="line-592"></a><font color=Blue>--pereference = do</font>+<a name="line-593"></a><font color=Blue>--    bracket (tok TokPercent) (tok TokSemi) nmtoken</font>+<a name="line-594"></a><font color=Blue>--</font>+<a name="line-595"></a><font color=Blue>--entitydecl :: HParser EntityDecl</font>+<a name="line-596"></a><font color=Blue>--entitydecl =</font>+<a name="line-597"></a><font color=Blue>--    ( gedecl &gt;&gt;= return . EntityGEDecl) `onFail`</font>+<a name="line-598"></a><font color=Blue>--    ( pedecl &gt;&gt;= return . EntityPEDecl)</font>+<a name="line-599"></a><font color=Blue>--</font>+<a name="line-600"></a><font color=Blue>--gedecl :: HParser GEDecl</font>+<a name="line-601"></a><font color=Blue>--gedecl = do</font>+<a name="line-602"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-603"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>+<a name="line-604"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-605"></a><font color=Blue>--    e &lt;- entitydef `onFail` failP "missing entity defn in G ENTITY decl"</font>+<a name="line-606"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating G ENTITY decl"</font>+<a name="line-607"></a><font color=Blue>--    return (GEDecl n e)</font>+<a name="line-608"></a><font color=Blue>--</font>+<a name="line-609"></a><font color=Blue>--pedecl :: HParser PEDecl</font>+<a name="line-610"></a><font color=Blue>--pedecl = do</font>+<a name="line-611"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-612"></a><font color=Blue>--    tok (TokSpecial ENTITYx)</font>+<a name="line-613"></a><font color=Blue>--    tok TokPercent</font>+<a name="line-614"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-615"></a><font color=Blue>--    e &lt;- pedef `onFail` failP "missing entity defn in P ENTITY decl"</font>+<a name="line-616"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating P ENTITY decl"</font>+<a name="line-617"></a><font color=Blue>--    return (PEDecl n e)</font>+<a name="line-618"></a><font color=Blue>--</font>+<a name="line-619"></a><font color=Blue>--entitydef :: HParser EntityDef</font>+<a name="line-620"></a><font color=Blue>--entitydef =</font>+<a name="line-621"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . DefEntityValue) `onFail`</font>+<a name="line-622"></a><font color=Blue>--    ( do eid &lt;- externalid</font>+<a name="line-623"></a><font color=Blue>--         ndd &lt;- maybe ndatadecl</font>+<a name="line-624"></a><font color=Blue>--         return (DefExternalID eid ndd))</font>+<a name="line-625"></a><font color=Blue>--</font>+<a name="line-626"></a><font color=Blue>--pedef :: HParser PEDef</font>+<a name="line-627"></a><font color=Blue>--pedef =</font>+<a name="line-628"></a><font color=Blue>--    ( entityvalue &gt;&gt;= return . PEDefEntityValue) `onFail`</font>+<a name="line-629"></a><font color=Blue>--    ( externalid &gt;&gt;= return . PEDefExternalID)</font>+<a name="line-630"></a>+<a name="line-631"></a><a name="externalid"></a><font color=Blue>externalid</font> <font color=Red>::</font> HParser ExternalID+<a name="line-632"></a><font color=Blue>externalid</font> <font color=Red>=</font>+<a name="line-633"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"SYSTEM"</font>+<a name="line-634"></a>         s <font color=Red>&lt;-</font> systemliteral+<a name="line-635"></a>         return <font color=Cyan>(</font>SYSTEM s<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-636"></a>    <font color=Cyan>(</font> <font color=Green><u>do</u></font> word <font color=Magenta>"PUBLIC"</font>+<a name="line-637"></a>         p <font color=Red>&lt;-</font> pubidliteral+<a name="line-638"></a>         s <font color=Red>&lt;-</font> <font color=Cyan>(</font>systemliteral <font color=Cyan>`onFail`</font> return <font color=Cyan>(</font>SystemLiteral <font color=Magenta>""</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-639"></a>         return <font color=Cyan>(</font>PUBLIC p s<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-640"></a>+<a name="line-641"></a><font color=Blue>--ndatadecl :: HParser NDataDecl</font>+<a name="line-642"></a><font color=Blue>--ndatadecl = do</font>+<a name="line-643"></a><font color=Blue>--    word "NDATA"</font>+<a name="line-644"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-645"></a><font color=Blue>--    return (NDATA n)</font>+<a name="line-646"></a>+<a name="line-647"></a><a name="textdecl"></a><font color=Blue>textdecl</font> <font color=Red>::</font> HParser TextDecl+<a name="line-648"></a><font color=Blue>textdecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-649"></a>    tok TokPIOpen+<a name="line-650"></a>    <font color=Cyan>(</font>word <font color=Magenta>"xml"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"XML"</font><font color=Cyan>)</font>+<a name="line-651"></a>    v <font color=Red>&lt;-</font> maybe versioninfo+<a name="line-652"></a>    e <font color=Red>&lt;-</font> encodingdecl+<a name="line-653"></a>    tok TokPIClose <font color=Cyan>`onFail`</font> failP <font color=Magenta>"expected ?&gt; terminating text decl"</font>+<a name="line-654"></a>    return <font color=Cyan>(</font>TextDecl v e<font color=Cyan>)</font>+<a name="line-655"></a>+<a name="line-656"></a><font color=Blue>--extparsedent :: HParser ExtParsedEnt</font>+<a name="line-657"></a><font color=Blue>--extparsedent = do</font>+<a name="line-658"></a><font color=Blue>--    t &lt;- maybe textdecl</font>+<a name="line-659"></a><font color=Blue>--    (_,c) &lt;- (content "")</font>+<a name="line-660"></a><font color=Blue>--    return (ExtParsedEnt t c)</font>+<a name="line-661"></a><font color=Blue>--</font>+<a name="line-662"></a><font color=Blue>--extpe :: HParser ExtPE</font>+<a name="line-663"></a><font color=Blue>--extpe = do</font>+<a name="line-664"></a><font color=Blue>--    t &lt;- maybe textdecl</font>+<a name="line-665"></a><font color=Blue>--    e &lt;- extsubsetdecl</font>+<a name="line-666"></a><font color=Blue>--    return (ExtPE t e)</font>+<a name="line-667"></a>+<a name="line-668"></a><a name="encodingdecl"></a><font color=Blue>encodingdecl</font> <font color=Red>::</font> HParser EncodingDecl+<a name="line-669"></a><font color=Blue>encodingdecl</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-670"></a>    <font color=Cyan>(</font>word <font color=Magenta>"encoding"</font> <font color=Cyan>`onFail`</font> word <font color=Magenta>"ENCODING"</font><font color=Cyan>)</font>+<a name="line-671"></a>    tok TokEqual <font color=Cyan>`onFail`</font> failBadP <font color=Magenta>"expected = in 'encoding' decl"</font>+<a name="line-672"></a>    f <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-673"></a>    return <font color=Cyan>(</font>EncodingDecl f<font color=Cyan>)</font>+<a name="line-674"></a>+<a name="line-675"></a><font color=Blue>--notationdecl :: HParser NotationDecl</font>+<a name="line-676"></a><font color=Blue>--notationdecl = do</font>+<a name="line-677"></a><font color=Blue>--    tok TokSpecialOpen</font>+<a name="line-678"></a><font color=Blue>--    word "NOTATION"</font>+<a name="line-679"></a><font color=Blue>--    n &lt;- name</font>+<a name="line-680"></a><font color=Blue>--    e &lt;- either externalid publicid</font>+<a name="line-681"></a><font color=Blue>--    tok TokAnyClose `onFail` failP "expected &gt; terminating NOTATION decl"</font>+<a name="line-682"></a><font color=Blue>--    return (NOTATION n e)</font>+<a name="line-683"></a>+<a name="line-684"></a><a name="publicid"></a><font color=Blue>publicid</font> <font color=Red>::</font> HParser PublicID+<a name="line-685"></a><font color=Blue>publicid</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-686"></a>    word <font color=Magenta>"PUBLICID"</font>+<a name="line-687"></a>    p <font color=Red>&lt;-</font> pubidliteral+<a name="line-688"></a>    return <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>+<a name="line-689"></a>+<a name="line-690"></a><a name="entityvalue"></a><font color=Blue>entityvalue</font> <font color=Red>::</font> HParser EntityValue+<a name="line-691"></a><font color=Blue>entityvalue</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-692"></a>    evs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>many ev<font color=Cyan>)</font>+<a name="line-693"></a>    return <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>+<a name="line-694"></a>+<a name="line-695"></a><a name="ev"></a><font color=Blue>ev</font> <font color=Red>::</font> HParser EV+<a name="line-696"></a><font color=Blue>ev</font> <font color=Red>=</font>+<a name="line-697"></a>    <font color=Cyan>(</font> freetext <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVString<font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-698"></a><font color=Blue>--  PEREF(EVPERef,ev) `onFail`</font>+<a name="line-699"></a>    <font color=Cyan>(</font> reference <font color=Cyan>&gt;&gt;=</font> return <font color=Cyan>.</font> EVRef<font color=Cyan>)</font>+<a name="line-700"></a>+<a name="line-701"></a><a name="attvalue"></a><font color=Blue>attvalue</font> <font color=Red>::</font> HParser AttValue+<a name="line-702"></a><font color=Blue>attvalue</font> <font color=Red>=</font>+<a name="line-703"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> avs <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font>+<a name="line-704"></a>                      <font color=Cyan>(</font>many <font color=Cyan>(</font>either freetext reference<font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-705"></a>       return <font color=Cyan>(</font>AttValue avs<font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-706"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> v <font color=Red>&lt;-</font> nmtoken+<a name="line-707"></a>       s <font color=Red>&lt;-</font> <font color=Cyan>(</font>tok TokPercent <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"%"</font><font color=Cyan>)</font> <font color=Cyan>`onFail`</font> return <font color=Magenta>""</font>+<a name="line-708"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>v<font color=Cyan>++</font>s<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-709"></a>  <font color=Cyan>(</font> <font color=Green><u>do</u></font> s <font color=Red>&lt;-</font> oneOf <font color=Red>[</font> tok TokPlus <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"+"</font>+<a name="line-710"></a>                  <font color=Cyan>,</font> tok TokHash <font color=Cyan>&gt;&gt;</font> return <font color=Magenta>"#"</font>+<a name="line-711"></a>                  <font color=Red>]</font>+<a name="line-712"></a>       v <font color=Red>&lt;-</font> nmtoken+<a name="line-713"></a>       return <font color=Cyan>(</font>AttValue <font color=Red>[</font>Left <font color=Cyan>(</font>s<font color=Cyan>++</font>v<font color=Cyan>)</font><font color=Red>]</font><font color=Cyan>)</font> <font color=Cyan>)</font> <font color=Cyan>`onFail`</font>+<a name="line-714"></a>  failP <font color=Magenta>"Badly formatted attribute value"</font>+<a name="line-715"></a>+<a name="line-716"></a><a name="systemliteral"></a><font color=Blue>systemliteral</font> <font color=Red>::</font> HParser SystemLiteral+<a name="line-717"></a><font color=Blue>systemliteral</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-718"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-719"></a>    return <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>+<a name="line-720"></a>+<a name="line-721"></a><a name="pubidliteral"></a><font color=Blue>pubidliteral</font> <font color=Red>::</font> HParser PubidLiteral+<a name="line-722"></a><font color=Blue>pubidliteral</font> <font color=Red>=</font> <font color=Green><u>do</u></font>+<a name="line-723"></a>    s <font color=Red>&lt;-</font> bracket <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> <font color=Cyan>(</font>tok TokQuote<font color=Cyan>)</font> freetext+<a name="line-724"></a>    return <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>		<font color=Blue>-- note: need to fold &amp;...; escapes</font>+<a name="line-725"></a>+<a name="line-726"></a><a name="chardata"></a><font color=Blue>chardata</font> <font color=Red>::</font> HParser CharData+<a name="line-727"></a><font color=Blue>chardata</font> <font color=Red>=</font> freetext <font color=Blue>-- &gt;&gt;= return . CharData</font>+<a name="line-728"></a>+</pre>+</body> </html>

@@ -1,238 +1,244 @@ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html>-<pre><a name="(line1)"></a><font color=Blue>-- | This is a separate pretty-printer for HTML documents, recognising</font>-<a name="(line2)"></a><font color=Blue>--   some of the differences between HTML and true XML.</font>-<a name="(line3)"></a>-<a name="(line4)"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Pretty-<a name="(line5)"></a>  <font color=Cyan>(</font> document-<a name="(line6)"></a>  <font color=Cyan>,</font> element-<a name="(line7)"></a>  <font color=Cyan>,</font> attribute-<a name="(line8)"></a>  <font color=Cyan>,</font> content-<a name="(line9)"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>-<a name="(line10)"></a>-<a name="(line11)"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>maybe<font color=Cyan>,</font>either<font color=Cyan>)</font>-<a name="(line12)"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>-<a name="(line13)"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>-<a name="(line14)"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isSpace<font color=Cyan>)</font>-<a name="(line15)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ-<a name="(line16)"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types-<a name="(line17)"></a>-<a name="(line18)"></a><a name="either"></a>either f g <font color=Cyan>(</font>Left x<font color=Cyan>)</font>  <font color=Red>=</font> f x-<a name="(line19)"></a>either f g <font color=Cyan>(</font>Right x<font color=Cyan>)</font> <font color=Red>=</font> g x-<a name="(line20)"></a>-<a name="(line21)"></a><a name="maybe"></a>maybe f Nothing  <font color=Red>=</font> empty-<a name="(line22)"></a>maybe f <font color=Cyan>(</font>Just x<font color=Cyan>)</font> <font color=Red>=</font> f x-<a name="(line23)"></a>-<a name="(line24)"></a><font color=Blue>--peref p   = text "%" &lt;&gt; text p &lt;&gt; text ";"</font>-<a name="(line25)"></a>-<a name="(line26)"></a><font color=Blue>----</font>-<a name="(line27)"></a>-<a name="(line28)"></a><a name="document"></a>document <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Doc-<a name="(line29)"></a><a name="prolog"></a>prolog   <font color=Red>::</font> Prolog <font color=Red>-&gt;</font> Doc-<a name="(line30)"></a><a name="xmldecl"></a>xmldecl  <font color=Red>::</font> XMLDecl <font color=Red>-&gt;</font> Doc-<a name="(line31)"></a><a name="misc"></a>misc     <font color=Red>::</font> Misc <font color=Red>-&gt;</font> Doc-<a name="(line32)"></a><a name="sddecl"></a>sddecl   <font color=Red>::</font> Bool <font color=Red>-&gt;</font> Doc-<a name="(line33)"></a>-<a name="(line34)"></a><a name="doctypedecl"></a>doctypedecl <font color=Red>::</font> DocTypeDecl <font color=Red>-&gt;</font> Doc-<a name="(line35)"></a><a name="markupdecl"></a>markupdecl  <font color=Red>::</font> MarkupDecl <font color=Red>-&gt;</font> Doc-<a name="(line36)"></a><a name="extsubset"></a>extsubset   <font color=Red>::</font> ExtSubset <font color=Red>-&gt;</font> Doc-<a name="(line37)"></a><a name="extsubsetdecl"></a>extsubsetdecl <font color=Red>::</font> ExtSubsetDecl <font color=Red>-&gt;</font> Doc-<a name="(line38)"></a>-<a name="(line39)"></a><a name="element"></a>element   <font color=Red>::</font> Element i <font color=Red>-&gt;</font> Doc-<a name="(line40)"></a><a name="attribute"></a>attribute <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> Doc                     <font color=Cyan>--etc</font>-<a name="(line41)"></a><a name="content"></a>content   <font color=Red>::</font> Content i <font color=Red>-&gt;</font> Doc-<a name="(line42)"></a>-<a name="(line43)"></a><font color=Blue>----</font>-<a name="(line44)"></a>-<a name="(line45)"></a>document <font color=Cyan>(</font>Document p <font color=Green><u>_</u></font> e m<font color=Cyan>)</font><font color=Red>=</font> prolog p <font color=Cyan>$$</font> element e <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map misc m<font color=Cyan>)</font>-<a name="(line46)"></a>prolog <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font><font color=Red>=</font> maybe xmldecl x <font color=Cyan>$$</font>-<a name="(line47)"></a>                             vcat <font color=Cyan>(</font>map misc m1<font color=Cyan>)</font> <font color=Cyan>$$</font>-<a name="(line48)"></a>                             maybe doctypedecl dtd <font color=Cyan>$$</font>-<a name="(line49)"></a>                             vcat <font color=Cyan>(</font>map misc m2<font color=Cyan>)</font>-<a name="(line50)"></a>xmldecl <font color=Cyan>(</font>XMLDecl v e sd<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"&lt;?xml version='"</font> <font color=Cyan>&lt;&gt;</font> text v <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line51)"></a>                             maybe encodingdecl e <font color=Cyan>&lt;+&gt;</font>-<a name="(line52)"></a>                             maybe sddecl sd <font color=Cyan>&lt;+&gt;</font>-<a name="(line53)"></a>                             text <font color=Magenta>"?&gt;"</font>-<a name="(line54)"></a>misc <font color=Cyan>(</font>Comment s<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!--"</font> <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"--&gt;"</font>-<a name="(line55)"></a>misc <font color=Cyan>(</font>PI <font color=Cyan>(</font>n<font color=Cyan>,</font>s<font color=Cyan>)</font><font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"&lt;?"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"?&gt;"</font>-<a name="(line56)"></a>sddecl sd   <font color=Red>|</font> sd           <font color=Red>=</font> text <font color=Magenta>"standalone='yes'"</font>-<a name="(line57)"></a>            <font color=Red>|</font> otherwise    <font color=Red>=</font> text <font color=Magenta>"standalone='no'"</font>-<a name="(line58)"></a>doctypedecl <font color=Cyan>(</font>DTD n eid ds<font color=Cyan>)</font> <font color=Red>=</font> <font color=Green><u>if</u></font> null ds <font color=Green><u>then</u></font> -<a name="(line59)"></a>                                  hd <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line60)"></a>                             <font color=Green><u>else</u></font> hd <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>" ["</font> <font color=Cyan>$$</font>-<a name="(line61)"></a>                                  vcat <font color=Cyan>(</font>map markupdecl ds<font color=Cyan>)</font> <font color=Cyan>$$</font> text <font color=Magenta>"]&gt;"</font>-<a name="(line62)"></a>                           <font color=Green><u>where</u></font> hd <font color=Red>=</font> text <font color=Magenta>"&lt;!DOCTYPE"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line63)"></a>                                      maybe externalid eid-<a name="(line64)"></a>markupdecl <font color=Cyan>(</font>Element e<font color=Cyan>)</font>     <font color=Red>=</font> elementdecl e-<a name="(line65)"></a>markupdecl <font color=Cyan>(</font>AttList a<font color=Cyan>)</font>     <font color=Red>=</font> attlistdecl a-<a name="(line66)"></a>markupdecl <font color=Cyan>(</font>Entity e<font color=Cyan>)</font>      <font color=Red>=</font> entitydecl e-<a name="(line67)"></a>markupdecl <font color=Cyan>(</font>Notation n<font color=Cyan>)</font>    <font color=Red>=</font> notationdecl n-<a name="(line68)"></a>markupdecl <font color=Cyan>(</font>MarkupMisc m<font color=Cyan>)</font>  <font color=Red>=</font> misc m-<a name="(line69)"></a><font color=Blue>--markupdecl (MarkupPE p m)  = peref p</font>-<a name="(line70)"></a>extsubset <font color=Cyan>(</font>ExtSubset t ds<font color=Cyan>)</font> <font color=Red>=</font> maybe textdecl t <font color=Cyan>$$</font>-<a name="(line71)"></a>                             vcat <font color=Cyan>(</font>map extsubsetdecl ds<font color=Cyan>)</font>-<a name="(line72)"></a>extsubsetdecl <font color=Cyan>(</font>ExtMarkupDecl m<font color=Cyan>)</font>      <font color=Red>=</font> markupdecl m-<a name="(line73)"></a>extsubsetdecl <font color=Cyan>(</font>ExtConditionalSect c<font color=Cyan>)</font> <font color=Red>=</font> conditionalsect c-<a name="(line74)"></a><font color=Blue>--extsubsetdecl (ExtPEReference p e)   = peref p</font>-<a name="(line75)"></a>-<a name="(line76)"></a>element <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line77)"></a>                         fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"/&gt;"</font>-<a name="(line78)"></a>element e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font>-<a name="(line79)"></a><font color=Blue>--  | any isText cs    = text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) &lt;&gt;</font>-<a name="(line80)"></a><font color=Blue>--                       text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt;</font>-<a name="(line81)"></a><font color=Blue>--                       text "&lt;/" &lt;&gt; text n &lt;&gt; text "&gt;"</font>-<a name="(line82)"></a>    <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line83)"></a>                         text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line84)"></a>                         text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line85)"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Red>=</font> carryelem e empty-<a name="(line86)"></a>                         <font color=Green><u>in</u></font> d <font color=Cyan>&lt;&gt;</font> c-<a name="(line87)"></a>-<a name="(line88)"></a><a name="isText"></a>isText <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> True-<a name="(line89)"></a>isText <font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> True-<a name="(line90)"></a>isText <font color=Green><u>_</u></font>               <font color=Red>=</font> False-<a name="(line91)"></a>-<a name="(line92)"></a><a name="carryelem"></a>carryelem <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> c-<a name="(line93)"></a>                       <font color=Red>=</font> <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>-<a name="(line94)"></a>                           text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>-<a name="(line95)"></a>                         <font color=Cyan>,</font> text <font color=Magenta>"/&gt;"</font><font color=Cyan>)</font>-<a name="(line96)"></a><font color=Blue>--carryelem e@(Elem n as cs) c</font>-<a name="(line97)"></a><font color=Blue>----  | any isText cs    =  ( c &lt;&gt; element e, empty)</font>-<a name="(line98)"></a><font color=Blue>--    | otherwise        =  let (cs',d') = carryscan carrycontent cs (text "&gt;")</font>-<a name="(line99)"></a><font color=Blue>--                          in</font>-<a name="(line100)"></a><font color=Blue>--                          ( c &lt;&gt;</font>-<a name="(line101)"></a><font color=Blue>--                            text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) $$</font>-<a name="(line102)"></a><font color=Blue>--                            nest 2 (vcat cs') &lt;&gt; -- $$</font>-<a name="(line103)"></a><font color=Blue>--                            c' &lt;&gt; text "&lt;/" &lt;&gt; text n</font>-<a name="(line104)"></a><font color=Blue>--                          , text "&gt;")</font>-<a name="(line105)"></a><font color=Blue>--carrycontent (CElem e) c   = carryelem e c</font>-<a name="(line106)"></a><font color=Blue>--carrycontent (CString _ s) c = (c &lt;&gt; chardata s, empty)</font>-<a name="(line107)"></a><font color=Blue>--carrycontent (CRef r) c    = (c &lt;&gt; reference r, empty)</font>-<a name="(line108)"></a><font color=Blue>--carrycontent (CMisc m) c   = (c &lt;&gt; misc m, empty)</font>-<a name="(line109)"></a><font color=Blue>--</font>-<a name="(line110)"></a><font color=Blue>--carryscan :: (a-&gt;c-&gt;(b,c)) -&gt; [a] -&gt; c -&gt; ([b],c)</font>-<a name="(line111)"></a><font color=Blue>--carryscan f []     c = ([],c)</font>-<a name="(line112)"></a><font color=Blue>--carryscan f (a:as) c = let (b, c')   = f a c</font>-<a name="(line113)"></a><font color=Blue>--                           (bs,c'') = carryscan f as c'</font>-<a name="(line114)"></a><font color=Blue>--                       in (b:bs, c'')</font>-<a name="(line115)"></a>-<a name="(line116)"></a>carryelem e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> c-<a name="(line117)"></a>  <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font>-<a name="(line118)"></a>        <font color=Cyan>(</font> start <font color=Cyan>&lt;&gt;</font>-<a name="(line119)"></a>          text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n-<a name="(line120)"></a>        <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>-<a name="(line121)"></a>  <font color=Red>|</font> otherwise <font color=Red>=</font>-<a name="(line122)"></a>        <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c'<font color=Cyan>)</font> <font color=Red>=</font> foldl carrycontent <font color=Cyan>(</font>start<font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font> cs <font color=Green><u>in</u></font>-<a name="(line123)"></a>        <font color=Cyan>(</font> d <font color=Cyan>&lt;&gt;</font> c' <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n-<a name="(line124)"></a>        <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>-<a name="(line125)"></a>  <font color=Green><u>where</u></font> start <font color=Red>=</font> c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>-<a name="(line126)"></a>-<a name="(line127)"></a><a name="carrycontent"></a>carrycontent <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d'<font color=Cyan>,</font>c'<font color=Cyan>)</font> <font color=Red>=</font> carryelem e c <font color=Green><u>in</u></font>-<a name="(line128)"></a>                                     <font color=Cyan>(</font>d <font color=Cyan>$$</font> nest <font color=Magenta>2</font> d'<font color=Cyan>,</font>       c'<font color=Cyan>)</font>-<a name="(line129)"></a>carrycontent <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>&lt;&gt;</font> c <font color=Cyan>&lt;&gt;</font> chardata s<font color=Cyan>,</font> empty<font color=Cyan>)</font>-<a name="(line130)"></a>carrycontent <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>&lt;&gt;</font> c <font color=Cyan>&lt;&gt;</font> reference r<font color=Cyan>,</font>empty<font color=Cyan>)</font>-<a name="(line131)"></a>carrycontent <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>$$</font> c <font color=Cyan>&lt;&gt;</font> misc m<font color=Cyan>,</font>     empty<font color=Cyan>)</font>-<a name="(line132)"></a>-<a name="(line133)"></a>-<a name="(line134)"></a>attribute <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;&gt;</font> attvalue v-<a name="(line135)"></a>content <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> element e-<a name="(line136)"></a>content <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> chardata s-<a name="(line137)"></a>content <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>=</font> reference r-<a name="(line138)"></a>content <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> misc m-<a name="(line139)"></a>-<a name="(line140)"></a><a name="elementdecl"></a>elementdecl <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ELEMENT"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line141)"></a>                                 contentspec cs <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line142)"></a><a name="contentspec"></a>contentspec EMPTY              <font color=Red>=</font> text <font color=Magenta>"EMPTY"</font>-<a name="(line143)"></a>contentspec ANY                <font color=Red>=</font> text <font color=Magenta>"ANY"</font>-<a name="(line144)"></a>contentspec <font color=Cyan>(</font>Mixed m<font color=Cyan>)</font>          <font color=Red>=</font> mixed m-<a name="(line145)"></a>contentspec <font color=Cyan>(</font>ContentSpec c<font color=Cyan>)</font>    <font color=Red>=</font> cp c-<a name="(line146)"></a><a name="cp"></a><font color=Blue>--contentspec (ContentPE p cs)   = peref p</font>-<a name="(line147)"></a>cp <font color=Cyan>(</font>TagName n m<font color=Cyan>)</font>       <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> modifier m-<a name="(line148)"></a>cp <font color=Cyan>(</font>Choice cs m<font color=Cyan>)</font>       <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line149)"></a>                           modifier m-<a name="(line150)"></a>cp <font color=Cyan>(</font>Seq cs m<font color=Cyan>)</font>          <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>","</font><font color=Cyan>)</font> <font color=Cyan>(</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line151)"></a>                           modifier m-<a name="(line152)"></a><a name="modifier"></a><font color=Blue>--cp (CPPE p c)          = peref p</font>-<a name="(line153)"></a>modifier None          <font color=Red>=</font> empty-<a name="(line154)"></a>modifier Query         <font color=Red>=</font> text <font color=Magenta>"?"</font>-<a name="(line155)"></a>modifier Star          <font color=Red>=</font> text <font color=Magenta>"*"</font>-<a name="(line156)"></a>modifier Plus          <font color=Red>=</font> text <font color=Magenta>"+"</font>-<a name="(line157)"></a><a name="mixed"></a>mixed  PCDATA          <font color=Red>=</font> text <font color=Magenta>"(#PCDATA)"</font>-<a name="(line158)"></a>mixed <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"(#PCDATA |"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line159)"></a>                         hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line160)"></a>                         text <font color=Magenta>")*"</font>-<a name="(line161)"></a>-<a name="(line162)"></a><a name="attlistdecl"></a>attlistdecl <font color=Cyan>(</font>AttListDecl n ds<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ATTLIST"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line163)"></a>                                 fsep <font color=Cyan>(</font>map attdef ds<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>-<a name="(line164)"></a><a name="attdef"></a>attdef <font color=Cyan>(</font>AttDef n t d<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;+&gt;</font> atttype t <font color=Cyan>&lt;+&gt;</font> defaultdecl d-<a name="(line165)"></a><a name="atttype"></a>atttype  StringType            <font color=Red>=</font> text <font color=Magenta>"CDATA"</font>-<a name="(line166)"></a>atttype <font color=Cyan>(</font>TokenizedType t<font color=Cyan>)</font>      <font color=Red>=</font> tokenizedtype t-<a name="(line167)"></a>atttype <font color=Cyan>(</font>EnumeratedType t<font color=Cyan>)</font>     <font color=Red>=</font> enumeratedtype t-<a name="(line168)"></a><a name="tokenizedtype"></a>tokenizedtype ID               <font color=Red>=</font> text <font color=Magenta>"ID"</font>-<a name="(line169)"></a>tokenizedtype IDREF            <font color=Red>=</font> text <font color=Magenta>"IDREF"</font>-<a name="(line170)"></a>tokenizedtype IDREFS           <font color=Red>=</font> text <font color=Magenta>"IDREFS"</font>-<a name="(line171)"></a>tokenizedtype ENTITY           <font color=Red>=</font> text <font color=Magenta>"ENTITY"</font>-<a name="(line172)"></a>tokenizedtype ENTITIES         <font color=Red>=</font> text <font color=Magenta>"ENTITIES"</font>-<a name="(line173)"></a>tokenizedtype NMTOKEN          <font color=Red>=</font> text <font color=Magenta>"NMTOKEN"</font>-<a name="(line174)"></a>tokenizedtype NMTOKENS         <font color=Red>=</font> text <font color=Magenta>"NMTOKENS"</font>-<a name="(line175)"></a><a name="enumeratedtype"></a>enumeratedtype <font color=Cyan>(</font>NotationType n<font color=Cyan>)</font><font color=Red>=</font> notationtype n-<a name="(line176)"></a>enumeratedtype <font color=Cyan>(</font>Enumeration e<font color=Cyan>)</font> <font color=Red>=</font> enumeration e-<a name="(line177)"></a><a name="notationtype"></a>notationtype ns                <font color=Red>=</font> text <font color=Magenta>"NOTATION"</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line178)"></a>                                 parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line179)"></a><a name="enumeration"></a>enumeration ns                 <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map nmtoken ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>-<a name="(line180)"></a><a name="defaultdecl"></a>defaultdecl  REQUIRED          <font color=Red>=</font> text <font color=Magenta>"#REQUIRED"</font>-<a name="(line181)"></a>defaultdecl  IMPLIED           <font color=Red>=</font> text <font color=Magenta>"#IMPLIED"</font>-<a name="(line182)"></a>defaultdecl <font color=Cyan>(</font>DefaultTo a f<font color=Cyan>)</font>    <font color=Red>=</font> maybe <font color=Cyan>(</font>const <font color=Cyan>(</font>text <font color=Magenta>"#FIXED"</font><font color=Cyan>)</font><font color=Cyan>)</font> f <font color=Cyan>&lt;+&gt;</font> attvalue a-<a name="(line183)"></a><a name="conditionalsect"></a>conditionalsect <font color=Cyan>(</font>IncludeSect i<font color=Cyan>)</font><font color=Red>=</font> text <font color=Magenta>"&lt;![INCLUDE ["</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line184)"></a>                                 vcat <font color=Cyan>(</font>map extsubsetdecl i<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"]]&gt;"</font>-<a name="(line185)"></a>conditionalsect <font color=Cyan>(</font>IgnoreSect i<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;![IGNORE ["</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line186)"></a>                                 fsep <font color=Cyan>(</font>map ignoresectcontents i<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"]]&gt;"</font>-<a name="(line187)"></a><a name="ignore"></a>ignore <font color=Cyan>(</font>Ignore<font color=Cyan>)</font>                <font color=Red>=</font> empty-<a name="(line188)"></a><a name="ignoresectcontents"></a>ignoresectcontents <font color=Cyan>(</font>IgnoreSectContents i is<font color=Cyan>)</font>-<a name="(line189)"></a>                               <font color=Red>=</font> ignore i <font color=Cyan>&lt;+&gt;</font> vcat <font color=Cyan>(</font>map internal is<font color=Cyan>)</font>-<a name="(line190)"></a>                          <font color=Green><u>where</u></font> internal <font color=Cyan>(</font>ics<font color=Cyan>,</font>i<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;![["</font> <font color=Cyan>&lt;+&gt;</font>-<a name="(line191)"></a>                                                   ignoresectcontents ics <font color=Cyan>&lt;+&gt;</font>-<a name="(line192)"></a>                                                   text <font color=Magenta>"]]&gt;"</font> <font color=Cyan>&lt;+&gt;</font> ignore i-<a name="(line193)"></a><a name="reference"></a>reference <font color=Cyan>(</font>RefEntity er<font color=Cyan>)</font>       <font color=Red>=</font> entityref er-<a name="(line194)"></a>reference <font color=Cyan>(</font>RefChar cr<font color=Cyan>)</font>         <font color=Red>=</font> charref cr-<a name="(line195)"></a><a name="entityref"></a>entityref n                    <font color=Red>=</font> text <font color=Magenta>"&amp;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>-<a name="(line196)"></a><a name="charref"></a>charref c                      <font color=Red>=</font> text <font color=Magenta>"&amp;#"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show c<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>-<a name="(line197)"></a><a name="entitydecl"></a>entitydecl <font color=Cyan>(</font>EntityGEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> gedecl d-<a name="(line198)"></a>entitydecl <font color=Cyan>(</font>EntityPEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> pedecl d-<a name="(line199)"></a><a name="gedecl"></a>gedecl <font color=Cyan>(</font>GEDecl n ed<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> entitydef ed <font color=Cyan>&lt;&gt;</font>-<a name="(line200)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line201)"></a><a name="pedecl"></a>pedecl <font color=Cyan>(</font>PEDecl n pd<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY %"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> pedef pd <font color=Cyan>&lt;&gt;</font>-<a name="(line202)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line203)"></a><a name="entitydef"></a>entitydef <font color=Cyan>(</font>DefEntityValue ev<font color=Cyan>)</font>  <font color=Red>=</font> entityvalue ev-<a name="(line204)"></a>entitydef <font color=Cyan>(</font>DefExternalID i nd<font color=Cyan>)</font> <font color=Red>=</font> externalid i <font color=Cyan>&lt;+&gt;</font> maybe ndatadecl nd-<a name="(line205)"></a><a name="pedef"></a>pedef <font color=Cyan>(</font>PEDefEntityValue ev<font color=Cyan>)</font>    <font color=Red>=</font> entityvalue ev-<a name="(line206)"></a>pedef <font color=Cyan>(</font>PEDefExternalID eid<font color=Cyan>)</font>    <font color=Red>=</font> externalid eid-<a name="(line207)"></a><a name="externalid"></a>externalid <font color=Cyan>(</font>SYSTEM sl<font color=Cyan>)</font>         <font color=Red>=</font> text <font color=Magenta>"SYSTEM"</font> <font color=Cyan>&lt;+&gt;</font> systemliteral sl-<a name="(line208)"></a>externalid <font color=Cyan>(</font>PUBLIC i sl<font color=Cyan>)</font>       <font color=Red>=</font> text <font color=Magenta>"PUBLIC"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral i <font color=Cyan>&lt;+&gt;</font>-<a name="(line209)"></a>                                 systemliteral sl-<a name="(line210)"></a><a name="ndatadecl"></a>ndatadecl <font color=Cyan>(</font>NDATA n<font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"NDATA"</font> <font color=Cyan>&lt;+&gt;</font> text n-<a name="(line211)"></a><a name="textdecl"></a>textdecl <font color=Cyan>(</font>TextDecl vi ed<font color=Cyan>)</font>      <font color=Red>=</font> text <font color=Magenta>"&lt;?xml"</font> <font color=Cyan>&lt;+&gt;</font> maybe text vi <font color=Cyan>&lt;+&gt;</font>-<a name="(line212)"></a>                                 encodingdecl ed <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"?&gt;"</font>-<a name="(line213)"></a><a name="extparsedent"></a>extparsedent <font color=Cyan>(</font>ExtParsedEnt t c<font color=Cyan>)</font><font color=Red>=</font> maybe textdecl t <font color=Cyan>&lt;+&gt;</font> content c-<a name="(line214)"></a><a name="extpe"></a>extpe <font color=Cyan>(</font>ExtPE t esd<font color=Cyan>)</font>            <font color=Red>=</font> maybe textdecl t <font color=Cyan>&lt;+&gt;</font>-<a name="(line215)"></a>                                 vcat <font color=Cyan>(</font>map extsubsetdecl esd<font color=Cyan>)</font>-<a name="(line216)"></a><a name="notationdecl"></a>notationdecl <font color=Cyan>(</font>NOTATION n e<font color=Cyan>)</font>    <font color=Red>=</font> text <font color=Magenta>"&lt;!NOTATION"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>-<a name="(line217)"></a>                                 either externalid publicid e <font color=Cyan>&lt;&gt;</font>-<a name="(line218)"></a>                                 text <font color=Magenta>"&gt;"</font>-<a name="(line219)"></a><a name="publicid"></a>publicid <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>          <font color=Red>=</font> text <font color=Magenta>"PUBLICID"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral p-<a name="(line220)"></a><a name="encodingdecl"></a>encodingdecl <font color=Cyan>(</font>EncodingDecl s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"encoding='"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line221)"></a><a name="nmtoken"></a>nmtoken s                      <font color=Red>=</font> text s-<a name="(line222)"></a><a name="attvalue"></a>attvalue <font color=Cyan>(</font>AttValue esr<font color=Cyan>)</font>        <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line223)"></a>                                 hcat <font color=Cyan>(</font>map <font color=Cyan>(</font>either text reference<font color=Cyan>)</font> esr<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>-<a name="(line224)"></a>                                 text <font color=Magenta>"\""</font>-<a name="(line225)"></a><a name="entityvalue"></a>entityvalue <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line226)"></a><a name="ev"></a>ev <font color=Cyan>(</font>EVString s<font color=Cyan>)</font>                <font color=Red>=</font> text s-<a name="(line227)"></a><font color=Blue>--ev (EVPERef p e)               = peref p</font>-<a name="(line228)"></a>ev <font color=Cyan>(</font>EVRef r<font color=Cyan>)</font>                   <font color=Red>=</font> reference r-<a name="(line229)"></a><a name="pubidliteral"></a>pubidliteral <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line230)"></a><a name="systemliteral"></a>systemliteral <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font><font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>-<a name="(line231)"></a><a name="chardata"></a>chardata s                     <font color=Red>=</font> <font color=Green><u>if</u></font> all isSpace s <font color=Green><u>then</u></font> empty <font color=Green><u>else</u></font> text s-<a name="(line232)"></a><a name="cdsect"></a>cdsect c                       <font color=Red>=</font> text <font color=Magenta>"&lt;![CDATA["</font> <font color=Cyan>&lt;&gt;</font> chardata c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]]&gt;"</font>-<a name="(line233)"></a>-<a name="(line234)"></a><font color=Blue>----</font>+<head>+<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->+<title>src/Text/XML/HaXml/Html/Pretty.hs</title>+</head>+<body>+<pre><a name="line-1"></a><font color=Blue>-- | This is a separate pretty-printer for HTML documents, recognising</font>+<a name="line-2"></a><font color=Blue>--   some of the differences between HTML and true XML.</font>+<a name="line-3"></a>+<a name="line-4"></a><font color=Green><u>module</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Html<font color=Cyan>.</font>Pretty+<a name="line-5"></a>  <font color=Cyan>(</font> document+<a name="line-6"></a>  <font color=Cyan>,</font> element+<a name="line-7"></a>  <font color=Cyan>,</font> attribute+<a name="line-8"></a>  <font color=Cyan>,</font> content+<a name="line-9"></a>  <font color=Cyan>)</font> <font color=Green><u>where</u></font>+<a name="line-10"></a>+<a name="line-11"></a><font color=Green><u>import</u></font> Prelude hiding <font color=Cyan>(</font>maybe<font color=Cyan>,</font>either<font color=Cyan>)</font>+<a name="line-12"></a><font color=Green><u>import</u></font> Maybe hiding <font color=Cyan>(</font>maybe<font color=Cyan>)</font>+<a name="line-13"></a><font color=Green><u>import</u></font> List <font color=Cyan>(</font>intersperse<font color=Cyan>)</font>+<a name="line-14"></a><font color=Green><u>import</u></font> Char <font color=Cyan>(</font>isSpace<font color=Cyan>)</font>+<a name="line-15"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>PrettyPrint<font color=Cyan>.</font>HughesPJ+<a name="line-16"></a><font color=Green><u>import</u></font> Text<font color=Cyan>.</font>XML<font color=Cyan>.</font>HaXml<font color=Cyan>.</font>Types+<a name="line-17"></a>+<a name="line-18"></a><a name="either"></a><font color=Blue>either</font> f g <font color=Cyan>(</font>Left x<font color=Cyan>)</font>  <font color=Red>=</font> f x+<a name="line-19"></a><font color=Blue>either</font> f g <font color=Cyan>(</font>Right x<font color=Cyan>)</font> <font color=Red>=</font> g x+<a name="line-20"></a>+<a name="line-21"></a><a name="maybe"></a><font color=Blue>maybe</font> f Nothing  <font color=Red>=</font> empty+<a name="line-22"></a><font color=Blue>maybe</font> f <font color=Cyan>(</font>Just x<font color=Cyan>)</font> <font color=Red>=</font> f x+<a name="line-23"></a>+<a name="line-24"></a><font color=Blue>--peref p   = text "%" &lt;&gt; text p &lt;&gt; text ";"</font>+<a name="line-25"></a>+<a name="line-26"></a><font color=Blue>----</font>+<a name="line-27"></a>+<a name="line-28"></a><a name="document"></a><font color=Blue>document</font> <font color=Red>::</font> Document i <font color=Red>-&gt;</font> Doc+<a name="line-29"></a><a name="prolog"></a><font color=Blue>prolog</font>   <font color=Red>::</font> Prolog <font color=Red>-&gt;</font> Doc+<a name="line-30"></a><a name="xmldecl"></a><font color=Blue>xmldecl</font>  <font color=Red>::</font> XMLDecl <font color=Red>-&gt;</font> Doc+<a name="line-31"></a><a name="misc"></a><font color=Blue>misc</font>     <font color=Red>::</font> Misc <font color=Red>-&gt;</font> Doc+<a name="line-32"></a><a name="sddecl"></a><font color=Blue>sddecl</font>   <font color=Red>::</font> Bool <font color=Red>-&gt;</font> Doc+<a name="line-33"></a>+<a name="line-34"></a><a name="doctypedecl"></a><font color=Blue>doctypedecl</font> <font color=Red>::</font> DocTypeDecl <font color=Red>-&gt;</font> Doc+<a name="line-35"></a><a name="markupdecl"></a><font color=Blue>markupdecl</font>  <font color=Red>::</font> MarkupDecl <font color=Red>-&gt;</font> Doc+<a name="line-36"></a><a name="extsubset"></a><font color=Blue>extsubset</font>   <font color=Red>::</font> ExtSubset <font color=Red>-&gt;</font> Doc+<a name="line-37"></a><a name="extsubsetdecl"></a><font color=Blue>extsubsetdecl</font> <font color=Red>::</font> ExtSubsetDecl <font color=Red>-&gt;</font> Doc+<a name="line-38"></a>+<a name="line-39"></a><a name="element"></a><font color=Blue>element</font>   <font color=Red>::</font> Element i <font color=Red>-&gt;</font> Doc+<a name="line-40"></a><a name="attribute"></a><font color=Blue>attribute</font> <font color=Red>::</font> Attribute <font color=Red>-&gt;</font> Doc                     <font color=Cyan>--etc</font>+<a name="line-41"></a><a name="content"></a><font color=Blue>content</font>   <font color=Red>::</font> Content i <font color=Red>-&gt;</font> Doc+<a name="line-42"></a>+<a name="line-43"></a><font color=Blue>----</font>+<a name="line-44"></a>+<a name="line-45"></a><font color=Blue>document</font> <font color=Cyan>(</font>Document p <font color=Green><u>_</u></font> e m<font color=Cyan>)</font><font color=Red>=</font> prolog p <font color=Cyan>$$</font> element e <font color=Cyan>$$</font> vcat <font color=Cyan>(</font>map misc m<font color=Cyan>)</font>+<a name="line-46"></a><font color=Blue>prolog</font> <font color=Cyan>(</font>Prolog x m1 dtd m2<font color=Cyan>)</font><font color=Red>=</font> maybe xmldecl x <font color=Cyan>$$</font>+<a name="line-47"></a>                             vcat <font color=Cyan>(</font>map misc m1<font color=Cyan>)</font> <font color=Cyan>$$</font>+<a name="line-48"></a>                             maybe doctypedecl dtd <font color=Cyan>$$</font>+<a name="line-49"></a>                             vcat <font color=Cyan>(</font>map misc m2<font color=Cyan>)</font>+<a name="line-50"></a><font color=Blue>xmldecl</font> <font color=Cyan>(</font>XMLDecl v e sd<font color=Cyan>)</font>   <font color=Red>=</font> text <font color=Magenta>"&lt;?xml version='"</font> <font color=Cyan>&lt;&gt;</font> text v <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-51"></a>                             maybe encodingdecl e <font color=Cyan>&lt;+&gt;</font>+<a name="line-52"></a>                             maybe sddecl sd <font color=Cyan>&lt;+&gt;</font>+<a name="line-53"></a>                             text <font color=Magenta>"?&gt;"</font>+<a name="line-54"></a><font color=Blue>misc</font> <font color=Cyan>(</font>Comment s<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!--"</font> <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"--&gt;"</font>+<a name="line-55"></a><font color=Blue>misc</font> <font color=Cyan>(</font>PI <font color=Cyan>(</font>n<font color=Cyan>,</font>s<font color=Cyan>)</font><font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"&lt;?"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> text s <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"?&gt;"</font>+<a name="line-56"></a><font color=Blue>sddecl</font> sd   <font color=Red>|</font> sd           <font color=Red>=</font> text <font color=Magenta>"standalone='yes'"</font>+<a name="line-57"></a>            <font color=Red>|</font> otherwise    <font color=Red>=</font> text <font color=Magenta>"standalone='no'"</font>+<a name="line-58"></a><font color=Blue>doctypedecl</font> <font color=Cyan>(</font>DTD n eid ds<font color=Cyan>)</font> <font color=Red>=</font> <font color=Green><u>if</u></font> null ds <font color=Green><u>then</u></font> +<a name="line-59"></a>                                  hd <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-60"></a>                             <font color=Green><u>else</u></font> hd <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>" ["</font> <font color=Cyan>$$</font>+<a name="line-61"></a>                                  vcat <font color=Cyan>(</font>map markupdecl ds<font color=Cyan>)</font> <font color=Cyan>$$</font> text <font color=Magenta>"]&gt;"</font>+<a name="line-62"></a>                           <font color=Green><u>where</u></font> hd <font color=Red>=</font> text <font color=Magenta>"&lt;!DOCTYPE"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-63"></a>                                      maybe externalid eid+<a name="line-64"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Element e<font color=Cyan>)</font>     <font color=Red>=</font> elementdecl e+<a name="line-65"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>AttList a<font color=Cyan>)</font>     <font color=Red>=</font> attlistdecl a+<a name="line-66"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Entity e<font color=Cyan>)</font>      <font color=Red>=</font> entitydecl e+<a name="line-67"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>Notation n<font color=Cyan>)</font>    <font color=Red>=</font> notationdecl n+<a name="line-68"></a><font color=Blue>markupdecl</font> <font color=Cyan>(</font>MarkupMisc m<font color=Cyan>)</font>  <font color=Red>=</font> misc m+<a name="line-69"></a><font color=Blue>--markupdecl (MarkupPE p m)  = peref p</font>+<a name="line-70"></a><font color=Blue>extsubset</font> <font color=Cyan>(</font>ExtSubset t ds<font color=Cyan>)</font> <font color=Red>=</font> maybe textdecl t <font color=Cyan>$$</font>+<a name="line-71"></a>                             vcat <font color=Cyan>(</font>map extsubsetdecl ds<font color=Cyan>)</font>+<a name="line-72"></a><font color=Blue>extsubsetdecl</font> <font color=Cyan>(</font>ExtMarkupDecl m<font color=Cyan>)</font>      <font color=Red>=</font> markupdecl m+<a name="line-73"></a><font color=Blue>extsubsetdecl</font> <font color=Cyan>(</font>ExtConditionalSect c<font color=Cyan>)</font> <font color=Red>=</font> conditionalsect c+<a name="line-74"></a><font color=Blue>--extsubsetdecl (ExtPEReference p e)   = peref p</font>+<a name="line-75"></a>+<a name="line-76"></a><font color=Blue>element</font> <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-77"></a>                         fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"/&gt;"</font>+<a name="line-78"></a><font color=Blue>element</font> e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font>+<a name="line-79"></a><font color=Blue>--  | any isText cs    = text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) &lt;&gt;</font>+<a name="line-80"></a><font color=Blue>--                       text "&gt;" &lt;&gt; hcat (map content cs) &lt;&gt;</font>+<a name="line-81"></a><font color=Blue>--                       text "&lt;/" &lt;&gt; text n &lt;&gt; text "&gt;"</font>+<a name="line-82"></a>    <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-83"></a>                         text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-84"></a>                         text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-85"></a>    <font color=Red>|</font> otherwise        <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Red>=</font> carryelem e empty+<a name="line-86"></a>                         <font color=Green><u>in</u></font> d <font color=Cyan>&lt;&gt;</font> c+<a name="line-87"></a>+<a name="line-88"></a><a name="isText"></a><font color=Blue>isText</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> True+<a name="line-89"></a><font color=Blue>isText</font> <font color=Cyan>(</font>CRef <font color=Green><u>_</u></font> <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> True+<a name="line-90"></a><font color=Blue>isText</font> <font color=Green><u>_</u></font>               <font color=Red>=</font> False+<a name="line-91"></a>+<a name="line-92"></a><a name="carryelem"></a><font color=Blue>carryelem</font> <font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> []<font color=Cyan>)</font> c+<a name="line-93"></a>                       <font color=Red>=</font> <font color=Cyan>(</font> c <font color=Cyan>&lt;&gt;</font>+<a name="line-94"></a>                           text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>+<a name="line-95"></a>                         <font color=Cyan>,</font> text <font color=Magenta>"/&gt;"</font><font color=Cyan>)</font>+<a name="line-96"></a><font color=Blue>--carryelem e@(Elem n as cs) c</font>+<a name="line-97"></a><font color=Blue>----  | any isText cs    =  ( c &lt;&gt; element e, empty)</font>+<a name="line-98"></a><font color=Blue>--    | otherwise        =  let (cs',d') = carryscan carrycontent cs (text "&gt;")</font>+<a name="line-99"></a><font color=Blue>--                          in</font>+<a name="line-100"></a><font color=Blue>--                          ( c &lt;&gt;</font>+<a name="line-101"></a><font color=Blue>--                            text "&lt;" &lt;&gt; text n &lt;+&gt; fsep (map attribute as) $$</font>+<a name="line-102"></a><font color=Blue>--                            nest 2 (vcat cs') &lt;&gt; -- $$</font>+<a name="line-103"></a><font color=Blue>--                            c' &lt;&gt; text "&lt;/" &lt;&gt; text n</font>+<a name="line-104"></a><font color=Blue>--                          , text "&gt;")</font>+<a name="line-105"></a><font color=Blue>--carrycontent (CElem e) c   = carryelem e c</font>+<a name="line-106"></a><font color=Blue>--carrycontent (CString _ s) c = (c &lt;&gt; chardata s, empty)</font>+<a name="line-107"></a><font color=Blue>--carrycontent (CRef r) c    = (c &lt;&gt; reference r, empty)</font>+<a name="line-108"></a><font color=Blue>--carrycontent (CMisc m) c   = (c &lt;&gt; misc m, empty)</font>+<a name="line-109"></a><font color=Blue>--</font>+<a name="line-110"></a><font color=Blue>--carryscan :: (a-&gt;c-&gt;(b,c)) -&gt; [a] -&gt; c -&gt; ([b],c)</font>+<a name="line-111"></a><font color=Blue>--carryscan f []     c = ([],c)</font>+<a name="line-112"></a><font color=Blue>--carryscan f (a:as) c = let (b, c')   = f a c</font>+<a name="line-113"></a><font color=Blue>--                           (bs,c'') = carryscan f as c'</font>+<a name="line-114"></a><font color=Blue>--                       in (b:bs, c'')</font>+<a name="line-115"></a>+<a name="line-116"></a><font color=Blue>carryelem</font> e<font color=Red>@</font><font color=Cyan>(</font>Elem n <font color=Green><u>as</u></font> cs<font color=Cyan>)</font> c+<a name="line-117"></a>  <font color=Red>|</font> isText <font color=Cyan>(</font>head cs<font color=Cyan>)</font> <font color=Red>=</font>+<a name="line-118"></a>        <font color=Cyan>(</font> start <font color=Cyan>&lt;&gt;</font>+<a name="line-119"></a>          text <font color=Magenta>"&gt;"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map content cs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n+<a name="line-120"></a>        <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>+<a name="line-121"></a>  <font color=Red>|</font> otherwise <font color=Red>=</font>+<a name="line-122"></a>        <font color=Green><u>let</u></font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c'<font color=Cyan>)</font> <font color=Red>=</font> foldl carrycontent <font color=Cyan>(</font>start<font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font> cs <font color=Green><u>in</u></font>+<a name="line-123"></a>        <font color=Cyan>(</font> d <font color=Cyan>&lt;&gt;</font> c' <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;/"</font> <font color=Cyan>&lt;&gt;</font> text n+<a name="line-124"></a>        <font color=Cyan>,</font> text <font color=Magenta>"&gt;"</font><font color=Cyan>)</font>+<a name="line-125"></a>  <font color=Green><u>where</u></font> start <font color=Red>=</font> c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&lt;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> fsep <font color=Cyan>(</font>map attribute <font color=Green><u>as</u></font><font color=Cyan>)</font>+<a name="line-126"></a>+<a name="line-127"></a><a name="carrycontent"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>=</font> <font color=Green><u>let</u></font> <font color=Cyan>(</font>d'<font color=Cyan>,</font>c'<font color=Cyan>)</font> <font color=Red>=</font> carryelem e c <font color=Green><u>in</u></font>+<a name="line-128"></a>                                     <font color=Cyan>(</font>d <font color=Cyan>$$</font> nest <font color=Magenta>2</font> d'<font color=Cyan>,</font>       c'<font color=Cyan>)</font>+<a name="line-129"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font> <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>&lt;&gt;</font> c <font color=Cyan>&lt;&gt;</font> chardata s<font color=Cyan>,</font> empty<font color=Cyan>)</font>+<a name="line-130"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>&lt;&gt;</font> c <font color=Cyan>&lt;&gt;</font> reference r<font color=Cyan>,</font>empty<font color=Cyan>)</font>+<a name="line-131"></a><font color=Blue>carrycontent</font> <font color=Cyan>(</font>d<font color=Cyan>,</font>c<font color=Cyan>)</font> <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>     <font color=Red>=</font> <font color=Cyan>(</font>d <font color=Cyan>$$</font> c <font color=Cyan>&lt;&gt;</font> misc m<font color=Cyan>,</font>     empty<font color=Cyan>)</font>+<a name="line-132"></a>+<a name="line-133"></a>+<a name="line-134"></a><font color=Blue>attribute</font> <font color=Cyan>(</font>n<font color=Cyan>,</font>v<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"="</font> <font color=Cyan>&lt;&gt;</font> attvalue v+<a name="line-135"></a><font color=Blue>content</font> <font color=Cyan>(</font>CElem e <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> element e+<a name="line-136"></a><font color=Blue>content</font> <font color=Cyan>(</font>CString <font color=Green><u>_</u></font> s <font color=Green><u>_</u></font><font color=Cyan>)</font>  <font color=Red>=</font> chardata s+<a name="line-137"></a><font color=Blue>content</font> <font color=Cyan>(</font>CRef r <font color=Green><u>_</u></font><font color=Cyan>)</font>       <font color=Red>=</font> reference r+<a name="line-138"></a><font color=Blue>content</font> <font color=Cyan>(</font>CMisc m <font color=Green><u>_</u></font><font color=Cyan>)</font>      <font color=Red>=</font> misc m+<a name="line-139"></a>+<a name="line-140"></a><a name="elementdecl"></a><font color=Blue>elementdecl</font> <font color=Cyan>(</font>ElementDecl n cs<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ELEMENT"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-141"></a>                                 contentspec cs <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-142"></a><a name="contentspec"></a><font color=Blue>contentspec</font> EMPTY              <font color=Red>=</font> text <font color=Magenta>"EMPTY"</font>+<a name="line-143"></a><font color=Blue>contentspec</font> ANY                <font color=Red>=</font> text <font color=Magenta>"ANY"</font>+<a name="line-144"></a><font color=Blue>contentspec</font> <font color=Cyan>(</font>Mixed m<font color=Cyan>)</font>          <font color=Red>=</font> mixed m+<a name="line-145"></a><font color=Blue>contentspec</font> <font color=Cyan>(</font>ContentSpec c<font color=Cyan>)</font>    <font color=Red>=</font> cp c+<a name="line-146"></a><a name="cp"></a><font color=Blue>--contentspec (ContentPE p cs)   = peref p</font>+<a name="line-147"></a><font color=Blue>cp</font> <font color=Cyan>(</font>TagName n m<font color=Cyan>)</font>       <font color=Red>=</font> text n <font color=Cyan>&lt;&gt;</font> modifier m+<a name="line-148"></a><font color=Blue>cp</font> <font color=Cyan>(</font>Choice cs m<font color=Cyan>)</font>       <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-149"></a>                           modifier m+<a name="line-150"></a><font color=Blue>cp</font> <font color=Cyan>(</font>Seq cs m<font color=Cyan>)</font>          <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>","</font><font color=Cyan>)</font> <font color=Cyan>(</font>map cp cs<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-151"></a>                           modifier m+<a name="line-152"></a><a name="modifier"></a><font color=Blue>--cp (CPPE p c)          = peref p</font>+<a name="line-153"></a><font color=Blue>modifier</font> None          <font color=Red>=</font> empty+<a name="line-154"></a><font color=Blue>modifier</font> Query         <font color=Red>=</font> text <font color=Magenta>"?"</font>+<a name="line-155"></a><font color=Blue>modifier</font> Star          <font color=Red>=</font> text <font color=Magenta>"*"</font>+<a name="line-156"></a><font color=Blue>modifier</font> Plus          <font color=Red>=</font> text <font color=Magenta>"+"</font>+<a name="line-157"></a><a name="mixed"></a><font color=Blue>mixed</font>  PCDATA          <font color=Red>=</font> text <font color=Magenta>"(#PCDATA)"</font>+<a name="line-158"></a><font color=Blue>mixed</font> <font color=Cyan>(</font>PCDATAplus ns<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"(#PCDATA |"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-159"></a>                         hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-160"></a>                         text <font color=Magenta>")*"</font>+<a name="line-161"></a>+<a name="line-162"></a><a name="attlistdecl"></a><font color=Blue>attlistdecl</font> <font color=Cyan>(</font>AttListDecl n ds<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;!ATTLIST"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-163"></a>                                 fsep <font color=Cyan>(</font>map attdef ds<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"&gt;"</font>+<a name="line-164"></a><a name="attdef"></a><font color=Blue>attdef</font> <font color=Cyan>(</font>AttDef n t d<font color=Cyan>)</font>          <font color=Red>=</font> text n <font color=Cyan>&lt;+&gt;</font> atttype t <font color=Cyan>&lt;+&gt;</font> defaultdecl d+<a name="line-165"></a><a name="atttype"></a><font color=Blue>atttype</font>  StringType            <font color=Red>=</font> text <font color=Magenta>"CDATA"</font>+<a name="line-166"></a><font color=Blue>atttype</font> <font color=Cyan>(</font>TokenizedType t<font color=Cyan>)</font>      <font color=Red>=</font> tokenizedtype t+<a name="line-167"></a><font color=Blue>atttype</font> <font color=Cyan>(</font>EnumeratedType t<font color=Cyan>)</font>     <font color=Red>=</font> enumeratedtype t+<a name="line-168"></a><a name="tokenizedtype"></a><font color=Blue>tokenizedtype</font> ID               <font color=Red>=</font> text <font color=Magenta>"ID"</font>+<a name="line-169"></a><font color=Blue>tokenizedtype</font> IDREF            <font color=Red>=</font> text <font color=Magenta>"IDREF"</font>+<a name="line-170"></a><font color=Blue>tokenizedtype</font> IDREFS           <font color=Red>=</font> text <font color=Magenta>"IDREFS"</font>+<a name="line-171"></a><font color=Blue>tokenizedtype</font> ENTITY           <font color=Red>=</font> text <font color=Magenta>"ENTITY"</font>+<a name="line-172"></a><font color=Blue>tokenizedtype</font> ENTITIES         <font color=Red>=</font> text <font color=Magenta>"ENTITIES"</font>+<a name="line-173"></a><font color=Blue>tokenizedtype</font> NMTOKEN          <font color=Red>=</font> text <font color=Magenta>"NMTOKEN"</font>+<a name="line-174"></a><font color=Blue>tokenizedtype</font> NMTOKENS         <font color=Red>=</font> text <font color=Magenta>"NMTOKENS"</font>+<a name="line-175"></a><a name="enumeratedtype"></a><font color=Blue>enumeratedtype</font> <font color=Cyan>(</font>NotationType n<font color=Cyan>)</font><font color=Red>=</font> notationtype n+<a name="line-176"></a><font color=Blue>enumeratedtype</font> <font color=Cyan>(</font>Enumeration e<font color=Cyan>)</font> <font color=Red>=</font> enumeration e+<a name="line-177"></a><a name="notationtype"></a><font color=Blue>notationtype</font> ns                <font color=Red>=</font> text <font color=Magenta>"NOTATION"</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-178"></a>                                 parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map text ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-179"></a><a name="enumeration"></a><font color=Blue>enumeration</font> ns                 <font color=Red>=</font> parens <font color=Cyan>(</font>hcat <font color=Cyan>(</font>intersperse <font color=Cyan>(</font>text <font color=Magenta>"|"</font><font color=Cyan>)</font> <font color=Cyan>(</font>map nmtoken ns<font color=Cyan>)</font><font color=Cyan>)</font><font color=Cyan>)</font>+<a name="line-180"></a><a name="defaultdecl"></a><font color=Blue>defaultdecl</font>  REQUIRED          <font color=Red>=</font> text <font color=Magenta>"#REQUIRED"</font>+<a name="line-181"></a><font color=Blue>defaultdecl</font>  IMPLIED           <font color=Red>=</font> text <font color=Magenta>"#IMPLIED"</font>+<a name="line-182"></a><font color=Blue>defaultdecl</font> <font color=Cyan>(</font>DefaultTo a f<font color=Cyan>)</font>    <font color=Red>=</font> maybe <font color=Cyan>(</font>const <font color=Cyan>(</font>text <font color=Magenta>"#FIXED"</font><font color=Cyan>)</font><font color=Cyan>)</font> f <font color=Cyan>&lt;+&gt;</font> attvalue a+<a name="line-183"></a><a name="conditionalsect"></a><font color=Blue>conditionalsect</font> <font color=Cyan>(</font>IncludeSect i<font color=Cyan>)</font><font color=Red>=</font> text <font color=Magenta>"&lt;![INCLUDE ["</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-184"></a>                                 vcat <font color=Cyan>(</font>map extsubsetdecl i<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"]]&gt;"</font>+<a name="line-185"></a><font color=Blue>conditionalsect</font> <font color=Cyan>(</font>IgnoreSect i<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;![IGNORE ["</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-186"></a>                                 fsep <font color=Cyan>(</font>map ignoresectcontents i<font color=Cyan>)</font> <font color=Cyan>&lt;+&gt;</font> text <font color=Magenta>"]]&gt;"</font>+<a name="line-187"></a><a name="ignore"></a><font color=Blue>ignore</font> <font color=Cyan>(</font>Ignore<font color=Cyan>)</font>                <font color=Red>=</font> empty+<a name="line-188"></a><a name="ignoresectcontents"></a><font color=Blue>ignoresectcontents</font> <font color=Cyan>(</font>IgnoreSectContents i is<font color=Cyan>)</font>+<a name="line-189"></a>                               <font color=Red>=</font> ignore i <font color=Cyan>&lt;+&gt;</font> vcat <font color=Cyan>(</font>map internal is<font color=Cyan>)</font>+<a name="line-190"></a>                          <font color=Green><u>where</u></font> internal <font color=Cyan>(</font>ics<font color=Cyan>,</font>i<font color=Cyan>)</font> <font color=Red>=</font> text <font color=Magenta>"&lt;![["</font> <font color=Cyan>&lt;+&gt;</font>+<a name="line-191"></a>                                                   ignoresectcontents ics <font color=Cyan>&lt;+&gt;</font>+<a name="line-192"></a>                                                   text <font color=Magenta>"]]&gt;"</font> <font color=Cyan>&lt;+&gt;</font> ignore i+<a name="line-193"></a><a name="reference"></a><font color=Blue>reference</font> <font color=Cyan>(</font>RefEntity er<font color=Cyan>)</font>       <font color=Red>=</font> entityref er+<a name="line-194"></a><font color=Blue>reference</font> <font color=Cyan>(</font>RefChar cr<font color=Cyan>)</font>         <font color=Red>=</font> charref cr+<a name="line-195"></a><a name="entityref"></a><font color=Blue>entityref</font> n                    <font color=Red>=</font> text <font color=Magenta>"&amp;"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>+<a name="line-196"></a><a name="charref"></a><font color=Blue>charref</font> c                      <font color=Red>=</font> text <font color=Magenta>"&amp;#"</font> <font color=Cyan>&lt;&gt;</font> text <font color=Cyan>(</font>show c<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>";"</font>+<a name="line-197"></a><a name="entitydecl"></a><font color=Blue>entitydecl</font> <font color=Cyan>(</font>EntityGEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> gedecl d+<a name="line-198"></a><font color=Blue>entitydecl</font> <font color=Cyan>(</font>EntityPEDecl d<font color=Cyan>)</font>    <font color=Red>=</font> pedecl d+<a name="line-199"></a><a name="gedecl"></a><font color=Blue>gedecl</font> <font color=Cyan>(</font>GEDecl n ed<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> entitydef ed <font color=Cyan>&lt;&gt;</font>+<a name="line-200"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-201"></a><a name="pedecl"></a><font color=Blue>pedecl</font> <font color=Cyan>(</font>PEDecl n pd<font color=Cyan>)</font>           <font color=Red>=</font> text <font color=Magenta>"&lt;!ENTITY %"</font> <font color=Cyan>&lt;&gt;</font> text n <font color=Cyan>&lt;+&gt;</font> pedef pd <font color=Cyan>&lt;&gt;</font>+<a name="line-202"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-203"></a><a name="entitydef"></a><font color=Blue>entitydef</font> <font color=Cyan>(</font>DefEntityValue ev<font color=Cyan>)</font>  <font color=Red>=</font> entityvalue ev+<a name="line-204"></a><font color=Blue>entitydef</font> <font color=Cyan>(</font>DefExternalID i nd<font color=Cyan>)</font> <font color=Red>=</font> externalid i <font color=Cyan>&lt;+&gt;</font> maybe ndatadecl nd+<a name="line-205"></a><a name="pedef"></a><font color=Blue>pedef</font> <font color=Cyan>(</font>PEDefEntityValue ev<font color=Cyan>)</font>    <font color=Red>=</font> entityvalue ev+<a name="line-206"></a><font color=Blue>pedef</font> <font color=Cyan>(</font>PEDefExternalID eid<font color=Cyan>)</font>    <font color=Red>=</font> externalid eid+<a name="line-207"></a><a name="externalid"></a><font color=Blue>externalid</font> <font color=Cyan>(</font>SYSTEM sl<font color=Cyan>)</font>         <font color=Red>=</font> text <font color=Magenta>"SYSTEM"</font> <font color=Cyan>&lt;+&gt;</font> systemliteral sl+<a name="line-208"></a><font color=Blue>externalid</font> <font color=Cyan>(</font>PUBLIC i sl<font color=Cyan>)</font>       <font color=Red>=</font> text <font color=Magenta>"PUBLIC"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral i <font color=Cyan>&lt;+&gt;</font>+<a name="line-209"></a>                                 systemliteral sl+<a name="line-210"></a><a name="ndatadecl"></a><font color=Blue>ndatadecl</font> <font color=Cyan>(</font>NDATA n<font color=Cyan>)</font>            <font color=Red>=</font> text <font color=Magenta>"NDATA"</font> <font color=Cyan>&lt;+&gt;</font> text n+<a name="line-211"></a><a name="textdecl"></a><font color=Blue>textdecl</font> <font color=Cyan>(</font>TextDecl vi ed<font color=Cyan>)</font>      <font color=Red>=</font> text <font color=Magenta>"&lt;?xml"</font> <font color=Cyan>&lt;+&gt;</font> maybe text vi <font color=Cyan>&lt;+&gt;</font>+<a name="line-212"></a>                                 encodingdecl ed <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"?&gt;"</font>+<a name="line-213"></a><a name="extparsedent"></a><font color=Blue>extparsedent</font> <font color=Cyan>(</font>ExtParsedEnt t c<font color=Cyan>)</font><font color=Red>=</font> maybe textdecl t <font color=Cyan>&lt;+&gt;</font> content c+<a name="line-214"></a><a name="extpe"></a><font color=Blue>extpe</font> <font color=Cyan>(</font>ExtPE t esd<font color=Cyan>)</font>            <font color=Red>=</font> maybe textdecl t <font color=Cyan>&lt;+&gt;</font>+<a name="line-215"></a>                                 vcat <font color=Cyan>(</font>map extsubsetdecl esd<font color=Cyan>)</font>+<a name="line-216"></a><a name="notationdecl"></a><font color=Blue>notationdecl</font> <font color=Cyan>(</font>NOTATION n e<font color=Cyan>)</font>    <font color=Red>=</font> text <font color=Magenta>"&lt;!NOTATION"</font> <font color=Cyan>&lt;+&gt;</font> text n <font color=Cyan>&lt;+&gt;</font>+<a name="line-217"></a>                                 either externalid publicid e <font color=Cyan>&lt;&gt;</font>+<a name="line-218"></a>                                 text <font color=Magenta>"&gt;"</font>+<a name="line-219"></a><a name="publicid"></a><font color=Blue>publicid</font> <font color=Cyan>(</font>PUBLICID p<font color=Cyan>)</font>          <font color=Red>=</font> text <font color=Magenta>"PUBLICID"</font> <font color=Cyan>&lt;+&gt;</font> pubidliteral p+<a name="line-220"></a><a name="encodingdecl"></a><font color=Blue>encodingdecl</font> <font color=Cyan>(</font>EncodingDecl s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"encoding='"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-221"></a><a name="nmtoken"></a><font color=Blue>nmtoken</font> s                      <font color=Red>=</font> text s+<a name="line-222"></a><a name="attvalue"></a><font color=Blue>attvalue</font> <font color=Cyan>(</font>AttValue esr<font color=Cyan>)</font>        <font color=Red>=</font> text <font color=Magenta>"\""</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-223"></a>                                 hcat <font color=Cyan>(</font>map <font color=Cyan>(</font>either text reference<font color=Cyan>)</font> esr<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font>+<a name="line-224"></a>                                 text <font color=Magenta>"\""</font>+<a name="line-225"></a><a name="entityvalue"></a><font color=Blue>entityvalue</font> <font color=Cyan>(</font>EntityValue evs<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> hcat <font color=Cyan>(</font>map ev evs<font color=Cyan>)</font> <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-226"></a><a name="ev"></a><font color=Blue>ev</font> <font color=Cyan>(</font>EVString s<font color=Cyan>)</font>                <font color=Red>=</font> text s+<a name="line-227"></a><font color=Blue>--ev (EVPERef p e)               = peref p</font>+<a name="line-228"></a><font color=Blue>ev</font> <font color=Cyan>(</font>EVRef r<font color=Cyan>)</font>                   <font color=Red>=</font> reference r+<a name="line-229"></a><a name="pubidliteral"></a><font color=Blue>pubidliteral</font> <font color=Cyan>(</font>PubidLiteral s<font color=Cyan>)</font>  <font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-230"></a><a name="systemliteral"></a><font color=Blue>systemliteral</font> <font color=Cyan>(</font>SystemLiteral s<font color=Cyan>)</font><font color=Red>=</font> text <font color=Magenta>"'"</font> <font color=Cyan>&lt;&gt;</font> text s <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"'"</font>+<a name="line-231"></a><a name="chardata"></a><font color=Blue>chardata</font> s                     <font color=Red>=</font> <font color=Green><u>if</u></font> all isSpace s <font color=Green><u>then</u></font> empty <font color=Green><u>else</u></font> text s+<a name="line-232"></a><a name="cdsect"></a><font color=Blue>cdsect</font> c                       <font color=Red>=</font> text <font color=Magenta>"&lt;![CDATA["</font> <font color=Cyan>&lt;&gt;</font> chardata c <font color=Cyan>&lt;&gt;</font> text <font color=Magenta>"]]&gt;"</font>+<a name="line-233"></a>+<a name="line-234"></a><font color=Blue>----</font> </pre>+</body> </html>