[nongnu] elpa/forth-mode 9812d1decd 114/153: Use /interperter to setup terminal personalty

[ELPA Syncer]

branch: elpa/forth-mode
commit 9812d1decd3a2b6b79ba81373c83679a2325ab94
Author: Helmut Eller <eller.helmut@gmail.com>
Commit: Helmut Eller <eller.helmut@gmail.com>

    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