From da9f0082dbd64590bfa37c1d2f77d0b871b207bb Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 5 Jun 2020 14:06:57 -0700
Subject: 6470

No, we can stay with the previous prototype a little longer.
---
 prototypes/browse/20/screen-position-state.mu | 128 --------------------------
 1 file changed, 128 deletions(-)
 delete mode 100644 prototypes/browse/20/screen-position-state.mu

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

diff --git a/prototypes/browse/20/screen-position-state.mu b/prototypes/browse/20/screen-position-state.mu
deleted file mode 100644
index 3bfd361b..00000000
--- a/prototypes/browse/20/screen-position-state.mu
+++ /dev/null
@@ -1,128 +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
-  #   text-width
-  #   page-height (temporary)
-  var self/esi: (addr screen-position-state) <- copy _self
-  var nrows/eax: int <- copy 0
-  var ncols/ecx: int <- copy 0
-  nrows, ncols <- screen-size
-  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, 0x22  # top-margin + page-height
-  # self->leftcol = page-margin
-  dest <- get self, leftcol
-  copy-to *dest, 5  # left-margin
-  # self->rightcol = self->leftcol + text-width
-  dest <- get self, rightcol
-  copy-to *dest, 0x45  # left-margin + text-width
-  #
-  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
-  # 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 {
-  var self/esi: (addr screen-position-state) <- copy _self
-  # print c
-  print-byte c
-  # 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
-  # self->row++
-  var tmp/eax: (addr int) <- get self, row
-  increment *tmp
-  # if (self->row > self->botrow) next-page(self)
-  var tmp2/ecx: int <- 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
-  # TMP
-  var tmp/eax: (addr int) <- get self, row
-  increment *tmp
-}
-
-fn done-drawing? _self: (addr screen-position-state) -> result/eax: boolean {
-  var self/esi: (addr screen-position-state) <- copy _self
-  # TMP
-  var r/eax: (addr int) <- get self, row
-  var tmp/ecx: (addr int) <- get self, botrow
-  var max/ecx: int <- copy *tmp
-$done-drawing?:check: {
-    compare *r, max
-    {
-      break-if->=
-      result <- copy 0  # false
-      break $done-drawing?:check
-    }
-    {
-      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 *r *c
-}
-- 
cgit 1.4.1-2-gfad0