--- gforth/ekey.fs	2000/09/23 15:46:52	1.3
+++ gforth/ekey.fs	2006/06/05 23:55:18	1.15
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002,2003,2004,2005 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -35,42 +35,51 @@
 : keycode ( "name" -- ; name execution: -- u )
     create ;
 
-keycode k-left
-keycode k-right
-keycode k-up
-keycode k-down
-keycode k-home
-keycode k-end
-\ keycode k-prior \ note: captured by xterm
-\ keycode k-next \ note: captured by xterm
-keycode k-insert \ not in pfe
+\ most of the keys are also in pfe, except:
+\ k-insert, k-delete, k11, k12, s-k11, s-k12
+
+keycode k-left   ( -- u ) \ gforth  
+keycode k-right  ( -- u ) \ gforth
+keycode k-up	 ( -- u ) \ gforth
+keycode k-down	 ( -- u ) \ gforth
+keycode k-home	 ( -- u ) \ gforth
+\G aka Pos1
+keycode k-end	 ( -- u ) \ gforth
+keycode k-prior  ( -- u ) \ gforth
+\G aka PgUp
+keycode k-next   ( -- u ) \ gforth
+\G aka PgDn    
+keycode k-insert ( -- u ) \ gforth
+127 constant k-delete ( -- u ) \ gforth
+\ not an escape sequence on my xterm, so use ASCII code
+
 \ function/keypad keys
-keycode k1
-keycode k2
-keycode k3
-keycode k4
-keycode k5
-keycode k6
-keycode k7
-keycode k8
-keycode k9
-keycode k10
-keycode k11 \ not in pfe
-keycode k12 \ not in pfe
-\ shifted function/keypad keys have the same key sequences (in xterm)
-\ and pfe gives the same keycodes; so what are these keycodes good for?
-\ keycode s-k1
-\ keycode s-k2
-\ keycode s-k3
-\ keycode s-k4
-\ keycode s-k5
-\ keycode s-k6
-\ keycode s-k7
-\ keycode s-k8
-\ keycode s-k9
-\ keycode s-k10
-\ keycode s-k11 \ not in pfe
-\ keycode s-k12 \ not in pfe
+keycode k1  ( -- u ) \ gforth
+keycode k2  ( -- u ) \ gforth
+keycode k3  ( -- u ) \ gforth
+keycode k4  ( -- u ) \ gforth
+keycode k5  ( -- u ) \ gforth
+keycode k6  ( -- u ) \ gforth
+keycode k7  ( -- u ) \ gforth
+keycode k8  ( -- u ) \ gforth
+keycode k9  ( -- u ) \ gforth
+keycode k10 ( -- u ) \ gforth
+keycode k11 ( -- u ) \ gforth
+keycode k12 ( -- u ) \ gforth
+\ shifted fuinction keys (don't work in xterm (same as unshifted, but
+\ s-k1..s-k8 work in the Linux console)
+keycode s-k1  ( -- u ) \ gforth 
+keycode s-k2  ( -- u ) \ gforth 
+keycode s-k3  ( -- u ) \ gforth 
+keycode s-k4  ( -- u ) \ gforth 
+keycode s-k5  ( -- u ) \ gforth 
+keycode s-k6  ( -- u ) \ gforth 
+keycode s-k7  ( -- u ) \ gforth 
+keycode s-k8  ( -- u ) \ gforth 
+keycode s-k9  ( -- u ) \ gforth 
+keycode s-k10 ( -- u ) \ gforth 
+keycode s-k11 ( -- u ) \ gforth
+keycode s-k12 ( -- u ) \ gforth
 
 \ helper word
 \ print a key sequence:
@@ -116,16 +125,17 @@ table constant esc-sequences \ and prefi
 create ekey-buffer 8 chars allot
 2variable ekey-buffered
 
-27 constant #esc
+[IFUNDEF] #esc  27 Constant #esc  [THEN]
 
 : esc-prefix ( -- u )
-    key ekey-buffered char-append-buffer
-    ekey-buffered 2@ esc-sequences search-wordlist
-    if
-	execute exit
-    else
-	ekey-buffered 2@ unkeys #esc
-    then ;
+    key? if
+	key ekey-buffered char-append-buffer
+	ekey-buffered 2@ esc-sequences search-wordlist
+	if
+	    execute exit
+	endif
+    endif
+    ekey-buffered 2@ unkeys #esc ;
 
 : esc-sequence ( xt addr u -- ; name execution: -- u ) recursive
     \ define key "name" and all prefixes
