<?xml version="1.0" encoding="UTF-8"?>
<!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>Text/Highlighting/Kate/Syntax/Vhdl.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{- This module was generated from data in the Kate syntax highlighting file vhdl.xml, version 1.10,
<a name="line-2"></a> by Rocky Scaletta (rocky@purdue.edu), Stefan Endrullis (stefan@endrullis.de), Florent Ouchet (outchy@users.sourceforge.net), Chris Higgs (chiggs.99@gmail.com), Jan Michel (jan@mueschelsoft.de) -}</span>
<a name="line-3"></a>
<a name="line-4"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Highlighting</span><span class='hs-varop'>.</span><span class='hs-conid'>Kate</span><span class='hs-varop'>.</span><span class='hs-conid'>Syntax</span><span class='hs-varop'>.</span><span class='hs-conid'>Vhdl</span> <span class='hs-layout'>(</span> <span class='hs-varid'>highlight</span><span class='hs-layout'>,</span> <span class='hs-varid'>parseExpression</span><span class='hs-layout'>,</span> <span class='hs-varid'>syntaxName</span><span class='hs-layout'>,</span> <span class='hs-varid'>syntaxExtensions</span> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-5"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Highlighting</span><span class='hs-varop'>.</span><span class='hs-conid'>Kate</span><span class='hs-varop'>.</span><span class='hs-conid'>Definitions</span>
<a name="line-6"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Highlighting</span><span class='hs-varop'>.</span><span class='hs-conid'>Kate</span><span class='hs-varop'>.</span><span class='hs-conid'>Common</span>
<a name="line-7"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>ParserCombinators</span><span class='hs-varop'>.</span><span class='hs-conid'>Parsec</span>
<a name="line-8"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span><span class='hs-varid'>when</span><span class='hs-layout'>)</span>
<a name="line-9"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromList</span><span class='hs-layout'>)</span>
<a name="line-10"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span><span class='hs-layout'>,</span> <span class='hs-varid'>maybeToList</span><span class='hs-layout'>)</span>
<a name="line-11"></a>
<a name="line-12"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Set</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Set</span>
<a name="line-13"></a><a name="syntaxName"></a><span class='hs-comment'>-- | Full name of language.</span>
<a name="line-14"></a><span class='hs-definition'>syntaxName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-15"></a><span class='hs-definition'>syntaxName</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"VHDL"</span>
<a name="line-16"></a>
<a name="line-17"></a><a name="syntaxExtensions"></a><span class='hs-comment'>-- | Filename extensions for this language.</span>
<a name="line-18"></a><span class='hs-definition'>syntaxExtensions</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-19"></a><span class='hs-definition'>syntaxExtensions</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"*.vhdl;*.vhd"</span>
<a name="line-20"></a>
<a name="line-21"></a><a name="highlight"></a><span class='hs-comment'>-- | Highlight source code using this syntax definition.</span>
<a name="line-22"></a><span class='hs-definition'>highlight</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Either</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>SourceLine</span><span class='hs-keyglyph'>]</span>
<a name="line-23"></a><span class='hs-definition'>highlight</span> <span class='hs-varid'>input</span> <span class='hs-keyglyph'>=</span>
<a name="line-24"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>runParser</span> <span class='hs-varid'>parseSource</span> <span class='hs-varid'>startingState</span> <span class='hs-str'>"source"</span> <span class='hs-varid'>input</span> <span class='hs-keyword'>of</span>
<a name="line-25"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>err</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Left</span> <span class='hs-varop'>$</span> <span class='hs-varid'>show</span> <span class='hs-varid'>err</span>
<a name="line-26"></a> <span class='hs-conid'>Right</span> <span class='hs-varid'>result</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Right</span> <span class='hs-varid'>result</span>
<a name="line-27"></a>
<a name="line-28"></a><a name="parseExpression"></a><span class='hs-comment'>-- | Parse an expression using appropriate local context.</span>
<a name="line-29"></a><span class='hs-definition'>parseExpression</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GenParser</span> <span class='hs-conid'>Char</span> <span class='hs-conid'>SyntaxState</span> <span class='hs-conid'>LabeledSource</span>
<a name="line-30"></a><span class='hs-definition'>parseExpression</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-31"></a> <span class='hs-varid'>st</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getState</span>
<a name="line-32"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>oldLang</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>synStLanguage</span> <span class='hs-varid'>st</span>
<a name="line-33"></a> <span class='hs-varid'>setState</span> <span class='hs-varop'>$</span> <span class='hs-varid'>st</span> <span class='hs-layout'>{</span> <span class='hs-varid'>synStLanguage</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"VHDL"</span> <span class='hs-layout'>}</span>
<a name="line-34"></a> <span class='hs-varid'>context</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>currentContext</span> <span class='hs-varop'><|></span> <span class='hs-layout'>(</span><span class='hs-varid'>pushContext</span> <span class='hs-str'>"start"</span> <span class='hs-varop'>>></span> <span class='hs-varid'>currentContext</span><span class='hs-layout'>)</span>
<a name="line-35"></a> <span class='hs-varid'>result</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseRules</span> <span class='hs-varid'>context</span>
<a name="line-36"></a> <span class='hs-varid'>updateState</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>st</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>st</span> <span class='hs-layout'>{</span> <span class='hs-varid'>synStLanguage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>oldLang</span> <span class='hs-layout'>}</span>
<a name="line-37"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>result</span>
<a name="line-38"></a>
<a name="line-39"></a><a name="parseSource"></a><span class='hs-definition'>parseSource</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-40"></a> <span class='hs-varid'>lineContents</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookAhead</span> <span class='hs-varid'>wholeLine</span>
<a name="line-41"></a> <span class='hs-varid'>updateState</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>st</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>st</span> <span class='hs-layout'>{</span> <span class='hs-varid'>synStCurrentLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lineContents</span> <span class='hs-layout'>}</span>
<a name="line-42"></a> <span class='hs-varid'>result</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>manyTill</span> <span class='hs-varid'>parseSourceLine</span> <span class='hs-varid'>eof</span>
<a name="line-43"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-varid'>normalizeHighlighting</span> <span class='hs-varid'>result</span>
<a name="line-44"></a>
<a name="line-45"></a><a name="startingState"></a><span class='hs-definition'>startingState</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>SyntaxState</span> <span class='hs-layout'>{</span><span class='hs-varid'>synStContexts</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromList</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-str'>"VHDL"</span><span class='hs-layout'>,</span><span class='hs-keyglyph'>[</span><span class='hs-str'>"start"</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStLanguage</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"VHDL"</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStCurrentLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStCharsParsedInLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStPrevChar</span> <span class='hs-keyglyph'>=</span> <span class='hs-chr'>'\n'</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStCaseSensitive</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStKeywordCaseSensitive</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStCaptures</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span><span class='hs-layout'>}</span>
<a name="line-46"></a>
<a name="line-47"></a><a name="parseSourceLine"></a><span class='hs-definition'>parseSourceLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>manyTill</span> <span class='hs-varid'>parseExpressionInternal</span> <span class='hs-varid'>pEndLine</span>
<a name="line-48"></a>
<a name="line-49"></a><a name="pEndLine"></a><span class='hs-definition'>pEndLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-50"></a> <span class='hs-varid'>lookAhead</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newline</span> <span class='hs-varop'><|></span> <span class='hs-layout'>(</span><span class='hs-varid'>eof</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-chr'>'\n'</span><span class='hs-layout'>)</span>
<a name="line-51"></a> <span class='hs-varid'>context</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>currentContext</span>
<a name="line-52"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>context</span> <span class='hs-keyword'>of</span>
<a name="line-53"></a> <span class='hs-str'>"start"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-54"></a> <span class='hs-str'>"package"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-55"></a> <span class='hs-str'>"packagebody"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-56"></a> <span class='hs-str'>"architecture_main"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-57"></a> <span class='hs-str'>"arch_decl"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-58"></a> <span class='hs-str'>"detect_arch_parts"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-59"></a> <span class='hs-str'>"generate1"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-60"></a> <span class='hs-str'>"generate2"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-61"></a> <span class='hs-str'>"process1"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-62"></a> <span class='hs-str'>"proc_rules"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-63"></a> <span class='hs-str'>"instance"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-64"></a> <span class='hs-str'>"forOrWhile"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-65"></a> <span class='hs-str'>"if_start"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-66"></a> <span class='hs-str'>"if"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-67"></a> <span class='hs-str'>"case1"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-68"></a> <span class='hs-str'>"case2"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-69"></a> <span class='hs-str'>"caseWhen"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-70"></a> <span class='hs-str'>"entity"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-71"></a> <span class='hs-str'>"entity_main"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-72"></a> <span class='hs-str'>"preDetection"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-73"></a> <span class='hs-str'>"generalDetection"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-74"></a> <span class='hs-str'>"comment"</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pEndLine</span>
<a name="line-75"></a> <span class='hs-str'>"string"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-76"></a> <span class='hs-str'>"attribute"</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pEndLine</span>
<a name="line-77"></a> <span class='hs-str'>"quot in att"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-78"></a> <span class='hs-str'>"signal"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-varop'>>></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-79"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pHandleEndLine</span>
<a name="line-80"></a>
<a name="line-81"></a><a name="withAttribute"></a><span class='hs-definition'>withAttribute</span> <span class='hs-varid'>attr</span> <span class='hs-varid'>txt</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-82"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>txt</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fail</span> <span class='hs-str'>"Parser matched no text"</span>
<a name="line-83"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>labs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>attr</span> <span class='hs-conop'>:</span> <span class='hs-varid'>maybeToList</span> <span class='hs-layout'>(</span><span class='hs-varid'>lookup</span> <span class='hs-varid'>attr</span> <span class='hs-varid'>styles</span><span class='hs-layout'>)</span>
<a name="line-84"></a> <span class='hs-varid'>st</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getState</span>
<a name="line-85"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>oldCharsParsed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>synStCharsParsedInLine</span> <span class='hs-varid'>st</span>
<a name="line-86"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>prevchar</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>txt</span> <span class='hs-keyword'>then</span> <span class='hs-chr'>'\n'</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>last</span> <span class='hs-varid'>txt</span>
<a name="line-87"></a> <span class='hs-varid'>updateState</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>st</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>st</span> <span class='hs-layout'>{</span> <span class='hs-varid'>synStCharsParsedInLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>oldCharsParsed</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-varid'>txt</span><span class='hs-layout'>,</span> <span class='hs-varid'>synStPrevChar</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>prevchar</span> <span class='hs-layout'>}</span>
<a name="line-88"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>labs</span><span class='hs-layout'>,</span> <span class='hs-varid'>txt</span><span class='hs-layout'>)</span>
<a name="line-89"></a>
<a name="line-90"></a><a name="styles"></a><span class='hs-definition'>styles</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-str'>"Keyword"</span><span class='hs-layout'>,</span><span class='hs-str'>"kw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Data Type"</span><span class='hs-layout'>,</span><span class='hs-str'>"dt"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Comment"</span><span class='hs-layout'>,</span><span class='hs-str'>"co"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Integer"</span><span class='hs-layout'>,</span><span class='hs-str'>"dv"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Bit"</span><span class='hs-layout'>,</span><span class='hs-str'>"ch"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Error"</span><span class='hs-layout'>,</span><span class='hs-str'>"er"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Vector"</span><span class='hs-layout'>,</span><span class='hs-str'>"st"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Operator"</span><span class='hs-layout'>,</span><span class='hs-str'>"ot"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Attribute"</span><span class='hs-layout'>,</span><span class='hs-str'>"bn"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Region Marker"</span><span class='hs-layout'>,</span><span class='hs-str'>"re"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Signal"</span><span class='hs-layout'>,</span><span class='hs-str'>"ot"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Range"</span><span class='hs-layout'>,</span><span class='hs-str'>"ot"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Redirection"</span><span class='hs-layout'>,</span><span class='hs-str'>"kw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Process"</span><span class='hs-layout'>,</span><span class='hs-str'>"kw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Control"</span><span class='hs-layout'>,</span><span class='hs-str'>"kw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"Name"</span><span class='hs-layout'>,</span><span class='hs-str'>"kw"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-91"></a>
<a name="line-92"></a><a name="parseExpressionInternal"></a><span class='hs-definition'>parseExpressionInternal</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-93"></a> <span class='hs-varid'>context</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>currentContext</span>
<a name="line-94"></a> <span class='hs-varid'>parseRules</span> <span class='hs-varid'>context</span> <span class='hs-varop'><|></span> <span class='hs-layout'>(</span><span class='hs-varid'>pDefault</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span> <span class='hs-str'>""</span> <span class='hs-varop'>$</span> <span class='hs-varid'>lookup</span> <span class='hs-varid'>context</span> <span class='hs-varid'>defaultAttributes</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-95"></a>
<a name="line-96"></a><a name="list_keywordsToplevel"></a><span class='hs-definition'>list_keywordsToplevel</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"file library use"</span>
<a name="line-97"></a><a name="list_keywords"></a><span class='hs-definition'>list_keywords</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"access after alias all array assert assume assume_guarantee attribute begin block body bus component constant context cover default disconnect downto end exit fairness file force function generate generic group guarded impure inertial is label linkage literal map new next null of on open others parameter port postponed procedure process property protected pure range record register reject release report return select sequence severity signal shared strong subtype to transport type unaffected units until variable vmode vprop vunit wait when with note warning error failure in inout out buffer and abs or xor xnor not mod nand nor rem rol ror sla sra sll srl"</span>
<a name="line-98"></a><a name="list_if"></a><span class='hs-definition'>list_if</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"if else elsif then"</span>
<a name="line-99"></a><a name="list_forOrWhile"></a><span class='hs-definition'>list_forOrWhile</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"loop"</span>
<a name="line-100"></a><a name="list_directions"></a><span class='hs-definition'>list_directions</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"in inout out buffer linkage"</span>
<a name="line-101"></a><a name="list_signals"></a><span class='hs-definition'>list_signals</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"signal variable constant type"</span>
<a name="line-102"></a><a name="list_range"></a><span class='hs-definition'>list_range</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"to downto others"</span>
<a name="line-103"></a><a name="list_case"></a><span class='hs-definition'>list_case</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"case when"</span>
<a name="line-104"></a><a name="list_types"></a><span class='hs-definition'>list_types</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Set</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>words</span> <span class='hs-varop'>$</span> <span class='hs-str'>"bit bit_vector character boolean boolean_vector integer integer_vector real real_vector time time_vector delay_length string severity_level positive natural file_open_kind file_open_status signed unsigned unresolved_unsigned unresolved_signed line text side width std_logic std_logic_vector std_ulogic std_ulogic_vector x01 x01z ux01 ux01z qsim_state qsim_state_vector qsim_12state qsim_12state_vector qsim_strength mux_bit mux_vector reg_bit reg_vector wor_bit wor_vector"</span>
<a name="line-105"></a>
<a name="line-106"></a><a name="regex_'28'5cb'29'28package'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb"></a><span class='hs-definition'>regex_'28'5cb'29'28package'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)(package\\s+(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s+is)\\b"</span>
<a name="line-107"></a><a name="regex_'28'5cb'29'28package'5cs'2bbody'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb"></a><span class='hs-definition'>regex_'28'5cb'29'28package'5cs'2bbody'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)(package\\s+body\\s+(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s+is)\\b"</span>
<a name="line-108"></a><a name="regex_architecture'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bof'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis"></a><span class='hs-definition'>regex_architecture'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bof'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"architecture\\s+(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s+of\\s+(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s+is"</span>
<a name="line-109"></a><a name="regex_'28'5cb'29generate'5cb"></a><span class='hs-definition'>regex_'28'5cb'29generate'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)generate\\b"</span>
<a name="line-110"></a><a name="regex_'28'5cb'29end'5cs'2bgenerate'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b"></a><span class='hs-definition'>regex_'28'5cb'29end'5cs'2bgenerate'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)end\\s+generate(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?\\s*;"</span>
<a name="line-111"></a><a name="regex_'28'5cb'29'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'28'3f'3d'5cs'2a'3a'28'3f'21'3d'29'29"></a><span class='hs-definition'>regex_'28'5cb'29'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'28'3f'3d'5cs'2a'3a'28'3f'21'3d'29'29</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b(?=\\s*:(?!=))"</span>
<a name="line-112"></a><a name="regex_'28'5cb'29'28if'29'5cb"></a><span class='hs-definition'>regex_'28'5cb'29'28if'29'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)(if)\\b"</span>
<a name="line-113"></a><a name="regex_'28'5cb'29'28'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2a'3a'5cs'2a'29'3f'28'28for'7cwhile'29'5cs'2b'2e'2b'5cs'2b'29'3floop'5cb"></a><span class='hs-definition'>regex_'28'5cb'29'28'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2a'3a'5cs'2a'29'3f'28'28for'7cwhile'29'5cs'2b'2e'2b'5cs'2b'29'3floop'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)((\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s*:\\s*)?((for|while)\\s+.+\\s+)?loop\\b"</span>
<a name="line-114"></a><a name="regex_'28'5cb'29end'5cs'2bloop'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b"></a><span class='hs-definition'>regex_'28'5cb'29end'5cs'2bloop'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)end\\s+loop(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?\\s*;"</span>
<a name="line-115"></a><a name="regex_'28'5cb'29end'5cs'2bif'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b"></a><span class='hs-definition'>regex_'28'5cb'29end'5cs'2bif'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)end\\s+if(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?\\s*;"</span>
<a name="line-116"></a><a name="regex_'28'5cb'29end'5cs'2bcase'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b"></a><span class='hs-definition'>regex_'28'5cb'29end'5cs'2bcase'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)end\\s+case(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?\\s*;"</span>
<a name="line-117"></a><a name="regex_'28'5cb'29when'5cb"></a><span class='hs-definition'>regex_'28'5cb'29when'5cb</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b)when\\b"</span>
<a name="line-118"></a><a name="regex_'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29"></a><span class='hs-definition'>regex_'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)"</span>
<a name="line-119"></a><a name="regex_generic"></a><span class='hs-definition'>regex_generic</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"generic"</span>
<a name="line-120"></a><a name="regex_port"></a><span class='hs-definition'>regex_port</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compileRegex</span> <span class='hs-str'>"port"</span>
<a name="line-121"></a>
<a name="line-122"></a><a name="defaultAttributes"></a><span class='hs-definition'>defaultAttributes</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-str'>"start"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"package"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"packagebody"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"architecture_main"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"arch_decl"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"detect_arch_parts"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"generate1"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"generate2"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"process1"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"proc_rules"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"instance"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"forOrWhile"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"if_start"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"if"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"case1"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"case2"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"caseWhen"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"entity"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"entity_main"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"preDetection"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"generalDetection"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"comment"</span><span class='hs-layout'>,</span><span class='hs-str'>"Comment"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"string"</span><span class='hs-layout'>,</span><span class='hs-str'>"Vector"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"attribute"</span><span class='hs-layout'>,</span><span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"quot in att"</span><span class='hs-layout'>,</span><span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"signal"</span><span class='hs-layout'>,</span><span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-123"></a>
<a name="line-124"></a><a name="parseRules"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"start"</span> <span class='hs-keyglyph'>=</span>
<a name="line-125"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-126"></a> <span class='hs-varop'><|></span>
<a name="line-127"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"architecture\\s+(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"architecture_main"</span><span class='hs-layout'>)</span>
<a name="line-128"></a> <span class='hs-varop'><|></span>
<a name="line-129"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"entity"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"entity"</span><span class='hs-layout'>)</span>
<a name="line-130"></a> <span class='hs-varop'><|></span>
<a name="line-131"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29'28package'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"package"</span><span class='hs-layout'>)</span>
<a name="line-132"></a> <span class='hs-varop'><|></span>
<a name="line-133"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29'28package'5cs'2bbody'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis'29'5cb</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"packagebody"</span><span class='hs-layout'>)</span>
<a name="line-134"></a> <span class='hs-varop'><|></span>
<a name="line-135"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_keywordsToplevel</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Keyword"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-136"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-137"></a>
<a name="line-138"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"package"</span> <span class='hs-keyglyph'>=</span>
<a name="line-139"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>True</span> <span class='hs-str'>"%2"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-140"></a> <span class='hs-varop'><|></span>
<a name="line-141"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-142"></a> <span class='hs-varop'><|></span>
<a name="line-143"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"begin"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-144"></a> <span class='hs-varop'><|></span>
<a name="line-145"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+package)?(\\s+%3)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-146"></a> <span class='hs-varop'><|></span>
<a name="line-147"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-148"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-149"></a>
<a name="line-150"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"packagebody"</span> <span class='hs-keyglyph'>=</span>
<a name="line-151"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>True</span> <span class='hs-str'>"%2"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-152"></a> <span class='hs-varop'><|></span>
<a name="line-153"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-154"></a> <span class='hs-varop'><|></span>
<a name="line-155"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"begin"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-156"></a> <span class='hs-varop'><|></span>
<a name="line-157"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+package)?(\\s+%3)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Redirection"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-158"></a> <span class='hs-varop'><|></span>
<a name="line-159"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-160"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-161"></a>
<a name="line-162"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"architecture_main"</span> <span class='hs-keyglyph'>=</span>
<a name="line-163"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-164"></a> <span class='hs-varop'><|></span>
<a name="line-165"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_architecture'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bof'5cs'2b'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2bis</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"arch_decl"</span><span class='hs-layout'>)</span>
<a name="line-166"></a> <span class='hs-varop'><|></span>
<a name="line-167"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+architecture)?(\\s+%1)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-168"></a> <span class='hs-varop'><|></span>
<a name="line-169"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+architecture)?(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Error"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-170"></a> <span class='hs-varop'><|></span>
<a name="line-171"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"detect_arch_parts"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-172"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-173"></a>
<a name="line-174"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"arch_decl"</span> <span class='hs-keyglyph'>=</span>
<a name="line-175"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-176"></a> <span class='hs-varop'><|></span>
<a name="line-177"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_signals</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Signal"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"signal"</span><span class='hs-layout'>)</span>
<a name="line-178"></a> <span class='hs-varop'><|></span>
<a name="line-179"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"component"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"entity"</span><span class='hs-layout'>)</span>
<a name="line-180"></a> <span class='hs-varop'><|></span>
<a name="line-181"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"begin"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-182"></a> <span class='hs-varop'><|></span>
<a name="line-183"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-184"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-185"></a>
<a name="line-186"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"detect_arch_parts"</span> <span class='hs-keyglyph'>=</span>
<a name="line-187"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)((\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s*:\\s*)(if|for).*\\s+generate\\b"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"generate1"</span><span class='hs-layout'>)</span>
<a name="line-188"></a> <span class='hs-varop'><|></span>
<a name="line-189"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)((\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s*:\\s*)?process\\b"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"process1"</span><span class='hs-layout'>)</span>
<a name="line-190"></a> <span class='hs-varop'><|></span>
<a name="line-191"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"\\b(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)\\s*:\\s*(\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"instance"</span><span class='hs-layout'>)</span>
<a name="line-192"></a> <span class='hs-varop'><|></span>
<a name="line-193"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-194"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-195"></a>
<a name="line-196"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"generate1"</span> <span class='hs-keyglyph'>=</span>
<a name="line-197"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-198"></a> <span class='hs-varop'><|></span>
<a name="line-199"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29generate'5cb</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"generate2"</span><span class='hs-layout'>)</span>
<a name="line-200"></a> <span class='hs-varop'><|></span>
<a name="line-201"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)%3\\b"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Name"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-202"></a> <span class='hs-varop'><|></span>
<a name="line-203"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"for"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-204"></a> <span class='hs-varop'><|></span>
<a name="line-205"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"if"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-206"></a> <span class='hs-varop'><|></span>
<a name="line-207"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-208"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-209"></a>
<a name="line-210"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"generate2"</span> <span class='hs-keyglyph'>=</span>
<a name="line-211"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-212"></a> <span class='hs-varop'><|></span>
<a name="line-213"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"begin"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-214"></a> <span class='hs-varop'><|></span>
<a name="line-215"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29end'5cs'2bgenerate'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-216"></a> <span class='hs-varop'><|></span>
<a name="line-217"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"detect_arch_parts"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-218"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-219"></a>
<a name="line-220"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"process1"</span> <span class='hs-keyglyph'>=</span>
<a name="line-221"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-222"></a> <span class='hs-varop'><|></span>
<a name="line-223"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"end\\s+process(\\s+%3)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Process"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-224"></a> <span class='hs-varop'><|></span>
<a name="line-225"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"end\\s+process(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Error"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-226"></a> <span class='hs-varop'><|></span>
<a name="line-227"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"process"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Process"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-228"></a> <span class='hs-varop'><|></span>
<a name="line-229"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"begin"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Process"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-230"></a> <span class='hs-varop'><|></span>
<a name="line-231"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"proc_rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-232"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-233"></a>
<a name="line-234"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"proc_rules"</span> <span class='hs-keyglyph'>=</span>
<a name="line-235"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'28'3f'3d'5cs'2a'3a'28'3f'21'3d'29'29</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Name"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-236"></a> <span class='hs-varop'><|></span>
<a name="line-237"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29'28if'29'5cb</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"if_start"</span><span class='hs-layout'>)</span>
<a name="line-238"></a> <span class='hs-varop'><|></span>
<a name="line-239"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)(case)\\b"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"case1"</span><span class='hs-layout'>)</span>
<a name="line-240"></a> <span class='hs-varop'><|></span>
<a name="line-241"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29'28'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'5cs'2a'3a'5cs'2a'29'3f'28'28for'7cwhile'29'5cs'2b'2e'2b'5cs'2b'29'3floop'5cb</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"forOrWhile"</span><span class='hs-layout'>)</span>
<a name="line-242"></a> <span class='hs-varop'><|></span>
<a name="line-243"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-244"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-245"></a>
<a name="line-246"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"instance"</span> <span class='hs-keyglyph'>=</span>
<a name="line-247"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-248"></a> <span class='hs-varop'><|></span>
<a name="line-249"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"\\b%1\\b"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Name"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-250"></a> <span class='hs-varop'><|></span>
<a name="line-251"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"\\b%2\\b"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Name"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-252"></a> <span class='hs-varop'><|></span>
<a name="line-253"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetect2Chars</span> <span class='hs-conid'>False</span> <span class='hs-chr'>')'</span> <span class='hs-chr'>';'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-254"></a> <span class='hs-varop'><|></span>
<a name="line-255"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-256"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-257"></a>
<a name="line-258"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"forOrWhile"</span> <span class='hs-keyglyph'>=</span>
<a name="line-259"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29end'5cs'2bloop'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-260"></a> <span class='hs-varop'><|></span>
<a name="line-261"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_forOrWhile</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-262"></a> <span class='hs-varop'><|></span>
<a name="line-263"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"proc_rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-264"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-265"></a>
<a name="line-266"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"if_start"</span> <span class='hs-keyglyph'>=</span>
<a name="line-267"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-268"></a> <span class='hs-varop'><|></span>
<a name="line-269"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"then"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"if"</span><span class='hs-layout'>)</span>
<a name="line-270"></a> <span class='hs-varop'><|></span>
<a name="line-271"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-272"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-273"></a>
<a name="line-274"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"if"</span> <span class='hs-keyglyph'>=</span>
<a name="line-275"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-276"></a> <span class='hs-varop'><|></span>
<a name="line-277"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29end'5cs'2bif'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-278"></a> <span class='hs-varop'><|></span>
<a name="line-279"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"proc_rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-280"></a> <span class='hs-varop'><|></span>
<a name="line-281"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_if</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-282"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-283"></a>
<a name="line-284"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"case1"</span> <span class='hs-keyglyph'>=</span>
<a name="line-285"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-286"></a> <span class='hs-varop'><|></span>
<a name="line-287"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"is"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Keyword"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"case2"</span><span class='hs-layout'>)</span>
<a name="line-288"></a> <span class='hs-varop'><|></span>
<a name="line-289"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_case</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-290"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-291"></a>
<a name="line-292"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"case2"</span> <span class='hs-keyglyph'>=</span>
<a name="line-293"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-294"></a> <span class='hs-varop'><|></span>
<a name="line-295"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29end'5cs'2bcase'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-296"></a> <span class='hs-varop'><|></span>
<a name="line-297"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pString</span> <span class='hs-conid'>False</span> <span class='hs-str'>"when"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"caseWhen"</span><span class='hs-layout'>)</span>
<a name="line-298"></a> <span class='hs-varop'><|></span>
<a name="line-299"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"proc_rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-300"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-301"></a>
<a name="line-302"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"caseWhen"</span> <span class='hs-keyglyph'>=</span>
<a name="line-303"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-304"></a> <span class='hs-varop'><|></span>
<a name="line-305"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29when'5cb</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-306"></a> <span class='hs-varop'><|></span>
<a name="line-307"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>lookAhead</span> <span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'29end'5cs'2bcase'28'5cs'2b'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29'3f'5cs'2a'3b</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-308"></a> <span class='hs-varop'><|></span>
<a name="line-309"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"proc_rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-310"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-311"></a>
<a name="line-312"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"entity"</span> <span class='hs-keyglyph'>=</span>
<a name="line-313"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-314"></a> <span class='hs-varop'><|></span>
<a name="line-315"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_'28'5cb'28'3f'21'28'3f'3aprocess'7cconstant'7csignal'7cvariable'29'29'28'5bA'2dZa'2dz'5f'5d'5bA'2dZa'2dz0'2d9'5f'5d'2a'29'5cb'29</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Name"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"entity_main"</span><span class='hs-layout'>)</span>
<a name="line-316"></a> <span class='hs-varop'><|></span>
<a name="line-317"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-318"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-319"></a>
<a name="line-320"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"entity_main"</span> <span class='hs-keyglyph'>=</span>
<a name="line-321"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-322"></a> <span class='hs-varop'><|></span>
<a name="line-323"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+(entity|component))?(\\s+%1)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-324"></a> <span class='hs-varop'><|></span>
<a name="line-325"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExprDynamic</span> <span class='hs-str'>"(\\b)end(\\s+(entity|component))?(\\s+\\b(?!(?:process|constant|signal|variable))([A-Za-z_][A-Za-z0-9_]*)\\b)?\\s*;"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Error"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span> <span class='hs-varop'>>></span> <span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-326"></a> <span class='hs-varop'><|></span>
<a name="line-327"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_generic</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-328"></a> <span class='hs-varop'><|></span>
<a name="line-329"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pRegExpr</span> <span class='hs-varid'>regex_port</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Control"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-330"></a> <span class='hs-varop'><|></span>
<a name="line-331"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-332"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-333"></a>
<a name="line-334"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"preDetection"</span> <span class='hs-keyglyph'>=</span>
<a name="line-335"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetect2Chars</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'-'</span> <span class='hs-chr'>'-'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Comment"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"comment"</span><span class='hs-layout'>)</span>
<a name="line-336"></a> <span class='hs-varop'><|></span>
<a name="line-337"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'"'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Vector"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"string"</span><span class='hs-layout'>)</span>
<a name="line-338"></a> <span class='hs-varop'><|></span>
<a name="line-339"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pAnyChar</span> <span class='hs-str'>"[&><=:+\\-*\\/|].,"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Operator"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-340"></a> <span class='hs-varop'><|></span>
<a name="line-341"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'\''</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"attribute"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-342"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-343"></a>
<a name="line-344"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"generalDetection"</span> <span class='hs-keyglyph'>=</span>
<a name="line-345"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_types</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Data Type"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-346"></a> <span class='hs-varop'><|></span>
<a name="line-347"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_signals</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Signal"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"signal"</span><span class='hs-layout'>)</span>
<a name="line-348"></a> <span class='hs-varop'><|></span>
<a name="line-349"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_range</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Range"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-350"></a> <span class='hs-varop'><|></span>
<a name="line-351"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pKeyword</span> <span class='hs-str'>" \n\t.():!+,-<=>%&*/;?[]^{|}~\\"</span> <span class='hs-varid'>list_keywords</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Keyword"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-352"></a> <span class='hs-varop'><|></span>
<a name="line-353"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pInt</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Integer"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-354"></a> <span class='hs-varop'><|></span>
<a name="line-355"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pHlCChar</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Bit"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-356"></a> <span class='hs-varop'><|></span>
<a name="line-357"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectSpaces</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-358"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-359"></a>
<a name="line-360"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"comment"</span> <span class='hs-keyglyph'>=</span>
<a name="line-361"></a> <span class='hs-varid'>pzero</span>
<a name="line-362"></a>
<a name="line-363"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"string"</span> <span class='hs-keyglyph'>=</span>
<a name="line-364"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'"'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Vector"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-365"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-366"></a>
<a name="line-367"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"attribute"</span> <span class='hs-keyglyph'>=</span>
<a name="line-368"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'"'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-varid'>pushContext</span> <span class='hs-str'>"quot in att"</span><span class='hs-layout'>)</span>
<a name="line-369"></a> <span class='hs-varop'><|></span>
<a name="line-370"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>' '</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-371"></a> <span class='hs-varop'><|></span>
<a name="line-372"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'\''</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-373"></a> <span class='hs-varop'><|></span>
<a name="line-374"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pAnyChar</span> <span class='hs-str'>"()=<>"</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-375"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-376"></a>
<a name="line-377"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"quot in att"</span> <span class='hs-keyglyph'>=</span>
<a name="line-378"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>'"'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Attribute"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-379"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-380"></a>
<a name="line-381"></a><span class='hs-definition'>parseRules</span> <span class='hs-str'>"signal"</span> <span class='hs-keyglyph'>=</span>
<a name="line-382"></a> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"preDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-383"></a> <span class='hs-varop'><|></span>
<a name="line-384"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>pDetectChar</span> <span class='hs-conid'>False</span> <span class='hs-chr'>';'</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>withAttribute</span> <span class='hs-str'>"Normal Text"</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>~</span> <span class='hs-layout'>(</span><span class='hs-varid'>popContext</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-385"></a> <span class='hs-varop'><|></span>
<a name="line-386"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>parseRules</span> <span class='hs-str'>"generalDetection"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-387"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>attr</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>)</span>
<a name="line-388"></a>
<a name="line-389"></a><span class='hs-definition'>parseRules</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fail</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Unknown context"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>x</span>
</pre></body>
</html>
