3426 - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

author	Kartik K. Agaram <vc@akkartik.com>	2016-09-27 14:50:50 -0700
committer	Kartik K. Agaram <vc@akkartik.com>	2016-09-27 14:50:50 -0700
commit	b1624806eb5664cc9915e615a3428d9049b1533f (patch)
tree	53b393548c8faeed0f27647addd657f200f5528e /html/fork.png
parent	4d0502ad9d7b2d303bd1d059f52cd7cca12c2d24 (diff)
download	mu-b1624806eb5664cc9915e615a3428d9049b1533f.tar.gz

3426

Diffstat (limited to 'html/fork.png')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - edit/010-sandbox-trace.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> 1 ## clicking on the code typed into a sandbox toggles its trace 2 3 scenario sandbox-click-on-code-toggles-app-trace [ 4 local-scope 5 trace-until 100/app # trace too long 6 assume-screen 100/width, 10/height 7 # basic recipe 8 assume-resources [ 9 ¦ [lesson/recipes.mu] <- [ 10 ¦ ¦ |recipe foo [| 11 ¦ ¦ | stash [abc]| 12 ¦ ¦ |]| 13 ¦ ] 14 ] 15 env:&:environment <- <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>, [foo] 16 <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> 17 # run it 18 assume-console [ 19 ¦ press F4 20 ] 21 <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> 22 screen-should-contain [ 23 ¦ . run (F4) . 24 ¦ .recipe foo [ ╎ . 25 ¦ . stash [abc] ╎─────────────────────────────────────────────────. 26 ¦ .] ╎0 edit copy to recipe delete . 27 ¦ . ╎foo . 28 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────. 29 ¦ . ╎ . 30 ] 31 # click on the code in the sandbox 32 assume-console [ 33 ¦ left-click 4, 51 34 ] 35 run [ 36 ¦ <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> 37 ¦ cursor:char <- copy 9251/␣ 38 ¦ print <a href='../081print.mu.html#L16'>screen</a>, cursor 39 ] 40 # trace now printed and cursor shouldn't have budged 41 screen-should-contain [ 42 ¦ . run (F4) . 43 ¦ .␣ecipe foo [ ╎ . 44 ¦ . stash [abc] ╎─────────────────────────────────────────────────. 45 ¦ .] ╎0 edit copy to recipe delete . 46 ¦ . ╎foo . 47 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎abc . 48 ] 49 screen-should-contain-in-color 245/grey, [ 50 ¦ . . 51 ¦ . ╎ . 52 ¦ . ╎─────────────────────────────────────────────────. 53 ¦ . ╎ . 54 ¦ . ╎ . 55 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎abc . 56 ] 57 # click again on the same region 58 assume-console [ 59 ¦ left-click 4, 55 60 ] 61 run [ 62 ¦ <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> 63 ¦ print <a href='../081print.mu.html#L16'>screen</a>, cursor 64 ] 65 # trace hidden again 66 screen-should-contain [ 67 ¦ . run (F4) . 68 ¦ .␣ecipe foo [ ╎ . 69 ¦ . stash [abc] ╎─────────────────────────────────────────────────. 70 ¦ .] ╎0 edit copy to recipe delete . 71 ¦ . ╎foo . 72 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────. 73 ¦ . ╎ . 74 ] 75 ] 76 77 scenario sandbox-shows-app-trace-and-result [ 78 local-scope 79 trace-until 100/app # trace too long 80 assume-screen 100/width, 10/height 81 # basic recipe 82 assume-resources [ 83 ¦ [lesson/recipes.mu] <- [ 84 ¦ ¦ |recipe foo [| 85 ¦ ¦ | stash [abc]| 86 ¦ ¦ | reply 4| 87 ¦ ¦ |]| 88 ¦ ] 89 ] 90 env:&:environment <- <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>, [foo] 91 <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> 92 # run it 93 assume-console [ 94 ¦ press F4 95 ] 96 <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> 97 screen-should-contain [ 98 ¦ . run (F4) . 99 ¦ .recipe foo [ ╎ . 100 ¦ . stash [abc] ╎─────────────────────────────────────────────────. 101 ¦ . reply 4 ╎0 edit copy to recipe delete . 102 ¦ .] ╎foo . 103 ¦ . ╎4 . 104 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────. 105 ¦ . ╎ . 106 ] 107 # click on the code in the sandbox 108 assume-console [ 109 ¦ left-click 4, 51 110 ] 111 run [ 112 ¦ <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> 113 ] 114 # trace now printed above result 115 screen-should-contain [ 116 ¦ . run (F4) . 117 ¦ .recipe foo [ ╎ . 118 ¦ . stash [abc] ╎─────────────────────────────────────────────────. 119 ¦ . reply 4 ╎0 edit copy to recipe delete . 120 ¦ .] ╎foo . 121 ¦ . ╎abc . 122 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎8 instructions run . 123 ¦ . ╎4 . 124 ¦ . ╎─────────────────────────────────────────────────. 125 ¦ . ╎ . 126 ] 127 ] 128 129 scenario clicking-on-app-trace-does-nothing [ 130 local-scope 131 trace-until 100/app # trace too long 132 assume-screen 100/width, 10/height 133 assume-resources [ 134 ] 135 env:&:environment <- <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>, [stash 123456789] 136 <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> 137 # create and expand the trace 138 assume-console [ 139 ¦ press F4 140 ¦ left-click 4, 51 141 ] 142 <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> 143 screen-should-contain [ 144 ¦ . run (F4) . 145 ¦ . ╎ . 146 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────. 147 ¦ . ╎0 edit copy to recipe delete . 148 ¦ . ╎stash 123456789 . 149 ¦ . ╎123456789 . 150 ] 151 # click on the stash under the edit-button region (or any of the other buttons, really) 152 assume-console [ 153 ¦ left-click 5, 57 154 ] 155 run [ 156 ¦ <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> 157 ] 158 # no change; doesn't die 159 screen-should-contain [ 160 ¦ . run (F4) . 161 ¦ . ╎ . 162 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────. 163 ¦ . ╎0 edit copy to recipe delete . 164 ¦ . ╎stash 123456789 . 165 ¦ . ╎123456789 . 166 ] 167 ] 168 169 container sandbox [ 170 trace:text 171 display-trace?:bool 172 ] 173 174 # replaced in a later layer 175 def! update-sandbox sandbox:&:sandbox, env:&:environment, idx:num -> sandbox:&:sandbox, env:&:environment [ 176 local-scope 177 load-ingredients 178 data:text <- get *sandbox, data:offset 179 response:text, _, fake-screen:&:<a href='../081print.mu.html#L16'>screen</a>, trace:text <- run-sandboxed data 180 *sandbox <- put *sandbox, response:offset, response 181 *sandbox <- put *sandbox, <a href='../081print.mu.html#L16'>screen</a>:offset, fake-screen 182 *sandbox <- put *sandbox, trace:offset, trace 183 ] 184 185 # clicks on sandbox code toggle its display-trace? flag 186 after <a href='004-programming-environment.mu.html#L81'><global-touch></a> [ 187 # check if it's inside the code of any sandbox 188 { 189 ¦ sandbox-left-margin:num <- get *current-sandbox, left:offset 190 ¦ click-column:num <- get t, column:offset 191 ¦ on-sandbox-side?:bool <- greater-or-equal click-column, sandbox-left-margin 192 ¦ break-unless on-sandbox-side? 193 ¦ first-sandbox:&:sandbox <- get *env, sandbox:offset 194 ¦ break-unless first-sandbox 195 ¦ first-sandbox-begins:num <- get *first-sandbox, starting-row-on-screen:offset 196 ¦ click-row:num <- get t, row:offset 197 ¦ below-sandbox-editor?:bool <- greater-or-equal click-row, first-sandbox-begins 198 ¦ break-unless below-sandbox-editor? 199 ¦ # identify the sandbox whose code is being clicked on 200 ¦ sandbox:&:sandbox <- <a href='010-sandbox-trace.mu.html#L212'>find-click-in-sandbox-code</a> env, click-row 201 ¦ break-unless sandbox 202 ¦ # toggle its display-trace? property 203 ¦ x:bool <- get *sandbox, display-trace?:offset 204 ¦ x <- not x 205 ¦ *sandbox <- put *sandbox, display-trace?:offset, x 206 ¦ <a href='../081print.mu.html#L16'>screen</a> <- render-sandbox-side <a href='../081print.mu.html#L16'>screen</a>, env, <a href='001-editor.mu.html#L107'>render</a> 207 ¦ <a href='../081print.mu.html#L16'>screen</a> <- <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 208 ¦ loop +next-event 209 } 210 ] 211 212 def <a href='010-sandbox-trace.mu.html#L212'>find-click-in-sandbox-code</a> env:&:environment, click-row:num -> sandbox:&:sandbox [ 213 local-scope 214 load-ingredients 215 # assert click-row >= sandbox.starting-row-on-screen 216 sandbox <- get *env, sandbox:offset 217 start:num <- get *sandbox, starting-row-on-screen:offset 218 clicked-on-sandboxes?:bool <- greater-or-equal click-row, start 219 assert clicked-on-sandboxes?, [extract-sandbox called on click to sandbox editor] 220 # while click-row < sandbox.next-sandbox.starting-row-on-screen 221 { 222 ¦ next-sandbox:&:sandbox <- get *sandbox, next-sandbox:offset 223 ¦ break-unless next-sandbox 224 ¦ next-start:num <- get *next-sandbox, starting-row-on-screen:offset 225 ¦ found?:bool <- lesser-than click-row, next-start 226 ¦ break-if found? 227 ¦ sandbox <- copy next-sandbox 228 ¦ loop 229 } 230 # return sandbox if click is in its code region 231 code-ending-row:num <- get *sandbox, code-ending-row-on-screen:offset 232 click-above-response?:bool <- lesser-than click-row, code-ending-row 233 start:num <- get *sandbox, starting-row-on-screen:offset 234 click-below-menu?:bool <- greater-than click-row, start 235 click-on-sandbox-code?:bool <- and click-above-response?, click-below-menu? 236 { 237 ¦ break-if click-on-sandbox-code? 238 ¦ return 0/no-click-in-sandbox-output 239 } 240 return sandbox 241 ] 242 243 # when rendering a sandbox, dump its trace before response/warning if display-trace? property is set 244 after <a href='005-sandbox.mu.html#L302'><render-sandbox-results></a> [ 245 { 246 ¦ display-trace?:bool <- get *sandbox, display-trace?:offset 247 ¦ break-unless display-trace? 248 ¦ sandbox-trace:text <- get *sandbox, trace:offset 249 ¦ break-unless sandbox-trace # nothing to print; move on 250 ¦ row, <a href='../081print.mu.html#L16'>screen</a> <- <a href='005-sandbox.mu.html#L398'>render-text</a> <a href='../081print.mu.html#L16'>screen</a>, sandbox-trace, left, right, 245/grey, row 251 } 252 <a href='010-sandbox-trace.mu.html#L252'><render-sandbox-trace-done></a> 253 ] </pre> </body> </html>


context:
space:
mode: