From d75b71297426ee2d63d5630d1ef9469de48aca84 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Thu, 1 Oct 2020 20:40:22 -0700
Subject: 6923

---
 .../browse/26-headers/screen-position-state.mu     | 172 ---------------------
 1 file changed, 172 deletions(-)
 delete mode 100644 prototypes/browse/26-headers/screen-position-state.mu

(limited to 'prototypes/browse/26-headers/screen-position-state.mu')

diff --git a/prototypes/browse/26-headers/screen-position-state.mu b/prototypes/browse/26-headers/screen-position-state.mu
deleted file mode 100644
index 7b53ae07..00000000
--- a/prototypes/browse/26-headers/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
-}
-- 
cgit 1.4.1-2-gfad0