branch: elpa/forth-mode
commit 9812d1decd3a2b6b79ba81373c83679a2325ab94
Author: Helmut Eller <[email protected]>
Commit: Helmut Eller <[email protected]>
Use /interperter to setup terminal personalty
In SwiftForth /interperter seems to initialize something needed
to stop it from resetting the terminal personality.
* backend/swiftforth.fth (repl): Use a custom REPL. Let's see how that
works.
(accept-no-echo): New.
(winning-personality): Overwrite ACCEPT. Even though echoing is part
of the spec, it makes little sense in a comint buffer.
---
backend/swiftforth.fth | 36 ++++++++++++++++++++++++++++++++++--
1 file changed, 34 insertions(+), 2 deletions(-)
diff --git a/backend/swiftforth.fth b/backend/swiftforth.fth
index e93425de83..62990042ba 100644
--- a/backend/swiftforth.fth
+++ b/backend/swiftforth.fth
@@ -1,6 +1,23 @@
: 2null 0 0 ;
: big-size 200 100 ;
+\ Similar to ACCEPT but doesn't display the received characters.
+\ Reads one line (whithout trailing newline).
+: accept-no-echo ( addr u1 -- u2 )
+ tuck
+ begin ( u1 addr u )
+ dup 0= if 2drop exit then
+ key
+ case
+ \ remove \n and \r
+ 10 of nip - exit endof
+ 13 of endof \ FIXME: should detect \r\n sequences properly
+ 2 pick c!
+ 1 /string
+ 0
+ endcase
+ again ;
+
create winning-personality
4 cells , 19 , 0 , 0 ,
' noop , ' noop , ' noop ,
@@ -19,6 +36,21 @@ create winning-personality
' 2drop , \ at-xy
' 2null , \ get-xy
' big-size , \ get-size
- 'accept @ ,
+ ' accept-no-echo , \ accept
+
+:noname cr ." ok " ; is prompt
+: clearstack ( ... -- ) begin depth 0> while drop repeat ;
+: repl
+ winning-personality open-personality /interpreter
+ \ Could just call QUIT but running our own REPL is cooler.
+ begin
+ state @ 0= if prompt then
+ \ NOTE: refill prints a space (don't ask me why)
+ refill 0= abort" refill failed"
+ source ['] evaluate catch
+ ?dup if cr ." Error: " .catch cr
+ clearstack
+ then
+ again ;
-winning-personality open-personality
+repl
