4 files changed, 0 insertions, 240 deletions
diff --git a/prototypes/browse/21/README.md b/prototypes/browse/21/README.md
deleted file mode 100644
index baa760a2..00000000
--- a/prototypes/browse/21/README.md
+++ /dev/null
@@ -1 +0,0 @@
-Switch page-height to nrows.
diff --git a/prototypes/browse/21/file-state.mu b/prototypes/browse/21/file-state.mu
deleted file mode 100644
index d42bf8bf..00000000
--- a/prototypes/browse/21/file-state.mu
+++ /dev/null
@@ -1,45 +0,0 @@
-type file-state {
-  source: (handle buffered-file)
-  eof?: boolean
-}
-
-fn init-file-state _self: (addr file-state), filename: (addr array byte) {
-  var self/eax: (addr file-state) <- copy _self
-  load-file self, filename
-  var eof/eax: (addr boolean) <- get self, eof?
-  copy-to *eof, 0  # false
-}
-
-fn load-file _self: (addr file-state), filename: (addr array byte) {
-  var self/eax: (addr file-state) <- copy _self
-  var out/esi: (addr handle buffered-file) <- get self, source
-  open filename, 0, out  # 0 = read mode
-}
-
-fn next-char _self: (addr file-state) -> result/eax: byte {
-  var self/ecx: (addr file-state) <- copy _self
-  var source/eax: (addr handle buffered-file) <- get self, source
-  var in/eax: (addr buffered-file) <- lookup *source
-  result <- read-byte-buffered in
-  # if result == EOF, set eof?
-  compare result, 0xffffffff  # EOF marker
-  {
-    var eof/ecx: (addr boolean) <- get self, eof?
-    copy-to *eof, 1  # true
-  }
-}
-
-fn done-reading? _self: (addr file-state) -> result/eax: boolean {
-  var self/eax: (addr file-state) <- copy _self
-  var eof/eax: (addr boolean) <- get self, eof?
-  result <- copy *eof
-}
-
-fn dump in: (addr buffered-file) {
-  var c/eax: byte <- read-byte-buffered in
-  compare c, 0xffffffff  # EOF marker
-  break-if-=
-  var g/eax: grapheme <- copy c
-  print-grapheme 0, g
-  loop
-}
diff --git a/prototypes/browse/21/main.mu b/prototypes/browse/21/main.mu
deleted file mode 100644
index 62a603bc..00000000
--- a/prototypes/browse/21/main.mu
+++ /dev/null
@@ -1,50 +0,0 @@
-fn main args: (addr array addr array byte) -> exit-status/ebx: int {
-  # initialize fs from args[1]
-  var filename/eax: (addr array byte) <- first-arg args
-  var file-state-storage: file-state
-  var fs/esi: (addr file-state) <- address file-state-storage
-  init-file-state fs, filename
-  #
-  enable-screen-grid-mode
-  enable-keyboard-immediate-mode
-  # initialize screen state from screen size
-  var screen-position-state-storage: screen-position-state
-  var screen-position-state/eax: (addr screen-position-state) <- address screen-position-state-storage
-  init-screen-position-state screen-position-state
-  {
-    render fs, screen-position-state
-    var key/eax: grapheme <- read-key-from-real-keyboard
-  }
-  enable-keyboard-type-mode
-  enable-screen-type-mode
-  exit-status <- copy 0
-}
-
-fn render fs: (addr file-state), state: (addr screen-position-state) {
-  start-drawing state
-  render-normal fs, state
-}
-
-fn render-normal fs: (addr file-state), state: (addr screen-position-state) {
-  {
-    # if done-drawing?(state) break
-    var done?/eax: boolean <- done-drawing? state
-    compare done?, 0  # false
-    break-if-!=
-    #
-    var c/eax: byte <- next-char fs
-    # if (c == EOF) break
-    compare c, 0xffffffff  # EOF marker
-    break-if-=
-    #
-    add-char state, c
-    #
-    loop
-  }
-}
-
-fn first-arg args-on-stack: (addr array addr array byte) -> out/eax: (addr array byte) {
-  var args/eax: (addr array addr array byte) <- copy args-on-stack
-  var result/eax: (addr addr array byte) <- index args, 1
-  out <- copy *result
-}
diff --git a/prototypes/browse/21/screen-position-state.mu b/prototypes/browse/21/screen-position-state.mu
deleted file mode 100644
index e740a141..00000000
--- a/prototypes/browse/21/screen-position-state.mu
+++ /dev/null
@@ -1,144 +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 0
-  var ncols/ecx: int <- copy 0
-  nrows, ncols <- screen-size 0
-  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
-  # self->leftcol = page-margin
-  dest <- get self, leftcol
-  copy-to *dest, 5  # left-margin
-  # self->rightcol = self->leftcol + page-width
-  dest <- get self, rightcol
-  copy-to *dest, 0x45  # left-margin + page-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 {
-$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
-  # 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 0, *r *c
-}