diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-04-16 15:16:22 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-04-16 15:16:22 -0700 |
commit | b2a2dc9593bd8a06977830f228ee86bb80c6a36e (patch) | |
tree | 1c4a8f52d10b05a8988b1e9d6ed35b6738ff239c /html/edit/010-sandbox-trace.mu.html | |
parent | ace7ffb714ce5314c665f28945ee0f3f1664f9ca (diff) | |
download | mu-b2a2dc9593bd8a06977830f228ee86bb80c6a36e.tar.gz |
3825
Diffstat (limited to 'html/edit/010-sandbox-trace.mu.html')
-rw-r--r-- | html/edit/010-sandbox-trace.mu.html | 101 |
1 files changed, 49 insertions, 52 deletions
diff --git a/html/edit/010-sandbox-trace.mu.html b/html/edit/010-sandbox-trace.mu.html index a0aed43e..592e0a72 100644 --- a/html/edit/010-sandbox-trace.mu.html +++ b/html/edit/010-sandbox-trace.mu.html @@ -257,63 +257,60 @@ if ('onhashchange' in window) { <span id="L194" class="LineNr">194 </span> <span class="Conceal">¦</span> below-sandbox-editor?:bool <span class="Special"><-</span> greater-or-equal click-row, first-sandbox-begins <span id="L195" class="LineNr">195 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> below-sandbox-editor? <span id="L196" class="LineNr">196 </span> <span class="Conceal">¦</span> <span class="Comment"># identify the sandbox whose code is being clicked on</span> -<span id="L197" class="LineNr">197 </span> <span class="Conceal">¦</span> sandbox:&:sandbox <span class="Special"><-</span> <a href='010-sandbox-trace.mu.html#L212'>find-click-in-sandbox-code</a> env, click-row +<span id="L197" class="LineNr">197 </span> <span class="Conceal">¦</span> sandbox:&:sandbox <span class="Special"><-</span> <a href='010-sandbox-trace.mu.html#L209'>find-click-in-sandbox-code</a> env, click-row <span id="L198" class="LineNr">198 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> sandbox <span id="L199" class="LineNr">199 </span> <span class="Conceal">¦</span> <span class="Comment"># toggle its display-trace? property</span> <span id="L200" class="LineNr">200 </span> <span class="Conceal">¦</span> x:bool <span class="Special"><-</span> get *sandbox, <span class="Constant">display-trace?:offset</span> <span id="L201" class="LineNr">201 </span> <span class="Conceal">¦</span> x <span class="Special"><-</span> not x <span id="L202" class="LineNr">202 </span> <span class="Conceal">¦</span> *sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">display-trace?:offset</span>, x -<span id="L203" class="LineNr">203 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L623'>hide-screen</a> <a href='../081print.mu.html#L4'>screen</a> -<span id="L204" class="LineNr">204 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> render-sandbox-side <a href='../081print.mu.html#L4'>screen</a>, env, <a href='001-editor.mu.html#L123'>render</a> -<span id="L205" class="LineNr">205 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> <a href='004-programming-environment.mu.html#L500'>update-cursor</a> <a href='../081print.mu.html#L4'>screen</a>, recipes, current-sandbox, sandbox-in-focus?, env -<span id="L206" class="LineNr">206 </span> <span class="Conceal">¦</span> <span class="Comment"># no change in cursor</span> -<span id="L207" class="LineNr">207 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L631'>show-screen</a> <a href='../081print.mu.html#L4'>screen</a> -<span id="L208" class="LineNr">208 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span class="Constant">+next-event</span> -<span id="L209" class="LineNr">209 </span> <span class="Delimiter">}</span> -<span id="L210" class="LineNr">210 </span>] -<span id="L211" class="LineNr">211 </span> -<span id="L212" class="LineNr">212 </span><span class="muRecipe">def</span> <a href='010-sandbox-trace.mu.html#L212'>find-click-in-sandbox-code</a> env:&:environment, click-row:num<span class="muRecipe"> -> </span>sandbox:&:sandbox [ -<span id="L213" class="LineNr">213 </span> <span class="Constant">local-scope</span> -<span id="L214" class="LineNr">214 </span> <span class="Constant">load-ingredients</span> -<span id="L215" class="LineNr">215 </span> <span class="Comment"># assert click-row >= sandbox.starting-row-on-screen</span> -<span id="L216" class="LineNr">216 </span> sandbox <span class="Special"><-</span> get *env, <span class="Constant">sandbox:offset</span> -<span id="L217" class="LineNr">217 </span> start:num <span class="Special"><-</span> get *sandbox, <span class="Constant">starting-row-on-screen:offset</span> -<span id="L218" class="LineNr">218 </span> clicked-on-sandboxes?:bool <span class="Special"><-</span> greater-or-equal click-row, start -<span id="L219" class="LineNr">219 </span> assert clicked-on-sandboxes?, <span class="Constant">[extract-sandbox called on click to sandbox editor]</span> -<span id="L220" class="LineNr">220 </span> <span class="Comment"># while click-row < sandbox.next-sandbox.starting-row-on-screen</span> -<span id="L221" class="LineNr">221 </span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr">222 </span> <span class="Conceal">¦</span> next-sandbox:&:sandbox <span class="Special"><-</span> get *sandbox, <span class="Constant">next-sandbox:offset</span> -<span id="L223" class="LineNr">223 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> next-sandbox -<span id="L224" class="LineNr">224 </span> <span class="Conceal">¦</span> next-start:num <span class="Special"><-</span> get *next-sandbox, <span class="Constant">starting-row-on-screen:offset</span> -<span id="L225" class="LineNr">225 </span> <span class="Conceal">¦</span> found?:bool <span class="Special"><-</span> lesser-than click-row, next-start -<span id="L226" class="LineNr">226 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> found? -<span id="L227" class="LineNr">227 </span> <span class="Conceal">¦</span> sandbox <span class="Special"><-</span> copy next-sandbox -<span id="L228" class="LineNr">228 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L229" class="LineNr">229 </span> <span class="Delimiter">}</span> -<span id="L230" class="LineNr">230 </span> <span class="Comment"># return sandbox if click is in its code region</span> -<span id="L231" class="LineNr">231 </span> code-ending-row:num <span class="Special"><-</span> get *sandbox, <span class="Constant">code-ending-row-on-screen:offset</span> -<span id="L232" class="LineNr">232 </span> click-above-response?:bool <span class="Special"><-</span> lesser-than click-row, code-ending-row -<span id="L233" class="LineNr">233 </span> start:num <span class="Special"><-</span> get *sandbox, <span class="Constant">starting-row-on-screen:offset</span> -<span id="L234" class="LineNr">234 </span> click-below-menu?:bool <span class="Special"><-</span> greater-than click-row, start -<span id="L235" class="LineNr">235 </span> click-on-sandbox-code?:bool <span class="Special"><-</span> and click-above-response?, click-below-menu? -<span id="L236" class="LineNr">236 </span> <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> click-on-sandbox-code? -<span id="L238" class="LineNr">238 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/no-click-in-sandbox-output</span> -<span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> -<span id="L240" class="LineNr">240 </span> <span class="muControl">return</span> sandbox -<span id="L241" class="LineNr">241 </span>] -<span id="L242" class="LineNr">242 </span> -<span id="L243" class="LineNr">243 </span><span class="Comment"># when rendering a sandbox, dump its trace before response/warning if display-trace? property is set</span> -<span id="L244" class="LineNr">244 </span><span class="muRecipe">after</span> <span class="Constant"><a href='005-sandbox.mu.html#L288'><render-sandbox-results></a></span> [ -<span id="L245" class="LineNr">245 </span> <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> <span class="Conceal">¦</span> display-trace?:bool <span class="Special"><-</span> get *sandbox, <span class="Constant">display-trace?:offset</span> -<span id="L247" class="LineNr">247 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> display-trace? -<span id="L248" class="LineNr">248 </span> <span class="Conceal">¦</span> sandbox-trace:text <span class="Special"><-</span> get *sandbox, <span class="Constant">trace:offset</span> -<span id="L249" class="LineNr">249 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> sandbox-trace <span class="Comment"># nothing to print; move on</span> -<span id="L250" class="LineNr">250 </span> <span class="Conceal">¦</span> row, <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> <a href='005-sandbox.mu.html#L361'>render-text</a> <a href='../081print.mu.html#L4'>screen</a>, sandbox-trace, left, right, <span class="Constant">245/grey</span>, row -<span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> -<span id="L252" class="LineNr">252 </span><span class="Constant"> <a href='010-sandbox-trace.mu.html#L252'><render-sandbox-trace-done></a></span> -<span id="L253" class="LineNr">253 </span>] +<span id="L203" class="LineNr">203 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> render-sandbox-side <a href='../081print.mu.html#L4'>screen</a>, env, <a href='001-editor.mu.html#L121'>render</a> +<span id="L204" class="LineNr">204 </span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> <a href='004-programming-environment.mu.html#L495'>update-cursor</a> <a href='../081print.mu.html#L4'>screen</a>, recipes, current-sandbox, sandbox-in-focus?, env +<span id="L205" class="LineNr">205 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span class="Constant">+next-event</span> +<span id="L206" class="LineNr">206 </span> <span class="Delimiter">}</span> +<span id="L207" class="LineNr">207 </span>] +<span id="L208" class="LineNr">208 </span> +<span id="L209" class="LineNr">209 </span><span class="muRecipe">def</span> <a href='010-sandbox-trace.mu.html#L209'>find-click-in-sandbox-code</a> env:&:environment, click-row:num<span class="muRecipe"> -> </span>sandbox:&:sandbox [ +<span id="L210" class="LineNr">210 </span> <span class="Constant">local-scope</span> +<span id="L211" class="LineNr">211 </span> <span class="Constant">load-ingredients</span> +<span id="L212" class="LineNr">212 </span> <span class="Comment"># assert click-row >= sandbox.starting-row-on-screen</span> +<span id="L213" class="LineNr">213 </span> sandbox <span class="Special"><-</span> get *env, <span class="Constant">sandbox:offset</span> +<span id="L214" class="LineNr">214 </span> start:num <span class="Special"><-</span> get *sandbox, <span class="Constant">starting-row-on-screen:offset</span> +<span id="L215" class="LineNr">215 </span> clicked-on-sandboxes?:bool <span class="Special"><-</span> greater-or-equal click-row, start +<span id="L216" class="LineNr">216 </span> assert clicked-on-sandboxes?, <span class="Constant">[extract-sandbox called on click to sandbox editor]</span> +<span id="L217" class="LineNr">217 </span> <span class="Comment"># while click-row < sandbox.next-sandbox.starting-row-on-screen</span> +<span id="L218" class="LineNr">218 </span> <span class="Delimiter">{</span> +<span id="L219" class="LineNr">219 </span> <span class="Conceal">¦</span> next-sandbox:&:sandbox <span class="Special"><-</span> get *sandbox, <span class="Constant">next-sandbox:offset</span> +<span id="L220" class="LineNr">220 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> next-sandbox +<span id="L221" class="LineNr">221 </span> <span class="Conceal">¦</span> next-start:num <span class="Special"><-</span> get *next-sandbox, <span class="Constant">starting-row-on-screen:offset</span> +<span id="L222" class="LineNr">222 </span> <span class="Conceal">¦</span> found?:bool <span class="Special"><-</span> lesser-than click-row, next-start +<span id="L223" class="LineNr">223 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> found? +<span id="L224" class="LineNr">224 </span> <span class="Conceal">¦</span> sandbox <span class="Special"><-</span> copy next-sandbox +<span id="L225" class="LineNr">225 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> +<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span> <span class="Comment"># return sandbox if click is in its code region</span> +<span id="L228" class="LineNr">228 </span> code-ending-row:num <span class="Special"><-</span> get *sandbox, <span class="Constant">code-ending-row-on-screen:offset</span> +<span id="L229" class="LineNr">229 </span> click-above-response?:bool <span class="Special"><-</span> lesser-than click-row, code-ending-row +<span id="L230" class="LineNr">230 </span> start:num <span class="Special"><-</span> get *sandbox, <span class="Constant">starting-row-on-screen:offset</span> +<span id="L231" class="LineNr">231 </span> click-below-menu?:bool <span class="Special"><-</span> greater-than click-row, start +<span id="L232" class="LineNr">232 </span> click-on-sandbox-code?:bool <span class="Special"><-</span> and click-above-response?, click-below-menu? +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">{</span> +<span id="L234" class="LineNr">234 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> click-on-sandbox-code? +<span id="L235" class="LineNr">235 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/no-click-in-sandbox-output</span> +<span id="L236" class="LineNr">236 </span> <span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span> <span class="muControl">return</span> sandbox +<span id="L238" class="LineNr">238 </span>] +<span id="L239" class="LineNr">239 </span> +<span id="L240" class="LineNr">240 </span><span class="Comment"># when rendering a sandbox, dump its trace before response/warning if display-trace? property is set</span> +<span id="L241" class="LineNr">241 </span><span class="muRecipe">after</span> <span class="Constant"><a href='005-sandbox.mu.html#L288'><render-sandbox-results></a></span> [ +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> <span class="Conceal">¦</span> display-trace?:bool <span class="Special"><-</span> get *sandbox, <span class="Constant">display-trace?:offset</span> +<span id="L244" class="LineNr">244 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> display-trace? +<span id="L245" class="LineNr">245 </span> <span class="Conceal">¦</span> sandbox-trace:text <span class="Special"><-</span> get *sandbox, <span class="Constant">trace:offset</span> +<span id="L246" class="LineNr">246 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> sandbox-trace <span class="Comment"># nothing to print; move on</span> +<span id="L247" class="LineNr">247 </span> <span class="Conceal">¦</span> row, <a href='../081print.mu.html#L4'>screen</a> <span class="Special"><-</span> <a href='005-sandbox.mu.html#L361'>render-text</a> <a href='../081print.mu.html#L4'>screen</a>, sandbox-trace, left, right, <span class="Constant">245/grey</span>, row +<span id="L248" class="LineNr">248 </span> <span class="Delimiter">}</span> +<span id="L249" class="LineNr">249 </span><span class="Constant"> <a href='010-sandbox-trace.mu.html#L249'><render-sandbox-trace-done></a></span> +<span id="L250" class="LineNr">250 </span>] </pre> </body> </html> |