diff options
Diffstat (limited to 'edit.mu')
| -rw-r--r-- | edit.mu | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/edit.mu b/edit.mu index a80878f9..ac71f748 100644 --- a/edit.mu +++ b/edit.mu @@ -14,3 +14,21 @@ (print (key string)) (print ("\n" literal)) ) + +; a screen is an array of pointers to lines, in turn arrays of characters + +(new-screen + ((nrows integer) <- arg) + ((ncols integer) <- arg) + ((result screen-address) <- new (screen type) (nrows integer)) + ((result integer-address deref) <- copy (nrows integer)) + ((rowidx integer) <- literal 0) + ((foo integer) <- literal 1000) + ((curr-dest line-address-address) <- index (foo screen-address deref) (rowidx integer)) +;? ((curr-dest line-address-address) <- index-address (result screen-address) (rowidx integer)) +;? ((curr-dest line-address deref) +) + +;? (redraw +;? ( +;? ) |