diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2017-12-03 23:25:40 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2017-12-03 23:25:40 -0800 |
| commit | 4a48bedcd1d708a43d43dc6259a4e45c52ea3d00 (patch) | |
| tree | 85c1b7310cca932797d727a3de8da96eb175d8da /html/061text.mu.html | |
| parent | ef7d834fdd826977cd8d43253052a7b8e1c5aa72 (diff) | |
| download | mu-4a48bedcd1d708a43d43dc6259a4e45c52ea3d00.tar.gz | |
4134 - 'input' = 'ingredient'
Diffstat (limited to 'html/061text.mu.html')
| -rw-r--r-- | html/061text.mu.html | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/html/061text.mu.html b/html/061text.mu.html index f8cb25e4..cb9ca6d3 100644 --- a/html/061text.mu.html +++ b/html/061text.mu.html @@ -64,7 +64,7 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="muRecipe">def</span> equal a:text, b:text<span class="muRecipe"> -> </span>result:bool [ <span id="L4" class="LineNr"> 4 </span> <span class="Constant">local-scope</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Constant">load-ingredients</span> +<span id="L5" class="LineNr"> 5 </span> <span class="Constant">load-inputs</span> <span id="L6" class="LineNr"> 6 </span> an:num, bn:num <span class="Special"><-</span> copy a, b <span id="L7" class="LineNr"> 7 </span> address-equal?:boolean <span class="Special"><-</span> equal an, bn <span id="L8" class="LineNr"> 8 </span> <span class="muControl">return-if</span> address-equal?, <span class="Constant">1/true</span> @@ -186,7 +186,7 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr"> 124 </span> <span id="L125" class="LineNr"> 125 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L125'>new-buffer</a> <a href='075channel.mu.html#L399'>capacity</a>:num<span class="muRecipe"> -> </span>result:&:<a href='061text.mu.html#L120'>buffer</a>:_elem [ <span id="L126" class="LineNr"> 126 </span> <span class="Constant">local-scope</span> -<span id="L127" class="LineNr"> 127 </span> <span class="Constant">load-ingredients</span> +<span id="L127" class="LineNr"> 127 </span> <span class="Constant">load-inputs</span> <span id="L128" class="LineNr"> 128 </span> result <span class="Special"><-</span> new <span class="Delimiter">{</span>(buffer _elem): type<span class="Delimiter">}</span> <span id="L129" class="LineNr"> 129 </span> *result <span class="Special"><-</span> put *result, <span class="Constant">length:offset</span>,<span class="Constant"> 0</span> <span id="L130" class="LineNr"> 130 </span> <span class="Delimiter">{</span> @@ -201,7 +201,7 @@ if ('onhashchange' in window) { <span id="L139" class="LineNr"> 139 </span> <span id="L140" class="LineNr"> 140 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L140'>grow-buffer</a> buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem<span class="muRecipe"> -> </span>buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem [ <span id="L141" class="LineNr"> 141 </span> <span class="Constant">local-scope</span> -<span id="L142" class="LineNr"> 142 </span> <span class="Constant">load-ingredients</span> +<span id="L142" class="LineNr"> 142 </span> <span class="Constant">load-inputs</span> <span id="L143" class="LineNr"> 143 </span> <span class="Comment"># double buffer size</span> <span id="L144" class="LineNr"> 144 </span> olddata:&:@:_elem <span class="Special"><-</span> get *buf, <span class="Constant">data:offset</span> <span id="L145" class="LineNr"> 145 </span> oldlen:num <span class="Special"><-</span> length *olddata @@ -222,7 +222,7 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr"> 160 </span> <span id="L161" class="LineNr"> 161 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L161'>buffer-full?</a> in:&:<a href='061text.mu.html#L120'>buffer</a>:_elem<span class="muRecipe"> -> </span>result:bool [ <span id="L162" class="LineNr"> 162 </span> <span class="Constant">local-scope</span> -<span id="L163" class="LineNr"> 163 </span> <span class="Constant">load-ingredients</span> +<span id="L163" class="LineNr"> 163 </span> <span class="Constant">load-inputs</span> <span id="L164" class="LineNr"> 164 </span> len:num <span class="Special"><-</span> get *in, <span class="Constant">length:offset</span> <span id="L165" class="LineNr"> 165 </span> s:&:@:_elem <span class="Special"><-</span> get *in, <span class="Constant">data:offset</span> <span id="L166" class="LineNr"> 166 </span> <a href='075channel.mu.html#L399'>capacity</a>:num <span class="Special"><-</span> length *s @@ -232,7 +232,7 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr"> 170 </span><span class="Comment"># most broadly applicable definition of append to a buffer</span> <span id="L171" class="LineNr"> 171 </span><span class="muRecipe">def</span> append buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem, x:_elem<span class="muRecipe"> -> </span>buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem [ <span id="L172" class="LineNr"> 172 </span> <span class="Constant">local-scope</span> -<span id="L173" class="LineNr"> 173 </span> <span class="Constant">load-ingredients</span> +<span id="L173" class="LineNr"> 173 </span> <span class="Constant">load-inputs</span> <span id="L174" class="LineNr"> 174 </span> len:num <span class="Special"><-</span> get *buf, <span class="Constant">length:offset</span> <span id="L175" class="LineNr"> 175 </span> <span class="Delimiter">{</span> <span id="L176" class="LineNr"> 176 </span> <span class="Conceal">¦</span> <span class="Comment"># grow buffer if necessary</span> @@ -250,7 +250,7 @@ if ('onhashchange' in window) { <span id="L188" class="LineNr"> 188 </span><span class="Comment"># call to-text</span> <span id="L189" class="LineNr"> 189 </span><span class="muRecipe">def</span> append buf:&:<a href='061text.mu.html#L120'>buffer</a>:char, x:_elem<span class="muRecipe"> -> </span>buf:&:<a href='061text.mu.html#L120'>buffer</a>:char [ <span id="L190" class="LineNr"> 190 </span> <span class="Constant">local-scope</span> -<span id="L191" class="LineNr"> 191 </span> <span class="Constant">load-ingredients</span> +<span id="L191" class="LineNr"> 191 </span> <span class="Constant">load-inputs</span> <span id="L192" class="LineNr"> 192 </span> text:text <span class="Special"><-</span> to-text x <span id="L193" class="LineNr"> 193 </span> buf <span class="Special"><-</span> append buf, text <span id="L194" class="LineNr"> 194 </span>] @@ -258,7 +258,7 @@ if ('onhashchange' in window) { <span id="L196" class="LineNr"> 196 </span><span class="Comment"># specialization for characters that is backspace-aware</span> <span id="L197" class="LineNr"> 197 </span><span class="muRecipe">def</span> append buf:&:<a href='061text.mu.html#L120'>buffer</a>:char, c:char<span class="muRecipe"> -> </span>buf:&:<a href='061text.mu.html#L120'>buffer</a>:char [ <span id="L198" class="LineNr"> 198 </span> <span class="Constant">local-scope</span> -<span id="L199" class="LineNr"> 199 </span> <span class="Constant">load-ingredients</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Constant">load-inputs</span> <span id="L200" class="LineNr"> 200 </span> len:num <span class="Special"><-</span> get *buf, <span class="Constant">length:offset</span> <span id="L201" class="LineNr"> 201 </span> <span class="Delimiter">{</span> <span id="L202" class="LineNr"> 202 </span> <span class="Conceal">¦</span> <span class="Comment"># backspace? just drop last character if it exists and return</span> @@ -284,7 +284,7 @@ if ('onhashchange' in window) { <span id="L222" class="LineNr"> 222 </span> <span id="L223" class="LineNr"> 223 </span><span class="muRecipe">def</span> append buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem, t:&:@:_elem<span class="muRecipe"> -> </span>buf:&:<a href='061text.mu.html#L120'>buffer</a>:_elem [ <span id="L224" class="LineNr"> 224 </span> <span class="Constant">local-scope</span> -<span id="L225" class="LineNr"> 225 </span> <span class="Constant">load-ingredients</span> +<span id="L225" class="LineNr"> 225 </span> <span class="Constant">load-inputs</span> <span id="L226" class="LineNr"> 226 </span> len:num <span class="Special"><-</span> length *t <span id="L227" class="LineNr"> 227 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L228" class="LineNr"> 228 </span> <span class="Delimiter">{</span> @@ -399,7 +399,7 @@ if ('onhashchange' in window) { <span id="L337" class="LineNr"> 337 </span> <span id="L338" class="LineNr"> 338 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L338'>buffer-to-array</a> in:&:<a href='061text.mu.html#L120'>buffer</a>:_elem<span class="muRecipe"> -> </span>result:&:@:_elem [ <span id="L339" class="LineNr"> 339 </span> <span class="Constant">local-scope</span> -<span id="L340" class="LineNr"> 340 </span> <span class="Constant">load-ingredients</span> +<span id="L340" class="LineNr"> 340 </span> <span class="Constant">load-inputs</span> <span id="L341" class="LineNr"> 341 </span> <span class="Comment"># propagate null buffer</span> <span id="L342" class="LineNr"> 342 </span> <span class="muControl">return-unless</span> in,<span class="Constant"> 0</span> <span id="L343" class="LineNr"> 343 </span> len:num <span class="Special"><-</span> get *in, <span class="Constant">length:offset</span> @@ -419,7 +419,7 @@ if ('onhashchange' in window) { <span id="L357" class="LineNr"> 357 </span> <span id="L358" class="LineNr"> 358 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L358'>blank?</a> x:&:@:_elem<span class="muRecipe"> -> </span>result:bool [ <span id="L359" class="LineNr"> 359 </span> <span class="Constant">local-scope</span> -<span id="L360" class="LineNr"> 360 </span> <span class="Constant">load-ingredients</span> +<span id="L360" class="LineNr"> 360 </span> <span class="Constant">load-inputs</span> <span id="L361" class="LineNr"> 361 </span> <span class="muControl">return-unless</span> x, <span class="Constant">1/true</span> <span id="L362" class="LineNr"> 362 </span> len:num <span class="Special"><-</span> length *x <span id="L363" class="LineNr"> 363 </span> result <span class="Special"><-</span> equal len,<span class="Constant"> 0</span> @@ -435,16 +435,16 @@ if ('onhashchange' in window) { <span id="L373" class="LineNr"> 373 </span><span class="Comment"># will never ever get used.</span> <span id="L374" class="LineNr"> 374 </span><span class="muRecipe">def</span> append first:text<span class="muRecipe"> -> </span>result:text [ <span id="L375" class="LineNr"> 375 </span> <span class="Constant">local-scope</span> -<span id="L376" class="LineNr"> 376 </span> <span class="Constant">load-ingredients</span> +<span id="L376" class="LineNr"> 376 </span> <span class="Constant">load-inputs</span> <span id="L377" class="LineNr"> 377 </span> buf:&:<a href='061text.mu.html#L120'>buffer</a>:char <span class="Special"><-</span> <a href='061text.mu.html#L125'>new-buffer</a><span class="Constant"> 30</span> -<span id="L378" class="LineNr"> 378 </span> <span class="Comment"># append first ingredient</span> +<span id="L378" class="LineNr"> 378 </span> <span class="Comment"># append first input</span> <span id="L379" class="LineNr"> 379 </span> <span class="Delimiter">{</span> <span id="L380" class="LineNr"> 380 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> first <span id="L381" class="LineNr"> 381 </span> <span class="Conceal">¦</span> buf <span class="Special"><-</span> append buf, first <span id="L382" class="LineNr"> 382 </span> <span class="Delimiter">}</span> -<span id="L383" class="LineNr"> 383 </span> <span class="Comment"># append remaining ingredients</span> +<span id="L383" class="LineNr"> 383 </span> <span class="Comment"># append remaining inputs</span> <span id="L384" class="LineNr"> 384 </span> <span class="Delimiter">{</span> -<span id="L385" class="LineNr"> 385 </span> <span class="Conceal">¦</span> arg:text, arg-found?:bool <span class="Special"><-</span> <span class="Constant">next-ingredient</span> +<span id="L385" class="LineNr"> 385 </span> <span class="Conceal">¦</span> arg:text, arg-found?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> <span id="L386" class="LineNr"> 386 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> arg-found? <span id="L387" class="LineNr"> 387 </span> <span class="Conceal">¦</span> <span class="muControl">loop-unless</span> arg <span id="L388" class="LineNr"> 388 </span> <span class="Conceal">¦</span> buf <span class="Special"><-</span> append buf, arg @@ -520,7 +520,7 @@ if ('onhashchange' in window) { <span id="L458" class="LineNr"> 458 </span> <span id="L459" class="LineNr"> 459 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L459'>replace</a> s:text, oldc:char, newc:char, from:num/optional<span class="muRecipe"> -> </span>s:text [ <span id="L460" class="LineNr"> 460 </span> <span class="Constant">local-scope</span> -<span id="L461" class="LineNr"> 461 </span> <span class="Constant">load-ingredients</span> +<span id="L461" class="LineNr"> 461 </span> <span class="Constant">load-inputs</span> <span id="L462" class="LineNr"> 462 </span> len:num <span class="Special"><-</span> length *s <span id="L463" class="LineNr"> 463 </span> i:num <span class="Special"><-</span> find-next s, oldc, from <span id="L464" class="LineNr"> 464 </span> done?:bool <span class="Special"><-</span> greater-or-equal i, len @@ -581,13 +581,13 @@ if ('onhashchange' in window) { <span id="L519" class="LineNr"> 519 </span><span class="Comment"># replace underscores in first with remaining args</span> <span id="L520" class="LineNr"> 520 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L520'>interpolate</a> template:text<span class="muRecipe"> -> </span>result:text [ <span id="L521" class="LineNr"> 521 </span> <span class="Constant">local-scope</span> -<span id="L522" class="LineNr"> 522 </span> <span class="Constant">load-ingredients</span> <span class="Comment"># consume just the template</span> +<span id="L522" class="LineNr"> 522 </span> <span class="Constant">load-inputs</span> <span class="Comment"># consume just the template</span> <span id="L523" class="LineNr"> 523 </span> <span class="Comment"># compute result-len, space to allocate for result</span> <span id="L524" class="LineNr"> 524 </span> tem-len:num <span class="Special"><-</span> length *template <span id="L525" class="LineNr"> 525 </span> result-len:num <span class="Special"><-</span> copy tem-len <span id="L526" class="LineNr"> 526 </span> <span class="Delimiter">{</span> -<span id="L527" class="LineNr"> 527 </span> <span class="Conceal">¦</span> <span class="Comment"># while ingredients remain</span> -<span id="L528" class="LineNr"> 528 </span> <span class="Conceal">¦</span> a:text, arg-received?:bool <span class="Special"><-</span> <span class="Constant">next-ingredient</span> +<span id="L527" class="LineNr"> 527 </span> <span class="Conceal">¦</span> <span class="Comment"># while inputs remain</span> +<span id="L528" class="LineNr"> 528 </span> <span class="Conceal">¦</span> a:text, arg-received?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> <span id="L529" class="LineNr"> 529 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> arg-received? <span id="L530" class="LineNr"> 530 </span> <span class="Conceal">¦</span> <span class="Comment"># result-len = result-len + arg.length - 1 (for the 'underscore' being replaced)</span> <span id="L531" class="LineNr"> 531 </span> <span class="Conceal">¦</span> a-len:num <span class="Special"><-</span> length *a @@ -595,15 +595,15 @@ if ('onhashchange' in window) { <span id="L533" class="LineNr"> 533 </span> <span class="Conceal">¦</span> result-len <span class="Special"><-</span> subtract result-len,<span class="Constant"> 1</span> <span id="L534" class="LineNr"> 534 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span id="L535" class="LineNr"> 535 </span> <span class="Delimiter">}</span> -<span id="L536" class="LineNr"> 536 </span> <span class="Constant">rewind-ingredients</span> -<span id="L537" class="LineNr"> 537 </span> _ <span class="Special"><-</span> <span class="Constant">next-ingredient</span> <span class="Comment"># skip template</span> +<span id="L536" class="LineNr"> 536 </span> <span class="Constant">rewind-inputs</span> +<span id="L537" class="LineNr"> 537 </span> _ <span class="Special"><-</span> <span class="Constant">next-input</span> <span class="Comment"># skip template</span> <span id="L538" class="LineNr"> 538 </span> result <span class="Special"><-</span> new <span class="Constant">character:type</span>, result-len <span id="L539" class="LineNr"> 539 </span> <span class="Comment"># repeatedly copy sections of template and 'holes' into result</span> <span id="L540" class="LineNr"> 540 </span> result-idx:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L541" class="LineNr"> 541 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L542" class="LineNr"> 542 </span> <span class="Delimiter">{</span> <span id="L543" class="LineNr"> 543 </span> <span class="Conceal">¦</span> <span class="Comment"># while arg received</span> -<span id="L544" class="LineNr"> 544 </span> <span class="Conceal">¦</span> a:text, arg-received?:bool <span class="Special"><-</span> <span class="Constant">next-ingredient</span> +<span id="L544" class="LineNr"> 544 </span> <span class="Conceal">¦</span> a:text, arg-received?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> <span id="L545" class="LineNr"> 545 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> arg-received? <span id="L546" class="LineNr"> 546 </span> <span class="Conceal">¦</span> <span class="Comment"># copy template into result until '_'</span> <span id="L547" class="LineNr"> 547 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> @@ -695,7 +695,7 @@ if ('onhashchange' in window) { <span id="L633" class="LineNr"> 633 </span><span class="Comment"># result:bool <- space? c:char</span> <span id="L634" class="LineNr"> 634 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L634'>space?</a> c:char<span class="muRecipe"> -> </span>result:bool [ <span id="L635" class="LineNr"> 635 </span> <span class="Constant">local-scope</span> -<span id="L636" class="LineNr"> 636 </span> <span class="Constant">load-ingredients</span> +<span id="L636" class="LineNr"> 636 </span> <span class="Constant">load-inputs</span> <span id="L637" class="LineNr"> 637 </span> <span class="Comment"># most common case first</span> <span id="L638" class="LineNr"> 638 </span> result <span class="Special"><-</span> equal c, <span class="Constant">32/space</span> <span id="L639" class="LineNr"> 639 </span> <span class="muControl">return-if</span> result @@ -756,7 +756,7 @@ if ('onhashchange' in window) { <span id="L694" class="LineNr"> 694 </span> <span id="L695" class="LineNr"> 695 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L695'>trim</a> s:text<span class="muRecipe"> -> </span>result:text [ <span id="L696" class="LineNr"> 696 </span> <span class="Constant">local-scope</span> -<span id="L697" class="LineNr"> 697 </span> <span class="Constant">load-ingredients</span> +<span id="L697" class="LineNr"> 697 </span> <span class="Constant">load-inputs</span> <span id="L698" class="LineNr"> 698 </span> len:num <span class="Special"><-</span> length *s <span id="L699" class="LineNr"> 699 </span> <span class="Comment"># left trim: compute start</span> <span id="L700" class="LineNr"> 700 </span> start:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> @@ -866,7 +866,7 @@ if ('onhashchange' in window) { <span id="L804" class="LineNr"> 804 </span> <span id="L805" class="LineNr"> 805 </span><span class="muRecipe">def</span> find-next text:text, pattern:char, idx:num<span class="muRecipe"> -> </span>next-index:num [ <span id="L806" class="LineNr"> 806 </span> <span class="Constant">local-scope</span> -<span id="L807" class="LineNr"> 807 </span> <span class="Constant">load-ingredients</span> +<span id="L807" class="LineNr"> 807 </span> <span class="Constant">load-inputs</span> <span id="L808" class="LineNr"> 808 </span> len:num <span class="Special"><-</span> length *text <span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">{</span> <span id="L810" class="LineNr"> 810 </span> <span class="Conceal">¦</span> eof?:bool <span class="Special"><-</span> greater-or-equal idx, len @@ -972,7 +972,7 @@ if ('onhashchange' in window) { <span id="L910" class="LineNr"> 910 </span><span class="Comment"># fairly dumb algorithm</span> <span id="L911" class="LineNr"> 911 </span><span class="muRecipe">def</span> find-next text:text, pattern:text, idx:num<span class="muRecipe"> -> </span>next-index:num [ <span id="L912" class="LineNr"> 912 </span> <span class="Constant">local-scope</span> -<span id="L913" class="LineNr"> 913 </span> <span class="Constant">load-ingredients</span> +<span id="L913" class="LineNr"> 913 </span> <span class="Constant">load-inputs</span> <span id="L914" class="LineNr"> 914 </span> first:char <span class="Special"><-</span> index *pattern,<span class="Constant"> 0</span> <span id="L915" class="LineNr"> 915 </span> <span class="Comment"># repeatedly check for match at current idx</span> <span id="L916" class="LineNr"> 916 </span> len:num <span class="Special"><-</span> length *text @@ -1053,7 +1053,7 @@ if ('onhashchange' in window) { <span id="L991" class="LineNr"> 991 </span><span class="Comment"># checks if pattern matches at index 'idx'</span> <span id="L992" class="LineNr"> 992 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L992'>match-at</a> text:text, pattern:text, idx:num<span class="muRecipe"> -> </span>result:bool [ <span id="L993" class="LineNr"> 993 </span> <span class="Constant">local-scope</span> -<span id="L994" class="LineNr"> 994 </span> <span class="Constant">load-ingredients</span> +<span id="L994" class="LineNr"> 994 </span> <span class="Constant">load-inputs</span> <span id="L995" class="LineNr"> 995 </span> pattern-len:num <span class="Special"><-</span> length *pattern <span id="L996" class="LineNr"> 996 </span> <span class="Comment"># check that there's space left for the pattern</span> <span id="L997" class="LineNr"> 997 </span> x:num <span class="Special"><-</span> length *text @@ -1184,7 +1184,7 @@ if ('onhashchange' in window) { <span id="L1122" class="LineNr">1122 </span> <span id="L1123" class="LineNr">1123 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L1123'>split</a> s:text, delim:char<span class="muRecipe"> -> </span>result:&:@:text [ <span id="L1124" class="LineNr">1124 </span> <span class="Constant">local-scope</span> -<span id="L1125" class="LineNr">1125 </span> <span class="Constant">load-ingredients</span> +<span id="L1125" class="LineNr">1125 </span> <span class="Constant">load-inputs</span> <span id="L1126" class="LineNr">1126 </span> <span class="Comment"># empty text? return empty array</span> <span id="L1127" class="LineNr">1127 </span> len:num <span class="Special"><-</span> length *s <span id="L1128" class="LineNr">1128 </span> <span class="Delimiter">{</span> @@ -1316,7 +1316,7 @@ if ('onhashchange' in window) { <span id="L1254" class="LineNr">1254 </span> <span id="L1255" class="LineNr">1255 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L1255'>split-first</a> text:text, delim:char<span class="muRecipe"> -> </span>x:text, y:text [ <span id="L1256" class="LineNr">1256 </span> <span class="Constant">local-scope</span> -<span id="L1257" class="LineNr">1257 </span> <span class="Constant">load-ingredients</span> +<span id="L1257" class="LineNr">1257 </span> <span class="Constant">load-inputs</span> <span id="L1258" class="LineNr">1258 </span> <span class="Comment"># empty text? return empty texts</span> <span id="L1259" class="LineNr">1259 </span> len:num <span class="Special"><-</span> length *text <span id="L1260" class="LineNr">1260 </span> <span class="Delimiter">{</span> @@ -1348,7 +1348,7 @@ if ('onhashchange' in window) { <span id="L1286" class="LineNr">1286 </span> <span id="L1287" class="LineNr">1287 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L1287'>copy-range</a> buf:text, start:num, end:num<span class="muRecipe"> -> </span>result:text [ <span id="L1288" class="LineNr">1288 </span> <span class="Constant">local-scope</span> -<span id="L1289" class="LineNr">1289 </span> <span class="Constant">load-ingredients</span> +<span id="L1289" class="LineNr">1289 </span> <span class="Constant">load-inputs</span> <span id="L1290" class="LineNr">1290 </span> <span class="Comment"># if end is out of bounds, trim it</span> <span id="L1291" class="LineNr">1291 </span> len:num <span class="Special"><-</span> length *buf <span id="L1292" class="LineNr">1292 </span> end:num <span class="Special"><-</span> min len, end @@ -1407,7 +1407,7 @@ if ('onhashchange' in window) { <span id="L1345" class="LineNr">1345 </span> <span id="L1346" class="LineNr">1346 </span><span class="muRecipe">def</span> <a href='061text.mu.html#L1346'>parse-whole-number</a> in:text<span class="muRecipe"> -> </span>out:num, error?:bool [ <span id="L1347" class="LineNr">1347 </span> <span class="Constant">local-scope</span> -<span id="L1348" class="LineNr">1348 </span> <span class="Constant">load-ingredients</span> +<span id="L1348" class="LineNr">1348 </span> <span class="Constant">load-inputs</span> <span id="L1349" class="LineNr">1349 </span> out <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L1350" class="LineNr">1350 </span> result:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span class="Comment"># temporary location</span> <span id="L1351" class="LineNr">1351 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> @@ -1431,7 +1431,7 @@ if ('onhashchange' in window) { <span id="L1369" class="LineNr">1369 </span><span class="Comment"># (contributed by Ella Couch)</span> <span id="L1370" class="LineNr">1370 </span><span class="muRecipe">recipe</span> <a href='061text.mu.html#L1370'>character-code-to-digit</a> character-code:number<span class="muRecipe"> -> </span>result:number, error?:boolean [ <span id="L1371" class="LineNr">1371 </span> <span class="Constant">local-scope</span> -<span id="L1372" class="LineNr">1372 </span> <span class="Constant">load-ingredients</span> +<span id="L1372" class="LineNr">1372 </span> <span class="Constant">load-inputs</span> <span id="L1373" class="LineNr">1373 </span> result <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L1374" class="LineNr">1374 </span> error? <span class="Special"><-</span> lesser-than character-code,<span class="Constant"> 48</span> <span class="Comment"># '0'</span> <span id="L1375" class="LineNr">1375 </span> <span class="muControl">return-if</span> error? |