hxt-8.3.0: doc/hdoc/src/Text-XML-HXT-RelaxNG-Simplification.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->
<title>Haskell Code by HsColour</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-2"></a>
<a name="line-3"></a><span class='comment'>{- |
<a name="line-4"></a> Module : Text.XML.HXT.RelaxNG.Simplification
<a name="line-5"></a> Copyright : Copyright (C) 2008 Torben Kuseler, Uwe Schmidt
<a name="line-6"></a> License : MIT
<a name="line-7"></a>
<a name="line-8"></a> Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
<a name="line-9"></a> Stability : stable
<a name="line-10"></a> Portability: portable
<a name="line-11"></a>
<a name="line-12"></a> The modul creates the simplified form of a Relax NG schema.
<a name="line-13"></a> See also chapter 4 of the Relax NG specification.
<a name="line-14"></a>
<a name="line-15"></a>-}</span>
<a name="line-16"></a>
<a name="line-17"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-18"></a>
<a name="line-19"></a><span class='keyword'>module</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>Simplification</span>
<a name="line-20"></a> <span class='layout'>(</span> <span class='varid'>createSimpleForm</span>
<a name="line-21"></a> <span class='layout'>,</span> <span class='varid'>getErrors</span>
<a name="line-22"></a> <span class='layout'>)</span>
<a name="line-23"></a>
<a name="line-24"></a><span class='keyword'>where</span>
<a name="line-25"></a>
<a name="line-26"></a>
<a name="line-27"></a><span class='keyword'>import</span> <span class='conid'>Control</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>ListArrows</span>
<a name="line-28"></a>
<a name="line-29"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>DOM</span><span class='varop'>.</span><span class='conid'>Interface</span>
<a name="line-30"></a><span class='keyword'>import</span> <span class='keyword'>qualified</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>DOM</span><span class='varop'>.</span><span class='conid'>XmlNode</span> <span class='keyword'>as</span> <span class='conid'>XN</span>
<a name="line-31"></a> <span class='layout'>(</span> <span class='varid'>mkAttr</span>
<a name="line-32"></a> <span class='layout'>,</span> <span class='varid'>mkText</span>
<a name="line-33"></a> <span class='layout'>)</span>
<a name="line-34"></a>
<a name="line-35"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>XmlArrow</span>
<a name="line-36"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>XmlIOStateArrow</span>
<a name="line-37"></a>
<a name="line-38"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>Namespace</span>
<a name="line-39"></a> <span class='layout'>(</span> <span class='varid'>processWithNsEnv</span>
<a name="line-40"></a> <span class='layout'>,</span> <span class='varid'>propagateNamespaces</span>
<a name="line-41"></a> <span class='layout'>)</span>
<a name="line-42"></a>
<a name="line-43"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>Edit</span>
<a name="line-44"></a> <span class='layout'>(</span> <span class='varid'>removeWhiteSpace</span>
<a name="line-45"></a> <span class='layout'>)</span>
<a name="line-46"></a>
<a name="line-47"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>DataTypes</span>
<a name="line-48"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>BasicArrows</span>
<a name="line-49"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>CreatePattern</span>
<a name="line-50"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>DataTypeLibraries</span>
<a name="line-51"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>Utils</span>
<a name="line-52"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>Validation</span>
<a name="line-53"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>Schema</span> <span class='keyword'>as</span> <span class='conid'>S</span>
<a name="line-54"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>SchemaGrammar</span> <span class='keyword'>as</span> <span class='conid'>SG</span>
<a name="line-55"></a>
<a name="line-56"></a><span class='keyword'>import</span> <span class='conid'>Data</span><span class='varop'>.</span><span class='conid'>Maybe</span>
<a name="line-57"></a><span class='keyword'>import</span> <span class='conid'>Data</span><span class='varop'>.</span><span class='conid'>Char</span>
<a name="line-58"></a><span class='keyword'>import</span> <span class='conid'>Data</span><span class='varop'>.</span><span class='conid'>List</span>
<a name="line-59"></a>
<a name="line-60"></a><span class='keyword'>import</span> <span class='conid'>System</span><span class='varop'>.</span><span class='conid'>Directory</span>
<a name="line-61"></a> <span class='layout'>(</span> <span class='varid'>doesFileExist</span> <span class='layout'>)</span>
<a name="line-62"></a>
<a name="line-63"></a>
<a name="line-64"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-65"></a>
<a name="line-66"></a><a name="simplificationStep1"></a><span class='comment'>{-
<a name="line-67"></a>- 4.1. Annotations: Foreign attributes and elements are removed.
<a name="line-68"></a>- 4.2. Whitespace:
<a name="line-69"></a> - For each element other than value and param, each child that is a string
<a name="line-70"></a> containing only whitespace characters is removed. -> fertig
<a name="line-71"></a> - Leading and trailing whitespace characters are removed from the value of each name,
<a name="line-72"></a> type and combine attribute and from the content of each name element. -> fertig
<a name="line-73"></a>- 4.3. datatypeLibrary attribute:
<a name="line-74"></a> - The value of each datatypeLibary attribute is transformed by escaping disallowed characters
<a name="line-75"></a> - For any data or value element that does not have a datatypeLibrary attribute,
<a name="line-76"></a> a datatypeLibrary attribute is added.
<a name="line-77"></a> - Any datatypeLibrary attribute that is on an element other than data or value is removed.
<a name="line-78"></a>- 4.4. type attribute of value element
<a name="line-79"></a>-}</span>
<a name="line-80"></a><span class='definition'>simplificationStep1</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-81"></a><span class='definition'>simplificationStep1</span>
<a name="line-82"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='comment'>{-
<a name="line-83"></a> - 4.5. href attribute
<a name="line-84"></a> - The value of the href attribute on an externalRef or include element is first
<a name="line-85"></a> - transformed by escaping disallowed characters
<a name="line-86"></a> - The URI reference is then resolved into an absolute form
<a name="line-87"></a> - The value of the href attribute will be used to construct an element.
<a name="line-88"></a> -}</span>
<a name="line-89"></a> <span class='layout'>(</span> <span class='varid'>processHref</span> <span class='varop'>$<</span> <span class='varid'>getBaseURI</span> <span class='layout'>)</span>
<a name="line-90"></a> <span class='varop'>>>></span>
<a name="line-91"></a> <span class='comment'>-- 4.10 QNames</span>
<a name="line-92"></a> <span class='varid'>processWithNsEnv</span> <span class='varid'>processEnvNames</span> <span class='layout'>(</span><span class='varid'>toNsEnv</span> <span class='keyglyph'>[</span><span class='layout'>(</span><span class='str'>"xml"</span><span class='layout'>,</span><span class='varid'>xmlNamespace</span><span class='layout'>)</span><span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-93"></a> <span class='varop'>>>></span>
<a name="line-94"></a> <span class='comment'>-- 4.4 For any data or value element that does not have a datatypeLibrary attribute,</span>
<a name="line-95"></a> <span class='comment'>-- a datatypeLibrary attribute is added.</span>
<a name="line-96"></a> <span class='comment'>-- Wird vorgezogen, da danach der Rest in einem Baumdurchlauf erledigt werden kann</span>
<a name="line-97"></a> <span class='varid'>processdatatypeLib</span> <span class='str'>""</span>
<a name="line-98"></a> <span class='varop'>>>></span>
<a name="line-99"></a> <span class='varid'>processTopDownWithAttrl</span>
<a name="line-100"></a> <span class='layout'>(</span>
<a name="line-101"></a> <span class='layout'>(</span> <span class='comment'>-- 4.1 Foreign attributes and elements are removed</span>
<a name="line-102"></a> <span class='varid'>none</span>
<a name="line-103"></a> <span class='varop'>`when`</span>
<a name="line-104"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>isRoot</span>
<a name="line-105"></a> <span class='varop'>>>></span>
<a name="line-106"></a> <span class='varid'>getNamespaceUri</span>
<a name="line-107"></a> <span class='varop'>>>></span>
<a name="line-108"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>uri</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>not</span> <span class='varop'>$</span> <span class='varid'>compareURI</span> <span class='varid'>uri</span> <span class='varid'>relaxNamespace</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-109"></a> <span class='layout'>)</span>
<a name="line-110"></a> <span class='varop'>`orElse`</span>
<a name="line-111"></a> <span class='layout'>(</span> <span class='varid'>isAttr</span>
<a name="line-112"></a> <span class='varop'>>>></span>
<a name="line-113"></a> <span class='varid'>getNamespaceUri</span>
<a name="line-114"></a> <span class='varop'>>>></span>
<a name="line-115"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>uri</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>uri</span> <span class='varop'>/=</span> <span class='str'>""</span> <span class='varop'>&&</span> <span class='layout'>(</span><span class='varid'>not</span> <span class='varop'>$</span> <span class='varid'>compareURI</span> <span class='varid'>uri</span> <span class='varid'>relaxNamespace</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-116"></a> <span class='layout'>)</span>
<a name="line-117"></a> <span class='layout'>)</span>
<a name="line-118"></a> <span class='layout'>)</span>
<a name="line-119"></a> <span class='varop'>>>></span>
<a name="line-120"></a> <span class='layout'>(</span> <span class='comment'>-- 4.2 For each element other than value and param, each child that </span>
<a name="line-121"></a> <span class='comment'>-- is a string containing only whitespace characters is removed.</span>
<a name="line-122"></a> <span class='layout'>(</span> <span class='varid'>processChildren</span> <span class='varid'>removeWhiteSpace</span>
<a name="line-123"></a> <span class='varop'>`whenNot`</span>
<a name="line-124"></a> <span class='layout'>(</span><span class='varid'>isRngParam</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngValue</span><span class='layout'>)</span>
<a name="line-125"></a> <span class='layout'>)</span>
<a name="line-126"></a> <span class='varop'>`when`</span> <span class='varid'>isElem</span>
<a name="line-127"></a> <span class='layout'>)</span>
<a name="line-128"></a> <span class='varop'>>>></span>
<a name="line-129"></a> <span class='layout'>(</span> <span class='comment'>-- 4.2 Leading and trailing whitespace characters are removed from the value </span>
<a name="line-130"></a> <span class='comment'>-- of each name, type and combine attribute ...</span>
<a name="line-131"></a> <span class='varid'>changeAttrValue</span> <span class='varid'>normalizeWhitespace</span>
<a name="line-132"></a> <span class='varop'>`when`</span>
<a name="line-133"></a> <span class='layout'>(</span> <span class='varid'>isRngAttrName</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngAttrType</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngAttrCombine</span><span class='layout'>)</span>
<a name="line-134"></a> <span class='layout'>)</span>
<a name="line-135"></a> <span class='varop'>>>></span>
<a name="line-136"></a> <span class='layout'>(</span> <span class='comment'>-- 4.2 ... and from the content of each name element.</span>
<a name="line-137"></a> <span class='varid'>processChildren</span> <span class='layout'>(</span><span class='varid'>changeText</span> <span class='varid'>normalizeWhitespace</span><span class='layout'>)</span>
<a name="line-138"></a> <span class='varop'>`when`</span>
<a name="line-139"></a> <span class='varid'>isRngName</span>
<a name="line-140"></a> <span class='layout'>)</span>
<a name="line-141"></a> <span class='varop'>>>></span>
<a name="line-142"></a> <span class='layout'>(</span> <span class='comment'>-- 4.3 The value of each datatypeLibary attribute is transformed</span>
<a name="line-143"></a> <span class='comment'>-- by escaping disallowed characters</span>
<a name="line-144"></a> <span class='varid'>changeAttrValue</span> <span class='varid'>escapeURI</span>
<a name="line-145"></a> <span class='varop'>`when`</span>
<a name="line-146"></a> <span class='varid'>isRngAttrDatatypeLibrary</span>
<a name="line-147"></a> <span class='layout'>)</span>
<a name="line-148"></a> <span class='varop'>>>></span>
<a name="line-149"></a> <span class='layout'>(</span> <span class='comment'>-- The value of the datatypeLibary attribute has to be a valid URI</span>
<a name="line-150"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getRngAttrDatatypeLibrary</span>
<a name="line-151"></a> <span class='varop'>>>></span>
<a name="line-152"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>a</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"datatypeLibrary attribute: "</span> <span class='varop'>++</span>
<a name="line-153"></a> <span class='varid'>a</span> <span class='varop'>++</span> <span class='str'>" is not a valid URI"</span>
<a name="line-154"></a> <span class='layout'>)</span>
<a name="line-155"></a> <span class='layout'>)</span>
<a name="line-156"></a> <span class='layout'>)</span>
<a name="line-157"></a> <span class='layout'>)</span>
<a name="line-158"></a> <span class='varop'>`when`</span>
<a name="line-159"></a> <span class='layout'>(</span> <span class='varid'>isElem</span>
<a name="line-160"></a> <span class='varop'>>>></span>
<a name="line-161"></a> <span class='varid'>hasRngAttrDatatypeLibrary</span>
<a name="line-162"></a> <span class='varop'>>>></span>
<a name="line-163"></a> <span class='varid'>getRngAttrDatatypeLibrary</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varid'>not</span> <span class='varop'>.</span> <span class='varid'>isRelaxAnyURI</span><span class='layout'>)</span>
<a name="line-164"></a> <span class='layout'>)</span>
<a name="line-165"></a> <span class='layout'>)</span>
<a name="line-166"></a> <span class='varop'>>>></span>
<a name="line-167"></a> <span class='layout'>(</span> <span class='comment'>-- 4.3 Any datatypeLibrary attribute that is on an element </span>
<a name="line-168"></a> <span class='comment'>-- other than data or value is removed.</span>
<a name="line-169"></a> <span class='varid'>removeAttr</span> <span class='str'>"datatypeLibrary"</span>
<a name="line-170"></a> <span class='varop'>`when`</span>
<a name="line-171"></a> <span class='layout'>(</span> <span class='varid'>isElem</span>
<a name="line-172"></a> <span class='varop'>>>></span>
<a name="line-173"></a> <span class='varid'>neg</span> <span class='layout'>(</span><span class='varid'>isRngData</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngValue</span><span class='layout'>)</span>
<a name="line-174"></a> <span class='varop'>>>></span>
<a name="line-175"></a> <span class='varid'>hasRngAttrDatatypeLibrary</span>
<a name="line-176"></a> <span class='layout'>)</span>
<a name="line-177"></a> <span class='layout'>)</span>
<a name="line-178"></a> <span class='varop'>>>></span>
<a name="line-179"></a> <span class='layout'>(</span> <span class='comment'>-- 4.4 For any value element that does not have a type attribute,</span>
<a name="line-180"></a> <span class='comment'>-- a type attribute is added with value token and the value of </span>
<a name="line-181"></a> <span class='comment'>-- the datatypeLibrary attribute is changed to the empty string.</span>
<a name="line-182"></a> <span class='layout'>(</span> <span class='varid'>addAttr</span> <span class='str'>"type"</span> <span class='str'>"token"</span>
<a name="line-183"></a> <span class='varop'>>>></span>
<a name="line-184"></a> <span class='varid'>addAttr</span> <span class='str'>"datatypeLibrary"</span> <span class='str'>""</span>
<a name="line-185"></a> <span class='layout'>)</span>
<a name="line-186"></a> <span class='varop'>`when`</span>
<a name="line-187"></a> <span class='layout'>(</span> <span class='varid'>isRngValue</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>hasRngAttrType</span> <span class='layout'>)</span>
<a name="line-188"></a> <span class='layout'>)</span>
<a name="line-189"></a> <span class='layout'>)</span>
<a name="line-190"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-191"></a> <span class='keyword'>where</span>
<a name="line-192"></a> <span class='varid'>processHref</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-193"></a> <span class='varid'>processHref</span> <span class='varid'>uri</span>
<a name="line-194"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span>
<a name="line-195"></a> <span class='layout'>(</span> <span class='varid'>choiceA</span>
<a name="line-196"></a> <span class='keyglyph'>[</span> <span class='layout'>(</span> <span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>hasAttr</span> <span class='str'>"xml:base"</span> <span class='layout'>)</span>
<a name="line-197"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>isExternalRefInclude</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrHref</span> <span class='layout'>)</span>
<a name="line-198"></a> <span class='layout'>(</span> <span class='comment'>-- The value of the href attribute is transformed by</span>
<a name="line-199"></a> <span class='comment'>-- escaping disallowed characters</span>
<a name="line-200"></a> <span class='layout'>(</span><span class='varid'>processAttrl</span> <span class='layout'>(</span><span class='varid'>changeAttrValue</span> <span class='varid'>escapeURI</span> <span class='varop'>`when`</span> <span class='varid'>isRngAttrHref</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-201"></a> <span class='varop'>>>></span> <span class='comment'>-- compute the new base uri from the old uri and the href attribute</span>
<a name="line-202"></a> <span class='layout'>(</span><span class='varid'>addAttr</span> <span class='str'>"href"</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>absURI</span> <span class='str'>"href"</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>absURI</span> <span class='str'>"xml:base"</span> <span class='varid'>uri</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-203"></a> <span class='varop'>>>></span>
<a name="line-204"></a> <span class='layout'>(</span><span class='varid'>processHref</span> <span class='varop'>$<</span> <span class='varid'>absURI</span> <span class='str'>"xml:base"</span> <span class='varid'>uri</span><span class='layout'>)</span>
<a name="line-205"></a> <span class='layout'>)</span> <span class='comment'>-- element without a href attribute, just compute the new base uri</span>
<a name="line-206"></a> <span class='layout'>(</span><span class='varid'>processHref</span> <span class='varop'>$<</span> <span class='varid'>absURI</span> <span class='str'>"xml:base"</span> <span class='varid'>uri</span><span class='layout'>)</span>
<a name="line-207"></a> <span class='layout'>)</span>
<a name="line-208"></a> <span class='layout'>,</span> <span class='layout'>(</span> <span class='varid'>isExternalRefInclude</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrHref</span> <span class='layout'>)</span>
<a name="line-209"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='comment'>-- The value of the href attribute is transformed by </span>
<a name="line-210"></a> <span class='comment'>-- escaping disallowed characters</span>
<a name="line-211"></a> <span class='layout'>(</span><span class='varid'>processAttrl</span> <span class='layout'>(</span><span class='varid'>changeAttrValue</span> <span class='varid'>escapeURI</span> <span class='varop'>`when`</span> <span class='varid'>isRngAttrHref</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-212"></a> <span class='varop'>>>></span>
<a name="line-213"></a> <span class='layout'>(</span><span class='varid'>addAttr</span> <span class='str'>"href"</span> <span class='varop'>$<</span> <span class='varid'>absURI</span> <span class='str'>"href"</span> <span class='varid'>uri</span><span class='layout'>)</span>
<a name="line-214"></a> <span class='layout'>)</span>
<a name="line-215"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-216"></a> <span class='conop'>:-></span> <span class='varid'>processHref</span> <span class='varid'>uri</span>
<a name="line-217"></a> <span class='keyglyph'>]</span>
<a name="line-218"></a> <span class='layout'>)</span>
<a name="line-219"></a> <span class='keyword'>where</span>
<a name="line-220"></a> <span class='varid'>absURI</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-221"></a> <span class='varid'>absURI</span> <span class='varid'>attrName</span> <span class='varid'>u</span>
<a name="line-222"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>getAttrValue</span> <span class='varid'>attrName</span>
<a name="line-223"></a> <span class='varop'>>>></span>
<a name="line-224"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>a</span> <span class='keyglyph'>-></span> <span class='varid'>fromMaybe</span> <span class='str'>""</span> <span class='layout'>(</span><span class='varid'>expandURIString</span> <span class='varid'>a</span> <span class='varid'>u</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-225"></a> <span class='varop'>>>></span> <span class='comment'>-- the uri should not have a fragment-identifier (4.5)</span>
<a name="line-226"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>arr</span> <span class='layout'>(</span><span class='varop'>++</span> <span class='str'>", it is not a valid URI for text/xml"</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-227"></a> <span class='varop'>`whenNot`</span>
<a name="line-228"></a> <span class='layout'>(</span><span class='varid'>getFragmentFromURI</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='varid'>null</span><span class='layout'>)</span>
<a name="line-229"></a> <span class='layout'>)</span>
<a name="line-230"></a> <span class='layout'>)</span>
<a name="line-231"></a>
<a name="line-232"></a> <span class='varid'>processEnvNames</span> <span class='keyglyph'>::</span> <span class='conid'>NsEnv</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-233"></a> <span class='varid'>processEnvNames</span> <span class='varid'>env</span>
<a name="line-234"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>replaceQNames</span> <span class='varid'>env</span> <span class='varop'>$<</span> <span class='varid'>getAttrValue</span> <span class='str'>"name"</span><span class='layout'>)</span>
<a name="line-235"></a> <span class='varop'>`when`</span>
<a name="line-236"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>isRngElement</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngAttribute</span><span class='layout'>)</span>
<a name="line-237"></a> <span class='varop'>>>></span>
<a name="line-238"></a> <span class='varid'>getRngAttrName</span>
<a name="line-239"></a> <span class='varop'>>>></span>
<a name="line-240"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varid'>elem</span> <span class='chr'>':'</span><span class='layout'>)</span>
<a name="line-241"></a> <span class='layout'>)</span>
<a name="line-242"></a> <span class='layout'>)</span>
<a name="line-243"></a> <span class='varop'>>>></span>
<a name="line-244"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>addAttrl</span> <span class='layout'>(</span><span class='varid'>getBaseURI</span> <span class='varop'>>>></span> <span class='varid'>createAttrL</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-245"></a> <span class='varop'>`when`</span>
<a name="line-246"></a> <span class='varid'>isRngValue</span>
<a name="line-247"></a> <span class='layout'>)</span>
<a name="line-248"></a> <span class='layout'>)</span>
<a name="line-249"></a> <span class='keyword'>where</span>
<a name="line-250"></a> <span class='varid'>createAttrL</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>String</span> <span class='conid'>XmlTree</span>
<a name="line-251"></a> <span class='varid'>createAttrL</span>
<a name="line-252"></a> <span class='keyglyph'>=</span> <span class='varid'>setBaseUri</span> <span class='varop'>&&&</span> <span class='varid'>constA</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='varid'>createAttr</span> <span class='varid'>env</span><span class='layout'>)</span> <span class='varop'>>>></span> <span class='varid'>arr2L</span> <span class='layout'>(</span><span class='conop'>:</span><span class='layout'>)</span>
<a name="line-253"></a> <span class='keyword'>where</span>
<a name="line-254"></a>
<a name="line-255"></a> <span class='varid'>createAttr</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>XName</span><span class='layout'>,</span> <span class='conid'>XName</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='conid'>XmlTree</span>
<a name="line-256"></a> <span class='varid'>createAttr</span> <span class='layout'>(</span><span class='varid'>pre</span><span class='layout'>,</span> <span class='varid'>uri</span><span class='layout'>)</span>
<a name="line-257"></a> <span class='keyglyph'>=</span> <span class='conid'>XN</span><span class='varop'>.</span><span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='varid'>nm</span><span class='layout'>)</span> <span class='keyglyph'>[</span><span class='conid'>XN</span><span class='varop'>.</span><span class='varid'>mkText</span> <span class='layout'>(</span><span class='varid'>show</span> <span class='varid'>uri</span><span class='layout'>)</span><span class='keyglyph'>]</span>
<a name="line-258"></a> <span class='keyword'>where</span>
<a name="line-259"></a> <span class='varid'>nm</span> <span class='keyglyph'>|</span> <span class='varid'>isNullXName</span> <span class='varid'>pre</span> <span class='keyglyph'>=</span> <span class='str'>"RelaxContextDefault"</span>
<a name="line-260"></a> <span class='keyglyph'>|</span> <span class='varid'>otherwise</span> <span class='keyglyph'>=</span> <span class='varid'>contextAttributes</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>pre</span>
<a name="line-261"></a>
<a name="line-262"></a> <span class='varid'>setBaseUri</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>String</span> <span class='conid'>XmlTree</span>
<a name="line-263"></a> <span class='varid'>setBaseUri</span> <span class='keyglyph'>=</span> <span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='varid'>contextBaseAttr</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varop'>$<</span> <span class='varid'>this</span><span class='layout'>)</span>
<a name="line-264"></a>
<a name="line-265"></a> <span class='varid'>replaceQNames</span> <span class='keyglyph'>::</span> <span class='conid'>NsEnv</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-266"></a> <span class='varid'>replaceQNames</span> <span class='varid'>e</span> <span class='varid'>name</span>
<a name="line-267"></a> <span class='keyglyph'>|</span> <span class='varid'>isNothing</span> <span class='varid'>uri</span>
<a name="line-268"></a> <span class='keyglyph'>=</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='layout'>(</span> <span class='str'>"No Namespace-Mapping for the prefix "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>pre</span> <span class='varop'>++</span>
<a name="line-269"></a> <span class='str'>" in the Context of Element: "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>name</span>
<a name="line-270"></a> <span class='layout'>)</span>
<a name="line-271"></a> <span class='keyglyph'>|</span> <span class='varid'>otherwise</span>
<a name="line-272"></a> <span class='keyglyph'>=</span> <span class='varid'>addAttr</span> <span class='str'>"name"</span> <span class='layout'>(</span> <span class='str'>"{"</span> <span class='varop'>++</span> <span class='layout'>(</span><span class='varid'>show</span> <span class='varop'>.</span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>uri</span><span class='layout'>)</span> <span class='varop'>++</span> <span class='str'>"}"</span> <span class='varop'>++</span> <span class='varid'>local</span> <span class='layout'>)</span>
<a name="line-273"></a> <span class='keyword'>where</span>
<a name="line-274"></a> <span class='layout'>(</span><span class='varid'>pre</span><span class='layout'>,</span> <span class='varid'>local'</span><span class='layout'>)</span> <span class='keyglyph'>=</span> <span class='varid'>span</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='chr'>':'</span><span class='layout'>)</span> <span class='varid'>name</span>
<a name="line-275"></a> <span class='varid'>local</span> <span class='keyglyph'>=</span> <span class='varid'>tail</span> <span class='varid'>local'</span>
<a name="line-276"></a> <span class='varid'>uri</span> <span class='keyglyph'>::</span> <span class='conid'>Maybe</span> <span class='conid'>XName</span>
<a name="line-277"></a> <span class='varid'>uri</span> <span class='keyglyph'>=</span> <span class='varid'>lookup</span> <span class='layout'>(</span><span class='varid'>newXName</span> <span class='varid'>pre</span><span class='layout'>)</span> <span class='varid'>e</span>
<a name="line-278"></a>
<a name="line-279"></a> <span class='comment'>-- The value of the added datatypeLibrary attribute is the value of the </span>
<a name="line-280"></a> <span class='comment'>-- datatypeLibrary attribute of the nearest ancestor element that </span>
<a name="line-281"></a> <span class='comment'>-- has a datatypeLibrary attribute, or the empty string </span>
<a name="line-282"></a> <span class='comment'>-- if there is no such ancestor.</span>
<a name="line-283"></a> <span class='varid'>processdatatypeLib</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-284"></a> <span class='varid'>processdatatypeLib</span> <span class='varid'>lib</span>
<a name="line-285"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span> <span class='varop'>$</span>
<a name="line-286"></a> <span class='varid'>choiceA</span>
<a name="line-287"></a> <span class='keyglyph'>[</span> <span class='layout'>(</span> <span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrDatatypeLibrary</span>
<a name="line-288"></a> <span class='comment'>-- set the new datatypeLibrary value</span>
<a name="line-289"></a> <span class='layout'>)</span>
<a name="line-290"></a> <span class='conop'>:-></span>
<a name="line-291"></a> <span class='layout'>(</span> <span class='varid'>processdatatypeLib</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrDatatypeLibrary</span> <span class='layout'>)</span>
<a name="line-292"></a> <span class='layout'>,</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>isRngData</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngValue</span><span class='layout'>)</span>
<a name="line-293"></a> <span class='varop'>>>></span>
<a name="line-294"></a> <span class='varid'>neg</span> <span class='varid'>hasRngAttrDatatypeLibrary</span>
<a name="line-295"></a> <span class='comment'>-- add a datatypeLibrary attribute</span>
<a name="line-296"></a> <span class='layout'>)</span>
<a name="line-297"></a> <span class='conop'>:-></span>
<a name="line-298"></a> <span class='layout'>(</span> <span class='varid'>addAttr</span> <span class='str'>"datatypeLibrary"</span> <span class='varid'>lib</span> <span class='varop'>>>></span> <span class='varid'>processdatatypeLib</span> <span class='varid'>lib</span> <span class='layout'>)</span>
<a name="line-299"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-300"></a> <span class='conop'>:-></span>
<a name="line-301"></a> <span class='varid'>processdatatypeLib</span> <span class='varid'>lib</span>
<a name="line-302"></a> <span class='keyglyph'>]</span>
<a name="line-303"></a>
<a name="line-304"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-305"></a>
<a name="line-306"></a>
<a name="line-307"></a><span class='comment'>{-
<a name="line-308"></a>- 4.5. href attribute
<a name="line-309"></a> - see simplificationStep1
<a name="line-310"></a>- 4.6. externalRef element
<a name="line-311"></a> - An element is constructed using the URI reference
<a name="line-312"></a> that is the value of href attribute
<a name="line-313"></a> - This element must match the syntax for pattern.
<a name="line-314"></a> - The element is transformed by recursively applying the rules from
<a name="line-315"></a> this subsection and from previous subsections of this section.
<a name="line-316"></a> - This must not result in a loop.
<a name="line-317"></a> - Any ns attribute on the externalRef element is transferred
<a name="line-318"></a> to the referenced element if the referenced element does
<a name="line-319"></a> not already have an ns attribute.
<a name="line-320"></a> - The externalRef element is then replaced by the referenced element.
<a name="line-321"></a>- 4.7. include element
<a name="line-322"></a> - An element is constructed using the URI reference that is the
<a name="line-323"></a> value of href attribute
<a name="line-324"></a> - This element must be a grammar element, matching the syntax for grammar.
<a name="line-325"></a> - This grammar element is transformed by recursively applying the rules
<a name="line-326"></a> from this subsection and from previous subsections of this section.
<a name="line-327"></a> - This must not result in a loop.
<a name="line-328"></a>
<a name="line-329"></a> - If the include element has a start component, then the grammar element
<a name="line-330"></a> must have a start component.
<a name="line-331"></a> - If the include element has a start component, then all start components
<a name="line-332"></a> are removed from the grammar element.
<a name="line-333"></a> - If the include element has a define component, then the grammar element
<a name="line-334"></a> must have a define component with the same name.
<a name="line-335"></a> - For every define component of the include element, all define components
<a name="line-336"></a> with the same name are removed from the grammar element.
<a name="line-337"></a>
<a name="line-338"></a> - The include element is transformed into a div element.
<a name="line-339"></a> - The attributes of the div element are the attributes of the
<a name="line-340"></a> include element other than the href attribute.
<a name="line-341"></a> - The children of the div element are the grammar element
<a name="line-342"></a> - The grammar element is then renamed to div.
<a name="line-343"></a>-}</span>
<a name="line-344"></a>
<a name="line-345"></a><a name="simplificationStep2"></a><span class='definition'>simplificationStep2</span> <span class='keyglyph'>::</span> <span class='conid'>Attributes</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>Uri</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>Uri</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-346"></a><span class='definition'>simplificationStep2</span> <span class='varid'>readOptions</span> <span class='varid'>validateExternalRef</span> <span class='varid'>validateInclude</span> <span class='varid'>extHRefs</span> <span class='varid'>includeHRefs</span> <span class='keyglyph'>=</span>
<a name="line-347"></a> <span class='layout'>(</span> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-348"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>importExternalRef</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getRngAttrNs</span> <span class='varop'>&&&</span> <span class='varid'>getRngAttrHref</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-349"></a> <span class='varop'>`when`</span>
<a name="line-350"></a> <span class='varid'>isRngExternalRef</span>
<a name="line-351"></a> <span class='layout'>)</span>
<a name="line-352"></a> <span class='varop'>>>></span>
<a name="line-353"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>importInclude</span> <span class='varop'>$<</span> <span class='varid'>getAttrValue</span> <span class='str'>"href"</span><span class='layout'>)</span>
<a name="line-354"></a> <span class='varop'>`when`</span>
<a name="line-355"></a> <span class='varid'>isRngInclude</span>
<a name="line-356"></a> <span class='layout'>)</span>
<a name="line-357"></a> <span class='layout'>)</span>
<a name="line-358"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-359"></a> <span class='keyword'>where</span>
<a name="line-360"></a> <span class='varid'>importExternalRef</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-361"></a> <span class='varid'>importExternalRef</span> <span class='varid'>ns</span> <span class='varid'>href</span>
<a name="line-362"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='comment'>-- test whether the referenced schema exists</span>
<a name="line-363"></a> <span class='varid'>neg</span> <span class='varop'>$</span> <span class='varid'>constA</span> <span class='varid'>href</span> <span class='varop'>>>></span> <span class='varid'>getPathFromURI</span> <span class='varop'>>>></span> <span class='varid'>isIOA</span> <span class='varid'>doesFileExist</span>
<a name="line-364"></a> <span class='layout'>)</span>
<a name="line-365"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-366"></a> <span class='layout'>(</span> <span class='str'>"Can't read "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span>
<a name="line-367"></a> <span class='str'>", referenced in externalRef-Pattern"</span>
<a name="line-368"></a> <span class='layout'>)</span>
<a name="line-369"></a> <span class='layout'>)</span>
<a name="line-370"></a> <span class='layout'>(</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>href</span> <span class='varid'>extHRefs</span><span class='layout'>)</span>
<a name="line-371"></a> <span class='comment'>-- if the referenced name already exists in the list of processed ref attributes</span>
<a name="line-372"></a> <span class='comment'>-- we have found a loop</span>
<a name="line-373"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-374"></a> <span class='layout'>(</span> <span class='str'>"loop in externalRef-Pattern, "</span> <span class='varop'>++</span>
<a name="line-375"></a> <span class='varid'>formatStringListArr</span> <span class='layout'>(</span><span class='varid'>reverse</span> <span class='varop'>$</span> <span class='varid'>href</span><span class='conop'>:</span><span class='varid'>extHRefs</span><span class='layout'>)</span>
<a name="line-376"></a> <span class='layout'>)</span>
<a name="line-377"></a> <span class='layout'>)</span>
<a name="line-378"></a> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='keyword'>if</span> <span class='varid'>validateExternalRef</span> <span class='comment'>-- if validation parameters are set</span>
<a name="line-379"></a> <span class='keyword'>then</span> <span class='varid'>validateDocWithRelax</span> <span class='conid'>S</span><span class='varop'>.</span><span class='varid'>relaxSchemaArrow</span> <span class='conid'>[]</span> <span class='varid'>href</span> <span class='comment'>-- the referenced schema is validated with respect to</span>
<a name="line-380"></a> <span class='keyword'>else</span> <span class='varid'>none</span> <span class='comment'>-- the Relax NG spezification</span>
<a name="line-381"></a> <span class='layout'>)</span>
<a name="line-382"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-383"></a> <span class='layout'>(</span> <span class='str'>"The content of the schema "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span>
<a name="line-384"></a> <span class='str'>", referenced in externalRef does not "</span> <span class='varop'>++</span>
<a name="line-385"></a> <span class='str'>"match the syntax for pattern"</span>
<a name="line-386"></a> <span class='layout'>)</span>
<a name="line-387"></a> <span class='layout'>)</span>
<a name="line-388"></a> <span class='layout'>(</span> <span class='varid'>readForRelax</span> <span class='varid'>readOptions</span> <span class='varid'>href</span>
<a name="line-389"></a> <span class='varop'>>>></span>
<a name="line-390"></a> <span class='varid'>simplificationStep1</span> <span class='comment'>-- perform the transformations from previous steps</span>
<a name="line-391"></a> <span class='varop'>>>></span>
<a name="line-392"></a> <span class='varid'>simplificationStep2</span> <span class='varid'>readOptions</span> <span class='varid'>validateExternalRef</span> <span class='varid'>validateInclude</span> <span class='layout'>(</span><span class='varid'>href</span><span class='conop'>:</span><span class='varid'>extHRefs</span><span class='layout'>)</span> <span class='varid'>includeHRefs</span>
<a name="line-393"></a> <span class='varop'>>>></span>
<a name="line-394"></a> <span class='varid'>getChildren</span> <span class='comment'>-- remove the root node</span>
<a name="line-395"></a> <span class='varop'>>>></span>
<a name="line-396"></a> <span class='layout'>(</span> <span class='comment'>-- Any ns attribute on the externalRef element</span>
<a name="line-397"></a> <span class='comment'>-- is transferred to the referenced element</span>
<a name="line-398"></a> <span class='varid'>addAttr</span> <span class='str'>"ns"</span> <span class='varid'>ns</span>
<a name="line-399"></a> <span class='varop'>`when`</span>
<a name="line-400"></a> <span class='layout'>(</span><span class='varid'>getRngAttrNs</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>a</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='varop'>==</span> <span class='str'>""</span> <span class='varop'>&&</span> <span class='varid'>ns</span> <span class='varop'>/=</span> <span class='str'>""</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-401"></a> <span class='layout'>)</span>
<a name="line-402"></a> <span class='layout'>)</span>
<a name="line-403"></a> <span class='layout'>)</span>
<a name="line-404"></a> <span class='layout'>)</span>
<a name="line-405"></a>
<a name="line-406"></a> <span class='varid'>importInclude</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-407"></a> <span class='varid'>importInclude</span> <span class='varid'>href</span>
<a name="line-408"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='comment'>-- test whether the referenced schema exists</span>
<a name="line-409"></a> <span class='varid'>neg</span> <span class='varop'>$</span> <span class='varid'>constA</span> <span class='varid'>href</span> <span class='varop'>>>></span> <span class='varid'>getPathFromURI</span> <span class='varop'>>>></span> <span class='varid'>isIOA</span> <span class='varid'>doesFileExist</span>
<a name="line-410"></a> <span class='layout'>)</span>
<a name="line-411"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-412"></a> <span class='layout'>(</span> <span class='str'>"Can't read "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span>
<a name="line-413"></a> <span class='str'>", referenced in include-Pattern"</span>
<a name="line-414"></a> <span class='layout'>)</span>
<a name="line-415"></a> <span class='layout'>)</span>
<a name="line-416"></a> <span class='layout'>(</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>href</span> <span class='varid'>includeHRefs</span><span class='layout'>)</span>
<a name="line-417"></a> <span class='comment'>-- if the referenced name still exists in the list of processed</span>
<a name="line-418"></a> <span class='comment'>-- ref attributes we have found a loop</span>
<a name="line-419"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-420"></a> <span class='layout'>(</span> <span class='str'>"loop in include-Pattern, "</span> <span class='varop'>++</span>
<a name="line-421"></a> <span class='varid'>formatStringListArr</span> <span class='layout'>(</span><span class='varid'>reverse</span> <span class='varop'>$</span> <span class='varid'>href</span><span class='conop'>:</span><span class='varid'>includeHRefs</span><span class='layout'>)</span>
<a name="line-422"></a> <span class='layout'>)</span>
<a name="line-423"></a> <span class='layout'>)</span>
<a name="line-424"></a> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='keyword'>if</span> <span class='varid'>validateInclude</span> <span class='comment'>-- if the parameter is set</span>
<a name="line-425"></a> <span class='keyword'>then</span> <span class='varid'>validateDocWithRelax</span> <span class='conid'>SG</span><span class='varop'>.</span><span class='varid'>relaxSchemaArrow</span> <span class='conid'>[]</span> <span class='varid'>href</span> <span class='comment'>-- the referenced schema is validated with respect to</span>
<a name="line-426"></a> <span class='keyword'>else</span> <span class='varid'>none</span> <span class='comment'>-- the Relax NG grammar element</span>
<a name="line-427"></a> <span class='layout'>)</span>
<a name="line-428"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-429"></a> <span class='layout'>(</span> <span class='str'>"The content of the schema "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span>
<a name="line-430"></a> <span class='str'>", referenced in include does not match "</span> <span class='varop'>++</span>
<a name="line-431"></a> <span class='str'>"the syntax for grammar"</span>
<a name="line-432"></a> <span class='layout'>)</span>
<a name="line-433"></a> <span class='layout'>)</span>
<a name="line-434"></a> <span class='layout'>(</span> <span class='varid'>processInclude</span> <span class='varid'>href</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>readForRelax</span> <span class='varid'>readOptions</span> <span class='varid'>href</span>
<a name="line-435"></a> <span class='varop'>>>></span>
<a name="line-436"></a> <span class='varid'>simplificationStep1</span> <span class='comment'>-- perform the transformations from previous steps</span>
<a name="line-437"></a> <span class='varop'>>>></span>
<a name="line-438"></a> <span class='varid'>simplificationStep2</span> <span class='varid'>readOptions</span> <span class='varid'>validateExternalRef</span> <span class='varid'>validateInclude</span> <span class='varid'>extHRefs</span> <span class='layout'>(</span><span class='varid'>href</span><span class='conop'>:</span><span class='varid'>includeHRefs</span><span class='layout'>)</span>
<a name="line-439"></a> <span class='varop'>>>></span>
<a name="line-440"></a> <span class='varid'>getChildren</span> <span class='comment'>-- remove the root node</span>
<a name="line-441"></a> <span class='layout'>)</span>
<a name="line-442"></a> <span class='layout'>)</span>
<a name="line-443"></a> <span class='layout'>)</span>
<a name="line-444"></a> <span class='layout'>)</span>
<a name="line-445"></a>
<a name="line-446"></a> <span class='varid'>processInclude</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-447"></a> <span class='varid'>processInclude</span> <span class='varid'>href</span> <span class='varid'>newDoc</span>
<a name="line-448"></a> <span class='keyglyph'>=</span> <span class='comment'>-- The include element is transformed into a div element.</span>
<a name="line-449"></a> <span class='varid'>setRngNameDiv</span>
<a name="line-450"></a> <span class='varop'>>>></span>
<a name="line-451"></a> <span class='comment'>-- The attributes of the div element are the attributes of </span>
<a name="line-452"></a> <span class='comment'>-- the include element other than the href attribute.</span>
<a name="line-453"></a> <span class='varid'>removeAttr</span> <span class='str'>"href"</span>
<a name="line-454"></a> <span class='varop'>>>></span>
<a name="line-455"></a> <span class='varid'>checkInclude</span> <span class='varid'>href</span> <span class='varid'>newDoc</span>
<a name="line-456"></a>
<a name="line-457"></a>
<a name="line-458"></a> <span class='varid'>insertNewDoc</span> <span class='keyglyph'>::</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-459"></a> <span class='varid'>insertNewDoc</span> <span class='varid'>newDoc</span> <span class='varid'>hasStart</span> <span class='varid'>defNames</span>
<a name="line-460"></a> <span class='keyglyph'>=</span> <span class='varid'>insertChildrenAt</span> <span class='num'>0</span> <span class='varop'>$</span>
<a name="line-461"></a> <span class='varid'>constA</span> <span class='varid'>newDoc</span>
<a name="line-462"></a> <span class='varop'>>>></span>
<a name="line-463"></a> <span class='comment'>-- If the include element has a start component, then all start components</span>
<a name="line-464"></a> <span class='comment'>-- are removed from the grammar element. </span>
<a name="line-465"></a> <span class='layout'>(</span><span class='varid'>removeStartComponent</span> <span class='varop'>`whenP`</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varid'>hasStart</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-466"></a> <span class='varop'>>>></span>
<a name="line-467"></a> <span class='comment'>-- For every define component of the include element, all define components</span>
<a name="line-468"></a> <span class='comment'>-- with the same name are removed from the grammar element.</span>
<a name="line-469"></a> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>removeDefineComponent</span> <span class='varid'>defNames</span><span class='layout'>)</span> <span class='varop'>`whenP`</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>defNames</span> <span class='varop'>/=</span> <span class='conid'>[]</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-470"></a> <span class='varop'>>>></span>
<a name="line-471"></a> <span class='comment'>-- The grammar element is then renamed to div.</span>
<a name="line-472"></a> <span class='varid'>setRngNameDiv</span>
<a name="line-473"></a>
<a name="line-474"></a>
<a name="line-475"></a> <span class='varid'>checkInclude</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-476"></a> <span class='varid'>checkInclude</span> <span class='varid'>href</span> <span class='varid'>newDoc</span>
<a name="line-477"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='comment'>-- If the include element has a start component, then the grammar element</span>
<a name="line-478"></a> <span class='comment'>-- must have a start component.</span>
<a name="line-479"></a> <span class='varid'>hasStartComponent</span> <span class='varop'>&&&</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='varid'>newDoc</span> <span class='varop'>>>></span> <span class='varid'>hasStartComponent</span><span class='layout'>)</span>
<a name="line-480"></a> <span class='varop'>>>></span>
<a name="line-481"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='varid'>a</span><span class='layout'>,</span> <span class='varid'>b</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='keyword'>if</span> <span class='varid'>a</span> <span class='keyword'>then</span> <span class='varid'>b</span> <span class='keyword'>else</span> <span class='conid'>True</span><span class='layout'>)</span>
<a name="line-482"></a> <span class='layout'>)</span>
<a name="line-483"></a> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='comment'>-- If the include element has a define component, then the grammar element</span>
<a name="line-484"></a> <span class='comment'>-- must have a define component with the same name.</span>
<a name="line-485"></a> <span class='varid'>getDefineComponents</span> <span class='varop'>&&&</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='varid'>newDoc</span> <span class='varop'>>>></span> <span class='varid'>getDefineComponents</span><span class='layout'>)</span>
<a name="line-486"></a> <span class='varop'>>>></span>
<a name="line-487"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='varid'>a</span><span class='layout'>,</span> <span class='varid'>b</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>diff</span> <span class='varid'>a</span> <span class='varid'>b</span><span class='layout'>)</span> <span class='varop'>==</span> <span class='conid'>[]</span><span class='layout'>)</span>
<a name="line-488"></a> <span class='layout'>)</span>
<a name="line-489"></a> <span class='layout'>(</span><span class='varid'>insertNewDoc</span> <span class='varid'>newDoc</span> <span class='varop'>$<<</span> <span class='varid'>hasStartComponent</span> <span class='varop'>&&&</span> <span class='varid'>getDefineComponents</span><span class='layout'>)</span>
<a name="line-490"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-491"></a> <span class='layout'>(</span> <span class='str'>"Define-pattern missing in schema "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span>
<a name="line-492"></a> <span class='str'>", referenced in include-pattern"</span>
<a name="line-493"></a> <span class='layout'>)</span>
<a name="line-494"></a> <span class='layout'>)</span>
<a name="line-495"></a> <span class='layout'>)</span>
<a name="line-496"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-497"></a> <span class='layout'>(</span> <span class='str'>"Grammar-element without a start-pattern in schema "</span> <span class='varop'>++</span>
<a name="line-498"></a> <span class='varid'>show</span> <span class='varid'>href</span> <span class='varop'>++</span> <span class='str'>", referenced in include-pattern"</span>
<a name="line-499"></a> <span class='layout'>)</span>
<a name="line-500"></a> <span class='layout'>)</span>
<a name="line-501"></a> <span class='keyword'>where</span>
<a name="line-502"></a> <span class='varid'>diff</span> <span class='varid'>a</span> <span class='varid'>b</span> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>noDoubles</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='varop'>\\</span> <span class='layout'>(</span><span class='varid'>noDoubles</span> <span class='varid'>b</span><span class='layout'>)</span>
<a name="line-503"></a>
<a name="line-504"></a> <span class='varid'>removeStartComponent</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-505"></a> <span class='varid'>removeStartComponent</span>
<a name="line-506"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span> <span class='varop'>$</span>
<a name="line-507"></a> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-508"></a> <span class='varid'>isRngStart</span> <span class='conop'>:-></span> <span class='varid'>none</span><span class='layout'>,</span>
<a name="line-509"></a> <span class='varid'>isRngDiv</span> <span class='conop'>:-></span> <span class='varid'>removeStartComponent</span><span class='layout'>,</span>
<a name="line-510"></a> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-511"></a> <span class='keyglyph'>]</span>
<a name="line-512"></a>
<a name="line-513"></a> <span class='varid'>removeDefineComponent</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-514"></a> <span class='varid'>removeDefineComponent</span> <span class='varid'>defNames</span>
<a name="line-515"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span> <span class='varop'>$</span>
<a name="line-516"></a> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-517"></a> <span class='layout'>(</span> <span class='varid'>isRngDefine</span>
<a name="line-518"></a> <span class='varop'>>>></span>
<a name="line-519"></a> <span class='varid'>getRngAttrName</span>
<a name="line-520"></a> <span class='varop'>>>></span>
<a name="line-521"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>elem</span> <span class='varid'>n</span> <span class='varid'>defNames</span><span class='layout'>)</span><span class='layout'>)</span> <span class='conop'>:-></span> <span class='varid'>none</span><span class='layout'>,</span>
<a name="line-522"></a> <span class='layout'>(</span><span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>getName</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='str'>"div"</span><span class='layout'>)</span><span class='layout'>)</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>removeDefineComponent</span> <span class='varid'>defNames</span><span class='layout'>)</span><span class='layout'>,</span>
<a name="line-523"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='str'>"foo"</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='str'>"foo"</span><span class='layout'>)</span><span class='layout'>)</span> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-524"></a> <span class='keyglyph'>]</span>
<a name="line-525"></a>
<a name="line-526"></a> <span class='varid'>hasStartComponent</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>Bool</span>
<a name="line-527"></a> <span class='varid'>hasStartComponent</span> <span class='keyglyph'>=</span> <span class='varid'>listA</span> <span class='varid'>hasStartComponent'</span> <span class='varop'>>>></span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='varid'>any</span> <span class='varid'>id</span><span class='layout'>)</span>
<a name="line-528"></a> <span class='keyword'>where</span>
<a name="line-529"></a> <span class='varid'>hasStartComponent'</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>Bool</span>
<a name="line-530"></a> <span class='varid'>hasStartComponent'</span>
<a name="line-531"></a> <span class='keyglyph'>=</span> <span class='varid'>getChildren</span>
<a name="line-532"></a> <span class='varop'>>>></span>
<a name="line-533"></a> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-534"></a> <span class='varid'>isRngStart</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>True</span><span class='layout'>)</span><span class='layout'>,</span>
<a name="line-535"></a> <span class='varid'>isRngDiv</span> <span class='conop'>:-></span> <span class='varid'>hasStartComponent'</span><span class='layout'>,</span>
<a name="line-536"></a> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>False</span><span class='layout'>)</span>
<a name="line-537"></a> <span class='keyglyph'>]</span>
<a name="line-538"></a>
<a name="line-539"></a> <span class='varid'>getDefineComponents</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span>
<a name="line-540"></a> <span class='varid'>getDefineComponents</span> <span class='keyglyph'>=</span> <span class='varid'>listA</span> <span class='varid'>getDefineComponents'</span>
<a name="line-541"></a> <span class='varop'>>>></span>
<a name="line-542"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>xs</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='varid'>x</span> <span class='keyglyph'>|</span> <span class='varid'>x</span> <span class='keyglyph'><-</span> <span class='varid'>xs</span><span class='layout'>,</span> <span class='varid'>x</span> <span class='varop'>/=</span> <span class='str'>""</span><span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-543"></a> <span class='keyword'>where</span>
<a name="line-544"></a> <span class='varid'>getDefineComponents'</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-545"></a> <span class='varid'>getDefineComponents'</span>
<a name="line-546"></a> <span class='keyglyph'>=</span> <span class='varid'>getChildren</span>
<a name="line-547"></a> <span class='varop'>>>></span>
<a name="line-548"></a> <span class='varid'>choiceA</span>
<a name="line-549"></a> <span class='keyglyph'>[</span> <span class='varid'>isRngDefine</span> <span class='conop'>:-></span> <span class='varid'>getRngAttrName</span>
<a name="line-550"></a> <span class='layout'>,</span> <span class='varid'>isRngDiv</span> <span class='conop'>:-></span> <span class='varid'>getDefineComponents'</span>
<a name="line-551"></a> <span class='layout'>,</span> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='varid'>constA</span> <span class='str'>""</span>
<a name="line-552"></a> <span class='keyglyph'>]</span>
<a name="line-553"></a>
<a name="line-554"></a>
<a name="line-555"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-556"></a>
<a name="line-557"></a>
<a name="line-558"></a><a name="simplificationStep3"></a><span class='comment'>{-
<a name="line-559"></a>- 4.8. name attribute of element and attribute elements
<a name="line-560"></a> - The name attribute on an element or attribute element
<a name="line-561"></a> is transformed into a name child element.
<a name="line-562"></a> - If an attribute element has a name attribute but no ns attribute,
<a name="line-563"></a> then an ns="" attribute is added to the name child element.
<a name="line-564"></a>- 4.9. ns attribute
<a name="line-565"></a> - For any name, nsName or value element that does not have
<a name="line-566"></a> an ns attribute, an ns attribute is added.
<a name="line-567"></a> - any ns attribute that is on an element other than name,
<a name="line-568"></a> nsName or value is removed.
<a name="line-569"></a>- 4.10. QNames
<a name="line-570"></a> - For any name element containing a prefix, the prefix is removed
<a name="line-571"></a> and an ns attribute is added replacing any existing ns attribute.
<a name="line-572"></a> - The value of the added ns attribute is the value to which the
<a name="line-573"></a> namespace map of the context of the name element maps the prefix.
<a name="line-574"></a> - The context must have a mapping for the prefix.
<a name="line-575"></a>-}</span>
<a name="line-576"></a><span class='definition'>simplificationStep3</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-577"></a><span class='definition'>simplificationStep3</span> <span class='keyglyph'>=</span>
<a name="line-578"></a> <span class='layout'>(</span> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-579"></a> <span class='layout'>(</span> <span class='comment'>-- 4.8 The name attribute on an element or attribute</span>
<a name="line-580"></a> <span class='comment'>-- element is transformed into a name child element</span>
<a name="line-581"></a> <span class='layout'>(</span> <span class='varid'>insertChildrenAt</span> <span class='num'>0</span> <span class='layout'>(</span><span class='varid'>mkRngName</span> <span class='varid'>none</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrName</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-582"></a> <span class='layout'>)</span>
<a name="line-583"></a> <span class='varop'>>>></span>
<a name="line-584"></a> <span class='layout'>(</span> <span class='comment'>-- 4.8 If an attribute element has a name attribute but no ns attribute,</span>
<a name="line-585"></a> <span class='comment'>-- then an ns="" attribute is added to the name child element</span>
<a name="line-586"></a> <span class='layout'>(</span><span class='varid'>processChildren</span> <span class='layout'>(</span><span class='varid'>addAttr</span> <span class='str'>"ns"</span> <span class='str'>""</span> <span class='varop'>`when`</span> <span class='varid'>isRngName</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-587"></a> <span class='varop'>`when`</span>
<a name="line-588"></a> <span class='layout'>(</span><span class='varid'>isRngAttribute</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrName</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>hasRngAttrNs</span><span class='layout'>)</span>
<a name="line-589"></a> <span class='layout'>)</span>
<a name="line-590"></a> <span class='varop'>>>></span>
<a name="line-591"></a> <span class='varid'>removeAttr</span> <span class='str'>"name"</span>
<a name="line-592"></a> <span class='layout'>)</span>
<a name="line-593"></a> <span class='varop'>`when`</span>
<a name="line-594"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>isRngElement</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngAttribute</span><span class='layout'>)</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrName</span> <span class='layout'>)</span>
<a name="line-595"></a> <span class='layout'>)</span>
<a name="line-596"></a> <span class='varop'>>>></span>
<a name="line-597"></a> <span class='comment'>-- 4.9 For any name, nsName or value element that does not have </span>
<a name="line-598"></a> <span class='comment'>-- an ns attribute, an ns attribute is added.</span>
<a name="line-599"></a> <span class='varid'>processnsAttribute</span> <span class='str'>""</span>
<a name="line-600"></a> <span class='varop'>>>></span>
<a name="line-601"></a> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-602"></a> <span class='layout'>(</span> <span class='comment'>-- 4.9 any ns attribute that is on an element other than name, </span>
<a name="line-603"></a> <span class='comment'>-- nsName or value is removed.</span>
<a name="line-604"></a> <span class='layout'>(</span><span class='varid'>removeAttr</span> <span class='str'>"ns"</span><span class='layout'>)</span>
<a name="line-605"></a> <span class='varop'>`when`</span>
<a name="line-606"></a> <span class='layout'>(</span><span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='layout'>(</span><span class='varid'>isRngName</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngNsName</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngValue</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-607"></a> <span class='layout'>)</span>
<a name="line-608"></a> <span class='varop'>>>></span>
<a name="line-609"></a> <span class='layout'>(</span> <span class='comment'>-- 4.10 For any name element containing a prefix, the prefix is removed and an ns attribute </span>
<a name="line-610"></a> <span class='comment'>-- is added replacing any existing ns attribute.</span>
<a name="line-611"></a> <span class='layout'>(</span><span class='varid'>replaceNameAttr</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isText</span> <span class='varop'>>>></span> <span class='varid'>getText</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-612"></a> <span class='varop'>`when`</span>
<a name="line-613"></a> <span class='varid'>isRngName</span>
<a name="line-614"></a> <span class='layout'>)</span>
<a name="line-615"></a> <span class='layout'>)</span>
<a name="line-616"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-617"></a> <span class='keyword'>where</span>
<a name="line-618"></a> <span class='varid'>replaceNameAttr</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-619"></a> <span class='varid'>replaceNameAttr</span> <span class='varid'>name</span>
<a name="line-620"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>addAttr</span> <span class='str'>"ns"</span> <span class='varid'>pre</span> <span class='varop'>>>></span> <span class='varid'>processChildren</span> <span class='layout'>(</span><span class='varid'>changeText</span> <span class='varop'>$</span> <span class='varid'>const</span> <span class='varid'>local</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-621"></a> <span class='varop'>`whenP`</span>
<a name="line-622"></a> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='chr'>'}'</span> <span class='varid'>name</span><span class='layout'>)</span>
<a name="line-623"></a> <span class='keyword'>where</span>
<a name="line-624"></a> <span class='layout'>(</span><span class='varid'>pre'</span><span class='layout'>,</span> <span class='varid'>local'</span><span class='layout'>)</span> <span class='keyglyph'>=</span> <span class='varid'>span</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='chr'>'}'</span><span class='layout'>)</span> <span class='varid'>name</span>
<a name="line-625"></a> <span class='varid'>pre</span> <span class='keyglyph'>=</span> <span class='varid'>tail</span> <span class='varid'>pre'</span>
<a name="line-626"></a> <span class='varid'>local</span> <span class='keyglyph'>=</span> <span class='varid'>tail</span> <span class='varid'>local'</span>
<a name="line-627"></a>
<a name="line-628"></a> <span class='varid'>processnsAttribute</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-629"></a> <span class='varid'>processnsAttribute</span> <span class='varid'>name</span>
<a name="line-630"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span> <span class='varop'>$</span>
<a name="line-631"></a> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-632"></a> <span class='comment'>-- set the new ns attribute value</span>
<a name="line-633"></a> <span class='layout'>(</span><span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrNs</span><span class='layout'>)</span>
<a name="line-634"></a> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>processnsAttribute</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrNs</span><span class='layout'>)</span><span class='layout'>,</span>
<a name="line-635"></a> <span class='comment'>-- For any name, nsName or value element that does not have</span>
<a name="line-636"></a> <span class='comment'>-- an ns attribute, an ns attribute is added. </span>
<a name="line-637"></a> <span class='layout'>(</span> <span class='varid'>isNameNsNameValue</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>hasRngAttrNs</span><span class='layout'>)</span>
<a name="line-638"></a> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>addAttr</span> <span class='str'>"ns"</span> <span class='varid'>name</span> <span class='varop'>>>></span> <span class='varid'>processnsAttribute</span> <span class='varid'>name</span><span class='layout'>)</span><span class='layout'>,</span>
<a name="line-639"></a> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>processnsAttribute</span> <span class='varid'>name</span><span class='layout'>)</span>
<a name="line-640"></a> <span class='keyglyph'>]</span>
<a name="line-641"></a>
<a name="line-642"></a>
<a name="line-643"></a><span class='comment'>-- ------------------------------------------------------------ </span>
<a name="line-644"></a>
<a name="line-645"></a>
<a name="line-646"></a><a name="simplificationStep4"></a><span class='comment'>{-
<a name="line-647"></a>- 4.11 Each div element is replaced by its children
<a name="line-648"></a>- 4.12 Number of child elements
<a name="line-649"></a> - A define, oneOrMore, zeroOrMore, optional, list or mixed element
<a name="line-650"></a> is transformed so that it has exactly one child element
<a name="line-651"></a> - An element element is transformed so that it has exactly two child elements
<a name="line-652"></a> - A except element is transformed so that it has exactly one child element
<a name="line-653"></a> - If an attribute element has only one child element (a name class), then a text element is added.
<a name="line-654"></a> - A choice, group or interleave element is transformed so that it has exactly two child elements.
<a name="line-655"></a>- 4.13 A mixed element is transformed into an interleaving with a text element
<a name="line-656"></a>- 4.14 An optional element is transformed into a choice with empty
<a name="line-657"></a>- 4.15 A zeroOrMore element is transformed into a choice between oneOrMore and empty
<a name="line-658"></a>- 4.16. Constraints: no transformation is performed, but various constraints are checked.
<a name="line-659"></a> - An except element that is a child of an anyName element must not have any anyName descendant elements.
<a name="line-660"></a> - An except element that is a child of an nsName element must not have any nsName or anyName
<a name="line-661"></a> descendant elements.
<a name="line-662"></a> - A name element that occurs as the first child of an attribute element or as the descendant of the
<a name="line-663"></a> first child of an attribute element and that has an ns attribute with value equal to the empty
<a name="line-664"></a> string must not have content equal to xmlns.
<a name="line-665"></a> - A name or nsName element that occurs as the first child of an attribute element or as the
<a name="line-666"></a> descendant of the first child of an attribute element must not have an ns attribute with
<a name="line-667"></a> value <a href="http://www.w3.org/2000/xmlns.">http://www.w3.org/2000/xmlns.</a>
<a name="line-668"></a> - A data or value element must be correct in its use of datatypes.
<a name="line-669"></a>-}</span>
<a name="line-670"></a><span class='definition'>simplificationStep4</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-671"></a><span class='definition'>simplificationStep4</span> <span class='keyglyph'>=</span>
<a name="line-672"></a> <span class='layout'>(</span> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-673"></a> <span class='layout'>(</span> <span class='comment'>-- Each div element is replaced by its children.</span>
<a name="line-674"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>simplificationStep4</span><span class='layout'>)</span>
<a name="line-675"></a> <span class='varop'>`when`</span>
<a name="line-676"></a> <span class='varid'>isRngDiv</span>
<a name="line-677"></a> <span class='layout'>)</span>
<a name="line-678"></a> <span class='varop'>>>></span>
<a name="line-679"></a> <span class='layout'>(</span> <span class='comment'>-- A define, oneOrMore, zeroOrMore, optional, list or mixed element</span>
<a name="line-680"></a> <span class='comment'>-- is transformed so that it has exactly one child element</span>
<a name="line-681"></a> <span class='layout'>(</span> <span class='varid'>replaceChildren</span>
<a name="line-682"></a> <span class='layout'>(</span> <span class='varid'>mkRngGroup</span>
<a name="line-683"></a> <span class='layout'>(</span><span class='varid'>setChangesAttr</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>>>></span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='str'>"group-Pattern: "</span> <span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-684"></a> <span class='varid'>getChildren</span>
<a name="line-685"></a> <span class='layout'>)</span>
<a name="line-686"></a> <span class='layout'>)</span>
<a name="line-687"></a> <span class='varop'>`when`</span>
<a name="line-688"></a> <span class='layout'>(</span> <span class='varid'>isDefineOneOrMoreZeroOrMoreOptionalListMixed</span>
<a name="line-689"></a> <span class='varop'>>>></span>
<a name="line-690"></a> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>></span> <span class='num'>1</span><span class='layout'>)</span>
<a name="line-691"></a> <span class='layout'>)</span>
<a name="line-692"></a> <span class='layout'>)</span>
<a name="line-693"></a> <span class='varop'>>>></span>
<a name="line-694"></a> <span class='layout'>(</span> <span class='comment'>-- An element element is transformed so that it has exactly two child elements </span>
<a name="line-695"></a> <span class='layout'>(</span> <span class='varid'>replaceChildren</span>
<a name="line-696"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isNameAnyNameNsName</span> <span class='layout'>)</span>
<a name="line-697"></a> <span class='varop'><+></span>
<a name="line-698"></a> <span class='layout'>(</span> <span class='varid'>mkRngGroup</span> <span class='varid'>none</span>
<a name="line-699"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-700"></a> <span class='varop'>>>></span>
<a name="line-701"></a> <span class='varid'>neg</span> <span class='varid'>isNameAnyNameNsName</span>
<a name="line-702"></a> <span class='layout'>)</span>
<a name="line-703"></a> <span class='layout'>)</span>
<a name="line-704"></a> <span class='layout'>)</span>
<a name="line-705"></a> <span class='layout'>)</span>
<a name="line-706"></a> <span class='varop'>`when`</span>
<a name="line-707"></a> <span class='layout'>(</span> <span class='varid'>isRngElement</span> <span class='varop'>>>></span> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>></span> <span class='num'>2</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-708"></a> <span class='layout'>)</span>
<a name="line-709"></a> <span class='varop'>>>></span>
<a name="line-710"></a> <span class='layout'>(</span> <span class='comment'>-- A except element is transformed so that it has exactly one child element.</span>
<a name="line-711"></a> <span class='varid'>replaceChildren</span> <span class='layout'>(</span> <span class='varid'>mkRngChoice</span> <span class='varid'>none</span> <span class='varid'>getChildren</span> <span class='layout'>)</span>
<a name="line-712"></a> <span class='varop'>`when`</span>
<a name="line-713"></a> <span class='layout'>(</span> <span class='varid'>isRngExcept</span> <span class='varop'>>>></span> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>></span> <span class='num'>1</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-714"></a> <span class='layout'>)</span>
<a name="line-715"></a> <span class='varop'>>>></span>
<a name="line-716"></a> <span class='layout'>(</span> <span class='comment'>-- If an attribute element has only one child element </span>
<a name="line-717"></a> <span class='comment'>-- (a name class), then a text element is added.</span>
<a name="line-718"></a> <span class='varid'>insertChildrenAt</span> <span class='num'>1</span> <span class='layout'>(</span><span class='varid'>mkRngText</span> <span class='varid'>none</span><span class='layout'>)</span>
<a name="line-719"></a> <span class='varop'>`when`</span>
<a name="line-720"></a> <span class='layout'>(</span> <span class='varid'>isRngAttribute</span> <span class='varop'>>>></span> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='num'>1</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-721"></a> <span class='layout'>)</span>
<a name="line-722"></a> <span class='varop'>>>></span>
<a name="line-723"></a> <span class='layout'>(</span> <span class='comment'>-- A choice, group or interleave element is transformed so</span>
<a name="line-724"></a> <span class='comment'>-- that it has exactly two child elements.</span>
<a name="line-725"></a> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>wrapPattern2Two</span> <span class='varop'>$<</span> <span class='varid'>getName</span><span class='layout'>)</span> <span class='varop'>>>></span> <span class='varid'>simplificationStep4</span><span class='layout'>)</span>
<a name="line-726"></a> <span class='varop'>`when`</span>
<a name="line-727"></a> <span class='layout'>(</span> <span class='varid'>isChoiceGroupInterleave</span>
<a name="line-728"></a> <span class='varop'>>>></span>
<a name="line-729"></a> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>i</span> <span class='keyglyph'>-></span> <span class='varid'>i</span> <span class='varop'>></span> <span class='num'>2</span> <span class='varop'>||</span> <span class='varid'>i</span> <span class='varop'>==</span> <span class='num'>1</span><span class='layout'>)</span>
<a name="line-730"></a> <span class='layout'>)</span>
<a name="line-731"></a> <span class='layout'>)</span>
<a name="line-732"></a> <span class='varop'>>>></span>
<a name="line-733"></a> <span class='layout'>(</span> <span class='comment'>-- A mixed element is transformed into an interleaving with a text element </span>
<a name="line-734"></a> <span class='layout'>(</span> <span class='varid'>mkRngInterleave</span>
<a name="line-735"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='str'>"mixed is transformed into an interleave"</span> <span class='layout'>)</span>
<a name="line-736"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-737"></a> <span class='varop'><+></span>
<a name="line-738"></a> <span class='varid'>mkRngText</span>
<a name="line-739"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='layout'>(</span> <span class='str'>"new text-Pattern: mixed is transformed into "</span> <span class='varop'>++</span>
<a name="line-740"></a> <span class='str'>" an interleave with text"</span>
<a name="line-741"></a> <span class='layout'>)</span>
<a name="line-742"></a> <span class='layout'>)</span>
<a name="line-743"></a> <span class='layout'>)</span>
<a name="line-744"></a> <span class='layout'>)</span>
<a name="line-745"></a> <span class='varop'>`when`</span>
<a name="line-746"></a> <span class='varid'>isRngMixed</span>
<a name="line-747"></a> <span class='layout'>)</span>
<a name="line-748"></a> <span class='varop'>>>></span>
<a name="line-749"></a> <span class='layout'>(</span> <span class='comment'>-- An optional element is transformed into a choice with empty </span>
<a name="line-750"></a> <span class='layout'>(</span> <span class='varid'>mkRngChoice</span>
<a name="line-751"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='str'>"optional is transformed into a choice"</span> <span class='layout'>)</span>
<a name="line-752"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-753"></a> <span class='varop'><+></span>
<a name="line-754"></a> <span class='varid'>mkRngEmpty</span>
<a name="line-755"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='layout'>(</span> <span class='str'>"new empty-Pattern: optional is transformed "</span> <span class='varop'>++</span>
<a name="line-756"></a> <span class='str'>" into a choice with empty"</span>
<a name="line-757"></a> <span class='layout'>)</span>
<a name="line-758"></a> <span class='layout'>)</span>
<a name="line-759"></a> <span class='layout'>)</span>
<a name="line-760"></a> <span class='layout'>)</span>
<a name="line-761"></a> <span class='varop'>`when`</span>
<a name="line-762"></a> <span class='varid'>isRngOptional</span>
<a name="line-763"></a> <span class='layout'>)</span>
<a name="line-764"></a> <span class='varop'>>>></span>
<a name="line-765"></a> <span class='layout'>(</span> <span class='comment'>-- A zeroOrMore element is transformed into a choice between oneOrMore and empty</span>
<a name="line-766"></a> <span class='layout'>(</span> <span class='varid'>mkRngChoice</span>
<a name="line-767"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='str'>"zeroOrMore is transformed into a choice"</span> <span class='layout'>)</span>
<a name="line-768"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRngOneOrMore</span>
<a name="line-769"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='layout'>(</span> <span class='str'>"zeroOrMore is transformed into a "</span> <span class='varop'>++</span>
<a name="line-770"></a> <span class='str'>"choice between oneOrMore and empty"</span>
<a name="line-771"></a> <span class='layout'>)</span>
<a name="line-772"></a> <span class='layout'>)</span>
<a name="line-773"></a> <span class='varid'>getChildren</span>
<a name="line-774"></a> <span class='layout'>)</span>
<a name="line-775"></a> <span class='varop'><+></span>
<a name="line-776"></a> <span class='layout'>(</span> <span class='varid'>mkRngEmpty</span>
<a name="line-777"></a> <span class='layout'>(</span> <span class='varid'>setChangesAttr</span> <span class='layout'>(</span> <span class='str'>"new empty-Pattern: zeroOrMore is transformed "</span> <span class='varop'>++</span>
<a name="line-778"></a> <span class='str'>"into a choice between oneOrMore and empty"</span>
<a name="line-779"></a> <span class='layout'>)</span>
<a name="line-780"></a> <span class='layout'>)</span>
<a name="line-781"></a> <span class='layout'>)</span>
<a name="line-782"></a> <span class='layout'>)</span>
<a name="line-783"></a> <span class='layout'>)</span>
<a name="line-784"></a> <span class='varop'>`when`</span>
<a name="line-785"></a> <span class='varid'>isRngZeroOrMore</span>
<a name="line-786"></a> <span class='layout'>)</span>
<a name="line-787"></a> <span class='layout'>)</span>
<a name="line-788"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-789"></a>
<a name="line-790"></a>
<a name="line-791"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-792"></a>
<a name="line-793"></a>
<a name="line-794"></a><a name="restrictionsStep1"></a><span class='definition'>restrictionsStep1</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-795"></a><span class='definition'>restrictionsStep1</span> <span class='keyglyph'>=</span>
<a name="line-796"></a> <span class='layout'>(</span> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-797"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-798"></a> <span class='layout'>(</span> <span class='str'>"An except element that is a child of an anyName "</span> <span class='varop'>++</span>
<a name="line-799"></a> <span class='str'>"element must not have any anyName descendant elements"</span>
<a name="line-800"></a> <span class='layout'>)</span>
<a name="line-801"></a> <span class='layout'>)</span>
<a name="line-802"></a> <span class='varop'>`when`</span>
<a name="line-803"></a> <span class='layout'>(</span> <span class='varid'>isRngAnyName</span>
<a name="line-804"></a> <span class='varop'>>>></span>
<a name="line-805"></a> <span class='varid'>getChildren</span>
<a name="line-806"></a> <span class='varop'>>>></span>
<a name="line-807"></a> <span class='varid'>isRngExcept</span>
<a name="line-808"></a> <span class='varop'>>>></span>
<a name="line-809"></a> <span class='varid'>deep</span> <span class='varid'>isRngAnyName</span>
<a name="line-810"></a> <span class='layout'>)</span>
<a name="line-811"></a> <span class='layout'>)</span>
<a name="line-812"></a> <span class='varop'>>>></span>
<a name="line-813"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-814"></a> <span class='layout'>(</span> <span class='str'>"An except element that is a child of an nsName element "</span> <span class='varop'>++</span>
<a name="line-815"></a> <span class='str'>"must not have any nsName or anyName descendant elements."</span>
<a name="line-816"></a> <span class='layout'>)</span>
<a name="line-817"></a> <span class='layout'>)</span>
<a name="line-818"></a> <span class='varop'>`when`</span>
<a name="line-819"></a> <span class='layout'>(</span> <span class='varid'>isRngNsName</span>
<a name="line-820"></a> <span class='varop'>>>></span>
<a name="line-821"></a> <span class='varid'>getChildren</span>
<a name="line-822"></a> <span class='varop'>>>></span>
<a name="line-823"></a> <span class='varid'>isRngExcept</span>
<a name="line-824"></a> <span class='varop'>>>></span>
<a name="line-825"></a> <span class='varid'>deep</span> <span class='layout'>(</span><span class='varid'>isRngAnyName</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngNsName</span><span class='layout'>)</span>
<a name="line-826"></a> <span class='layout'>)</span>
<a name="line-827"></a> <span class='layout'>)</span>
<a name="line-828"></a> <span class='varop'>>>></span>
<a name="line-829"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-830"></a> <span class='layout'>(</span> <span class='str'>"A name element that occurs as the first child or descendant of "</span> <span class='varop'>++</span>
<a name="line-831"></a> <span class='str'>"an attribute and has an ns attribute with an empty value must "</span> <span class='varop'>++</span>
<a name="line-832"></a> <span class='str'>"not have content equal to \"xmlns\""</span>
<a name="line-833"></a> <span class='layout'>)</span>
<a name="line-834"></a> <span class='layout'>)</span>
<a name="line-835"></a> <span class='varop'>`when`</span>
<a name="line-836"></a> <span class='layout'>(</span> <span class='varid'>isRngAttribute</span>
<a name="line-837"></a> <span class='varop'>>>></span>
<a name="line-838"></a> <span class='varid'>firstChild</span>
<a name="line-839"></a> <span class='varop'>>>></span>
<a name="line-840"></a> <span class='layout'>(</span> <span class='varid'>multi</span> <span class='layout'>(</span><span class='varid'>isRngName</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrNs</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-841"></a> <span class='varop'>>>></span>
<a name="line-842"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>getRngAttrNs</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='varid'>null</span><span class='layout'>)</span>
<a name="line-843"></a> <span class='varop'>`guards`</span>
<a name="line-844"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>getText</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='str'>"xmlns"</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-845"></a> <span class='layout'>)</span>
<a name="line-846"></a> <span class='layout'>)</span>
<a name="line-847"></a> <span class='layout'>)</span>
<a name="line-848"></a> <span class='varop'>>>></span>
<a name="line-849"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-850"></a> <span class='layout'>(</span> <span class='str'>"A name or nsName element that occurs as the first child or "</span> <span class='varop'>++</span>
<a name="line-851"></a> <span class='str'>"descendant of an attribute must not have an ns attribute "</span> <span class='varop'>++</span>
<a name="line-852"></a> <span class='str'>"with value http://www.w3.org/2000/xmlns"</span>
<a name="line-853"></a> <span class='layout'>)</span>
<a name="line-854"></a> <span class='layout'>)</span>
<a name="line-855"></a> <span class='varop'>`when`</span>
<a name="line-856"></a> <span class='layout'>(</span> <span class='varid'>isRngAttribute</span>
<a name="line-857"></a> <span class='varop'>>>></span>
<a name="line-858"></a> <span class='varid'>firstChild</span>
<a name="line-859"></a> <span class='varop'>>>></span>
<a name="line-860"></a> <span class='layout'>(</span> <span class='varid'>multi</span> <span class='layout'>(</span><span class='varid'>isNameNsName</span> <span class='varop'>>>></span> <span class='varid'>hasRngAttrNs</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-861"></a> <span class='varop'>>>></span>
<a name="line-862"></a> <span class='varid'>getRngAttrNs</span>
<a name="line-863"></a> <span class='varop'>>>></span>
<a name="line-864"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varid'>compareURI</span> <span class='varid'>xmlnsNamespace</span><span class='layout'>)</span>
<a name="line-865"></a> <span class='layout'>)</span>
<a name="line-866"></a> <span class='layout'>)</span>
<a name="line-867"></a> <span class='varop'>>>></span> <span class='comment'>-- A data or value element must be correct in its use of datatypes.</span>
<a name="line-868"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>checkDatatype</span> <span class='varop'>$<<</span> <span class='varid'>getRngAttrDatatypeLibrary</span> <span class='varop'>&&&</span> <span class='varid'>getRngAttrType</span> <span class='layout'>)</span>
<a name="line-869"></a> <span class='varop'>`when`</span>
<a name="line-870"></a> <span class='layout'>(</span> <span class='varid'>isRngData</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngValue</span> <span class='layout'>)</span>
<a name="line-871"></a> <span class='layout'>)</span>
<a name="line-872"></a> <span class='layout'>)</span>
<a name="line-873"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-874"></a> <span class='keyword'>where</span>
<a name="line-875"></a>
<a name="line-876"></a> <span class='comment'>-- the datatypeLibrary attribute must identify a valid datatype library</span>
<a name="line-877"></a>
<a name="line-878"></a> <span class='varid'>checkDatatype</span> <span class='keyglyph'>::</span> <span class='conid'>Uri</span> <span class='keyglyph'>-></span> <span class='conid'>DatatypeName</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-879"></a> <span class='varid'>checkDatatype</span> <span class='varid'>libName</span> <span class='varid'>typeName</span>
<a name="line-880"></a> <span class='keyglyph'>=</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>libName</span> <span class='varop'>$</span> <span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>datatypeLibraries</span><span class='layout'>)</span>
<a name="line-881"></a> <span class='layout'>(</span> <span class='varid'>checkType</span> <span class='varid'>libName</span> <span class='varid'>typeName</span> <span class='varid'>allowedDataTypes</span> <span class='layout'>)</span>
<a name="line-882"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-883"></a> <span class='layout'>(</span> <span class='str'>"DatatypeLibrary "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>libName</span> <span class='varop'>++</span> <span class='str'>" not found"</span> <span class='layout'>)</span>
<a name="line-884"></a> <span class='layout'>)</span>
<a name="line-885"></a> <span class='keyword'>where</span>
<a name="line-886"></a> <span class='conid'>DTC</span> <span class='keyword'>_</span> <span class='keyword'>_</span> <span class='varid'>allowedDataTypes</span> <span class='keyglyph'>=</span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>libName</span> <span class='varid'>datatypeLibraries</span>
<a name="line-887"></a>
<a name="line-888"></a> <span class='comment'>-- the type attribute must identify a datatype within the datatype library identified</span>
<a name="line-889"></a> <span class='comment'>-- by the value of the datatypeLibrary attribute.</span>
<a name="line-890"></a>
<a name="line-891"></a> <span class='varid'>checkType</span> <span class='keyglyph'>::</span> <span class='conid'>Uri</span> <span class='keyglyph'>-></span> <span class='conid'>DatatypeName</span> <span class='keyglyph'>-></span> <span class='conid'>AllowedDatatypes</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-892"></a> <span class='varid'>checkType</span> <span class='varid'>libName</span> <span class='varid'>typeName</span> <span class='varid'>allowedTypes</span>
<a name="line-893"></a> <span class='keyglyph'>=</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>typeName</span> <span class='varop'>$</span> <span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>allowedTypes</span><span class='layout'>)</span>
<a name="line-894"></a> <span class='layout'>(</span> <span class='varid'>checkParams</span> <span class='varid'>typeName</span> <span class='varid'>libName</span> <span class='varid'>getParams</span> <span class='varop'>$<</span>
<a name="line-895"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngParam</span> <span class='varop'>>>></span> <span class='varid'>getRngAttrName</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-896"></a> <span class='layout'>)</span>
<a name="line-897"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-898"></a> <span class='layout'>(</span> <span class='str'>"Datatype "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>typeName</span> <span class='varop'>++</span>
<a name="line-899"></a> <span class='str'>" not declared for DatatypeLibrary "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>libName</span>
<a name="line-900"></a> <span class='layout'>)</span>
<a name="line-901"></a> <span class='layout'>)</span>
<a name="line-902"></a> <span class='keyword'>where</span>
<a name="line-903"></a> <span class='varid'>getParams</span> <span class='keyglyph'>=</span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>typeName</span> <span class='varid'>allowedTypes</span>
<a name="line-904"></a>
<a name="line-905"></a> <span class='comment'>-- For a data element, the parameter list must be one that is allowed by the datatype</span>
<a name="line-906"></a>
<a name="line-907"></a> <span class='varid'>checkParams</span> <span class='keyglyph'>::</span> <span class='conid'>DatatypeName</span> <span class='keyglyph'>-></span> <span class='conid'>Uri</span> <span class='keyglyph'>-></span> <span class='conid'>AllowedParams</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>ParamName</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-908"></a> <span class='varid'>checkParams</span> <span class='varid'>typeName</span> <span class='varid'>libName</span> <span class='varid'>allowedParams</span> <span class='varid'>paramNames</span>
<a name="line-909"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-910"></a> <span class='layout'>(</span> <span class='str'>"Param(s): "</span> <span class='varop'>++</span> <span class='varid'>formatStringListQuot</span> <span class='varid'>diff</span> <span class='varop'>++</span>
<a name="line-911"></a> <span class='str'>" not allowed for Datatype "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>typeName</span> <span class='varop'>++</span>
<a name="line-912"></a> <span class='str'>" in Library "</span> <span class='varop'>++</span>
<a name="line-913"></a> <span class='varid'>show</span> <span class='layout'>(</span> <span class='keyword'>if</span> <span class='varid'>null</span> <span class='varid'>libName</span>
<a name="line-914"></a> <span class='keyword'>then</span> <span class='varid'>relaxNamespace</span>
<a name="line-915"></a> <span class='keyword'>else</span> <span class='varid'>libName</span>
<a name="line-916"></a> <span class='layout'>)</span>
<a name="line-917"></a> <span class='layout'>)</span>
<a name="line-918"></a> <span class='layout'>)</span>
<a name="line-919"></a> <span class='varop'>`when`</span>
<a name="line-920"></a> <span class='layout'>(</span> <span class='varid'>isRngData</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>diff</span> <span class='varop'>/=</span> <span class='conid'>[]</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-921"></a> <span class='keyword'>where</span>
<a name="line-922"></a> <span class='varid'>diff</span> <span class='keyglyph'>=</span> <span class='varid'>filter</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>param</span> <span class='keyglyph'>-></span> <span class='varid'>not</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>param</span> <span class='varid'>allowedParams</span><span class='layout'>)</span> <span class='varid'>paramNames</span>
<a name="line-923"></a>
<a name="line-924"></a>
<a name="line-925"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-926"></a>
<a name="line-927"></a>
<a name="line-928"></a><a name="simplificationStep5"></a><span class='comment'>{-
<a name="line-929"></a>- 4.17. combine attribute
<a name="line-930"></a> - For each grammar element, all define elements with the same name are combined together.
<a name="line-931"></a> - Similarly, for each grammar element all start elements are combined together.
<a name="line-932"></a>- 4.18. grammar element
<a name="line-933"></a> - A grammar must have a start child element.
<a name="line-934"></a> - Transform the top-level pattern p into <grammar><start>p</start></grammar>.
<a name="line-935"></a> - Rename define elements so that no two define elements anywhere in the schema
<a name="line-936"></a> have the same name. To rename a define element, change the value of its name
<a name="line-937"></a> attribute and change the value of the name attribute of all ref and parentRef
<a name="line-938"></a> elements that refer to that define element.
<a name="line-939"></a> - Move all define elements to be children of the top-level grammar element
<a name="line-940"></a> - Replace each nested grammar element by the child of its start element
<a name="line-941"></a> - Rename each parentRef element to ref.
<a name="line-942"></a>-}</span>
<a name="line-943"></a><span class='definition'>simplificationStep5</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-944"></a><span class='definition'>simplificationStep5</span>
<a name="line-945"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>processTopDown</span>
<a name="line-946"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span><span class='layout'>)</span>
<a name="line-947"></a> <span class='varop'><+></span>
<a name="line-948"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='str'>"A grammar must have a start child element"</span> <span class='layout'>)</span>
<a name="line-949"></a> <span class='layout'>)</span>
<a name="line-950"></a> <span class='varop'>`when`</span>
<a name="line-951"></a> <span class='layout'>(</span><span class='varid'>neg</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngStart</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-952"></a> <span class='layout'>)</span>
<a name="line-953"></a> <span class='varop'>>>></span>
<a name="line-954"></a> <span class='comment'>-- For each grammar element, all define elements with the same </span>
<a name="line-955"></a> <span class='comment'>-- name are combined together.</span>
<a name="line-956"></a> <span class='layout'>(</span> <span class='varid'>combinePatternList</span> <span class='str'>"define"</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getPatternNamesInGrammar</span> <span class='str'>"define"</span> <span class='varop'>>>></span> <span class='varid'>arr</span> <span class='varid'>nub</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-957"></a> <span class='varop'>>>></span>
<a name="line-958"></a> <span class='comment'>-- Similarly, for each grammar element all start elements </span>
<a name="line-959"></a> <span class='comment'>-- are combined together.</span>
<a name="line-960"></a> <span class='layout'>(</span> <span class='varid'>combinePatternList</span> <span class='str'>"start"</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getPatternNamesInGrammar</span> <span class='str'>"start"</span> <span class='varop'>>>></span> <span class='varid'>arr</span> <span class='varid'>nub</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-961"></a> <span class='layout'>)</span>
<a name="line-962"></a> <span class='varop'>`when`</span>
<a name="line-963"></a> <span class='varid'>isRngGrammar</span>
<a name="line-964"></a> <span class='layout'>)</span>
<a name="line-965"></a> <span class='varop'>>>></span>
<a name="line-966"></a> <span class='layout'>(</span> <span class='comment'>-- transform the top-level pattern p into <grammar><start>p</start></grammar>.</span>
<a name="line-967"></a> <span class='layout'>(</span> <span class='varid'>replaceChildren</span>
<a name="line-968"></a> <span class='layout'>(</span> <span class='varid'>mkRngGrammar</span> <span class='varid'>none</span>
<a name="line-969"></a> <span class='layout'>(</span> <span class='varid'>mkRngStart</span> <span class='varid'>none</span> <span class='varid'>getChildren</span> <span class='layout'>)</span>
<a name="line-970"></a> <span class='layout'>)</span>
<a name="line-971"></a> <span class='layout'>)</span>
<a name="line-972"></a> <span class='varop'>`when`</span>
<a name="line-973"></a> <span class='varid'>neg</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngGrammar</span><span class='layout'>)</span>
<a name="line-974"></a> <span class='layout'>)</span>
<a name="line-975"></a> <span class='varop'>>>></span>
<a name="line-976"></a> <span class='layout'>(</span> <span class='varid'>renameDefines</span> <span class='varop'>$<<</span>
<a name="line-977"></a> <span class='layout'>(</span> <span class='varid'>getPatternNamesInGrammar</span> <span class='str'>"define"</span>
<a name="line-978"></a> <span class='varop'>>>></span>
<a name="line-979"></a> <span class='layout'>(</span><span class='varid'>createUniqueNames</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getAndSetCounter</span> <span class='str'>"define_id"</span> <span class='varop'>>>></span> <span class='varid'>arr</span> <span class='varid'>read</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-980"></a> <span class='varop'>&&&</span>
<a name="line-981"></a> <span class='varid'>constA</span> <span class='conid'>[]</span>
<a name="line-982"></a> <span class='layout'>)</span>
<a name="line-983"></a> <span class='layout'>)</span>
<a name="line-984"></a> <span class='varop'>>>></span>
<a name="line-985"></a> <span class='comment'>-- Move all define elements to be children of the top-level grammar element</span>
<a name="line-986"></a> <span class='layout'>(</span> <span class='varid'>processChildren</span>
<a name="line-987"></a> <span class='layout'>(</span> <span class='comment'>-- root node</span>
<a name="line-988"></a> <span class='varid'>processChildren</span>
<a name="line-989"></a> <span class='layout'>(</span> <span class='comment'>-- the first grammar pattern remains unchanged</span>
<a name="line-990"></a> <span class='layout'>(</span> <span class='varid'>deleteAllDefines</span>
<a name="line-991"></a> <span class='varop'><+></span>
<a name="line-992"></a> <span class='layout'>(</span> <span class='varid'>getAllDefines</span> <span class='varop'>>>></span> <span class='varid'>processChildren</span> <span class='varid'>deleteAllDefines</span> <span class='layout'>)</span>
<a name="line-993"></a> <span class='layout'>)</span>
<a name="line-994"></a> <span class='varop'>>>></span>
<a name="line-995"></a> <span class='varid'>processTopDown</span>
<a name="line-996"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='comment'>-- Replace each nested grammar element by the child of its start element</span>
<a name="line-997"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngStart</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='layout'>)</span>
<a name="line-998"></a> <span class='varop'>`when`</span>
<a name="line-999"></a> <span class='varid'>isRngGrammar</span>
<a name="line-1000"></a> <span class='layout'>)</span>
<a name="line-1001"></a> <span class='varop'>>>></span>
<a name="line-1002"></a> <span class='layout'>(</span> <span class='comment'>-- Rename each parentRef element to ref.</span>
<a name="line-1003"></a> <span class='layout'>(</span> <span class='varid'>setRngNameRef</span>
<a name="line-1004"></a> <span class='varop'>`when`</span>
<a name="line-1005"></a> <span class='varid'>isRngParentRef</span>
<a name="line-1006"></a> <span class='layout'>)</span>
<a name="line-1007"></a> <span class='layout'>)</span>
<a name="line-1008"></a> <span class='layout'>)</span>
<a name="line-1009"></a> <span class='layout'>)</span>
<a name="line-1010"></a> <span class='layout'>)</span>
<a name="line-1011"></a> <span class='layout'>)</span>
<a name="line-1012"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1013"></a> <span class='keyword'>where</span>
<a name="line-1014"></a> <span class='varid'>getPatternNamesInGrammar</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span>
<a name="line-1015"></a> <span class='varid'>getPatternNamesInGrammar</span> <span class='varid'>pattern</span>
<a name="line-1016"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span>
<a name="line-1017"></a> <span class='layout'>(</span> <span class='varid'>processTopDown</span> <span class='layout'>(</span> <span class='varid'>none</span> <span class='varop'>`when`</span> <span class='varid'>isRngGrammar</span> <span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-1018"></a> <span class='varop'>>>></span>
<a name="line-1019"></a> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>multi</span> <span class='layout'>(</span><span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>hasRngName</span> <span class='varid'>pattern</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1020"></a> <span class='varop'>>>></span>
<a name="line-1021"></a> <span class='varid'>getRngAttrName</span>
<a name="line-1022"></a> <span class='layout'>)</span>
<a name="line-1023"></a>
<a name="line-1024"></a> <span class='varid'>createUniqueNames</span> <span class='keyglyph'>::</span> <span class='conid'>Int</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='conid'>RefList</span>
<a name="line-1025"></a> <span class='varid'>createUniqueNames</span> <span class='varid'>num</span>
<a name="line-1026"></a> <span class='keyglyph'>=</span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>l</span> <span class='keyglyph'>-></span> <span class='varid'>unique</span> <span class='varid'>l</span> <span class='varid'>num</span><span class='layout'>)</span>
<a name="line-1027"></a> <span class='varop'>>>></span>
<a name="line-1028"></a> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>setParamInt</span> <span class='str'>"define_id"</span> <span class='varop'>$<</span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='varid'>max</span> <span class='varid'>num</span> <span class='varop'>.</span> <span class='varid'>getNextValue</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1029"></a> <span class='keyword'>where</span>
<a name="line-1030"></a> <span class='varid'>unique</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>Int</span> <span class='keyglyph'>-></span> <span class='conid'>RefList</span>
<a name="line-1031"></a> <span class='varid'>unique</span> <span class='conid'>[]</span> <span class='keyword'>_</span> <span class='keyglyph'>=</span> <span class='conid'>[]</span>
<a name="line-1032"></a> <span class='varid'>unique</span> <span class='layout'>(</span><span class='varid'>x</span><span class='conop'>:</span><span class='varid'>xs</span><span class='layout'>)</span> <span class='varid'>num'</span> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>x</span><span class='layout'>,</span> <span class='layout'>(</span><span class='varid'>show</span> <span class='varid'>num'</span><span class='layout'>)</span><span class='layout'>)</span><span class='conop'>:</span><span class='layout'>(</span><span class='varid'>unique</span> <span class='varid'>xs</span> <span class='layout'>(</span><span class='varid'>num'</span><span class='varop'>+</span><span class='num'>1</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1033"></a> <span class='varid'>getNextValue</span> <span class='keyglyph'>::</span> <span class='conid'>RefList</span> <span class='keyglyph'>-></span> <span class='conid'>Int</span>
<a name="line-1034"></a> <span class='varid'>getNextValue</span> <span class='conid'>[]</span> <span class='keyglyph'>=</span> <span class='num'>0</span>
<a name="line-1035"></a> <span class='varid'>getNextValue</span> <span class='varid'>rl</span> <span class='keyglyph'>=</span> <span class='varid'>maximum</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='layout'>(</span><span class='varid'>read</span> <span class='varop'>.</span> <span class='varid'>snd</span><span class='layout'>)</span> <span class='varid'>rl</span><span class='layout'>)</span> <span class='varop'>+</span> <span class='num'>1</span>
<a name="line-1036"></a>
<a name="line-1037"></a> <span class='varid'>renameDefines</span> <span class='keyglyph'>::</span> <span class='conid'>RefList</span> <span class='keyglyph'>-></span> <span class='conid'>RefList</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1038"></a> <span class='varid'>renameDefines</span> <span class='varid'>ref</span> <span class='varid'>parentRef</span>
<a name="line-1039"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span>
<a name="line-1040"></a> <span class='layout'>(</span> <span class='varid'>choiceA</span>
<a name="line-1041"></a> <span class='keyglyph'>[</span> <span class='varid'>isRngDefine</span>
<a name="line-1042"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='comment'>-- the original name is needed for error messages</span>
<a name="line-1043"></a> <span class='varid'>addAttr</span> <span class='varid'>defineOrigName</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrName</span>
<a name="line-1044"></a> <span class='varop'>>>></span>
<a name="line-1045"></a> <span class='comment'>-- rename the define-pattern</span>
<a name="line-1046"></a> <span class='comment'>-- the new name is looked up in the ref table</span>
<a name="line-1047"></a> <span class='varid'>addAttr</span> <span class='str'>"name"</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1048"></a> <span class='varop'>>>></span>
<a name="line-1049"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>n</span> <span class='varid'>ref</span><span class='layout'>)</span>
<a name="line-1050"></a> <span class='layout'>)</span>
<a name="line-1051"></a> <span class='varop'>>>></span>
<a name="line-1052"></a> <span class='varid'>renameDefines</span> <span class='varid'>ref</span> <span class='varid'>parentRef</span>
<a name="line-1053"></a> <span class='layout'>)</span>
<a name="line-1054"></a> <span class='layout'>,</span> <span class='varid'>isRngGrammar</span>
<a name="line-1055"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>renameDefines</span> <span class='varop'>$<<</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='comment'>-- compute all define names in the grammar</span>
<a name="line-1056"></a> <span class='varid'>getPatternNamesInGrammar</span> <span class='str'>"define"</span>
<a name="line-1057"></a> <span class='varop'>>>></span>
<a name="line-1058"></a> <span class='comment'>-- create a new (unique) name for all define names</span>
<a name="line-1059"></a> <span class='layout'>(</span><span class='varid'>createUniqueNames</span> <span class='varop'>$<</span> <span class='layout'>(</span><span class='varid'>getParamInt</span> <span class='num'>0</span> <span class='str'>"define_id"</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1060"></a> <span class='layout'>)</span>
<a name="line-1061"></a> <span class='varop'>&&&</span>
<a name="line-1062"></a> <span class='comment'>-- set the old ref list to be the new parentRef list</span>
<a name="line-1063"></a> <span class='varid'>constA</span> <span class='varid'>ref</span>
<a name="line-1064"></a> <span class='layout'>)</span>
<a name="line-1065"></a> <span class='layout'>)</span>
<a name="line-1066"></a> <span class='layout'>,</span> <span class='varid'>isRngRef</span>
<a name="line-1067"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1068"></a> <span class='varop'>>>></span>
<a name="line-1069"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>name</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>elem</span> <span class='varid'>name</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>ref</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1070"></a> <span class='layout'>)</span>
<a name="line-1071"></a> <span class='layout'>(</span> <span class='comment'>-- the original name is needed for error messages</span>
<a name="line-1072"></a> <span class='varid'>addAttr</span> <span class='varid'>defineOrigName</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrName</span>
<a name="line-1073"></a> <span class='varop'>>>></span>
<a name="line-1074"></a> <span class='comment'>-- rename the ref-pattern</span>
<a name="line-1075"></a> <span class='comment'>-- the new name is looked up in the ref table</span>
<a name="line-1076"></a> <span class='varid'>addAttr</span> <span class='str'>"name"</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1077"></a> <span class='varop'>>>></span>
<a name="line-1078"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>n</span> <span class='varid'>ref</span><span class='layout'>)</span>
<a name="line-1079"></a> <span class='layout'>)</span>
<a name="line-1080"></a> <span class='layout'>)</span>
<a name="line-1081"></a> <span class='layout'>(</span> <span class='comment'>-- the referenced pattern does not exist in the schema</span>
<a name="line-1082"></a> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1083"></a> <span class='varop'>>>></span>
<a name="line-1084"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"Define-Pattern with name "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1085"></a> <span class='str'>" referenced in ref-Pattern not "</span> <span class='varop'>++</span>
<a name="line-1086"></a> <span class='str'>"found in schema"</span>
<a name="line-1087"></a> <span class='layout'>)</span>
<a name="line-1088"></a> <span class='layout'>)</span>
<a name="line-1089"></a> <span class='layout'>)</span>
<a name="line-1090"></a> <span class='layout'>)</span>
<a name="line-1091"></a> <span class='layout'>)</span>
<a name="line-1092"></a> <span class='layout'>,</span> <span class='varid'>isRngParentRef</span> <span class='comment'>-- same as ref, but the parentRef list is used</span>
<a name="line-1093"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1094"></a> <span class='varop'>>>></span>
<a name="line-1095"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>name</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>elem</span> <span class='varid'>name</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>parentRef</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1096"></a> <span class='layout'>)</span>
<a name="line-1097"></a> <span class='layout'>(</span> <span class='varid'>addAttr</span> <span class='varid'>defineOrigName</span> <span class='varop'>$<</span> <span class='varid'>getRngAttrName</span>
<a name="line-1098"></a> <span class='varop'>>>></span>
<a name="line-1099"></a> <span class='varid'>addAttr</span> <span class='str'>"name"</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1100"></a> <span class='varop'>>>></span>
<a name="line-1101"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>n</span> <span class='varid'>parentRef</span><span class='layout'>)</span>
<a name="line-1102"></a> <span class='layout'>)</span>
<a name="line-1103"></a> <span class='layout'>)</span>
<a name="line-1104"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span>
<a name="line-1105"></a> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1106"></a> <span class='varop'>>>></span>
<a name="line-1107"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"Define-Pattern with name "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1108"></a> <span class='str'>" referenced in parentRef-Pattern "</span> <span class='varop'>++</span>
<a name="line-1109"></a> <span class='str'>"not found in schema"</span>
<a name="line-1110"></a> <span class='layout'>)</span>
<a name="line-1111"></a> <span class='layout'>)</span>
<a name="line-1112"></a> <span class='layout'>)</span>
<a name="line-1113"></a> <span class='layout'>)</span>
<a name="line-1114"></a> <span class='layout'>)</span>
<a name="line-1115"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-1116"></a> <span class='conop'>:-></span> <span class='varid'>renameDefines</span> <span class='varid'>ref</span> <span class='varid'>parentRef</span>
<a name="line-1117"></a> <span class='keyglyph'>]</span>
<a name="line-1118"></a> <span class='layout'>)</span>
<a name="line-1119"></a>
<a name="line-1120"></a>
<a name="line-1121"></a> <span class='varid'>getAllDefines</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1122"></a> <span class='varid'>getAllDefines</span> <span class='keyglyph'>=</span> <span class='varid'>multi</span> <span class='varid'>isRngDefine</span>
<a name="line-1123"></a>
<a name="line-1124"></a> <span class='varid'>deleteAllDefines</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1125"></a> <span class='varid'>deleteAllDefines</span> <span class='keyglyph'>=</span> <span class='varid'>processTopDown</span> <span class='varop'>$</span> <span class='varid'>none</span> <span class='varop'>`when`</span> <span class='varid'>isRngDefine</span>
<a name="line-1126"></a>
<a name="line-1127"></a> <span class='varid'>combinePatternList</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1128"></a> <span class='varid'>combinePatternList</span> <span class='keyword'>_</span> <span class='conid'>[]</span> <span class='keyglyph'>=</span> <span class='varid'>this</span>
<a name="line-1129"></a> <span class='varid'>combinePatternList</span> <span class='varid'>pattern</span> <span class='layout'>(</span><span class='varid'>x</span><span class='conop'>:</span><span class='varid'>xs</span><span class='layout'>)</span>
<a name="line-1130"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>replaceChildren</span> <span class='varop'>$</span> <span class='varid'>combinePattern</span> <span class='varid'>pattern</span> <span class='varid'>x</span><span class='layout'>)</span>
<a name="line-1131"></a> <span class='varop'>>>></span>
<a name="line-1132"></a> <span class='varid'>combinePatternList</span> <span class='varid'>pattern</span> <span class='varid'>xs</span>
<a name="line-1133"></a>
<a name="line-1134"></a> <span class='comment'>-- combine a define- or start-pattern (first parameter) with a</span>
<a name="line-1135"></a> <span class='comment'>-- specific name (second parameter)</span>
<a name="line-1136"></a> <span class='varid'>combinePattern</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1137"></a> <span class='varid'>combinePattern</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1138"></a> <span class='keyglyph'>=</span> <span class='varid'>createPatternElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1139"></a> <span class='varop'><+></span>
<a name="line-1140"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>deletePatternElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span><span class='layout'>)</span>
<a name="line-1141"></a>
<a name="line-1142"></a> <span class='varid'>createPatternElems</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1143"></a> <span class='varid'>createPatternElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1144"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span> <span class='varop'>>>></span> <span class='varid'>getRngAttrCombine</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1145"></a> <span class='varop'>>>></span>
<a name="line-1146"></a> <span class='varid'>checkPatternCombine</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1147"></a> <span class='layout'>)</span>
<a name="line-1148"></a> <span class='comment'>-- After determining this unique value, the combine attributes are removed.</span>
<a name="line-1149"></a> <span class='varop'>&&&</span>
<a name="line-1150"></a> <span class='layout'>(</span><span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span> <span class='varop'>>>></span> <span class='varid'>removeAttr</span> <span class='str'>"combine"</span><span class='layout'>)</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1151"></a> <span class='varop'>>>></span> <span class='comment'>-- ((errorCode::Int,errorMessage::String), result::XmlTrees)</span>
<a name="line-1152"></a> <span class='varid'>choiceA</span>
<a name="line-1153"></a> <span class='keyglyph'>[</span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>code</span><span class='layout'>,</span><span class='keyword'>_</span><span class='layout'>)</span> <span class='layout'>,</span> <span class='keyword'>_</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>code</span> <span class='varop'>==</span> <span class='num'>0</span><span class='layout'>)</span>
<a name="line-1154"></a> <span class='conop'>:-></span>
<a name="line-1155"></a> <span class='layout'>(</span><span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='varid'>snd</span> <span class='varop'>.</span> <span class='varid'>fst</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1156"></a> <span class='layout'>,</span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>code</span><span class='layout'>,</span><span class='varid'>str</span><span class='layout'>)</span> <span class='layout'>,</span> <span class='keyword'>_</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>code</span> <span class='varop'>==</span> <span class='num'>1</span> <span class='varop'>&&</span> <span class='varid'>str</span> <span class='varop'>==</span> <span class='str'>""</span><span class='layout'>)</span>
<a name="line-1157"></a> <span class='conop'>:-></span>
<a name="line-1158"></a> <span class='varid'>arrL</span> <span class='varid'>snd</span>
<a name="line-1159"></a> <span class='layout'>,</span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>code</span><span class='layout'>,</span><span class='varid'>str</span><span class='layout'>)</span> <span class='layout'>,</span> <span class='keyword'>_</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>code</span> <span class='varop'>==</span> <span class='num'>1</span> <span class='varop'>&&</span> <span class='varid'>str</span> <span class='varop'>/=</span> <span class='str'>""</span><span class='layout'>)</span>
<a name="line-1160"></a> <span class='conop'>:-></span>
<a name="line-1161"></a> <span class='layout'>(</span> <span class='varid'>createPatternElem</span> <span class='varid'>pattern</span> <span class='varid'>name</span> <span class='varop'>$<<</span>
<a name="line-1162"></a> <span class='layout'>(</span> <span class='varid'>arr</span> <span class='layout'>(</span><span class='varid'>snd</span> <span class='varop'>.</span> <span class='varid'>fst</span><span class='layout'>)</span> <span class='varop'>&&&</span> <span class='layout'>(</span><span class='varid'>arr</span> <span class='varid'>snd</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-1163"></a> <span class='layout'>)</span>
<a name="line-1164"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-1165"></a> <span class='conop'>:-></span>
<a name="line-1166"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-1167"></a> <span class='layout'>(</span> <span class='str'>"Can't create Pattern: "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>pattern</span> <span class='varop'>++</span>
<a name="line-1168"></a> <span class='str'>" with name "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>name</span> <span class='varop'>++</span> <span class='str'>" in createPatternElems"</span>
<a name="line-1169"></a> <span class='layout'>)</span>
<a name="line-1170"></a> <span class='layout'>)</span>
<a name="line-1171"></a> <span class='keyglyph'>]</span>
<a name="line-1172"></a>
<a name="line-1173"></a> <span class='varid'>createPatternElem</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>XmlTrees</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-1174"></a> <span class='varid'>createPatternElem</span> <span class='varid'>pattern</span> <span class='varid'>name</span> <span class='varid'>combine</span> <span class='varid'>trees</span>
<a name="line-1175"></a> <span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='varid'>pattern</span> <span class='layout'>(</span><span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='str'>"name"</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varid'>name</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1176"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRngElement</span> <span class='varid'>combine</span> <span class='varid'>none</span>
<a name="line-1177"></a> <span class='layout'>(</span><span class='varid'>arrL</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varid'>trees</span><span class='layout'>)</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span><span class='layout'>)</span>
<a name="line-1178"></a> <span class='layout'>)</span>
<a name="line-1179"></a> <span class='varop'>>>></span>
<a name="line-1180"></a> <span class='varid'>wrapPattern2Two</span> <span class='varid'>combine</span>
<a name="line-1181"></a> <span class='layout'>)</span>
<a name="line-1182"></a>
<a name="line-1183"></a> <span class='varid'>checkPatternCombine</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='layout'>(</span><span class='conid'>Int</span><span class='layout'>,</span> <span class='conid'>String</span><span class='layout'>)</span>
<a name="line-1184"></a> <span class='varid'>checkPatternCombine</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1185"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span>
<a name="line-1186"></a> <span class='keyglyph'>[</span> <span class='comment'>-- just one pattern with that name -> ok, no combine is needed</span>
<a name="line-1187"></a> <span class='layout'>(</span><span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>cl</span> <span class='keyglyph'>-></span> <span class='varid'>length</span> <span class='varid'>cl</span> <span class='varop'>==</span> <span class='num'>1</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1188"></a> <span class='conop'>:-></span>
<a name="line-1189"></a> <span class='varid'>constA</span> <span class='layout'>(</span><span class='num'>1</span><span class='layout'>,</span> <span class='str'>""</span><span class='layout'>)</span>
<a name="line-1190"></a> <span class='layout'>,</span> <span class='layout'>(</span><span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>cl</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>length</span> <span class='varop'>$</span> <span class='varid'>elemIndices</span> <span class='str'>""</span> <span class='varid'>cl</span><span class='layout'>)</span> <span class='varop'>></span> <span class='num'>1</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1191"></a> <span class='conop'>:-></span>
<a name="line-1192"></a> <span class='varid'>constA</span> <span class='layout'>(</span> <span class='num'>0</span>
<a name="line-1193"></a> <span class='layout'>,</span> <span class='str'>"More than one "</span> <span class='varop'>++</span> <span class='varid'>pattern</span> <span class='varop'>++</span> <span class='str'>"-Pattern: "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>name</span> <span class='varop'>++</span>
<a name="line-1194"></a> <span class='str'>" without an combine-attribute in the same grammar"</span>
<a name="line-1195"></a> <span class='layout'>)</span>
<a name="line-1196"></a> <span class='layout'>,</span> <span class='layout'>(</span><span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>cl</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='varid'>length</span> <span class='varop'>$</span> <span class='varid'>nub</span> <span class='varop'>$</span> <span class='varid'>deleteBy</span> <span class='layout'>(</span><span class='varop'>==</span><span class='layout'>)</span> <span class='str'>""</span> <span class='varid'>cl</span><span class='layout'>)</span> <span class='varop'>></span> <span class='num'>1</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1197"></a> <span class='conop'>:-></span>
<a name="line-1198"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>cl</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='num'>0</span>
<a name="line-1199"></a> <span class='layout'>,</span> <span class='str'>"Different combine-Attributes: "</span> <span class='varop'>++</span>
<a name="line-1200"></a> <span class='layout'>(</span><span class='varid'>formatStringListQuot</span> <span class='varop'>$</span> <span class='varid'>noDoubles</span> <span class='varid'>cl</span><span class='layout'>)</span> <span class='varop'>++</span>
<a name="line-1201"></a> <span class='str'>" for the "</span> <span class='varop'>++</span> <span class='varid'>pattern</span> <span class='varop'>++</span> <span class='str'>"-Pattern "</span> <span class='varop'>++</span>
<a name="line-1202"></a> <span class='varid'>show</span> <span class='varid'>name</span> <span class='varop'>++</span> <span class='str'>" in the same grammar"</span>
<a name="line-1203"></a> <span class='layout'>)</span>
<a name="line-1204"></a> <span class='layout'>)</span>
<a name="line-1205"></a> <span class='layout'>,</span> <span class='comment'>-- ok -> combine value is returned</span>
<a name="line-1206"></a> <span class='varid'>this</span>
<a name="line-1207"></a> <span class='conop'>:-></span>
<a name="line-1208"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>cl</span> <span class='keyglyph'>-></span> <span class='layout'>(</span><span class='num'>1</span><span class='layout'>,</span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>find</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='str'>""</span><span class='layout'>)</span> <span class='varid'>cl</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1209"></a> <span class='keyglyph'>]</span>
<a name="line-1210"></a>
<a name="line-1211"></a> <span class='varid'>isElemWithNameValue</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1212"></a> <span class='varid'>isElemWithNameValue</span> <span class='varid'>ename</span> <span class='varid'>nvalue</span>
<a name="line-1213"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>isElem</span>
<a name="line-1214"></a> <span class='varop'>>>></span>
<a name="line-1215"></a> <span class='varid'>hasRngName</span> <span class='varid'>ename</span>
<a name="line-1216"></a> <span class='varop'>>>></span>
<a name="line-1217"></a> <span class='varid'>getRngAttrName</span>
<a name="line-1218"></a> <span class='varop'>>>></span>
<a name="line-1219"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='varid'>nvalue</span><span class='layout'>)</span>
<a name="line-1220"></a> <span class='layout'>)</span>
<a name="line-1221"></a> <span class='varop'>`guards`</span> <span class='varid'>this</span>
<a name="line-1222"></a>
<a name="line-1223"></a> <span class='varid'>getElems</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1224"></a> <span class='varid'>getElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1225"></a> <span class='keyglyph'>=</span> <span class='varid'>getChildren</span>
<a name="line-1226"></a> <span class='varop'>>>></span>
<a name="line-1227"></a> <span class='varid'>choiceA</span>
<a name="line-1228"></a> <span class='keyglyph'>[</span> <span class='varid'>isElemWithNameValue</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1229"></a> <span class='conop'>:-></span>
<a name="line-1230"></a> <span class='layout'>(</span><span class='varid'>this</span> <span class='varop'><+></span> <span class='varid'>getElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span><span class='layout'>)</span>
<a name="line-1231"></a> <span class='layout'>,</span> <span class='varid'>isRngGrammar</span>
<a name="line-1232"></a> <span class='conop'>:-></span> <span class='varid'>none</span>
<a name="line-1233"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-1234"></a> <span class='conop'>:-></span>
<a name="line-1235"></a> <span class='varid'>getElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1236"></a> <span class='keyglyph'>]</span>
<a name="line-1237"></a>
<a name="line-1238"></a> <span class='varid'>deletePatternElems</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1239"></a> <span class='varid'>deletePatternElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1240"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span>
<a name="line-1241"></a> <span class='keyglyph'>[</span> <span class='varid'>isElemWithNameValue</span> <span class='varid'>pattern</span> <span class='varid'>name</span>
<a name="line-1242"></a> <span class='conop'>:-></span>
<a name="line-1243"></a> <span class='varid'>none</span>
<a name="line-1244"></a> <span class='layout'>,</span> <span class='varid'>isRngGrammar</span>
<a name="line-1245"></a> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-1246"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-1247"></a> <span class='conop'>:-></span>
<a name="line-1248"></a> <span class='varid'>processChildren</span> <span class='layout'>(</span> <span class='varid'>deletePatternElems</span> <span class='varid'>pattern</span> <span class='varid'>name</span> <span class='layout'>)</span>
<a name="line-1249"></a> <span class='keyglyph'>]</span>
<a name="line-1250"></a>
<a name="line-1251"></a>
<a name="line-1252"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-1253"></a>
<a name="line-1254"></a>
<a name="line-1255"></a><a name="simplificationStep6"></a><span class='comment'>{-
<a name="line-1256"></a>- 4.19. define and ref elements
<a name="line-1257"></a> - Remove any define element that is not reachable.
<a name="line-1258"></a> - Now, for each element element that is not the child of a define element,
<a name="line-1259"></a> add a define element to the grammar element,
<a name="line-1260"></a> and replace the element element by a ref element referring
<a name="line-1261"></a> to the added define element.
<a name="line-1262"></a> - For each ref element that is expandable and is a descendant
<a name="line-1263"></a> of a start element or an element element, expand it by replacing
<a name="line-1264"></a> the ref element by the child of the define element to which it refers
<a name="line-1265"></a> - This must not result in a loop.
<a name="line-1266"></a> - Remove any define element whose child is not an element element.
<a name="line-1267"></a>-}</span>
<a name="line-1268"></a><span class='definition'>simplificationStep6</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1269"></a><span class='definition'>simplificationStep6</span> <span class='keyglyph'>=</span>
<a name="line-1270"></a> <span class='layout'>(</span> <span class='comment'>-- Remove any define element that is not reachable.</span>
<a name="line-1271"></a> <span class='layout'>(</span><span class='varid'>removeUnreachableDefines</span> <span class='varop'>$<<<</span> <span class='varid'>getAllDeepDefines</span>
<a name="line-1272"></a> <span class='varop'>&&&</span>
<a name="line-1273"></a> <span class='varid'>constA</span> <span class='conid'>[]</span>
<a name="line-1274"></a> <span class='varop'>&&&</span>
<a name="line-1275"></a> <span class='varid'>getRefsFromStartPattern</span>
<a name="line-1276"></a> <span class='layout'>)</span>
<a name="line-1277"></a> <span class='varop'>>>></span>
<a name="line-1278"></a> <span class='comment'>-- for each element element that is not the child of a define element,</span>
<a name="line-1279"></a> <span class='comment'>-- add a define element to the grammar element, </span>
<a name="line-1280"></a> <span class='layout'>(</span> <span class='varid'>processElements</span> <span class='conid'>False</span>
<a name="line-1281"></a> <span class='varop'>>>></span>
<a name="line-1282"></a> <span class='varid'>processChildren</span> <span class='layout'>(</span><span class='varid'>insertChildrenAt</span> <span class='num'>1</span> <span class='layout'>(</span><span class='varid'>getParam</span> <span class='str'>"elementTable"</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1283"></a> <span class='layout'>)</span>
<a name="line-1284"></a> <span class='varop'>>>></span>
<a name="line-1285"></a> <span class='comment'>-- For each ref element that is expandable... </span>
<a name="line-1286"></a> <span class='comment'>-- Remove any define element whose child is not an element element </span>
<a name="line-1287"></a> <span class='layout'>(</span><span class='varid'>replaceExpandableRefs</span> <span class='conid'>[]</span> <span class='varop'>$<</span> <span class='varid'>getExpandableDefines</span> <span class='varop'>>>></span> <span class='varid'>deleteExpandableDefines</span><span class='layout'>)</span>
<a name="line-1288"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1289"></a> <span class='keyword'>where</span>
<a name="line-1290"></a> <span class='varid'>replaceExpandableRefs</span> <span class='keyglyph'>::</span> <span class='conid'>RefList</span> <span class='keyglyph'>-></span> <span class='conid'>Env</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1291"></a> <span class='varid'>replaceExpandableRefs</span> <span class='varid'>foundNames</span> <span class='varid'>defTable</span>
<a name="line-1292"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-1293"></a> <span class='varid'>isRngRef</span>
<a name="line-1294"></a> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1295"></a> <span class='varop'>>>></span>
<a name="line-1296"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>name</span> <span class='keyglyph'>-></span> <span class='varid'>elem</span> <span class='varid'>name</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>foundNames</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1297"></a> <span class='layout'>)</span>
<a name="line-1298"></a> <span class='comment'>-- we have found a loop if the name is in the list</span>
<a name="line-1299"></a> <span class='layout'>(</span><span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span> <span class='layout'>(</span> <span class='varid'>getAttrValue</span> <span class='varid'>defineOrigName</span>
<a name="line-1300"></a> <span class='varop'>>>></span>
<a name="line-1301"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"Recursion in ref-Pattern: "</span> <span class='varop'>++</span>
<a name="line-1302"></a> <span class='varid'>formatStringListArr</span> <span class='layout'>(</span><span class='varid'>reverse</span> <span class='varop'>$</span> <span class='layout'>(</span><span class='varid'>n</span><span class='conop'>:</span><span class='layout'>)</span> <span class='varop'>$</span> <span class='varid'>map</span> <span class='varid'>snd</span> <span class='varid'>foundNames</span><span class='layout'>)</span>
<a name="line-1303"></a> <span class='layout'>)</span>
<a name="line-1304"></a> <span class='layout'>)</span>
<a name="line-1305"></a> <span class='layout'>)</span>
<a name="line-1306"></a> <span class='layout'>)</span>
<a name="line-1307"></a> <span class='layout'>(</span><span class='varid'>replaceRef</span> <span class='varop'>$<<</span> <span class='varid'>getRngAttrName</span> <span class='varop'>&&&</span> <span class='varid'>getAttrValue</span> <span class='varid'>defineOrigName</span><span class='layout'>)</span>
<a name="line-1308"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1309"></a> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>processChildren</span> <span class='varop'>$</span> <span class='varid'>replaceExpandableRefs</span> <span class='varid'>foundNames</span> <span class='varid'>defTable</span><span class='layout'>)</span>
<a name="line-1310"></a> <span class='keyglyph'>]</span>
<a name="line-1311"></a> <span class='keyword'>where</span>
<a name="line-1312"></a> <span class='varid'>replaceRef</span> <span class='keyglyph'>::</span> <span class='conid'>NewName</span> <span class='keyglyph'>-></span> <span class='conid'>OldName</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1313"></a> <span class='varid'>replaceRef</span> <span class='varid'>name</span> <span class='varid'>oldname</span>
<a name="line-1314"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>constA</span> <span class='layout'>(</span><span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>name</span> <span class='varid'>defTable</span><span class='layout'>)</span>
<a name="line-1315"></a> <span class='varop'>>>></span>
<a name="line-1316"></a> <span class='varid'>getChildren</span>
<a name="line-1317"></a> <span class='varop'>>>></span>
<a name="line-1318"></a> <span class='varid'>replaceExpandableRefs</span> <span class='layout'>(</span><span class='layout'>(</span><span class='varid'>name</span><span class='layout'>,</span><span class='varid'>oldname</span><span class='layout'>)</span><span class='conop'>:</span><span class='varid'>foundNames</span><span class='layout'>)</span> <span class='varid'>defTable</span>
<a name="line-1319"></a> <span class='layout'>)</span>
<a name="line-1320"></a> <span class='varop'>`whenP`</span>
<a name="line-1321"></a> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>name</span> <span class='varop'>$</span> <span class='varid'>map</span> <span class='varid'>fst</span> <span class='varid'>defTable</span><span class='layout'>)</span>
<a name="line-1322"></a>
<a name="line-1323"></a>
<a name="line-1324"></a> <span class='varid'>processElements</span> <span class='keyglyph'>::</span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1325"></a> <span class='varid'>processElements</span> <span class='varid'>parentIsDefine</span>
<a name="line-1326"></a> <span class='keyglyph'>=</span> <span class='varid'>processChildren</span>
<a name="line-1327"></a> <span class='layout'>(</span> <span class='varid'>choiceA</span>
<a name="line-1328"></a> <span class='keyglyph'>[</span> <span class='varid'>isRngElement</span>
<a name="line-1329"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varid'>parentIsDefine</span><span class='layout'>)</span>
<a name="line-1330"></a> <span class='layout'>(</span><span class='varid'>processElements</span> <span class='conid'>False</span><span class='layout'>)</span>
<a name="line-1331"></a> <span class='layout'>(</span> <span class='varid'>processElements'</span> <span class='varop'>$<<</span> <span class='layout'>(</span> <span class='varid'>getAndSetCounter</span> <span class='str'>"define_id"</span>
<a name="line-1332"></a> <span class='varop'>&&&</span>
<a name="line-1333"></a> <span class='varid'>getDefineName</span>
<a name="line-1334"></a> <span class='layout'>)</span>
<a name="line-1335"></a> <span class='layout'>)</span>
<a name="line-1336"></a> <span class='layout'>)</span>
<a name="line-1337"></a> <span class='layout'>,</span> <span class='varid'>isRngDefine</span>
<a name="line-1338"></a> <span class='conop'>:-></span> <span class='varid'>processElements</span> <span class='conid'>True</span>
<a name="line-1339"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-1340"></a> <span class='conop'>:-></span> <span class='varid'>processElements</span> <span class='conid'>False</span>
<a name="line-1341"></a> <span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-1342"></a> <span class='keyword'>where</span>
<a name="line-1343"></a> <span class='varid'>getDefineName</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-1344"></a> <span class='varid'>getDefineName</span>
<a name="line-1345"></a> <span class='keyglyph'>=</span> <span class='varid'>firstChild</span>
<a name="line-1346"></a> <span class='varop'>>>></span>
<a name="line-1347"></a> <span class='varid'>fromLA</span> <span class='varid'>createNameClass</span>
<a name="line-1348"></a> <span class='varop'>>>></span>
<a name="line-1349"></a> <span class='varid'>arr</span> <span class='varid'>show</span>
<a name="line-1350"></a>
<a name="line-1351"></a> <span class='varid'>processElements'</span> <span class='keyglyph'>::</span> <span class='conid'>NewName</span> <span class='keyglyph'>-></span> <span class='conid'>OldName</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1352"></a> <span class='varid'>processElements'</span> <span class='varid'>name</span> <span class='varid'>oldname</span>
<a name="line-1353"></a> <span class='keyglyph'>=</span> <span class='varid'>storeElement</span> <span class='varid'>name</span> <span class='varid'>oldname</span>
<a name="line-1354"></a> <span class='varop'>>>></span>
<a name="line-1355"></a> <span class='varid'>mkRngRef</span> <span class='layout'>(</span><span class='varid'>createAttr</span> <span class='varid'>name</span> <span class='varid'>oldname</span><span class='layout'>)</span> <span class='varid'>none</span>
<a name="line-1356"></a>
<a name="line-1357"></a> <span class='varid'>storeElement</span> <span class='keyglyph'>::</span> <span class='conid'>NewName</span> <span class='keyglyph'>-></span> <span class='conid'>OldName</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1358"></a> <span class='varid'>storeElement</span> <span class='varid'>name</span> <span class='varid'>oldname</span>
<a name="line-1359"></a> <span class='keyglyph'>=</span> <span class='varid'>perform</span> <span class='varop'>$</span>
<a name="line-1360"></a> <span class='layout'>(</span> <span class='varid'>mkRngDefine</span>
<a name="line-1361"></a> <span class='layout'>(</span><span class='varid'>createAttr</span> <span class='varid'>name</span> <span class='varid'>oldname</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>processElements</span> <span class='conid'>False</span><span class='layout'>)</span>
<a name="line-1362"></a> <span class='layout'>)</span>
<a name="line-1363"></a> <span class='varop'>&&&</span>
<a name="line-1364"></a> <span class='layout'>(</span><span class='varid'>listA</span> <span class='varop'>$</span> <span class='varid'>getParam</span> <span class='str'>"elementTable"</span><span class='layout'>)</span>
<a name="line-1365"></a> <span class='varop'>>>></span>
<a name="line-1366"></a> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='conop'>:</span><span class='layout'>)</span>
<a name="line-1367"></a> <span class='varop'>>>></span>
<a name="line-1368"></a> <span class='varid'>setParamList</span> <span class='str'>"elementTable"</span>
<a name="line-1369"></a>
<a name="line-1370"></a> <span class='varid'>createAttr</span> <span class='keyglyph'>::</span> <span class='conid'>NewName</span> <span class='keyglyph'>-></span> <span class='conid'>OldName</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1371"></a> <span class='varid'>createAttr</span> <span class='varid'>name</span> <span class='varid'>oldname</span>
<a name="line-1372"></a> <span class='keyglyph'>=</span> <span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='str'>"name"</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varid'>name</span><span class='layout'>)</span>
<a name="line-1373"></a> <span class='varop'><+></span>
<a name="line-1374"></a> <span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='varid'>defineOrigName</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varop'>$</span> <span class='str'>"created for element "</span> <span class='varop'>++</span> <span class='varid'>oldname</span><span class='layout'>)</span>
<a name="line-1375"></a>
<a name="line-1376"></a> <span class='varid'>getExpandableDefines</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>Env</span>
<a name="line-1377"></a> <span class='varid'>getExpandableDefines</span>
<a name="line-1378"></a> <span class='keyglyph'>=</span> <span class='varid'>listA</span> <span class='varop'>$</span> <span class='layout'>(</span><span class='varid'>multi</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>isRngDefine</span>
<a name="line-1379"></a> <span class='varop'>>>></span>
<a name="line-1380"></a> <span class='varid'>getChildren</span>
<a name="line-1381"></a> <span class='varop'>>>></span>
<a name="line-1382"></a> <span class='varid'>neg</span> <span class='varid'>isRngElement</span>
<a name="line-1383"></a> <span class='layout'>)</span>
<a name="line-1384"></a> <span class='varop'>`guards`</span>
<a name="line-1385"></a> <span class='varid'>this</span>
<a name="line-1386"></a> <span class='layout'>)</span>
<a name="line-1387"></a> <span class='layout'>)</span>
<a name="line-1388"></a> <span class='varop'>>>></span>
<a name="line-1389"></a> <span class='layout'>(</span><span class='varid'>getRngAttrName</span> <span class='varop'>&&&</span> <span class='varid'>this</span><span class='layout'>)</span>
<a name="line-1390"></a>
<a name="line-1391"></a> <span class='varid'>deleteExpandableDefines</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1392"></a> <span class='varid'>deleteExpandableDefines</span>
<a name="line-1393"></a> <span class='keyglyph'>=</span> <span class='varid'>processTopDown</span> <span class='varop'>$</span> <span class='varid'>none</span>
<a name="line-1394"></a> <span class='varop'>`when`</span>
<a name="line-1395"></a> <span class='layout'>(</span> <span class='varid'>isRngDefine</span>
<a name="line-1396"></a> <span class='varop'>>>></span>
<a name="line-1397"></a> <span class='varid'>getChildren</span>
<a name="line-1398"></a> <span class='varop'>>>></span>
<a name="line-1399"></a> <span class='varid'>neg</span> <span class='varid'>isRngElement</span>
<a name="line-1400"></a> <span class='layout'>)</span>
<a name="line-1401"></a>
<a name="line-1402"></a>
<a name="line-1403"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-1404"></a>
<a name="line-1405"></a>
<a name="line-1406"></a><span class='comment'>{-
<a name="line-1407"></a>- 4.20. notAllowed element
<a name="line-1408"></a> - An attribute, list, group, interleave, or oneOrMore element that has
<a name="line-1409"></a> a notAllowed child element is transformed into a notAllowed element.
<a name="line-1410"></a> - A choice element that has two notAllowed child elements
<a name="line-1411"></a> is transformed into a notAllowed element
<a name="line-1412"></a> - A choice element that has one notAllowed child element
<a name="line-1413"></a> is transformed into its other child element.
<a name="line-1414"></a> - An except element that has a notAllowed child element is removed.
<a name="line-1415"></a> - The preceding transformations are applied repeatedly
<a name="line-1416"></a> until none of them is applicable any more.
<a name="line-1417"></a> - Any define element that is no longer reachable is removed.
<a name="line-1418"></a>- 4.21. empty element
<a name="line-1419"></a> - A group, interleave or choice element that has two empty child
<a name="line-1420"></a> elements is transformed into an empty element.
<a name="line-1421"></a> - A group or interleave element that has one empty child element
<a name="line-1422"></a> is transformed into its other child element.
<a name="line-1423"></a> - A choice element whose second child element is an empty element
<a name="line-1424"></a> is transformed by interchanging its two child elements.
<a name="line-1425"></a> - A oneOrMore element that has an empty child element
<a name="line-1426"></a> is transformed into an empty element.
<a name="line-1427"></a> - The preceding transformations are applied repeatedly
<a name="line-1428"></a> until none of them is applicable any more.
<a name="line-1429"></a>-}</span>
<a name="line-1430"></a>
<a name="line-1431"></a><a name="simplificationStep7"></a><span class='definition'>simplificationStep7</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1432"></a><span class='definition'>simplificationStep7</span>
<a name="line-1433"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>markTreeChanged</span> <span class='num'>0</span> <span class='comment'>-- 0 = no changes, 1 = changes performed</span>
<a name="line-1434"></a> <span class='varop'>>>></span>
<a name="line-1435"></a> <span class='varid'>processTopDownWithAttrl</span>
<a name="line-1436"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='comment'>-- An attribute, list, group, interleave, or oneOrMore element that has a </span>
<a name="line-1437"></a> <span class='comment'>-- notAllowed child element is transformed into a notAllowed element. </span>
<a name="line-1438"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>mkRngNotAllowed</span> <span class='varid'>none</span> <span class='varid'>none</span>
<a name="line-1439"></a> <span class='varop'>>>></span>
<a name="line-1440"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1441"></a> <span class='layout'>)</span>
<a name="line-1442"></a> <span class='varop'>`whenNot`</span> <span class='comment'>-- keep all errors</span>
<a name="line-1443"></a> <span class='layout'>(</span><span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span><span class='layout'>)</span>
<a name="line-1444"></a> <span class='layout'>)</span>
<a name="line-1445"></a> <span class='varop'>`when`</span>
<a name="line-1446"></a> <span class='layout'>(</span> <span class='varid'>isAttributeListGroupInterleaveOneOrMore</span>
<a name="line-1447"></a> <span class='varop'>>>></span>
<a name="line-1448"></a> <span class='varid'>getChildren</span>
<a name="line-1449"></a> <span class='varop'>>>></span>
<a name="line-1450"></a> <span class='varid'>isRngNotAllowed</span>
<a name="line-1451"></a> <span class='layout'>)</span>
<a name="line-1452"></a> <span class='layout'>)</span>
<a name="line-1453"></a> <span class='varop'>>>></span>
<a name="line-1454"></a> <span class='layout'>(</span> <span class='comment'>-- A choice element that has two notAllowed child elements is </span>
<a name="line-1455"></a> <span class='comment'>-- transformed into a notAllowed element</span>
<a name="line-1456"></a> <span class='layout'>(</span> <span class='varid'>mkRngNotAllowed</span> <span class='varid'>none</span> <span class='varid'>none</span>
<a name="line-1457"></a> <span class='varop'>>>></span>
<a name="line-1458"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1459"></a> <span class='layout'>)</span>
<a name="line-1460"></a> <span class='varop'>`when`</span>
<a name="line-1461"></a> <span class='layout'>(</span> <span class='varid'>isRngChoice</span>
<a name="line-1462"></a> <span class='varop'>>>></span>
<a name="line-1463"></a> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngNotAllowed</span><span class='layout'>)</span>
<a name="line-1464"></a> <span class='varop'>>>></span>
<a name="line-1465"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>s</span> <span class='keyglyph'>-></span> <span class='varid'>length</span> <span class='varid'>s</span> <span class='varop'>==</span> <span class='num'>2</span><span class='layout'>)</span>
<a name="line-1466"></a> <span class='layout'>)</span>
<a name="line-1467"></a> <span class='layout'>)</span>
<a name="line-1468"></a> <span class='varop'>>>></span>
<a name="line-1469"></a> <span class='layout'>(</span> <span class='comment'>-- A choice element that has one notAllowed child element is </span>
<a name="line-1470"></a> <span class='comment'>-- transformed into its other child element. </span>
<a name="line-1471"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>isRngNotAllowed</span>
<a name="line-1472"></a> <span class='varop'>>>></span>
<a name="line-1473"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1474"></a> <span class='layout'>)</span>
<a name="line-1475"></a> <span class='varop'>`when`</span>
<a name="line-1476"></a> <span class='layout'>(</span> <span class='varid'>isRngChoice</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngNotAllowed</span> <span class='layout'>)</span>
<a name="line-1477"></a> <span class='layout'>)</span>
<a name="line-1478"></a> <span class='varop'>>>></span>
<a name="line-1479"></a> <span class='layout'>(</span> <span class='comment'>-- An except element that has a notAllowed child element is removed.</span>
<a name="line-1480"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1481"></a> <span class='varop'>>>></span>
<a name="line-1482"></a> <span class='varid'>none</span>
<a name="line-1483"></a> <span class='layout'>)</span>
<a name="line-1484"></a> <span class='varop'>`whenNot`</span> <span class='comment'>-- keep all errors</span>
<a name="line-1485"></a> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1486"></a> <span class='layout'>)</span>
<a name="line-1487"></a> <span class='varop'>`when`</span>
<a name="line-1488"></a> <span class='layout'>(</span> <span class='varid'>isRngExcept</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngNotAllowed</span> <span class='layout'>)</span>
<a name="line-1489"></a> <span class='layout'>)</span>
<a name="line-1490"></a> <span class='varop'>>>></span> <span class='comment'>-- transforming the empty pattern (4.21)</span>
<a name="line-1491"></a> <span class='layout'>(</span> <span class='comment'>-- A group, interleave or choice element that has two empty child elements</span>
<a name="line-1492"></a> <span class='comment'>-- is transformed into an empty element.</span>
<a name="line-1493"></a> <span class='layout'>(</span> <span class='varid'>mkRngEmpty</span> <span class='varid'>none</span>
<a name="line-1494"></a> <span class='varop'>>>></span>
<a name="line-1495"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1496"></a> <span class='layout'>)</span>
<a name="line-1497"></a> <span class='varop'>`when`</span>
<a name="line-1498"></a> <span class='layout'>(</span> <span class='varid'>isChoiceGroupInterleave</span>
<a name="line-1499"></a> <span class='varop'>>>></span>
<a name="line-1500"></a> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngEmpty</span><span class='layout'>)</span>
<a name="line-1501"></a> <span class='varop'>>>></span>
<a name="line-1502"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>s</span> <span class='keyglyph'>-></span> <span class='varid'>length</span> <span class='varid'>s</span> <span class='varop'>==</span> <span class='num'>2</span><span class='layout'>)</span>
<a name="line-1503"></a> <span class='layout'>)</span>
<a name="line-1504"></a> <span class='layout'>)</span>
<a name="line-1505"></a> <span class='varop'>>>></span>
<a name="line-1506"></a> <span class='layout'>(</span> <span class='comment'>-- A group or interleave element that has one empty child element </span>
<a name="line-1507"></a> <span class='comment'>-- is transformed into its other child element.</span>
<a name="line-1508"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1509"></a> <span class='varop'>>>></span>
<a name="line-1510"></a> <span class='varid'>neg</span> <span class='varid'>isRngEmpty</span>
<a name="line-1511"></a> <span class='varop'>>>></span>
<a name="line-1512"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1513"></a> <span class='layout'>)</span>
<a name="line-1514"></a> <span class='varop'>`when`</span>
<a name="line-1515"></a> <span class='layout'>(</span> <span class='varid'>isGroupInterleave</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngEmpty</span> <span class='layout'>)</span>
<a name="line-1516"></a> <span class='layout'>)</span>
<a name="line-1517"></a> <span class='varop'>>>></span>
<a name="line-1518"></a> <span class='layout'>(</span> <span class='comment'>-- A choice element whose second child element is an empty element is transformed </span>
<a name="line-1519"></a> <span class='comment'>-- by interchanging its two child elements.</span>
<a name="line-1520"></a> <span class='varid'>changeChoiceChildren</span>
<a name="line-1521"></a> <span class='varop'>`when`</span>
<a name="line-1522"></a> <span class='layout'>(</span> <span class='varid'>isRngChoice</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngEmpty</span> <span class='layout'>)</span>
<a name="line-1523"></a> <span class='layout'>)</span>
<a name="line-1524"></a> <span class='varop'>>>></span>
<a name="line-1525"></a> <span class='layout'>(</span> <span class='comment'>-- A oneOrMore element that has an empty child element</span>
<a name="line-1526"></a> <span class='comment'>-- is transformed into an empty element.</span>
<a name="line-1527"></a> <span class='layout'>(</span> <span class='varid'>mkRngEmpty</span> <span class='varid'>none</span>
<a name="line-1528"></a> <span class='varop'>>>></span>
<a name="line-1529"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1530"></a> <span class='layout'>)</span>
<a name="line-1531"></a> <span class='varop'>`when`</span>
<a name="line-1532"></a> <span class='layout'>(</span> <span class='varid'>isRngOneOrMore</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngEmpty</span> <span class='layout'>)</span>
<a name="line-1533"></a> <span class='layout'>)</span>
<a name="line-1534"></a> <span class='layout'>)</span>
<a name="line-1535"></a> <span class='varop'>>>></span>
<a name="line-1536"></a> <span class='comment'>-- The preceding transformations are applied repeatedly</span>
<a name="line-1537"></a> <span class='comment'>-- until none of them is applicable any more.</span>
<a name="line-1538"></a> <span class='layout'>(</span> <span class='varid'>simplificationStep7</span>
<a name="line-1539"></a> <span class='varop'>`when`</span>
<a name="line-1540"></a> <span class='varid'>hasTreeChanged</span>
<a name="line-1541"></a> <span class='layout'>)</span>
<a name="line-1542"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1543"></a> <span class='keyword'>where</span>
<a name="line-1544"></a> <span class='varid'>changeChoiceChildren</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1545"></a> <span class='varid'>changeChoiceChildren</span>
<a name="line-1546"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>replaceChildren</span>
<a name="line-1547"></a> <span class='layout'>(</span> <span class='varid'>mkRngEmpty</span> <span class='varid'>none</span>
<a name="line-1548"></a> <span class='varop'><+></span>
<a name="line-1549"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>neg</span> <span class='varid'>isRngEmpty</span><span class='layout'>)</span>
<a name="line-1550"></a> <span class='layout'>)</span>
<a name="line-1551"></a> <span class='varop'>>>></span>
<a name="line-1552"></a> <span class='varid'>markTreeChanged</span> <span class='num'>1</span>
<a name="line-1553"></a> <span class='layout'>)</span>
<a name="line-1554"></a> <span class='varop'>`when`</span>
<a name="line-1555"></a> <span class='layout'>(</span> <span class='varid'>single</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isElem</span><span class='layout'>)</span> <span class='comment'>-- first child not "empty" elem</span>
<a name="line-1556"></a> <span class='varop'>>>></span>
<a name="line-1557"></a> <span class='varid'>neg</span> <span class='varid'>isRngEmpty</span>
<a name="line-1558"></a> <span class='layout'>)</span>
<a name="line-1559"></a> <span class='layout'>)</span>
<a name="line-1560"></a>
<a name="line-1561"></a><a name="hasTreeChanged"></a><span class='definition'>hasTreeChanged</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='varid'>b</span> <span class='conid'>Int</span>
<a name="line-1562"></a><span class='definition'>hasTreeChanged</span>
<a name="line-1563"></a> <span class='keyglyph'>=</span> <span class='varid'>getParamInt</span> <span class='num'>0</span> <span class='str'>"rng:changeTree"</span>
<a name="line-1564"></a> <span class='varop'>>>></span>
<a name="line-1565"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='num'>1</span><span class='layout'>)</span>
<a name="line-1566"></a>
<a name="line-1567"></a><a name="markTreeChanged"></a><span class='definition'>markTreeChanged</span> <span class='keyglyph'>::</span> <span class='conid'>Int</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='varid'>b</span> <span class='varid'>b</span>
<a name="line-1568"></a><span class='definition'>markTreeChanged</span> <span class='varid'>i</span>
<a name="line-1569"></a> <span class='keyglyph'>=</span> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>setParamInt</span> <span class='str'>"rng:changeTree"</span> <span class='varid'>i</span><span class='layout'>)</span>
<a name="line-1570"></a>
<a name="line-1571"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-1572"></a>
<a name="line-1573"></a>
<a name="line-1574"></a><a name="simplificationStep8"></a><span class='definition'>simplificationStep8</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1575"></a><span class='definition'>simplificationStep8</span> <span class='comment'>-- Remove any define element that is not reachable.</span>
<a name="line-1576"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>removeUnreachableDefines</span> <span class='varop'>$<<<</span>
<a name="line-1577"></a> <span class='layout'>(</span> <span class='varid'>getAllDeepDefines</span>
<a name="line-1578"></a> <span class='varop'>&&&</span>
<a name="line-1579"></a> <span class='varid'>constA</span> <span class='conid'>[]</span>
<a name="line-1580"></a> <span class='varop'>&&&</span>
<a name="line-1581"></a> <span class='varid'>getRefsFromStartPattern</span>
<a name="line-1582"></a> <span class='layout'>)</span>
<a name="line-1583"></a> <span class='layout'>)</span>
<a name="line-1584"></a> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1585"></a> <span class='layout'>)</span>
<a name="line-1586"></a>
<a name="line-1587"></a>
<a name="line-1588"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-1589"></a>
<a name="line-1590"></a>
<a name="line-1591"></a><a name="restrictionsStep2"></a><span class='definition'>restrictionsStep2</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1592"></a><span class='definition'>restrictionsStep2</span> <span class='keyglyph'>=</span>
<a name="line-1593"></a> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-1594"></a> <span class='varid'>choiceA</span> <span class='keyglyph'>[</span>
<a name="line-1595"></a><span class='comment'>-- 7.1.1. attribute pattern, the following paths are prohibited:</span>
<a name="line-1596"></a><span class='comment'>-- attribute//(ref | attribute)</span>
<a name="line-1597"></a> <span class='varid'>isRngAttribute</span> <span class='conop'>:-></span>
<a name="line-1598"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1599"></a> <span class='varop'><+></span>
<a name="line-1600"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getChangesAttr</span>
<a name="line-1601"></a> <span class='varop'>&&&</span>
<a name="line-1602"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1603"></a> <span class='varop'>>>></span>
<a name="line-1604"></a> <span class='varid'>deep</span> <span class='varid'>isAttributeRef</span>
<a name="line-1605"></a> <span class='varop'>>>></span>
<a name="line-1606"></a> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>&&&</span> <span class='varid'>getChangesAttr</span> <span class='varop'>>>></span> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1607"></a> <span class='layout'>)</span>
<a name="line-1608"></a> <span class='varop'>>>></span>
<a name="line-1609"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>formatStringListPatt</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1610"></a> <span class='str'>"Pattern not allowed as descendent(s)"</span> <span class='varop'>++</span>
<a name="line-1611"></a> <span class='str'>" of a attribute-Pattern"</span>
<a name="line-1612"></a> <span class='layout'>)</span>
<a name="line-1613"></a> <span class='layout'>)</span>
<a name="line-1614"></a> <span class='layout'>)</span>
<a name="line-1615"></a> <span class='layout'>)</span>
<a name="line-1616"></a> <span class='layout'>)</span>
<a name="line-1617"></a> <span class='varop'>`when`</span>
<a name="line-1618"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>deep</span> <span class='varid'>isAttributeRef</span> <span class='layout'>)</span>
<a name="line-1619"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1620"></a>
<a name="line-1621"></a><span class='comment'>-- 7.1.2. oneOrMore pattern, the following paths are prohibited:</span>
<a name="line-1622"></a><span class='comment'>-- oneOrMore//(group | interleave)//attribute</span>
<a name="line-1623"></a> <span class='varid'>isRngOneOrMore</span> <span class='conop'>:-></span>
<a name="line-1624"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1625"></a> <span class='varop'><+></span>
<a name="line-1626"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getChangesAttr</span>
<a name="line-1627"></a> <span class='varop'>&&&</span>
<a name="line-1628"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1629"></a> <span class='varop'>>>></span>
<a name="line-1630"></a> <span class='varid'>deep</span> <span class='varid'>isGroupInterleave</span>
<a name="line-1631"></a> <span class='varop'>>>></span>
<a name="line-1632"></a> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>&&&</span> <span class='varid'>getChangesAttr</span> <span class='varop'>>>></span> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1633"></a> <span class='layout'>)</span>
<a name="line-1634"></a> <span class='varop'>&&&</span>
<a name="line-1635"></a> <span class='varid'>getChangesAttr</span>
<a name="line-1636"></a> <span class='varop'>>>></span>
<a name="line-1637"></a> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='varid'>c</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='varid'>formatStringListPatt</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1638"></a> <span class='str'>"Pattern not allowed as descendent(s) "</span> <span class='varop'>++</span>
<a name="line-1639"></a> <span class='str'>"of a oneOrMore-Pattern"</span> <span class='varop'>++</span>
<a name="line-1640"></a> <span class='layout'>(</span><span class='keyword'>if</span> <span class='varid'>null</span> <span class='varid'>c</span> <span class='keyword'>then</span> <span class='str'>""</span> <span class='keyword'>else</span> <span class='str'>" "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>c</span><span class='layout'>)</span> <span class='varop'>++</span>
<a name="line-1641"></a> <span class='str'>" followed by an attribute descendent"</span>
<a name="line-1642"></a> <span class='layout'>)</span>
<a name="line-1643"></a> <span class='layout'>)</span>
<a name="line-1644"></a> <span class='layout'>)</span>
<a name="line-1645"></a> <span class='layout'>)</span>
<a name="line-1646"></a> <span class='layout'>)</span>
<a name="line-1647"></a> <span class='layout'>)</span>
<a name="line-1648"></a> <span class='varop'>`when`</span>
<a name="line-1649"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>deep</span> <span class='varid'>isGroupInterleave</span>
<a name="line-1650"></a> <span class='varop'>>>></span>
<a name="line-1651"></a> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>deep</span> <span class='varid'>isRngAttribute</span>
<a name="line-1652"></a> <span class='layout'>)</span>
<a name="line-1653"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1654"></a>
<a name="line-1655"></a><span class='comment'>-- 7.1.3. list pattern, the following paths are prohibited:</span>
<a name="line-1656"></a><span class='comment'>-- list//( list | ref | attribute | text | interleave)</span>
<a name="line-1657"></a> <span class='varid'>isRngList</span> <span class='conop'>:-></span>
<a name="line-1658"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1659"></a> <span class='varop'><+></span>
<a name="line-1660"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getChangesAttr</span>
<a name="line-1661"></a> <span class='varop'>&&&</span>
<a name="line-1662"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1663"></a> <span class='varop'>>>></span>
<a name="line-1664"></a> <span class='varid'>deep</span> <span class='varid'>isAttributeRefTextListInterleave</span>
<a name="line-1665"></a> <span class='varop'>>>></span>
<a name="line-1666"></a> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>&&&</span> <span class='varid'>getChangesAttr</span> <span class='varop'>>>></span> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1667"></a> <span class='layout'>)</span>
<a name="line-1668"></a> <span class='varop'>>>></span>
<a name="line-1669"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>formatStringListPatt</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1670"></a> <span class='str'>"Pattern not allowed as descendent(s) of a list-Pattern"</span><span class='layout'>)</span>
<a name="line-1671"></a> <span class='layout'>)</span>
<a name="line-1672"></a> <span class='layout'>)</span>
<a name="line-1673"></a> <span class='layout'>)</span>
<a name="line-1674"></a> <span class='layout'>)</span>
<a name="line-1675"></a> <span class='varop'>`when`</span>
<a name="line-1676"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1677"></a> <span class='varop'>>>></span>
<a name="line-1678"></a> <span class='varid'>deep</span> <span class='varid'>isAttributeRefTextListInterleave</span>
<a name="line-1679"></a> <span class='layout'>)</span>
<a name="line-1680"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1681"></a>
<a name="line-1682"></a><span class='comment'>-- 7.1.4. except in data pattern, the following paths are prohibited:</span>
<a name="line-1683"></a><span class='comment'>-- data/except//(attribute | ref | text | list | group | interleave | oneOrMore | empty)</span>
<a name="line-1684"></a> <span class='varid'>isRngData</span> <span class='conop'>:-></span>
<a name="line-1685"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1686"></a> <span class='varop'><+></span>
<a name="line-1687"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getChangesAttr</span>
<a name="line-1688"></a> <span class='varop'>&&&</span>
<a name="line-1689"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getChildren</span>
<a name="line-1690"></a> <span class='varop'>>>></span>
<a name="line-1691"></a> <span class='varid'>deep</span> <span class='varid'>isAttributeRefTextListGroupInterleaveOneOrMoreEmpty</span>
<a name="line-1692"></a> <span class='varop'>>>></span>
<a name="line-1693"></a> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>&&&</span> <span class='varid'>getChangesAttr</span> <span class='varop'>>>></span> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1694"></a> <span class='layout'>)</span>
<a name="line-1695"></a> <span class='varop'>>>></span>
<a name="line-1696"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>formatStringListPatt</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1697"></a> <span class='str'>"Pattern not allowed as descendent(s) of a data/except-Pattern"</span><span class='layout'>)</span>
<a name="line-1698"></a> <span class='layout'>)</span>
<a name="line-1699"></a> <span class='layout'>)</span>
<a name="line-1700"></a> <span class='layout'>)</span>
<a name="line-1701"></a> <span class='layout'>)</span>
<a name="line-1702"></a> <span class='varop'>`when`</span>
<a name="line-1703"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1704"></a> <span class='varop'>>>></span>
<a name="line-1705"></a> <span class='varid'>isRngExcept</span>
<a name="line-1706"></a> <span class='varop'>>>></span>
<a name="line-1707"></a> <span class='varid'>deep</span> <span class='varid'>isAttributeRefTextListGroupInterleaveOneOrMoreEmpty</span>
<a name="line-1708"></a> <span class='layout'>)</span>
<a name="line-1709"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1710"></a>
<a name="line-1711"></a><span class='comment'>-- 7.1.5. start element, the following paths are prohibited:</span>
<a name="line-1712"></a><span class='comment'>-- start//(attribute | data | value | text | list | group | interleave | oneOrMore | empty)</span>
<a name="line-1713"></a> <span class='varid'>isRngStart</span> <span class='conop'>:-></span>
<a name="line-1714"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1715"></a> <span class='varop'><+></span>
<a name="line-1716"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='varop'>$<<</span> <span class='layout'>(</span><span class='varid'>getChangesAttr</span>
<a name="line-1717"></a> <span class='varop'>&&&</span>
<a name="line-1718"></a> <span class='layout'>(</span> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>getChildren</span>
<a name="line-1719"></a> <span class='varop'>>>></span>
<a name="line-1720"></a> <span class='varid'>deep</span> <span class='layout'>(</span><span class='varid'>checkElemName</span> <span class='keyglyph'>[</span> <span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"data"</span><span class='layout'>,</span> <span class='str'>"value"</span><span class='layout'>,</span> <span class='str'>"text"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span>
<a name="line-1721"></a> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='layout'>,</span> <span class='str'>"empty"</span><span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-1722"></a> <span class='varop'>>>></span>
<a name="line-1723"></a> <span class='layout'>(</span><span class='varid'>getName</span> <span class='varop'>&&&</span> <span class='varid'>getChangesAttr</span> <span class='varop'>>>></span> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1724"></a> <span class='layout'>)</span>
<a name="line-1725"></a> <span class='varop'>>>></span>
<a name="line-1726"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>formatStringListPatt</span> <span class='varid'>n</span> <span class='varop'>++</span>
<a name="line-1727"></a> <span class='str'>"Pattern not allowed as descendent(s) of a start-Pattern"</span><span class='layout'>)</span>
<a name="line-1728"></a> <span class='layout'>)</span>
<a name="line-1729"></a> <span class='layout'>)</span>
<a name="line-1730"></a> <span class='layout'>)</span>
<a name="line-1731"></a> <span class='layout'>)</span>
<a name="line-1732"></a> <span class='varop'>`when`</span>
<a name="line-1733"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1734"></a> <span class='varop'>>>></span>
<a name="line-1735"></a> <span class='varid'>deep</span> <span class='layout'>(</span><span class='varid'>checkElemName</span> <span class='keyglyph'>[</span> <span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"data"</span><span class='layout'>,</span> <span class='str'>"value"</span><span class='layout'>,</span> <span class='str'>"text"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span>
<a name="line-1736"></a> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='layout'>,</span> <span class='str'>"empty"</span><span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-1737"></a> <span class='layout'>)</span>
<a name="line-1738"></a> <span class='layout'>)</span><span class='layout'>,</span>
<a name="line-1739"></a>
<a name="line-1740"></a> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-1741"></a> <span class='keyglyph'>]</span>
<a name="line-1742"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1743"></a>
<a name="line-1744"></a>
<a name="line-1745"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-1746"></a>
<a name="line-1747"></a>
<a name="line-1748"></a><a name="restrictionsStep3"></a><span class='definition'>restrictionsStep3</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1749"></a><span class='definition'>restrictionsStep3</span>
<a name="line-1750"></a> <span class='keyglyph'>=</span> <span class='varid'>processTopDown</span>
<a name="line-1751"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1752"></a> <span class='varop'><+></span>
<a name="line-1753"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span>
<a name="line-1754"></a> <span class='layout'>(</span> <span class='comment'>-- getRngAttrName</span>
<a name="line-1755"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngName</span> <span class='varop'>>>></span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>getText</span> <span class='layout'>)</span>
<a name="line-1756"></a> <span class='varop'>>>></span>
<a name="line-1757"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"Content of element "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='varid'>n</span> <span class='varop'>++</span> <span class='str'>" contains a pattern that can match "</span> <span class='varop'>++</span>
<a name="line-1758"></a> <span class='str'>"a child and a pattern that matches a single string"</span>
<a name="line-1759"></a> <span class='layout'>)</span>
<a name="line-1760"></a> <span class='layout'>)</span>
<a name="line-1761"></a> <span class='layout'>)</span>
<a name="line-1762"></a> <span class='layout'>)</span>
<a name="line-1763"></a> <span class='layout'>)</span>
<a name="line-1764"></a> <span class='varop'>`when`</span>
<a name="line-1765"></a> <span class='layout'>(</span> <span class='varid'>isRngElement</span>
<a name="line-1766"></a> <span class='varop'>>>></span>
<a name="line-1767"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>.</span> <span class='layout'>(</span><span class='varid'>take</span> <span class='num'>1</span> <span class='varop'>.</span> <span class='varid'>reverse</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-1768"></a> <span class='varop'>>>></span>
<a name="line-1769"></a> <span class='varid'>getContentType</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1770"></a> <span class='layout'>)</span>
<a name="line-1771"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1772"></a>
<a name="line-1773"></a>
<a name="line-1774"></a>
<a name="line-1775"></a><a name="getContentType"></a><span class='definition'>getContentType</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1776"></a><span class='definition'>getContentType</span>
<a name="line-1777"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span>
<a name="line-1778"></a> <span class='keyglyph'>[</span> <span class='varid'>isRngValue</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTSimple</span><span class='layout'>)</span>
<a name="line-1779"></a> <span class='layout'>,</span> <span class='varid'>isRngData</span> <span class='conop'>:-></span> <span class='varid'>processData</span>
<a name="line-1780"></a> <span class='layout'>,</span> <span class='varid'>isRngList</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTSimple</span><span class='layout'>)</span>
<a name="line-1781"></a> <span class='layout'>,</span> <span class='varid'>isRngText</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTComplex</span><span class='layout'>)</span>
<a name="line-1782"></a> <span class='layout'>,</span> <span class='varid'>isRngRef</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTComplex</span><span class='layout'>)</span>
<a name="line-1783"></a> <span class='layout'>,</span> <span class='varid'>isRngEmpty</span> <span class='conop'>:-></span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTEmpty</span><span class='layout'>)</span>
<a name="line-1784"></a> <span class='layout'>,</span> <span class='varid'>isRngAttribute</span> <span class='conop'>:-></span> <span class='varid'>processAttribute</span>
<a name="line-1785"></a> <span class='layout'>,</span> <span class='varid'>isRngGroup</span> <span class='conop'>:-></span> <span class='varid'>processGroup</span>
<a name="line-1786"></a> <span class='layout'>,</span> <span class='varid'>isRngInterleave</span> <span class='conop'>:-></span> <span class='varid'>processInterleave</span>
<a name="line-1787"></a> <span class='layout'>,</span> <span class='varid'>isRngOneOrMore</span> <span class='conop'>:-></span> <span class='varid'>processOneOrMore</span>
<a name="line-1788"></a> <span class='layout'>,</span> <span class='varid'>isRngChoice</span> <span class='conop'>:-></span> <span class='varid'>processChoice</span>
<a name="line-1789"></a> <span class='keyglyph'>]</span>
<a name="line-1790"></a> <span class='keyword'>where</span>
<a name="line-1791"></a> <span class='varid'>processData</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1792"></a> <span class='varid'>processData</span>
<a name="line-1793"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span><span class='varid'>neg</span> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>isRngExcept</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1794"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTSimple</span><span class='layout'>)</span>
<a name="line-1795"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1796"></a> <span class='varop'>>>></span>
<a name="line-1797"></a> <span class='varid'>isRngExcept</span>
<a name="line-1798"></a> <span class='varop'>>>></span>
<a name="line-1799"></a> <span class='varid'>getChildren</span>
<a name="line-1800"></a> <span class='varop'>>>></span>
<a name="line-1801"></a> <span class='varid'>getContentType</span>
<a name="line-1802"></a> <span class='varop'>>>></span>
<a name="line-1803"></a> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='conid'>CTNone</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTSimple</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1804"></a> <span class='layout'>)</span>
<a name="line-1805"></a> <span class='varid'>processAttribute</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1806"></a> <span class='varid'>processAttribute</span>
<a name="line-1807"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>lastChild</span>
<a name="line-1808"></a> <span class='varop'>>>></span>
<a name="line-1809"></a> <span class='varid'>getContentType</span>
<a name="line-1810"></a> <span class='varop'>>>></span>
<a name="line-1811"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1812"></a> <span class='layout'>)</span>
<a name="line-1813"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTEmpty</span><span class='layout'>)</span>
<a name="line-1814"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1815"></a>
<a name="line-1816"></a> <span class='varid'>processGroup</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1817"></a> <span class='varid'>processGroup</span>
<a name="line-1818"></a> <span class='keyglyph'>=</span> <span class='varid'>get2ContentTypes</span>
<a name="line-1819"></a> <span class='varop'>>>></span>
<a name="line-1820"></a> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>a</span> <span class='varid'>b</span> <span class='keyglyph'>-></span> <span class='keyword'>if</span> <span class='varid'>isGroupable</span> <span class='varid'>a</span> <span class='varid'>b</span> <span class='keyword'>then</span> <span class='varid'>max</span> <span class='varid'>a</span> <span class='varid'>b</span> <span class='keyword'>else</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1821"></a>
<a name="line-1822"></a> <span class='varid'>processInterleave</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1823"></a> <span class='varid'>processInterleave</span>
<a name="line-1824"></a> <span class='keyglyph'>=</span> <span class='varid'>get2ContentTypes</span>
<a name="line-1825"></a> <span class='varop'>>>></span>
<a name="line-1826"></a> <span class='varid'>arr2</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>a</span> <span class='varid'>b</span> <span class='keyglyph'>-></span> <span class='keyword'>if</span> <span class='varid'>isGroupable</span> <span class='varid'>a</span> <span class='varid'>b</span> <span class='keyword'>then</span> <span class='varid'>max</span> <span class='varid'>a</span> <span class='varid'>b</span> <span class='keyword'>else</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1827"></a>
<a name="line-1828"></a> <span class='varid'>processOneOrMore</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1829"></a> <span class='varid'>processOneOrMore</span>
<a name="line-1830"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1831"></a> <span class='varop'>>>></span>
<a name="line-1832"></a> <span class='varid'>getContentType</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>/=</span> <span class='conid'>CTNone</span><span class='layout'>)</span>
<a name="line-1833"></a> <span class='varop'>>>></span>
<a name="line-1834"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>t</span> <span class='keyglyph'>-></span> <span class='varid'>isGroupable</span> <span class='varid'>t</span> <span class='varid'>t</span><span class='layout'>)</span>
<a name="line-1835"></a> <span class='layout'>)</span>
<a name="line-1836"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>getContentType</span> <span class='layout'>)</span>
<a name="line-1837"></a> <span class='layout'>(</span> <span class='varid'>constA</span> <span class='conid'>CTNone</span> <span class='layout'>)</span>
<a name="line-1838"></a>
<a name="line-1839"></a> <span class='varid'>processChoice</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>ContentType</span>
<a name="line-1840"></a> <span class='varid'>processChoice</span>
<a name="line-1841"></a> <span class='keyglyph'>=</span> <span class='varid'>get2ContentTypes</span>
<a name="line-1842"></a> <span class='varop'>>>></span>
<a name="line-1843"></a> <span class='varid'>arr2</span> <span class='varid'>max</span>
<a name="line-1844"></a>
<a name="line-1845"></a> <span class='varid'>isGroupable</span> <span class='keyglyph'>::</span> <span class='conid'>ContentType</span> <span class='keyglyph'>-></span> <span class='conid'>ContentType</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span>
<a name="line-1846"></a> <span class='varid'>isGroupable</span> <span class='conid'>CTEmpty</span> <span class='keyword'>_</span> <span class='keyglyph'>=</span> <span class='conid'>True</span>
<a name="line-1847"></a> <span class='varid'>isGroupable</span> <span class='keyword'>_</span> <span class='conid'>CTEmpty</span> <span class='keyglyph'>=</span> <span class='conid'>True</span>
<a name="line-1848"></a> <span class='varid'>isGroupable</span> <span class='conid'>CTComplex</span> <span class='conid'>CTComplex</span> <span class='keyglyph'>=</span> <span class='conid'>True</span>
<a name="line-1849"></a> <span class='varid'>isGroupable</span> <span class='keyword'>_</span> <span class='keyword'>_</span> <span class='keyglyph'>=</span> <span class='conid'>False</span>
<a name="line-1850"></a>
<a name="line-1851"></a>
<a name="line-1852"></a><a name="checkPattern"></a><span class='definition'>checkPattern</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='layout'>(</span><span class='conid'>XmlTree</span><span class='layout'>,</span> <span class='layout'>(</span><span class='keyglyph'>[</span><span class='conid'>NameClass</span><span class='keyglyph'>]</span><span class='layout'>,</span> <span class='keyglyph'>[</span><span class='conid'>NameClass</span><span class='keyglyph'>]</span><span class='layout'>)</span><span class='layout'>)</span> <span class='conid'>XmlTree</span>
<a name="line-1853"></a><span class='definition'>checkPattern</span>
<a name="line-1854"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='layout'>(</span><span class='keyword'>_</span><span class='layout'>,</span> <span class='layout'>(</span><span class='varid'>a</span><span class='layout'>,</span> <span class='varid'>b</span><span class='layout'>)</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>isIn</span> <span class='varid'>a</span> <span class='varid'>b</span><span class='layout'>)</span> <span class='varop'>`guardsP`</span> <span class='layout'>(</span><span class='varid'>arr</span> <span class='varid'>fst</span><span class='layout'>)</span>
<a name="line-1855"></a> <span class='keyword'>where</span>
<a name="line-1856"></a> <span class='varid'>isIn</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>NameClass</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>NameClass</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span>
<a name="line-1857"></a> <span class='varid'>isIn</span> <span class='keyword'>_</span> <span class='conid'>[]</span> <span class='keyglyph'>=</span> <span class='conid'>False</span>
<a name="line-1858"></a> <span class='varid'>isIn</span> <span class='conid'>[]</span> <span class='keyword'>_</span> <span class='keyglyph'>=</span> <span class='conid'>False</span>
<a name="line-1859"></a> <span class='varid'>isIn</span> <span class='layout'>(</span><span class='varid'>x</span><span class='conop'>:</span><span class='varid'>xs</span><span class='layout'>)</span> <span class='varid'>ys</span> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>any</span> <span class='layout'>(</span><span class='varid'>overlap</span> <span class='varid'>x</span><span class='layout'>)</span> <span class='varid'>ys</span><span class='layout'>)</span> <span class='varop'>||</span> <span class='varid'>isIn</span> <span class='varid'>xs</span> <span class='varid'>ys</span>
<a name="line-1860"></a>
<a name="line-1861"></a>
<a name="line-1862"></a><a name="occur"></a><span class='definition'>occur</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1863"></a><span class='definition'>occur</span> <span class='varid'>name</span> <span class='varid'>fct</span>
<a name="line-1864"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span>
<a name="line-1865"></a> <span class='keyglyph'>[</span> <span class='layout'>(</span> <span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>hasRngName</span> <span class='varid'>name</span> <span class='layout'>)</span>
<a name="line-1866"></a> <span class='conop'>:-></span>
<a name="line-1867"></a> <span class='varid'>fct</span>
<a name="line-1868"></a> <span class='layout'>,</span> <span class='varid'>isChoiceGroupInterleaveOneOrMore</span>
<a name="line-1869"></a> <span class='conop'>:-></span>
<a name="line-1870"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>></span> <span class='varid'>occur</span> <span class='varid'>name</span> <span class='varid'>fct</span><span class='layout'>)</span>
<a name="line-1871"></a> <span class='keyglyph'>]</span>
<a name="line-1872"></a>
<a name="line-1873"></a><a name="get2ContentTypes"></a><span class='definition'>get2ContentTypes</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='layout'>(</span><span class='conid'>ContentType</span><span class='layout'>,</span> <span class='conid'>ContentType</span><span class='layout'>)</span>
<a name="line-1874"></a><span class='definition'>get2ContentTypes</span>
<a name="line-1875"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>firstChild</span> <span class='varop'>>>></span> <span class='varid'>getContentType</span> <span class='layout'>)</span>
<a name="line-1876"></a> <span class='varop'>&&&</span>
<a name="line-1877"></a> <span class='layout'>(</span> <span class='varid'>lastChild</span> <span class='varop'>>>></span> <span class='varid'>getContentType</span> <span class='layout'>)</span>
<a name="line-1878"></a> <span class='layout'>)</span>
<a name="line-1879"></a>
<a name="line-1880"></a><span class='comment'>-- ------------------------------------------------------------ </span>
<a name="line-1881"></a>
<a name="line-1882"></a>
<a name="line-1883"></a><span class='comment'>-- Duplicate attributes are not allowed. -> fertig</span>
<a name="line-1884"></a><span class='comment'>-- Attributes using infinite name classes must be repeated; an attribute element that </span>
<a name="line-1885"></a><span class='comment'>-- has an anyName or nsName descendant element must have a oneOrMore ancestor element. -> fertig</span>
<a name="line-1886"></a>
<a name="line-1887"></a><span class='comment'>-- berechnet alle define-Namen (fuer ref-Pattern) und Nameclasses der element-Pattern</span>
<a name="line-1888"></a>
<a name="line-1889"></a><a name="restrictionsStep4"></a><span class='definition'>restrictionsStep4</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1890"></a><span class='definition'>restrictionsStep4</span>
<a name="line-1891"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>restrictionsStep4'</span> <span class='varop'>$<</span>
<a name="line-1892"></a> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngDefine</span> <span class='comment'>-- get all defines</span>
<a name="line-1893"></a> <span class='varop'>>>></span>
<a name="line-1894"></a> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span> <span class='comment'>-- get define name</span>
<a name="line-1895"></a> <span class='varop'>&&&</span>
<a name="line-1896"></a> <span class='layout'>(</span> <span class='varid'>single</span> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1897"></a> <span class='varop'>>>></span>
<a name="line-1898"></a> <span class='varid'>getChildren</span>
<a name="line-1899"></a> <span class='varop'>>>></span>
<a name="line-1900"></a> <span class='varid'>fromLA</span> <span class='varid'>createNameClass</span> <span class='comment'>-- compute the name class from 1. grandchild</span>
<a name="line-1901"></a> <span class='layout'>)</span>
<a name="line-1902"></a> <span class='varop'>`orElse`</span>
<a name="line-1903"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>AnyName</span><span class='layout'>)</span>
<a name="line-1904"></a> <span class='layout'>)</span>
<a name="line-1905"></a> <span class='layout'>)</span>
<a name="line-1906"></a> <span class='layout'>)</span>
<a name="line-1907"></a> <span class='layout'>)</span> <span class='varop'>`when`</span> <span class='varid'>collectErrors</span>
<a name="line-1908"></a>
<a name="line-1909"></a><a name="restrictionsStep4'"></a><span class='definition'>restrictionsStep4'</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='layout'>(</span><span class='conid'>String</span><span class='layout'>,</span> <span class='conid'>NameClass</span><span class='layout'>)</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1910"></a><span class='definition'>restrictionsStep4'</span> <span class='varid'>nc</span> <span class='keyglyph'>=</span>
<a name="line-1911"></a> <span class='varid'>processTopDown</span> <span class='layout'>(</span>
<a name="line-1912"></a> <span class='layout'>(</span>
<a name="line-1913"></a> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1914"></a> <span class='varop'><+></span>
<a name="line-1915"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='varop'>$<</span>
<a name="line-1916"></a> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span>
<a name="line-1917"></a> <span class='varop'>>>></span>
<a name="line-1918"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='layout'>(</span> <span class='str'>"Both attribute-pattern occuring in an "</span> <span class='varop'>++</span>
<a name="line-1919"></a> <span class='varid'>show</span> <span class='varid'>n</span> <span class='varop'>++</span> <span class='str'>" belong to the same name-class"</span>
<a name="line-1920"></a> <span class='layout'>)</span>
<a name="line-1921"></a> <span class='layout'>)</span>
<a name="line-1922"></a> <span class='layout'>)</span>
<a name="line-1923"></a> <span class='layout'>)</span>
<a name="line-1924"></a> <span class='layout'>)</span>
<a name="line-1925"></a> <span class='varop'>`when`</span>
<a name="line-1926"></a> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>isRngGroup</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngInterleave</span><span class='layout'>)</span>
<a name="line-1927"></a> <span class='varop'>>>></span>
<a name="line-1928"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1929"></a> <span class='varop'>&&&</span>
<a name="line-1930"></a> <span class='layout'>(</span> <span class='varid'>firstChild</span>
<a name="line-1931"></a> <span class='varop'>>>></span>
<a name="line-1932"></a> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>occur</span> <span class='str'>"attribute"</span> <span class='layout'>(</span><span class='varid'>single</span> <span class='varid'>getChildren</span><span class='layout'>)</span>
<a name="line-1933"></a> <span class='varop'>>>></span>
<a name="line-1934"></a> <span class='varid'>fromLA</span> <span class='varid'>createNameClass</span>
<a name="line-1935"></a> <span class='layout'>)</span>
<a name="line-1936"></a> <span class='layout'>)</span>
<a name="line-1937"></a> <span class='varop'>&&&</span>
<a name="line-1938"></a> <span class='layout'>(</span> <span class='varid'>lastChild</span>
<a name="line-1939"></a> <span class='varop'>>>></span>
<a name="line-1940"></a> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>occur</span> <span class='str'>"attribute"</span> <span class='layout'>(</span><span class='varid'>single</span> <span class='varid'>getChildren</span><span class='layout'>)</span>
<a name="line-1941"></a> <span class='varop'>>>></span>
<a name="line-1942"></a> <span class='varid'>fromLA</span> <span class='varid'>createNameClass</span>
<a name="line-1943"></a> <span class='layout'>)</span>
<a name="line-1944"></a> <span class='layout'>)</span>
<a name="line-1945"></a> <span class='layout'>)</span>
<a name="line-1946"></a> <span class='varop'>>>></span> <span class='varid'>checkPattern</span>
<a name="line-1947"></a> <span class='layout'>)</span>
<a name="line-1948"></a> <span class='layout'>)</span>
<a name="line-1949"></a> <span class='varop'>>>></span>
<a name="line-1950"></a> <span class='layout'>(</span>
<a name="line-1951"></a> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1952"></a> <span class='varop'><+></span>
<a name="line-1953"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-1954"></a> <span class='layout'>(</span> <span class='str'>"An attribute that has an anyName or nsName descendant element "</span> <span class='varop'>++</span>
<a name="line-1955"></a> <span class='str'>"must have a oneOrMore ancestor element"</span>
<a name="line-1956"></a> <span class='layout'>)</span>
<a name="line-1957"></a> <span class='layout'>)</span>
<a name="line-1958"></a> <span class='layout'>)</span>
<a name="line-1959"></a> <span class='varop'>`when`</span>
<a name="line-1960"></a> <span class='layout'>(</span><span class='varid'>isRngElement</span> <span class='varop'>>>></span> <span class='varid'>checkInfiniteAttribute</span><span class='layout'>)</span>
<a name="line-1961"></a> <span class='layout'>)</span>
<a name="line-1962"></a> <span class='varop'>>>></span>
<a name="line-1963"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1964"></a> <span class='varop'><+></span>
<a name="line-1965"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span>
<a name="line-1966"></a> <span class='layout'>(</span> <span class='str'>"Both element-pattern occuring in an interleave "</span> <span class='varop'>++</span>
<a name="line-1967"></a> <span class='str'>"belong to the same name-class"</span>
<a name="line-1968"></a> <span class='layout'>)</span>
<a name="line-1969"></a> <span class='layout'>)</span>
<a name="line-1970"></a> <span class='layout'>)</span>
<a name="line-1971"></a> <span class='varop'>`when`</span>
<a name="line-1972"></a> <span class='layout'>(</span> <span class='varid'>isRngInterleave</span>
<a name="line-1973"></a> <span class='varop'>>>></span>
<a name="line-1974"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-1975"></a> <span class='varop'>&&&</span>
<a name="line-1976"></a> <span class='layout'>(</span><span class='varid'>firstChild</span> <span class='varop'>>>></span> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>occur</span> <span class='str'>"ref"</span> <span class='varid'>this</span> <span class='varop'>>>></span> <span class='varid'>getRngAttrName</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1977"></a> <span class='varop'>&&&</span>
<a name="line-1978"></a> <span class='layout'>(</span><span class='varid'>lastChild</span> <span class='varop'>>>></span> <span class='varid'>listA</span> <span class='layout'>(</span><span class='varid'>occur</span> <span class='str'>"ref"</span> <span class='varid'>this</span> <span class='varop'>>>></span> <span class='varid'>getRngAttrName</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-1979"></a> <span class='layout'>)</span>
<a name="line-1980"></a> <span class='varop'>>>></span>
<a name="line-1981"></a> <span class='varid'>checkNames</span>
<a name="line-1982"></a> <span class='layout'>)</span>
<a name="line-1983"></a> <span class='layout'>)</span>
<a name="line-1984"></a> <span class='varop'>>>></span>
<a name="line-1985"></a> <span class='layout'>(</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRelaxError</span>
<a name="line-1986"></a> <span class='varop'><+></span>
<a name="line-1987"></a> <span class='layout'>(</span> <span class='varid'>mkRelaxError</span> <span class='str'>""</span> <span class='str'>"A text pattern must not occur in both children of an interleave"</span> <span class='layout'>)</span>
<a name="line-1988"></a> <span class='layout'>)</span>
<a name="line-1989"></a> <span class='varop'>`when`</span>
<a name="line-1990"></a> <span class='layout'>(</span><span class='varid'>isRngInterleave</span> <span class='varop'>>>></span> <span class='varid'>checkText</span><span class='layout'>)</span>
<a name="line-1991"></a> <span class='layout'>)</span>
<a name="line-1992"></a> <span class='layout'>)</span>
<a name="line-1993"></a> <span class='keyword'>where</span>
<a name="line-1994"></a> <span class='varid'>checkInfiniteAttribute</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-1995"></a> <span class='varid'>checkInfiniteAttribute</span>
<a name="line-1996"></a> <span class='keyglyph'>=</span> <span class='varid'>getChildren</span>
<a name="line-1997"></a> <span class='varop'>>>></span>
<a name="line-1998"></a> <span class='varid'>choiceA</span>
<a name="line-1999"></a> <span class='keyglyph'>[</span> <span class='varid'>isRngOneOrMore</span> <span class='conop'>:-></span> <span class='varid'>none</span>
<a name="line-2000"></a> <span class='layout'>,</span> <span class='layout'>(</span> <span class='varid'>isRngAttribute</span>
<a name="line-2001"></a> <span class='varop'>>>></span>
<a name="line-2002"></a> <span class='varid'>deep</span> <span class='layout'>(</span><span class='varid'>isRngAnyName</span> <span class='varop'>`orElse`</span> <span class='varid'>isRngNsName</span><span class='layout'>)</span>
<a name="line-2003"></a> <span class='layout'>)</span> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-2004"></a> <span class='layout'>,</span> <span class='varid'>this</span> <span class='conop'>:-></span> <span class='varid'>checkInfiniteAttribute</span>
<a name="line-2005"></a> <span class='keyglyph'>]</span>
<a name="line-2006"></a>
<a name="line-2007"></a> <span class='varid'>checkNames</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='layout'>(</span><span class='conid'>XmlTree</span><span class='layout'>,</span> <span class='layout'>(</span><span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span><span class='layout'>,</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span><span class='layout'>)</span><span class='layout'>)</span> <span class='conid'>XmlTree</span>
<a name="line-2008"></a> <span class='varid'>checkNames</span> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>arr</span> <span class='varid'>fst</span><span class='layout'>)</span>
<a name="line-2009"></a> <span class='varop'>&&&</span>
<a name="line-2010"></a> <span class='layout'>(</span><span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='layout'>(</span><span class='keyword'>_</span><span class='layout'>,</span> <span class='layout'>(</span><span class='varid'>a</span><span class='layout'>,</span> <span class='keyword'>_</span><span class='layout'>)</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>getNameClasses</span> <span class='varid'>nc</span> <span class='varid'>a</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2011"></a> <span class='varop'>&&&</span>
<a name="line-2012"></a> <span class='layout'>(</span><span class='varid'>arr</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='layout'>(</span><span class='keyword'>_</span><span class='layout'>,</span> <span class='layout'>(</span><span class='keyword'>_</span><span class='layout'>,</span> <span class='varid'>b</span><span class='layout'>)</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>getNameClasses</span> <span class='varid'>nc</span> <span class='varid'>b</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2013"></a> <span class='varop'>>>></span>
<a name="line-2014"></a> <span class='varid'>checkPattern</span>
<a name="line-2015"></a> <span class='keyword'>where</span>
<a name="line-2016"></a> <span class='varid'>getNameClasses</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='layout'>(</span><span class='conid'>String</span><span class='layout'>,</span> <span class='conid'>NameClass</span><span class='layout'>)</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>NameClass</span><span class='keyglyph'>]</span>
<a name="line-2017"></a> <span class='varid'>getNameClasses</span> <span class='varid'>nc'</span> <span class='varid'>l</span> <span class='keyglyph'>=</span> <span class='varid'>map</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>x</span> <span class='keyglyph'>-></span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>x</span> <span class='varid'>nc'</span><span class='layout'>)</span> <span class='varid'>l</span>
<a name="line-2018"></a>
<a name="line-2019"></a> <span class='varid'>checkText</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2020"></a> <span class='varid'>checkText</span>
<a name="line-2021"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>firstChild</span> <span class='varop'>>>></span> <span class='varid'>occur</span> <span class='str'>"text"</span> <span class='varid'>this</span> <span class='layout'>)</span>
<a name="line-2022"></a> <span class='varop'>`guards`</span>
<a name="line-2023"></a> <span class='layout'>(</span> <span class='varid'>lastChild</span> <span class='varop'>>>></span> <span class='varid'>occur</span> <span class='str'>"text"</span> <span class='varid'>this</span> <span class='layout'>)</span>
<a name="line-2024"></a>
<a name="line-2025"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-2026"></a>
<a name="line-2027"></a>
<a name="line-2028"></a><a name="overlap"></a><span class='definition'>overlap</span> <span class='keyglyph'>::</span> <span class='conid'>NameClass</span> <span class='keyglyph'>-></span> <span class='conid'>NameClass</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span>
<a name="line-2029"></a><span class='definition'>overlap</span> <span class='varid'>nc1</span> <span class='varid'>nc2</span>
<a name="line-2030"></a> <span class='keyglyph'>=</span> <span class='varid'>any</span> <span class='layout'>(</span><span class='varid'>bothContain</span> <span class='varid'>nc1</span> <span class='varid'>nc2</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>representatives</span> <span class='varid'>nc1</span> <span class='varop'>++</span> <span class='varid'>representatives</span> <span class='varid'>nc2</span><span class='layout'>)</span>
<a name="line-2031"></a>
<a name="line-2032"></a><a name="bothContain"></a><span class='definition'>bothContain</span> <span class='keyglyph'>::</span> <span class='conid'>NameClass</span> <span class='keyglyph'>-></span> <span class='conid'>NameClass</span> <span class='keyglyph'>-></span> <span class='conid'>QName</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span>
<a name="line-2033"></a><span class='definition'>bothContain</span> <span class='varid'>nc1</span> <span class='varid'>nc2</span> <span class='varid'>qn</span>
<a name="line-2034"></a> <span class='keyglyph'>=</span> <span class='varid'>contains</span> <span class='varid'>nc1</span> <span class='varid'>qn</span> <span class='varop'>&&</span> <span class='varid'>contains</span> <span class='varid'>nc2</span> <span class='varid'>qn</span>
<a name="line-2035"></a>
<a name="line-2036"></a><a name="illegalLocalName"></a><span class='definition'>illegalLocalName</span> <span class='keyglyph'>::</span> <span class='conid'>LocalName</span>
<a name="line-2037"></a><span class='definition'>illegalLocalName</span> <span class='keyglyph'>=</span> <span class='str'>""</span>
<a name="line-2038"></a>
<a name="line-2039"></a><a name="illegalUri"></a><span class='definition'>illegalUri</span> <span class='keyglyph'>::</span> <span class='conid'>Uri</span>
<a name="line-2040"></a><span class='definition'>illegalUri</span> <span class='keyglyph'>=</span> <span class='str'>"\x1"</span>
<a name="line-2041"></a>
<a name="line-2042"></a><a name="representatives"></a><span class='definition'>representatives</span> <span class='keyglyph'>::</span> <span class='conid'>NameClass</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>QName</span><span class='keyglyph'>]</span>
<a name="line-2043"></a><span class='definition'>representatives</span> <span class='conid'>AnyName</span>
<a name="line-2044"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>illegalLocalName</span> <span class='varid'>illegalUri</span><span class='keyglyph'>]</span>
<a name="line-2045"></a>
<a name="line-2046"></a><span class='definition'>representatives</span> <span class='layout'>(</span><span class='conid'>AnyNameExcept</span> <span class='varid'>nc</span><span class='layout'>)</span>
<a name="line-2047"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>illegalLocalName</span> <span class='varid'>illegalUri</span><span class='layout'>)</span> <span class='conop'>:</span> <span class='layout'>(</span><span class='varid'>representatives</span> <span class='varid'>nc</span><span class='layout'>)</span>
<a name="line-2048"></a>
<a name="line-2049"></a><span class='definition'>representatives</span> <span class='layout'>(</span><span class='conid'>NsName</span> <span class='varid'>ns</span><span class='layout'>)</span>
<a name="line-2050"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>illegalLocalName</span> <span class='varid'>ns</span><span class='keyglyph'>]</span>
<a name="line-2051"></a>
<a name="line-2052"></a><span class='definition'>representatives</span> <span class='layout'>(</span><span class='conid'>NsNameExcept</span> <span class='varid'>ns</span> <span class='varid'>nc</span><span class='layout'>)</span>
<a name="line-2053"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>illegalLocalName</span> <span class='varid'>ns</span><span class='layout'>)</span> <span class='conop'>:</span> <span class='layout'>(</span><span class='varid'>representatives</span> <span class='varid'>nc</span><span class='layout'>)</span>
<a name="line-2054"></a>
<a name="line-2055"></a><span class='definition'>representatives</span> <span class='layout'>(</span><span class='conid'>Name</span> <span class='varid'>ns</span> <span class='varid'>ln</span><span class='layout'>)</span>
<a name="line-2056"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>ln</span> <span class='varid'>ns</span><span class='keyglyph'>]</span>
<a name="line-2057"></a>
<a name="line-2058"></a><span class='definition'>representatives</span> <span class='layout'>(</span><span class='conid'>NameClassChoice</span> <span class='varid'>nc1</span> <span class='varid'>nc2</span><span class='layout'>)</span>
<a name="line-2059"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>representatives</span> <span class='varid'>nc1</span><span class='layout'>)</span> <span class='varop'>++</span> <span class='layout'>(</span><span class='varid'>representatives</span> <span class='varid'>nc2</span><span class='layout'>)</span>
<a name="line-2060"></a>
<a name="line-2061"></a><span class='definition'>representatives</span> <span class='keyword'>_</span>
<a name="line-2062"></a> <span class='keyglyph'>=</span> <span class='conid'>[]</span>
<a name="line-2063"></a>
<a name="line-2064"></a><a name="resetStates"></a><span class='comment'>-- ------------------------------------------------------------------------------------------------------- </span>
<a name="line-2065"></a><span class='definition'>resetStates</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2066"></a><span class='definition'>resetStates</span>
<a name="line-2067"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='varop'>$</span> <span class='varid'>setParamInt</span> <span class='str'>"define_id"</span> <span class='num'>0</span><span class='layout'>)</span>
<a name="line-2068"></a> <span class='varop'>>>></span>
<a name="line-2069"></a> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='conid'>[]</span> <span class='varop'>>>></span> <span class='varid'>setParamList</span> <span class='str'>"elementTable"</span> <span class='layout'>)</span>
<a name="line-2070"></a> <span class='varop'>>>></span>
<a name="line-2071"></a> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>constA</span> <span class='varop'>$</span> <span class='varid'>setParamInt</span> <span class='varid'>a_numberOfErrors</span> <span class='num'>0</span><span class='layout'>)</span>
<a name="line-2072"></a> <span class='layout'>)</span>
<a name="line-2073"></a>
<a name="line-2074"></a>
<a name="line-2075"></a><a name="getAllDeepDefines"></a><span class='definition'>getAllDeepDefines</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>Env</span>
<a name="line-2076"></a><span class='definition'>getAllDeepDefines</span>
<a name="line-2077"></a> <span class='keyglyph'>=</span> <span class='varid'>listA</span> <span class='varop'>$</span> <span class='varid'>deep</span> <span class='varid'>isRngDefine</span>
<a name="line-2078"></a> <span class='varop'>>>></span>
<a name="line-2079"></a> <span class='layout'>(</span> <span class='varid'>getRngAttrName</span> <span class='varop'>&&&</span> <span class='varid'>this</span> <span class='layout'>)</span>
<a name="line-2080"></a>
<a name="line-2081"></a>
<a name="line-2082"></a><span class='comment'>-- | Return all reachable defines from the start pattern</span>
<a name="line-2083"></a>
<a name="line-2084"></a><a name="getRefsFromStartPattern"></a><span class='definition'>getRefsFromStartPattern</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span>
<a name="line-2085"></a><span class='definition'>getRefsFromStartPattern</span>
<a name="line-2086"></a> <span class='keyglyph'>=</span> <span class='varid'>listA</span>
<a name="line-2087"></a> <span class='layout'>(</span> <span class='varid'>getChildren</span>
<a name="line-2088"></a> <span class='varop'>>>></span>
<a name="line-2089"></a> <span class='varid'>isRngGrammar</span>
<a name="line-2090"></a> <span class='varop'>>>></span>
<a name="line-2091"></a> <span class='varid'>getChildren</span>
<a name="line-2092"></a> <span class='varop'>>>></span>
<a name="line-2093"></a> <span class='varid'>isRngStart</span>
<a name="line-2094"></a> <span class='varop'>>>></span>
<a name="line-2095"></a> <span class='varid'>deep</span> <span class='varid'>isRngRef</span>
<a name="line-2096"></a> <span class='varop'>>>></span>
<a name="line-2097"></a> <span class='varid'>getRngAttrName</span>
<a name="line-2098"></a> <span class='layout'>)</span>
<a name="line-2099"></a>
<a name="line-2100"></a><a name="removeUnreachableDefines"></a><span class='definition'>removeUnreachableDefines</span> <span class='keyglyph'>::</span> <span class='conid'>Env</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2101"></a><span class='definition'>removeUnreachableDefines</span> <span class='varid'>allDefs</span> <span class='varid'>processedDefs</span> <span class='varid'>reachableDefs</span>
<a name="line-2102"></a> <span class='keyglyph'>=</span> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>unprocessedDefs</span> <span class='varop'>/=</span> <span class='conid'>[]</span><span class='layout'>)</span>
<a name="line-2103"></a> <span class='layout'>(</span> <span class='varid'>removeUnreachableDefines</span> <span class='varid'>allDefs</span> <span class='layout'>(</span><span class='varid'>nextTreeName</span> <span class='conop'>:</span> <span class='varid'>processedDefs</span><span class='layout'>)</span> <span class='varop'>$<</span> <span class='varid'>newReachableDefs</span> <span class='layout'>)</span>
<a name="line-2104"></a> <span class='layout'>(</span> <span class='varid'>processChildren</span> <span class='varop'>$</span> <span class='comment'>-- root node</span>
<a name="line-2105"></a> <span class='varid'>processChildren</span> <span class='varop'>$</span> <span class='comment'>-- first grammar</span>
<a name="line-2106"></a> <span class='layout'>(</span> <span class='varid'>none</span>
<a name="line-2107"></a> <span class='varop'>`when`</span>
<a name="line-2108"></a> <span class='layout'>(</span> <span class='varid'>isRngDefine</span>
<a name="line-2109"></a> <span class='varop'>>>></span>
<a name="line-2110"></a> <span class='varid'>getRngAttrName</span>
<a name="line-2111"></a> <span class='varop'>>>></span>
<a name="line-2112"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>n</span> <span class='keyglyph'>-></span> <span class='varid'>not</span> <span class='varop'>$</span> <span class='varid'>elem</span> <span class='varid'>n</span> <span class='varid'>reachableDefs</span><span class='layout'>)</span>
<a name="line-2113"></a> <span class='layout'>)</span>
<a name="line-2114"></a> <span class='layout'>)</span>
<a name="line-2115"></a> <span class='layout'>)</span>
<a name="line-2116"></a> <span class='keyword'>where</span>
<a name="line-2117"></a> <span class='varid'>unprocessedDefs</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span>
<a name="line-2118"></a> <span class='varid'>unprocessedDefs</span>
<a name="line-2119"></a> <span class='keyglyph'>=</span> <span class='varid'>reachableDefs</span> <span class='varop'>\\</span> <span class='varid'>processedDefs</span>
<a name="line-2120"></a>
<a name="line-2121"></a> <span class='varid'>newReachableDefs</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='varid'>n</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span>
<a name="line-2122"></a> <span class='varid'>newReachableDefs</span>
<a name="line-2123"></a> <span class='keyglyph'>=</span> <span class='varid'>constA</span> <span class='varid'>getTree</span>
<a name="line-2124"></a> <span class='varop'>>>></span>
<a name="line-2125"></a> <span class='varid'>listA</span> <span class='layout'>(</span> <span class='varid'>deep</span> <span class='varid'>isRngRef</span>
<a name="line-2126"></a> <span class='varop'>>>></span>
<a name="line-2127"></a> <span class='varid'>getRngAttrName</span>
<a name="line-2128"></a> <span class='layout'>)</span>
<a name="line-2129"></a> <span class='varop'>>>></span>
<a name="line-2130"></a> <span class='varid'>arr</span> <span class='layout'>(</span><span class='varid'>noDoubles</span> <span class='varop'>.</span> <span class='layout'>(</span><span class='varid'>reachableDefs</span> <span class='varop'>++</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2131"></a>
<a name="line-2132"></a> <span class='varid'>getTree</span> <span class='keyglyph'>::</span> <span class='conid'>XmlTree</span>
<a name="line-2133"></a> <span class='varid'>getTree</span>
<a name="line-2134"></a> <span class='keyglyph'>=</span> <span class='varid'>fromJust</span> <span class='varop'>$</span> <span class='varid'>lookup</span> <span class='varid'>nextTreeName</span> <span class='varid'>allDefs</span>
<a name="line-2135"></a>
<a name="line-2136"></a> <span class='varid'>nextTreeName</span> <span class='keyglyph'>::</span> <span class='conid'>String</span>
<a name="line-2137"></a> <span class='varid'>nextTreeName</span>
<a name="line-2138"></a> <span class='keyglyph'>=</span> <span class='varid'>head</span> <span class='varid'>unprocessedDefs</span>
<a name="line-2139"></a>
<a name="line-2140"></a>
<a name="line-2141"></a><span class='comment'>-- ------------------------------------------------------------------------------------------------------- </span>
<a name="line-2142"></a>
<a name="line-2143"></a>
<a name="line-2144"></a><a name="checkElemName"></a><span class='definition'>checkElemName</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2145"></a><span class='definition'>checkElemName</span> <span class='varid'>l</span>
<a name="line-2146"></a> <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>isElem</span> <span class='varop'>>>></span> <span class='varid'>getLocalPart</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='varid'>s</span> <span class='keyglyph'>-></span> <span class='varid'>elem</span> <span class='varid'>s</span> <span class='varid'>l</span><span class='layout'>)</span> <span class='layout'>)</span>
<a name="line-2147"></a> <span class='varop'>`guards`</span>
<a name="line-2148"></a> <span class='varid'>this</span>
<a name="line-2149"></a>
<a name="line-2150"></a><a name="wrapPattern2Two"></a><span class='definition'>wrapPattern2Two</span> <span class='keyglyph'>::</span> <span class='layout'>(</span><span class='conid'>ArrowXml</span> <span class='varid'>a</span><span class='layout'>)</span> <span class='keyglyph'>=></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2151"></a><span class='definition'>wrapPattern2Two</span> <span class='varid'>name</span>
<a name="line-2152"></a> <span class='keyglyph'>=</span> <span class='varid'>choiceA</span>
<a name="line-2153"></a> <span class='keyglyph'>[</span> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>></span> <span class='num'>2</span><span class='layout'>)</span>
<a name="line-2154"></a> <span class='conop'>:-></span> <span class='layout'>(</span> <span class='varid'>replaceChildren</span> <span class='layout'>(</span> <span class='layout'>(</span><span class='varid'>mkRngElement</span> <span class='varid'>name</span> <span class='varid'>none</span>
<a name="line-2155"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>.</span> <span class='varid'>take</span> <span class='num'>2</span><span class='layout'>)</span>
<a name="line-2156"></a> <span class='layout'>)</span>
<a name="line-2157"></a> <span class='varop'><+></span>
<a name="line-2158"></a> <span class='layout'>(</span><span class='varid'>getChildren</span> <span class='varop'>>>.</span> <span class='varid'>drop</span> <span class='num'>2</span><span class='layout'>)</span>
<a name="line-2159"></a> <span class='layout'>)</span>
<a name="line-2160"></a> <span class='varop'>>>></span>
<a name="line-2161"></a> <span class='varid'>wrapPattern2Two</span> <span class='varid'>name</span>
<a name="line-2162"></a> <span class='layout'>)</span>
<a name="line-2163"></a> <span class='layout'>,</span> <span class='varid'>noOfChildren</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='num'>1</span><span class='layout'>)</span>
<a name="line-2164"></a> <span class='conop'>:-></span> <span class='varid'>getChildren</span>
<a name="line-2165"></a> <span class='layout'>,</span> <span class='varid'>this</span>
<a name="line-2166"></a> <span class='conop'>:-></span> <span class='varid'>this</span>
<a name="line-2167"></a> <span class='keyglyph'>]</span>
<a name="line-2168"></a>
<a name="line-2169"></a><a name="mkRelaxError"></a><span class='definition'>mkRelaxError</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-2170"></a><span class='definition'>mkRelaxError</span> <span class='varid'>changesStr</span> <span class='varid'>errStr</span>
<a name="line-2171"></a> <span class='keyglyph'>=</span> <span class='varid'>perform</span> <span class='layout'>(</span><span class='varid'>getAndSetCounter</span> <span class='varid'>a_numberOfErrors</span><span class='layout'>)</span>
<a name="line-2172"></a> <span class='varop'>>>></span>
<a name="line-2173"></a> <span class='varid'>mkRngRelaxError</span> <span class='varid'>none</span> <span class='varid'>none</span>
<a name="line-2174"></a> <span class='varop'>>>></span>
<a name="line-2175"></a> <span class='varid'>addAttr</span> <span class='str'>"desc"</span> <span class='varid'>errStr</span>
<a name="line-2176"></a> <span class='varop'>>>></span>
<a name="line-2177"></a> <span class='layout'>(</span> <span class='varid'>addAttr</span> <span class='str'>"changes"</span> <span class='varid'>changesStr</span>
<a name="line-2178"></a> <span class='varop'>`whenP`</span>
<a name="line-2179"></a> <span class='layout'>(</span><span class='varid'>const</span> <span class='varop'>$</span> <span class='varid'>changesStr</span> <span class='varop'>/=</span> <span class='str'>""</span><span class='layout'>)</span>
<a name="line-2180"></a> <span class='layout'>)</span>
<a name="line-2181"></a>
<a name="line-2182"></a><a name="collectErrors"></a><span class='definition'>collectErrors</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2183"></a><span class='definition'>collectErrors</span>
<a name="line-2184"></a> <span class='keyglyph'>=</span> <span class='varid'>none</span>
<a name="line-2185"></a> <span class='varop'>`when`</span>
<a name="line-2186"></a> <span class='layout'>(</span> <span class='varid'>stopAfterFirstError</span>
<a name="line-2187"></a> <span class='varop'>>>></span>
<a name="line-2188"></a> <span class='varid'>getParamInt</span> <span class='num'>0</span> <span class='varid'>a_numberOfErrors</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>></span><span class='num'>0</span><span class='layout'>)</span>
<a name="line-2189"></a> <span class='layout'>)</span>
<a name="line-2190"></a> <span class='keyword'>where</span>
<a name="line-2191"></a> <span class='varid'>stopAfterFirstError</span> <span class='keyglyph'>=</span> <span class='varid'>getParamString</span> <span class='varid'>a_do_not_collect_errors</span>
<a name="line-2192"></a> <span class='varop'>>>></span>
<a name="line-2193"></a> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>==</span> <span class='str'>"1"</span><span class='layout'>)</span>
<a name="line-2194"></a>
<a name="line-2195"></a>
<a name="line-2196"></a><a name="getErrors"></a><span class='comment'>-- | Returns the list of simplification errors or 'none'</span>
<a name="line-2197"></a><span class='definition'>getErrors</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2198"></a><span class='definition'>getErrors</span> <span class='keyglyph'>=</span> <span class='layout'>(</span><span class='varid'>getParamInt</span> <span class='num'>0</span> <span class='varid'>a_numberOfErrors</span> <span class='varop'>>>></span> <span class='varid'>isA</span> <span class='layout'>(</span><span class='varop'>></span><span class='num'>0</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2199"></a> <span class='varop'>`guards`</span>
<a name="line-2200"></a> <span class='layout'>(</span><span class='varid'>root</span> <span class='conid'>[]</span> <span class='keyglyph'>[</span><span class='varid'>multi</span> <span class='varid'>isRngRelaxError</span><span class='keyglyph'>]</span><span class='layout'>)</span>
<a name="line-2201"></a>
<a name="line-2202"></a><a name="setChangesAttr"></a><span class='definition'>setChangesAttr</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2203"></a><span class='definition'>setChangesAttr</span> <span class='varid'>str</span>
<a name="line-2204"></a> <span class='keyglyph'>=</span> <span class='varid'>ifA</span> <span class='layout'>(</span><span class='varid'>hasAttr</span> <span class='varid'>a_relaxSimplificationChanges</span><span class='layout'>)</span>
<a name="line-2205"></a> <span class='layout'>(</span> <span class='varid'>processAttrl</span> <span class='varop'>$</span>
<a name="line-2206"></a> <span class='varid'>changeAttrValue</span> <span class='layout'>(</span><span class='varop'>++</span> <span class='layout'>(</span><span class='str'>", "</span> <span class='varop'>++</span> <span class='varid'>str</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2207"></a> <span class='varop'>`when`</span>
<a name="line-2208"></a> <span class='layout'>(</span><span class='varid'>hasRngName</span> <span class='varid'>a_relaxSimplificationChanges</span><span class='layout'>)</span>
<a name="line-2209"></a> <span class='layout'>)</span>
<a name="line-2210"></a> <span class='layout'>(</span><span class='varid'>mkAttr</span> <span class='layout'>(</span><span class='varid'>mkName</span> <span class='varid'>a_relaxSimplificationChanges</span><span class='layout'>)</span> <span class='layout'>(</span><span class='varid'>txt</span> <span class='varid'>str</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2211"></a>
<a name="line-2212"></a>
<a name="line-2213"></a><a name="getChangesAttr"></a><span class='definition'>getChangesAttr</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-2214"></a><span class='definition'>getChangesAttr</span>
<a name="line-2215"></a> <span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='varid'>a_relaxSimplificationChanges</span>
<a name="line-2216"></a> <span class='varop'>&&&</span>
<a name="line-2217"></a> <span class='varid'>getParamString</span> <span class='varid'>a_output_changes</span>
<a name="line-2218"></a> <span class='varop'>>>></span>
<a name="line-2219"></a> <span class='varid'>ifP</span> <span class='layout'>(</span><span class='keyglyph'>\</span><span class='layout'>(</span><span class='varid'>changes</span><span class='layout'>,</span> <span class='varid'>param</span><span class='layout'>)</span> <span class='keyglyph'>-></span> <span class='varid'>changes</span> <span class='varop'>/=</span> <span class='str'>""</span> <span class='varop'>&&</span> <span class='varid'>param</span> <span class='varop'>==</span> <span class='str'>"1"</span><span class='layout'>)</span>
<a name="line-2220"></a> <span class='layout'>(</span><span class='varid'>arr2</span> <span class='varop'>$</span> <span class='keyglyph'>\</span><span class='varid'>l</span> <span class='keyword'>_</span> <span class='keyglyph'>-></span> <span class='str'>" ("</span> <span class='varop'>++</span> <span class='varid'>l</span> <span class='varop'>++</span> <span class='str'>")"</span><span class='layout'>)</span>
<a name="line-2221"></a> <span class='layout'>(</span><span class='varid'>constA</span> <span class='str'>""</span><span class='layout'>)</span>
<a name="line-2222"></a>
<a name="line-2223"></a>
<a name="line-2224"></a><a name="getAndSetCounter"></a><span class='definition'>getAndSetCounter</span> <span class='keyglyph'>::</span> <span class='conid'>String</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='varid'>b</span> <span class='conid'>String</span>
<a name="line-2225"></a><span class='definition'>getAndSetCounter</span> <span class='varid'>name</span>
<a name="line-2226"></a> <span class='keyglyph'>=</span> <span class='varid'>genNewId</span> <span class='varop'>$<</span> <span class='varid'>getParamInt</span> <span class='num'>0</span> <span class='varid'>name</span>
<a name="line-2227"></a> <span class='keyword'>where</span>
<a name="line-2228"></a> <span class='varid'>genNewId</span> <span class='keyglyph'>::</span> <span class='conid'>Int</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='varid'>b</span> <span class='conid'>String</span>
<a name="line-2229"></a> <span class='varid'>genNewId</span> <span class='varid'>i</span> <span class='keyglyph'>=</span> <span class='varid'>setParamInt</span> <span class='varid'>name</span> <span class='layout'>(</span><span class='varid'>i</span><span class='varop'>+</span><span class='num'>1</span><span class='layout'>)</span> <span class='varop'>>>></span> <span class='varid'>constA</span> <span class='layout'>(</span><span class='varid'>show</span> <span class='varid'>i</span><span class='layout'>)</span>
<a name="line-2230"></a>
<a name="line-2231"></a>
<a name="line-2232"></a><span class='comment'>-- ------------------------------------------------------------------------------------------------------- </span>
<a name="line-2233"></a>
<a name="line-2234"></a><span class='comment'>-- | Creates the simple form of a Relax NG schema</span>
<a name="line-2235"></a><span class='comment'>-- (see also: 'relaxOptions')</span>
<a name="line-2236"></a>
<a name="line-2237"></a><a name="createSimpleForm"></a><span class='definition'>createSimpleForm</span> <span class='keyglyph'>::</span> <span class='conid'>Attributes</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='conid'>Bool</span> <span class='keyglyph'>-></span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2238"></a><span class='definition'>createSimpleForm</span> <span class='varid'>remainingOptions</span> <span class='varid'>checkRestrictions</span> <span class='varid'>validateExternalRef</span> <span class='varid'>validateInclude</span>
<a name="line-2239"></a> <span class='keyglyph'>=</span> <span class='varid'>traceMsg</span> <span class='num'>2</span> <span class='layout'>(</span><span class='str'>"createSimpleForm: "</span> <span class='varop'>++</span> <span class='varid'>show</span> <span class='layout'>(</span><span class='varid'>remainingOptions</span><span class='layout'>,</span> <span class='varid'>checkRestrictions</span><span class='layout'>,</span><span class='varid'>validateExternalRef</span><span class='layout'>,</span> <span class='varid'>validateInclude</span><span class='layout'>)</span><span class='layout'>)</span>
<a name="line-2240"></a> <span class='varop'>>>></span>
<a name="line-2241"></a> <span class='layout'>(</span> <span class='keyword'>if</span> <span class='varid'>checkRestrictions</span>
<a name="line-2242"></a> <span class='keyword'>then</span> <span class='varid'>createSimpleWithRest</span>
<a name="line-2243"></a> <span class='keyword'>else</span> <span class='varid'>createSimpleWithoutRest</span>
<a name="line-2244"></a> <span class='layout'>)</span>
<a name="line-2245"></a> <span class='keyword'>where</span>
<a name="line-2246"></a>
<a name="line-2247"></a> <span class='varid'>createSimpleWithRest</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2248"></a> <span class='varid'>createSimpleWithRest</span>
<a name="line-2249"></a> <span class='keyglyph'>=</span> <span class='varid'>seqA</span> <span class='varop'>$</span> <span class='varid'>concat</span> <span class='keyglyph'>[</span> <span class='varid'>simplificationPart1</span>
<a name="line-2250"></a> <span class='layout'>,</span> <span class='varid'>return</span> <span class='varop'>$</span> <span class='varid'>traceDoc</span> <span class='str'>"relax NG: simplificationPart1 done"</span>
<a name="line-2251"></a> <span class='layout'>,</span> <span class='varid'>restrictionsPart1</span>
<a name="line-2252"></a> <span class='layout'>,</span> <span class='varid'>return</span> <span class='varop'>$</span> <span class='varid'>traceDoc</span> <span class='str'>"relax NG: restrictionsPart1 done"</span>
<a name="line-2253"></a> <span class='layout'>,</span> <span class='varid'>simplificationPart2</span>
<a name="line-2254"></a> <span class='layout'>,</span> <span class='varid'>return</span> <span class='varop'>$</span> <span class='varid'>traceDoc</span> <span class='str'>"relax NG simplificationPart2 done"</span>
<a name="line-2255"></a> <span class='layout'>,</span> <span class='varid'>restrictionsPart2</span>
<a name="line-2256"></a> <span class='layout'>,</span> <span class='varid'>return</span> <span class='varop'>$</span> <span class='varid'>traceDoc</span> <span class='str'>"relax NG: restrictionsPart2 done"</span>
<a name="line-2257"></a> <span class='layout'>,</span> <span class='varid'>finalCleanUp</span>
<a name="line-2258"></a> <span class='layout'>,</span> <span class='varid'>return</span> <span class='varop'>$</span> <span class='varid'>traceDoc</span> <span class='str'>"relax NG: finalCleanUp done"</span>
<a name="line-2259"></a> <span class='keyglyph'>]</span>
<a name="line-2260"></a>
<a name="line-2261"></a> <span class='varid'>createSimpleWithoutRest</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2262"></a> <span class='varid'>createSimpleWithoutRest</span>
<a name="line-2263"></a> <span class='keyglyph'>=</span> <span class='varid'>seqA</span> <span class='varop'>$</span> <span class='varid'>concat</span> <span class='keyglyph'>[</span> <span class='varid'>simplificationPart1</span>
<a name="line-2264"></a> <span class='layout'>,</span> <span class='varid'>simplificationPart2</span>
<a name="line-2265"></a> <span class='layout'>,</span> <span class='varid'>finalCleanUp</span>
<a name="line-2266"></a> <span class='keyglyph'>]</span>
<a name="line-2267"></a> <span class='varid'>simplificationPart1</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span><span class='keyglyph'>]</span>
<a name="line-2268"></a> <span class='varid'>simplificationPart1</span>
<a name="line-2269"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span> <span class='varid'>propagateNamespaces</span>
<a name="line-2270"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep1</span>
<a name="line-2271"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep2</span> <span class='varid'>remainingOptions</span> <span class='varid'>validateExternalRef</span> <span class='varid'>validateInclude</span> <span class='conid'>[]</span> <span class='conid'>[]</span>
<a name="line-2272"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep3</span>
<a name="line-2273"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep4</span>
<a name="line-2274"></a> <span class='keyglyph'>]</span>
<a name="line-2275"></a>
<a name="line-2276"></a> <span class='varid'>simplificationPart2</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span><span class='keyglyph'>]</span>
<a name="line-2277"></a> <span class='varid'>simplificationPart2</span>
<a name="line-2278"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span> <span class='varid'>simplificationStep5</span>
<a name="line-2279"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep6</span>
<a name="line-2280"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep7</span>
<a name="line-2281"></a> <span class='layout'>,</span> <span class='varid'>simplificationStep8</span>
<a name="line-2282"></a> <span class='keyglyph'>]</span>
<a name="line-2283"></a>
<a name="line-2284"></a> <span class='varid'>restrictionsPart1</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span><span class='keyglyph'>]</span>
<a name="line-2285"></a> <span class='varid'>restrictionsPart1</span>
<a name="line-2286"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span> <span class='varid'>restrictionsStep1</span> <span class='keyglyph'>]</span>
<a name="line-2287"></a>
<a name="line-2288"></a> <span class='varid'>restrictionsPart2</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span><span class='keyglyph'>]</span>
<a name="line-2289"></a> <span class='varid'>restrictionsPart2</span>
<a name="line-2290"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span> <span class='varid'>restrictionsStep2</span>
<a name="line-2291"></a> <span class='layout'>,</span> <span class='varid'>restrictionsStep3</span>
<a name="line-2292"></a> <span class='layout'>,</span> <span class='varid'>restrictionsStep4</span>
<a name="line-2293"></a> <span class='keyglyph'>]</span>
<a name="line-2294"></a>
<a name="line-2295"></a> <span class='varid'>finalCleanUp</span> <span class='keyglyph'>::</span> <span class='keyglyph'>[</span><span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span><span class='keyglyph'>]</span>
<a name="line-2296"></a> <span class='varid'>finalCleanUp</span>
<a name="line-2297"></a> <span class='keyglyph'>=</span> <span class='keyglyph'>[</span> <span class='varid'>cleanUp</span>
<a name="line-2298"></a> <span class='layout'>,</span> <span class='varid'>resetStates</span>
<a name="line-2299"></a> <span class='keyglyph'>]</span>
<a name="line-2300"></a>
<a name="line-2301"></a> <span class='varid'>cleanUp</span> <span class='keyglyph'>::</span> <span class='conid'>IOSArrow</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-2302"></a> <span class='varid'>cleanUp</span> <span class='keyglyph'>=</span> <span class='varid'>processTopDown</span> <span class='varop'>$</span>
<a name="line-2303"></a> <span class='varid'>removeAttr</span> <span class='varid'>a_relaxSimplificationChanges</span>
<a name="line-2304"></a> <span class='varop'>>>></span>
<a name="line-2305"></a> <span class='varid'>removeAttr</span> <span class='varid'>defineOrigName</span>
<a name="line-2306"></a>
<a name="line-2307"></a><span class='comment'>-- ------------------------------------------------------------------------------------------------------- </span>
</pre></body>
</html>