Compiler/Preprocessor: Difference between revisions

Line 56:

<hr>

=={{header|Phix}}==

--

-- demo\rosetta\Compiler\preprocess.exw

-- ====================================

--

-- Note this uses js_open() and js_gets() directly, to avoid distributing another two files.

-- Also implemented as a standalone demonstration of the general approach, and as such

-- might require a bit more work to integrate this properly into the likes of next_ch(),

-- unless of course you write it out to disk and/or add some kind of js_write() function.

-- Also as noted this won't cope particularly well with #macro("1st,first","2nd")#, etc.

-- In other words splitting up the parameters may need to be made significantly smarter.

--

with javascript_semantics

include core.e -- (see [[Compiler/lexical_analyzer#Phix]])

sequence stack, includes, defines, arglst, bodies

integer stack_ptr

procedure begin(string filename)

-- (to allow with and without comments, sequentially, and

-- specifically not moaning about things being redefined)

stack = repeat(0,5) -- (limited as per task description)

includes = repeat("?",5) -- ""

defines = {} -- eg "area(h, w) h * w" -> "area"

arglst = {} -- -1 if () absent, else eg {"h","w"}

bodies = {} -- eg "area(h, w) h * w" -> {1," * ",2}

stack_ptr = 1

stack[stack_ptr] = js_open(filename)

end procedure

function get_word(string line, integer k=1)

string word = ""

for ch in line[k..$] do

if not find(charmap[ch],{LETTER,DIGIT}) then exit end if

word &= ch

end for

return word

end function

function preprocess(string fragment, bool comments)

string word = get_word(fragment)

integer k = find(word,defines)

assert(k!=0,"no such macro:%s",{word})

sequence used = {word},

body = deep_copy(bodies[k])

fragment = fragment[length(word)+1..$]

object args = arglst[k]

if sequence(args) then

assert(fragment[1]='(' and fragment[$]=')')

fragment = fragment[2..$-1]

// NB: won't cope with eg #macro("1st,first","2nd")#, etc.

sequence params = apply(split(fragment,','),trim)

assert(length(params)==length(args))

for i=1 to length(body) do

if integer(body[i]) then

word = params[body[i]]

k = find(word,defines)

if k then

// (this /might/ want to be recursive...)

used = append(used,word)

assert(atom(arglst[k])) // placeholder

word = join(bodies[k],"")

end if

body[i] = word

end if

end for

else

assert(fragment="")

end if

if comments then

printf(1,"/* Use %s */\n",{join(used,", ",", and ")})

end if

string replacement = join(body,"")

return replacement

end function

for comments in {false,true} do

printf(1,"with%s comments:\n",{iff(comments?"":"out")})

begin("Source.t")

while stack_ptr do

object oneline = js_gets(stack[stack_ptr])

if oneline=EOF then

if comments and stack_ptr>1 then

printf(1,"/* End %s */\n",{includes[stack_ptr]})

end if

stack_ptr -= 1

else

integer k = find('#',oneline)

if k then

string word = get_word(oneline,k+1)

if word="include" then

stack_ptr += 1

assert(k=1)

-- 10 is length("#include ")+1

oneline = trim(oneline[10..$],` "`)

stack[stack_ptr] = js_open(oneline)

if comments then

printf(1,"/* Include %s */\n",{oneline})

includes[stack_ptr] = oneline

end if

elsif word="define" then

assert(k=1)

-- 9 is length("#define ")+1

word = get_word(oneline,9)

assert(not find(word,defines))

defines = append(defines,word)

oneline = trim(oneline[9+length(word)..$])

sequence body = {}

if oneline[1]='(' then

k = find(')',oneline,2)

assert(k>0,"closing parenthesis missing")

sequence args = apply(split(oneline[2..k-1],','),trim)

oneline = trim(oneline[k+1..$])

string fixed = ""

while length(oneline) do

word = get_word(oneline)

if length(word)=0 then

fixed &= oneline[1]

oneline = oneline[2..$]

else

k = find(word,args)

if k then

if length(fixed) then

body = append(body,fixed)

fixed = ""

end if

body = append(body,k)

else

fixed &= word

end if

oneline = oneline[length(word)+1..$]

end if

end while

if length(fixed) then

body = append(body,fixed)

fixed = ""

end if

arglst = append(arglst,args)

else

body = {oneline}

arglst = append(arglst,-1)

end if

bodies = append(bodies,body)

if comments then

object al = arglst[$]

string n = defines[$],

a = iff(atom(al)?"":sprintf("(%s)",{join(al,',')}))

sequence b = deep_copy(bodies[$])

for i=1 to length(b) do

if atom(b[i]) then

b[i] = al[b[i]]

end if

end for

b = join(b,"")

printf(1,"/* Define %s%s as %s */\n",{n,a,b})

end if

else

while k do

integer l = find('#',oneline,k+1)

assert(l!=0,"missing closing #")

string fragment = oneline[k+1..l-1],

replacement = preprocess(fragment,comments)

oneline[k..l] = replacement

k = find('#',oneline,k+length(replacement)-1)

end while

printf(1,"%s\n",{oneline})

end if

else

printf(1,"%s\n",{oneline})

end if

end while

printf(1,"\n")

end for

--close_files()

<pre>

without comments:

area = 6 * 5;

with comments:

/* Include Header.h */

/* Define area(h,w) as h * w */

/* End Header.h */

/* Define width as 5 */

/* Define height as 6 */

/* Use area, height, and width */

area = 6 * 5;

</pre>

@@ Line 56: / Line 56: @@
 <hr>
 <br><br>
+=={{header|Phix}}==
+<!--<lang Phix>(phixonline)-->
+ <span style="color: #000080;font-style:italic;">--
+ -- demo\rosetta\Compiler\preprocess.exw
+ -- ====================================
+ --
+ -- Note this uses js_open() and js_gets() directly, to avoid distributing another two files.
+ -- Also implemented as a standalone demonstration of the general approach, and as such
+ -- might require a bit more work to integrate this properly into the likes of next_ch(),
+ -- unless of course you write it out to disk and/or add some kind of js_write() function.
+ -- Also as noted this won't cope particularly well with #macro("1st,first","2nd")#, etc.
+ -- In other words splitting up the parameters may need to be made significantly smarter.
+ --</span>
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">core</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span> <span style="color: #000080;font-style:italic;">-- (see [[Compiler/lexical_analyzer#Phix]])</span>
+ <span style="color: #004080;">sequence</span> <span style="color: #000000;">stack</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">includes</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">defines</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">arglst</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">bodies</span>
+ <span style="color: #004080;">integer</span> <span style="color: #000000;">stack_ptr</span>
+ <span style="color: #008080;">procedure</span> <span style="color: #000000;">begin</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">filename</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000080;font-style:italic;">-- (to allow with and without comments, sequentially, and
+     --  specifically not moaning about things being redefined)</span>
+     <span style="color: #000000;">stack</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (limited as per task description)</span>
+     <span style="color: #000000;">includes</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"?"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- ""</span>
+     <span style="color: #000000;">defines</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span> <span style="color: #000080;font-style:italic;">-- eg "area(h, w) h * w" -&gt; "area"</span>
+     <span style="color: #000000;">arglst</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span> <span style="color: #000080;font-style:italic;">-- -1 if () absent, else eg {"h","w"}</span>
+     <span style="color: #000000;">bodies</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span> <span style="color: #000080;font-style:italic;">-- eg "area(h, w) h * w" -&gt; {1," * ",2}</span>
+     <span style="color: #000000;">stack_ptr</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+     <span style="color: #000000;">stack</span><span style="color: #0000FF;">[</span><span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">js_open</span><span style="color: #0000FF;">(</span><span style="color: #000000;">filename</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">get_word</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">line</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">k</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span>
+     <span style="color: #008080;">for</span> <span style="color: #000000;">ch</span> <span style="color: #008080;">in</span> <span style="color: #000000;">line</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">..$]</span> <span style="color: #008080;">do</span>
+         <span style="color: #008080;">if</span> <span style="color: #008080;">not</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">charmap</span><span style="color: #0000FF;">[</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">],{</span><span style="color: #000000;">LETTER</span><span style="color: #0000FF;">,</span><span style="color: #000000;">DIGIT</span><span style="color: #0000FF;">})</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+         <span style="color: #000000;">word</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">ch</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">word</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">preprocess</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">fragment</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">bool</span> <span style="color: #000000;">comments</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get_word</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fragment</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">,</span><span style="color: #000000;">defines</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">k</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"no such macro:%s"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">word</span><span style="color: #0000FF;">})</span>
+     <span style="color: #004080;">sequence</span> <span style="color: #000000;">used</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">word</span><span style="color: #0000FF;">},</span>
+              <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">deep_copy</span><span style="color: #0000FF;">(</span><span style="color: #000000;">bodies</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">])</span>
+     <span style="color: #000000;">fragment</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">fragment</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$]</span>
+     <span style="color: #004080;">object</span> <span style="color: #000000;">args</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">arglst</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">]</span>
+     <span style="color: #008080;">if</span> <span style="color: #004080;">sequence</span><span style="color: #0000FF;">(</span><span style="color: #000000;">args</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
+         <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fragment</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]=</span><span style="color: #008000;">'('</span> <span style="color: #008080;">and</span> <span style="color: #000000;">fragment</span><span style="color: #0000FF;">[$]=</span><span style="color: #008000;">')'</span><span style="color: #0000FF;">)</span>
+         <span style="color: #000000;">fragment</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">fragment</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..$-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
+         <span style="color: #000080;font-style:italic;">// NB: won't cope with eg #macro("1st,first","2nd")#, etc.</span>
+         <span style="color: #004080;">sequence</span> <span style="color: #000000;">params</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fragment</span><span style="color: #0000FF;">,</span><span style="color: #008000;">','</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">trim</span><span style="color: #0000FF;">)</span>
+         <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">params</span><span style="color: #0000FF;">)==</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">args</span><span style="color: #0000FF;">))</span>
+         <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+             <span style="color: #008080;">if</span> <span style="color: #004080;">integer</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">then</span>
+                 <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">params</span><span style="color: #0000FF;">[</span><span style="color: #000000;">body</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]]</span>
+                 <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">,</span><span style="color: #000000;">defines</span><span style="color: #0000FF;">)</span>
+                 <span style="color: #008080;">if</span> <span style="color: #000000;">k</span> <span style="color: #008080;">then</span>
+                     <span style="color: #000080;font-style:italic;">// (this /might/ want to be recursive...)</span>
+                     <span style="color: #000000;">used</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">used</span><span style="color: #0000FF;">,</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #004080;">atom</span><span style="color: #0000FF;">(</span><span style="color: #000000;">arglst</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">]))</span> <span style="color: #000080;font-style:italic;">// placeholder</span>
+                     <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">bodies</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">],</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
+                 <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                 <span style="color: #000000;">body</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">word</span>
+             <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+     <span style="color: #008080;">else</span>
+         <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fragment</span><span style="color: #0000FF;">=</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">comments</span> <span style="color: #008080;">then</span>
+         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"/* Use %s */\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">used</span><span style="color: #0000FF;">,</span><span style="color: #008000;">", "</span><span style="color: #0000FF;">,</span><span style="color: #008000;">", and "</span><span style="color: #0000FF;">)})</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">replacement</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">replacement</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">comments</span> <span style="color: #008080;">in</span> <span style="color: #0000FF;">{</span><span style="color: #004600;">false</span><span style="color: #0000FF;">,</span><span style="color: #004600;">true</span><span style="color: #0000FF;">}</span> <span style="color: #008080;">do</span>
+     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"with%s comments:\n"</span><span style="color: #0000FF;">,{</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">comments</span><span style="color: #0000FF;">?</span><span style="color: #008000;">""</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"out"</span><span style="color: #0000FF;">)})</span>
+     <span style="color: #000000;">begin</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Source.t"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">while</span> <span style="color: #000000;">stack_ptr</span> <span style="color: #008080;">do</span>
+         <span style="color: #004080;">object</span> <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">js_gets</span><span style="color: #0000FF;">(</span><span style="color: #000000;">stack</span><span style="color: #0000FF;">[</span><span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">])</span>
+         <span style="color: #008080;">if</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">=</span><span style="color: #000000;">EOF</span> <span style="color: #008080;">then</span>
+             <span style="color: #008080;">if</span> <span style="color: #000000;">comments</span> <span style="color: #008080;">and</span> <span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">></span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span>
+                 <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"/* End %s */\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">includes</span><span style="color: #0000FF;">[</span><span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">]})</span>
+             <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+             <span style="color: #000000;">stack_ptr</span> <span style="color: #0000FF;">-=</span> <span style="color: #000000;">1</span>
+         <span style="color: #008080;">else</span>
+             <span style="color: #004080;">integer</span> <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'#'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">)</span>
+             <span style="color: #008080;">if</span> <span style="color: #000000;">k</span> <span style="color: #008080;">then</span>
+                 <span style="color: #004080;">string</span> <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get_word</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                 <span style="color: #008080;">if</span> <span style="color: #000000;">word</span><span style="color: #0000FF;">=</span><span style="color: #008000;">"include"</span> <span style="color: #008080;">then</span>
+                     <span style="color: #000000;">stack_ptr</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
+                     <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">k</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #000080;font-style:italic;">-- 10 is length("#include ")+1</span>
+                     <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">trim</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">10</span><span style="color: #0000FF;">..$],</span><span style="color: #008000;">` "`</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #000000;">stack</span><span style="color: #0000FF;">[</span><span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">js_open</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #008080;">if</span> <span style="color: #000000;">comments</span> <span style="color: #008080;">then</span>
+                         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"/* Include %s */\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">})</span>
+                         <span style="color: #000000;">includes</span><span style="color: #0000FF;">[</span><span style="color: #000000;">stack_ptr</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneline</span>
+                     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                 <span style="color: #008080;">elsif</span> <span style="color: #000000;">word</span><span style="color: #0000FF;">=</span><span style="color: #008000;">"define"</span> <span style="color: #008080;">then</span>
+                     <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">k</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #000080;font-style:italic;">-- 9 is length("#define ")+1</span>
+                     <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get_word</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">,</span><span style="color: #000000;">9</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #008080;">not</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">,</span><span style="color: #000000;">defines</span><span style="color: #0000FF;">))</span>
+                     <span style="color: #000000;">defines</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">defines</span><span style="color: #0000FF;">,</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">trim</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">9</span><span style="color: #0000FF;">+</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)..$])</span>
+                     <span style="color: #004080;">sequence</span> <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
+                     <span style="color: #008080;">if</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]=</span><span style="color: #008000;">'('</span> <span style="color: #008080;">then</span>
+                         <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">')'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">k</span><span style="color: #0000FF;">></span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"closing parenthesis missing"</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #004080;">sequence</span> <span style="color: #000000;">args</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..</span><span style="color: #000000;">k</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">],</span><span style="color: #008000;">','</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">trim</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">trim</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$])</span>
+                         <span style="color: #004080;">string</span> <span style="color: #000000;">fixed</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span>
+                         <span style="color: #008080;">while</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+                             <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get_word</span><span style="color: #0000FF;">(</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">)</span>
+                             <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
+                                 <span style="color: #000000;">fixed</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
+                                 <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..$]</span>
+                             <span style="color: #008080;">else</span>
+                                 <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">,</span><span style="color: #000000;">args</span><span style="color: #0000FF;">)</span>
+                                 <span style="color: #008080;">if</span> <span style="color: #000000;">k</span> <span style="color: #008080;">then</span>
+                                     <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fixed</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
+                                         <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fixed</span><span style="color: #0000FF;">)</span>
+                                         <span style="color: #000000;">fixed</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span>
+                                     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                                     <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">)</span>
+                                 <span style="color: #008080;">else</span>
+                                     <span style="color: #000000;">fixed</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">word</span>
+                                 <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                                 <span style="color: #000000;">oneline</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$]</span>
+                             <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                         <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+                         <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fixed</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
+                             <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">body</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fixed</span><span style="color: #0000FF;">)</span>
+                             <span style="color: #000000;">fixed</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span>
+                         <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                         <span style="color: #000000;">arglst</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">arglst</span><span style="color: #0000FF;">,</span><span style="color: #000000;">args</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #008080;">else</span>
+                         <span style="color: #000000;">body</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">}</span>
+                         <span style="color: #000000;">arglst</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">arglst</span><span style="color: #0000FF;">,-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                     <span style="color: #000000;">bodies</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">bodies</span><span style="color: #0000FF;">,</span><span style="color: #000000;">body</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #008080;">if</span> <span style="color: #000000;">comments</span> <span style="color: #008080;">then</span>
+                         <span style="color: #004080;">object</span> <span style="color: #000000;">al</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">arglst</span><span style="color: #0000FF;">[$]</span>
+                         <span style="color: #004080;">string</span> <span style="color: #000000;">n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">defines</span><span style="color: #0000FF;">[$],</span>
+                                <span style="color: #000000;">a</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #004080;">atom</span><span style="color: #0000FF;">(</span><span style="color: #000000;">al</span><span style="color: #0000FF;">)?</span><span style="color: #008000;">""</span><span style="color: #0000FF;">:</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"(%s)"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">al</span><span style="color: #0000FF;">,</span><span style="color: #008000;">','</span><span style="color: #0000FF;">)}))</span>
+                         <span style="color: #004080;">sequence</span> <span style="color: #000000;">b</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">deep_copy</span><span style="color: #0000FF;">(</span><span style="color: #000000;">bodies</span><span style="color: #0000FF;">[$])</span>
+                         <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">b</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+                             <span style="color: #008080;">if</span> <span style="color: #004080;">atom</span><span style="color: #0000FF;">(</span><span style="color: #000000;">b</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">then</span>
+                                 <span style="color: #000000;">b</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">al</span><span style="color: #0000FF;">[</span><span style="color: #000000;">b</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]]</span>
+                             <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                         <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+                         <span style="color: #000000;">b</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"/* Define %s%s as %s */\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">n</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span><span style="color: #000000;">b</span><span style="color: #0000FF;">})</span>
+                     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+                 <span style="color: #008080;">else</span>
+                     <span style="color: #008080;">while</span> <span style="color: #000000;">k</span> <span style="color: #008080;">do</span>
+                         <span style="color: #004080;">integer</span> <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'#'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #7060A8;">assert</span><span style="color: #0000FF;">(</span><span style="color: #000000;">l</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"missing closing #"</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #004080;">string</span> <span style="color: #000000;">fragment</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">l</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">],</span>
+                             <span style="color: #000000;">replacement</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">preprocess</span><span style="color: #0000FF;">(</span><span style="color: #000000;">fragment</span><span style="color: #0000FF;">,</span><span style="color: #000000;">comments</span><span style="color: #0000FF;">)</span>
+                         <span style="color: #000000;">oneline</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">..</span><span style="color: #000000;">l</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">replacement</span>
+                         <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'#'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">replacement</span><span style="color: #0000FF;">)-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+                     <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+                     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">})</span>
+                 <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+             <span style="color: #008080;">else</span>
+                 <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">oneline</span><span style="color: #0000FF;">})</span>
+             <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+ <span style="color: #000080;font-style:italic;">--close_files()</span>
+<!--</lang>-->
+{{out}}
+<pre>
+without comments:
+area = 6 * 5;
+with comments:
+/* Include Header.h */
+/* Define area(h,w) as h * w */
+/* End Header.h */
+/* Define width as 5 */
+/* Define height as 6 */
+/* Use area, height, and width */
+area = 6 * 5;
+</pre>