@@ -156,8 +166,8 @@ get-current esc-sequences set-current
 ' k-down	s" [B"	esc-sequence
 ' k-home	s" [H"	esc-sequence
 ' k-end		s" [F"	esc-sequence
-\ ' k-prior	s" [5~"	esc-sequence \ from linux console
-\ ' k-next	s" [6~"	esc-sequence \ from linux console
+' k-prior	s" [5~"	esc-sequence
+' k-next	s" [6~"	esc-sequence
 ' k-insert	s" [2~"	esc-sequence
 
 ' k1	s" OP"	esc-sequence
@@ -173,13 +183,34 @@ get-current esc-sequences set-current
 ' k11	s" [23~" esc-sequence
 ' k12	s" [24~" esc-sequence
 
+\ esc sequences from Linux console:
+
+' k1       s" [[A" esc-sequence
+' k2       s" [[B" esc-sequence
+' k3       s" [[C" esc-sequence
+' k4       s" [[D" esc-sequence
+' k5       s" [[E" esc-sequence
+' k-delete s" [3~" esc-sequence
+' k-home   s" [1~" esc-sequence
+' k-end    s" [4~" esc-sequence
+
+' s-k1 s" [25~" esc-sequence
+' s-k2 s" [26~" esc-sequence
+' s-k3 s" [28~" esc-sequence
+' s-k4 s" [29~" esc-sequence
+' s-k5 s" [31~" esc-sequence
+' s-k6 s" [32~" esc-sequence
+' s-k7 s" [33~" esc-sequence
+' s-k8 s" [34~" esc-sequence
+
 set-current
 [ENDIF]
 
 : clear-ekey-buffer ( -- )
-      ekey-buffer 0 ekey-buffered 2! ;
+    ekey-buffer 0 ekey-buffered 2! ;
 
 : ekey ( -- u ) \ facility-ext e-key
+    \G Receive a keyboard event @var{u} (encoding implementation-defined).
     key dup #esc =
     if
 	drop clear-ekey-buffer
@@ -187,39 +218,43 @@ set-current
     then ;
 
 : ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char
-    dup 256 u< ;
+    \G Convert keyboard event @var{u} into character @code{c} if possible.
+    dup k-left u< ; \ k-left must be first!
 
-: esc? ( -- flag ) recursive
-    key? 0=
-    if
-	false exit
-    then
-    key ekey-buffered char-append-buffer
-    ekey-buffered 2@ esc-sequences search-wordlist
-    if
-	['] esc-prefix =
-	if
-	    esc? exit
-	then
-    then
-    true ;
+' key? alias ekey? ( -- flag ) \ facility-ext e-key-question
+\G True if a keyboard event is available.
 
-: ekey? ( -- flag ) \ facility-ext e-key-question
-    \G Return @code{true} if a keyboard event is available (use
-    \G @code{ekey} to receive the event), @code{false} otherwise.
-    key?
-    if
-	key dup #esc =
-	if
-	    clear-ekey-buffer esc?
-	    ekey-buffered 2@ unkeys
-	else
-	    true
-	then
-	swap unkey
-    else
-	false
-    then ;
+\  : esc? ( -- flag ) recursive
+\      key? 0=
+\      if
+\  	false exit
+\      then
+\      key ekey-buffered char-append-buffer
+\      ekey-buffered 2@ esc-sequences search-wordlist
+\      if
+\  	['] esc-prefix =
+\  	if
+\  	    esc? exit
+\  	then
+\      then
+\      true ;
+
+\  : ekey? ( -- flag ) \ facility-ext e-key-question
+\      \G Return @code{true} if a keyboard event is available (use
+\      \G @code{ekey} to receive the event), @code{false} otherwise.
+\      key?
+\      if
+\  	key dup #esc =
+\  	if
+\  	    clear-ekey-buffer esc?
+\  	    ekey-buffered 2@ unkeys
+\  	else
+\  	    true
+\  	then
+\  	swap unkey
+\      else
+\  	false
+\      then ;
 
 \ : test-ekey?
 \     begin