2021-08-16 06:44:43 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
2021-06-23 20:19:20 +00:00
< html >
< head >
2021-08-16 06:44:43 +00:00
< meta http-equiv = "content-type" content = "text/html; charset=UTF-8" >
2021-06-23 20:19:20 +00:00
< title > Mu - shell/infix.mu< / title >
2021-08-16 06:44:43 +00:00
< meta name = "Generator" content = "Vim/8.1" >
< meta name = "plugin-version" content = "vim8.1_v1" >
2021-06-23 20:19:20 +00:00
< meta name = "syntax" content = "none" >
2021-08-16 06:44:43 +00:00
< meta name = "settings" content = "number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=" >
2021-06-25 04:44:18 +00:00
< meta name = "colorscheme" content = "minimal-light" >
2021-08-16 06:44:43 +00:00
< style type = "text/css" >
2021-06-23 20:19:20 +00:00
<!--
2021-06-26 16:20:32 +00:00
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; }
2021-06-23 20:19:20 +00:00
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
2021-08-16 06:44:43 +00:00
.CommentedCode { color: #8a8a8a; }
2021-06-23 20:19:20 +00:00
.LineNr { }
.Delimiter { color: #c000c0; }
2021-08-16 06:44:43 +00:00
.muFunction { color: #af5f00; text-decoration: underline; }
2021-06-27 03:55:36 +00:00
.muRegEbx { color: #5f00ff; }
.muRegEsi { color: #005faf; }
.muRegEdi { color: #00af00; }
2021-06-23 20:19:20 +00:00
.Constant { color: #008787; }
.Special { color: #ff6060; }
.PreProc { color: #c000c0; }
2021-07-16 15:38:43 +00:00
.Folded { color: #080808; background-color: #949494; }
2021-08-16 06:44:43 +00:00
.muTest { color: #5f8700; }
.muComment { color: #005faf; }
.muRegEcx { color: #870000; }
.muRegEdx { color: #af5f00; }
2021-06-23 20:19:20 +00:00
-->
< / style >
2021-08-16 06:44:43 +00:00
< script type = 'text/javascript' >
2021-06-23 20:19:20 +00:00
<!--
/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
var lineNum;
lineNum = window.location.hash;
lineNum = lineNum.substr(1); /* strip off '#' */
if (lineNum.indexOf('L') == -1) {
lineNum = 'L'+lineNum;
}
var lineElem = document.getElementById(lineNum);
/* Always jump to new location even if the line was hidden inside a fold, or
* we corrected the raw number to a line ID.
*/
if (lineElem) {
lineElem.scrollIntoView(true);
}
return true;
}
if ('onhashchange' in window) {
window.onhashchange = JumpToLine;
}
-->
< / script >
< / head >
< body onload = 'JumpToLine();' >
< a href = 'https://github.com/akkartik/mu/blob/main/shell/infix.mu' > https://github.com/akkartik/mu/blob/main/shell/infix.mu< / a >
< pre id = 'vimCodeElement' >
< span id = "L1" class = "LineNr" > 1 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L1' > transform-infix< / a > < / span > x-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L2" class = "LineNr" > 2 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " infix" < / span > , < span class = "Constant" > " transform infix" < / span >
< span id = "L3" class = "LineNr" > 3 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L4" class = "LineNr" > 4 < / span > < span class = "CommentedCode" > #? trace-text trace, " infix" , " todo" < / span >
< span id = "L5" class = "LineNr" > 5 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " a:" , 2/fg 0/bg< / span >
< span id = "L6" class = "LineNr" > 6 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen x-ah, 7/fg 0/bg< / span >
< span id = "L7" class = "LineNr" > 7 < / span > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > x-ah, trace, < span class = "Constant" > 1< / span > /at-head-of-list
< span id = "L8" class = "LineNr" > 8 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L9" class = "LineNr" > 9 < / span > < span class = "Delimiter" > }< / span >
< span id = "L10" class = "LineNr" > 10 < / span >
< span id = "L11" class = "LineNr" > 11 < / span > < span class = "muComment" > # Break any symbols containing operators down in place into s-expressions< / span >
< span id = "L12" class = "LineNr" > 12 < / span > < span class = "muComment" > # Transform (... sym op sym ...) greedily in place into (... (op sym sym) ...)< / span >
< span id = "L13" class = "LineNr" > 13 < / span > < span class = "muComment" > # Lisp code typed in at the keyboard will never have cycles< / span >
< span id = "L14" class = "LineNr" > 14 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > < / span > _x-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace), at-head-of-list?: boolean < span class = "Delimiter" > {< / span >
< span id = "L15" class = "LineNr" > 15 < / span > < span class = "PreProc" > var< / span > x-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x-ah
2021-08-16 06:44:43 +00:00
< span id = "L16" class = "LineNr" > 16 < / span > < span class = "PreProc" > var< / span > x/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *x-ah
2021-09-01 20:22:16 +00:00
< span id = "L17" class = "Folded" > 17 < / span > < span class = "Folded" > +-- 14 lines: # trace x-ah ------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
2021-06-23 20:19:20 +00:00
< span id = "L31" class = "LineNr" > 31 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L32" class = "LineNr" > 32 < / span > < span class = "CommentedCode" > #? {< / span >
< span id = "L33" class = "LineNr" > 33 < / span > < span class = "CommentedCode" > #? var foo/eax: int < - copy x< / span >
< span id = "L34" class = "LineNr" > 34 < / span > < span class = "CommentedCode" > #? draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, foo, 7/fg 0/bg< / span >
< span id = "L35" class = "LineNr" > 35 < / span > < span class = "CommentedCode" > #? }< / span >
< span id = "L36" class = "LineNr" > 36 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen x-ah, 5/fg 0/bg< / span >
< span id = "L37" class = "LineNr" > 37 < / span > < span class = "muComment" > # null? return< / span >
< span id = "L38" class = "LineNr" > 38 < / span > compare x, < span class = "Constant" > 0< / span >
< span id = "L39" class = "LineNr" > 39 < / span > < span class = "Delimiter" > {< / span >
< span id = "L40" class = "LineNr" > 40 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L41" class = "LineNr" > 41 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L42" class = "LineNr" > 42 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " infix" < / span > , < span class = "Constant" > " => NULL" < / span >
< span id = "L43" class = "LineNr" > 43 < / span > < span class = "PreProc" > return< / span >
< span id = "L44" class = "LineNr" > 44 < / span > < span class = "Delimiter" > }< / span >
< span id = "L45" class = "LineNr" > 45 < / span > < span class = "muComment" > # nil? return< / span >
< span id = "L46" class = "LineNr" > 46 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L47" class = "LineNr" > 47 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L390' > nil?< / a > /eax: boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L390' > nil?< / a > x
< span id = "L48" class = "LineNr" > 48 < / span > compare < a href = 'print.mu.html#L390' > nil?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-23 20:19:20 +00:00
< span id = "L49" class = "LineNr" > 49 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L50" class = "LineNr" > 50 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L51" class = "LineNr" > 51 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " infix" < / span > , < span class = "Constant" > " => nil" < / span >
< span id = "L52" class = "LineNr" > 52 < / span > < span class = "PreProc" > return< / span >
< span id = "L53" class = "LineNr" > 53 < / span > < span class = "Delimiter" > }< / span >
< span id = "L54" class = "LineNr" > 54 < / span > < span class = "PreProc" > var< / span > x-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
< span id = "L55" class = "LineNr" > 55 < / span > < span class = "muComment" > # symbol? maybe break it down into a pair< / span >
< span id = "L56" class = "LineNr" > 56 < / span > < span class = "Delimiter" > {< / span >
< span id = "L57" class = "LineNr" > 57 < / span > compare *x-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L58" class = "LineNr" > 58 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L59" class = "LineNr" > 59 < / span > < a href = 'infix.mu.html#L303' > tokenize-infix< / a > x-ah, trace
< span id = "L60" class = "LineNr" > 60 < / span > < span class = "Delimiter" > }< / span >
< span id = "L61" class = "LineNr" > 61 < / span > < span class = "muComment" > # not a pair? return< / span >
< span id = "L62" class = "LineNr" > 62 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " a" , 4/fg 0/bg< / span >
< span id = "L63" class = "LineNr" > 63 < / span > < span class = "CommentedCode" > #? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, *x-type, 5/fg 0/bg< / span >
< span id = "L64" class = "LineNr" > 64 < / span > < span class = "Delimiter" > {< / span >
< span id = "L65" class = "LineNr" > 65 < / span > compare *x-type, < span class = "Constant" > 0< / span > /pair
< span id = "L66" class = "LineNr" > 66 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L67" class = "LineNr" > 67 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
2021-09-01 20:22:16 +00:00
< span id = "L68" class = "Folded" > 68 < / span > < span class = "Folded" > +-- 15 lines: # trace " => " x-ah ------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
2021-06-23 20:19:20 +00:00
< span id = "L83" class = "LineNr" > 83 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " ^" , 4/fg 0/bg< / span >
< span id = "L84" class = "LineNr" > 84 < / span > < span class = "PreProc" > return< / span >
< span id = "L85" class = "LineNr" > 85 < / span > < span class = "Delimiter" > }< / span >
< span id = "L86" class = "LineNr" > 86 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " b" , 4/fg 0/bg< / span >
< span id = "L87" class = "LineNr" > 87 < / span > < span class = "muComment" > # singleton operator? unwrap< / span >
< span id = "L88" class = "LineNr" > 88 < / span > < span class = "Delimiter" > {< / span >
< span id = "L89" class = "LineNr" > 89 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, left
< span id = "L90" class = "LineNr" > 90 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L91" class = "LineNr" > 91 < / span > < span class = "PreProc" > var< / span > first/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *first-ah
< span id = "L92" class = "LineNr" > 92 < / span > < span class = "PreProc" > var< / span > operator?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L412' > operator-symbol?< / a > first
< span id = "L93" class = "LineNr" > 93 < / span > compare operator?, < span class = "Constant" > 0< / span > /false
2021-06-23 20:19:20 +00:00
< span id = "L94" class = "LineNr" > 94 < / span > < span class = "Delimiter" > }< / span >
< span id = "L95" class = "LineNr" > 95 < / span > < span class = "PreProc" > break-if-=< / span >
2021-06-27 03:55:36 +00:00
< span id = "L96" class = "LineNr" > 96 < / span > < span class = "PreProc" > var< / span > rest-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, right
2021-08-16 06:44:43 +00:00
< span id = "L97" class = "LineNr" > 97 < / span > < span class = "PreProc" > var< / span > rest/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
< span id = "L98" class = "LineNr" > 98 < / span > < span class = "PreProc" > var< / span > rest-nil?/eax: boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L390' > nil?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L99" class = "LineNr" > 99 < / span > compare rest-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L100" class = "LineNr" > 100 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L101" class = "LineNr" > 101 < / span > copy-object first-ah, x-ah
< span id = "L102" class = "LineNr" > 102 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
2021-09-01 20:22:16 +00:00
< span id = "L103" class = "Folded" > 103 < / span > < span class = "Folded" > +-- 15 lines: # trace " => " x-ah ------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
2021-06-23 20:19:20 +00:00
< span id = "L118" class = "LineNr" > 118 < / span > < span class = "PreProc" > return< / span >
< span id = "L119" class = "LineNr" > 119 < / span > < span class = "Delimiter" > }< / span >
< span id = "L120" class = "LineNr" > 120 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " c" , 4/fg 0/bg< / span >
< span id = "L121" class = "LineNr" > 121 < / span > < span class = "muComment" > ## non-singleton pair< / span >
< span id = "L122" class = "LineNr" > 122 < / span > < span class = "muComment" > # try to " pinch out" (op expr op ...) into ((op expr) op ...)< / span >
< span id = "L123" class = "LineNr" > 123 < / span > < span class = "muComment" > # (op expr expr ...) => operator in prefix position; do nothing< / span >
< span id = "L124" class = "LineNr" > 124 < / span > < span class = "Delimiter" > {< / span >
< span id = "L125" class = "LineNr" > 125 < / span > compare at-head-of-list?, < span class = "Constant" > 0< / span > /false
< span id = "L126" class = "LineNr" > 126 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L127" class = "LineNr" > 127 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, left
< span id = "L128" class = "LineNr" > 128 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, right
2021-08-16 06:44:43 +00:00
< span id = "L129" class = "LineNr" > 129 < / span > < span class = "PreProc" > var< / span > first/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *first-ah
< span id = "L130" class = "LineNr" > 130 < / span > < span class = "PreProc" > var< / span > first-operator?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L412' > operator-symbol?< / a > first
< span id = "L131" class = "LineNr" > 131 < / span > compare first-operator?, < span class = "Constant" > 0< / span > /false
2021-06-23 20:19:20 +00:00
< span id = "L132" class = "LineNr" > 132 < / span > < span class = "PreProc" > break-if-=< / span >
2021-08-16 06:44:43 +00:00
< span id = "L133" class = "LineNr" > 133 < / span > < span class = "PreProc" > var< / span > rest/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L134" class = "LineNr" > 134 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L135" class = "LineNr" > 135 < / span > < span class = "PreProc" > var< / span > continue?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L273' > not-null-not-nil-pair?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L136" class = "LineNr" > 136 < / span > compare continue?, < span class = "Constant" > 0< / span > /false
< span id = "L137" class = "LineNr" > 137 < / span > < span class = "Delimiter" > }< / span >
< span id = "L138" class = "LineNr" > 138 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L139" class = "LineNr" > 139 < / span > < span class = "PreProc" > var< / span > second-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L140" class = "LineNr" > 140 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
2021-08-16 06:44:43 +00:00
< span id = "L141" class = "LineNr" > 141 < / span > < span class = "PreProc" > var< / span > rest/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L142" class = "LineNr" > 142 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L143" class = "LineNr" > 143 < / span > < span class = "PreProc" > var< / span > continue?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L273' > not-null-not-nil-pair?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L144" class = "LineNr" > 144 < / span > compare continue?, < span class = "Constant" > 0< / span > /false
< span id = "L145" class = "LineNr" > 145 < / span > < span class = "Delimiter" > }< / span >
< span id = "L146" class = "LineNr" > 146 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L147" class = "LineNr" > 147 < / span > < span class = "PreProc" > var< / span > third-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L148" class = "LineNr" > 148 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L149" class = "LineNr" > 149 < / span > < span class = "PreProc" > var< / span > third/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *third-ah
< span id = "L150" class = "LineNr" > 150 < / span > < span class = "PreProc" > var< / span > third-is-operator?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L412' > operator-symbol?< / a > third
2021-06-23 20:19:20 +00:00
< span id = "L151" class = "LineNr" > 151 < / span > compare third-is-operator?, < span class = "Constant" > 0< / span > /false
< span id = "L152" class = "LineNr" > 152 < / span > < span class = "Delimiter" > }< / span >
< span id = "L153" class = "LineNr" > 153 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L154" class = "LineNr" > 154 < / span > < span class = "muComment" > # if first and third are operators, bud out first two< / span >
< span id = "L155" class = "LineNr" > 155 < / span > < span class = "PreProc" > var< / span > saved-rest-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
2021-06-27 03:55:36 +00:00
< span id = "L156" class = "LineNr" > 156 < / span > < span class = "PreProc" > var< / span > saved-rest-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address saved-rest-h
2021-06-23 20:19:20 +00:00
< span id = "L157" class = "LineNr" > 157 < / span > copy-object rest-ah, saved-rest-ah
2021-08-16 06:44:43 +00:00
< span id = "L158" class = "LineNr" > 158 < / span > < a href = 'cell.mu.html#L147' > nil< / a > rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L159" class = "LineNr" > 159 < / span > < span class = "PreProc" > var< / span > result-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
2021-06-27 03:55:36 +00:00
< span id = "L160" class = "LineNr" > 160 < / span > < span class = "PreProc" > var< / span > result-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address result-h
2021-08-16 06:44:43 +00:00
< span id = "L161" class = "LineNr" > 161 < / span > < a href = 'cell.mu.html#L142' > new-pair< / a > result-ah, *x-ah, saved-rest-h
2021-06-23 20:19:20 +00:00
< span id = "L162" class = "LineNr" > 162 < / span > < span class = "muComment" > # save< / span >
< span id = "L163" class = "LineNr" > 163 < / span > copy-object result-ah, x-ah
< span id = "L164" class = "LineNr" > 164 < / span > < span class = "muComment" > # there was a mutation; rerun< / span >
< span id = "L165" class = "LineNr" > 165 < / span > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > x-ah, trace, < span class = "Constant" > 1< / span > /at-head-of-list
< span id = "L166" class = "LineNr" > 166 < / span > < span class = "Delimiter" > }< / span >
< span id = "L167" class = "LineNr" > 167 < / span > < span class = "muComment" > # try to " pinch out" (... expr op expr ...) pattern< / span >
< span id = "L168" class = "LineNr" > 168 < / span > $transform-infix-2:pinch: < span class = "Delimiter" > {< / span >
< span id = "L169" class = "LineNr" > 169 < / span > < span class = "muComment" > # scan past first three elements< / span >
< span id = "L170" class = "LineNr" > 170 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, left
< span id = "L171" class = "LineNr" > 171 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, right
< span id = "L172" class = "LineNr" > 172 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L173" class = "LineNr" > 173 < / span > < span class = "PreProc" > var< / span > < a href = 'infix.mu.html#L545' > quote-or-unquote?< / a > /eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L545' > quote-or-unquote?< / a > first-ah
< span id = "L174" class = "LineNr" > 174 < / span > compare < a href = 'infix.mu.html#L545' > quote-or-unquote?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-23 20:19:20 +00:00
< span id = "L175" class = "LineNr" > 175 < / span > < span class = "Delimiter" > }< / span >
< span id = "L176" class = "LineNr" > 176 < / span > < span class = "PreProc" > break-if-!=< / span >
2021-08-16 06:44:43 +00:00
< span id = "L177" class = "LineNr" > 177 < / span > < span class = "PreProc" > var< / span > rest/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L178" class = "LineNr" > 178 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L179" class = "LineNr" > 179 < / span > < span class = "PreProc" > var< / span > continue?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L273' > not-null-not-nil-pair?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L180" class = "LineNr" > 180 < / span > compare continue?, < span class = "Constant" > 0< / span > /false
< span id = "L181" class = "LineNr" > 181 < / span > < span class = "Delimiter" > }< / span >
< span id = "L182" class = "LineNr" > 182 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L183" class = "LineNr" > 183 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " d" , 4/fg 0/bg< / span >
< span id = "L184" class = "LineNr" > 184 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen rest-ah, 7/fg 0/bg< / span >
< span id = "L185" class = "LineNr" > 185 < / span > < span class = "PreProc" > var< / span > second-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L186" class = "LineNr" > 186 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
2021-08-16 06:44:43 +00:00
< span id = "L187" class = "LineNr" > 187 < / span > < span class = "PreProc" > var< / span > rest/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L188" class = "LineNr" > 188 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L189" class = "LineNr" > 189 < / span > < span class = "PreProc" > var< / span > continue?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L273' > not-null-not-nil-pair?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L190" class = "LineNr" > 190 < / span > compare continue?, < span class = "Constant" > 0< / span > /false
< span id = "L191" class = "LineNr" > 191 < / span > < span class = "Delimiter" > }< / span >
< span id = "L192" class = "LineNr" > 192 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L193" class = "LineNr" > 193 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " e" , 4/fg 0/bg< / span >
< span id = "L194" class = "LineNr" > 194 < / span > < span class = "PreProc" > var< / span > third-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L195" class = "LineNr" > 195 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L196" class = "LineNr" > 196 < / span > < span class = "muComment" > # if second is not an operator, break< / span >
< span id = "L197" class = "LineNr" > 197 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L198" class = "LineNr" > 198 < / span > < span class = "PreProc" > var< / span > second/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *second-ah
< span id = "L199" class = "LineNr" > 199 < / span > < span class = "PreProc" > var< / span > infix?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L412' > operator-symbol?< / a > second
2021-06-23 20:19:20 +00:00
< span id = "L200" class = "LineNr" > 200 < / span > compare infix?, < span class = "Constant" > 0< / span > /false
< span id = "L201" class = "LineNr" > 201 < / span > < span class = "Delimiter" > }< / span >
< span id = "L202" class = "LineNr" > 202 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L203" class = "LineNr" > 203 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " f" , 4/fg 0/bg< / span >
< span id = "L204" class = "LineNr" > 204 < / span > < span class = "muComment" > # swap the top 2< / span >
< span id = "L205" class = "LineNr" > 205 < / span > < a href = 'infix.mu.html#L295' > swap-cells< / a > first-ah, second-ah
< span id = "L206" class = "LineNr" > 206 < / span > < span class = "muComment" > ## if we're at the head of the list and there's just three elements, stop there< / span >
< span id = "L207" class = "LineNr" > 207 < / span > < span class = "Delimiter" > {< / span >
< span id = "L208" class = "LineNr" > 208 < / span > compare at-head-of-list?, < span class = "Constant" > 0< / span > /false
< span id = "L209" class = "LineNr" > 209 < / span > < span class = "PreProc" > break-if-=< / span >
2021-08-16 06:44:43 +00:00
< span id = "L210" class = "LineNr" > 210 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *rest-ah
< span id = "L211" class = "LineNr" > 211 < / span > < span class = "PreProc" > var< / span > rest-nil?/eax: boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L390' > nil?< / a > rest
2021-06-23 20:19:20 +00:00
< span id = "L212" class = "LineNr" > 212 < / span > compare rest-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L213" class = "LineNr" > 213 < / span > < span class = "PreProc" > break-if-!=< / span > $transform-infix-2:pinch
< span id = "L214" class = "LineNr" > 214 < / span > < span class = "Delimiter" > }< / span >
< span id = "L215" class = "LineNr" > 215 < / span > < span class = "muComment" > ## otherwise perform a more complex 'rotation'< / span >
< span id = "L216" class = "LineNr" > 216 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " g" , 4/fg 0/bg< / span >
< span id = "L217" class = "LineNr" > 217 < / span > < span class = "muComment" > # save and clear third-> right< / span >
< span id = "L218" class = "LineNr" > 218 < / span > < span class = "PreProc" > var< / span > saved-rest-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
2021-06-27 03:55:36 +00:00
< span id = "L219" class = "LineNr" > 219 < / span > < span class = "PreProc" > var< / span > saved-rest-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address saved-rest-h
2021-06-23 20:19:20 +00:00
< span id = "L220" class = "LineNr" > 220 < / span > copy-object rest-ah, saved-rest-ah
2021-08-16 06:44:43 +00:00
< span id = "L221" class = "LineNr" > 221 < / span > < a href = 'cell.mu.html#L147' > nil< / a > rest-ah
2021-06-23 20:19:20 +00:00
< span id = "L222" class = "LineNr" > 222 < / span > < span class = "muComment" > # create new-node out of first..third and rest< / span >
< span id = "L223" class = "LineNr" > 223 < / span > < span class = "PreProc" > var< / span > result-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
2021-06-27 03:55:36 +00:00
< span id = "L224" class = "LineNr" > 224 < / span > < span class = "PreProc" > var< / span > result-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address result-h
2021-08-16 06:44:43 +00:00
< span id = "L225" class = "LineNr" > 225 < / span > < a href = 'cell.mu.html#L142' > new-pair< / a > result-ah, *x-ah, saved-rest-h
2021-06-23 20:19:20 +00:00
< span id = "L226" class = "LineNr" > 226 < / span > < span class = "muComment" > # save< / span >
< span id = "L227" class = "LineNr" > 227 < / span > copy-object result-ah, x-ah
< span id = "L228" class = "LineNr" > 228 < / span > < span class = "muComment" > # there was a mutation; rerun< / span >
< span id = "L229" class = "LineNr" > 229 < / span > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > x-ah, trace, < span class = "Constant" > 1< / span > /at-head-of-list
< span id = "L230" class = "LineNr" > 230 < / span > < span class = "PreProc" > return< / span >
< span id = "L231" class = "LineNr" > 231 < / span > < span class = "Delimiter" > }< / span >
< span id = "L232" class = "LineNr" > 232 < / span > < span class = "muComment" > # recurse< / span >
< span id = "L233" class = "LineNr" > 233 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen x-ah, 1/fg 0/bg< / span >
< span id = "L234" class = "LineNr" > 234 < / span > < span class = "PreProc" > var< / span > left-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, left
< span id = "L235" class = "LineNr" > 235 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " x" , 1/fg 0/bg< / span >
< span id = "L236" class = "LineNr" > 236 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen left-ah, 2/fg 0/bg< / span >
< span id = "L237" class = "LineNr" > 237 < / span > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > left-ah, trace, < span class = "Constant" > 1< / span > /at-head-of-list
< span id = "L238" class = "LineNr" > 238 < / span > < span class = "PreProc" > var< / span > right-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get x, right
< span id = "L239" class = "LineNr" > 239 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " y" , 1/fg 0/bg< / span >
< span id = "L240" class = "LineNr" > 240 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen right-ah, 3/fg 0/bg< / span >
2021-06-27 03:55:36 +00:00
< span id = "L241" class = "LineNr" > 241 < / span > < span class = "PreProc" > var< / span > right-at-head-of-list?/eax: boolean < span class = "Special" > < -< / span > copy at-head-of-list?
2021-06-23 20:19:20 +00:00
< span id = "L242" class = "LineNr" > 242 < / span > < span class = "Delimiter" > {< / span >
< span id = "L243" class = "LineNr" > 243 < / span > compare right-at-head-of-list?, < span class = "Constant" > 0< / span > /false
< span id = "L244" class = "LineNr" > 244 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L245" class = "LineNr" > 245 < / span > < span class = "muComment" > # if left is a quote or unquote, cdr is still head of list< / span >
< span id = "L246" class = "LineNr" > 246 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L247" class = "LineNr" > 247 < / span > < span class = "PreProc" > var< / span > left-is-quote-or-unquote?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L545' > quote-or-unquote?< / a > left-ah
2021-06-23 20:19:20 +00:00
< span id = "L248" class = "LineNr" > 248 < / span > compare left-is-quote-or-unquote?, < span class = "Constant" > 0< / span > /false
< span id = "L249" class = "LineNr" > 249 < / span > < span class = "Delimiter" > }< / span >
< span id = "L250" class = "LineNr" > 250 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L251" class = "LineNr" > 251 < / span > right-at-head-of-list? < span class = "Special" > < -< / span > copy < span class = "Constant" > 0< / span > /false
< span id = "L252" class = "LineNr" > 252 < / span > < span class = "Delimiter" > }< / span >
< span id = "L253" class = "LineNr" > 253 < / span > < a href = 'infix.mu.html#L14' > transform-infix-2< / a > right-ah, trace, right-at-head-of-list?
< span id = "L254" class = "LineNr" > 254 < / span > < span class = "CommentedCode" > #? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " z" , 1/fg 0/bg< / span >
< span id = "L255" class = "LineNr" > 255 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
2021-09-01 20:22:16 +00:00
< span id = "L256" class = "Folded" > 256 < / span > < span class = "Folded" > +-- 15 lines: # trace " => " x-ah ------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
2021-06-23 20:19:20 +00:00
< span id = "L271" class = "LineNr" > 271 < / span > < span class = "Delimiter" > }< / span >
< span id = "L272" class = "LineNr" > 272 < / span >
2021-06-27 03:55:36 +00:00
< span id = "L273" class = "LineNr" > 273 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L273' > not-null-not-nil-pair?< / a > < / span > _x: (addr < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/eax: boolean < span class = "Delimiter" > {< / span >
2021-06-23 20:19:20 +00:00
< span id = "L274" class = "LineNr" > 274 < / span > < span class = "PreProc" > var< / span > x/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x
< span id = "L275" class = "LineNr" > 275 < / span > compare x, < span class = "Constant" > 0< / span >
< span id = "L276" class = "LineNr" > 276 < / span > < span class = "Delimiter" > {< / span >
< span id = "L277" class = "LineNr" > 277 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L278" class = "LineNr" > 278 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L279" class = "LineNr" > 279 < / span > < span class = "Delimiter" > }< / span >
2021-06-27 03:55:36 +00:00
< span id = "L280" class = "LineNr" > 280 < / span > < span class = "PreProc" > var< / span > x-type/eax: (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
2021-06-23 20:19:20 +00:00
< span id = "L281" class = "LineNr" > 281 < / span > compare *x-type, < span class = "Constant" > 0< / span > /pair
< span id = "L282" class = "LineNr" > 282 < / span > < span class = "Delimiter" > {< / span >
< span id = "L283" class = "LineNr" > 283 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L284" class = "LineNr" > 284 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L285" class = "LineNr" > 285 < / span > < span class = "Delimiter" > }< / span >
2021-08-16 06:44:43 +00:00
< span id = "L286" class = "LineNr" > 286 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L390' > nil?< / a > /eax: boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L390' > nil?< / a > x
< span id = "L287" class = "LineNr" > 287 < / span > compare < a href = 'print.mu.html#L390' > nil?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-23 20:19:20 +00:00
< span id = "L288" class = "LineNr" > 288 < / span > < span class = "Delimiter" > {< / span >
< span id = "L289" class = "LineNr" > 289 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L290" class = "LineNr" > 290 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L291" class = "LineNr" > 291 < / span > < span class = "Delimiter" > }< / span >
< span id = "L292" class = "LineNr" > 292 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L293" class = "LineNr" > 293 < / span > < span class = "Delimiter" > }< / span >
< span id = "L294" class = "LineNr" > 294 < / span >
< span id = "L295" class = "LineNr" > 295 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L295' > swap-cells< / a > < / span > a-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), b-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Delimiter" > {< / span >
< span id = "L296" class = "LineNr" > 296 < / span > < span class = "PreProc" > var< / span > tmp-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
2021-06-27 03:55:36 +00:00
< span id = "L297" class = "LineNr" > 297 < / span > < span class = "PreProc" > var< / span > tmp-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-h
2021-06-23 20:19:20 +00:00
< span id = "L298" class = "LineNr" > 298 < / span > copy-object a-ah, tmp-ah
< span id = "L299" class = "LineNr" > 299 < / span > copy-object b-ah, a-ah
< span id = "L300" class = "LineNr" > 300 < / span > copy-object tmp-ah, b-ah
< span id = "L301" class = "LineNr" > 301 < / span > < span class = "Delimiter" > }< / span >
< span id = "L302" class = "LineNr" > 302 < / span >
< span id = "L303" class = "LineNr" > 303 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L303' > tokenize-infix< / a > < / span > _sym-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L304" class = "LineNr" > 304 < / span > < span class = "PreProc" > var< / span > sym-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _sym-ah
2021-08-16 06:44:43 +00:00
< span id = "L305" class = "LineNr" > 305 < / span > < span class = "PreProc" > var< / span > sym/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *sym-ah
2021-06-27 03:55:36 +00:00
< span id = "L306" class = "LineNr" > 306 < / span > < span class = "PreProc" > var< / span > sym-data-ah/eax: (addr handle stream byte) < span class = "Special" > < -< / span > get sym, text-data
2021-08-16 06:44:43 +00:00
< span id = "L307" class = "LineNr" > 307 < / span > < span class = "PreProc" > var< / span > _sym-data/eax: (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *sym-data-ah
2021-06-23 20:19:20 +00:00
< span id = "L308" class = "LineNr" > 308 < / span > < span class = "PreProc" > var< / span > sym-data/< span class = "muRegEsi" > esi< / span > : (addr stream byte) < span class = "Special" > < -< / span > copy _sym-data
< span id = "L309" class = "LineNr" > 309 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > sym-data
< span id = "L310" class = "LineNr" > 310 < / span > < span class = "muComment" > # read sym into a gap buffer and insert spaces in a few places< / span >
2021-08-16 06:44:43 +00:00
< span id = "L311" class = "LineNr" > 311 < / span > < span class = "PreProc" > var< / span > buffer-storage: < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a >
< span id = "L312" class = "LineNr" > 312 < / span > < span class = "PreProc" > var< / span > buffer/< span class = "muRegEdi" > edi< / span > : (addr < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > address buffer-storage
< span id = "L313" class = "LineNr" > 313 < / span > < a href = '../514gap-buffer.mu.html#L11' > initialize-gap-buffer< / a > buffer, < span class = "Constant" > 0x40< / span > /max-symbol-size
2021-06-23 20:19:20 +00:00
< span id = "L314" class = "LineNr" > 314 < / span > < span class = "muComment" > # scan for first non-$< / span >
2021-08-30 16:21:52 +00:00
< span id = "L315" class = "LineNr" > 315 < / span > < span class = "PreProc" > var< / span > g/eax: grapheme < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > sym-data
2021-08-16 06:44:43 +00:00
< span id = "L316" class = "LineNr" > 316 < / span > < a href = '../514gap-buffer.mu.html#L441' > add-grapheme-at-gap< / a > buffer, g
2021-06-23 20:19:20 +00:00
< span id = "L317" class = "LineNr" > 317 < / span > < span class = "Delimiter" > {< / span >
< span id = "L318" class = "LineNr" > 318 < / span > compare g, < span class = "Constant" > 0x24< / span > /dollar
< span id = "L319" class = "LineNr" > 319 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L320" class = "LineNr" > 320 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L321" class = "LineNr" > 321 < / span > < span class = "PreProc" > var< / span > done?/eax: boolean < span class = "Special" > < -< / span > < a href = '../309stream.subx.html#L6' > stream-empty?< / a > sym-data
2021-06-23 20:19:20 +00:00
< span id = "L322" class = "LineNr" > 322 < / span > compare done?, < span class = "Constant" > 0< / span > /false
< span id = "L323" class = "LineNr" > 323 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L324" class = "LineNr" > 324 < / span > < span class = "PreProc" > return< / span > < span class = "muComment" > # symbol is all '$'s; do nothing< / span >
< span id = "L325" class = "LineNr" > 325 < / span > < span class = "Delimiter" > }< / span >
2021-08-30 16:21:52 +00:00
< span id = "L326" class = "LineNr" > 326 < / span > g < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > sym-data
2021-08-16 06:44:43 +00:00
< span id = "L327" class = "LineNr" > 327 < / span > < a href = '../514gap-buffer.mu.html#L441' > add-grapheme-at-gap< / a > buffer, g
2021-06-23 20:19:20 +00:00
< span id = "L328" class = "LineNr" > 328 < / span > < span class = "PreProc" > loop< / span >
< span id = "L329" class = "LineNr" > 329 < / span > < span class = "Delimiter" > }< / span >
< span id = "L330" class = "LineNr" > 330 < / span > < span class = "PreProc" > var< / span > tokenization-needed?: boolean
2021-08-16 06:44:43 +00:00
< span id = "L331" class = "LineNr" > 331 < / span > < span class = "PreProc" > var< / span > _operator-so-far?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L458' > operator-grapheme?< / a > g
2021-06-23 20:19:20 +00:00
< span id = "L332" class = "LineNr" > 332 < / span > < span class = "PreProc" > var< / span > operator-so-far?/< span class = "muRegEcx" > ecx< / span > : boolean < span class = "Special" > < -< / span > copy _operator-so-far?
< span id = "L333" class = "LineNr" > 333 < / span > < span class = "Delimiter" > {< / span >
2021-06-27 03:55:36 +00:00
< span id = "L334" class = "LineNr" > 334 < / span > < span class = "PreProc" > var< / span > done?/eax: boolean < span class = "Special" > < -< / span > < a href = '../309stream.subx.html#L6' > stream-empty?< / a > sym-data
2021-06-23 20:19:20 +00:00
< span id = "L335" class = "LineNr" > 335 < / span > compare done?, < span class = "Constant" > 0< / span > /false
< span id = "L336" class = "LineNr" > 336 < / span > < span class = "PreProc" > break-if-!=< / span >
2021-08-30 16:21:52 +00:00
< span id = "L337" class = "LineNr" > 337 < / span > < span class = "PreProc" > var< / span > g/eax: grapheme < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > sym-data
2021-06-23 20:19:20 +00:00
< span id = "L338" class = "LineNr" > 338 < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L339" class = "LineNr" > 339 < / span > < span class = "PreProc" > var< / span > curr-operator?/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L458' > operator-grapheme?< / a > g
2021-06-23 20:19:20 +00:00
< span id = "L340" class = "LineNr" > 340 < / span > compare curr-operator?, operator-so-far?
< span id = "L341" class = "LineNr" > 341 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L342" class = "LineNr" > 342 < / span > < span class = "muComment" > # state change; insert a space< / span >
2021-08-16 06:44:43 +00:00
< span id = "L343" class = "LineNr" > 343 < / span > < a href = '../514gap-buffer.mu.html#L441' > add-grapheme-at-gap< / a > buffer, < span class = "Constant" > 0x20< / span > /space
2021-06-23 20:19:20 +00:00
< span id = "L344" class = "LineNr" > 344 < / span > operator-so-far? < span class = "Special" > < -< / span > copy curr-operator?
< span id = "L345" class = "LineNr" > 345 < / span > copy-to tokenization-needed?, < span class = "Constant" > 1< / span > /true
< span id = "L346" class = "LineNr" > 346 < / span > < span class = "Delimiter" > }< / span >
2021-08-16 06:44:43 +00:00
< span id = "L347" class = "LineNr" > 347 < / span > < a href = '../514gap-buffer.mu.html#L441' > add-grapheme-at-gap< / a > buffer, g
2021-06-23 20:19:20 +00:00
< span id = "L348" class = "LineNr" > 348 < / span > < span class = "PreProc" > loop< / span >
< span id = "L349" class = "LineNr" > 349 < / span > < span class = "Delimiter" > }< / span >
< span id = "L350" class = "LineNr" > 350 < / span > compare tokenization-needed?, < span class = "Constant" > 0< / span > /false
< span id = "L351" class = "LineNr" > 351 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L352" class = "LineNr" > 352 < / span > < span class = "CommentedCode" > #? {< / span >
< span id = "L353" class = "LineNr" > 353 < / span > < span class = "CommentedCode" > #? var dummy1/eax: int < - copy 0< / span >
< span id = "L354" class = "LineNr" > 354 < / span > < span class = "CommentedCode" > #? var dummy2/ecx: int < - copy 0< / span >
< span id = "L355" class = "LineNr" > 355 < / span > < span class = "CommentedCode" > #? dummy1, dummy2 < - render-gap-buffer-wrapping-right-then-down 0/screen, buffer, 0x20/xmin 5/ymin, 0x80/xmax 0x30/ymax, 0/no-cursor, 3/fg 0/bg< / span >
< span id = "L356" class = "LineNr" > 356 < / span > < span class = "CommentedCode" > #? {< / span >
< span id = "L357" class = "LineNr" > 357 < / span > < span class = "CommentedCode" > #? loop< / span >
< span id = "L358" class = "LineNr" > 358 < / span > < span class = "CommentedCode" > #? }< / span >
< span id = "L359" class = "LineNr" > 359 < / span > < span class = "CommentedCode" > #? }< / span >
< span id = "L360" class = "LineNr" > 360 < / span > < span class = "muComment" > # recursively process buffer< / span >
< span id = "L361" class = "LineNr" > 361 < / span > < span class = "muComment" > # this time we're guaranteed we won't enter tokenize-infix< / span >
< span id = "L362" class = "LineNr" > 362 < / span > < a href = 'read.mu.html#L1' > read-cell< / a > buffer, _sym-ah, trace
< span id = "L363" class = "LineNr" > 363 < / span > < span class = "Delimiter" > }< / span >
< span id = "L364" class = "LineNr" > 364 < / span >
< span id = "L365" class = "LineNr" > 365 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'infix.mu.html#L365' > test-infix< / a > < / span > < span class = "Delimiter" > {< / span >
2021-08-16 06:44:43 +00:00
< span id = "L366" class = "LineNr" > 366 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " abc" < / span > , < span class = "Constant" > " abc" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /regular-symbol" < / span >
< span id = "L367" class = "LineNr" > 367 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " -3" < / span > , < span class = "Constant" > " -3" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /negative-integer-literal" < / span >
< span id = "L368" class = "LineNr" > 368 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " [a b+c]" < / span > , < span class = "Constant" > " [a b+c]" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /string-literal" < / span >
< span id = "L369" class = "LineNr" > 369 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " $" < / span > , < span class = "Constant" > " $" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dollar-sym" < / span >
< span id = "L370" class = "LineNr" > 370 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " $$" < / span > , < span class = "Constant" > " $$" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dollar-sym-2" < / span >
< span id = "L371" class = "LineNr" > 371 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " $a" < / span > , < span class = "Constant" > " $a" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dollar-var" < / span >
< span id = "L372" class = "LineNr" > 372 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " $+" < / span > , < span class = "Constant" > " $+" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dollar-operator" < / span >
< span id = "L373" class = "LineNr" > 373 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (+)" < / span > , < span class = "Constant" > " +" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /operator-without-args" < / span >
< span id = "L374" class = "LineNr" > 374 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (= (+) 3)" < / span > , < span class = "Constant" > " (= + 3)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /operator-without-args-2" < / span >
< span id = "L375" class = "LineNr" > 375 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ($+)" < / span > , < span class = "Constant" > " $+" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dollar-operator-without-args" < / span >
< span id = "L376" class = "LineNr" > 376 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ',(a + b)" < / span > , < span class = "Constant" > " ',(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /nested-quotes" < / span >
< span id = "L377" class = "LineNr" > 377 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ',(+)" < / span > , < span class = "Constant" > " ',+" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /nested-quotes-2" < / span >
< span id = "L378" class = "LineNr" > 378 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a + b)" < / span > , < span class = "Constant" > " (+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /simple-list" < / span >
< span id = "L379" class = "LineNr" > 379 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a (+) b)" < / span > , < span class = "Constant" > " (a + b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /wrapped-operator" < / span >
< span id = "L380" class = "LineNr" > 380 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (+ a b)" < / span > , < span class = "Constant" > " (+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /prefix-operator" < / span >
< span id = "L381" class = "LineNr" > 381 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a . b)" < / span > , < span class = "Constant" > " (a . b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dot-operator" < / span >
< span id = "L382" class = "LineNr" > 382 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a b . c)" < / span > , < span class = "Constant" > " (a b . c)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dotted-list" < / span >
< span id = "L383" class = "LineNr" > 383 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (+ . b)" < / span > , < span class = "Constant" > " (+ . b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /dotted-list-with-operator" < / span >
< span id = "L384" class = "LineNr" > 384 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (+ a)" < / span > , < span class = "Constant" > " (+ a)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-operator" < / span >
< span id = "L385" class = "LineNr" > 385 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ((a + b))" < / span > , < span class = "Constant" > " ((+ a b))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /nested-list" < / span >
< span id = "L386" class = "LineNr" > 386 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (do (a + b))" < / span > , < span class = "Constant" > " (do (+ a b))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /nested-list-2" < / span >
< span id = "L387" class = "LineNr" > 387 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a = (a + 1))" < / span > , < span class = "Constant" > " (= a (+ a 1))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /nested-list-3" < / span >
< span id = "L388" class = "LineNr" > 388 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (a + b + c)" < / span > , < span class = "Constant" > " (+ (+ a b) c)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /left-associative" < / span >
< span id = "L389" class = "LineNr" > 389 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (f a + b)" < / span > , < span class = "Constant" > " (f (+ a b))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /higher-precedence-than-call" < / span >
< span id = "L390" class = "LineNr" > 390 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (f a + b c + d)" < / span > , < span class = "Constant" > " (f (+ a b) (+ c d))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /multiple" < / span >
< span id = "L391" class = "LineNr" > 391 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " +a" < / span > , < span class = "Constant" > " (+ a)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-operator-2" < / span >
< span id = "L392" class = "LineNr" > 392 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (+a)" < / span > , < span class = "Constant" > " ((+ a))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-operator-3" < / span >
< span id = "L393" class = "LineNr" > 393 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " -a" < / span > , < span class = "Constant" > " (- a)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-operator-4" < / span >
< span id = "L394" class = "LineNr" > 394 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " a+b" < / span > , < span class = "Constant" > " (+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /no-spaces" < / span >
< span id = "L395" class = "LineNr" > 395 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " 3+1" < / span > , < span class = "Constant" > " (+ 3 1)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /no-spaces-starting-with-digit" < / span >
< span id = "L396" class = "LineNr" > 396 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ',a+b" < / span > , < span class = "Constant" > " ',(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /no-spaces-with-nested-quotes" < / span >
< span id = "L397" class = "LineNr" > 397 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " $a+b" < / span > , < span class = "Constant" > " (+ $a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /no-spaces-2" < / span >
< span id = "L398" class = "LineNr" > 398 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " -a+b" < / span > , < span class = "Constant" > " (+ (- a) b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-over-binary" < / span >
< span id = "L399" class = "LineNr" > 399 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ~a+b" < / span > , < span class = "Constant" > " (+ (~ a) b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unary-complement" < / span >
< span id = "L400" class = "LineNr" > 400 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " (n * n-1)" < / span > , < span class = "Constant" > " (* n (- n 1))" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /no-spaces-over-spaces" < / span >
< span id = "L401" class = "LineNr" > 401 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " `(a + b)" < / span > , < span class = "Constant" > " `(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /backquote" < / span >
< span id = "L402" class = "LineNr" > 402 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " `(+ a b)" < / span > , < span class = "Constant" > " `(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /backquote-2" < / span >
< span id = "L403" class = "LineNr" > 403 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ,@a+b" < / span > , < span class = "Constant" > " ,@(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unquote-splice" < / span >
< span id = "L404" class = "LineNr" > 404 < / span > < a href = 'infix.mu.html#L577' > check-infix< / a > < span class = "Constant" > " ,@(a + b)" < / span > , < span class = "Constant" > " ,@(+ a b)" < / span > , < span class = "Constant" > " F - < a href = 'infix.mu.html#L365' > test-infix< / a > /unquote-splice-2" < / span >
2021-06-23 20:19:20 +00:00
< span id = "L405" class = "LineNr" > 405 < / span > < span class = "Delimiter" > }< / span >
< span id = "L406" class = "LineNr" > 406 < / span >
< span id = "L407" class = "LineNr" > 407 < / span > < span class = "muComment" > # helpers< / span >
< span id = "L408" class = "LineNr" > 408 < / span >
2021-08-16 06:44:43 +00:00
< span id = "L409" class = "LineNr" > 409 < / span > < span class = "muComment" > # return true if x is composed entirely of operator graphemes, optionally prefixed with some '$'s< / span >
< span id = "L410" class = "LineNr" > 410 < / span > < span class = "muComment" > # some operator, some non-operator => pre-tokenized symbol; return false< / span >
< span id = "L411" class = "LineNr" > 411 < / span > < span class = "muComment" > # all '$'s => return false< / span >
< span id = "L412" class = "LineNr" > 412 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L412' > operator-symbol?< / a > < / span > _x: (addr < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/eax: boolean < span class = "Delimiter" > {< / span >
< span id = "L413" class = "LineNr" > 413 < / span > < span class = "PreProc" > var< / span > x/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x
< span id = "L414" class = "LineNr" > 414 < / span > < span class = "Delimiter" > {< / span >
< span id = "L415" class = "LineNr" > 415 < / span > < span class = "PreProc" > var< / span > x-type/eax: (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
< span id = "L416" class = "LineNr" > 416 < / span > compare *x-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L417" class = "LineNr" > 417 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L418" class = "LineNr" > 418 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L419" class = "LineNr" > 419 < / span > < span class = "Delimiter" > }< / span >
< span id = "L420" class = "LineNr" > 420 < / span > < span class = "PreProc" > var< / span > x-data-ah/eax: (addr handle stream byte) < span class = "Special" > < -< / span > get x, text-data
< span id = "L421" class = "LineNr" > 421 < / span > < span class = "PreProc" > var< / span > _x-data/eax: (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *x-data-ah
< span id = "L422" class = "LineNr" > 422 < / span > < span class = "PreProc" > var< / span > x-data/< span class = "muRegEsi" > esi< / span > : (addr stream byte) < span class = "Special" > < -< / span > copy _x-data
< span id = "L423" class = "LineNr" > 423 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > x-data
2021-08-30 16:21:52 +00:00
< span id = "L424" class = "LineNr" > 424 < / span > < span class = "PreProc" > var< / span > g/eax: grapheme < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > x-data
2021-08-16 06:44:43 +00:00
< span id = "L425" class = "LineNr" > 425 < / span > < span class = "muComment" > # special case: '$' is reserved for gensyms, and can work with either< / span >
< span id = "L426" class = "LineNr" > 426 < / span > < span class = "muComment" > # operator or non-operator symbols.< / span >
< span id = "L427" class = "LineNr" > 427 < / span > < span class = "Delimiter" > {< / span >
< span id = "L428" class = "LineNr" > 428 < / span > compare g, < span class = "Constant" > 0x24< / span > /dollar
< span id = "L429" class = "LineNr" > 429 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L430" class = "LineNr" > 430 < / span > < span class = "Delimiter" > {< / span >
< span id = "L431" class = "LineNr" > 431 < / span > < span class = "PreProc" > var< / span > all-dollars?/eax: boolean < span class = "Special" > < -< / span > < a href = '../309stream.subx.html#L6' > stream-empty?< / a > x-data
< span id = "L432" class = "LineNr" > 432 < / span > compare all-dollars?, < span class = "Constant" > 0< / span > /false
< span id = "L433" class = "LineNr" > 433 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L434" class = "LineNr" > 434 < / span > < span class = "muComment" > # '$', '$$', '$$$', etc. are regular symbols< / span >
< span id = "L435" class = "LineNr" > 435 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L436" class = "LineNr" > 436 < / span > < span class = "Delimiter" > }< / span >
2021-08-30 16:21:52 +00:00
< span id = "L437" class = "LineNr" > 437 < / span > g < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > x-data
2021-08-16 06:44:43 +00:00
< span id = "L438" class = "LineNr" > 438 < / span > < span class = "PreProc" > loop< / span >
< span id = "L439" class = "LineNr" > 439 < / span > < span class = "Delimiter" > }< / span >
< span id = "L440" class = "LineNr" > 440 < / span > < span class = "Delimiter" > {< / span >
< span id = "L441" class = "LineNr" > 441 < / span > < span class = "Delimiter" > {< / span >
< span id = "L442" class = "LineNr" > 442 < / span > < span class = "PreProc" > var< / span > result/eax: boolean < span class = "Special" > < -< / span > < a href = 'infix.mu.html#L458' > operator-grapheme?< / a > g
< span id = "L443" class = "LineNr" > 443 < / span > compare result, < span class = "Constant" > 0< / span > /false
< span id = "L444" class = "LineNr" > 444 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L445" class = "LineNr" > 445 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L446" class = "LineNr" > 446 < / span > < span class = "Delimiter" > }< / span >
< span id = "L447" class = "LineNr" > 447 < / span > < span class = "Delimiter" > {< / span >
< span id = "L448" class = "LineNr" > 448 < / span > < span class = "PreProc" > var< / span > done?/eax: boolean < span class = "Special" > < -< / span > < a href = '../309stream.subx.html#L6' > stream-empty?< / a > x-data
< span id = "L449" class = "LineNr" > 449 < / span > compare done?, < span class = "Constant" > 0< / span > /false
< span id = "L450" class = "LineNr" > 450 < / span > < span class = "Delimiter" > }< / span >
< span id = "L451" class = "LineNr" > 451 < / span > < span class = "PreProc" > break-if-!=< / span >
2021-08-30 16:21:52 +00:00
< span id = "L452" class = "LineNr" > 452 < / span > g < span class = "Special" > < -< / span > < a href = '../403unicode.mu.html#L236' > read-grapheme< / a > x-data
2021-08-16 06:44:43 +00:00
< span id = "L453" class = "LineNr" > 453 < / span > < span class = "PreProc" > loop< / span >
< span id = "L454" class = "LineNr" > 454 < / span > < span class = "Delimiter" > }< / span >
< span id = "L455" class = "LineNr" > 455 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L456" class = "LineNr" > 456 < / span > < span class = "Delimiter" > }< / span >
< span id = "L457" class = "LineNr" > 457 < / span >
< span id = "L458" class = "LineNr" > 458 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L458' > operator-grapheme?< / a > < / span > g: grapheme< span class = "PreProc" > -> < / span > _/eax: boolean < span class = "Delimiter" > {< / span >
< span id = "L459" class = "LineNr" > 459 < / span > < span class = "muComment" > # '$' is special and can be in either a symbol or operator; here we treat it as a symbol< / span >
< span id = "L460" class = "LineNr" > 460 < / span > compare g, < span class = "Constant" > 0x25< / span > /percent
< span id = "L461" class = "LineNr" > 461 < / span > < span class = "Delimiter" > {< / span >
< span id = "L462" class = "LineNr" > 462 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L463" class = "LineNr" > 463 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L464" class = "LineNr" > 464 < / span > < span class = "Delimiter" > }< / span >
< span id = "L465" class = "LineNr" > 465 < / span > compare g, < span class = "Constant" > 0x26< / span > /ampersand
< span id = "L466" class = "LineNr" > 466 < / span > < span class = "Delimiter" > {< / span >
< span id = "L467" class = "LineNr" > 467 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L468" class = "LineNr" > 468 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L469" class = "LineNr" > 469 < / span > < span class = "Delimiter" > }< / span >
< span id = "L470" class = "LineNr" > 470 < / span > compare g, < span class = "Constant" > 0x2a< / span > /asterisk
< span id = "L471" class = "LineNr" > 471 < / span > < span class = "Delimiter" > {< / span >
< span id = "L472" class = "LineNr" > 472 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L473" class = "LineNr" > 473 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L474" class = "LineNr" > 474 < / span > < span class = "Delimiter" > }< / span >
< span id = "L475" class = "LineNr" > 475 < / span > compare g, < span class = "Constant" > 0x2b< / span > /plus
< span id = "L476" class = "LineNr" > 476 < / span > < span class = "Delimiter" > {< / span >
< span id = "L477" class = "LineNr" > 477 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L478" class = "LineNr" > 478 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L479" class = "LineNr" > 479 < / span > < span class = "Delimiter" > }< / span >
< span id = "L480" class = "LineNr" > 480 < / span > compare g, < span class = "Constant" > 0x2d< / span > /dash < span class = "muComment" > # '-' not allowed in symbols< / span >
< span id = "L481" class = "LineNr" > 481 < / span > < span class = "Delimiter" > {< / span >
< span id = "L482" class = "LineNr" > 482 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L483" class = "LineNr" > 483 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L484" class = "LineNr" > 484 < / span > < span class = "Delimiter" > }< / span >
< span id = "L485" class = "LineNr" > 485 < / span > compare g, < span class = "Constant" > 0x2e< / span > /period
< span id = "L486" class = "LineNr" > 486 < / span > < span class = "Delimiter" > {< / span >
< span id = "L487" class = "LineNr" > 487 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L488" class = "LineNr" > 488 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L489" class = "LineNr" > 489 < / span > < span class = "Delimiter" > }< / span >
< span id = "L490" class = "LineNr" > 490 < / span > compare g, < span class = "Constant" > 0x2f< / span > /slash
< span id = "L491" class = "LineNr" > 491 < / span > < span class = "Delimiter" > {< / span >
< span id = "L492" class = "LineNr" > 492 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L493" class = "LineNr" > 493 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L494" class = "LineNr" > 494 < / span > < span class = "Delimiter" > }< / span >
< span id = "L495" class = "LineNr" > 495 < / span > compare g, < span class = "Constant" > 0x3a< / span > /colon
< span id = "L496" class = "LineNr" > 496 < / span > < span class = "Delimiter" > {< / span >
< span id = "L497" class = "LineNr" > 497 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L498" class = "LineNr" > 498 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L499" class = "LineNr" > 499 < / span > < span class = "Delimiter" > }< / span >
< span id = "L500" class = "LineNr" > 500 < / span > compare g, < span class = "Constant" > 0x3b< / span > /semi-colon
< span id = "L501" class = "LineNr" > 501 < / span > < span class = "Delimiter" > {< / span >
< span id = "L502" class = "LineNr" > 502 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L503" class = "LineNr" > 503 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L504" class = "LineNr" > 504 < / span > < span class = "Delimiter" > }< / span >
< span id = "L505" class = "LineNr" > 505 < / span > compare g, < span class = "Constant" > 0x3c< / span > /less-than
< span id = "L506" class = "LineNr" > 506 < / span > < span class = "Delimiter" > {< / span >
< span id = "L507" class = "LineNr" > 507 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L508" class = "LineNr" > 508 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L509" class = "LineNr" > 509 < / span > < span class = "Delimiter" > }< / span >
< span id = "L510" class = "LineNr" > 510 < / span > compare g, < span class = "Constant" > 0x3d< / span > /equal
< span id = "L511" class = "LineNr" > 511 < / span > < span class = "Delimiter" > {< / span >
< span id = "L512" class = "LineNr" > 512 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L513" class = "LineNr" > 513 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L514" class = "LineNr" > 514 < / span > < span class = "Delimiter" > }< / span >
< span id = "L515" class = "LineNr" > 515 < / span > compare g, < span class = "Constant" > 0x3e< / span > /greater-than
< span id = "L516" class = "LineNr" > 516 < / span > < span class = "Delimiter" > {< / span >
< span id = "L517" class = "LineNr" > 517 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L518" class = "LineNr" > 518 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L519" class = "LineNr" > 519 < / span > < span class = "Delimiter" > }< / span >
< span id = "L520" class = "LineNr" > 520 < / span > < span class = "muComment" > # '?' is a symbol char< / span >
< span id = "L521" class = "LineNr" > 521 < / span > compare g, < span class = "Constant" > 0x5c< / span > /backslash
< span id = "L522" class = "LineNr" > 522 < / span > < span class = "Delimiter" > {< / span >
< span id = "L523" class = "LineNr" > 523 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L524" class = "LineNr" > 524 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L525" class = "LineNr" > 525 < / span > < span class = "Delimiter" > }< / span >
< span id = "L526" class = "LineNr" > 526 < / span > compare g, < span class = "Constant" > 0x5e< / span > /caret
< span id = "L527" class = "LineNr" > 527 < / span > < span class = "Delimiter" > {< / span >
< span id = "L528" class = "LineNr" > 528 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L529" class = "LineNr" > 529 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L530" class = "LineNr" > 530 < / span > < span class = "Delimiter" > }< / span >
< span id = "L531" class = "LineNr" > 531 < / span > < span class = "muComment" > # '_' is a symbol char< / span >
< span id = "L532" class = "LineNr" > 532 < / span > compare g, < span class = "Constant" > 0x7c< / span > /vertical-line
< span id = "L533" class = "LineNr" > 533 < / span > < span class = "Delimiter" > {< / span >
< span id = "L534" class = "LineNr" > 534 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L535" class = "LineNr" > 535 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L536" class = "LineNr" > 536 < / span > < span class = "Delimiter" > }< / span >
< span id = "L537" class = "LineNr" > 537 < / span > compare g, < span class = "Constant" > 0x7e< / span > /tilde
< span id = "L538" class = "LineNr" > 538 < / span > < span class = "Delimiter" > {< / span >
< span id = "L539" class = "LineNr" > 539 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L540" class = "LineNr" > 540 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L541" class = "LineNr" > 541 < / span > < span class = "Delimiter" > }< / span >
< span id = "L542" class = "LineNr" > 542 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L543" class = "LineNr" > 543 < / span > < span class = "Delimiter" > }< / span >
< span id = "L544" class = "LineNr" > 544 < / span >
< span id = "L545" class = "LineNr" > 545 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L545' > quote-or-unquote?< / a > < / span > _x-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/eax: boolean < span class = "Delimiter" > {< / span >
< span id = "L546" class = "LineNr" > 546 < / span > < span class = "PreProc" > var< / span > x-ah/eax: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x-ah
< span id = "L547" class = "LineNr" > 547 < / span > < span class = "PreProc" > var< / span > x/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *x-ah
< span id = "L548" class = "LineNr" > 548 < / span > < span class = "Delimiter" > {< / span >
< span id = "L549" class = "LineNr" > 549 < / span > < span class = "PreProc" > var< / span > quote?/eax: boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L59' > symbol-equal?< / a > x, < span class = "Constant" > " '" < / span >
< span id = "L550" class = "LineNr" > 550 < / span > compare quote?, < span class = "Constant" > 0< / span > /false
< span id = "L551" class = "LineNr" > 551 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L552" class = "LineNr" > 552 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L553" class = "LineNr" > 553 < / span > < span class = "Delimiter" > }< / span >
< span id = "L554" class = "LineNr" > 554 < / span > < span class = "Delimiter" > {< / span >
< span id = "L555" class = "LineNr" > 555 < / span > < span class = "PreProc" > var< / span > backquote?/eax: boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L59' > symbol-equal?< / a > x, < span class = "Constant" > " `" < / span >
< span id = "L556" class = "LineNr" > 556 < / span > compare backquote?, < span class = "Constant" > 0< / span > /false
< span id = "L557" class = "LineNr" > 557 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L558" class = "LineNr" > 558 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L559" class = "LineNr" > 559 < / span > < span class = "Delimiter" > }< / span >
< span id = "L560" class = "LineNr" > 560 < / span > < span class = "Delimiter" > {< / span >
< span id = "L561" class = "LineNr" > 561 < / span > < span class = "PreProc" > var< / span > unquote?/eax: boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L59' > symbol-equal?< / a > x, < span class = "Constant" > " ," < / span >
< span id = "L562" class = "LineNr" > 562 < / span > compare unquote?, < span class = "Constant" > 0< / span > /false
< span id = "L563" class = "LineNr" > 563 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L564" class = "LineNr" > 564 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L565" class = "LineNr" > 565 < / span > < span class = "Delimiter" > }< / span >
< span id = "L566" class = "LineNr" > 566 < / span > < span class = "Delimiter" > {< / span >
< span id = "L567" class = "LineNr" > 567 < / span > < span class = "PreProc" > var< / span > unquote-splice?/eax: boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L59' > symbol-equal?< / a > x, < span class = "Constant" > " ,@" < / span >
< span id = "L568" class = "LineNr" > 568 < / span > compare unquote-splice?, < span class = "Constant" > 0< / span > /false
< span id = "L569" class = "LineNr" > 569 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L570" class = "LineNr" > 570 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L571" class = "LineNr" > 571 < / span > < span class = "Delimiter" > }< / span >
< span id = "L572" class = "LineNr" > 572 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L573" class = "LineNr" > 573 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L574" class = "LineNr" > 574 < / span >
2021-08-16 06:44:43 +00:00
< span id = "L575" class = "LineNr" > 575 < / span > < span class = "muComment" > # helpers for tests< / span >
< span id = "L576" class = "LineNr" > 576 < / span >
< span id = "L577" class = "LineNr" > 577 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L577' > check-infix< / a > < / span > actual: (addr array byte), expected: (addr array byte), message: (addr array byte) < span class = "Delimiter" > {< / span >
< span id = "L578" class = "LineNr" > 578 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L579" class = "LineNr" > 579 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdx" > edx< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L580" class = "LineNr" > 580 < / span > < span class = "CommentedCode" > #? initialize-trace trace, 1/only-errors, 0x10/capacity, 0/visible< / span >
< span id = "L581" class = "LineNr" > 581 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 0x10< / span > /levels, < span class = "Constant" > 0x1000< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L582" class = "LineNr" > 582 < / span > < span class = "muComment" > #< / span >
< span id = "L583" class = "LineNr" > 583 < / span > < span class = "PreProc" > var< / span > actual-buffer-storage: < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a >
< span id = "L584" class = "LineNr" > 584 < / span > < span class = "PreProc" > var< / span > actual-buffer/eax: (addr < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > address actual-buffer-storage
< span id = "L585" class = "LineNr" > 585 < / span > < a href = '../514gap-buffer.mu.html#L53' > initialize-gap-buffer-with< / a > actual-buffer, actual
< span id = "L586" class = "LineNr" > 586 < / span > < span class = "PreProc" > var< / span > actual-tree-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L587" class = "LineNr" > 587 < / span > < span class = "PreProc" > var< / span > actual-tree-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address actual-tree-h
< span id = "L588" class = "LineNr" > 588 < / span > < a href = 'read.mu.html#L1' > read-cell< / a > actual-buffer, actual-tree-ah, trace
< span id = "L589" class = "LineNr" > 589 < / span > < span class = "CommentedCode" > #? dump-trace-with-label trace, " infix" < / span >
< span id = "L590" class = "LineNr" > 590 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen actual-tree-ah, 7/fg 0/bg< / span >
< span id = "L591" class = "LineNr" > 591 < / span > < span class = "PreProc" > var< / span > _actual-tree/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *actual-tree-ah
< span id = "L592" class = "LineNr" > 592 < / span > < span class = "PreProc" > var< / span > actual-tree/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _actual-tree
< span id = "L593" class = "LineNr" > 593 < / span > < span class = "muComment" > #< / span >
< span id = "L594" class = "LineNr" > 594 < / span > < span class = "PreProc" > var< / span > expected-buffer-storage: < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a >
< span id = "L595" class = "LineNr" > 595 < / span > < span class = "PreProc" > var< / span > expected-buffer/eax: (addr < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > address expected-buffer-storage
< span id = "L596" class = "LineNr" > 596 < / span > < a href = '../514gap-buffer.mu.html#L53' > initialize-gap-buffer-with< / a > expected-buffer, expected
< span id = "L597" class = "LineNr" > 597 < / span > < span class = "PreProc" > var< / span > expected-tree-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L598" class = "LineNr" > 598 < / span > < span class = "PreProc" > var< / span > expected-tree-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address expected-tree-h
< span id = "L599" class = "LineNr" > 599 < / span > < a href = 'infix.mu.html#L606' > read-without-infix< / a > expected-buffer, expected-tree-ah, trace
< span id = "L600" class = "LineNr" > 600 < / span > < span class = "PreProc" > var< / span > expected-tree/eax: (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L235' > lookup< / a > *expected-tree-ah
< span id = "L601" class = "LineNr" > 601 < / span > < span class = "muComment" > #< / span >
< span id = "L602" class = "LineNr" > 602 < / span > < span class = "PreProc" > var< / span > match?/eax: boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1293' > cell-isomorphic?< / a > actual-tree, expected-tree, trace
< span id = "L603" class = "LineNr" > 603 < / span > < a href = '../502test.mu.html#L19' > check< / a > match?, message
< span id = "L604" class = "LineNr" > 604 < / span > < span class = "Delimiter" > }< / span >
< span id = "L605" class = "LineNr" > 605 < / span >
< span id = "L606" class = "LineNr" > 606 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'infix.mu.html#L606' > read-without-infix< / a > < / span > in: (addr < a href = '../514gap-buffer.mu.html#L3' > gap-buffer< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L607" class = "LineNr" > 607 < / span > < span class = "muComment" > # eagerly tokenize everything so that the phases are easier to see in the trace< / span >
< span id = "L608" class = "LineNr" > 608 < / span > < span class = "PreProc" > var< / span > tokens-storage: (stream < a href = 'tokenize.mu.html#L3' > token< / a > < span class = "Constant" > 0x400< / span > )
< span id = "L609" class = "LineNr" > 609 < / span > < span class = "PreProc" > var< / span > tokens/< span class = "muRegEdx" > edx< / span > : (addr stream < a href = 'tokenize.mu.html#L3' > token< / a > ) < span class = "Special" > < -< / span > address tokens-storage
< span id = "L610" class = "LineNr" > 610 < / span > < a href = 'tokenize.mu.html#L13' > tokenize< / a > in, tokens, trace
< span id = "L611" class = "LineNr" > 611 < / span > < span class = "PreProc" > var< / span > error?/eax: boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L612" class = "LineNr" > 612 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L613" class = "LineNr" > 613 < / span > < span class = "Delimiter" > {< / span >
< span id = "L614" class = "LineNr" > 614 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L615" class = "LineNr" > 615 < / span > < a href = 'trace.mu.html#L379' > dump-trace< / a > trace
< span id = "L616" class = "LineNr" > 616 < / span > < span class = "PreProc" > return< / span >
< span id = "L617" class = "LineNr" > 617 < / span > < span class = "Delimiter" > }< / span >
< span id = "L618" class = "LineNr" > 618 < / span > < span class = "muComment" > # insert more parens based on indentation< / span >
< span id = "L619" class = "LineNr" > 619 < / span > < span class = "PreProc" > var< / span > parenthesized-tokens-storage: (stream < a href = 'tokenize.mu.html#L3' > token< / a > < span class = "Constant" > 0x400< / span > )
< span id = "L620" class = "LineNr" > 620 < / span > < span class = "PreProc" > var< / span > parenthesized-tokens/< span class = "muRegEcx" > ecx< / span > : (addr stream < a href = 'tokenize.mu.html#L3' > token< / a > ) < span class = "Special" > < -< / span > address parenthesized-tokens-storage
< span id = "L621" class = "LineNr" > 621 < / span > < a href = 'parenthesize.mu.html#L15' > parenthesize< / a > tokens, parenthesized-tokens, trace
< span id = "L622" class = "LineNr" > 622 < / span > < span class = "PreProc" > var< / span > error?/eax: boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L623" class = "LineNr" > 623 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L624" class = "LineNr" > 624 < / span > < span class = "Delimiter" > {< / span >
< span id = "L625" class = "LineNr" > 625 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L626" class = "LineNr" > 626 < / span > < a href = 'trace.mu.html#L379' > dump-trace< / a > trace
< span id = "L627" class = "LineNr" > 627 < / span > < span class = "PreProc" > return< / span >
< span id = "L628" class = "LineNr" > 628 < / span > < span class = "Delimiter" > }< / span >
< span id = "L629" class = "LineNr" > 629 < / span > < a href = 'parse.mu.html#L1' > parse-input< / a > parenthesized-tokens, out, trace
< span id = "L630" class = "LineNr" > 630 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< / pre >
< / body >
< / html >
<!-- vim: set foldmethod=manual : -->