diff options
| -rw-r--r-- | edit/003-shortcuts.mu | 19 | ||||
| -rw-r--r-- | html/edit/003-shortcuts.mu.html | 5925 | ||||
| -rw-r--r-- | html/edit/005-sandbox.mu.html | 26 | ||||
| -rw-r--r-- | html/edit/007-sandbox-delete.mu.html | 12 | ||||
| -rw-r--r-- | html/edit/008-sandbox-edit.mu.html | 10 | ||||
| -rw-r--r-- | html/edit/012-editor-undo.mu.html | 16 | ||||
| -rw-r--r-- | sandbox/003-shortcuts.mu | 22 |
7 files changed, 3025 insertions, 3005 deletions
diff --git a/edit/003-shortcuts.mu b/edit/003-shortcuts.mu index 77627357..6ffc9bcf 100644 --- a/edit/003-shortcuts.mu +++ b/edit/003-shortcuts.mu @@ -1419,6 +1419,9 @@ def move-to-next-line editor:&:editor, screen-height:num -> go-render?:bool, edi { next:&:duplex-list:char <- next before-cursor break-unless next + c:char <- get *next, value:offset + at-newline?:bool <- equal c, 10/newline + break-if at-newline? done?:bool <- greater-or-equal cursor-column, target-column break-if done? cursor-column <- add cursor-column, 1 @@ -1438,13 +1441,16 @@ def move-to-next-line editor:&:editor, screen-height:num -> go-render?:bool, edi scenario editor-adjusts-column-at-next-line [ local-scope assume-screen 10/width, 5/height - s:text <- new [abc -de] + # second line is shorter than first + s:text <- new [abcde +fg +hi] e:&:editor <- new-editor s, 0/left, 10/right editor-render screen, e $clear-trace + # move to end of first line, then press down assume-console [ - left-click 1, 3 + left-click 1, 8 press down-arrow ] run [ @@ -1452,6 +1458,7 @@ de] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] + # cursor doesn't go vertically down, it goes to end of shorter line memory-should-contain [ 3 <- 2 4 <- 2 @@ -1465,10 +1472,10 @@ de] ] screen-should-contain [ . . - .abc . - .de0 . + .abcde . + .fg0 . + .hi . .┈┈┈┈┈┈┈┈┈┈. - . . ] ] diff --git a/html/edit/003-shortcuts.mu.html b/html/edit/003-shortcuts.mu.html index b682f86e..d45dfea6 100644 --- a/html/edit/003-shortcuts.mu.html +++ b/html/edit/003-shortcuts.mu.html @@ -1080,12 +1080,12 @@ if ('onhashchange' in window) { <span id="L1018" class="LineNr">1018 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> <span id="L1019" class="LineNr">1019 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> at-left?:bool <span class="Special"><-</span> equal cursor-column, left <span id="L1020" class="LineNr">1020 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-left? -<span id="L1021" class="LineNr">1021 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L3168'>before-previous-screen-line</a> curr, editor +<span id="L1021" class="LineNr">1021 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L3175'>before-previous-screen-line</a> curr, editor <span id="L1022" class="LineNr">1022 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> no-motion?:bool <span class="Special"><-</span> equal curr, old <span id="L1023" class="LineNr">1023 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">return-if</span> no-motion? <span id="L1024" class="LineNr">1024 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> <span id="L1025" class="LineNr">1025 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> -<span id="L1026" class="LineNr">1026 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L3168'>before-previous-screen-line</a> curr, editor +<span id="L1026" class="LineNr">1026 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L3175'>before-previous-screen-line</a> curr, editor <span id="L1027" class="LineNr">1027 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> no-motion?:bool <span class="Special"><-</span> equal curr, old <span id="L1028" class="LineNr">1028 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">return-if</span> no-motion? <span id="L1029" class="LineNr">1029 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> @@ -1481,3027 +1481,3034 @@ if ('onhashchange' in window) { <span id="L1419" class="LineNr">1419 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> <span id="L1420" class="LineNr">1420 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <a href='../065duplex_list.mu.html#L29'>next</a>:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> before-cursor <span id="L1421" class="LineNr">1421 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> <a href='../065duplex_list.mu.html#L29'>next</a> -<span id="L1422" class="LineNr">1422 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> greater-or-equal cursor-column, target-column -<span id="L1423" class="LineNr">1423 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? -<span id="L1424" class="LineNr">1424 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> cursor-column <span class="Special"><-</span> add cursor-column,<span class="Constant"> 1</span> -<span id="L1425" class="LineNr">1425 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> before-cursor <span class="Special"><-</span> copy <a href='../065duplex_list.mu.html#L29'>next</a> -<span id="L1426" class="LineNr">1426 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L1427" class="LineNr">1427 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> -<span id="L1428" class="LineNr">1428 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, before-cursor -<span id="L1429" class="LineNr">1429 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, cursor-column -<span id="L1430" class="LineNr">1430 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-row:offset</span>, cursor-row -<span id="L1431" class="LineNr">1431 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> -<span id="L1432" class="LineNr">1432 </span> <span class="Delimiter">}</span> -<span id="L1433" class="LineNr">1433 </span><span class="Constant"> +try-to-scroll</span> -<span id="L1434" class="LineNr">1434 </span><span class="Constant"> <scroll-down></span> -<span id="L1435" class="LineNr">1435 </span> go-render? <span class="Special"><-</span> copy <span class="Constant">1/true</span> -<span id="L1436" class="LineNr">1436 </span>] -<span id="L1437" class="LineNr">1437 </span> -<span id="L1438" class="LineNr">1438 </span><span class="muScenario">scenario</span> editor-adjusts-column-at-next-line [ -<span id="L1439" class="LineNr">1439 </span> <span class="Constant">local-scope</span> -<span id="L1440" class="LineNr">1440 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1441" class="LineNr">1441 </span> s:text <span class="Special"><-</span> new <span class="Constant">[abc</span> -<span id="L1442" class="LineNr">1442 </span><span class="Constant">de]</span> -<span id="L1443" class="LineNr">1443 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1444" class="LineNr">1444 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1445" class="LineNr">1445 </span> $clear-trace -<span id="L1446" class="LineNr">1446 </span> assume-console [ -<span id="L1447" class="LineNr">1447 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> -<span id="L1448" class="LineNr">1448 </span> <span class="Conceal">¦</span> press down-arrow -<span id="L1449" class="LineNr">1449 </span> ] -<span id="L1450" class="LineNr">1450 </span> run [ -<span id="L1451" class="LineNr">1451 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1452" class="LineNr">1452 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1453" class="LineNr">1453 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1454" class="LineNr">1454 </span> ] -<span id="L1455" class="LineNr">1455 </span> memory-should-contain [ -<span id="L1456" class="LineNr">1456 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1457" class="LineNr">1457 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1458" class="LineNr">1458 </span> ] -<span id="L1459" class="LineNr">1459 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1460" class="LineNr">1460 </span> assume-console [ -<span id="L1461" class="LineNr">1461 </span> <span class="Conceal">¦</span> type <span class="Constant">[0]</span> -<span id="L1462" class="LineNr">1462 </span> ] -<span id="L1463" class="LineNr">1463 </span> run [ -<span id="L1464" class="LineNr">1464 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1422" class="LineNr">1422 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> c:char <span class="Special"><-</span> get *next, <span class="Constant">value:offset</span> +<span id="L1423" class="LineNr">1423 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> at-newline?:bool <span class="Special"><-</span> equal c, <span class="Constant">10/newline</span> +<span id="L1424" class="LineNr">1424 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-newline? +<span id="L1425" class="LineNr">1425 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> greater-or-equal cursor-column, target-column +<span id="L1426" class="LineNr">1426 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? +<span id="L1427" class="LineNr">1427 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> cursor-column <span class="Special"><-</span> add cursor-column,<span class="Constant"> 1</span> +<span id="L1428" class="LineNr">1428 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> before-cursor <span class="Special"><-</span> copy <a href='../065duplex_list.mu.html#L29'>next</a> +<span id="L1429" class="LineNr">1429 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">loop</span> +<span id="L1430" class="LineNr">1430 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> +<span id="L1431" class="LineNr">1431 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, before-cursor +<span id="L1432" class="LineNr">1432 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, cursor-column +<span id="L1433" class="LineNr">1433 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-row:offset</span>, cursor-row +<span id="L1434" class="LineNr">1434 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> +<span id="L1435" class="LineNr">1435 </span> <span class="Delimiter">}</span> +<span id="L1436" class="LineNr">1436 </span><span class="Constant"> +try-to-scroll</span> +<span id="L1437" class="LineNr">1437 </span><span class="Constant"> <scroll-down></span> +<span id="L1438" class="LineNr">1438 </span> go-render? <span class="Special"><-</span> copy <span class="Constant">1/true</span> +<span id="L1439" class="LineNr">1439 </span>] +<span id="L1440" class="LineNr">1440 </span> +<span id="L1441" class="LineNr">1441 </span><span class="muScenario">scenario</span> editor-adjusts-column-at-next-line [ +<span id="L1442" class="LineNr">1442 </span> <span class="Constant">local-scope</span> +<span id="L1443" class="LineNr">1443 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1444" class="LineNr">1444 </span> <span class="Comment"># second line is shorter than first</span> +<span id="L1445" class="LineNr">1445 </span> s:text <span class="Special"><-</span> new <span class="Constant">[abcde</span> +<span id="L1446" class="LineNr">1446 </span><span class="Constant">fg</span> +<span id="L1447" class="LineNr">1447 </span><span class="Constant">hi]</span> +<span id="L1448" class="LineNr">1448 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1449" class="LineNr">1449 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1450" class="LineNr">1450 </span> $clear-trace +<span id="L1451" class="LineNr">1451 </span> <span class="Comment"># move to end of first line, then press down</span> +<span id="L1452" class="LineNr">1452 </span> assume-console [ +<span id="L1453" class="LineNr">1453 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 8</span> +<span id="L1454" class="LineNr">1454 </span> <span class="Conceal">¦</span> press down-arrow +<span id="L1455" class="LineNr">1455 </span> ] +<span id="L1456" class="LineNr">1456 </span> run [ +<span id="L1457" class="LineNr">1457 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1458" class="LineNr">1458 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1459" class="LineNr">1459 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1460" class="LineNr">1460 </span> ] +<span id="L1461" class="LineNr">1461 </span> <span class="Comment"># cursor doesn't go vertically down, it goes to end of shorter line</span> +<span id="L1462" class="LineNr">1462 </span> memory-should-contain [ +<span id="L1463" class="LineNr">1463 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1464" class="LineNr">1464 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> <span id="L1465" class="LineNr">1465 </span> ] -<span id="L1466" class="LineNr">1466 </span> screen-should-contain [ -<span id="L1467" class="LineNr">1467 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1468" class="LineNr">1468 </span> <span class="Conceal">¦</span><span class="Constant"> .abc .</span> -<span id="L1469" class="LineNr">1469 </span> <span class="Conceal">¦</span><span class="Constant"> .de0 .</span> -<span id="L1470" class="LineNr">1470 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L1471" class="LineNr">1471 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1466" class="LineNr">1466 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1467" class="LineNr">1467 </span> assume-console [ +<span id="L1468" class="LineNr">1468 </span> <span class="Conceal">¦</span> type <span class="Constant">[0]</span> +<span id="L1469" class="LineNr">1469 </span> ] +<span id="L1470" class="LineNr">1470 </span> run [ +<span id="L1471" class="LineNr">1471 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e <span id="L1472" class="LineNr">1472 </span> ] -<span id="L1473" class="LineNr">1473 </span>] -<span id="L1474" class="LineNr">1474 </span> -<span id="L1475" class="LineNr">1475 </span><span class="muScenario">scenario</span> editor-moves-down-within-wrapped-line [ -<span id="L1476" class="LineNr">1476 </span> <span class="Constant">local-scope</span> -<span id="L1477" class="LineNr">1477 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1478" class="LineNr">1478 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> <span class="Constant">[abcdefghijklmno]</span>, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1479" class="LineNr">1479 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1480" class="LineNr">1480 </span> screen-should-contain [ -<span id="L1481" class="LineNr">1481 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1482" class="LineNr">1482 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .abcdefghi↩.</span> -<span id="L1483" class="LineNr">1483 </span> <span class="Conceal">¦</span><span class="Constant"> .jklmno .</span> -<span id="L1484" class="LineNr">1484 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L1485" class="LineNr">1485 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1486" class="LineNr">1486 </span> ] -<span id="L1487" class="LineNr">1487 </span> <span class="Comment"># position cursor on first screen line, but past end of second screen line</span> -<span id="L1488" class="LineNr">1488 </span> assume-console [ -<span id="L1489" class="LineNr">1489 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 8</span> -<span id="L1490" class="LineNr">1490 </span> <span class="Conceal">¦</span> press down-arrow -<span id="L1491" class="LineNr">1491 </span> ] -<span id="L1492" class="LineNr">1492 </span> run [ -<span id="L1493" class="LineNr">1493 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1494" class="LineNr">1494 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1495" class="LineNr">1495 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1496" class="LineNr">1496 </span> ] -<span id="L1497" class="LineNr">1497 </span> <span class="Comment"># cursor should be at end of second screen line</span> -<span id="L1498" class="LineNr">1498 </span> memory-should-contain [ -<span id="L1499" class="LineNr">1499 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1500" class="LineNr">1500 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 6</span> -<span id="L1501" class="LineNr">1501 </span> ] -<span id="L1502" class="LineNr">1502 </span>] -<span id="L1503" class="LineNr">1503 </span> -<span id="L1504" class="LineNr">1504 </span><span class="Comment"># ctrl-a/home - move cursor to start of line</span> -<span id="L1505" class="LineNr">1505 </span> -<span id="L1506" class="LineNr">1506 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-ctrl-a [ -<span id="L1507" class="LineNr">1507 </span> <span class="Constant">local-scope</span> -<span id="L1508" class="LineNr">1508 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1509" class="LineNr">1509 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1510" class="LineNr">1510 </span><span class="Constant">456]</span> -<span id="L1511" class="LineNr">1511 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1512" class="LineNr">1512 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1513" class="LineNr">1513 </span> $clear-trace -<span id="L1514" class="LineNr">1514 </span> <span class="Comment"># start on second line, press ctrl-a</span> -<span id="L1515" class="LineNr">1515 </span> assume-console [ -<span id="L1516" class="LineNr">1516 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 3</span> -<span id="L1517" class="LineNr">1517 </span> <span class="Conceal">¦</span> press ctrl-a -<span id="L1518" class="LineNr">1518 </span> ] -<span id="L1519" class="LineNr">1519 </span> run [ -<span id="L1520" class="LineNr">1520 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1521" class="LineNr">1521 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1522" class="LineNr">1522 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1523" class="LineNr">1523 </span> ] -<span id="L1524" class="LineNr">1524 </span> <span class="Comment"># cursor moves to start of line</span> -<span id="L1525" class="LineNr">1525 </span> memory-should-contain [ -<span id="L1526" class="LineNr">1526 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1527" class="LineNr">1527 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> -<span id="L1528" class="LineNr">1528 </span> ] -<span id="L1529" class="LineNr">1529 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1530" class="LineNr">1530 </span>] -<span id="L1531" class="LineNr">1531 </span> -<span id="L1532" class="LineNr">1532 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L185'><handle-special-character></a></span> [ -<span id="L1533" class="LineNr">1533 </span> <span class="Delimiter">{</span> -<span id="L1534" class="LineNr">1534 </span> <span class="Conceal">¦</span> move-to-start-of-line?:bool <span class="Special"><-</span> equal c, <span class="Constant">1/ctrl-a</span> -<span id="L1535" class="LineNr">1535 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-start-of-line? -<span id="L1536" class="LineNr">1536 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> -<span id="L1537" class="LineNr">1537 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1558'>move-to-start-of-screen-line</a> editor -<span id="L1538" class="LineNr">1538 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> -<span id="L1539" class="LineNr">1539 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> -<span id="L1540" class="LineNr">1540 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> -<span id="L1541" class="LineNr">1541 </span> <span class="Delimiter">}</span> -<span id="L1542" class="LineNr">1542 </span>] -<span id="L1543" class="LineNr">1543 </span> -<span id="L1544" class="LineNr">1544 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L199'><handle-special-key></a></span> [ -<span id="L1545" class="LineNr">1545 </span> <span class="Delimiter">{</span> -<span id="L1546" class="LineNr">1546 </span> <span class="Conceal">¦</span> move-to-start-of-line?:bool <span class="Special"><-</span> equal k, <span class="Constant">65521/home</span> -<span id="L1547" class="LineNr">1547 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-start-of-line? -<span id="L1548" class="LineNr">1548 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> -<span id="L1549" class="LineNr">1549 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1558'>move-to-start-of-screen-line</a> editor -<span id="L1550" class="LineNr">1550 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> -<span id="L1551" class="LineNr">1551 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> -<span id="L1552" class="LineNr">1552 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> -<span id="L1553" class="LineNr">1553 </span> <span class="Delimiter">}</span> -<span id="L1554" class="LineNr">1554 </span>] -<span id="L1555" class="LineNr">1555 </span> -<span id="L1556" class="LineNr">1556 </span><span class="Comment"># handles wrapped lines</span> -<span id="L1557" class="LineNr">1557 </span><span class="Comment"># precondition: cursor-column should be in a consistent state</span> -<span id="L1558" class="LineNr">1558 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1558'>move-to-start-of-screen-line</a> editor:&:editor<span class="muRecipe"> -> </span>editor:&:editor [ -<span id="L1559" class="LineNr">1559 </span> <span class="Constant">local-scope</span> -<span id="L1560" class="LineNr">1560 </span> <span class="Constant">load-ingredients</span> -<span id="L1561" class="LineNr">1561 </span> <span class="Comment"># update cursor column</span> -<span id="L1562" class="LineNr">1562 </span> left:num <span class="Special"><-</span> get *editor, <span class="Constant">left:offset</span> -<span id="L1563" class="LineNr">1563 </span> col:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-column:offset</span> -<span id="L1564" class="LineNr">1564 </span> <span class="Comment"># update before-cursor</span> -<span id="L1565" class="LineNr">1565 </span> curr:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> -<span id="L1566" class="LineNr">1566 </span> <span class="Comment"># while not at start of line, move</span> -<span id="L1567" class="LineNr">1567 </span> <span class="Delimiter">{</span> -<span id="L1568" class="LineNr">1568 </span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> equal col, left -<span id="L1569" class="LineNr">1569 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? -<span id="L1570" class="LineNr">1570 </span> <span class="Conceal">¦</span> assert curr, <span class="Constant">[move-to-start-of-line tried to move before start of text]</span> -<span id="L1571" class="LineNr">1571 </span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L36'>prev</a> curr -<span id="L1572" class="LineNr">1572 </span> <span class="Conceal">¦</span> col <span class="Special"><-</span> subtract col,<span class="Constant"> 1</span> -<span id="L1573" class="LineNr">1573 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L1574" class="LineNr">1574 </span> <span class="Delimiter">}</span> -<span id="L1575" class="LineNr">1575 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, col -<span id="L1576" class="LineNr">1576 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, curr -<span id="L1577" class="LineNr">1577 </span>] -<span id="L1578" class="LineNr">1578 </span> -<span id="L1579" class="LineNr">1579 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-ctrl-a-2 [ -<span id="L1580" class="LineNr">1580 </span> <span class="Constant">local-scope</span> -<span id="L1581" class="LineNr">1581 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1582" class="LineNr">1582 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1583" class="LineNr">1583 </span><span class="Constant">456]</span> -<span id="L1584" class="LineNr">1584 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1585" class="LineNr">1585 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1586" class="LineNr">1586 </span> $clear-trace -<span id="L1587" class="LineNr">1587 </span> <span class="Comment"># start on first line (no newline before), press ctrl-a</span> -<span id="L1588" class="LineNr">1588 </span> assume-console [ -<span id="L1589" class="LineNr">1589 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> -<span id="L1590" class="LineNr">1590 </span> <span class="Conceal">¦</span> press ctrl-a -<span id="L1591" class="LineNr">1591 </span> ] -<span id="L1592" class="LineNr">1592 </span> run [ -<span id="L1593" class="LineNr">1593 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1594" class="LineNr">1594 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1595" class="LineNr">1595 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1596" class="LineNr">1596 </span> ] -<span id="L1597" class="LineNr">1597 </span> <span class="Comment"># cursor moves to start of line</span> -<span id="L1598" class="LineNr">1598 </span> memory-should-contain [ -<span id="L1599" class="LineNr">1599 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1600" class="LineNr">1600 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> -<span id="L1601" class="LineNr">1601 </span> ] -<span id="L1602" class="LineNr">1602 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1603" class="LineNr">1603 </span>] -<span id="L1604" class="LineNr">1604 </span> -<span id="L1605" class="LineNr">1605 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-home [ -<span id="L1606" class="LineNr">1606 </span> <span class="Constant">local-scope</span> -<span id="L1607" class="LineNr">1607 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1608" class="LineNr">1608 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1609" class="LineNr">1609 </span><span class="Constant">456]</span> -<span id="L1610" class="LineNr">1610 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1611" class="LineNr">1611 </span> $clear-trace -<span id="L1612" class="LineNr">1612 </span> <span class="Comment"># start on second line, press 'home'</span> -<span id="L1613" class="LineNr">1613 </span> assume-console [ -<span id="L1614" class="LineNr">1614 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 3</span> -<span id="L1615" class="LineNr">1615 </span> <span class="Conceal">¦</span> press home -<span id="L1616" class="LineNr">1616 </span> ] -<span id="L1617" class="LineNr">1617 </span> run [ -<span id="L1618" class="LineNr">1618 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1619" class="LineNr">1619 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1620" class="LineNr">1620 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1621" class="LineNr">1621 </span> ] -<span id="L1622" class="LineNr">1622 </span> <span class="Comment"># cursor moves to start of line</span> -<span id="L1623" class="LineNr">1623 </span> memory-should-contain [ -<span id="L1624" class="LineNr">1624 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1625" class="LineNr">1625 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 0</span> -<span id="L1626" class="LineNr">1626 </span> ] -<span id="L1627" class="LineNr">1627 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1628" class="LineNr">1628 </span>] -<span id="L1629" class="LineNr">1629 </span> -<span id="L1630" class="LineNr">1630 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-home-2 [ -<span id="L1631" class="LineNr">1631 </span> <span class="Constant">local-scope</span> -<span id="L1632" class="LineNr">1632 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1633" class="LineNr">1633 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1634" class="LineNr">1634 </span><span class="Constant">456]</span> -<span id="L1635" class="LineNr">1635 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1636" class="LineNr">1636 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1637" class="LineNr">1637 </span> $clear-trace -<span id="L1638" class="LineNr">1638 </span> <span class="Comment"># start on first line (no newline before), press 'home'</span> -<span id="L1639" class="LineNr">1639 </span> assume-console [ -<span id="L1640" class="LineNr">1640 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> -<span id="L1641" class="LineNr">1641 </span> <span class="Conceal">¦</span> press home -<span id="L1642" class="LineNr">1642 </span> ] -<span id="L1643" class="LineNr">1643 </span> run [ -<span id="L1644" class="LineNr">1644 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1645" class="LineNr">1645 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1646" class="LineNr">1646 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1647" class="LineNr">1647 </span> ] -<span id="L1648" class="LineNr">1648 </span> <span class="Comment"># cursor moves to start of line</span> -<span id="L1649" class="LineNr">1649 </span> memory-should-contain [ -<span id="L1650" class="LineNr">1650 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1651" class="LineNr">1651 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 0</span> -<span id="L1652" class="LineNr">1652 </span> ] -<span id="L1653" class="LineNr">1653 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1654" class="LineNr">1654 </span>] -<span id="L1655" class="LineNr">1655 </span> -<span id="L1656" class="LineNr">1656 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-screen-line-with-ctrl-a [ -<span id="L1657" class="LineNr">1657 </span> <span class="Constant">local-scope</span> -<span id="L1658" class="LineNr">1658 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1659" class="LineNr">1659 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> <span class="Constant">[123456]</span>, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> -<span id="L1660" class="LineNr">1660 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1661" class="LineNr">1661 </span> screen-should-contain [ -<span id="L1662" class="LineNr">1662 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1663" class="LineNr">1663 </span> <span class="Conceal">¦</span><span class="Constant"> .1234↩ .</span> -<span id="L1664" class="LineNr">1664 </span> <span class="Conceal">¦</span><span class="Constant"> .56 .</span> -<span id="L1665" class="LineNr">1665 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> -<span id="L1666" class="LineNr">1666 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1667" class="LineNr">1667 </span> ] -<span id="L1668" class="LineNr">1668 </span> $clear-trace -<span id="L1669" class="LineNr">1669 </span> <span class="Comment"># start on second line, press ctrl-a then up</span> -<span id="L1670" class="LineNr">1670 </span> assume-console [ -<span id="L1671" class="LineNr">1671 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> -<span id="L1672" class="LineNr">1672 </span> <span class="Conceal">¦</span> press ctrl-a -<span id="L1673" class="LineNr">1673 </span> <span class="Conceal">¦</span> press up-arrow +<span id="L1473" class="LineNr">1473 </span> screen-should-contain [ +<span id="L1474" class="LineNr">1474 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1475" class="LineNr">1475 </span> <span class="Conceal">¦</span><span class="Constant"> .abcde .</span> +<span id="L1476" class="LineNr">1476 </span> <span class="Conceal">¦</span><span class="Constant"> .fg0 .</span> +<span id="L1477" class="LineNr">1477 </span> <span class="Conceal">¦</span><span class="Constant"> .hi .</span> +<span id="L1478" class="LineNr">1478 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> +<span id="L1479" class="LineNr">1479 </span> ] +<span id="L1480" class="LineNr">1480 </span>] +<span id="L1481" class="LineNr">1481 </span> +<span id="L1482" class="LineNr">1482 </span><span class="muScenario">scenario</span> editor-moves-down-within-wrapped-line [ +<span id="L1483" class="LineNr">1483 </span> <span class="Constant">local-scope</span> +<span id="L1484" class="LineNr">1484 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1485" class="LineNr">1485 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> <span class="Constant">[abcdefghijklmno]</span>, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1486" class="LineNr">1486 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1487" class="LineNr">1487 </span> screen-should-contain [ +<span id="L1488" class="LineNr">1488 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1489" class="LineNr">1489 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .abcdefghi↩.</span> +<span id="L1490" class="LineNr">1490 </span> <span class="Conceal">¦</span><span class="Constant"> .jklmno .</span> +<span id="L1491" class="LineNr">1491 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> +<span id="L1492" class="LineNr">1492 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1493" class="LineNr">1493 </span> ] +<span id="L1494" class="LineNr">1494 </span> <span class="Comment"># position cursor on first screen line, but past end of second screen line</span> +<span id="L1495" class="LineNr">1495 </span> assume-console [ +<span id="L1496" class="LineNr">1496 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 8</span> +<span id="L1497" class="LineNr">1497 </span> <span class="Conceal">¦</span> press down-arrow +<span id="L1498" class="LineNr">1498 </span> ] +<span id="L1499" class="LineNr">1499 </span> run [ +<span id="L1500" class="LineNr">1500 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1501" class="LineNr">1501 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1502" class="LineNr">1502 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1503" class="LineNr">1503 </span> ] +<span id="L1504" class="LineNr">1504 </span> <span class="Comment"># cursor should be at end of second screen line</span> +<span id="L1505" class="LineNr">1505 </span> memory-should-contain [ +<span id="L1506" class="LineNr">1506 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1507" class="LineNr">1507 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 6</span> +<span id="L1508" class="LineNr">1508 </span> ] +<span id="L1509" class="LineNr">1509 </span>] +<span id="L1510" class="LineNr">1510 </span> +<span id="L1511" class="LineNr">1511 </span><span class="Comment"># ctrl-a/home - move cursor to start of line</span> +<span id="L1512" class="LineNr">1512 </span> +<span id="L1513" class="LineNr">1513 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-ctrl-a [ +<span id="L1514" class="LineNr">1514 </span> <span class="Constant">local-scope</span> +<span id="L1515" class="LineNr">1515 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1516" class="LineNr">1516 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1517" class="LineNr">1517 </span><span class="Constant">456]</span> +<span id="L1518" class="LineNr">1518 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1519" class="LineNr">1519 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1520" class="LineNr">1520 </span> $clear-trace +<span id="L1521" class="LineNr">1521 </span> <span class="Comment"># start on second line, press ctrl-a</span> +<span id="L1522" class="LineNr">1522 </span> assume-console [ +<span id="L1523" class="LineNr">1523 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 3</span> +<span id="L1524" class="LineNr">1524 </span> <span class="Conceal">¦</span> press ctrl-a +<span id="L1525" class="LineNr">1525 </span> ] +<span id="L1526" class="LineNr">1526 </span> run [ +<span id="L1527" class="LineNr">1527 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1528" class="LineNr">1528 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1529" class="LineNr">1529 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1530" class="LineNr">1530 </span> ] +<span id="L1531" class="LineNr">1531 </span> <span class="Comment"># cursor moves to start of line</span> +<span id="L1532" class="LineNr">1532 </span> memory-should-contain [ +<span id="L1533" class="LineNr">1533 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1534" class="LineNr">1534 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> +<span id="L1535" class="LineNr">1535 </span> ] +<span id="L1536" class="LineNr">1536 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1537" class="LineNr">1537 </span>] +<span id="L1538" class="LineNr">1538 </span> +<span id="L1539" class="LineNr">1539 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L185'><handle-special-character></a></span> [ +<span id="L1540" class="LineNr">1540 </span> <span class="Delimiter">{</span> +<span id="L1541" class="LineNr">1541 </span> <span class="Conceal">¦</span> move-to-start-of-line?:bool <span class="Special"><-</span> equal c, <span class="Constant">1/ctrl-a</span> +<span id="L1542" class="LineNr">1542 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-start-of-line? +<span id="L1543" class="LineNr">1543 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> +<span id="L1544" class="LineNr">1544 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1565'>move-to-start-of-screen-line</a> editor +<span id="L1545" class="LineNr">1545 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> +<span id="L1546" class="LineNr">1546 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> +<span id="L1547" class="LineNr">1547 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> +<span id="L1548" class="LineNr">1548 </span> <span class="Delimiter">}</span> +<span id="L1549" class="LineNr">1549 </span>] +<span id="L1550" class="LineNr">1550 </span> +<span id="L1551" class="LineNr">1551 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L199'><handle-special-key></a></span> [ +<span id="L1552" class="LineNr">1552 </span> <span class="Delimiter">{</span> +<span id="L1553" class="LineNr">1553 </span> <span class="Conceal">¦</span> move-to-start-of-line?:bool <span class="Special"><-</span> equal k, <span class="Constant">65521/home</span> +<span id="L1554" class="LineNr">1554 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-start-of-line? +<span id="L1555" class="LineNr">1555 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> +<span id="L1556" class="LineNr">1556 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1565'>move-to-start-of-screen-line</a> editor +<span id="L1557" class="LineNr">1557 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> +<span id="L1558" class="LineNr">1558 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> +<span id="L1559" class="LineNr">1559 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> +<span id="L1560" class="LineNr">1560 </span> <span class="Delimiter">}</span> +<span id="L1561" class="LineNr">1561 </span>] +<span id="L1562" class="LineNr">1562 </span> +<span id="L1563" class="LineNr">1563 </span><span class="Comment"># handles wrapped lines</span> +<span id="L1564" class="LineNr">1564 </span><span class="Comment"># precondition: cursor-column should be in a consistent state</span> +<span id="L1565" class="LineNr">1565 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1565'>move-to-start-of-screen-line</a> editor:&:editor<span class="muRecipe"> -> </span>editor:&:editor [ +<span id="L1566" class="LineNr">1566 </span> <span class="Constant">local-scope</span> +<span id="L1567" class="LineNr">1567 </span> <span class="Constant">load-ingredients</span> +<span id="L1568" class="LineNr">1568 </span> <span class="Comment"># update cursor column</span> +<span id="L1569" class="LineNr">1569 </span> left:num <span class="Special"><-</span> get *editor, <span class="Constant">left:offset</span> +<span id="L1570" class="LineNr">1570 </span> col:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-column:offset</span> +<span id="L1571" class="LineNr">1571 </span> <span class="Comment"># update before-cursor</span> +<span id="L1572" class="LineNr">1572 </span> curr:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> +<span id="L1573" class="LineNr">1573 </span> <span class="Comment"># while not at start of line, move</span> +<span id="L1574" class="LineNr">1574 </span> <span class="Delimiter">{</span> +<span id="L1575" class="LineNr">1575 </span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> equal col, left +<span id="L1576" class="LineNr">1576 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? +<span id="L1577" class="LineNr">1577 </span> <span class="Conceal">¦</span> assert curr, <span class="Constant">[move-to-start-of-line tried to move before start of text]</span> +<span id="L1578" class="LineNr">1578 </span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L36'>prev</a> curr +<span id="L1579" class="LineNr">1579 </span> <span class="Conceal">¦</span> col <span class="Special"><-</span> subtract col,<span class="Constant"> 1</span> +<span id="L1580" class="LineNr">1580 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> +<span id="L1581" class="LineNr">1581 </span> <span class="Delimiter">}</span> +<span id="L1582" class="LineNr">1582 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, col +<span id="L1583" class="LineNr">1583 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, curr +<span id="L1584" class="LineNr">1584 </span>] +<span id="L1585" class="LineNr">1585 </span> +<span id="L1586" class="LineNr">1586 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-ctrl-a-2 [ +<span id="L1587" class="LineNr">1587 </span> <span class="Constant">local-scope</span> +<span id="L1588" class="LineNr">1588 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1589" class="LineNr">1589 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1590" class="LineNr">1590 </span><span class="Constant">456]</span> +<span id="L1591" class="LineNr">1591 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1592" class="LineNr">1592 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1593" class="LineNr">1593 </span> $clear-trace +<span id="L1594" class="LineNr">1594 </span> <span class="Comment"># start on first line (no newline before), press ctrl-a</span> +<span id="L1595" class="LineNr">1595 </span> assume-console [ +<span id="L1596" class="LineNr">1596 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> +<span id="L1597" class="LineNr">1597 </span> <span class="Conceal">¦</span> press ctrl-a +<span id="L1598" class="LineNr">1598 </span> ] +<span id="L1599" class="LineNr">1599 </span> run [ +<span id="L1600" class="LineNr">1600 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1601" class="LineNr">1601 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1602" class="LineNr">1602 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1603" class="LineNr">1603 </span> ] +<span id="L1604" class="LineNr">1604 </span> <span class="Comment"># cursor moves to start of line</span> +<span id="L1605" class="LineNr">1605 </span> memory-should-contain [ +<span id="L1606" class="LineNr">1606 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1607" class="LineNr">1607 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> +<span id="L1608" class="LineNr">1608 </span> ] +<span id="L1609" class="LineNr">1609 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1610" class="LineNr">1610 </span>] +<span id="L1611" class="LineNr">1611 </span> +<span id="L1612" class="LineNr">1612 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-home [ +<span id="L1613" class="LineNr">1613 </span> <span class="Constant">local-scope</span> +<span id="L1614" class="LineNr">1614 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1615" class="LineNr">1615 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1616" class="LineNr">1616 </span><span class="Constant">456]</span> +<span id="L1617" class="LineNr">1617 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1618" class="LineNr">1618 </span> $clear-trace +<span id="L1619" class="LineNr">1619 </span> <span class="Comment"># start on second line, press 'home'</span> +<span id="L1620" class="LineNr">1620 </span> assume-console [ +<span id="L1621" class="LineNr">1621 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 3</span> +<span id="L1622" class="LineNr">1622 </span> <span class="Conceal">¦</span> press home +<span id="L1623" class="LineNr">1623 </span> ] +<span id="L1624" class="LineNr">1624 </span> run [ +<span id="L1625" class="LineNr">1625 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1626" class="LineNr">1626 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1627" class="LineNr">1627 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1628" class="LineNr">1628 </span> ] +<span id="L1629" class="LineNr">1629 </span> <span class="Comment"># cursor moves to start of line</span> +<span id="L1630" class="LineNr">1630 </span> memory-should-contain [ +<span id="L1631" class="LineNr">1631 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1632" class="LineNr">1632 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 0</span> +<span id="L1633" class="LineNr">1633 </span> ] +<span id="L1634" class="LineNr">1634 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1635" class="LineNr">1635 </span>] +<span id="L1636" class="LineNr">1636 </span> +<span id="L1637" class="LineNr">1637 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-line-with-home-2 [ +<span id="L1638" class="LineNr">1638 </span> <span class="Constant">local-scope</span> +<span id="L1639" class="LineNr">1639 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1640" class="LineNr">1640 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1641" class="LineNr">1641 </span><span class="Constant">456]</span> +<span id="L1642" class="LineNr">1642 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1643" class="LineNr">1643 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1644" class="LineNr">1644 </span> $clear-trace +<span id="L1645" class="LineNr">1645 </span> <span class="Comment"># start on first line (no newline before), press 'home'</span> +<span id="L1646" class="LineNr">1646 </span> assume-console [ +<span id="L1647" class="LineNr">1647 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> +<span id="L1648" class="LineNr">1648 </span> <span class="Conceal">¦</span> press home +<span id="L1649" class="LineNr">1649 </span> ] +<span id="L1650" class="LineNr">1650 </span> run [ +<span id="L1651" class="LineNr">1651 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1652" class="LineNr">1652 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1653" class="LineNr">1653 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1654" class="LineNr">1654 </span> ] +<span id="L1655" class="LineNr">1655 </span> <span class="Comment"># cursor moves to start of line</span> +<span id="L1656" class="LineNr">1656 </span> memory-should-contain [ +<span id="L1657" class="LineNr">1657 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1658" class="LineNr">1658 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 0</span> +<span id="L1659" class="LineNr">1659 </span> ] +<span id="L1660" class="LineNr">1660 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1661" class="LineNr">1661 </span>] +<span id="L1662" class="LineNr">1662 </span> +<span id="L1663" class="LineNr">1663 </span><span class="muScenario">scenario</span> editor-moves-to-start-of-screen-line-with-ctrl-a [ +<span id="L1664" class="LineNr">1664 </span> <span class="Constant">local-scope</span> +<span id="L1665" class="LineNr">1665 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1666" class="LineNr">1666 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> <span class="Constant">[123456]</span>, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> +<span id="L1667" class="LineNr">1667 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1668" class="LineNr">1668 </span> screen-should-contain [ +<span id="L1669" class="LineNr">1669 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1670" class="LineNr">1670 </span> <span class="Conceal">¦</span><span class="Constant"> .1234↩ .</span> +<span id="L1671" class="LineNr">1671 </span> <span class="Conceal">¦</span><span class="Constant"> .56 .</span> +<span id="L1672" class="LineNr">1672 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> +<span id="L1673" class="LineNr">1673 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> <span id="L1674" class="LineNr">1674 </span> ] -<span id="L1675" class="LineNr">1675 </span> run [ -<span id="L1676" class="LineNr">1676 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1677" class="LineNr">1677 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1678" class="LineNr">1678 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1679" class="LineNr">1679 </span> ] -<span id="L1680" class="LineNr">1680 </span> <span class="Comment"># cursor moves to start of first line</span> -<span id="L1681" class="LineNr">1681 </span> memory-should-contain [ -<span id="L1682" class="LineNr">1682 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-row</span> -<span id="L1683" class="LineNr">1683 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> <span class="Comment"># cursor-column</span> -<span id="L1684" class="LineNr">1684 </span> ] -<span id="L1685" class="LineNr">1685 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1686" class="LineNr">1686 </span> <span class="Comment"># make sure before-cursor is in sync</span> -<span id="L1687" class="LineNr">1687 </span> assume-console [ -<span id="L1688" class="LineNr">1688 </span> <span class="Conceal">¦</span> type <span class="Constant">[a]</span> -<span id="L1689" class="LineNr">1689 </span> ] -<span id="L1690" class="LineNr">1690 </span> run [ -<span id="L1691" class="LineNr">1691 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1692" class="LineNr">1692 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1693" class="LineNr">1693 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1694" class="LineNr">1694 </span> ] -<span id="L1695" class="LineNr">1695 </span> screen-should-contain [ -<span id="L1696" class="LineNr">1696 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1697" class="LineNr">1697 </span> <span class="Conceal">¦</span><span class="Constant"> .a123↩ .</span> -<span id="L1698" class="LineNr">1698 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> -<span id="L1699" class="LineNr">1699 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> -<span id="L1700" class="LineNr">1700 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1675" class="LineNr">1675 </span> $clear-trace +<span id="L1676" class="LineNr">1676 </span> <span class="Comment"># start on second line, press ctrl-a then up</span> +<span id="L1677" class="LineNr">1677 </span> assume-console [ +<span id="L1678" class="LineNr">1678 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> +<span id="L1679" class="LineNr">1679 </span> <span class="Conceal">¦</span> press ctrl-a +<span id="L1680" class="LineNr">1680 </span> <span class="Conceal">¦</span> press up-arrow +<span id="L1681" class="LineNr">1681 </span> ] +<span id="L1682" class="LineNr">1682 </span> run [ +<span id="L1683" class="LineNr">1683 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1684" class="LineNr">1684 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1685" class="LineNr">1685 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1686" class="LineNr">1686 </span> ] +<span id="L1687" class="LineNr">1687 </span> <span class="Comment"># cursor moves to start of first line</span> +<span id="L1688" class="LineNr">1688 </span> memory-should-contain [ +<span id="L1689" class="LineNr">1689 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-row</span> +<span id="L1690" class="LineNr">1690 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 0</span> <span class="Comment"># cursor-column</span> +<span id="L1691" class="LineNr">1691 </span> ] +<span id="L1692" class="LineNr">1692 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1693" class="LineNr">1693 </span> <span class="Comment"># make sure before-cursor is in sync</span> +<span id="L1694" class="LineNr">1694 </span> assume-console [ +<span id="L1695" class="LineNr">1695 </span> <span class="Conceal">¦</span> type <span class="Constant">[a]</span> +<span id="L1696" class="LineNr">1696 </span> ] +<span id="L1697" class="LineNr">1697 </span> run [ +<span id="L1698" class="LineNr">1698 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1699" class="LineNr">1699 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1700" class="LineNr">1700 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> <span id="L1701" class="LineNr">1701 </span> ] -<span id="L1702" class="LineNr">1702 </span> memory-should-contain [ -<span id="L1703" class="LineNr">1703 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-row</span> -<span id="L1704" class="LineNr">1704 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-column</span> -<span id="L1705" class="LineNr">1705 </span> ] -<span id="L1706" class="LineNr">1706 </span>] -<span id="L1707" class="LineNr">1707 </span> -<span id="L1708" class="LineNr">1708 </span><span class="Comment"># ctrl-e/end - move cursor to end of line</span> -<span id="L1709" class="LineNr">1709 </span> -<span id="L1710" class="LineNr">1710 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-ctrl-e [ -<span id="L1711" class="LineNr">1711 </span> <span class="Constant">local-scope</span> -<span id="L1712" class="LineNr">1712 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1713" class="LineNr">1713 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1714" class="LineNr">1714 </span><span class="Constant">456]</span> -<span id="L1715" class="LineNr">1715 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1716" class="LineNr">1716 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1717" class="LineNr">1717 </span> $clear-trace -<span id="L1718" class="LineNr">1718 </span> <span class="Comment"># start on first line, press ctrl-e</span> -<span id="L1719" class="LineNr">1719 </span> assume-console [ -<span id="L1720" class="LineNr">1720 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> -<span id="L1721" class="LineNr">1721 </span> <span class="Conceal">¦</span> press ctrl-e -<span id="L1722" class="LineNr">1722 </span> ] -<span id="L1723" class="LineNr">1723 </span> run [ -<span id="L1724" class="LineNr">1724 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1725" class="LineNr">1725 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1726" class="LineNr">1726 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1727" class="LineNr">1727 </span> ] -<span id="L1728" class="LineNr">1728 </span> <span class="Comment"># cursor moves to end of line</span> -<span id="L1729" class="LineNr">1729 </span> memory-should-contain [ -<span id="L1730" class="LineNr">1730 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1731" class="LineNr">1731 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 3</span> -<span id="L1732" class="LineNr">1732 </span> ] -<span id="L1733" class="LineNr">1733 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1734" class="LineNr">1734 </span> <span class="Comment"># editor inserts future characters at cursor</span> -<span id="L1735" class="LineNr">1735 </span> assume-console [ -<span id="L1736" class="LineNr">1736 </span> <span class="Conceal">¦</span> type <span class="Constant">[z]</span> -<span id="L1737" class="LineNr">1737 </span> ] -<span id="L1738" class="LineNr">1738 </span> run [ -<span id="L1739" class="LineNr">1739 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1740" class="LineNr">1740 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1741" class="LineNr">1741 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1742" class="LineNr">1742 </span> ] -<span id="L1743" class="LineNr">1743 </span> memory-should-contain [ -<span id="L1744" class="LineNr">1744 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1745" class="LineNr">1745 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 4</span> -<span id="L1746" class="LineNr">1746 </span> ] -<span id="L1747" class="LineNr">1747 </span> screen-should-contain [ -<span id="L1748" class="LineNr">1748 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1749" class="LineNr">1749 </span> <span class="Conceal">¦</span><span class="Constant"> .123z .</span> -<span id="L1750" class="LineNr">1750 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> -<span id="L1751" class="LineNr">1751 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L1752" class="LineNr">1752 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1702" class="LineNr">1702 </span> screen-should-contain [ +<span id="L1703" class="LineNr">1703 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1704" class="LineNr">1704 </span> <span class="Conceal">¦</span><span class="Constant"> .a123↩ .</span> +<span id="L1705" class="LineNr">1705 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> +<span id="L1706" class="LineNr">1706 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> +<span id="L1707" class="LineNr">1707 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1708" class="LineNr">1708 </span> ] +<span id="L1709" class="LineNr">1709 </span> memory-should-contain [ +<span id="L1710" class="LineNr">1710 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-row</span> +<span id="L1711" class="LineNr">1711 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 1</span> <span class="Comment"># cursor-column</span> +<span id="L1712" class="LineNr">1712 </span> ] +<span id="L1713" class="LineNr">1713 </span>] +<span id="L1714" class="LineNr">1714 </span> +<span id="L1715" class="LineNr">1715 </span><span class="Comment"># ctrl-e/end - move cursor to end of line</span> +<span id="L1716" class="LineNr">1716 </span> +<span id="L1717" class="LineNr">1717 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-ctrl-e [ +<span id="L1718" class="LineNr">1718 </span> <span class="Constant">local-scope</span> +<span id="L1719" class="LineNr">1719 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1720" class="LineNr">1720 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1721" class="LineNr">1721 </span><span class="Constant">456]</span> +<span id="L1722" class="LineNr">1722 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1723" class="LineNr">1723 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1724" class="LineNr">1724 </span> $clear-trace +<span id="L1725" class="LineNr">1725 </span> <span class="Comment"># start on first line, press ctrl-e</span> +<span id="L1726" class="LineNr">1726 </span> assume-console [ +<span id="L1727" class="LineNr">1727 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> +<span id="L1728" class="LineNr">1728 </span> <span class="Conceal">¦</span> press ctrl-e +<span id="L1729" class="LineNr">1729 </span> ] +<span id="L1730" class="LineNr">1730 </span> run [ +<span id="L1731" class="LineNr">1731 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1732" class="LineNr">1732 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1733" class="LineNr">1733 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1734" class="LineNr">1734 </span> ] +<span id="L1735" class="LineNr">1735 </span> <span class="Comment"># cursor moves to end of line</span> +<span id="L1736" class="LineNr">1736 </span> memory-should-contain [ +<span id="L1737" class="LineNr">1737 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1738" class="LineNr">1738 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 3</span> +<span id="L1739" class="LineNr">1739 </span> ] +<span id="L1740" class="LineNr">1740 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1741" class="LineNr">1741 </span> <span class="Comment"># editor inserts future characters at cursor</span> +<span id="L1742" class="LineNr">1742 </span> assume-console [ +<span id="L1743" class="LineNr">1743 </span> <span class="Conceal">¦</span> type <span class="Constant">[z]</span> +<span id="L1744" class="LineNr">1744 </span> ] +<span id="L1745" class="LineNr">1745 </span> run [ +<span id="L1746" class="LineNr">1746 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1747" class="LineNr">1747 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1748" class="LineNr">1748 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1749" class="LineNr">1749 </span> ] +<span id="L1750" class="LineNr">1750 </span> memory-should-contain [ +<span id="L1751" class="LineNr">1751 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1752" class="LineNr">1752 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 4</span> <span id="L1753" class="LineNr">1753 </span> ] -<span id="L1754" class="LineNr">1754 </span> check-trace-count-for-label<span class="Constant"> 1</span>, <span class="Constant">[print-character]</span> -<span id="L1755" class="LineNr">1755 </span>] -<span id="L1756" class="LineNr">1756 </span> -<span id="L1757" class="LineNr">1757 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L185'><handle-special-character></a></span> [ -<span id="L1758" class="LineNr">1758 </span> <span class="Delimiter">{</span> -<span id="L1759" class="LineNr">1759 </span> <span class="Conceal">¦</span> move-to-end-of-line?:bool <span class="Special"><-</span> equal c, <span class="Constant">5/ctrl-e</span> -<span id="L1760" class="LineNr">1760 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-end-of-line? -<span id="L1761" class="LineNr">1761 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> -<span id="L1762" class="LineNr">1762 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1781'>move-to-end-of-line</a> editor -<span id="L1763" class="LineNr">1763 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> -<span id="L1764" class="LineNr">1764 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> -<span id="L1765" class="LineNr">1765 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> -<span id="L1766" class="LineNr">1766 </span> <span class="Delimiter">}</span> -<span id="L1767" class="LineNr">1767 </span>] -<span id="L1768" class="LineNr">1768 </span> -<span id="L1769" class="LineNr">1769 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L199'><handle-special-key></a></span> [ -<span id="L1770" class="LineNr">1770 </span> <span class="Delimiter">{</span> -<span id="L1771" class="LineNr">1771 </span> <span class="Conceal">¦</span> move-to-end-of-line?:bool <span class="Special"><-</span> equal k, <span class="Constant">65520/end</span> -<span id="L1772" class="LineNr">1772 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-end-of-line? -<span id="L1773" class="LineNr">1773 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> -<span id="L1774" class="LineNr">1774 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1781'>move-to-end-of-line</a> editor -<span id="L1775" class="LineNr">1775 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> -<span id="L1776" class="LineNr">1776 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> -<span id="L1777" class="LineNr">1777 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> -<span id="L1778" class="LineNr">1778 </span> <span class="Delimiter">}</span> -<span id="L1779" class="LineNr">1779 </span>] -<span id="L1780" class="LineNr">1780 </span> -<span id="L1781" class="LineNr">1781 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1781'>move-to-end-of-line</a> editor:&:editor<span class="muRecipe"> -> </span>editor:&:editor [ -<span id="L1782" class="LineNr">1782 </span> <span class="Constant">local-scope</span> -<span id="L1783" class="LineNr">1783 </span> <span class="Constant">load-ingredients</span> -<span id="L1784" class="LineNr">1784 </span> before-cursor:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> -<span id="L1785" class="LineNr">1785 </span> cursor-column:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-column:offset</span> -<span id="L1786" class="LineNr">1786 </span> right:num <span class="Special"><-</span> get *editor, <span class="Constant">right:offset</span> -<span id="L1787" class="LineNr">1787 </span> <span class="Comment"># while not at end of line, move</span> -<span id="L1788" class="LineNr">1788 </span> <span class="Delimiter">{</span> -<span id="L1789" class="LineNr">1789 </span> <span class="Conceal">¦</span> <a href='../065duplex_list.mu.html#L29'>next</a>:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> before-cursor -<span id="L1790" class="LineNr">1790 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> <a href='../065duplex_list.mu.html#L29'>next</a> <span class="Comment"># end of text</span> -<span id="L1791" class="LineNr">1791 </span> <span class="Conceal">¦</span> nextc:char <span class="Special"><-</span> get *next, <span class="Constant">value:offset</span> -<span id="L1792" class="LineNr">1792 </span> <span class="Conceal">¦</span> at-end-of-line?:bool <span class="Special"><-</span> equal nextc, <span class="Constant">10/newline</span> -<span id="L1793" class="LineNr">1793 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-end-of-line? -<span id="L1794" class="LineNr">1794 </span> <span class="Conceal">¦</span> cursor-column <span class="Special"><-</span> add cursor-column,<span class="Constant"> 1</span> -<span id="L1795" class="LineNr">1795 </span> <span class="Conceal">¦</span> at-right?:bool <span class="Special"><-</span> equal cursor-column, right -<span id="L1796" class="LineNr">1796 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-right? -<span id="L1797" class="LineNr">1797 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, cursor-column -<span id="L1798" class="LineNr">1798 </span> <span class="Conceal">¦</span> before-cursor <span class="Special"><-</span> copy <a href='../065duplex_list.mu.html#L29'>next</a> -<span id="L1799" class="LineNr">1799 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, before-cursor -<span id="L1800" class="LineNr">1800 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L1801" class="LineNr">1801 </span> <span class="Delimiter">}</span> -<span id="L1802" class="LineNr">1802 </span>] -<span id="L1803" class="LineNr">1803 </span> -<span id="L1804" class="LineNr">1804 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-ctrl-e-2 [ -<span id="L1805" class="LineNr">1805 </span> <span class="Constant">local-scope</span> -<span id="L1806" class="LineNr">1806 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1807" class="LineNr">1807 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1808" class="LineNr">1808 </span><span class="Constant">456]</span> -<span id="L1809" class="LineNr">1809 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1810" class="LineNr">1810 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1811" class="LineNr">1811 </span> $clear-trace -<span id="L1812" class="LineNr">1812 </span> <span class="Comment"># start on second line (no newline after), press ctrl-e</span> -<span id="L1813" class="LineNr">1813 </span> assume-console [ -<span id="L1814" class="LineNr">1814 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> -<span id="L1815" class="LineNr">1815 </span> <span class="Conceal">¦</span> press ctrl-e -<span id="L1816" class="LineNr">1816 </span> ] -<span id="L1817" class="LineNr">1817 </span> run [ -<span id="L1818" class="LineNr">1818 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1819" class="LineNr">1819 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1820" class="LineNr">1820 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1821" class="LineNr">1821 </span> ] -<span id="L1822" class="LineNr">1822 </span> <span class="Comment"># cursor moves to end of line</span> -<span id="L1823" class="LineNr">1823 </span> memory-should-contain [ -<span id="L1824" class="LineNr">1824 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1825" class="LineNr">1825 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 3</span> -<span id="L1826" class="LineNr">1826 </span> ] -<span id="L1827" class="LineNr">1827 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1828" class="LineNr">1828 </span>] -<span id="L1829" class="LineNr">1829 </span> -<span id="L1830" class="LineNr">1830 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-end [ -<span id="L1831" class="LineNr">1831 </span> <span class="Constant">local-scope</span> -<span id="L1832" class="LineNr">1832 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1833" class="LineNr">1833 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1834" class="LineNr">1834 </span><span class="Constant">456]</span> -<span id="L1835" class="LineNr">1835 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1836" class="LineNr">1836 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1837" class="LineNr">1837 </span> $clear-trace -<span id="L1838" class="LineNr">1838 </span> <span class="Comment"># start on first line, press 'end'</span> -<span id="L1839" class="LineNr">1839 </span> assume-console [ -<span id="L1840" class="LineNr">1840 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> -<span id="L1841" class="LineNr">1841 </span> <span class="Conceal">¦</span> press end -<span id="L1842" class="LineNr">1842 </span> ] -<span id="L1843" class="LineNr">1843 </span> run [ -<span id="L1844" class="LineNr">1844 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1845" class="LineNr">1845 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1846" class="LineNr">1846 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1847" class="LineNr">1847 </span> ] -<span id="L1848" class="LineNr">1848 </span> <span class="Comment"># cursor moves to end of line</span> -<span id="L1849" class="LineNr">1849 </span> memory-should-contain [ -<span id="L1850" class="LineNr">1850 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1851" class="LineNr">1851 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 3</span> -<span id="L1852" class="LineNr">1852 </span> ] -<span id="L1853" class="LineNr">1853 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1854" class="LineNr">1854 </span>] -<span id="L1855" class="LineNr">1855 </span> -<span id="L1856" class="LineNr">1856 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-end-2 [ -<span id="L1857" class="LineNr">1857 </span> <span class="Constant">local-scope</span> -<span id="L1858" class="LineNr">1858 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1859" class="LineNr">1859 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1860" class="LineNr">1860 </span><span class="Constant">456]</span> -<span id="L1861" class="LineNr">1861 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1862" class="LineNr">1862 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1863" class="LineNr">1863 </span> $clear-trace -<span id="L1864" class="LineNr">1864 </span> <span class="Comment"># start on second line (no newline after), press 'end'</span> -<span id="L1865" class="LineNr">1865 </span> assume-console [ -<span id="L1866" class="LineNr">1866 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> -<span id="L1867" class="LineNr">1867 </span> <span class="Conceal">¦</span> press end -<span id="L1868" class="LineNr">1868 </span> ] -<span id="L1869" class="LineNr">1869 </span> run [ -<span id="L1870" class="LineNr">1870 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1871" class="LineNr">1871 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1872" class="LineNr">1872 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1873" class="LineNr">1873 </span> ] -<span id="L1874" class="LineNr">1874 </span> <span class="Comment"># cursor moves to end of line</span> -<span id="L1875" class="LineNr">1875 </span> memory-should-contain [ -<span id="L1876" class="LineNr">1876 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> -<span id="L1877" class="LineNr">1877 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 3</span> -<span id="L1878" class="LineNr">1878 </span> ] -<span id="L1879" class="LineNr">1879 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1880" class="LineNr">1880 </span>] -<span id="L1881" class="LineNr">1881 </span> -<span id="L1882" class="LineNr">1882 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-wrapped-line [ -<span id="L1883" class="LineNr">1883 </span> <span class="Constant">local-scope</span> -<span id="L1884" class="LineNr">1884 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1885" class="LineNr">1885 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123456</span> -<span id="L1886" class="LineNr">1886 </span><span class="Constant">789]</span> -<span id="L1887" class="LineNr">1887 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> -<span id="L1888" class="LineNr">1888 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1889" class="LineNr">1889 </span> $clear-trace -<span id="L1890" class="LineNr">1890 </span> <span class="Comment"># start on first line, press 'end'</span> -<span id="L1891" class="LineNr">1891 </span> assume-console [ -<span id="L1892" class="LineNr">1892 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> -<span id="L1893" class="LineNr">1893 </span> <span class="Conceal">¦</span> press end -<span id="L1894" class="LineNr">1894 </span> ] -<span id="L1895" class="LineNr">1895 </span> run [ -<span id="L1896" class="LineNr">1896 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1897" class="LineNr">1897 </span> <span class="Conceal">¦</span> 10:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> -<span id="L1898" class="LineNr">1898 </span> <span class="Conceal">¦</span> 11:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> -<span id="L1899" class="LineNr">1899 </span> ] -<span id="L1900" class="LineNr">1900 </span> <span class="Comment"># cursor moves to end of line</span> -<span id="L1901" class="LineNr">1901 </span> memory-should-contain [ -<span id="L1902" class="LineNr">1902 </span> <span class="Conceal">¦</span><span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 1</span> -<span id="L1903" class="LineNr">1903 </span> <span class="Conceal">¦</span><span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 3</span> -<span id="L1904" class="LineNr">1904 </span> ] -<span id="L1905" class="LineNr">1905 </span> <span class="Comment"># no prints</span> -<span id="L1906" class="LineNr">1906 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> -<span id="L1907" class="LineNr">1907 </span> <span class="Comment"># before-cursor is also consistent</span> -<span id="L1908" class="LineNr">1908 </span> assume-console [ -<span id="L1909" class="LineNr">1909 </span> <span class="Conceal">¦</span> type <span class="Constant">[a]</span> -<span id="L1910" class="LineNr">1910 </span> ] -<span id="L1911" class="LineNr">1911 </span> run [ -<span id="L1912" class="LineNr">1912 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1913" class="LineNr">1913 </span> ] -<span id="L1914" class="LineNr">1914 </span> screen-should-contain [ -<span id="L1915" class="LineNr">1915 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1916" class="LineNr">1916 </span> <span class="Conceal">¦</span><span class="Constant"> .123a↩ .</span> -<span id="L1917" class="LineNr">1917 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> -<span id="L1918" class="LineNr">1918 </span> <span class="Conceal">¦</span><span class="Constant"> .789 .</span> -<span id="L1919" class="LineNr">1919 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> +<span id="L1754" class="LineNr">1754 </span> screen-should-contain [ +<span id="L1755" class="LineNr">1755 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1756" class="LineNr">1756 </span> <span class="Conceal">¦</span><span class="Constant"> .123z .</span> +<span id="L1757" class="LineNr">1757 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> +<span id="L1758" class="LineNr">1758 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> +<span id="L1759" class="LineNr">1759 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> +<span id="L1760" class="LineNr">1760 </span> ] +<span id="L1761" class="LineNr">1761 </span> check-trace-count-for-label<span class="Constant"> 1</span>, <span class="Constant">[print-character]</span> +<span id="L1762" class="LineNr">1762 </span>] +<span id="L1763" class="LineNr">1763 </span> +<span id="L1764" class="LineNr">1764 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L185'><handle-special-character></a></span> [ +<span id="L1765" class="LineNr">1765 </span> <span class="Delimiter">{</span> +<span id="L1766" class="LineNr">1766 </span> <span class="Conceal">¦</span> move-to-end-of-line?:bool <span class="Special"><-</span> equal c, <span class="Constant">5/ctrl-e</span> +<span id="L1767" class="LineNr">1767 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-end-of-line? +<span id="L1768" class="LineNr">1768 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> +<span id="L1769" class="LineNr">1769 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1788'>move-to-end-of-line</a> editor +<span id="L1770" class="LineNr">1770 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> +<span id="L1771" class="LineNr">1771 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> +<span id="L1772" class="LineNr">1772 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> +<span id="L1773" class="LineNr">1773 </span> <span class="Delimiter">}</span> +<span id="L1774" class="LineNr">1774 </span>] +<span id="L1775" class="LineNr">1775 </span> +<span id="L1776" class="LineNr">1776 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L199'><handle-special-key></a></span> [ +<span id="L1777" class="LineNr">1777 </span> <span class="Delimiter">{</span> +<span id="L1778" class="LineNr">1778 </span> <span class="Conceal">¦</span> move-to-end-of-line?:bool <span class="Special"><-</span> equal k, <span class="Constant">65520/end</span> +<span id="L1779" class="LineNr">1779 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> move-to-end-of-line? +<span id="L1780" class="LineNr">1780 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-begin></span> +<span id="L1781" class="LineNr">1781 </span> <span class="Conceal">¦</span> <a href='003-shortcuts.mu.html#L1788'>move-to-end-of-line</a> editor +<span id="L1782" class="LineNr">1782 </span> <span class="Conceal">¦</span> undo-coalesce-tag:num <span class="Special"><-</span> copy <span class="Constant">0/never</span> +<span id="L1783" class="LineNr">1783 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <move-cursor-end></span> +<span id="L1784" class="LineNr">1784 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> <span class="Constant">0/don't-render</span> +<span id="L1785" class="LineNr">1785 </span> <span class="Delimiter">}</span> +<span id="L1786" class="LineNr">1786 </span>] +<span id="L1787" class="LineNr">1787 </span> +<span id="L1788" class="LineNr">1788 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1788'>move-to-end-of-line</a> editor:&:editor<span class="muRecipe"> -> </span>editor:&:editor [ +<span id="L1789" class="LineNr">1789 </span> <span class="Constant">local-scope</span> +<span id="L1790" class="LineNr">1790 </span> <span class="Constant">load-ingredients</span> +<span id="L1791" class="LineNr">1791 </span> before-cursor:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> +<span id="L1792" class="LineNr">1792 </span> cursor-column:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-column:offset</span> +<span id="L1793" class="LineNr">1793 </span> right:num <span class="Special"><-</span> get *editor, <span class="Constant">right:offset</span> +<span id="L1794" class="LineNr">1794 </span> <span class="Comment"># while not at end of line, move</span> +<span id="L1795" class="LineNr">1795 </span> <span class="Delimiter">{</span> +<span id="L1796" class="LineNr">1796 </span> <span class="Conceal">¦</span> <a href='../065duplex_list.mu.html#L29'>next</a>:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> before-cursor +<span id="L1797" class="LineNr">1797 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> <a href='../065duplex_list.mu.html#L29'>next</a> <span class="Comment"># end of text</span> +<span id="L1798" class="LineNr">1798 </span> <span class="Conceal">¦</span> nextc:char <span class="Special"><-</span> get *next, <span class="Constant">value:offset</span> +<span id="L1799" class="LineNr">1799 </span> <span class="Conceal">¦</span> at-end-of-line?:bool <span class="Special"><-</span> equal nextc, <span class="Constant">10/newline</span> +<span id="L1800" class="LineNr">1800 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-end-of-line? +<span id="L1801" class="LineNr">1801 </span> <span class="Conceal">¦</span> cursor-column <span class="Special"><-</span> add cursor-column,<span class="Constant"> 1</span> +<span id="L1802" class="LineNr">1802 </span> <span class="Conceal">¦</span> at-right?:bool <span class="Special"><-</span> equal cursor-column, right +<span id="L1803" class="LineNr">1803 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-right? +<span id="L1804" class="LineNr">1804 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, cursor-column +<span id="L1805" class="LineNr">1805 </span> <span class="Conceal">¦</span> before-cursor <span class="Special"><-</span> copy <a href='../065duplex_list.mu.html#L29'>next</a> +<span id="L1806" class="LineNr">1806 </span> <span class="Conceal">¦</span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, before-cursor +<span id="L1807" class="LineNr">1807 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> +<span id="L1808" class="LineNr">1808 </span> <span class="Delimiter">}</span> +<span id="L1809" class="LineNr">1809 </span>] +<span id="L1810" class="LineNr">1810 </span> +<span id="L1811" class="LineNr">1811 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-ctrl-e-2 [ +<span id="L1812" class="LineNr">1812 </span> <span class="Constant">local-scope</span> +<span id="L1813" class="LineNr">1813 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1814" class="LineNr">1814 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1815" class="LineNr">1815 </span><span class="Constant">456]</span> +<span id="L1816" class="LineNr">1816 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1817" class="LineNr">1817 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1818" class="LineNr">1818 </span> $clear-trace +<span id="L1819" class="LineNr">1819 </span> <span class="Comment"># start on second line (no newline after), press ctrl-e</span> +<span id="L1820" class="LineNr">1820 </span> assume-console [ +<span id="L1821" class="LineNr">1821 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> +<span id="L1822" class="LineNr">1822 </span> <span class="Conceal">¦</span> press ctrl-e +<span id="L1823" class="LineNr">1823 </span> ] +<span id="L1824" class="LineNr">1824 </span> run [ +<span id="L1825" class="LineNr">1825 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1826" class="LineNr">1826 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1827" class="LineNr">1827 </span> <span class="Conceal">¦</span> 5:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1828" class="LineNr">1828 </span> ] +<span id="L1829" class="LineNr">1829 </span> <span class="Comment"># cursor moves to end of line</span> +<span id="L1830" class="LineNr">1830 </span> memory-should-contain [ +<span id="L1831" class="LineNr">1831 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1832" class="LineNr">1832 </span> <span class="Conceal">¦</span><span class="Constant"> 5</span> <span class="Special"><-</span><span class="Constant"> 3</span> +<span id="L1833" class="LineNr">1833 </span> ] +<span id="L1834" class="LineNr">1834 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1835" class="LineNr">1835 </span>] +<span id="L1836" class="LineNr">1836 </span> +<span id="L1837" class="LineNr">1837 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-end [ +<span id="L1838" class="LineNr">1838 </span> <span class="Constant">local-scope</span> +<span id="L1839" class="LineNr">1839 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1840" class="LineNr">1840 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1841" class="LineNr">1841 </span><span class="Constant">456]</span> +<span id="L1842" class="LineNr">1842 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1843" class="LineNr">1843 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1844" class="LineNr">1844 </span> $clear-trace +<span id="L1845" class="LineNr">1845 </span> <span class="Comment"># start on first line, press 'end'</span> +<span id="L1846" class="LineNr">1846 </span> assume-console [ +<span id="L1847" class="LineNr">1847 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> +<span id="L1848" class="LineNr">1848 </span> <span class="Conceal">¦</span> press end +<span id="L1849" class="LineNr">1849 </span> ] +<span id="L1850" class="LineNr">1850 </span> run [ +<span id="L1851" class="LineNr">1851 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1852" class="LineNr">1852 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1853" class="LineNr">1853 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1854" class="LineNr">1854 </span> ] +<span id="L1855" class="LineNr">1855 </span> <span class="Comment"># cursor moves to end of line</span> +<span id="L1856" class="LineNr">1856 </span> memory-should-contain [ +<span id="L1857" class="LineNr">1857 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1858" class="LineNr">1858 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 3</span> +<span id="L1859" class="LineNr">1859 </span> ] +<span id="L1860" class="LineNr">1860 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1861" class="LineNr">1861 </span>] +<span id="L1862" class="LineNr">1862 </span> +<span id="L1863" class="LineNr">1863 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-line-with-end-2 [ +<span id="L1864" class="LineNr">1864 </span> <span class="Constant">local-scope</span> +<span id="L1865" class="LineNr">1865 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1866" class="LineNr">1866 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> +<span id="L1867" class="LineNr">1867 </span><span class="Constant">456]</span> +<span id="L1868" class="LineNr">1868 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> +<span id="L1869" class="LineNr">1869 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1870" class="LineNr">1870 </span> $clear-trace +<span id="L1871" class="LineNr">1871 </span> <span class="Comment"># start on second line (no newline after), press 'end'</span> +<span id="L1872" class="LineNr">1872 </span> assume-console [ +<span id="L1873" class="LineNr">1873 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 1</span> +<span id="L1874" class="LineNr">1874 </span> <span class="Conceal">¦</span> press end +<span id="L1875" class="LineNr">1875 </span> ] +<span id="L1876" class="LineNr">1876 </span> run [ +<span id="L1877" class="LineNr">1877 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1878" class="LineNr">1878 </span> <span class="Conceal">¦</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1879" class="LineNr">1879 </span> <span class="Conceal">¦</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1880" class="LineNr">1880 </span> ] +<span id="L1881" class="LineNr">1881 </span> <span class="Comment"># cursor moves to end of line</span> +<span id="L1882" class="LineNr">1882 </span> memory-should-contain [ +<span id="L1883" class="LineNr">1883 </span> <span class="Conceal">¦</span><span class="Constant"> 3</span> <span class="Special"><-</span><span class="Constant"> 2</span> +<span id="L1884" class="LineNr">1884 </span> <span class="Conceal">¦</span><span class="Constant"> 4</span> <span class="Special"><-</span><span class="Constant"> 3</span> +<span id="L1885" class="LineNr">1885 </span> ] +<span id="L1886" class="LineNr">1886 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1887" class="LineNr">1887 </span>] +<span id="L1888" class="LineNr">1888 </span> +<span id="L1889" class="LineNr">1889 </span><span class="muScenario">scenario</span> editor-moves-to-end-of-wrapped-line [ +<span id="L1890" class="LineNr">1890 </span> <span class="Constant">local-scope</span> +<span id="L1891" class="LineNr">1891 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> +<span id="L1892" class="LineNr">1892 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123456</span> +<span id="L1893" class="LineNr">1893 </span><span class="Constant">789]</span> +<span id="L1894" class="LineNr">1894 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> +<span id="L1895" class="LineNr">1895 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e +<span id="L1896" class="LineNr">1896 </span> $clear-trace +<span id="L1897" class="LineNr">1897 </span> <span class="Comment"># start on first line, press 'end'</span> +<span id="L1898" class="LineNr">1898 </span> assume-console [ +<span id="L1899" class="LineNr">1899 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 1</span> +<span id="L1900" class="LineNr">1900 </span> <span class="Conceal">¦</span> press end +<span id="L1901" class="LineNr">1901 </span> ] +<span id="L1902" class="LineNr">1902 </span> run [ +<span id="L1903" class="LineNr">1903 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e +<span id="L1904" class="LineNr">1904 </span> <span class="Conceal">¦</span> 10:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> +<span id="L1905" class="LineNr">1905 </span> <span class="Conceal">¦</span> 11:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> +<span id="L1906" class="LineNr">1906 </span> ] +<span id="L1907" class="LineNr">1907 </span> <span class="Comment"># cursor moves to end of line</span> +<span id="L1908" class="LineNr">1908 </span> memory-should-contain [ +<span id="L1909" class="LineNr">1909 </span> <span class="Conceal">¦</span><span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 1</span> +<span id="L1910" class="LineNr">1910 </span> <span class="Conceal">¦</span><span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 3</span> +<span id="L1911" class="LineNr">1911 </span> ] +<span id="L1912" class="LineNr">1912 </span> <span class="Comment"># no prints</span> +<span id="L1913" class="LineNr">1913 </span> check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[print-character]</span> +<span id="L1914" class="LineNr">1914 </span> <span class="Comment"># before-cursor is also consistent</span> +<span id="L1915" class="LineNr">1915 </span> assume-console [ +<span id="L1916" class="LineNr">1916 </span> <span class="Conceal">¦</span> type <span class="Constant">[a]</span> +<span id="L1917" class="LineNr">1917 </span> ] +<span id="L1918" class="LineNr">1918 </span> run [ +<span id="L1919" class="LineNr">1919 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e <span id="L1920" class="LineNr">1920 </span> ] -<span id="L1921" class="LineNr">1921 </span>] -<span id="L1922" class="LineNr">1922 </span> -<span id="L1923" class="LineNr">1923 </span><span class="Comment"># ctrl-u - delete text from start of line until (but not at) cursor</span> -<span id="L1924" class="LineNr">1924 </span> -<span id="L1925" class="LineNr">1925 </span><span class="muScenario">scenario</span> editor-deletes-to-start-of-line-with-ctrl-u [ -<span id="L1926" class="LineNr">1926 </span> <span class="Constant">local-scope</span> -<span id="L1927" class="LineNr">1927 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L1928" class="LineNr">1928 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L1929" class="LineNr">1929 </span><span class="Constant">456]</span> -<span id="L1930" class="LineNr">1930 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L1931" class="LineNr">1931 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L1932" class="LineNr">1932 </span> $clear-trace -<span id="L1933" class="LineNr">1933 </span> <span class="Comment"># start on second line, press ctrl-u</span> -<span id="L1934" class="LineNr">1934 </span> assume-console [ -<span id="L1935" class="LineNr">1935 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 2</span> -<span id="L1936" class="LineNr">1936 </span> <span class="Conceal">¦</span> press ctrl-u -<span id="L1937" class="LineNr">1937 </span> ] -<span id="L1938" class="LineNr">1938 </span> run [ -<span id="L1939" class="LineNr">1939 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L1940" class="LineNr">1940 </span> ] -<span id="L1941" class="LineNr">1941 </span> <span class="Comment"># cursor deletes to start of line</span> -<span id="L1942" class="LineNr">1942 </span> screen-should-contain [ -<span id="L1943" class="LineNr">1943 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1944" class="LineNr">1944 </span> <span class="Conceal">¦</span><span class="Constant"> .123 .</span> -<span id="L1945" class="LineNr">1945 </span> <span class="Conceal">¦</span><span class="Constant"> .6 .</span> -<span id="L1946" class="LineNr">1946 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L1947" class="LineNr">1947 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L1948" class="LineNr">1948 </span> ] -<span id="L1949" class="LineNr">1949 </span> check-trace-count-for-label<span class="Constant"> 10</span>, <span class="Constant">[print-character]</span> -<span id="L1950" class="LineNr">1950 </span>] -<span id="L1951" class="LineNr">1951 </span> -<span id="L1952" class="LineNr">1952 </span><span class="muRecipe">after</span> <span class="Constant"><a href='002-typing.mu.html#L185'><handle-special-character></a></span> [ -<span id="L1953" class="LineNr">1953 </span> <span class="Delimiter">{</span> -<span id="L1954" class="LineNr">1954 </span> <span class="Conceal">¦</span> delete-to-start-of-line?:bool <span class="Special"><-</span> equal c, <span class="Constant">21/ctrl-u</span> -<span id="L1955" class="LineNr">1955 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> delete-to-start-of-line? -<span id="L1956" class="LineNr">1956 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <a href='003-shortcuts.mu.html#L1956'><delete-to-start-of-line-begin></a></span> -<span id="L1957" class="LineNr">1957 </span> <span class="Conceal">¦</span> deleted-cells:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L1999'>delete-to-start-of-line</a> editor -<span id="L1958" class="LineNr">1958 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <a href='003-shortcuts.mu.html#L1958'><delete-to-start-of-line-end></a></span> -<span id="L1959" class="LineNr">1959 </span> <span class="Conceal">¦</span> go-render?:bool <span class="Special"><-</span> <a href='003-shortcuts.mu.html#L1964'>minimal-render-for-ctrl-u</a> <a href='../081print.mu.html#L16'>screen</a>, editor, deleted-cells -<span id="L1960" class="LineNr">1960 </span> <span class="Conceal">¦</span> <span class="muControl">return</span> -<span id="L1961" class="LineNr">1961 </span> <span class="Delimiter">}</span> -<span id="L1962" class="LineNr">1962 </span>] -<span id="L1963" class="LineNr">1963 </span> -<span id="L1964" class="LineNr">1964 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1964'>minimal-render-for-ctrl-u</a> <a href='../081print.mu.html#L16'>screen</a>:&:<a href='../081print.mu.html#L16'>screen</a>, editor:&:editor, deleted-cells:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char<span class="muRecipe"> -> </span>go-render?:bool, <a href='../081print.mu.html#L16'>screen</a>:&:<a href='../081print.mu.html#L16'>screen</a> [ -<span id="L1965" class="LineNr">1965 </span> <span class="Constant">local-scope</span> -<span id="L1966" class="LineNr">1966 </span> <span class="Constant">load-ingredients</span> -<span id="L1967" class="LineNr">1967 </span> curr-column:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-column:offset</span> -<span id="L1968" class="LineNr">1968 </span> <span class="Comment"># accumulate the current line as text and render it</span> -<span id="L1969" class="LineNr">1969 </span> buf:&:<a href='../061text.mu.html#L126'>buffer</a>:char <span class="Special"><-</span> <a href='../061text.mu.html#L131'>new-buffer</a><span class="Constant"> 30</span> <span class="Comment"># accumulator for the text we need to render</span> -<span id="L1970" class="LineNr">1970 </span> curr:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> -<span id="L1971" class="LineNr">1971 </span> i:num <span class="Special"><-</span> copy curr-column -<span id="L1972" class="LineNr">1972 </span> right:num <span class="Special"><-</span> get *editor, <span class="Constant">right:offset</span> -<span id="L1973" class="LineNr">1973 </span> <span class="Delimiter">{</span> -<span id="L1974" class="LineNr">1974 </span> <span class="Conceal">¦</span> <span class="Comment"># if we have a wrapped line, give up and render the whole screen</span> -<span id="L1975" class="LineNr">1975 </span> <span class="Conceal">¦</span> wrap?:bool <span class="Special"><-</span> greater-or-equal i, right -<span id="L1976" class="LineNr">1976 </span> <span class="Conceal">¦</span> <span class="muControl">return-if</span> wrap?, <span class="Constant">1/go-render</span> -<span id="L1977" class="LineNr">1977 </span> <span class="Conceal">¦</span> curr <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> curr -<span id="L1978" class="LineNr">1978 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> curr -<span id="L1979" class="LineNr">1979 </span> <span class="Conceal">¦</span> c:char <span class="Special"><-</span> get *curr, <span class="Constant">value:offset</span> -<span id="L1980" class="LineNr">1980 </span> <span class="Conceal">¦</span> b:bool <span class="Special"><-</span> equal c,<span class="Constant"> 10</span> -<span id="L1981" class="LineNr">1981 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> b -<span id="L1982" class="LineNr">1982 </span> <span class="Conceal">¦</span> buf <span class="Special"><-</span> append buf, c -<span id="L1983" class="LineNr">1983 </span> <span class="Conceal">¦</span> i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> -<span id="L1984" class="LineNr">1984 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L1985" class="LineNr">1985 </span> <span class="Delimiter">}</span> -<span id="L1986" class="LineNr">1986 </span> <span class="Comment"># if the line used to be wrapped, give up and render the whole screen</span> -<span id="L1987" class="LineNr">1987 </span> num-deleted-cells:num <span class="Special"><-</span> length deleted-cells -<span id="L1988" class="LineNr">1988 </span> old-row-len:num <span class="Special"><-</span> add i, num-deleted-cells -<span id="L1989" class="LineNr">1989 </span> left:num <span class="Special"><-</span> get *editor, <span class="Constant">left:offset</span> -<span id="L1990" class="LineNr">1990 </span> end:num <span class="Special"><-</span> subtract right, left -<span id="L1991" class="LineNr">1991 </span> wrap?:bool <span class="Special"><-</span> greater-or-equal old-row-len, end -<span id="L1992" class="LineNr">1992 </span> <span class="muControl">return-if</span> wrap?, <span class="Constant">1/go-render</span> -<span id="L1993" class="LineNr">1993 </span> curr-line:text <span class="Special"><-</span> <a href='../061text.mu.html#L344'>buffer-to-array</a> buf -<span id="L1994" class="LineNr">1994 </span> curr-row:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-row:offset</span> -<span id="L1995" class="LineNr">1995 </span> <a href='003-shortcuts.mu.html#L2055'>render-code</a> <a href='../081print.mu.html#L16'>screen</a>, curr-line, curr-column, right, curr-row -<span id="L1996" class="LineNr">1996 </span> <span class="muControl">return</span> <span class="Constant">0/dont-render</span> -<span id="L1997" class="LineNr">1997 </span>] -<span id="L1998" class="LineNr">1998 </span> -<span id="L1999" class="LineNr">1999 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L1999'>delete-to-start-of-line</a> editor:&:editor<span class="muRecipe"> -> </span>result:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char, editor:&:editor [ -<span id="L2000" class="LineNr">2000 </span> <span class="Constant">local-scope</span> -<span id="L2001" class="LineNr">2001 </span> <span class="Constant">load-ingredients</span> -<span id="L2002" class="LineNr">2002 </span> <span class="Comment"># compute range to delete</span> -<span id="L2003" class="LineNr">2003 </span> init:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">data:offset</span> -<span id="L2004" class="LineNr">2004 </span> top-of-screen:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">top-of-screen:offset</span> -<span id="L2005" class="LineNr">2005 </span> update-top-of-screen?:bool <span class="Special"><-</span> copy <span class="Constant">0/false</span> -<span id="L2006" class="LineNr">2006 </span> before-cursor:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> get *editor, <span class="Constant">before-cursor:offset</span> -<span id="L2007" class="LineNr">2007 </span> start:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> copy before-cursor -<span id="L2008" class="LineNr">2008 </span> end:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> before-cursor -<span id="L2009" class="LineNr">2009 </span> <span class="Delimiter">{</span> -<span id="L2010" class="LineNr">2010 </span> <span class="Conceal">¦</span> at-start-of-text?:bool <span class="Special"><-</span> equal start, init -<span id="L2011" class="LineNr">2011 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-start-of-text? -<span id="L2012" class="LineNr">2012 </span> <span class="Conceal">¦</span> curr:char <span class="Special"><-</span> get *start, <span class="Constant">value:offset</span> -<span id="L2013" class="LineNr">2013 </span> <span class="Conceal">¦</span> at-start-of-line?:bool <span class="Special"><-</span> equal curr, <span class="Constant">10/newline</span> -<span id="L2014" class="LineNr">2014 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-start-of-line? -<span id="L2015" class="LineNr">2015 </span> <span class="Conceal">¦</span> <span class="Comment"># if we went past top-of-screen, make a note to update it as well</span> -<span id="L2016" class="LineNr">2016 </span> <span class="Conceal">¦</span> at-top-of-screen?:bool <span class="Special"><-</span> equal start, top-of-screen -<span id="L2017" class="LineNr">2017 </span> <span class="Conceal">¦</span> update-top-of-screen?:bool <span class="Special"><-</span> or update-top-of-screen?, at-top-of-screen? -<span id="L2018" class="LineNr">2018 </span> <span class="Conceal">¦</span> start <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L36'>prev</a> start -<span id="L2019" class="LineNr">2019 </span> <span class="Conceal">¦</span> assert start, <span class="Constant">[delete-to-start-of-line tried to move before start of text]</span> -<span id="L2020" class="LineNr">2020 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L2021" class="LineNr">2021 </span> <span class="Delimiter">}</span> -<span id="L2022" class="LineNr">2022 </span> <span class="Comment"># snip it out</span> -<span id="L2023" class="LineNr">2023 </span> result:&:<a href='../065duplex_list.mu.html#L3'>duplex-list</a>:char <span class="Special"><-</span> <a href='../065duplex_list.mu.html#L29'>next</a> start -<span id="L2024" class="LineNr">2024 </span> <a href='../065duplex_list.mu.html#L389'>remove-between</a> start, end -<span id="L2025" class="LineNr">2025 </span> <span class="Comment"># update top-of-screen if it's just been invalidated</span> -<span id="L2026" class="LineNr">2026 </span> <span class="Delimiter">{</span> -<span id="L2027" class="LineNr">2027 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> update-top-of-screen? -<span id="L2028" class="LineNr">2028 </span> <span class="Conceal">¦</span> put *editor, <span class="Constant">top-of-screen:offset</span>, start -<span id="L2029" class="LineNr">2029 </span> <span class="Delimiter">}</span> -<span id="L2030" class="LineNr">2030 </span> <span class="Comment"># adjust cursor</span> -<span id="L2031" class="LineNr">2031 </span> before-cursor <span class="Special"><-</span> copy start -<span id="L2032" class="LineNr">2032 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">before-cursor:offset</span>, before-cursor -<span id="L2033" class="LineNr">2033 </span> left:num <span class="Special"><-</span> get *editor, <span class="Constant">left:offset</span> -<span id="L2034" class="LineNr">2034 </span> *editor <span class="Special"><-</span> put *editor, <span class="Constant">cursor-column:offset</span>, left -<span id="L2035" class="LineNr">2035 </span> <span class="Comment"># if the line wrapped before, we may need to adjust cursor-row as well</span> -<span id="L2036" class="LineNr">2036 </span> right:num <span class="Special"><-</span> get *editor, <span class="Constant">right:offset</span> -<span id="L2037" class="LineNr">2037 </span> width:num <span class="Special"><-</span> subtract right, left -<span id="L2038" class="LineNr">2038 </span> num-deleted:num <span class="Special"><-</span> length result -<span id="L2039" class="LineNr">2039 </span> cursor-row-adjustment:num <span class="Special"><-</span> divide-with-remainder num-deleted, width -<span id="L2040" class="LineNr">2040 </span> <span class="muControl">return-unless</span> cursor-row-adjustment -<span id="L2041" class="LineNr">2041 </span> cursor-row:num <span class="Special"><-</span> get *editor, <span class="Constant">cursor-row:offset</span> -<span id="L2042" class="LineNr">2042 </span> cursor-row-in-editor:num <span class="Special"><-</span> subtract cursor-row,<span class="Constant"> 1</span> <span class="Comment"># ignore menubar</span> -<span id="L2043" class="LineNr">2043 </span> at-top?:bool <span class="Special"><-</span> lesser-or-equal cursor-row-in-editor, cursor-row-adjustment -<span id="L2044" class="LineNr">2044 </span> <span class="Delimiter">{</span> -<span id="L2045" class="LineNr">2045 </span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> at-top? -<span id="L2046" class="LineNr">2046 </span> <span class="Conceal">¦</span> cursor-row <span class="Special"><-</span> copy<span class="Constant"> 1</span> <span class="Comment"># top of editor, below menubar</span> -<span id="L2047" class="LineNr">2047 </span> <span class="Delimiter">}</span> -<span id="L2048" class="LineNr">2048 </span> <span class="Delimiter">{</span> -<span id="L2049" class="LineNr">2049 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> at-top? -<span id="L2050" class="LineNr">2050 </span> <span class="Conceal">¦</span> cursor-row <span class="Special"><-</span> subtract cursor-row, cursor-row-adjustment -<span id="L2051" class="LineNr">2051 </span> <span class="Delimiter">}</span> -<span id="L2052" class="LineNr">2052 </span> put *editor, <span class="Constant">cursor-row:offset</span>, cursor-row -<span id="L2053" class="LineNr">2053 </span>] -<span id="L2054" class="LineNr">2054 </span> -<span id="L2055" class="LineNr">2055 </span><span class="muRecipe">def</span> <a href='003-shortcuts.mu.html#L2055'>render-code</a> <a href='../081print.mu.html#L16'>screen</a>:&:<a href='../081print.mu.html#L16'>screen</a>, s:text, left:num, right:num, row: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="L2056" class="LineNr">2056 </span> <span class="Constant">local-scope</span> -<span id="L2057" class="LineNr">2057 </span> <span class="Constant">load-ingredients</span> -<span id="L2058" class="LineNr">2058 </span> <span class="muControl">return-unless</span> s -<span id="L2059" class="LineNr">2059 </span> color:num <span class="Special"><-</span> copy <span class="Constant">7/white</span> -<span id="L2060" class="LineNr">2060 </span> column:num <span class="Special"><-</span> copy left -<span id="L2061" class="LineNr">2061 </span> <a href='../081print.mu.html#L16'>screen</a> <span class="Special"><-</span> move-cursor <a href='../081print.mu.html#L16'>screen</a>, row, column -<span id="L2062" class="LineNr">2062 </span> <a href='../081print.mu.html#L782'>screen-height</a>:num <span class="Special"><-</span> <a href='../081print.mu.html#L782'>screen-height</a> <a href='../081print.mu.html#L16'>screen</a> -<span id="L2063" class="LineNr">2063 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> -<span id="L2064" class="LineNr">2064 </span> len:num <span class="Special"><-</span> length *s -<span id="L2065" class="LineNr">2065 </span> <span class="Delimiter">{</span> -<span id="L2066" class="LineNr">2066 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> +next-character</span> -<span id="L2067" class="LineNr">2067 </span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> greater-or-equal i, len -<span id="L2068" class="LineNr">2068 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? -<span id="L2069" class="LineNr">2069 </span> <span class="Conceal">¦</span> done? <span class="Special"><-</span> greater-or-equal row, <a href='../081print.mu.html#L782'>screen-height</a> -<span id="L2070" class="LineNr">2070 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? -<span id="L2071" class="LineNr">2071 </span> <span class="Conceal">¦</span> c:char <span class="Special"><-</span> index *s, i -<span id="L2072" class="LineNr">2072 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> <character-c-received></span> -<span id="L2073" class="LineNr">2073 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> -<span id="L2074" class="LineNr">2074 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Comment"># newline? move to left rather than 0</span> -<span id="L2075" class="LineNr">2075 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> newline?:bool <span class="Special"><-</span> equal c, <span class="Constant">10/newline</span> -<span id="L2076" class="LineNr">2076 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> newline? -<span id="L2077" class="LineNr">2077 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Comment"># clear rest of line in this window</span> -<span id="L2078" class="LineNr">2078 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> -<span id="L2079" class="LineNr">2079 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> done?:bool <span class="Special"><-</span> greater-than column, right -<span id="L2080" class="LineNr">2080 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> done? -<span id="L2081" class="LineNr">2081 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> space:char <span class="Special"><-</span> copy <span class="Constant">32/space</span> -<span id="L2082" class="LineNr">2082 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> print <a href='../081print.mu.html#L16'>screen</a>, space -<span id="L2083" class="LineNr">2083 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> column <span class="Special"><-</span> add column,<span class="Constant"> 1</span> -<span id="L2084" class="LineNr">2084 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L2085" class="LineNr">2085 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> -<span id="L2086" class="LineNr">2086 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> row <span class="Special"><-</span> add row,<span class="Constant"> 1</span> -<span id="L2087" class="LineNr">2087 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> column <span class="Special"><-</span> copy left -<span id="L2088" class="LineNr">2088 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L16'>screen</a> <span class="Special"><-</span> move-cursor <a href='../081print.mu.html#L16'>screen</a>, row, column -<span id="L2089" class="LineNr">2089 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> -<span id="L2090" class="LineNr">2090 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span class="Constant">+next-character</span> -<span id="L2091" class="LineNr">2091 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> -<span id="L2092" class="LineNr">2092 </span> <span class="Conceal">¦</span> <span class="Delimiter">{</span> -<span id="L2093" class="LineNr">2093 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Comment"># at right? wrap.</span> -<span id="L2094" class="LineNr">2094 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> at-right?:bool <span class="Special"><-</span> equal column, right -<span id="L2095" class="LineNr">2095 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">break-unless</span> at-right? -<span id="L2096" class="LineNr">2096 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Comment"># print wrap icon</span> -<span id="L2097" class="LineNr">2097 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> wrap-icon:char <span class="Special"><-</span> copy <span class="Constant">8617/loop-back-to-left</span> -<span id="L2098" class="LineNr">2098 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> print <a href='../081print.mu.html#L16'>screen</a>, wrap-icon, <span class="Constant">245/grey</span> -<span id="L2099" class="LineNr">2099 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> column <span class="Special"><-</span> copy left -<span id="L2100" class="LineNr">2100 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> row <span class="Special"><-</span> add row,<span class="Constant"> 1</span> -<span id="L2101" class="LineNr">2101 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <a href='../081print.mu.html#L16'>screen</a> <span class="Special"><-</span> move-cursor <a href='../081print.mu.html#L16'>screen</a>, row, column -<span id="L2102" class="LineNr">2102 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="Comment"># don't increment i</span> -<span id="L2103" class="LineNr">2103 </span> <span class="Conceal">¦</span> <span class="Conceal">¦</span> <span class="muControl">loop</span> <span class="Constant">+next-character</span> -<span id="L2104" class="LineNr">2104 </span> <span class="Conceal">¦</span> <span class="Delimiter">}</span> -<span id="L2105" class="LineNr">2105 </span> <span class="Conceal">¦</span> i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> -<span id="L2106" class="LineNr">2106 </span> <span class="Conceal">¦</span> print <a href='../081print.mu.html#L16'>screen</a>, c, color -<span id="L2107" class="LineNr">2107 </span> <span class="Conceal">¦</span> column <span class="Special"><-</span> add column,<span class="Constant"> 1</span> -<span id="L2108" class="LineNr">2108 </span> <span class="Conceal">¦</span> <span class="muControl">loop</span> -<span id="L2109" class="LineNr">2109 </span> <span class="Delimiter">}</span> -<span id="L2110" class="LineNr">2110 </span> was-at-left?:bool <span class="Special"><-</span> equal column, left -<span id="L2111" class="LineNr">2111 </span> <a href='../081print.mu.html#L553'>clear-line-until</a> <a href='../081print.mu.html#L16'>screen</a>, right -<span id="L2112" class="LineNr">2112 </span> <span class="Delimiter">{</span> -<span id="L2113" class="LineNr">2113 </span> <span class="Conceal">¦</span> <span class="muControl">break-if</span> was-at-left? -<span id="L2114" class="LineNr">2114 </span> <span class="Conceal">¦</span> row <span class="Special"><-</span> add row,<span class="Constant"> 1</span> -<span id="L2115" class="LineNr">2115 </span> <span class="Delimiter">}</span> -<span id="L2116" class="LineNr">2116 </span> move-cursor <a href='../081print.mu.html#L16'>screen</a>, row, left -<span id="L2117" class="LineNr">2117 </span>] -<span id="L2118" class="LineNr">2118 </span> -<span id="L2119" class="LineNr">2119 </span><span class="muScenario">scenario</span> editor-deletes-to-start-of-line-with-ctrl-u-2 [ -<span id="L2120" class="LineNr">2120 </span> <span class="Constant">local-scope</span> -<span id="L2121" class="LineNr">2121 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L2122" class="LineNr">2122 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L2123" class="LineNr">2123 </span><span class="Constant">456]</span> -<span id="L2124" class="LineNr">2124 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L2125" class="LineNr">2125 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L2126" class="LineNr">2126 </span> $clear-trace -<span id="L2127" class="LineNr">2127 </span> <span class="Comment"># start on first line (no newline before), press ctrl-u</span> -<span id="L2128" class="LineNr">2128 </span> assume-console [ -<span id="L2129" class="LineNr">2129 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 2</span> -<span id="L2130" class="LineNr">2130 </span> <span class="Conceal">¦</span> press ctrl-u -<span id="L2131" class="LineNr">2131 </span> ] -<span id="L2132" class="LineNr">2132 </span> run [ -<span id="L2133" class="LineNr">2133 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L2134" class="LineNr">2134 </span> ] -<span id="L2135" class="LineNr">2135 </span> <span class="Comment"># cursor deletes to start of line</span> -<span id="L2136" class="LineNr">2136 </span> screen-should-contain [ -<span id="L2137" class="LineNr">2137 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2138" class="LineNr">2138 </span> <span class="Conceal">¦</span><span class="Constant"> .3 .</span> -<span id="L2139" class="LineNr">2139 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> -<span id="L2140" class="LineNr">2140 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L2141" class="LineNr">2141 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2142" class="LineNr">2142 </span> ] -<span id="L2143" class="LineNr">2143 </span> check-trace-count-for-label<span class="Constant"> 10</span>, <span class="Constant">[print-character]</span> -<span id="L2144" class="LineNr">2144 </span>] -<span id="L2145" class="LineNr">2145 </span> -<span id="L2146" class="LineNr">2146 </span><span class="muScenario">scenario</span> editor-deletes-to-start-of-line-with-ctrl-u-3 [ -<span id="L2147" class="LineNr">2147 </span> <span class="Constant">local-scope</span> -<span id="L2148" class="LineNr">2148 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L2149" class="LineNr">2149 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L2150" class="LineNr">2150 </span><span class="Constant">456]</span> -<span id="L2151" class="LineNr">2151 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L2152" class="LineNr">2152 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L2153" class="LineNr">2153 </span> $clear-trace -<span id="L2154" class="LineNr">2154 </span> <span class="Comment"># start past end of line, press ctrl-u</span> -<span id="L2155" class="LineNr">2155 </span> assume-console [ -<span id="L2156" class="LineNr">2156 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> -<span id="L2157" class="LineNr">2157 </span> <span class="Conceal">¦</span> press ctrl-u -<span id="L2158" class="LineNr">2158 </span> ] -<span id="L2159" class="LineNr">2159 </span> run [ -<span id="L2160" class="LineNr">2160 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L2161" class="LineNr">2161 </span> ] -<span id="L2162" class="LineNr">2162 </span> <span class="Comment"># cursor deletes to start of line</span> -<span id="L2163" class="LineNr">2163 </span> screen-should-contain [ -<span id="L2164" class="LineNr">2164 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2165" class="LineNr">2165 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2166" class="LineNr">2166 </span> <span class="Conceal">¦</span><span class="Constant"> .456 .</span> -<span id="L2167" class="LineNr">2167 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L2168" class="LineNr">2168 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2169" class="LineNr">2169 </span> ] -<span id="L2170" class="LineNr">2170 </span> check-trace-count-for-label<span class="Constant"> 10</span>, <span class="Constant">[print-character]</span> -<span id="L2171" class="LineNr">2171 </span>] -<span id="L2172" class="LineNr">2172 </span> -<span id="L2173" class="LineNr">2173 </span><span class="muScenario">scenario</span> editor-deletes-to-start-of-final-line-with-ctrl-u [ -<span id="L2174" class="LineNr">2174 </span> <span class="Constant">local-scope</span> -<span id="L2175" class="LineNr">2175 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> -<span id="L2176" class="LineNr">2176 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123</span> -<span id="L2177" class="LineNr">2177 </span><span class="Constant">456]</span> -<span id="L2178" class="LineNr">2178 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> -<span id="L2179" class="LineNr">2179 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L2180" class="LineNr">2180 </span> $clear-trace -<span id="L2181" class="LineNr">2181 </span> <span class="Comment"># start past end of final line, press ctrl-u</span> -<span id="L2182" class="LineNr">2182 </span> assume-console [ -<span id="L2183" class="LineNr">2183 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 2</span>,<span class="Constant"> 3</span> -<span id="L2184" class="LineNr">2184 </span> <span class="Conceal">¦</span> press ctrl-u -<span id="L2185" class="LineNr">2185 </span> ] -<span id="L2186" class="LineNr">2186 </span> run [ -<span id="L2187" class="LineNr">2187 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L2188" class="LineNr">2188 </span> ] -<span id="L2189" class="LineNr">2189 </span> <span class="Comment"># cursor deletes to start of line</span> -<span id="L2190" class="LineNr">2190 </span> screen-should-contain [ -<span id="L2191" class="LineNr">2191 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2192" class="LineNr">2192 </span> <span class="Conceal">¦</span><span class="Constant"> .123 .</span> -<span id="L2193" class="LineNr">2193 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2194" class="LineNr">2194 </span><span class="Constant"> </span><span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌╌╌╌╌╌.</span> -<span id="L2195" class="LineNr">2195 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2196" class="LineNr">2196 </span> ] -<span id="L2197" class="LineNr">2197 </span> check-trace-count-for-label<span class="Constant"> 10</span>, <span class="Constant">[print-character]</span> -<span id="L2198" class="LineNr">2198 </span>] -<span id="L2199" class="LineNr">2199 </span> -<span id="L2200" class="LineNr">2200 </span><span class="muScenario">scenario</span> editor-deletes-to-start-of-wrapped-line-with-ctrl-u [ -<span id="L2201" class="LineNr">2201 </span> <span class="Constant">local-scope</span> -<span id="L2202" class="LineNr">2202 </span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">10/height</span> -<span id="L2203" class="LineNr">2203 </span> <span class="Comment"># first line starts out wrapping</span> -<span id="L2204" class="LineNr">2204 </span> s:text <span class="Special"><-</span> new <span class="Constant">[123456</span> -<span id="L2205" class="LineNr">2205 </span><span class="Constant">789]</span> -<span id="L2206" class="LineNr">2206 </span> e:&:editor <span class="Special"><-</span> <a href='001-editor.mu.html#L51'>new-editor</a> s, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> -<span id="L2207" class="LineNr">2207 </span> <a href='002-typing.mu.html#L265'>editor-render</a> <a href='../081print.mu.html#L16'>screen</a>, e -<span id="L2208" class="LineNr">2208 </span> screen-should-contain [ -<span id="L2209" class="LineNr">2209 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2210" class="LineNr">2210 </span> <span class="Conceal">¦</span><span class="Constant"> .1234↩ .</span> -<span id="L2211" class="LineNr">2211 </span> <span class="Conceal">¦</span><span class="Constant"> .56 .</span> -<span id="L2212" class="LineNr">2212 </span> <span class="Conceal">¦</span><span class="Constant"> .789 .</span> -<span id="L2213" class="LineNr">2213 </span> <span class="Conceal">¦</span><span class="Constant"> .╌╌╌╌╌ .</span> -<span id="L2214" class="LineNr">2214 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2215" class="LineNr">2215 </span> ] -<span id="L2216" class="LineNr">2216 </span> $clear-trace -<span id="L2217" class="LineNr">2217 </span> <span class="Comment"># ctrl-u enough of the first line that it's no longer wrapping</span> -<span id="L2218" class="LineNr">2218 </span> assume-console [ -<span id="L2219" class="LineNr">2219 </span> <span class="Conceal">¦</span> left-click<span class="Constant"> 1</span>,<span class="Constant"> 3</span> -<span id="L2220" class="LineNr">2220 </span> <span class="Conceal">¦</span> press ctrl-u -<span id="L2221" class="LineNr">2221 </span> ] -<span id="L2222" class="LineNr">2222 </span> run [ -<span id="L2223" class="LineNr">2223 </span> <span class="Conceal">¦</span> <a href='002-typing.mu.html#L16'>editor-event-loop</a> <a href='../081print.mu.html#L16'>screen</a>, <a href='../084console.mu.html#L23'>console</a>, e -<span id="L2224" class="LineNr">2224 </span> ] -<span id="L2225" class="LineNr">2225 </span> <span class="Comment"># entire screen needs to be refreshed</span> -<span id="L2226" class="LineNr">2226 </span> screen-should-contain [ -<span id="L2227" class="LineNr">2227 </span> <span class="Conceal">¦</span><span class="Constant"> . .</span> -<span id="L2228" class="LineNr">2228 </span> <span class="Conceal">¦</span><sppan>// End Scenario Type Cases</span> raise << <span class="Constant">"don't know how to check memory for '"</span> << lhs << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Delimiter">}</span> <span class="Normal">void</span> check_string<span class="Delimiter">(</span><span class="Normal">int</span> address<span class="Delimiter">,</span> <span class="Normal">const</span> string& literal<span class="Delimiter">)</span> <span class="Delimiter">{</span> trace<span class="Delimiter">(</span><span class="Constant">9999</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"checking string length at "</span> << address << end<span class="Delimiter">();</span> <span class="Normal">if</span> <span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address<span class="Delimiter">)</span> != SIZE<span class="Delimiter">(</span>literal<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>Current_scenario && !Scenario_testing_scenario<span class="Delimiter">)</span> raise << <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span> << Current_scenario<span class="Delimiter">-></span>name << <span class="Constant">": expected location '"</span> << address << <span class="Constant">"' to contain length "</span> << SIZE<span class="Delimiter">(</span>literal<span class="Delimiter">)</span> << <span class="Constant">" of string ["</span> << literal << <span class="Constant">"] but saw "</span> << no_scientific<span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address<span class="Delimiter">))</span> << <span class="Constant">" ("</span> << read_mu_string<span class="Delimiter">(</span>address<span class="Delimiter">)</span> << <span class="Constant">")</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Normal">else</span> raise << <span class="Constant">"expected location '"</span> << address << <span class="Constant">"' to contain length "</span> << SIZE<span class="Delimiter">(</span>literal<span class="Delimiter">)</span> << <span class="Constant">" of string ["</span> << literal << <span class="Constant">"] but saw "</span> << no_scientific<span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address<span class="Delimiter">))</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Scenario_testing_scenario<span class="Delimiter">)</span> <span class="Delimiter">{</span> Passed = <span class="Constant">false</span><span class="Delimiter">;</span> ++Num_failures<span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> ++address<span class="Delimiter">;</span> <span class="Comment">// now skip length</span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < SIZE<span class="Delimiter">(</span>literal<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> trace<span class="Delimiter">(</span><span class="Constant">9999</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"checking location "</span> << address+i << end<span class="Delimiter">();</span> <span class="Normal">if</span> <span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address+i<span class="Delimiter">)</span> != literal<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>Current_scenario && !Scenario_testing_scenario<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Comment">// genuine test in a mu file</span> raise << <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span> << Current_scenario<span class="Delimiter">-></span>name << <span class="Constant">": expected location "</span> << <span class="Delimiter">(</span>address+i<span class="Delimiter">)</span> << <span class="Constant">" to contain "</span> << literal<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> << <span class="Constant">" but saw "</span> << no_scientific<span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address+i<span class="Delimiter">))</span> << <span class="Constant">" ('"</span> << <span class="Normal">static_cast</span><<span class="Normal">char</span>><span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address+i<span class="Delimiter">))</span> << <span class="Constant">"')</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span class="Comment">// just testing scenario support</span> raise << <span class="Constant">"expected location "</span> << <span class="Delimiter">(</span>address+i<span class="Delimiter">)</span> << <span class="Constant">" to contain "</span> << literal<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> << <span class="Constant">" but saw "</span> << no_scientific<span class="Delimiter">(</span>get_or_insert<span class="Delimiter">(</span>Memory<span class="Delimiter">,</span> address+i<span class="Delimiter">))</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span class="Delimiter">}</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Scenario_testing_scenario<span class="Delimiter">)</span> <span class="Delimiter">{</span> Passed = <span class="Constant">false</span><span class="Delimiter">;</span> ++Num_failures<span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">}</span> <span class="Delimiter">}</span> <span class="Delimiter">:(scenario memory_check_multiple)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ memory-should-contain [ <span class="Constant">1</span><span class="Special"> <- </span><span class="Constant">0</span> <span class="Constant">1</span><span class="Special"> <- </span><span class="Constant">0</span> ] ] <span class="traceContains">+error: duplicate expectation for location '1'</span> <span class="Delimiter">:(scenario memory_check_string_length)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ <span class="Constant">1</span>:number<span class="Special"> <- </span>copy <span class="Constant">3</span> <span class="Constant">2</span>:number<span class="Special"> <- </span>copy <span class="Constant">97</span> <span class="Comment"># 'a'</span> <span class="Constant">3</span>:number<span class="Special"> <- </span>copy <span class="Constant">98</span> <span class="Comment"># 'b'</span> <span class="Constant">4</span>:number<span class="Special"> <- </span>copy <span class="Constant">99</span> <span class="Comment"># 'c'</span> memory-should-contain [ <span class="Constant">1</span>:array:character<span class="Special"> <- </span>[ab] ] ] <span class="traceContains">+error: expected location '1' to contain length 2 of string [ab] but saw 3</span> <span class="Delimiter">:(scenario memory_check_string)</span> def main [ <span class="Constant">1</span>:number<span class="Special"> <- </span>copy <span class="Constant">3</span> <span class="Constant">2</span>:number<span class="Special"> <- </span>copy <span class="Constant">97</span> <span class="Comment"># 'a'</span> <span class="Constant">3</span>:number<span class="Special"> <- </span>copy <span class="Constant">98</span> <span class="Comment"># 'b'</span> <span class="Constant">4</span>:number<span class="Special"> <- </span>copy <span class="Constant">99</span> <span class="Comment"># 'c'</span> memory-should-contain [ <span class="Constant">1</span>:array:character<span class="Special"> <- </span>[abc] ] ] <span class="traceContains">+run: checking string length at 1</span> <span class="traceContains">+run: checking location 2</span> <span class="traceContains">+run: checking location 3</span> <span class="traceContains">+run: checking location 4</span> <span class="Delimiter">:(scenario memory_invalid_string_check)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ memory-should-contain [ <span class="Constant">1</span><span class="Special"> <- </span>[abc] ] ] <span class="traceContains">+error: location '1' can't contain non-number [abc]</span> <span class="Delimiter">:(scenario memory_check_with_comment)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ memory-should-contain [ <span class="Constant">1</span><span class="Special"> <- </span><span class="Constant">34</span> <span class="Comment"># comment</span> ] ] <span class="traceAbsent">-error: location 1 can't contain non-number 34 # comment</span> <span class="Comment"># but there'll be an error signalled by memory-should-contain</span> <span class="Delimiter">:(code)</span> <span class="Comment">//: 'trace-should-contain' is like the '+' lines in our scenarios so far</span> <span class="Comment">// Like runs of contiguous '+' lines, order is important. The trace checks</span> <span class="Comment">// that the lines are present *and* in the specified sequence. (There can be</span> <span class="Comment">// other lines in between.)</span> <span class="Delimiter">:(scenario trace_check_fails)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ trace-should-contain [ <span class="Normal">a</span>: b <span class="Normal">a</span>: d ] ] <span class="traceContains">+error: missing [b] in trace with label a</span> <span class="Delimiter">:(before "End Primitive Recipe Declarations")</span> TRACE_SHOULD_CONTAIN<span class="Delimiter">,</span> <span class="Delimiter">:(before "End Primitive Recipe Numbers")</span> put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span> <span class="Constant">"trace-should-contain"</span><span class="Delimiter">,</span> TRACE_SHOULD_CONTAIN<span class="Delimiter">);</span> <span class="Delimiter">:(before "End Primitive Recipe Checks")</span> <span class="Normal">case</span> TRACE_SHOULD_CONTAIN: <span class="Delimiter">{</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(before "End Primitive Recipe Implementations")</span> <span class="Normal">case</span> TRACE_SHOULD_CONTAIN: <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Passed<span class="Delimiter">)</span> <span class="Identifier">break</span><span class="Delimiter">;</span> check_trace<span class="Delimiter">(</span>current_instruction<span class="Delimiter">().</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>name<span class="Delimiter">);</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(code)</span> <span class="Comment">// simplified version of check_trace_contents() that emits errors rather</span> <span class="Comment">// than just printing to stderr</span> <span class="Normal">void</span> check_trace<span class="Delimiter">(</span><span class="Normal">const</span> string& expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> Trace_stream<span class="Delimiter">-></span>newline<span class="Delimiter">();</span> vector<trace_line> expected_lines = parse_trace<span class="Delimiter">(</span>expected<span class="Delimiter">);</span> <span class="Normal">if</span> <span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Normal">int</span> curr_expected_line = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = Trace_stream<span class="Delimiter">-></span>past_lines<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != Trace_stream<span class="Delimiter">-></span>past_lines<span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Normal">if</span> <span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>contents != trim<span class="Delimiter">(</span>p<span class="Delimiter">-></span>contents<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// match</span> ++curr_expected_line<span class="Delimiter">;</span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == SIZE<span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> raise << <span class="Constant">"missing ["</span> << expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>contents << <span class="Constant">"] "</span> << <span class="Constant">"in trace with label "</span> << expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>label << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> Passed = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> vector<trace_line> parse_trace<span class="Delimiter">(</span><span class="Normal">const</span> string& expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> vector<string> buf = split<span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">);</span> vector<trace_line> result<span class="Delimiter">;</span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < SIZE<span class="Delimiter">(</span>buf<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> = trim<span class="Delimiter">(</span>buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span class="Normal">if</span> <span class="Delimiter">(</span>buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Normal">int</span> delim = buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>find<span class="Delimiter">(</span><span class="Constant">": "</span><span class="Delimiter">);</span> result<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>trace_line<span class="Delimiter">(</span>trim<span class="Delimiter">(</span>buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> delim<span class="Delimiter">)),</span> trim<span class="Delimiter">(</span>buf<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>substr<span class="Delimiter">(</span>delim+<span class="Constant">2</span><span class="Delimiter">))));</span> <span class="Delimiter">}</span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(scenario trace_check_fails_in_nonfirst_line)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [b] ] trace-should-contain [ <span class="Normal">a</span>: b <span class="Normal">a</span>: d ] ] <span class="traceContains">+error: missing [d] in trace with label a</span> <span class="Delimiter">:(scenario trace_check_passes_silently)</span> <span class="Special">% Scenario_testing_scenario = true;</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [b] ] trace-should-contain [ <span class="Normal">a</span>: b ] ] <span class="traceAbsent">-error: missing [b] in trace with label a</span> $error: <span class="Constant">0</span> <span class="Comment">//: 'trace-should-not-contain' is like the '-' lines in our scenarios so far</span> <span class="Comment">//: Each trace line is separately checked for absense. Order is *not*</span> <span class="Comment">//: important, so you can't say things like "B should not exist after A."</span> <span class="Delimiter">:(scenario trace_negative_check_fails)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [b] ] trace-should-<span class="Normal">not</span>-contain [ <span class="Normal">a</span>: b ] ] <span class="traceContains">+error: unexpected [b] in trace with label a</span> <span class="Delimiter">:(before "End Primitive Recipe Declarations")</span> TRACE_SHOULD_NOT_CONTAIN<span class="Delimiter">,</span> <span class="Delimiter">:(before "End Primitive Recipe Numbers")</span> put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span> <span class="Constant">"trace-should-not-contain"</span><span class="Delimiter">,</span> TRACE_SHOULD_NOT_CONTAIN<span class="Delimiter">);</span> <span class="Delimiter">:(before "End Primitive Recipe Checks")</span> <span class="Normal">case</span> TRACE_SHOULD_NOT_CONTAIN: <span class="Delimiter">{</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(before "End Primitive Recipe Implementations")</span> <span class="Normal">case</span> TRACE_SHOULD_NOT_CONTAIN: <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Passed<span class="Delimiter">)</span> <span class="Identifier">break</span><span class="Delimiter">;</span> check_trace_missing<span class="Delimiter">(</span>current_instruction<span class="Delimiter">().</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>name<span class="Delimiter">);</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(code)</span> <span class="Comment">// simplified version of check_trace_contents() that emits errors rather</span> <span class="Comment">// than just printing to stderr</span> <span class="Normal">bool</span> check_trace_missing<span class="Delimiter">(</span><span class="Normal">const</span> string& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> Trace_stream<span class="Delimiter">-></span>newline<span class="Delimiter">();</span> vector<trace_line> lines = parse_trace<span class="Delimiter">(</span>in<span class="Delimiter">);</span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < SIZE<span class="Delimiter">(</span>lines<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>trace_count<span class="Delimiter">(</span>lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>label<span class="Delimiter">,</span> lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>contents<span class="Delimiter">)</span> != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> raise << <span class="Constant">"unexpected ["</span> << lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>contents << <span class="Constant">"] in trace with label "</span> << lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>label << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> Passed = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">}</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(scenario trace_negative_check_passes_silently)</span> <span class="Special">% Scenario_testing_scenario = true;</span> def main [ trace-should-<span class="Normal">not</span>-contain [ <span class="Normal">a</span>: b ] ] <span class="traceAbsent">-error: unexpected [b] in trace with label a</span> $error: <span class="Constant">0</span> <span class="Delimiter">:(scenario trace_negative_check_fails_on_any_unexpected_line)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [d] ] trace-should-<span class="Normal">not</span>-contain [ <span class="Normal">a</span>: b <span class="Normal">a</span>: d ] ] <span class="traceContains">+error: unexpected [d] in trace with label a</span> <span class="Delimiter">:(scenario trace_count_check)</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [foo] ] check-trace-count-<span class="Normal">for</span>-label <span class="Constant">1</span><span class="Delimiter">,</span> [a] ] <span class="Delimiter">:(before "End Primitive Recipe Declarations")</span> CHECK_TRACE_COUNT_FOR_LABEL<span class="Delimiter">,</span> <span class="Delimiter">:(before "End Primitive Recipe Numbers")</span> put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span> <span class="Constant">"check-trace-count-for-label"</span><span class="Delimiter">,</span> CHECK_TRACE_COUNT_FOR_LABEL<span class="Delimiter">);</span> <span class="Delimiter">:(before "End Primitive Recipe Checks")</span> <span class="Normal">case</span> CHECK_TRACE_COUNT_FOR_LABEL: <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>SIZE<span class="Delimiter">(</span>inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">)</span> != <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> raise << maybe<span class="Delimiter">(</span>get<span class="Delimiter">(</span>Recipe<span class="Delimiter">,</span> r<span class="Delimiter">).</span>name<span class="Delimiter">)</span> << <span class="Constant">"'check-trace-count-for-label' requires exactly two ingredients, but got '"</span> << to_original_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_mu_number<span class="Delimiter">(</span>inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> <span class="Delimiter">{</span> raise << maybe<span class="Delimiter">(</span>get<span class="Delimiter">(</span>Recipe<span class="Delimiter">,</span> r<span class="Delimiter">).</span>name<span class="Delimiter">)</span> << <span class="Constant">"first ingredient of 'check-trace-count-for-label' should be a number (count), but got '"</span> << inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>original_string << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_literal_string<span class="Delimiter">(</span>inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">)))</span> <span class="Delimiter">{</span> raise << maybe<span class="Delimiter">(</span>get<span class="Delimiter">(</span>Recipe<span class="Delimiter">,</span> r<span class="Delimiter">).</span>name<span class="Delimiter">)</span> << <span class="Constant">"second ingredient of 'check-trace-count-for-label' should be a literal string (label), but got '"</span> << inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>original_string << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(before "End Primitive Recipe Implementations")</span> <span class="Normal">case</span> CHECK_TRACE_COUNT_FOR_LABEL: <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Passed<span class="Delimiter">)</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Normal">int</span> expected_count = ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">);</span> string label = current_instruction<span class="Delimiter">().</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>name<span class="Delimiter">;</span> <span class="Normal">int</span> count = trace_count<span class="Delimiter">(</span>label<span class="Delimiter">);</span> <span class="Normal">if</span> <span class="Delimiter">(</span>count != expected_count<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Normal">if</span> <span class="Delimiter">(</span>Current_scenario && !Scenario_testing_scenario<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Comment">// genuine test in a mu file</span> raise << <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span> << Current_scenario<span class="Delimiter">-></span>name << <span class="Constant">": "</span> << maybe<span class="Delimiter">(</span>current_recipe_name<span class="Delimiter">())</span> << <span class="Constant">"expected "</span> << expected_count << <span class="Constant">" lines in trace with label "</span> << label << <span class="Constant">" in trace: "</span> << end<span class="Delimiter">();</span> DUMP<span class="Delimiter">(</span>label<span class="Delimiter">);</span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span class="Comment">// just testing scenario support</span> raise << maybe<span class="Delimiter">(</span>current_recipe_name<span class="Delimiter">())</span> << <span class="Constant">"expected "</span> << expected_count << <span class="Constant">" lines in trace with label "</span> << label << <span class="Constant">" in trace</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span class="Delimiter">}</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Scenario_testing_scenario<span class="Delimiter">)</span> <span class="Delimiter">{</span> Passed = <span class="Constant">false</span><span class="Delimiter">;</span> ++Num_failures<span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">}</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="Delimiter">}</span> <span class="Delimiter">:(scenario trace_count_check_2)</span> <span class="Special">% Scenario_testing_scenario = true;</span> <span class="Special">% Hide_errors = true;</span> def main [ run [ trace <span class="Constant">1</span><span class="Delimiter">,</span> [a]<span class="Delimiter">,</span> [foo] ] check-trace-count-<span class="Normal">for</span>-label <span class="Constant">2</span><span class="Delimiter">,</span> [a] ] <span class="traceContains">+error: main: expected 2 lines in trace with label a in trace</span> <span class="Comment">//: Minor detail: ignore 'system' calls in scenarios, since anything we do</span> <span class="Comment">//: with them is by definition impossible to test through mu.</span> <span class="Delimiter">:(after "case _SYSTEM:")</span> <span class="Normal">if</span> <span class="Delimiter">(</span>Current_scenario<span class="Delimiter">)</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span class="SalientComment">//:: Helpers</span> <span class="Delimiter">:(code)</span> <span class="Comment">// just for the scenarios running scenarios in C++ layers</span> <span class="Normal">void</span> run_mu_scenario<span class="Delimiter">(</span><span class="Normal">const</span> string& form<span class="Delimiter">)</span> <span class="Delimiter">{</span> Scenario_names<span class="Delimiter">.</span>clear<span class="Delimiter">();</span> istringstream in<span class="Delimiter">(</span>form<span class="Delimiter">);</span> in >> std::noskipws<span class="Delimiter">;</span> skip_whitespace_and_comments<span class="Delimiter">(</span>in<span class="Delimiter">);</span> string _scenario = next_word<span class="Delimiter">(</span>in<span class="Delimiter">);</span> assert<span class="Delimiter">(</span>_scenario == <span class="Constant">"scenario"</span><span class="Delimiter">);</span> scenario s = parse_scenario<span class="Delimiter">(</span>in<span class="Delimiter">);</span> run_mu_scenario<span class="Delimiter">(</span>s<span class="Delimiter">);</span> <span class="Delimiter">}</span> </pre> </body> </html> <!-- vim: set foldmethod=manual : --> |