From b301e0c0e6b54dceecbe4ee1ef8f610411015c30 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 27 Jan 2018 00:28:51 -0800 Subject: 4200 Forgot to set up exuberant_ctags_rc as .ctags on new laptop. --- html/edit/011-errors.mu.html | 170 +++++++++++++++++++++---------------------- 1 file changed, 85 insertions(+), 85 deletions(-) (limited to 'html/edit/011-errors.mu.html') diff --git a/html/edit/011-errors.mu.html b/html/edit/011-errors.mu.html index 9293cd49..87eb218a 100644 --- a/html/edit/011-errors.mu.html +++ b/html/edit/011-errors.mu.html @@ -67,41 +67,41 @@ if ('onhashchange' in window) { 5 ] 6 7 # copy code from recipe editor, persist to disk, load, save any errors - 8 def! update-recipes env:&:environment, resources:&:resources, screen:&:screen -> errors-found?:bool, env:&:environment, resources:&:resources, screen:&:screen [ + 8 def! update-recipes env:&:environment, resources:&:resources, screen:&:screen -> errors-found?:bool, env:&:environment, resources:&:resources, screen:&:screen [ 9 local-scope 10 load-inputs 11 recipes:&:editor <- get *env, recipes:offset - 12 in:text <- editor-contents recipes - 13 resources <- dump resources, [lesson/recipes.mu], in + 12 in:text <- editor-contents recipes + 13 resources <- dump resources, [lesson/recipes.mu], in 14 recipe-errors:text <- reload in 15 *env <- put *env, recipe-errors:offset, recipe-errors 16 # if recipe editor has errors, stop 17 { 18 break-unless recipe-errors - 19 update-status screen, [errors found ], 1/red + 19 update-status screen, [errors found ], 1/red 20 errors-found? <- copy 1/true 21 return 22 } 23 errors-found? <- copy 0/false 24 ] 25 - 26 after <begin-run-sandboxes-on-F4> [ + 26 after <begin-run-sandboxes-on-F4> [ 27 old-recipe-errors:text <- get *env, recipe-errors:offset 28 ] - 29 before <end-run-sandboxes-on-F4> [ + 29 before <end-run-sandboxes-on-F4> [ 30 # if there were recipe errors before, check if we can clear them 31 { 32 break-unless old-recipe-errors - 33 screen <- render-recipes screen, env, render + 33 screen <- render-recipes screen, env, render 34 } - 35 screen <- render-recipe-errors env, screen + 35 screen <- render-recipe-errors env, screen 36 ] 37 - 38 before <end-render-recipe-components> [ - 39 screen <- render-recipe-errors env, screen + 38 before <end-render-recipe-components> [ + 39 screen <- render-recipe-errors env, screen 40 ] 41 - 42 def render-recipe-errors env:&:environment, screen:&:screen -> screen:&:screen [ + 42 def render-recipe-errors env:&:environment, screen:&:screen -> screen:&:screen [ 43 local-scope 44 load-inputs 45 recipe-errors:text <- get *env, recipe-errors:offset @@ -110,26 +110,26 @@ if ('onhashchange' in window) { 48 left:num <- get *recipes, left:offset 49 right:num <- get *recipes, right:offset 50 row:num <- get *recipes, bottom:offset - 51 row, screen <- render-text screen, recipe-errors, left, right, 1/red, row + 51 row, screen <- render-text screen, recipe-errors, left, right, 1/red, row 52 # draw dotted line after recipes - 53 draw-horizontal screen, row, left, right, 9480/horizontal-dotted + 53 draw-horizontal screen, row, left, right, 9480/horizontal-dotted 54 row <- add row, 1 - 55 clear-screen-from screen, row, left, left, right + 55 clear-screen-from screen, row, left, left, right 56 ] 57 58 container environment [ 59 error-index:num # index of first sandbox with an error (or -1 if none) 60 ] 61 - 62 after <programming-environment-initialization> [ + 62 after <programming-environment-initialization> [ 63 *result <- put *result, error-index:offset, -1 64 ] 65 - 66 after <begin-run-sandboxes> [ + 66 after <begin-run-sandboxes> [ 67 *env <- put *env, error-index:offset, -1 68 ] 69 - 70 before <end-run-sandboxes> [ + 70 before <end-run-sandboxes> [ 71 { 72 error-index:num <- get *env, error-index:offset 73 sandboxes-completed-successfully?:bool <- equal error-index, -1 @@ -138,7 +138,7 @@ if ('onhashchange' in window) { 76 } 77 ] 78 - 79 before <end-run-sandboxes-on-F4> [ + 79 before <end-run-sandboxes-on-F4> [ 80 { 81 break-unless error? 82 recipe-errors:text <- get *env, recipe-errors:offset @@ -147,8 +147,8 @@ if ('onhashchange' in window) { 85 sandboxes-completed-successfully?:bool <- equal error-index, -1 86 break-if sandboxes-completed-successfully? 87 error-index-text:text <- to-text error-index - 88 status:text <- interpolate [errors found (_) ], error-index-text - 89 update-status screen, status, 1/red + 88 status:text <- interpolate [errors found (_) ], error-index-text + 89 update-status screen, status, 1/red 90 } 91 ] 92 @@ -160,10 +160,10 @@ if ('onhashchange' in window) { 98 local-scope 99 load-inputs 100 data:text <- get *sandbox, data:offset -101 response:text, errors:text, fake-screen:&:screen, trace:text, completed?:bool <- run-sandboxed data +101 response:text, errors:text, fake-screen:&:screen, trace:text, completed?:bool <- run-sandboxed data 102 *sandbox <- put *sandbox, response:offset, response 103 *sandbox <- put *sandbox, errors:offset, errors -104 *sandbox <- put *sandbox, screen:offset, fake-screen +104 *sandbox <- put *sandbox, screen:offset, fake-screen 105 *sandbox <- put *sandbox, trace:offset, trace 106 { 107 break-if errors @@ -182,12 +182,12 @@ if ('onhashchange' in window) { 120 ] 121 122 # make sure we render any trace -123 after <render-sandbox-trace-done> [ +123 after <render-sandbox-trace-done> [ 124 { 125 sandbox-errors:text <- get *sandbox, errors:offset 126 break-unless sandbox-errors 127 *sandbox <- put *sandbox, response-starting-row-on-screen:offset, 0 # no response -128 row, screen <- render-text screen, sandbox-errors, left, right, 1/red, row +128 row, screen <- render-text screen, sandbox-errors, left, right, 1/red, row 129 # don't try to print anything more for this sandbox 130 jump +render-sandbox-end 131 } @@ -204,8 +204,8 @@ if ('onhashchange' in window) { 142 |]| 143 ] 144 ] -145 env:&:environment <- new-programming-environment resources, screen, [foo] -146 render-all screen, env, render +145 env:&:environment <- new-programming-environment resources, screen, [foo] +146 render-all screen, env, render 147 screen-should-contain [ 148 . run (F4) . 149 .recipe foo [ ╎foo . @@ -219,7 +219,7 @@ if ('onhashchange' in window) { 157 press F4 158 ] 159 run [ -160 event-loop screen, console, env, resources +160 event-loop screen, console, env, resources 161 ] 162 screen-should-contain [ 163 . errors found run (F4) . @@ -250,8 +250,8 @@ if ('onhashchange' in window) { 188 assume-screen 100/width, 15/height 189 assume-resources [ 190 ] -191 env:&:environment <- new-programming-environment resources, screen, [] -192 render-all screen, env, render +191 env:&:environment <- new-programming-environment resources, screen, [] +192 render-all screen, env, render 193 assume-console [ 194 left-click 3, 80 195 # create invalid sandbox 1 @@ -262,7 +262,7 @@ if ('onhashchange' in window) { 200 press F4 201 ] 202 run [ -203 event-loop screen, console, env, resources +203 event-loop screen, console, env, resources 204 ] 205 # status line shows that error is in first sandbox 206 screen-should-contain [ @@ -276,8 +276,8 @@ if ('onhashchange' in window) { 214 assume-screen 100/width, 15/height 215 assume-resources [ 216 ] -217 env:&:environment <- new-programming-environment resources, screen, [] -218 render-all screen, env, render +217 env:&:environment <- new-programming-environment resources, screen, [] +218 render-all screen, env, render 219 assume-console [ 220 left-click 3, 80 221 # create invalid sandbox 2 @@ -291,7 +291,7 @@ if ('onhashchange' in window) { 229 press F4 230 ] 231 run [ -232 event-loop screen, console, env, resources +232 event-loop screen, console, env, resources 233 ] 234 # status line shows that error is in second sandbox 235 screen-should-contain [ @@ -305,12 +305,12 @@ if ('onhashchange' in window) { 243 assume-screen 100/width, 15/height 244 assume-resources [ 245 ] -246 env:&:environment <- new-programming-environment resources, screen, [get foo, x:offset] # invalid -247 render-all screen, env, render +246 env:&:environment <- new-programming-environment resources, screen, [get foo, x:offset] # invalid +247 render-all screen, env, render 248 assume-console [ 249 press F4 # generate error 250 ] -251 event-loop screen, console, env, resources +251 event-loop screen, console, env, resources 252 assume-console [ 253 left-click 3, 58 254 press ctrl-k @@ -318,7 +318,7 @@ if ('onhashchange' in window) { 256 press F4 # update sandbox 257 ] 258 run [ -259 event-loop screen, console, env, resources +259 event-loop screen, console, env, resources 260 ] 261 # error should disappear 262 screen-should-contain [ @@ -348,12 +348,12 @@ if ('onhashchange' in window) { 286 |]| 287 ] 288 ] -289 env:&:environment <- new-programming-environment resources, screen, [foo 2] -290 render-all screen, env, render +289 env:&:environment <- new-programming-environment resources, screen, [foo 2] +290 render-all screen, env, render 291 assume-console [ 292 press F4 293 ] -294 event-loop screen, console, env, resources +294 event-loop screen, console, env, resources 295 screen-should-contain [ 296 . errors found (0) run (F4) . 297 .recipe foo x:_elem -> z:_elem [ ╎ . @@ -371,7 +371,7 @@ if ('onhashchange' in window) { 309 press F4 310 ] 311 run [ -312 event-loop screen, console, env, resources +312 event-loop screen, console, env, resources 313 ] 314 # error should remain unchanged 315 screen-should-contain [ @@ -395,20 +395,20 @@ if ('onhashchange' in window) { 333 # overload a well-known shape-shifting recipe 334 assume-resources [ 335 [lesson/recipes.mu] <- [ -336 |recipe length l:&:list:_elem -> n:num [| +336 |recipe length l:&:list:_elem -> n:num [| 337 |]| 338 ] 339 ] 340 # call code that uses other variants of it, but not it itself -341 test-sandbox:text <- new [x:&:list:num <- copy 0 +341 test-sandbox:text <- new [x:&:list:num <- copy 0 342 to-text x] -343 env:&:environment <- new-programming-environment resources, screen, test-sandbox -344 render-all screen, env, render +343 env:&:environment <- new-programming-environment resources, screen, test-sandbox +344 render-all screen, env, render 345 # run it once 346 assume-console [ 347 press F4 348 ] -349 event-loop screen, console, env, resources +349 event-loop screen, console, env, resources 350 # no errors anywhere on screen (can't check anything else, since to-text will return an address) 351 screen-should-contain-in-color 1/red, [ 352 . . @@ -432,7 +432,7 @@ if ('onhashchange' in window) { 370 press F4 371 ] 372 run [ -373 event-loop screen, console, env, resources +373 event-loop screen, console, env, resources 374 ] 375 # still no errors 376 screen-should-contain-in-color 1/red, [ @@ -465,13 +465,13 @@ if ('onhashchange' in window) { 403 |]| 404 ] 405 ] -406 env:&:environment <- new-programming-environment resources, screen, [foo] -407 render-all screen, env, render +406 env:&:environment <- new-programming-environment resources, screen, [foo] +407 render-all screen, env, render 408 assume-console [ 409 press F4 410 ] 411 run [ -412 event-loop screen, console, env, resources +412 event-loop screen, console, env, resources 413 ] 414 screen-should-contain [ 415 . errors found run (F4) . @@ -479,7 +479,7 @@ if ('onhashchange' in window) { 417 . x <- copy 0 ╎─────────────────────────────────────────────────. 418 .] ╎ . 419 .foo: missing type for 'x' in 'x <- copy 0' ╎ . -420 .foo: can't copy '0' to 'x'; types don't match ╎ . +420 .foo: can't copy '0' to 'x'; types don't match ╎ . 421 .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎ . 422 . ╎ . 423 ] @@ -496,13 +496,13 @@ if ('onhashchange' in window) { 434 | x <- copy 0| 435 ] 436 ] -437 env:&:environment <- new-programming-environment resources, screen, [foo] -438 render-all screen, env, render +437 env:&:environment <- new-programming-environment resources, screen, [foo] +438 render-all screen, env, render 439 assume-console [ 440 press F4 441 ] 442 run [ -443 event-loop screen, console, env, resources +443 event-loop screen, console, env, resources 444 ] 445 screen-should-contain [ 446 . errors found run (F4) . @@ -527,13 +527,13 @@ if ('onhashchange' in window) { 465 |]| 466 ] 467 ] -468 env:&:environment <- new-programming-environment resources, screen, [foo] -469 render-all screen, env, render +468 env:&:environment <- new-programming-environment resources, screen, [foo] +469 render-all screen, env, render 470 assume-console [ 471 press F4 472 ] 473 run [ -474 event-loop screen, console, env, resources +474 event-loop screen, console, env, resources 475 ] 476 screen-should-contain [ 477 . errors found run (F4) . @@ -563,13 +563,13 @@ if ('onhashchange' in window) { 501 |]| 502 ] 503 ] -504 env:&:environment <- new-programming-environment resources, screen, [foo] -505 render-all screen, env, render +504 env:&:environment <- new-programming-environment resources, screen, [foo] +505 render-all screen, env, render 506 assume-console [ 507 press F4 508 ] 509 run [ -510 event-loop screen, console, env, resources +510 event-loop screen, console, env, resources 511 ] 512 screen-should-contain [ 513 . errors found run (F4) . @@ -599,12 +599,12 @@ if ('onhashchange' in window) { 537 |]| 538 ] 539 ] -540 env:&:environment <- new-programming-environment resources, screen, [foo] -541 render-all screen, env, render +540 env:&:environment <- new-programming-environment resources, screen, [foo] +541 render-all screen, env, render 542 assume-console [ 543 press F4 544 ] -545 event-loop screen, console, env, resources +545 event-loop screen, console, env, resources 546 screen-should-contain [ 547 . errors found run (F4) . 548 .recipe foo [ ╎foo . @@ -621,7 +621,7 @@ if ('onhashchange' in window) { 559 press F4 560 ] 561 run [ -562 event-loop screen, console, env, resources +562 event-loop screen, console, env, resources 563 ] 564 screen-should-contain [ 565 . errors found run (F4) . @@ -649,12 +649,12 @@ if ('onhashchange' in window) { 587 |]| 588 ] 589 ] -590 env:&:environment <- new-programming-environment resources, screen, [foo] -591 render-all screen, env, render +590 env:&:environment <- new-programming-environment resources, screen, [foo] +591 render-all screen, env, render 592 assume-console [ 593 press F4 594 ] -595 event-loop screen, console, env, resources +595 event-loop screen, console, env, resources 596 screen-should-contain [ 597 . errors found run (F4) . 598 .recipe foo [ ╎foo . @@ -673,7 +673,7 @@ if ('onhashchange' in window) { 611 type [0] 612 press F4 613 ] -614 event-loop screen, console, env, resources +614 event-loop screen, console, env, resources 615 # no error anymore 616 screen-should-contain [ 617 . run (F4) . @@ -701,15 +701,15 @@ if ('onhashchange' in window) { 639 |]| 640 ] 641 ] -642 env:&:environment <- new-programming-environment resources, screen, [foo] -643 render-all screen, env, render +642 env:&:environment <- new-programming-environment resources, screen, [foo] +643 render-all screen, env, render 644 # hit F4, generating errors, then scroll down 645 assume-console [ 646 press F4 -647 press page-down +647 press page-down 648 ] 649 run [ -650 event-loop screen, console, env, resources +650 event-loop screen, console, env, resources 651 ] 652 # errors should be displayed 653 screen-should-contain [ @@ -728,13 +728,13 @@ if ('onhashchange' in window) { 666 assume-resources [ 667 ] 668 # sandbox editor contains an illegal instruction -669 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] -670 render-all screen, env, render +669 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] +670 render-all screen, env, render 671 assume-console [ 672 press F4 673 ] 674 run [ -675 event-loop screen, console, env, resources +675 event-loop screen, console, env, resources 676 ] 677 # check that screen prints error message in red 678 screen-should-contain [ @@ -791,15 +791,15 @@ if ('onhashchange' in window) { 729 assume-resources [ 730 ] 731 # sandbox editor contains an illegal instruction -732 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] -733 render-all screen, env, render +732 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] +733 render-all screen, env, render 734 # run the code in the editors multiple times 735 assume-console [ 736 press F4 737 press F4 738 ] 739 run [ -740 event-loop screen, console, env, resources +740 event-loop screen, console, env, resources 741 ] 742 # check that screen prints error message just once 743 screen-should-contain [ @@ -830,14 +830,14 @@ if ('onhashchange' in window) { 768 |]| 769 ] 770 ] -771 env:&:environment <- new-programming-environment resources, screen, [foo] -772 render-all screen, env, render +771 env:&:environment <- new-programming-environment resources, screen, [foo] +772 render-all screen, env, render 773 # run the sandbox 774 assume-console [ 775 press F4 776 ] 777 run [ -778 event-loop screen, console, env, resources +778 event-loop screen, console, env, resources 779 ] 780 screen-should-contain [ 781 . errors found (0) run (F4) . @@ -869,13 +869,13 @@ if ('onhashchange' in window) { 807 |]| 808 ] 809 ] -810 env:&:environment <- new-programming-environment resources, screen, [foo 4, 0] -811 render-all screen, env, render +810 env:&:environment <- new-programming-environment resources, screen, [foo 4, 0] +811 render-all screen, env, render 812 # run 813 assume-console [ 814 press F4 815 ] -816 event-loop screen, console, env, resources +816 event-loop screen, console, env, resources 817 # screen prints error message 818 screen-should-contain [ 819 . errors found (0) run (F4) . @@ -894,7 +894,7 @@ if ('onhashchange' in window) { 832 left-click 4, 55 833 ] 834 run [ -835 event-loop screen, console, env, resources +835 event-loop screen, console, env, resources 836 ] 837 # screen should expand trace 838 screen-should-contain [ -- cgit 1.4.1-2-gfad0