1 files changed, 24 insertions, 0 deletions
diff --git a/jefs.fs b/jefs.fs
index b990e0c..f6fecf8 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -366,9 +366,27 @@ make line-buffer line-buffer-length allot
 60 constant termios#
 make termios termios# allot
 
+\ CONSTANTS {{{
 hex
 5401 constant TCGETS
+5402 constant TCSETS
+5403 constant TCSETSW
+5404 constant TCSETSF
+
+1 constant IGNBRK   2 constant BRKINT        4 constant IGNPAR
+8 constant PARMRK   10 constant INPCK       20 constant ISTRIP
+40 constant INLCR   80 constant IGNCR      100 constant ICRNL
+200 constant IUCLC  400 constant IXON      800 constant IXANY
+1000 constant IXOFF 2000 constant IMAXBEL 4000 constant IUTF8
+
+1 constant OPOST
+
+1 constant ISIG    2 constant ICANON  8 constant ECHO
+40 constant ECHONL 8000 constant IEXTEN
+
+30 constant CSIZE  30 constant CS8  100 constant PARENB
 decimal
+\ }}}
 
 : ioctl  16 syscall3 ;
 
@@ -394,6 +412,12 @@ termios TCGETS stdin ioctl ( noname ) swap execute value tty
 
 : at-xy ( x y -- )  CSI 1+ (.) say ." ;" 1+ (.) say ." H" ;
 : page  CSI ." 2J"  0 0 at-xy ;
+
+60 constant old-termios#
+make old-termios old-termios# allot
+termios old-termios termios# cmove
+
+
 \ }}}
 
 \ DUMP {{{