diff options
Diffstat (limited to 'html/084console.mu.html')
| -rw-r--r-- | html/084console.mu.html | 57 |
1 files changed, 29 insertions, 28 deletions
diff --git a/html/084console.mu.html b/html/084console.mu.html index 1c344032..de92f8f6 100644 --- a/html/084console.mu.html +++ b/html/084console.mu.html @@ -15,14 +15,15 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color a { text-decoration: none; } a:hover { text-decoration: underline; } * { font-size: 12pt; font-size: 1em; } -.muData { color: #ffff00; } -.muControl { color: #c0a020; } +.muRecipe { color: #ff8700; } .Special { color: #c00000; } +.Conceal { color: #4e4e4e; } .Delimiter { color: #800080; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } .LineNr { color: #444444; } -.muRecipe { color: #ff8700; } +.muControl { color: #c0a020; } +.muData { color: #ffff00; } --> </style> @@ -95,20 +96,20 @@ if ('onhashchange' in window) { <span id="L36" class="LineNr"> 36 </span> <span class="Constant">local-scope</span> <span id="L37" class="LineNr"> 37 </span> <span class="Constant">load-ingredients</span> <span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">{</span> -<span id="L39" class="LineNr"> 39 </span> <span class="muControl">break-unless</span> <a href='084console.mu.html#L23'>console</a> -<span id="L40" class="LineNr"> 40 </span> current-event-index:num <span class="Special"><-</span> get *console, <span class="Constant">current-event-index:offset</span> -<span id="L41" class="LineNr"> 41 </span> buf:&:@:<a href='084console.mu.html#L4'>event</a> <span class="Special"><-</span> get *console, <span class="Constant">events:offset</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">{</span> -<span id="L43" class="LineNr"> 43 </span> max:num <span class="Special"><-</span> length *buf -<span id="L44" class="LineNr"> 44 </span> done?:bool <span class="Special"><-</span> greater-or-equal current-event-index, max -<span id="L45" class="LineNr"> 45 </span> <span class="muControl">break-unless</span> done? -<span id="L46" class="LineNr"> 46 </span> dummy:&:<a href='084console.mu.html#L4'>event</a> <span class="Special"><-</span> new <span class="Constant"><a href='084console.mu.html#L4'>event</a>:type</span> -<span id="L47" class="LineNr"> 47 </span> <span class="muControl">return</span> *dummy, <span class="Constant">1/found</span>, <span class="Constant">1/quit</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> -<span id="L49" class="LineNr"> 49 </span> result <span class="Special"><-</span> index *buf, current-event-index -<span id="L50" class="LineNr"> 50 </span> current-event-index <span class="Special"><-</span> add current-event-index,<span class="Constant"> 1</span> -<span id="L51" class="LineNr"> 51 </span> *console <span class="Special"><-</span> put *console, <span class="Constant">current-event-index:offset</span>, current-event-index -<span id="L52" class="LineNr"> 52 </span> <span class="muControl">return</span> result, <span class="Constant">1/found</span>, <span class="Constant">0/quit</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> <a href='084console.mu.html#L23'>console</a> +<span id="L40" class="LineNr"> 40 </span> <span class="Conceal">¦</span> current-event-index:num <span class="Special"><-</span> get *console, <span class="Constant">current-event-index:offset</span> +<span id="L41" class="LineNr"> 41 </span> <span class="Conceal">¦</span> buf:&:@:<a href='084console.mu.html#L4'>event</a> <span class="Special"><-</span> get *console, <span class="Constant">events:offset</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> max:num <span class="Special"><-</span> length *buf +<span id="L44" class="LineNr"> 44 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> greater-or-equal current-event-index, max +<span id="L45" class="LineNr"> 45 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> done? +<span id="L46" class="LineNr"> 46 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> dummy:&:<a href='084console.mu.html#L4'>event</a> <span class="Special"><-</span> new <span class="Constant"><a href='084console.mu.html#L4'>event</a>:type</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">return</span> *dummy, <span class="Constant">1/found</span>, <span class="Constant">1/quit</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Conceal">¦</span> result <span class="Special"><-</span> index *buf, current-event-index +<span id="L50" class="LineNr"> 50 </span> <span class="Conceal">¦</span> current-event-index <span class="Special"><-</span> add current-event-index,<span class="Constant"> 1</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Conceal">¦</span> *console <span class="Special"><-</span> put *console, <span class="Constant">current-event-index:offset</span>, current-event-index +<span id="L52" class="LineNr"> 52 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> result, <span class="Constant">1/found</span>, <span class="Constant">0/quit</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> <span id="L54" class="LineNr"> 54 </span> switch <span class="Comment"># real event source is infrequent; avoid polling it too much</span> <span id="L55" class="LineNr"> 55 </span> result:<a href='084console.mu.html#L4'>event</a>, found?:bool <span class="Special"><-</span> check-for-interaction @@ -133,13 +134,13 @@ if ('onhashchange' in window) { <span id="L74" class="LineNr"> 74 </span> <span class="Constant">local-scope</span> <span id="L75" class="LineNr"> 75 </span> <span class="Constant">load-ingredients</span> <span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">{</span> -<span id="L77" class="LineNr"> 77 </span> c:char, found?:bool, quit?:bool, <a href='084console.mu.html#L23'>console</a> <span class="Special"><-</span> <a href='084console.mu.html#L62'>read-key</a> <a href='084console.mu.html#L23'>console</a> -<span id="L78" class="LineNr"> 78 </span> <span class="muControl">loop-unless</span> found? -<span id="L79" class="LineNr"> 79 </span> <span class="muControl">break-if</span> quit? -<span id="L80" class="LineNr"> 80 </span> assert c, <span class="Constant">[invalid <a href='084console.mu.html#L4'>event</a>, expected text]</span> -<span id="L81" class="LineNr"> 81 </span> <a href='081print.mu.html#L4'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L4'>screen</a>, c -<span id="L82" class="LineNr"> 82 </span> chan <span class="Special"><-</span> <a href='075channel.mu.html#L66'>write</a> chan, c -<span id="L83" class="LineNr"> 83 </span> <span class="muControl">loop</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Conceal">¦</span> c:char, found?:bool, quit?:bool, <a href='084console.mu.html#L23'>console</a> <span class="Special"><-</span> <a href='084console.mu.html#L62'>read-key</a> <a href='084console.mu.html#L23'>console</a> +<span id="L78" class="LineNr"> 78 </span> <span class="Conceal">¦</span> <span class="muControl">loop-unless</span> found? +<span id="L79" class="LineNr"> 79 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> quit? +<span id="L80" class="LineNr"> 80 </span> <span class="Conceal">¦</span> assert c, <span class="Constant">[invalid <a href='084console.mu.html#L4'>event</a>, expected text]</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Conceal">¦</span> <a href='081print.mu.html#L4'>screen</a> <span class="Special"><-</span> print <a href='081print.mu.html#L4'>screen</a>, c +<span id="L82" class="LineNr"> 82 </span> <span class="Conceal">¦</span> chan <span class="Special"><-</span> <a href='075channel.mu.html#L66'>write</a> chan, c +<span id="L83" class="LineNr"> 83 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> <span id="L85" class="LineNr"> 85 </span> chan <span class="Special"><-</span> close chan <span id="L86" class="LineNr"> 86 </span>] @@ -148,10 +149,10 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> <span class="Constant">local-scope</span> <span id="L90" class="LineNr"> 90 </span> <span class="Constant">load-ingredients</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> _, found?:bool <span class="Special"><-</span> <a href='084console.mu.html#L35'>read-event</a> <a href='084console.mu.html#L23'>console</a> -<span id="L93" class="LineNr"> 93 </span> <span class="muControl">break-if</span> found? -<span id="L94" class="LineNr"> 94 </span> switch -<span id="L95" class="LineNr"> 95 </span> <span class="muControl">loop</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Conceal">¦</span> _, found?:bool <span class="Special"><-</span> <a href='084console.mu.html#L35'>read-event</a> <a href='084console.mu.html#L23'>console</a> +<span id="L93" class="LineNr"> 93 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> found? +<span id="L94" class="LineNr"> 94 </span> <span class="Conceal">¦</span> switch +<span id="L95" class="LineNr"> 95 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span>] <span id="L98" class="LineNr"> 98 </span> |