diff options
Diffstat (limited to 'color-repl.mu')
| -rw-r--r-- | color-repl.mu | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/color-repl.mu b/color-repl.mu index d95d48d9..1979ac4f 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -1,9 +1,14 @@ ; a simple line editor for reading lisp s-expressions +; colors strings and comments. nested parens get different colors. +; +; needs to do its own raw keyboard/screen management since we need to decide +; how to color each key right as it is printed +; lots of logic devoted to handling backspace correctly (function read-sexp [ (default-space:space-address <- new space:literal 30:literal) (result:buffer-address <- init-buffer 30:literal) - (open-parens:integer <- copy 0:literal) + (open-parens:integer <- copy 0:literal) ; for balancing parens and tracking nesting depth ; test: 34<enter> { begin next-key @@ -60,7 +65,7 @@ (close-paren?:boolean <- equal c:character ((#\) literal))) (break-unless close-paren?:boolean) (open-parens:integer <- subtract open-parens:integer 1:literal) - (_ color-code:integer <- divide-with-remainder open-parens:integer 3:literal) + (_ color-code:integer <- divide-with-remainder open-parens:integer 3:literal) ; 3 distinct colors for parens (color-code:integer <- add color-code:integer 1:literal) ($print-key-to-host c:character color-code:integer) (jump next-key:offset) |