diff options
Diffstat (limited to 'html/081print.mu.html')
| -rw-r--r-- | html/081print.mu.html | 68 |
1 files changed, 37 insertions, 31 deletions
diff --git a/html/081print.mu.html b/html/081print.mu.html index 889eab31..20ab6cf3 100644 --- a/html/081print.mu.html +++ b/html/081print.mu.html @@ -15,17 +15,17 @@ body { font-size: 12pt; font-family: monospace; color: #aaaaaa; background-color a { color:#eeeeee; text-decoration: none; } a:hover { text-decoration: underline; } * { font-size: 12pt; font-size: 1em; } +.muData { color: #ffff00; } .muRecipe { color: #ff8700; } -.muScenario { color: #00af00; } .Special { color: #c00000; } .Delimiter { color: #800080; } +.muControl { color: #c0a020; } .Comment { color: #9090ff; } .Comment a { color:#0000ee; text-decoration:underline; } .Constant { color: #00a0a0; } .LineNr { color: #444444; } .CommentedCode { color: #6c6c6c; } -.muControl { color: #c0a020; } -.muData { color: #ffff00; } +.muScenario { color: #00af00; } --> </style> @@ -101,7 +101,7 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span> assert non-zero-height?, <span class="Constant">[screen can't have zero height]</span> <span id="L40" class="LineNr"> 40 </span> bufsize:num <span class="Special"><-</span> multiply w, h <span id="L41" class="LineNr"> 41 </span> data:&:@:<a href='081print.mu.html#L27'>screen-cell</a> <span class="Special"><-</span> new <span class="Constant"><a href='081print.mu.html#L27'>screen-cell</a>:type</span>, bufsize -<span id="L42" class="LineNr"> 42 </span> *result <span class="Special"><-</span> merge h/num-rows, w/num-columns, <span class="Constant">0/cursor-row</span>, <span class="Constant">0/cursor-column</span>, data, <span class="Constant">0/pending-scroll?</span>, <span class="Constant">0/top-idx</span> +<span id="L42" class="LineNr"> 42 </span> *result <span class="Special"><-</span> merge h/num-rows, w/num-columns, <span class="Constant">0/cursor-row</span>, <span class="Constant">0/cursor-column</span>, data,<span class="Constant"> false/pending-scroll?,</span> <span class="Constant">0/top-idx</span> <span id="L43" class="LineNr"> 43 </span> result <span class="Special"><-</span> <a href='081print.mu.html#L46'>clear-screen</a> result <span id="L44" class="LineNr"> 44 </span>] <span id="L45" class="LineNr"> 45 </span> @@ -137,7 +137,7 @@ if ('onhashchange' in window) { <span id="L75" class="LineNr"> 75 </span> <span class="Constant">local-scope</span> <span id="L76" class="LineNr"> 76 </span> <span class="Constant">load-inputs</span> <span id="L77" class="LineNr"> 77 </span><span class="CommentedCode">#? stash [fake-screen-is-empty?]</span> -<span id="L78" class="LineNr"> 78 </span> <span class="muControl">return-unless</span> <a href='081print.mu.html#L16'>screen</a>, <span class="Constant">1/true</span> <span class="Comment"># do nothing for real screens</span> +<span id="L78" class="LineNr"> 78 </span> <span class="muControl">return-unless</span> <a href='081print.mu.html#L16'>screen</a>,<span class="Constant"> true</span> <span class="Comment"># do nothing for real screens</span> <span id="L79" class="LineNr"> 79 </span> buf:&:@:<a href='081print.mu.html#L27'>screen-cell</a> <span class="Special"><-</span> get *screen, <span class="Constant">data:offset</span> <span id="L80" class="LineNr"> 80 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span id="L81" class="LineNr"> 81 </span> len:num <span class="Special"><-</span> length *buf @@ -149,9 +149,9 @@ if ('onhashchange' in window) { <span id="L87" class="LineNr"> 87 </span> i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> <span id="L88" class="LineNr"> 88 </span> <span class="muControl">loop-unless</span> curr-contents <span id="L89" class="LineNr"> 89 </span> <span class="Comment"># not 0</span> -<span id="L90" class="LineNr"> 90 </span> <span class="muControl"> return</span> <span class="Constant">0/false</span> +<span id="L90" class="LineNr"> 90 </span> <span class="muControl"> return</span><span class="Constant"> false</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> <span class="muControl"> return</span> <span class="Constant">1/true</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muControl"> return</span><span class="Constant"> true</span> <span id="L93" class="LineNr"> 93 </span>] <span id="L94" class="LineNr"> 94 </span> <span id="L95" class="LineNr"> 95 </span><span class="muRecipe">def</span> print <a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a>, c:char<span class="muRecipe"> -> </span><a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a> [ @@ -212,7 +212,7 @@ if ('onhashchange' in window) { <span id="L150" class="LineNr">150 </span> <span class="muControl">break-unless</span> pending-scroll? <span id="L151" class="LineNr">151 </span><span class="CommentedCode">#? stash [scroll]</span> <span id="L152" class="LineNr">152 </span> <a href='081print.mu.html#L225'>scroll-fake-screen</a> <a href='081print.mu.html#L16'>screen</a> -<span id="L153" class="LineNr">153 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>, <span class="Constant">0/false</span> +<span id="L153" class="LineNr">153 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>,<span class="Constant"> false</span> <span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> <span id="L155" class="LineNr">155 </span><span class="CommentedCode">#? $print [print-character (], row, [, ], column, [): ], c, 10/newline</span> <span id="L156" class="LineNr">156 </span> <span class="Comment"># special-case: newline</span> @@ -258,7 +258,7 @@ if ('onhashchange' in window) { <span id="L196" class="LineNr">196 </span> <span class="muControl">break-unless</span> past-bottom? <span id="L197" class="LineNr">197 </span> <span class="Comment"># queue up a scroll</span> <span id="L198" class="LineNr">198 </span><span class="CommentedCode">#? stash [pending scroll]</span> -<span id="L199" class="LineNr">199 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>, <span class="Constant">1/true</span> +<span id="L199" class="LineNr">199 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>,<span class="Constant"> true</span> <span id="L200" class="LineNr">200 </span> row <span class="Special"><-</span> subtract row,<span class="Constant"> 1</span> <span class="Comment"># update cursor as if scroll already happened</span> <span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> <span id="L202" class="LineNr">202 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">cursor-row:offset</span>, row @@ -517,7 +517,7 @@ if ('onhashchange' in window) { <span id="L455" class="LineNr">455 </span> 10:num/<span class="Special">raw</span> <span class="Special"><-</span> get *fake-screen, <span class="Constant">cursor-row:offset</span> <span id="L456" class="LineNr">456 </span> 11:num/<span class="Special">raw</span> <span class="Special"><-</span> get *fake-screen, <span class="Constant">cursor-column:offset</span> <span id="L457" class="LineNr">457 </span> 12:num/<span class="Special">raw</span> <span class="Special"><-</span> get *fake-screen, <span class="Constant">top-idx:offset</span> -<span id="L458" class="LineNr">458 </span> 13:num/<span class="Special">raw</span> <span class="Special"><-</span> get *fake-screen, <span class="Constant">pending-scroll?:offset</span> +<span id="L458" class="LineNr">458 </span> 13:bool/<span class="Special">raw</span> <span class="Special"><-</span> get *fake-screen, <span class="Constant">pending-scroll?:offset</span> <span id="L459" class="LineNr">459 </span> cell:&:@:<a href='081print.mu.html#L27'>screen-cell</a> <span class="Special"><-</span> get *fake-screen, <span class="Constant">data:offset</span> <span id="L460" class="LineNr">460 </span> 20:@:<a href='081print.mu.html#L27'>screen-cell</a>/<span class="Special">raw</span> <span class="Special"><-</span> copy *cell <span id="L461" class="LineNr">461 </span> ] @@ -669,7 +669,7 @@ if ('onhashchange' in window) { <span id="L607" class="LineNr">607 </span> scroll?:bool <span class="Special"><-</span> greater-or-equal new-column, width <span id="L608" class="LineNr">608 </span> <span class="muControl">break-if</span> scroll? <span id="L609" class="LineNr">609 </span><span class="CommentedCode">#? stash [resetting pending-scroll?]</span> -<span id="L610" class="LineNr">610 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>, <span class="Constant">0/false</span> +<span id="L610" class="LineNr">610 </span> *screen <span class="Special"><-</span> put *screen, <span class="Constant">pending-scroll?:offset</span>,<span class="Constant"> false</span> <span id="L611" class="LineNr">611 </span> <span class="Delimiter">}</span> <span id="L612" class="LineNr">612 </span>] <span id="L613" class="LineNr">613 </span> @@ -946,28 +946,34 @@ if ('onhashchange' in window) { <span id="L884" class="LineNr">884 </span> <span class="muControl">break-if</span> bg-color-found? <span id="L885" class="LineNr">885 </span> bg-color <span class="Special"><-</span> copy <span class="Constant">0/black</span> <span id="L886" class="LineNr">886 </span> <span class="Delimiter">}</span> -<span id="L887" class="LineNr">887 </span> n2:num <span class="Special"><-</span> copy n -<span id="L888" class="LineNr">888 </span> <a href='081print.mu.html#L16'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L16'>screen</a>, n2, color, bg-color -<span id="L889" class="LineNr">889 </span>] -<span id="L890" class="LineNr">890 </span> -<span id="L891" class="LineNr">891 </span><span class="muRecipe">def</span> print <a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a>, n:&:_elem<span class="muRecipe"> -> </span><a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a> [ -<span id="L892" class="LineNr">892 </span> <span class="Constant">local-scope</span> -<span id="L893" class="LineNr">893 </span> <span class="Constant">load-inputs</span> -<span id="L894" class="LineNr">894 </span> color:num, color-found?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> -<span id="L895" class="LineNr">895 </span> <span class="Delimiter">{</span> -<span id="L896" class="LineNr">896 </span> <span class="Comment"># default color to white</span> -<span id="L897" class="LineNr">897 </span> <span class="muControl">break-if</span> color-found? -<span id="L898" class="LineNr">898 </span> color <span class="Special"><-</span> copy <span class="Constant">7/white</span> -<span id="L899" class="LineNr">899 </span> <span class="Delimiter">}</span> -<span id="L900" class="LineNr">900 </span> bg-color:num, bg-color-found?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> +<span id="L887" class="LineNr">887 </span> <span class="Delimiter">{</span> +<span id="L888" class="LineNr">888 </span> <span class="muControl">break-if</span> n +<span id="L889" class="LineNr">889 </span> <a href='081print.mu.html#L16'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L16'>screen</a>, <span class="Constant">[false]</span>, color, bg-color +<span id="L890" class="LineNr">890 </span> <span class="Delimiter">}</span> +<span id="L891" class="LineNr">891 </span> <span class="Delimiter">{</span> +<span id="L892" class="LineNr">892 </span> <span class="muControl">break-unless</span> n +<span id="L893" class="LineNr">893 </span> <a href='081print.mu.html#L16'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L16'>screen</a>, <span class="Constant">[true]</span>, color, bg-color +<span id="L894" class="LineNr">894 </span> <span class="Delimiter">}</span> +<span id="L895" class="LineNr">895 </span>] +<span id="L896" class="LineNr">896 </span> +<span id="L897" class="LineNr">897 </span><span class="muRecipe">def</span> print <a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a>, n:&:_elem<span class="muRecipe"> -> </span><a href='081print.mu.html#L16'>screen</a>:&:<a href='081print.mu.html#L16'>screen</a> [ +<span id="L898" class="LineNr">898 </span> <span class="Constant">local-scope</span> +<span id="L899" class="LineNr">899 </span> <span class="Constant">load-inputs</span> +<span id="L900" class="LineNr">900 </span> color:num, color-found?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> <span id="L901" class="LineNr">901 </span> <span class="Delimiter">{</span> -<span id="L902" class="LineNr">902 </span> <span class="Comment"># default bg-color to black</span> -<span id="L903" class="LineNr">903 </span> <span class="muControl">break-if</span> bg-color-found? -<span id="L904" class="LineNr">904 </span> bg-color <span class="Special"><-</span> copy <span class="Constant">0/black</span> +<span id="L902" class="LineNr">902 </span> <span class="Comment"># default color to white</span> +<span id="L903" class="LineNr">903 </span> <span class="muControl">break-if</span> color-found? +<span id="L904" class="LineNr">904 </span> color <span class="Special"><-</span> copy <span class="Constant">7/white</span> <span id="L905" class="LineNr">905 </span> <span class="Delimiter">}</span> -<span id="L906" class="LineNr">906 </span> n2:num <span class="Special"><-</span> copy n -<span id="L907" class="LineNr">907 </span> <a href='081print.mu.html#L16'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L16'>screen</a>, n2, color, bg-color -<span id="L908" class="LineNr">908 </span>] +<span id="L906" class="LineNr">906 </span> bg-color:num, bg-color-found?:bool <span class="Special"><-</span> <span class="Constant">next-input</span> +<span id="L907" class="LineNr">907 </span> <span class="Delimiter">{</span> +<span id="L908" class="LineNr">908 </span> <span class="Comment"># default bg-color to black</span> +<span id="L909" class="LineNr">909 </span> <span class="muControl">break-if</span> bg-color-found? +<span id="L910" class="LineNr">910 </span> bg-color <span class="Special"><-</span> copy <span class="Constant">0/black</span> +<span id="L911" class="LineNr">911 </span> <span class="Delimiter">}</span> +<span id="L912" class="LineNr">912 </span> n2:num <span class="Special"><-</span> deaddress n +<span id="L913" class="LineNr">913 </span> <a href='081print.mu.html#L16'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L16'>screen</a>, n2, color, bg-color +<span id="L914" class="LineNr">914 </span>] </pre> </body> </html> |