From 4f2adf06713eeec995d7811cd1d7a4dfe3cdda86 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 27 May 2017 21:32:51 -0700 Subject: 3883 --- html/081print.mu.html | 475 ++++++++++++++++++++++++++------------------------ 1 file changed, 249 insertions(+), 226 deletions(-) (limited to 'html/081print.mu.html') diff --git a/html/081print.mu.html b/html/081print.mu.html index 22a4c11b..01a5dd12 100644 --- a/html/081print.mu.html +++ b/html/081print.mu.html @@ -286,7 +286,7 @@ if ('onhashchange' in window) { 223 # clear top line and 'rotate' it to the bottom 224 top-idx:num <- get *screen, top-idx:offset # 0 <= top-idx < len(buf) 225 next-top-idx:num <- add top-idx, width # 0 <= next-top-idx <= len(buf) -226 empty-cell:screen-cell <- merge 0, 0 +226 empty-cell:screen-cell <- merge 0/empty, 7/white 227 { 228 ¦ done?:bool <- greater-or-equal top-idx, next-top-idx 229 ¦ break-if done? @@ -546,7 +546,7 @@ if ('onhashchange' in window) { 483 ¦ 21 <- 101 # 'e' 484 ¦ 22 <- 7 # white 485 ¦ 23 <- 0 # unused -486 ¦ 24 <- 0 # no color +486 ¦ 24 <- 7 # white 487 ] 488 ] 489 @@ -600,7 +600,7 @@ if ('onhashchange' in window) { 537 local-scope 538 load-ingredients 539 row:num, column:num <- cursor-position screen -540 height:num <- screen-height screen +540 height:num <- screen-height screen 541 past-bottom?:bool <- greater-or-equal row, height 542 return-if past-bottom? 543 space:char <- copy 32/space @@ -688,229 +688,252 @@ if ('onhashchange' in window) { 625 ¦ return 626 } 627 # fake screen -628 height:num <- get *screen, num-rows:offset -629 row:num <- get *screen, cursor-row:offset -630 max:num <- subtract height, 1 -631 at-bottom?:bool <- greater-or-equal row, max -632 return-if at-bottom? -633 row <- add row, 1 -634 *screen <- put *screen, cursor-row:offset, row -635 ] -636 -637 def cursor-up screen:&:screen -> screen:&:screen [ -638 local-scope -639 load-ingredients -640 { -641 ¦ break-if screen -642 ¦ # real screen -643 ¦ move-cursor-up-on-display -644 ¦ return -645 } -646 # fake screen -647 row:num <- get *screen, cursor-row:offset -648 at-top?:bool <- lesser-or-equal row, 0 -649 return-if at-top? -650 row <- subtract row, 1 -651 *screen <- put *screen, cursor-row:offset, row -652 ] -653 -654 def cursor-right screen:&:screen -> screen:&:screen [ -655 local-scope -656 load-ingredients -657 { -658 ¦ break-if screen -659 ¦ # real screen -660 ¦ move-cursor-right-on-display -661 ¦ return -662 } -663 # fake screen -664 width:num <- get *screen, num-columns:offset -665 column:num <- get *screen, cursor-column:offset -666 max:num <- subtract width, 1 -667 at-bottom?:bool <- greater-or-equal column, max -668 return-if at-bottom? -669 column <- add column, 1 -670 *screen <- put *screen, cursor-column:offset, column -671 ] -672 -673 def cursor-left screen:&:screen -> screen:&:screen [ -674 local-scope -675 load-ingredients -676 { -677 ¦ break-if screen -678 ¦ # real screen -679 ¦ move-cursor-left-on-display -680 ¦ return -681 } -682 # fake screen -683 column:num <- get *screen, cursor-column:offset -684 at-top?:bool <- lesser-or-equal column, 0 -685 return-if at-top? -686 column <- subtract column, 1 -687 *screen <- put *screen, cursor-column:offset, column -688 ] -689 -690 def cursor-to-start-of-line screen:&:screen -> screen:&:screen [ -691 local-scope -692 load-ingredients -693 row:num <- cursor-position screen -694 column:num <- copy 0 -695 screen <- move-cursor screen, row, column -696 ] -697 -698 def cursor-to-next-line screen:&:screen -> screen:&:screen [ -699 local-scope -700 load-ingredients -701 screen <- cursor-down screen -702 screen <- cursor-to-start-of-line screen -703 ] -704 -705 def move-cursor-to-column screen:&:screen, column:num -> screen:&:screen [ -706 local-scope -707 load-ingredients -708 row:num, _ <- cursor-position screen -709 move-cursor screen, row, column -710 ] -711 -712 def screen-width screen:&:screen -> width:num [ -713 local-scope -714 load-ingredients -715 { -716 ¦ break-unless screen -717 ¦ # fake screen -718 ¦ width <- get *screen, num-columns:offset -719 ¦ return -720 } -721 # real screen -722 width <- display-width -723 ] -724 -725 def screen-height screen:&:screen -> height:num [ -726 local-scope -727 load-ingredients -728 { -729 ¦ break-unless screen -730 ¦ # fake screen -731 ¦ height <- get *screen, num-rows:offset -732 ¦ return -733 } -734 # real screen -735 height <- display-height -736 ] -737 -738 def print screen:&:screen, s:text -> screen:&:screen [ -739 local-scope -740 load-ingredients -741 color:num, color-found?:bool <- next-ingredient -742 { -743 ¦ # default color to white -744 ¦ break-if color-found? -745 ¦ color <- copy 7/white -746 } -747 bg-color:num, bg-color-found?:bool <- next-ingredient -748 { -749 ¦ # default bg-color to black -750 ¦ break-if bg-color-found? -751 ¦ bg-color <- copy 0/black -752 } -753 len:num <- length *s -754 i:num <- copy 0 -755 { -756 ¦ done?:bool <- greater-or-equal i, len -757 ¦ break-if done? -758 ¦ c:char <- index *s, i -759 ¦ print screen, c, color, bg-color -760 ¦ i <- add i, 1 -761 ¦ loop -762 } -763 ] -764 -765 scenario print-text-wraps-past-right-margin [ -766 local-scope -767 fake-screen:&:screen <- new-fake-screen 3/width, 2/height -768 run [ -769 ¦ fake-screen <- print fake-screen, [abcd] -770 ¦ 5:num/raw <- get *fake-screen, cursor-row:offset -771 ¦ 6:num/raw <- get *fake-screen, cursor-column:offset -772 ¦ 7:num/raw <- get *fake-screen, top-idx:offset -773 ¦ cell:&:@:screen-cell <- get *fake-screen, data:offset -774 ¦ 10:@:screen-cell/raw <- copy *cell -775 ] -776 memory-should-contain [ -777 ¦ 5 <- 1 # cursor-row -778 ¦ 6 <- 1 # cursor-column -779 ¦ 7 <- 0 # top-idx -780 ¦ 10 <- 6 # width*height -781 ¦ 11 <- 97 # 'a' -782 ¦ 12 <- 7 # white -783 ¦ 13 <- 98 # 'b' -784 ¦ 14 <- 7 # white -785 ¦ 15 <- 99 # 'c' -786 ¦ 16 <- 7 # white -787 ¦ 17 <- 100 # 'd' -788 ¦ 18 <- 7 # white -789 ¦ # rest of screen is empty -790 ¦ 19 <- 0 -791 ] -792 ] -793 -794 def print screen:&:screen, n:num -> screen:&:screen [ -795 local-scope -796 load-ingredients -797 color:num, color-found?:bool <- next-ingredient -798 { -799 ¦ # default color to white -800 ¦ break-if color-found? -801 ¦ color <- copy 7/white -802 } -803 bg-color:num, bg-color-found?:bool <- next-ingredient -804 { -805 ¦ # default bg-color to black -806 ¦ break-if bg-color-found? -807 ¦ bg-color <- copy 0/black -808 } -809 # todo: other bases besides decimal -810 s:text <- to-text n -811 screen <- print screen, s, color, bg-color -812 ] -813 -814 def print screen:&:screen, n:bool -> screen:&:screen [ -815 local-scope -816 load-ingredients -817 color:num, color-found?:bool <- next-ingredient -818 { -819 ¦ # default color to white -820 ¦ break-if color-found? -821 ¦ color <- copy 7/white -822 } -823 bg-color:num, bg-color-found?:bool <- next-ingredient -824 { -825 ¦ # default bg-color to black -826 ¦ break-if bg-color-found? -827 ¦ bg-color <- copy 0/black -828 } -829 n2:num <- copy n -830 screen <- print screen, n2, color, bg-color -831 ] -832 -833 def print screen:&:screen, n:&:_elem -> screen:&:screen [ -834 local-scope -835 load-ingredients -836 color:num, color-found?:bool <- next-ingredient -837 { -838 ¦ # default color to white -839 ¦ break-if color-found? -840 ¦ color <- copy 7/white -841 } -842 bg-color:num, bg-color-found?:bool <- next-ingredient -843 { -844 ¦ # default bg-color to black -845 ¦ break-if bg-color-found? -846 ¦ bg-color <- copy 0/black -847 } -848 n2:num <- copy n -849 screen <- print screen, n2, color, bg-color -850 ] +628 cursor-down-on-fake-screen screen +629 ] +630 +631 scenario cursor-down-scrolls [ +632 local-scope +633 fake-screen:&:screen <- new-fake-screen 3/width, 2/height +634 # print something to screen and scroll +635 run [ +636 ¦ print fake-screen, [abc] +637 ¦ cursor-to-next-line fake-screen +638 ¦ cursor-to-next-line fake-screen +639 ¦ data:&:@:screen-cell <- get *fake-screen, data:offset +640 ¦ 10:@:screen-cell/raw <- copy *data +641 ] +642 # screen is now blank +643 memory-should-contain [ +644 ¦ 10 <- 6 # width*height +645 ¦ 11 <- 0 +646 ¦ 12 <- 7 # white +647 ¦ 13 <- 0 +648 ¦ 14 <- 7 # white +649 ¦ 15 <- 0 +650 ¦ 16 <- 7 # white +651 ¦ 17 <- 0 +652 ¦ 18 <- 7 # white +653 ¦ 19 <- 0 +654 ¦ 20 <- 7 # white +655 ¦ 21 <- 0 +656 ¦ 22 <- 7 # white +657 ] +658 ] +659 +660 def cursor-up screen:&:screen -> screen:&:screen [ +661 local-scope +662 load-ingredients +663 { +664 ¦ break-if screen +665 ¦ # real screen +666 ¦ move-cursor-up-on-display +667 ¦ return +668 } +669 # fake screen +670 row:num <- get *screen, cursor-row:offset +671 at-top?:bool <- lesser-or-equal row, 0 +672 return-if at-top? +673 row <- subtract row, 1 +674 *screen <- put *screen, cursor-row:offset, row +675 ] +676 +677 def cursor-right screen:&:screen -> screen:&:screen [ +678 local-scope +679 load-ingredients +680 { +681 ¦ break-if screen +682 ¦ # real screen +683 ¦ move-cursor-right-on-display +684 ¦ return +685 } +686 # fake screen +687 width:num <- get *screen, num-columns:offset +688 column:num <- get *screen, cursor-column:offset +689 max:num <- subtract width, 1 +690 at-bottom?:bool <- greater-or-equal column, max +691 return-if at-bottom? +692 column <- add column, 1 +693 *screen <- put *screen, cursor-column:offset, column +694 ] +695 +696 def cursor-left screen:&:screen -> screen:&:screen [ +697 local-scope +698 load-ingredients +699 { +700 ¦ break-if screen +701 ¦ # real screen +702 ¦ move-cursor-left-on-display +703 ¦ return +704 } +705 # fake screen +706 column:num <- get *screen, cursor-column:offset +707 at-top?:bool <- lesser-or-equal column, 0 +708 return-if at-top? +709 column <- subtract column, 1 +710 *screen <- put *screen, cursor-column:offset, column +711 ] +712 +713 def cursor-to-start-of-line screen:&:screen -> screen:&:screen [ +714 local-scope +715 load-ingredients +716 row:num <- cursor-position screen +717 column:num <- copy 0 +718 screen <- move-cursor screen, row, column +719 ] +720 +721 def cursor-to-next-line screen:&:screen -> screen:&:screen [ +722 local-scope +723 load-ingredients +724 screen <- cursor-down screen +725 screen <- cursor-to-start-of-line screen +726 ] +727 +728 def move-cursor-to-column screen:&:screen, column:num -> screen:&:screen [ +729 local-scope +730 load-ingredients +731 row:num, _ <- cursor-position screen +732 move-cursor screen, row, column +733 ] +734 +735 def screen-width screen:&:screen -> width:num [ +736 local-scope +737 load-ingredients +738 { +739 ¦ break-unless screen +740 ¦ # fake screen +741 ¦ width <- get *screen, num-columns:offset +742 ¦ return +743 } +744 # real screen +745 width <- display-width +746 ] +747 +748 def screen-height screen:&:screen -> height:num [ +749 local-scope +750 load-ingredients +751 { +752 ¦ break-unless screen +753 ¦ # fake screen +754 ¦ height <- get *screen, num-rows:offset +755 ¦ return +756 } +757 # real screen +758 height <- display-height +759 ] +760 +761 def print screen:&:screen, s:text -> screen:&:screen [ +762 local-scope +763 load-ingredients +764 color:num, color-found?:bool <- next-ingredient +765 { +766 ¦ # default color to white +767 ¦ break-if color-found? +768 ¦ color <- copy 7/white +769 } +770 bg-color:num, bg-color-found?:bool <- next-ingredient +771 { +772 ¦ # default bg-color to black +773 ¦ break-if bg-color-found? +774 ¦ bg-color <- copy 0/black +775 } +776 len:num <- length *s +777 i:num <- copy 0 +778 { +779 ¦ done?:bool <- greater-or-equal i, len +780 ¦ break-if done? +781 ¦ c:char <- index *s, i +782 ¦ print screen, c, color, bg-color +783 ¦ i <- add i, 1 +784 ¦ loop +785 } +786 ] +787 +788 scenario print-text-wraps-past-right-margin [ +789 local-scope +790 fake-screen:&:screen <- new-fake-screen 3/width, 2/height +791 run [ +792 ¦ fake-screen <- print fake-screen, [abcd] +793 ¦ 5:num/raw <- get *fake-screen, cursor-row:offset +794 ¦ 6:num/raw <- get *fake-screen, cursor-column:offset +795 ¦ 7:num/raw <- get *fake-screen, top-idx:offset +796 ¦ cell:&:@:screen-cell <- get *fake-screen, data:offset +797 ¦ 10:@:screen-cell/raw <- copy *cell +798 ] +799 memory-should-contain [ +800 ¦ 5 <- 1 # cursor-row +801 ¦ 6 <- 1 # cursor-column +802 ¦ 7 <- 0 # top-idx +803 ¦ 10 <- 6 # width*height +804 ¦ 11 <- 97 # 'a' +805 ¦ 12 <- 7 # white +806 ¦ 13 <- 98 # 'b' +807 ¦ 14 <- 7 # white +808 ¦ 15 <- 99 # 'c' +809 ¦ 16 <- 7 # white +810 ¦ 17 <- 100 # 'd' +811 ¦ 18 <- 7 # white +812 ¦ # rest of screen is empty +813 ¦ 19 <- 0 +814 ] +815 ] +816 +817 def print screen:&:screen, n:num -> screen:&:screen [ +818 local-scope +819 load-ingredients +820 color:num, color-found?:bool <- next-ingredient +821 { +822 ¦ # default color to white +823 ¦ break-if color-found? +824 ¦ color <- copy 7/white +825 } +826 bg-color:num, bg-color-found?:bool <- next-ingredient +827 { +828 ¦ # default bg-color to black +829 ¦ break-if bg-color-found? +830 ¦ bg-color <- copy 0/black +831 } +832 # todo: other bases besides decimal +833 s:text <- to-text n +834 screen <- print screen, s, color, bg-color +835 ] +836 +837 def print screen:&:screen, n:bool -> screen:&:screen [ +838 local-scope +839 load-ingredients +840 color:num, color-found?:bool <- next-ingredient +841 { +842 ¦ # default color to white +843 ¦ break-if color-found? +844 ¦ color <- copy 7/white +845 } +846 bg-color:num, bg-color-found?:bool <- next-ingredient +847 { +848 ¦ # default bg-color to black +849 ¦ break-if bg-color-found? +850 ¦ bg-color <- copy 0/black +851 } +852 n2:num <- copy n +853 screen <- print screen, n2, color, bg-color +854 ] +855 +856 def print screen:&:screen, n:&:_elem -> screen:&:screen [ +857 local-scope +858 load-ingredients +859 color:num, color-found?:bool <- next-ingredient +860 { +861 ¦ # default color to white +862 ¦ break-if color-found? +863 ¦ color <- copy 7/white +864 } +865 bg-color:num, bg-color-found?:bool <- next-ingredient +866 { +867 ¦ # default bg-color to black +868 ¦ break-if bg-color-found? +869 ¦ bg-color <- copy 0/black +870 } +871 n2:num <- copy n +872 screen <- print screen, n2, color, bg-color +873 ] -- cgit 1.4.1-2-gfad0