diff options
Diffstat (limited to 'html/shell/evaluate.mu.html')
| -rw-r--r-- | html/shell/evaluate.mu.html | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/html/shell/evaluate.mu.html b/html/shell/evaluate.mu.html index 9e8da3c1..898593d0 100644 --- a/html/shell/evaluate.mu.html +++ b/html/shell/evaluate.mu.html @@ -1,14 +1,14 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - shell/evaluate.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } @@ -32,7 +32,7 @@ a { color:inherit; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ @@ -83,9 +83,9 @@ if ('onhashchange' in window) { <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-!=</span> <span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> old-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> old-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L20" class="LineNr"> 20 </span> old-x, old-y <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L230'>cursor-position</a> <span class="Constant">0</span>/screen +<span id="L20" class="LineNr"> 20 </span> old-x, old-y <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L251'>cursor-position</a> <span class="Constant">0</span>/screen <span id="L21" class="LineNr"> 21 </span> <a href='../315stack-debug.subx.html#L26'>show-stack-state</a> -<span id="L22" class="LineNr"> 22 </span> <a href='../500fake-screen.mu.html#L246'>set-cursor-position</a> <span class="Constant">0</span>/screen, old-x, old-y +<span id="L22" class="LineNr"> 22 </span> <a href='../500fake-screen.mu.html#L267'>set-cursor-position</a> <span class="Constant">0</span>/screen, old-x, old-y <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> <span class="muComment"># show intermediate progress on screen if necessary</span> <span id="L25" class="LineNr"> 25 </span> <span class="muComment"># treat input at the real keyboard as interrupting</span> @@ -128,7 +128,7 @@ if ('onhashchange' in window) { <span id="L62" class="LineNr"> 62 </span><span class="CommentedCode">#? compare foo, 0</span> <span id="L63" class="LineNr"> 63 </span><span class="CommentedCode">#? loop-if-=</span> <span id="L64" class="LineNr"> 64 </span><span class="CommentedCode">#? }</span> -<span id="L65" class="Folded"> 65 </span><span class="Folded">+-- 19 lines: # trace "evaluate " in " in environment " env ---------------------------------------------------------------------------------------------------------------------------</span> +<span id="L65" class="Folded"> 65 </span><span class="Folded">+-- 19 lines: # trace "evaluate " in " in environment " env -----------------------------------------------------------------------------------------------------------------------------</span> <span id="L84" class="LineNr"> 84 </span> <a href='trace.mu.html#L239'>trace-lower</a> trace <span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> in/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-ah <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> @@ -652,7 +652,7 @@ if ('onhashchange' in window) { <span id="L604" class="LineNr"> 604 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace <span id="L605" class="LineNr"> 605 </span> <span class="PreProc">return</span> <span id="L606" class="LineNr"> 606 </span> <span class="Delimiter">}</span> -<span id="L607" class="Folded"> 607 </span><span class="Folded">+-- 15 lines: # trace "evaluate function call elements in " in ------------------------------------------------------------------------------------------------------------------------</span> +<span id="L607" class="Folded"> 607 </span><span class="Folded">+-- 15 lines: # trace "evaluate function call elements in " in --------------------------------------------------------------------------------------------------------------------------</span> <span id="L622" class="LineNr"> 622 </span> <a href='trace.mu.html#L239'>trace-lower</a> trace <span id="L623" class="LineNr"> 623 </span> <span class="PreProc">var</span> evaluated-list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> evaluated-list-ah/<span class="muRegEsi">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address evaluated-list-storage @@ -694,7 +694,7 @@ if ('onhashchange' in window) { <span id="L660" class="LineNr"> 660 </span> <a href='evaluate.mu.html#L681'>apply</a> function-ah, args-ah, _out-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number <span id="L661" class="LineNr"> 661 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Y"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg <span id="L662" class="LineNr"> 662 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace -<span id="L663" class="Folded"> 663 </span><span class="Folded">+-- 15 lines: # trace "=> " _out-ah ---------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L663" class="Folded"> 663 </span><span class="Folded">+-- 15 lines: # trace "=> " _out-ah -----------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L678" class="LineNr"> 678 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Z"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg <span id="L679" class="LineNr"> 679 </span><span class="Delimiter">}</span> <span id="L680" class="LineNr"> 680 </span> @@ -711,7 +711,7 @@ if ('onhashchange' in window) { <span id="L691" class="LineNr"> 691 </span> <span class="PreProc">return</span> <span id="L692" class="LineNr"> 692 </span> <span class="Delimiter">}</span> <span id="L693" class="LineNr"> 693 </span> <span class="muComment"># if it's not a primitive function it must be an anonymous function</span> -<span id="L694" class="Folded"> 694 </span><span class="Folded">+-- 19 lines: # trace "apply anonymous function " f " in environment " env ------------------------------------------------------------------------------------------------------------</span> +<span id="L694" class="Folded"> 694 </span><span class="Folded">+-- 19 lines: # trace "apply anonymous function " f " in environment " env --------------------------------------------------------------------------------------------------------------</span> <span id="L713" class="LineNr"> 713 </span> <a href='trace.mu.html#L239'>trace-lower</a> trace <span id="L714" class="LineNr"> 714 </span> <span class="Delimiter">{</span> <span id="L715" class="LineNr"> 715 </span> <span class="PreProc">var</span> f-type/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> @@ -812,7 +812,7 @@ if ('onhashchange' in window) { <span id="L810" class="LineNr"> 810 </span> <span class="PreProc">return</span> <span id="L811" class="LineNr"> 811 </span> <span class="Delimiter">}</span> <span id="L812" class="LineNr"> 812 </span> <span class="muComment"># Params can only be symbols or pairs. Args can be anything.</span> -<span id="L813" class="Folded"> 813 </span><span class="Folded">+-- 28 lines: # trace "pushing bindings from " params " to " args ---------------------------------------------------------------------------------------------------------------------</span> +<span id="L813" class="Folded"> 813 </span><span class="Folded">+-- 28 lines: # trace "pushing bindings from " params " to " args -----------------------------------------------------------------------------------------------------------------------</span> <span id="L841" class="LineNr"> 841 </span> <a href='trace.mu.html#L239'>trace-lower</a> trace <span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> params-type/eax: (addr int) <span class="Special"><-</span> get params, <span class="PreProc">type</span> <span id="L843" class="LineNr"> 843 </span> compare *params-type, <span class="Constant">2</span>/symbol @@ -919,7 +919,7 @@ if ('onhashchange' in window) { <span id="L944" class="LineNr"> 944 </span> <a href='global.mu.html#L369'>lookup-symbol-in-globals</a> sym, out, globals, trace, inner-screen-var, inner-keyboard-var <span id="L945" class="LineNr"> 945 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L946" class="LineNr"> 946 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace -<span id="L947" class="Folded"> 947 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (global)" -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L947" class="Folded"> 947 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L970" class="LineNr"> 970 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L971" class="LineNr"> 971 </span> <span class="PreProc">return</span> <span id="L972" class="LineNr"> 972 </span> <span class="Delimiter">}</span> @@ -958,7 +958,7 @@ if ('onhashchange' in window) { <span id="L1005" class="LineNr">1005 </span> <span class="Delimiter">{</span> <span id="L1006" class="LineNr">1006 </span> <span class="PreProc">break-if-=</span> <span id="L1007" class="LineNr">1007 </span> <a href='evaluate.mu.html#L1265'>cdr</a> env-head, out, trace -<span id="L1008" class="Folded">1008 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (match)" --------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1008" class="Folded">1008 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (match)" ----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1031" class="LineNr">1031 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace <span id="L1032" class="LineNr">1032 </span> <span class="PreProc">return</span> <span id="L1033" class="LineNr">1033 </span> <span class="Delimiter">}</span> @@ -968,7 +968,7 @@ if ('onhashchange' in window) { <span id="L1037" class="LineNr">1037 </span> <a href='evaluate.mu.html#L1265'>cdr</a> env, env-tail-ah, trace <span id="L1038" class="LineNr">1038 </span> <a href='evaluate.mu.html#L900'>lookup-symbol</a> sym, out, *env-tail-ah, globals, trace, inner-screen-var, inner-keyboard-var <span id="L1039" class="LineNr">1039 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace -<span id="L1040" class="Folded">1040 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (recurse)" ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1040" class="Folded">1040 </span><span class="Folded">+-- 23 lines: # trace "=> " out " (recurse)" --------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1063" class="LineNr">1063 </span><span class="Delimiter">}</span> <span id="L1064" class="LineNr">1064 </span> <span id="L1065" class="LineNr">1065 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1065'>test-lookup-symbol-in-env</a></span> <span class="Delimiter">{</span> @@ -1071,7 +1071,7 @@ if ('onhashchange' in window) { <span id="L1162" class="LineNr">1162 </span> <a href='global.mu.html#L504'>mutate-binding-in-globals</a> name, val, globals, trace <span id="L1163" class="LineNr">1163 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg <span id="L1164" class="LineNr">1164 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace -<span id="L1165" class="Folded">1165 </span><span class="Folded">+-- 19 lines: # trace "=> " val " (global)" -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1165" class="Folded">1165 </span><span class="Folded">+-- 19 lines: # trace "=> " val " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1184" class="LineNr">1184 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg <span id="L1185" class="LineNr">1185 </span> <span class="PreProc">return</span> <span id="L1186" class="LineNr">1186 </span> <span class="Delimiter">}</span> @@ -1310,7 +1310,7 @@ if ('onhashchange' in window) { <span id="L1419" class="LineNr">1419 </span> <span class="PreProc">var</span> a-val/<span class="muRegEcx">ecx</span>: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _a-val <span id="L1420" class="LineNr">1420 </span> <span class="PreProc">var</span> b-val-ah/eax: (addr handle <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get b, keyboard-data <span id="L1421" class="LineNr">1421 </span> <span class="PreProc">var</span> b-val/eax: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *b-val-ah -<span id="L1422" class="LineNr">1422 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L664'>gap-buffers-equal?</a> a-val, b-val +<span id="L1422" class="LineNr">1422 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L663'>gap-buffers-equal?</a> a-val, b-val <span id="L1423" class="LineNr">1423 </span> <span class="PreProc">return</span> result <span id="L1424" class="LineNr">1424 </span> <span class="Delimiter">}</span> <span id="L1425" class="LineNr">1425 </span> <span class="muComment"># if objects are arrays, check if they have the same contents</span> |