diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-10-01 20:40:22 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-10-01 20:40:22 -0700 |
commit | d75b71297426ee2d63d5630d1ef9469de48aca84 (patch) | |
tree | 0d4c517526770343822d4f409a8e9c1b7ac0e51e /prototypes/browse/28/screen-position-state.mu | |
parent | f3ca0e3cb33d6c34dbe4c6941598d16d140be206 (diff) | |
download | mu-d75b71297426ee2d63d5630d1ef9469de48aca84.tar.gz |
6923
Diffstat (limited to 'prototypes/browse/28/screen-position-state.mu')
-rw-r--r-- | prototypes/browse/28/screen-position-state.mu | 172 |
1 files changed, 0 insertions, 172 deletions
diff --git a/prototypes/browse/28/screen-position-state.mu b/prototypes/browse/28/screen-position-state.mu deleted file mode 100644 index 7b53ae07..00000000 --- a/prototypes/browse/28/screen-position-state.mu +++ /dev/null @@ -1,172 +0,0 @@ -type screen-position-state { - nrows: int # const - ncols: int # const - toprow: int - botrow: int - leftcol: int - rightcol: int - row: int - col: int -} - -fn init-screen-position-state _self: (addr screen-position-state) { - # hardcoded parameters: - # top-margin - # page-margin - # page-width - var self/esi: (addr screen-position-state) <- copy _self - var nrows/eax: int <- copy 0xa - var ncols/ecx: int <- copy 0x20 - nrows, ncols <- screen-size 0 # Comment this out to debug with a tiny page. You'll also need to adjust rightcol below. - var dest/edx: (addr int) <- copy 0 - # self->nrows = nrows - dest <- get self, nrows - copy-to *dest, nrows - # self->ncols = ncols - dest <- get self, ncols - copy-to *dest, ncols - # self->toprow = top-margin - dest <- get self, toprow - copy-to *dest, 2 # top-margin - # self->botrow = nrows - dest <- get self, botrow - copy-to *dest, nrows - # - start-drawing self -} - -fn start-drawing _self: (addr screen-position-state) { - var self/esi: (addr screen-position-state) <- copy _self - var tmp/eax: (addr int) <- copy 0 - var tmp2/ecx: int <- copy 0 - clear-screen 0 - # self->leftcol = page-margin - tmp <- get self, leftcol - copy-to *tmp, 5 # left-margin - # self->rightcol = self->leftcol + page-width - tmp <- get self, rightcol -#? copy-to *tmp, 0x1f # ncols - 1 - copy-to *tmp, 0x45 # left-margin + page-width - # self->row = self->toprow - tmp <- get self, toprow - tmp2 <- copy *tmp - tmp <- get self, row - copy-to *tmp, tmp2 - # self->col = self->leftcol - tmp <- get self, leftcol - tmp2 <- copy *tmp - tmp <- get self, col - copy-to *tmp, tmp2 - # - reposition-cursor self -} - -fn add-char _self: (addr screen-position-state), c: byte { -$add-char:body: { - var self/esi: (addr screen-position-state) <- copy _self - { - compare c, 0xa # newline - break-if-!= - next-line self - reposition-cursor self - break $add-char:body - } - # print c - var g/eax: grapheme <- copy c - print-grapheme 0, g - # self->col++ - var tmp/eax: (addr int) <- get self, col - increment *tmp - # if (self->col > self->rightcol) next-line(self) - var tmp2/ecx: int <- copy *tmp - tmp <- get self, rightcol - compare tmp2, *tmp - { - break-if-<= - next-line self - reposition-cursor self - } -} -} - -fn next-line _self: (addr screen-position-state) { - var self/esi: (addr screen-position-state) <- copy _self - var tmp/eax: (addr int) <- copy 0 - var tmp2/ecx: int <- copy 0 - # self->col = self->leftcol - tmp <- get self, leftcol - tmp2 <- copy *tmp - tmp <- get self, col - copy-to *tmp, tmp2 - # self->row++ - tmp <- get self, row - increment *tmp - # if (self->row > self->botrow) next-page(self) - tmp2 <- copy *tmp - tmp <- get self, botrow - compare tmp2, *tmp - { - break-if-<= - next-page self - } -} - -fn next-page _self: (addr screen-position-state) { - var self/esi: (addr screen-position-state) <- copy _self - var tmp/eax: (addr int) <- copy 0 - var tmp2/ecx: int <- copy 0 -#? # temporary: stop -#? tmp <- get self, ncols -#? tmp2 <- copy *tmp -#? tmp <- get self, rightcol -#? copy-to *tmp, tmp2 - # real: multiple pages - # self->leftcol = self->rightcol + page-margin - tmp <- get self, rightcol - tmp2 <- copy *tmp - tmp2 <- add 5 # page-margin - tmp <- get self, leftcol - copy-to *tmp, tmp2 - # self->rightcol = self->leftcol + page-width - tmp2 <- copy *tmp - tmp2 <- add 0x40 # page-width - tmp <- get self, rightcol - copy-to *tmp, tmp2 - # self->row = self->toprow - tmp <- get self, toprow - tmp2 <- copy *tmp - tmp <- get self, row - copy-to *tmp, tmp2 - # self->col = self->leftcol - tmp <- get self, leftcol - tmp2 <- copy *tmp - tmp <- get self, col - copy-to *tmp, tmp2 -} - -fn done-drawing? _self: (addr screen-position-state) -> result/eax: boolean { -$done-drawing?:body: { - # return self->rightcol >= self->ncols - var self/esi: (addr screen-position-state) <- copy _self - var max/ecx: (addr int) <- get self, ncols - var tmp/eax: (addr int) <- get self, rightcol - var right/eax: int <- copy *tmp - compare right, *max - { - break-if->= - result <- copy 0 # false - break $done-drawing?:body - } - { - break-if-< - result <- copy 1 # true - } -} -} - -fn reposition-cursor _self: (addr screen-position-state) { - var self/esi: (addr screen-position-state) <- copy _self - var r/eax: (addr int) <- get self, row - var c/ecx: (addr int) <- get self, col - move-cursor 0, *r *c -} |