From 2a4088119cf41175457414dfa59bd4064b8f0562 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Wed, 1 Jan 2020 17:04:37 -0800 Subject: 5852 --- archive/1.vm.arc/edit.mu | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100644 archive/1.vm.arc/edit.mu (limited to 'archive/1.vm.arc/edit.mu') diff --git a/archive/1.vm.arc/edit.mu b/archive/1.vm.arc/edit.mu deleted file mode 100644 index ebf43161..00000000 --- a/archive/1.vm.arc/edit.mu +++ /dev/null @@ -1,18 +0,0 @@ -; a screen is an array of pointers to lines, in turn arrays of characters - -(function new-screen [ - (default-space:space-address <- new space:literal 30:literal) - (nrows:integer <- next-input) - (ncols:integer <- next-input) - (result:screen-address <- new screen:literal nrows:integer) - (rowidx:integer <- copy 0:literal) - { begin - (curr-line-address-address:line-address-address <- index-address result:screen-address/deref rowidx:integer) - (curr-line-address-address:line-address-address/deref <- new line:literal ncols:integer) - (curr-line-address:line-address <- copy curr-line-address-address:line-address-address/deref) - (rowidx:integer <- add rowidx:integer 1:literal) - (x:boolean <- not-equal rowidx:integer nrows:integer) - (loop-if x:boolean) - } - (reply result:screen-address) -]) -- cgit 1.4.1-2-gfad0