From 201458e3bd2f1d79a0ea0b853552e9df267e92b1 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 26 Dec 2016 20:44:10 -0800 Subject: 3713 - cross-link calls with definitions in html --- html/edit/011-errors.mu.html | 92 ++++++++++++++++++++++---------------------- 1 file changed, 46 insertions(+), 46 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 73ca5b93..03b629e2 100644 --- a/html/edit/011-errors.mu.html +++ b/html/edit/011-errors.mu.html @@ -64,18 +64,18 @@ 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-ingredients 11 recipes:&:editor <- get *env, recipes:offset 12 in:text <- editor-contents recipes - 13 resources <- dump resources, [lesson/recipes.mu], in + 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 } @@ -87,7 +87,7 @@ if ('onhashchange' in window) { 28 recipe-errors:text <- get *env, recipe-errors:offset 29 { 30 break-unless recipe-errors - 31 update-status screen, [errors found ], 1/red + 31 update-status screen, [errors found ], 1/red 32 } 33 ] 34 @@ -95,7 +95,7 @@ if ('onhashchange' in window) { 36 { 37 recipe-errors:text <- get *env, recipe-errors:offset 38 break-unless recipe-errors - 39 row, screen <- render-text screen, recipe-errors, left, right, 1/red, row + 39 row, screen <- render-text screen, recipe-errors, left, right, 1/red, row 40 } 41 ] 42 @@ -127,8 +127,8 @@ if ('onhashchange' in window) { 68 sandboxes-completed-successfully?:bool <- equal error-index, -1 69 break-if sandboxes-completed-successfully? 70 error-index-text:text <- to-text error-index - 71 status:text <- interpolate [errors found (_) ], error-index-text - 72 update-status screen, status, 1/red + 71 status:text <- interpolate [errors found (_) ], error-index-text + 72 update-status screen, status, 1/red 73 } 74 ] 75 @@ -140,10 +140,10 @@ if ('onhashchange' in window) { 81 local-scope 82 load-ingredients 83 data:text <- get *sandbox, data:offset - 84 response:text, errors:text, fake-screen:&:screen, trace:text, completed?:bool <- run-sandboxed data + 84 response:text, errors:text, fake-screen:&:screen, trace:text, completed?:bool <- run-sandboxed data 85 *sandbox <- put *sandbox, response:offset, response 86 *sandbox <- put *sandbox, errors:offset, errors - 87 *sandbox <- put *sandbox, screen:offset, fake-screen + 87 *sandbox <- put *sandbox, screen:offset, fake-screen 88 *sandbox <- put *sandbox, trace:offset, trace 89 { 90 break-if errors @@ -167,7 +167,7 @@ if ('onhashchange' in window) { 108 sandbox-errors:text <- get *sandbox, errors:offset 109 break-unless sandbox-errors 110 *sandbox <- put *sandbox, response-starting-row-on-screen:offset, 0 # no response -111 row, screen <- render-text screen, sandbox-errors, left, right, 1/red, row +111 row, screen <- render-text screen, sandbox-errors, left, right, 1/red, row 112 # don't try to print anything more for this sandbox 113 jump +render-sandbox-end 114 } @@ -184,8 +184,8 @@ if ('onhashchange' in window) { 125 |]| 126 ] 127 ] -128 env:&:environment <- new-programming-environment resources, screen, [foo] -129 render-all screen, env, render +128 env:&:environment <- new-programming-environment resources, screen, [foo] +129 render-all screen, env, render 130 screen-should-contain [ 131 . run (F4) . 132 .recipe foo [ ╎foo . @@ -199,7 +199,7 @@ if ('onhashchange' in window) { 140 press F4 141 ] 142 run [ -143 event-loop screen, console, env, resources +143 event-loop screen, console, env, resources 144 ] 145 screen-should-contain [ 146 . errors found run (F4) . @@ -232,7 +232,7 @@ if ('onhashchange' in window) { 173 assume-screen 100/width, 15/height 174 assume-resources [ 175 ] -176 env:&:environment <- new-programming-environment resources, screen, [] +176 env:&:environment <- new-programming-environment resources, screen, [] 177 assume-console [ 178 left-click 3, 80 179 # create invalid sandbox 1 @@ -243,7 +243,7 @@ if ('onhashchange' in window) { 184 press F4 185 ] 186 run [ -187 event-loop screen, console, env, resources +187 event-loop screen, console, env, resources 188 ] 189 # status line shows that error is in first sandbox 190 screen-should-contain [ @@ -257,7 +257,7 @@ if ('onhashchange' in window) { 198 assume-screen 100/width, 15/height 199 assume-resources [ 200 ] -201 env:&:environment <- new-programming-environment resources, screen, [] +201 env:&:environment <- new-programming-environment resources, screen, [] 202 assume-console [ 203 left-click 3, 80 204 # create invalid sandbox 2 @@ -271,7 +271,7 @@ if ('onhashchange' in window) { 212 press F4 213 ] 214 run [ -215 event-loop screen, console, env, resources +215 event-loop screen, console, env, resources 216 ] 217 # status line shows that error is in second sandbox 218 screen-should-contain [ @@ -285,11 +285,11 @@ if ('onhashchange' in window) { 226 assume-screen 100/width, 15/height 227 assume-resources [ 228 ] -229 env:&:environment <- new-programming-environment resources, screen, [get foo, x:offset] # invalid +229 env:&:environment <- new-programming-environment resources, screen, [get foo, x:offset] # invalid 230 assume-console [ 231 press F4 # generate error 232 ] -233 event-loop screen, console, env, resources +233 event-loop screen, console, env, resources 234 assume-console [ 235 left-click 3, 58 236 press ctrl-k @@ -297,7 +297,7 @@ if ('onhashchange' in window) { 238 press F4 # update sandbox 239 ] 240 run [ -241 event-loop screen, console, env, resources +241 event-loop screen, console, env, resources 242 ] 243 # error should disappear 244 screen-should-contain [ @@ -327,11 +327,11 @@ if ('onhashchange' in window) { 268 |]| 269 ] 270 ] -271 env:&:environment <- new-programming-environment resources, screen, [foo 2] +271 env:&:environment <- new-programming-environment resources, screen, [foo 2] 272 assume-console [ 273 press F4 274 ] -275 event-loop screen, console, env, resources +275 event-loop screen, console, env, resources 276 screen-should-contain [ 277 . errors found (0) run (F4) . 278 .recipe foo x:_elem -> z:_elem [ ╎ . @@ -349,7 +349,7 @@ if ('onhashchange' in window) { 290 press F4 291 ] 292 run [ -293 event-loop screen, console, env, resources +293 event-loop screen, console, env, resources 294 ] 295 # error should remain unchanged 296 screen-should-contain [ @@ -380,12 +380,12 @@ if ('onhashchange' in window) { 321 # call code that uses other variants of it, but not it itself 322 test-sandbox:text <- new [x:&:list:num <- copy 0 323 to-text x] -324 env:&:environment <- new-programming-environment resources, screen, test-sandbox +324 env:&:environment <- new-programming-environment resources, screen, test-sandbox 325 # run it once 326 assume-console [ 327 press F4 328 ] -329 event-loop screen, console, env, resources +329 event-loop screen, console, env, resources 330 # no errors anywhere on screen (can't check anything else, since to-text will return an address) 331 screen-should-contain-in-color 1/red, [ 332 . . @@ -409,7 +409,7 @@ if ('onhashchange' in window) { 350 press F4 351 ] 352 run [ -353 event-loop screen, console, env, resources +353 event-loop screen, console, env, resources 354 ] 355 # still no errors 356 screen-should-contain-in-color 1/red, [ @@ -442,12 +442,12 @@ if ('onhashchange' in window) { 383 |]| 384 ] 385 ] -386 env:&:environment <- new-programming-environment resources, screen, [foo] +386 env:&:environment <- new-programming-environment resources, screen, [foo] 387 assume-console [ 388 press F4 389 ] 390 run [ -391 event-loop screen, console, env, resources +391 event-loop screen, console, env, resources 392 ] 393 screen-should-contain [ 394 . errors found run (F4) . @@ -473,12 +473,12 @@ if ('onhashchange' in window) { 414 | x <- copy 0| 415 ] 416 ] -417 env:&:environment <- new-programming-environment resources, screen, [foo] +417 env:&:environment <- new-programming-environment resources, screen, [foo] 418 assume-console [ 419 press F4 420 ] 421 run [ -422 event-loop screen, console, env, resources +422 event-loop screen, console, env, resources 423 ] 424 screen-should-contain [ 425 . errors found run (F4) . @@ -504,12 +504,12 @@ if ('onhashchange' in window) { 445 |]| 446 ] 447 ] -448 env:&:environment <- new-programming-environment resources, screen, [foo] +448 env:&:environment <- new-programming-environment resources, screen, [foo] 449 assume-console [ 450 press F4 451 ] 452 run [ -453 event-loop screen, console, env, resources +453 event-loop screen, console, env, resources 454 ] 455 screen-should-contain [ 456 . errors found run (F4) . @@ -540,12 +540,12 @@ if ('onhashchange' in window) { 481 |]| 482 ] 483 ] -484 env:&:environment <- new-programming-environment resources, screen, [foo] +484 env:&:environment <- new-programming-environment resources, screen, [foo] 485 assume-console [ 486 press F4 487 ] 488 run [ -489 event-loop screen, console, env, resources +489 event-loop screen, console, env, resources 490 ] 491 screen-should-contain [ 492 . errors found run (F4) . @@ -576,11 +576,11 @@ if ('onhashchange' in window) { 517 |]| 518 ] 519 ] -520 env:&:environment <- new-programming-environment resources, screen, [foo] +520 env:&:environment <- new-programming-environment resources, screen, [foo] 521 assume-console [ 522 press F4 523 ] -524 event-loop screen, console, env, resources +524 event-loop screen, console, env, resources 525 screen-should-contain [ 526 . errors found run (F4) . 527 .recipe foo [ ╎foo . @@ -598,7 +598,7 @@ if ('onhashchange' in window) { 539 press F4 540 ] 541 run [ -542 event-loop screen, console, env, resources +542 event-loop screen, console, env, resources 543 ] 544 screen-should-contain [ 545 . errors found run (F4) . @@ -621,12 +621,12 @@ if ('onhashchange' in window) { 562 assume-resources [ 563 ] 564 # sandbox editor contains an illegal instruction -565 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] +565 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] 566 assume-console [ 567 press F4 568 ] 569 run [ -570 event-loop screen, console, env, resources +570 event-loop screen, console, env, resources 571 ] 572 # check that screen prints error message in red 573 screen-should-contain [ @@ -683,14 +683,14 @@ if ('onhashchange' in window) { 624 assume-resources [ 625 ] 626 # sandbox editor contains an illegal instruction -627 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] +627 env:&:environment <- new-programming-environment resources, screen, [get 1234:num, foo:offset] 628 # run the code in the editors multiple times 629 assume-console [ 630 press F4 631 press F4 632 ] 633 run [ -634 event-loop screen, console, env, resources +634 event-loop screen, console, env, resources 635 ] 636 # check that screen prints error message just once 637 screen-should-contain [ @@ -721,13 +721,13 @@ if ('onhashchange' in window) { 662 |]| 663 ] 664 ] -665 env:&:environment <- new-programming-environment resources, screen, [foo] +665 env:&:environment <- new-programming-environment resources, screen, [foo] 666 # run the sandbox 667 assume-console [ 668 press F4 669 ] 670 run [ -671 event-loop screen, console, env, resources +671 event-loop screen, console, env, resources 672 ] 673 screen-should-contain [ 674 . errors found (0) run (F4) . @@ -759,12 +759,12 @@ if ('onhashchange' in window) { 700 |]| 701 ] 702 ] -703 env:&:environment <- new-programming-environment resources, screen, [foo 4, 0] +703 env:&:environment <- new-programming-environment resources, screen, [foo 4, 0] 704 # run 705 assume-console [ 706 press F4 707 ] -708 event-loop screen, console, env, resources +708 event-loop screen, console, env, resources 709 # screen prints error message 710 screen-should-contain [ 711 . errors found (0) run (F4) . @@ -783,7 +783,7 @@ if ('onhashchange' in window) { 724 left-click 4, 55 725 ] 726 run [ -727 event-loop screen, console, env, resources +727 event-loop screen, console, env, resources 728 ] 729 # screen should expand trace 730 screen-should-contain [ -- cgit 1.4.1-2-gfad0