<?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://code.haskell.org/~malcolm/hscolour/ -->
<title>Language/Preprocessor/Cpphs/CppIfdef.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-2"></a><span class='hs-comment'>-- |</span>
<a name="line-3"></a><span class='hs-comment'>-- Module : CppIfdef</span>
<a name="line-4"></a><span class='hs-comment'>-- Copyright : 1999-2004 Malcolm Wallace</span>
<a name="line-5"></a><span class='hs-comment'>-- Licence : LGPL</span>
<a name="line-6"></a><span class='hs-comment'>-- </span>
<a name="line-7"></a><span class='hs-comment'>-- Maintainer : Malcolm Wallace <Malcolm.Wallace@cs.york.ac.uk></span>
<a name="line-8"></a><span class='hs-comment'>-- Stability : experimental</span>
<a name="line-9"></a><span class='hs-comment'>-- Portability : All</span>
<a name="line-10"></a><span class='hs-comment'>--</span>
<a name="line-11"></a><span class='hs-comment'>-- Perform a cpp.first-pass, gathering \#define's and evaluating \#ifdef's.</span>
<a name="line-12"></a><span class='hs-comment'>-- and \#include's.</span>
<a name="line-13"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-14"></a>
<a name="line-15"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>CppIfdef</span>
<a name="line-16"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>cppIfdef</span> <span class='hs-comment'>-- :: FilePath -> [(String,String)] -> [String] -> Options</span>
<a name="line-17"></a> <span class='hs-comment'>-- -> String -> IO [(Posn,String)]</span>
<a name="line-18"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-19"></a>
<a name="line-20"></a>
<a name="line-21"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>SymTab</span>
<a name="line-22"></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'>HuttonMeijer</span>
<a name="line-23"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>Position</span> <span class='hs-layout'>(</span><span class='hs-conid'>Posn</span><span class='hs-layout'>,</span><span class='hs-varid'>newfile</span><span class='hs-layout'>,</span><span class='hs-varid'>newline</span><span class='hs-layout'>,</span><span class='hs-varid'>newlines</span>
<a name="line-24"></a> <span class='hs-layout'>,</span><span class='hs-varid'>cppline</span><span class='hs-layout'>,</span><span class='hs-varid'>cpp2hask</span><span class='hs-layout'>,</span><span class='hs-varid'>newpos</span><span class='hs-layout'>)</span>
<a name="line-25"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>ReadFirst</span> <span class='hs-layout'>(</span><span class='hs-varid'>readFirst</span><span class='hs-layout'>)</span>
<a name="line-26"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>Tokenise</span> <span class='hs-layout'>(</span><span class='hs-varid'>linesCpp</span><span class='hs-layout'>,</span><span class='hs-varid'>reslash</span><span class='hs-layout'>)</span>
<a name="line-27"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>Options</span> <span class='hs-layout'>(</span><span class='hs-conid'>BoolOptions</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>HashDefine</span><span class='hs-layout'>(</span><span class='hs-conid'>HashDefine</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'>parseHashDefine</span>
<a name="line-29"></a> <span class='hs-layout'>,</span><span class='hs-varid'>expandMacro</span><span class='hs-layout'>)</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Language</span><span class='hs-varop'>.</span><span class='hs-conid'>Preprocessor</span><span class='hs-varop'>.</span><span class='hs-conid'>Cpphs</span><span class='hs-varop'>.</span><span class='hs-conid'>MacroPass</span> <span class='hs-layout'>(</span><span class='hs-varid'>preDefine</span><span class='hs-layout'>,</span><span class='hs-varid'>defineMacro</span><span class='hs-layout'>)</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span><span class='hs-varid'>isDigit</span><span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Numeric</span> <span class='hs-layout'>(</span><span class='hs-varid'>readHex</span><span class='hs-layout'>,</span><span class='hs-varid'>readOct</span><span class='hs-layout'>,</span><span class='hs-varid'>readDec</span><span class='hs-layout'>)</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span><span class='hs-varop'>.</span><span class='hs-conid'>Unsafe</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeInterleaveIO</span><span class='hs-layout'>)</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-varid'>hPutStrLn</span><span class='hs-layout'>,</span><span class='hs-varid'>stderr</span><span class='hs-layout'>)</span>
<a name="line-35"></a>
<a name="line-36"></a>
<a name="line-37"></a><a name="cppIfdef"></a><span class='hs-comment'>-- | Run a first pass of cpp, evaluating \#ifdef's and processing \#include's,</span>
<a name="line-38"></a><span class='hs-comment'>-- whilst taking account of \#define's and \#undef's as we encounter them.</span>
<a name="line-39"></a><span class='hs-definition'>cppIfdef</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ File for error reports</span>
<a name="line-40"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span><span class='hs-conid'>String</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ Pre-defined symbols and their values</span>
<a name="line-41"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ Search path for \#includes</span>
<a name="line-42"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>BoolOptions</span> <span class='hs-comment'>-- ^ Options controlling output style</span>
<a name="line-43"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ The input file content</span>
<a name="line-44"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Posn</span><span class='hs-layout'>,</span><span class='hs-conid'>String</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ The file after processing (in lines)</span>
<a name="line-45"></a><span class='hs-definition'>cppIfdef</span> <span class='hs-varid'>fp</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>search</span> <span class='hs-varid'>options</span> <span class='hs-keyglyph'>=</span>
<a name="line-46"></a> <span class='hs-varid'>cpp</span> <span class='hs-varid'>posn</span> <span class='hs-varid'>defs</span> <span class='hs-varid'>search</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varop'>.</span> <span class='hs-layout'>(</span><span class='hs-varid'>cppline</span> <span class='hs-varid'>posn</span><span class='hs-conop'>:</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>linesCpp</span>
<a name="line-47"></a> <span class='hs-keyword'>where</span>
<a name="line-48"></a> <span class='hs-varid'>posn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newfile</span> <span class='hs-varid'>fp</span>
<a name="line-49"></a> <span class='hs-varid'>defs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>preDefine</span> <span class='hs-varid'>options</span> <span class='hs-varid'>syms</span>
<a name="line-50"></a><span class='hs-comment'>-- Previous versions had a very simple symbol table mapping strings</span>
<a name="line-51"></a><span class='hs-comment'>-- to strings. Now the #ifdef pass uses a more elaborate table, in</span>
<a name="line-52"></a><span class='hs-comment'>-- particular to deal with parameterised macros in conditionals.</span>
<a name="line-53"></a>
<a name="line-54"></a>
<a name="line-55"></a><a name="KeepState"></a><span class='hs-comment'>-- | Internal state for whether lines are being kept or dropped.</span>
<a name="line-56"></a><a name="KeepState"></a><span class='hs-comment'>-- In @Drop n b@, @n@ is the depth of nesting, @b@ is whether</span>
<a name="line-57"></a><a name="KeepState"></a><span class='hs-comment'>-- we have already succeeded in keeping some lines in a chain of</span>
<a name="line-58"></a><a name="KeepState"></a><span class='hs-comment'>-- @elif@'s</span>
<a name="line-59"></a><a name="KeepState"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>KeepState</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Keep</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Drop</span> <span class='hs-conid'>Int</span> <span class='hs-conid'>Bool</span>
<a name="line-60"></a>
<a name="line-61"></a><a name="cpp"></a><span class='hs-comment'>-- | Return just the list of lines that the real cpp would decide to keep.</span>
<a name="line-62"></a><span class='hs-definition'>cpp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Posn</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>BoolOptions</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>KeepState</span>
<a name="line-63"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Posn</span><span class='hs-layout'>,</span><span class='hs-conid'>String</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-64"></a><span class='hs-definition'>cpp</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>[]</span>
<a name="line-65"></a>
<a name="line-66"></a><span class='hs-definition'>cpp</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-layout'>(</span><span class='hs-varid'>l</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-chr'>'#'</span><span class='hs-conop'>:</span><span class='hs-varid'>x</span><span class='hs-layout'>)</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-67"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>ws</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>words</span> <span class='hs-varid'>x</span>
<a name="line-68"></a> <span class='hs-varid'>cmd</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>head</span> <span class='hs-varid'>ws</span>
<a name="line-69"></a> <span class='hs-varid'>line</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tail</span> <span class='hs-varid'>ws</span>
<a name="line-70"></a> <span class='hs-varid'>sym</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>head</span> <span class='hs-layout'>(</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span>
<a name="line-71"></a> <span class='hs-varid'>rest</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tail</span> <span class='hs-layout'>(</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span>
<a name="line-72"></a> <span class='hs-varid'>def</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>defineMacro</span> <span class='hs-varid'>options</span> <span class='hs-layout'>(</span><span class='hs-varid'>sym</span><span class='hs-varop'>++</span><span class='hs-str'>" "</span><span class='hs-varop'>++</span> <span class='hs-varid'>maybe</span> <span class='hs-str'>"1"</span> <span class='hs-varid'>id</span> <span class='hs-layout'>(</span><span class='hs-varid'>un</span> <span class='hs-varid'>rest</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-73"></a> <span class='hs-varid'>un</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>v</span> <span class='hs-keyword'>then</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>else</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>unwords</span> <span class='hs-varid'>v</span><span class='hs-layout'>)</span>
<a name="line-74"></a> <span class='hs-varid'>keepIf</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>p</span> <span class='hs-keyword'>then</span> <span class='hs-conid'>Keep</span> <span class='hs-keyword'>else</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-num'>1</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span>
<a name="line-75"></a> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms'</span> <span class='hs-varid'>retain</span> <span class='hs-varid'>ud</span> <span class='hs-varid'>xs'</span> <span class='hs-keyglyph'>=</span>
<a name="line-76"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-chr'>'\n'</span><span class='hs-layout'>)</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-keyword'>in</span>
<a name="line-77"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>macros</span> <span class='hs-varid'>options</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>retain</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>reslash</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span>
<a name="line-78"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>emitMany</span> <span class='hs-layout'>(</span><span class='hs-varid'>replicate</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-79"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newlines</span> <span class='hs-varid'>n</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-varid'>syms'</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-varid'>ud</span> <span class='hs-varid'>xs'</span>
<a name="line-80"></a> <span class='hs-keyword'>in</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>cmd</span> <span class='hs-keyword'>of</span>
<a name="line-81"></a> <span class='hs-str'>"define"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-layout'>(</span><span class='hs-varid'>insertST</span> <span class='hs-varid'>def</span> <span class='hs-varid'>syms</span><span class='hs-layout'>)</span> <span class='hs-conid'>True</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-82"></a> <span class='hs-str'>"undef"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-layout'>(</span><span class='hs-varid'>deleteST</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>syms</span><span class='hs-layout'>)</span> <span class='hs-conid'>True</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-83"></a> <span class='hs-str'>"ifndef"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-layout'>(</span><span class='hs-varid'>keepIf</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>definedST</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>syms</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-84"></a> <span class='hs-str'>"ifdef"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-layout'>(</span><span class='hs-varid'>keepIf</span> <span class='hs-layout'>(</span><span class='hs-varid'>definedST</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>syms</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-85"></a> <span class='hs-str'>"if"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span>
<a name="line-86"></a> <span class='hs-layout'>(</span><span class='hs-varid'>keepIf</span> <span class='hs-layout'>(</span><span class='hs-varid'>gatherDefined</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-layout'>(</span><span class='hs-varid'>unwords</span> <span class='hs-varid'>line</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-87"></a> <span class='hs-str'>"else"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-num'>1</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-88"></a> <span class='hs-str'>"elif"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-num'>1</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-89"></a> <span class='hs-str'>"endif"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-90"></a> <span class='hs-str'>"pragma"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>True</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-91"></a> <span class='hs-layout'>(</span><span class='hs-chr'>'!'</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span> <span class='hs-comment'>-- \#!runhs scripts</span>
<a name="line-92"></a> <span class='hs-str'>"include"</span><span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-varid'>inc</span><span class='hs-layout'>,</span><span class='hs-varid'>content</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readFirst</span> <span class='hs-layout'>(</span><span class='hs-varid'>file</span> <span class='hs-varid'>syms</span> <span class='hs-layout'>(</span><span class='hs-varid'>unwords</span> <span class='hs-varid'>line</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-93"></a> <span class='hs-varid'>p</span> <span class='hs-varid'>path</span>
<a name="line-94"></a> <span class='hs-layout'>(</span><span class='hs-varid'>warnings</span> <span class='hs-varid'>options</span><span class='hs-layout'>)</span>
<a name="line-95"></a> <span class='hs-varid'>cpp</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-str'>"#line 1 "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>inc</span><span class='hs-layout'>)</span>
<a name="line-96"></a> <span class='hs-conop'>:</span> <span class='hs-varid'>linesCpp</span> <span class='hs-varid'>content</span>
<a name="line-97"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>cppline</span> <span class='hs-layout'>(</span><span class='hs-varid'>newline</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span><span class='hs-conop'>:</span> <span class='hs-varid'>xs</span><span class='hs-layout'>)</span>
<a name="line-98"></a> <span class='hs-str'>"warning"</span><span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-varid'>warnings</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span>
<a name="line-99"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-layout'>(</span><span class='hs-varid'>l</span><span class='hs-varop'>++</span><span class='hs-str'>"\nin "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-100"></a> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-101"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>syms</span> <span class='hs-conid'>False</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-102"></a> <span class='hs-str'>"error"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-varid'>l</span><span class='hs-varop'>++</span><span class='hs-str'>"\nin "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-103"></a> <span class='hs-str'>"line"</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>all</span> <span class='hs-varid'>isDigit</span> <span class='hs-varid'>sym</span>
<a name="line-104"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>locations</span> <span class='hs-varid'>options</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>hashline</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>l</span><span class='hs-layout'>)</span>
<a name="line-105"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>locations</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>cpp2hask</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span>
<a name="line-106"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>id</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-107"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newpos</span> <span class='hs-layout'>(</span><span class='hs-varid'>read</span> <span class='hs-varid'>sym</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>un</span> <span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-108"></a> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-109"></a> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>all</span> <span class='hs-varid'>isDigit</span> <span class='hs-varid'>n</span>
<a name="line-110"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>locations</span> <span class='hs-varid'>options</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>hashline</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>l</span><span class='hs-layout'>)</span>
<a name="line-111"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>locations</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>cpp2hask</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span>
<a name="line-112"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>id</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-113"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newpos</span> <span class='hs-layout'>(</span><span class='hs-varid'>read</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>un</span> <span class='hs-layout'>(</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-114"></a> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-115"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-116"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-varid'>warnings</span> <span class='hs-varid'>options</span> <span class='hs-keyword'>then</span>
<a name="line-117"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-layout'>(</span><span class='hs-str'>"Warning: unknown directive #"</span><span class='hs-varop'>++</span><span class='hs-varid'>n</span>
<a name="line-118"></a> <span class='hs-varop'>++</span><span class='hs-str'>"\nin "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-119"></a> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-120"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newline</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-121"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-122"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newline</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-123"></a>
<a name="line-124"></a><span class='hs-definition'>cpp</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-varid'>n</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-chr'>'#'</span><span class='hs-conop'>:</span><span class='hs-varid'>x</span><span class='hs-layout'>)</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-125"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>ws</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>words</span> <span class='hs-varid'>x</span>
<a name="line-126"></a> <span class='hs-varid'>cmd</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>head</span> <span class='hs-varid'>ws</span>
<a name="line-127"></a> <span class='hs-varid'>delse</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span><span class='hs-varop'>==</span><span class='hs-num'>1</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Drop</span> <span class='hs-num'>1</span> <span class='hs-varid'>b</span>
<a name="line-128"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span><span class='hs-varop'>==</span><span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Keep</span>
<a name="line-129"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Drop</span> <span class='hs-varid'>n</span> <span class='hs-varid'>b</span>
<a name="line-130"></a> <span class='hs-varid'>dend</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span><span class='hs-varop'>==</span><span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Keep</span>
<a name="line-131"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Drop</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-comment'>-</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>b</span>
<a name="line-132"></a> <span class='hs-varid'>delif</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>n</span><span class='hs-varop'>==</span><span class='hs-num'>1</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>not</span> <span class='hs-varid'>b</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>gatherDefined</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>s</span>
<a name="line-133"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Keep</span>
<a name="line-134"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Drop</span> <span class='hs-varid'>n</span> <span class='hs-varid'>b</span>
<a name="line-135"></a> <span class='hs-varid'>skipn</span> <span class='hs-varid'>ud</span> <span class='hs-varid'>xs'</span> <span class='hs-keyglyph'>=</span>
<a name="line-136"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>n'</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span> <span class='hs-varop'>+</span> <span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-chr'>'\n'</span><span class='hs-layout'>)</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-keyword'>in</span>
<a name="line-137"></a> <span class='hs-varid'>emitMany</span> <span class='hs-layout'>(</span><span class='hs-varid'>replicate</span> <span class='hs-varid'>n'</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</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>
<a name="line-138"></a> <span class='hs-varid'>cpp</span> <span class='hs-layout'>(</span><span class='hs-varid'>newlines</span> <span class='hs-varid'>n'</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-varid'>ud</span> <span class='hs-varid'>xs'</span>
<a name="line-139"></a> <span class='hs-keyword'>in</span>
<a name="line-140"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"ifndef"</span> <span class='hs-varop'>||</span>
<a name="line-141"></a> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"if"</span> <span class='hs-varop'>||</span>
<a name="line-142"></a> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"ifdef"</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>skipn</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-143"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"elif"</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>skipn</span> <span class='hs-layout'>(</span><span class='hs-varid'>delif</span> <span class='hs-layout'>(</span><span class='hs-varid'>unwords</span> <span class='hs-layout'>(</span><span class='hs-varid'>tail</span> <span class='hs-varid'>ws</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-144"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"else"</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>delse</span> <span class='hs-varid'>xs</span>
<a name="line-145"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>cmd</span> <span class='hs-varop'>==</span> <span class='hs-str'>"endif"</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>skipn</span> <span class='hs-varid'>dend</span> <span class='hs-varid'>xs</span>
<a name="line-146"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>skipn</span> <span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-varid'>n</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-147"></a> <span class='hs-comment'>-- define, undef, include, error, warning, pragma, line</span>
<a name="line-148"></a>
<a name="line-149"></a><span class='hs-definition'>cpp</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-150"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>p'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newline</span> <span class='hs-varid'>p</span> <span class='hs-keyword'>in</span> <span class='hs-varid'>seq</span> <span class='hs-varid'>p'</span> <span class='hs-varop'>$</span>
<a name="line-151"></a> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cpp</span> <span class='hs-varid'>p'</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-conid'>Keep</span> <span class='hs-varid'>xs</span>
<a name="line-152"></a><span class='hs-definition'>cpp</span> <span class='hs-varid'>p</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>Drop</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-153"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>p'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newline</span> <span class='hs-varid'>p</span> <span class='hs-keyword'>in</span> <span class='hs-varid'>seq</span> <span class='hs-varid'>p'</span> <span class='hs-varop'>$</span>
<a name="line-154"></a> <span class='hs-varid'>emitOne</span> <span class='hs-layout'>(</span><span class='hs-varid'>p</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cpp</span> <span class='hs-varid'>p'</span> <span class='hs-varid'>syms</span> <span class='hs-varid'>path</span> <span class='hs-varid'>options</span> <span class='hs-varid'>d</span> <span class='hs-varid'>xs</span>
<a name="line-155"></a>
<a name="line-156"></a>
<a name="line-157"></a><a name="emitOne"></a><span class='hs-comment'>-- | Auxiliary IO functions</span>
<a name="line-158"></a><span class='hs-definition'>emitOne</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span>
<a name="line-159"></a><a name="emitMany"></a><span class='hs-definition'>emitMany</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span>
<a name="line-160"></a><span class='hs-definition'>emitOne</span> <span class='hs-varid'>x</span> <span class='hs-varid'>io</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>ys</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>unsafeInterleaveIO</span> <span class='hs-varid'>io</span>
<a name="line-161"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-varid'>ys</span><span class='hs-layout'>)</span>
<a name="line-162"></a><span class='hs-definition'>emitMany</span> <span class='hs-varid'>xs</span> <span class='hs-varid'>io</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>ys</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>unsafeInterleaveIO</span> <span class='hs-varid'>io</span>
<a name="line-163"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>xs</span><span class='hs-varop'>++</span><span class='hs-varid'>ys</span><span class='hs-layout'>)</span>
<a name="line-164"></a>
<a name="line-165"></a>
<a name="line-166"></a><a name="gatherDefined"></a><span class='hs-comment'>----</span>
<a name="line-167"></a><span class='hs-definition'>gatherDefined</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Posn</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span>
<a name="line-168"></a><span class='hs-definition'>gatherDefined</span> <span class='hs-varid'>p</span> <span class='hs-varid'>st</span> <span class='hs-varid'>inp</span> <span class='hs-keyglyph'>=</span>
<a name="line-169"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>papply</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseBoolExp</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varid'>inp</span> <span class='hs-keyword'>of</span>
<a name="line-170"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"Cannot parse #if directive in file "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-171"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>b</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>b</span>
<a name="line-172"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"Ambiguous parse for #if directive in file "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-173"></a>
<a name="line-174"></a><a name="parseBoolExp"></a><span class='hs-definition'>parseBoolExp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Parser</span> <span class='hs-conid'>Bool</span>
<a name="line-175"></a><span class='hs-definition'>parseBoolExp</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span>
<a name="line-176"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseExp1</span> <span class='hs-varid'>st</span>
<a name="line-177"></a> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"||"</span><span class='hs-layout'>)</span>
<a name="line-178"></a> <span class='hs-varid'>b</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>first</span> <span class='hs-layout'>(</span><span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseBoolExp</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-179"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-varop'>||</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span>
<a name="line-180"></a> <span class='hs-varop'>+++</span>
<a name="line-181"></a> <span class='hs-varid'>parseExp1</span> <span class='hs-varid'>st</span>
<a name="line-182"></a>
<a name="line-183"></a><a name="parseExp1"></a><span class='hs-definition'>parseExp1</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Parser</span> <span class='hs-conid'>Bool</span>
<a name="line-184"></a><span class='hs-definition'>parseExp1</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span>
<a name="line-185"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseExp0</span> <span class='hs-varid'>st</span>
<a name="line-186"></a> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"&&"</span><span class='hs-layout'>)</span>
<a name="line-187"></a> <span class='hs-varid'>b</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>first</span> <span class='hs-layout'>(</span><span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseExp1</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-188"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span>
<a name="line-189"></a> <span class='hs-varop'>+++</span>
<a name="line-190"></a> <span class='hs-varid'>parseExp0</span> <span class='hs-varid'>st</span>
<a name="line-191"></a>
<a name="line-192"></a><a name="parseExp0"></a><span class='hs-definition'>parseExp0</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Parser</span> <span class='hs-conid'>Bool</span>
<a name="line-193"></a><span class='hs-definition'>parseExp0</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span>
<a name="line-194"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"defined"</span><span class='hs-layout'>)</span>
<a name="line-195"></a> <span class='hs-varid'>sym</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parens</span> <span class='hs-varid'>parseSym</span>
<a name="line-196"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>definedST</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span>
<a name="line-197"></a> <span class='hs-varop'>+++</span>
<a name="line-198"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseBoolExp</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span>
<a name="line-199"></a> <span class='hs-varop'>+++</span>
<a name="line-200"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>'!'</span><span class='hs-layout'>)</span>
<a name="line-201"></a> <span class='hs-varid'>a</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseExp0</span> <span class='hs-varid'>st</span>
<a name="line-202"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-203"></a> <span class='hs-varop'>+++</span>
<a name="line-204"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>sym1</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseSymOrCall</span> <span class='hs-varid'>st</span>
<a name="line-205"></a> <span class='hs-varid'>op</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseOp</span> <span class='hs-varid'>st</span>
<a name="line-206"></a> <span class='hs-varid'>sym2</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseSymOrCall</span> <span class='hs-varid'>st</span>
<a name="line-207"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>op</span> <span class='hs-layout'>(</span><span class='hs-varid'>safeRead</span> <span class='hs-varid'>sym1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>safeRead</span> <span class='hs-varid'>sym2</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-208"></a> <span class='hs-varop'>+++</span>
<a name="line-209"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>sym</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parseSymOrCall</span> <span class='hs-varid'>st</span>
<a name="line-210"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>safeRead</span> <span class='hs-varid'>sym</span> <span class='hs-keyword'>of</span>
<a name="line-211"></a> <span class='hs-num'>0</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span>
<a name="line-212"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>True</span>
<a name="line-213"></a> <span class='hs-keyword'>where</span>
<a name="line-214"></a> <span class='hs-varid'>safeRead</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span>
<a name="line-215"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>s</span> <span class='hs-keyword'>of</span>
<a name="line-216"></a> <span class='hs-chr'>'0'</span><span class='hs-conop'>:</span><span class='hs-chr'>'x'</span><span class='hs-conop'>:</span><span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>number</span> <span class='hs-varid'>readHex</span> <span class='hs-varid'>s'</span>
<a name="line-217"></a> <span class='hs-chr'>'0'</span><span class='hs-conop'>:</span><span class='hs-chr'>'o'</span><span class='hs-conop'>:</span><span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>number</span> <span class='hs-varid'>readOct</span> <span class='hs-varid'>s'</span>
<a name="line-218"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>number</span> <span class='hs-varid'>readDec</span> <span class='hs-varid'>s</span>
<a name="line-219"></a> <span class='hs-varid'>number</span> <span class='hs-varid'>rd</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span>
<a name="line-220"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>rd</span> <span class='hs-varid'>s</span> <span class='hs-keyword'>of</span>
<a name="line-221"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span>
<a name="line-222"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span>
<a name="line-223"></a>
<a name="line-224"></a><a name="parseOp"></a><span class='hs-definition'>parseOp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Parser</span> <span class='hs-layout'>(</span><span class='hs-conid'>Integer</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Integer</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span>
<a name="line-225"></a><span class='hs-definition'>parseOp</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span>
<a name="line-226"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>">="</span><span class='hs-layout'>)</span>
<a name="line-227"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'>>=</span><span class='hs-layout'>)</span>
<a name="line-228"></a> <span class='hs-varop'>+++</span>
<a name="line-229"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>'>'</span><span class='hs-layout'>)</span>
<a name="line-230"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'>></span><span class='hs-layout'>)</span>
<a name="line-231"></a> <span class='hs-varop'>+++</span>
<a name="line-232"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"<="</span><span class='hs-layout'>)</span>
<a name="line-233"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'><=</span><span class='hs-layout'>)</span>
<a name="line-234"></a> <span class='hs-varop'>+++</span>
<a name="line-235"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>'<'</span><span class='hs-layout'>)</span>
<a name="line-236"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'><</span><span class='hs-layout'>)</span>
<a name="line-237"></a> <span class='hs-varop'>+++</span>
<a name="line-238"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"=="</span><span class='hs-layout'>)</span>
<a name="line-239"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-layout'>)</span>
<a name="line-240"></a> <span class='hs-varop'>+++</span>
<a name="line-241"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>string</span> <span class='hs-str'>"!="</span><span class='hs-layout'>)</span>
<a name="line-242"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span><span class='hs-layout'>)</span>
<a name="line-243"></a>
<a name="line-244"></a><a name="parseSymOrCall"></a><span class='hs-definition'>parseSymOrCall</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Parser</span> <span class='hs-conid'>String</span>
<a name="line-245"></a><span class='hs-definition'>parseSymOrCall</span> <span class='hs-varid'>st</span> <span class='hs-keyglyph'>=</span>
<a name="line-246"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>sym</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>skip</span> <span class='hs-varid'>parseSym</span>
<a name="line-247"></a> <span class='hs-varid'>args</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseSymOrCall</span> <span class='hs-varid'>st</span> <span class='hs-varop'>`sepby`</span> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>','</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-248"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>convert</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span>
<a name="line-249"></a> <span class='hs-varop'>+++</span>
<a name="line-250"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>sym</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>skip</span> <span class='hs-varid'>parseSym</span>
<a name="line-251"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>convert</span> <span class='hs-varid'>sym</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span>
<a name="line-252"></a> <span class='hs-keyword'>where</span>
<a name="line-253"></a> <span class='hs-varid'>convert</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>=</span>
<a name="line-254"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>lookupST</span> <span class='hs-varid'>sym</span> <span class='hs-varid'>st</span> <span class='hs-keyword'>of</span>
<a name="line-255"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>sym</span>
<a name="line-256"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>@</span><span class='hs-conid'>SymbolReplacement</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>recursivelyExpand</span> <span class='hs-varid'>st</span> <span class='hs-layout'>(</span><span class='hs-varid'>replacement</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-257"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>@</span><span class='hs-conid'>MacroExpansion</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>expandMacro</span> <span class='hs-varid'>a</span> <span class='hs-varid'>args</span> <span class='hs-conid'>False</span>
<a name="line-258"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>@</span><span class='hs-conid'>AntiDefined</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>name</span> <span class='hs-varid'>a</span>
<a name="line-259"></a>
<a name="line-260"></a><a name="recursivelyExpand"></a><span class='hs-definition'>recursivelyExpand</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-261"></a><span class='hs-definition'>recursivelyExpand</span> <span class='hs-varid'>st</span> <span class='hs-varid'>inp</span> <span class='hs-keyglyph'>=</span>
<a name="line-262"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>papply</span> <span class='hs-layout'>(</span><span class='hs-varid'>parseSymOrCall</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varid'>inp</span> <span class='hs-keyword'>of</span>
<a name="line-263"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>b</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>b</span>
<a name="line-264"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>inp</span>
<a name="line-265"></a>
<a name="line-266"></a><a name="parseSym"></a><span class='hs-definition'>parseSym</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Parser</span> <span class='hs-conid'>String</span>
<a name="line-267"></a><span class='hs-definition'>parseSym</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>many1</span> <span class='hs-layout'>(</span><span class='hs-varid'>alphanum</span><span class='hs-varop'>+++</span><span class='hs-varid'>char</span> <span class='hs-chr'>'\''</span><span class='hs-varop'>+++</span><span class='hs-varid'>char</span> <span class='hs-chr'>'`'</span><span class='hs-layout'>)</span>
<a name="line-268"></a>
<a name="line-269"></a><a name="parens"></a><span class='hs-definition'>parens</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>bracket</span> <span class='hs-layout'>(</span><span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>'('</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>skip</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>char</span> <span class='hs-chr'>')'</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-270"></a>
<a name="line-271"></a><a name="file"></a><span class='hs-comment'>-- | Determine filename in \#include</span>
<a name="line-272"></a><span class='hs-definition'>file</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SymTab</span> <span class='hs-conid'>HashDefine</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-273"></a><span class='hs-definition'>file</span> <span class='hs-varid'>st</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'>=</span>
<a name="line-274"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>name</span> <span class='hs-keyword'>of</span>
<a name="line-275"></a> <span class='hs-layout'>(</span><span class='hs-chr'>'"'</span><span class='hs-conop'>:</span><span class='hs-varid'>ns</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>init</span> <span class='hs-varid'>ns</span>
<a name="line-276"></a> <span class='hs-layout'>(</span><span class='hs-chr'>'<'</span><span class='hs-conop'>:</span><span class='hs-varid'>ns</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>init</span> <span class='hs-varid'>ns</span>
<a name="line-277"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>let</span> <span class='hs-varid'>ex</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>recursivelyExpand</span> <span class='hs-varid'>st</span> <span class='hs-varid'>name</span> <span class='hs-keyword'>in</span>
<a name="line-278"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>ex</span> <span class='hs-varop'>==</span> <span class='hs-varid'>name</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>name</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>file</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ex</span>
</pre></body>
</html>
