[SLOF] [PATCH v3 1/2] Fix output word

Laurent Vivier lvivier at redhat.com
Tue Mar 20 22:07:34 AEDT 2018


We can select the console output, but it does not really work

Implement term-io-emit, as we have term-io-key to really
send characters to the output selected by stdout.

Signed-off-by: Laurent Vivier <lvivier at redhat.com>
---
 slof/fs/term-io.fs | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/slof/fs/term-io.fs b/slof/fs/term-io.fs
index 52ce12a..69ec901 100644
--- a/slof/fs/term-io.fs
+++ b/slof/fs/term-io.fs
@@ -10,7 +10,6 @@
 \ *     IBM Corporation - initial implementation
 \ ****************************************************************************/
 
-
 : input  ( dev-str dev-len -- )
    open-dev ?dup IF
       \ Close old stdin:
@@ -22,13 +21,19 @@
    THEN
 ;
 
+0 VALUE stdout-ihandle
+0 VALUE write-xt
+
 : output  ( dev-str dev-len -- )
    open-dev ?dup IF
+      \ find new ihandle and xt handle
+      dup s" write" rot ihandle>phandle find-method
+      0= IF drop cr ." Cannot change output console " cr EXIT THEN
       \ Close old stdout:
-      s" stdout" get-chosen IF
-         decode-int nip nip ?dup IF close-dev THEN
-      THEN
+      stdout-ihandle ?dup IF close-dev THEN
       \ Now set the new stdout:
+      to write-xt
+      dup to stdout-ihandle
       encode-int s" stdout" set-chosen
    THEN
 ;
@@ -40,6 +45,15 @@
 
 1 BUFFER: (term-io-char-buf)
 
+: term-io-emit ( char -- )
+    write-xt 0= IF drop EXIT THEN
+    (term-io-char-buf) c!
+    (term-io-char-buf) 1 write-xt stdout-ihandle call-package
+    drop
+;
+
+' term-io-emit to emit
+
 : term-io-key  ( -- char )
    s" stdin" get-chosen IF
       decode-int nip nip dup 0= IF 0 EXIT THEN
-- 
2.14.3



More information about the SLOF mailing list