diff options
Diffstat (limited to 'html/074console.mu.html')
| -rw-r--r-- | html/074console.mu.html | 153 |
1 files changed, 78 insertions, 75 deletions
diff --git a/html/074console.mu.html b/html/074console.mu.html index f2eb5552..191c33e8 100644 --- a/html/074console.mu.html +++ b/html/074console.mu.html @@ -13,10 +13,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; } body { font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 1.05em; } -.Special { color: #ff6060; } +.muRecipe { color: #ff8700; } +.muData { color: #ffff00; } .Comment { color: #9090ff; } -.Underlined { color: #c000c0; text-decoration: underline; } -.Identifier { color: #804000; } +.Constant { color: #00a0a0; } +.Special { color: #ff6060; } +.Delimiter { color: #a04060; } +.muControl { color: #c0a020; } --> </style> @@ -31,7 +34,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } <span class="Comment"># Wrappers around interaction primitives that take a potentially fake object</span> <span class="Comment"># and are thus easier to test.</span> -exclusive-container event [ +<span class="muData">exclusive-container</span> event [ text:character keycode:number <span class="Comment"># keys on keyboard without a unicode representation</span> touch:touch-event <span class="Comment"># mouse, track ball, etc.</span> @@ -39,107 +42,107 @@ exclusive-container event [ <span class="Comment"># update the assume-console handler if you add more variants</span> ] -container touch-event [ - <span class="Identifier">type</span>:number +<span class="muData">container</span> touch-event [ + type:number row:number column:number ] -container resize-event [ +<span class="muData">container</span> resize-event [ width:number height:number ] -container console [ +<span class="muData">container</span> console [ index:number - data:address:<span class="Identifier">array</span>:event + data:address:array:event ] -recipe <span class="Identifier">new</span>-fake-console [ - <span class="Underlined">local</span>-scope - result:address:console<span class="Special"> <- </span><span class="Identifier">new</span> console:<span class="Identifier">type</span> - buf:address:address:<span class="Identifier">array</span>:character<span class="Special"> <- </span>get-address *result, data:offset - *buf<span class="Special"> <- </span>next-ingredient - idx:address:number<span class="Special"> <- </span>get-address *result, index:offset - *idx<span class="Special"> <- </span><span class="Identifier">copy</span> 0 - reply result +<span class="muRecipe">recipe</span> new-fake-console [ + <span class="Constant">local-scope</span> + result:address:console<span class="Special"> <- </span>new <span class="Constant">console:type</span> + buf:address:address:array:character<span class="Special"> <- </span>get-address *result, <span class="Constant">data:offset</span> + *buf<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + idx:address:number<span class="Special"> <- </span>get-address *result, <span class="Constant">index:offset</span> + *idx<span class="Special"> <- </span>copy <span class="Constant">0</span> + <span class="muControl">reply</span> result ] -recipe <span class="Identifier">read</span>-event [ - <span class="Underlined">local</span>-scope - x:address:console<span class="Special"> <- </span>next-ingredient - { - break-unless x - idx:address:number<span class="Special"> <- </span>get-address *x, index:offset - buf:address:<span class="Identifier">array</span>:event<span class="Special"> <- </span>get *x, data:offset - { - <span class="Identifier">max</span>:number<span class="Special"> <- </span><span class="Identifier">length</span> *buf - done?:boolean<span class="Special"> <- </span>greater-or-equal *idx, <span class="Identifier">max</span> - break-unless done? - dummy:address:event<span class="Special"> <- </span><span class="Identifier">new</span> event:<span class="Identifier">type</span> - reply *dummy, x/same-as-ingredient:0, 1/found, 1/<span class="Identifier">quit</span> - } +<span class="muRecipe">recipe</span> read-event [ + <span class="Constant">local-scope</span> + x:address:console<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + <span class="Delimiter">{</span> + <span class="muControl">break-unless</span> x + idx:address:number<span class="Special"> <- </span>get-address *x, <span class="Constant">index:offset</span> + buf:address:array:event<span class="Special"> <- </span>get *x, <span class="Constant">data:offset</span> + <span class="Delimiter">{</span> + max:number<span class="Special"> <- </span>length *buf + done?:boolean<span class="Special"> <- </span>greater-or-equal *idx, max + <span class="muControl">break-unless</span> done? + dummy:address:event<span class="Special"> <- </span>new <span class="Constant">event:type</span> + <span class="muControl">reply</span> *dummy, x/same-as-ingredient:<span class="Constant">0</span>, <span class="Constant">1/found</span>, <span class="Constant">1/quit</span> + <span class="Delimiter">}</span> result:event<span class="Special"> <- </span>index *buf, *idx - *idx<span class="Special"> <- </span>add *idx, 1 - reply result, x/same-as-ingredient:0, 1/found, 0/<span class="Identifier">quit</span> - } + *idx<span class="Special"> <- </span>add *idx, <span class="Constant">1</span> + <span class="muControl">reply</span> result, x/same-as-ingredient:<span class="Constant">0</span>, <span class="Constant">1/found</span>, <span class="Constant">0/quit</span> + <span class="Delimiter">}</span> switch <span class="Comment"># real event source is infrequent; avoid polling it too much</span> result:event, found?:boolean<span class="Special"> <- </span>check-for-interaction - reply result, x/same-as-ingredient:0, found?, 0/<span class="Identifier">quit</span> + <span class="muControl">reply</span> result, x/same-as-ingredient:<span class="Constant">0</span>, found?, <span class="Constant">0/quit</span> ] <span class="Comment"># variant of read-event for just keyboard events. Discards everything that</span> <span class="Comment"># isn't unicode, so no arrow keys, page-up/page-down, etc. But you still get</span> <span class="Comment"># newlines, tabs, ctrl-d..</span> -recipe <span class="Identifier">read</span>-key [ - <span class="Underlined">local</span>-scope - console:address<span class="Special"> <- </span>next-ingredient - x:event, console, found?:boolean, <span class="Identifier">quit</span>?:boolean<span class="Special"> <- </span><span class="Identifier">read</span>-event console - reply-if <span class="Identifier">quit</span>?, 0, console/same-as-ingredient:0, found?, <span class="Identifier">quit</span>? - reply-unless found?, 0, console/same-as-ingredient:0, found?, <span class="Identifier">quit</span>? - c:address:character<span class="Special"> <- </span>maybe-convert x, text:variant - reply-unless c, 0, console/same-as-ingredient:0, 0/found, 0/<span class="Identifier">quit</span> - reply *c, console/same-as-ingredient:0, 1/found, 0/<span class="Identifier">quit</span> +<span class="muRecipe">recipe</span> read-key [ + <span class="Constant">local-scope</span> + console:address<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + x:event, console, found?:boolean, quit?:boolean<span class="Special"> <- </span>read-event console + <span class="muControl">reply-if</span> quit?, <span class="Constant">0</span>, console/same-as-ingredient:<span class="Constant">0</span>, found?, quit? + <span class="muControl">reply-unless</span> found?, <span class="Constant">0</span>, console/same-as-ingredient:<span class="Constant">0</span>, found?, quit? + c:address:character<span class="Special"> <- </span>maybe-convert x, <span class="Constant">text:variant</span> + <span class="muControl">reply-unless</span> c, <span class="Constant">0</span>, console/same-as-ingredient:<span class="Constant">0</span>, <span class="Constant">0/found</span>, <span class="Constant">0/quit</span> + <span class="muControl">reply</span> *c, console/same-as-ingredient:<span class="Constant">0</span>, <span class="Constant">1/found</span>, <span class="Constant">0/quit</span> ] -recipe send-keys-to-channel [ - <span class="Underlined">local</span>-scope - console:address<span class="Special"> <- </span>next-ingredient - chan:address:channel<span class="Special"> <- </span>next-ingredient - screen:address<span class="Special"> <- </span>next-ingredient - { - c:character, console, found?:boolean, <span class="Identifier">quit</span>?:boolean<span class="Special"> <- </span><span class="Identifier">read</span>-key console - loop-unless found? - break-if <span class="Identifier">quit</span>? - <span class="Identifier">assert</span> c, [invalid event, expected text] - screen<span class="Special"> <- </span><span class="Identifier">print</span>-character screen, c - chan<span class="Special"> <- </span><span class="Identifier">write</span> chan, c - loop - } - reply console/same-as-ingredient:0, chan/same-as-ingredient:1, screen/same-as-ingredient:2 +<span class="muRecipe">recipe</span> send-keys-to-channel [ + <span class="Constant">local-scope</span> + console:address<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + chan:address:channel<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + screen:address<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + <span class="Delimiter">{</span> + c:character, console, found?:boolean, quit?:boolean<span class="Special"> <- </span>read-key console + <span class="muControl">loop-unless</span> found? + <span class="muControl">break-if</span> quit? + assert c, <span class="Constant">[invalid event, expected text]</span> + screen<span class="Special"> <- </span>print-character screen, c + chan<span class="Special"> <- </span>write chan, c + <span class="muControl">loop</span> + <span class="Delimiter">}</span> + <span class="muControl">reply</span> console/same-as-ingredient:<span class="Constant">0</span>, chan/same-as-ingredient:<span class="Constant">1</span>, screen/same-as-ingredient:<span class="Constant">2</span> ] -recipe wait-for-event [ - <span class="Underlined">local</span>-scope - console:address<span class="Special"> <- </span>next-ingredient - { - _, console, found?:boolean<span class="Special"> <- </span><span class="Identifier">read</span>-event console - loop-unless found? - } - reply console/same-as-ingredient:0 +<span class="muRecipe">recipe</span> wait-for-event [ + <span class="Constant">local-scope</span> + console:address<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + <span class="Delimiter">{</span> + _, console, found?:boolean<span class="Special"> <- </span>read-event console + <span class="muControl">loop-unless</span> found? + <span class="Delimiter">}</span> + <span class="muControl">reply</span> console/same-as-ingredient:<span class="Constant">0</span> ] <span class="Comment"># use this helper to skip rendering if there's lots of other events queued up</span> -recipe <span class="Identifier">has</span>-more-events? [ - <span class="Underlined">local</span>-scope - console:address<span class="Special"> <- </span>next-ingredient - { - break-unless console +<span class="muRecipe">recipe</span> has-more-events? [ + <span class="Constant">local-scope</span> + console:address<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + <span class="Delimiter">{</span> + <span class="muControl">break-unless</span> console <span class="Comment"># fake consoles should be plenty fast; never skip</span> - reply 0/false - } + <span class="muControl">reply</span> <span class="Constant">0/false</span> + <span class="Delimiter">}</span> result:boolean<span class="Special"> <- </span>interactions-left? - reply result + <span class="muControl">reply</span> result ] </pre> </body> |