diff options
Diffstat (limited to 'html/edit/009-sandbox-test.mu.html')
-rw-r--r-- | html/edit/009-sandbox-test.mu.html | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/html/edit/009-sandbox-test.mu.html b/html/edit/009-sandbox-test.mu.html index 5d8c0d2e..5d269e79 100644 --- a/html/edit/009-sandbox-test.mu.html +++ b/html/edit/009-sandbox-test.mu.html @@ -74,13 +74,13 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="Constant"> |]</span>| <span id="L13" class="LineNr"> 13 </span> ] <span id="L14" class="LineNr"> 14 </span> ] -<span id="L15" class="LineNr"> 15 </span> env:&:environment <span class="Special"><-</span> new-programming-environment resources, screen, <span class="Constant">[foo]</span> -<span id="L16" class="LineNr"> 16 </span> render-all screen, env, render +<span id="L15" class="LineNr"> 15 </span> env:&:environment <span class="Special"><-</span> <a href='004-programming-environment.mu.html#L21'>new-programming-environment</a> <a href='../088file.mu.html#L11'>resources</a>, <a href='../081print.mu.html#L16'>screen</a>, <span class="Constant">[foo]</span> +<span id="L16" class="LineNr"> 16 </span> <a href='004-programming-environment.mu.html#L402'>render-all</a> <a href='../081print.mu.html#L16'>screen</a>, env, <a href='001-editor.mu.html#L107'>render</a> <span id="L17" class="LineNr"> 17 </span> <span class="Comment"># run it</span> <span id="L18" class="LineNr"> 18 </span> assume-console [ <span id="L19" class="LineNr"> 19 </span> press F4 <span id="L20" class="LineNr"> 20 </span> ] -<span id="L21" class="LineNr"> 21 </span> event-loop screen, console, env, resources +<span id="L21" class="LineNr"> 21 </span> <a href='004-programming-environment.mu.html#L39'>event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, env, <a href='../088file.mu.html#L11'>resources</a> <span id="L22" class="LineNr"> 22 </span> screen-should-contain [ <span id="L23" class="LineNr"> 23 </span> <span class="Constant"> . run (F4) .</span> <span id="L24" class="LineNr"> 24 </span> <span class="Constant"> .recipe foo [ ╎ .</span> @@ -97,7 +97,7 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr"> 35 </span> left-click<span class="Constant"> 5</span>,<span class="Constant"> 51</span> <span id="L36" class="LineNr"> 36 </span> ] <span id="L37" class="LineNr"> 37 </span> run [ -<span id="L38" class="LineNr"> 38 </span> event-loop screen, console, env, resources +<span id="L38" class="LineNr"> 38 </span> <a href='004-programming-environment.mu.html#L39'>event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, env, <a href='../088file.mu.html#L11'>resources</a> <span id="L39" class="LineNr"> 39 </span> ] <span id="L40" class="LineNr"> 40 </span> <span class="Comment"># color toggles to green</span> <span id="L41" class="LineNr"> 41 </span> screen-should-contain-in-color <span class="Constant">2/green</span>, [ @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> <span class="Comment"># cursor should remain unmoved</span> <span id="L54" class="LineNr"> 54 </span> run [ <span id="L55" class="LineNr"> 55 </span> cursor:char <span class="Special"><-</span> copy <span class="Constant">9251/␣</span> -<span id="L56" class="LineNr"> 56 </span> print screen, cursor +<span id="L56" class="LineNr"> 56 </span> print <a href='../081print.mu.html#L16'>screen</a>, cursor <span id="L57" class="LineNr"> 57 </span> ] <span id="L58" class="LineNr"> 58 </span> screen-should-contain [ <span id="L59" class="LineNr"> 59 </span> <span class="Constant"> . run (F4) .</span> @@ -136,7 +136,7 @@ if ('onhashchange' in window) { <span id="L74" class="LineNr"> 74 </span> press F4 <span id="L75" class="LineNr"> 75 </span> ] <span id="L76" class="LineNr"> 76 </span> run [ -<span id="L77" class="LineNr"> 77 </span> event-loop screen, console, env, resources +<span id="L77" class="LineNr"> 77 </span> <a href='004-programming-environment.mu.html#L39'>event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, env, <a href='../088file.mu.html#L11'>resources</a> <span id="L78" class="LineNr"> 78 </span> ] <span id="L79" class="LineNr"> 79 </span> <span class="Comment"># result turns red</span> <span id="L80" class="LineNr"> 80 </span> screen-should-contain-in-color <span class="Constant">1/red</span>, [ @@ -158,26 +158,26 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span>] <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="Comment"># include expected response when saving or restoring a sandbox</span> -<span id="L99" class="LineNr"> 99 </span><span class="muRecipe">before</span> <span class="Constant"><end-save-sandbox></span> [ +<span id="L99" class="LineNr"> 99 </span><span class="muRecipe">before</span> <span class="Constant"><a href='005-sandbox.mu.html#L248'><end-save-sandbox></a></span> [ <span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span> expected-response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">expected-response:offset</span> <span id="L102" class="LineNr">102 </span> <span class="muControl">break-unless</span> expected-response <span id="L103" class="LineNr">103 </span> filename <span class="Special"><-</span> append filename, <span class="Constant">[.out]</span> -<span id="L104" class="LineNr">104 </span> resources <span class="Special"><-</span> dump resources, filename, expected-response +<span id="L104" class="LineNr">104 </span> <a href='../088file.mu.html#L11'>resources</a> <span class="Special"><-</span> <a href='../088file.mu.html#L127'>dump</a> <a href='../088file.mu.html#L11'>resources</a>, filename, expected-response <span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span>] <span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span><span class="muRecipe">before</span> <span class="Constant"><end-restore-sandbox></span> [ +<span id="L108" class="LineNr">108 </span><span class="muRecipe">before</span> <span class="Constant"><a href='005-sandbox.mu.html#L490'><end-restore-sandbox></a></span> [ <span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> <span id="L110" class="LineNr">110 </span> filename <span class="Special"><-</span> append filename, <span class="Constant">[.out]</span> -<span id="L111" class="LineNr">111 </span> contents <span class="Special"><-</span> slurp resources, filename +<span id="L111" class="LineNr">111 </span> contents <span class="Special"><-</span> <a href='../088file.mu.html#L38'>slurp</a> <a href='../088file.mu.html#L11'>resources</a>, filename <span id="L112" class="LineNr">112 </span> <span class="muControl">break-unless</span> contents <span id="L113" class="LineNr">113 </span> *curr <span class="Special"><-</span> put *curr, <span class="Constant">expected-response:offset</span>, contents <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> <span id="L115" class="LineNr">115 </span>] <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="Comment"># clicks on sandbox responses save it as 'expected'</span> -<span id="L118" class="LineNr">118 </span><span class="muRecipe">after</span> <span class="Constant"><global-touch></span> [ +<span id="L118" class="LineNr">118 </span><span class="muRecipe">after</span> <span class="Constant"><a href='004-programming-environment.mu.html#L81'><global-touch></a></span> [ <span id="L119" class="LineNr">119 </span> <span class="Comment"># check if it's inside the output of any sandbox</span> <span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> <span id="L121" class="LineNr">121 </span> sandbox-left-margin:num <span class="Special"><-</span> get *current-sandbox, <span class="Constant">left:offset</span> @@ -191,27 +191,27 @@ if ('onhashchange' in window) { <span id="L129" class="LineNr">129 </span> below-sandbox-editor?:bool <span class="Special"><-</span> greater-or-equal click-row, first-sandbox-begins <span id="L130" class="LineNr">130 </span> <span class="muControl">break-unless</span> below-sandbox-editor? <span id="L131" class="LineNr">131 </span> <span class="Comment"># identify the sandbox whose output is being clicked on</span> -<span id="L132" class="LineNr">132 </span> sandbox:&:sandbox, sandbox-index:num <span class="Special"><-</span> find-click-in-sandbox-output env, click-row +<span id="L132" class="LineNr">132 </span> sandbox:&:sandbox, sandbox-index:num <span class="Special"><-</span> <a href='009-sandbox-test.mu.html#L152'>find-click-in-sandbox-output</a> env, click-row <span id="L133" class="LineNr">133 </span> <span class="muControl">break-unless</span> sandbox <span id="L134" class="LineNr">134 </span> <span class="Comment"># update it</span> -<span id="L135" class="LineNr">135 </span> sandbox <span class="Special"><-</span> toggle-expected-response sandbox +<span id="L135" class="LineNr">135 </span> sandbox <span class="Special"><-</span> <a href='009-sandbox-test.mu.html#L180'>toggle-expected-response</a> sandbox <span id="L136" class="LineNr">136 </span> <span class="Comment"># minimal update to disk</span> -<span id="L137" class="LineNr">137 </span> save-sandbox resources, sandbox, sandbox-index +<span id="L137" class="LineNr">137 </span> <a href='005-sandbox.mu.html#L242'>save-sandbox</a> <a href='../088file.mu.html#L11'>resources</a>, sandbox, sandbox-index <span id="L138" class="LineNr">138 </span> <span class="Comment"># minimal update to screen</span> <span id="L139" class="LineNr">139 </span> sandbox-right-margin:num <span class="Special"><-</span> get *current-sandbox, <span class="Constant">right:offset</span> -<span id="L140" class="LineNr">140 </span> row:num <span class="Special"><-</span> render-sandbox-response screen, sandbox, sandbox-left-margin, sandbox-right-margin +<span id="L140" class="LineNr">140 </span> row:num <span class="Special"><-</span> <a href='009-sandbox-test.mu.html#L207'>render-sandbox-response</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox, sandbox-left-margin, sandbox-right-margin <span id="L141" class="LineNr">141 </span> <span class="Delimiter">{</span> -<span id="L142" class="LineNr">142 </span> height:num <span class="Special"><-</span> screen-height screen +<span id="L142" class="LineNr">142 </span> height:num <span class="Special"><-</span> <a href='../081print.mu.html#L782'>screen-height</a> <a href='../081print.mu.html#L16'>screen</a> <span id="L143" class="LineNr">143 </span> at-bottom?:bool <span class="Special"><-</span> greater-or-equal row, height <span id="L144" class="LineNr">144 </span> <span class="muControl">break-if</span> at-bottom? -<span id="L145" class="LineNr">145 </span> draw-horizontal screen, row, sandbox-left-margin, sandbox-right-margin +<span id="L145" class="LineNr">145 </span> <a href='002-typing.mu.html#L1116'>draw-horizontal</a> <a href='../081print.mu.html#L16'>screen</a>, row, sandbox-left-margin, sandbox-right-margin <span id="L146" class="LineNr">146 </span> <span class="Delimiter">}</span> -<span id="L147" class="LineNr">147 </span> screen <span class="Special"><-</span> update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +<span id="L147" class="LineNr">147 </span> <a href='../081print.mu.html#L16'>screen</a> <span class="Special"><-</span> <a href='004-programming-environment.mu.html#L472'>update-cursor</a> <a href='../081print.mu.html#L16'>screen</a>, recipes, current-sandbox, sandbox-in-focus?, env <span id="L148" class="LineNr">148 </span> <span class="muControl"> loop</span> <span class="Constant">+next-event</span> <span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> <span id="L150" class="LineNr">150 </span>] <span id="L151" class="LineNr">151 </span> -<span id="L152" class="LineNr">152 </span><span class="muRecipe">def</span> find-click-in-sandbox-output env:&:environment, click-row:num<span class="muRecipe"> -> </span>sandbox:&:sandbox, sandbox-index:num [ +<span id="L152" class="LineNr">152 </span><span class="muRecipe">def</span> <a href='009-sandbox-test.mu.html#L152'>find-click-in-sandbox-output</a> env:&:environment, click-row:num<span class="muRecipe"> -> </span>sandbox:&:sandbox, sandbox-index:num [ <span id="L153" class="LineNr">153 </span> <span class="Constant">local-scope</span> <span id="L154" class="LineNr">154 </span> <span class="Constant">load-inputs</span> <span id="L155" class="LineNr">155 </span> <span class="Comment"># assert click-row >= sandbox.starting-row-on-screen</span> @@ -239,7 +239,7 @@ if ('onhashchange' in window) { <span id="L177" class="LineNr">177 </span> <span class="muControl"> return</span> sandbox, sandbox-index <span id="L178" class="LineNr">178 </span>] <span id="L179" class="LineNr">179 </span> -<span id="L180" class="LineNr">180 </span><span class="muRecipe">def</span> toggle-expected-response sandbox:&:sandbox<span class="muRecipe"> -> </span>sandbox:&:sandbox [ +<span id="L180" class="LineNr">180 </span><span class="muRecipe">def</span> <a href='009-sandbox-test.mu.html#L180'>toggle-expected-response</a> sandbox:&:sandbox<span class="muRecipe"> -> </span>sandbox:&:sandbox [ <span id="L181" class="LineNr">181 </span> <span class="Constant">local-scope</span> <span id="L182" class="LineNr">182 </span> <span class="Constant">load-inputs</span> <span id="L183" class="LineNr">183 </span> expected-response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">expected-response:offset</span> @@ -257,16 +257,16 @@ if ('onhashchange' in window) { <span id="L195" class="LineNr">195 </span>] <span id="L196" class="LineNr">196 </span> <span id="L197" class="LineNr">197 </span><span class="Comment"># when rendering a sandbox, color it in red/green if expected response exists</span> -<span id="L198" class="LineNr">198 </span><span class="muRecipe">after</span> <span class="Constant"><render-sandbox-response></span> [ +<span id="L198" class="LineNr">198 </span><span class="muRecipe">after</span> <span class="Constant"><a href='005-sandbox.mu.html#L311'><render-sandbox-response></a></span> [ <span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> <span id="L200" class="LineNr">200 </span> <span class="muControl">break-unless</span> sandbox-response <span id="L201" class="LineNr">201 </span> *sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>, row -<span id="L202" class="LineNr">202 </span> row <span class="Special"><-</span> render-sandbox-response screen, sandbox, left, right +<span id="L202" class="LineNr">202 </span> row <span class="Special"><-</span> <a href='009-sandbox-test.mu.html#L207'>render-sandbox-response</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox, left, right <span id="L203" class="LineNr">203 </span> <span class="muControl"> jump</span> <span class="Constant">+render-sandbox-end</span> <span id="L204" class="LineNr">204 </span> <span class="Delimiter">}</span> <span id="L205" class="LineNr">205 </span>] <span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="muRecipe">def</span> render-sandbox-response screen:&:screen, sandbox:&:sandbox, left:num, right:num<span class="muRecipe"> -> </span>row:num, screen:&:screen [ +<span id="L207" class="LineNr">207 </span><span class="muRecipe">def</span> <a href='009-sandbox-test.mu.html#L207'>render-sandbox-response</a> <a href='../081print.mu.html#L16'>screen</a>:&:<a href='../081print.mu.html#L16'>screen</a>, sandbox:&:sandbox, left:num, right:num<span class="muRecipe"> -> </span>row:num, <a href='../081print.mu.html#L16'>screen</a>:&:<a href='../081print.mu.html#L16'>screen</a> [ <span id="L208" class="LineNr">208 </span> <span class="Constant">local-scope</span> <span id="L209" class="LineNr">209 </span> <span class="Constant">load-inputs</span> <span id="L210" class="LineNr">210 </span> sandbox-response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">response:offset</span> @@ -274,21 +274,21 @@ if ('onhashchange' in window) { <span id="L212" class="LineNr">212 </span> row:num <span class="Special"><-</span> get *sandbox <span class="Constant">response-starting-row-on-screen:offset</span> <span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> <span id="L214" class="LineNr">214 </span> <span class="muControl">break-if</span> expected-response -<span id="L215" class="LineNr">215 </span> row <span class="Special"><-</span> render-text screen, sandbox-response, left, right, <span class="Constant">245/grey</span>, row +<span id="L215" class="LineNr">215 </span> row <span class="Special"><-</span> <a href='005-sandbox.mu.html#L398'>render-text</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox-response, left, right, <span class="Constant">245/grey</span>, row <span id="L216" class="LineNr">216 </span> <span class="muControl"> return</span> <span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span> response-is-expected?:bool <span class="Special"><-</span> equal expected-response, sandbox-response <span id="L219" class="LineNr">219 </span> <span class="Delimiter">{</span> <span id="L220" class="LineNr">220 </span> <span class="muControl">break-if</span> response-is-expected? -<span id="L221" class="LineNr">221 </span> row <span class="Special"><-</span> render-text screen, sandbox-response, left, right, <span class="Constant">1/red</span>, row +<span id="L221" class="LineNr">221 </span> row <span class="Special"><-</span> <a href='005-sandbox.mu.html#L398'>render-text</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox-response, left, right, <span class="Constant">1/red</span>, row <span id="L222" class="LineNr">222 </span> <span class="Delimiter">}</span> <span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> <span id="L224" class="LineNr">224 </span> <span class="muControl">break-unless</span> response-is-expected?:bool -<span id="L225" class="LineNr">225 </span> row <span class="Special"><-</span> render-text screen, sandbox-response, left, right, <span class="Constant">2/green</span>, row +<span id="L225" class="LineNr">225 </span> row <span class="Special"><-</span> <a href='005-sandbox.mu.html#L398'>render-text</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox-response, left, right, <span class="Constant">2/green</span>, row <span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> <span id="L227" class="LineNr">227 </span>] <span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span><span class="muRecipe">before</span> <span class="Constant"><end-render-sandbox-reset-hidden></span> [ +<span id="L229" class="LineNr">229 </span><span class="muRecipe">before</span> <span class="Constant"><a href='005-sandbox.mu.html#L325'><end-render-sandbox-reset-hidden></a></span> [ <span id="L230" class="LineNr">230 </span> *sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>,<span class="Constant"> 0</span> <span id="L231" class="LineNr">231 </span>] </pre> |