--- gforth/ekey.fs	2008/11/23 20:49:37	1.22
+++ gforth/ekey.fs	2009/12/31 15:32:35	1.26
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999,2002,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002,2003,2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -331,31 +331,48 @@ s-k6 s" [32~" esc-sequence
 s-k7 s" [33~" esc-sequence
 s-k8 s" [34~" esc-sequence
 
+\ esc sequences for MacOS X iterm <e7a7c785-3bea-408b-94e9-4b59b008546f@x16g2000prn.googlegroups.com>
+k-left   s" OD" esc-sequence
+k-right  s" OC" esc-sequence
+k-up     s" OA" esc-sequence
+k-down   s" OB" esc-sequence
+
 set-current
 [ENDIF]
 
 : clear-ekey-buffer ( -- )
     ekey-buffer 0 ekey-buffered 2! ;
 
+[IFDEF] max-single-byte
+    : read-xkey ( key -- flag )
+	clear-ekey-buffer
+	ekey-buffered char-append-buffer
+	ekey-buffer 1 u8addrlen 1 +do
+	    key? 0= ?leave
+	    key ekey-buffered char-append-buffer
+	loop
+	ekey-buffer 1 u8addrlen ekey-buffered @ = ;
+    : get-xkey ( u -- xc )
+	dup max-single-byte u>= if
+	    read-xkey if
+		ekey-buffer xc@+ nip         else
+		ekey-buffered 2@ unkeys key  then
+	then ;
+    : xkey? ( -- flag )
+	key? dup if
+	    drop key read-xkey ekey-buffered 2@ unkeys
+	    clear-ekey-buffer  then ;
+[THEN]
+
 : ekey ( -- u ) \ facility-ext e-key
     \G Receive a keyboard event @var{u} (encoding implementation-defined).
     key dup #esc =
     if
         drop clear-ekey-buffer
-        esc-prefix
+        esc-prefix  exit
     then
     [IFDEF] max-single-byte
-	dup max-single-byte u>= if
-	    clear-ekey-buffer
-	    ekey-buffered char-append-buffer
-	    ekey-buffer 1 u8addrlen 1 +do
-		key? 0= ?leave
-		key ekey-buffered char-append-buffer
-	    loop
-	    ekey-buffer 1 u8addrlen ekey-buffered @ = if
-		ekey-buffer xc@+ nip         else
-		ekey-buffered 2@ unkeys key  then
-	then
+	get-xkey
     [THEN]
 ;
 
@@ -371,6 +388,8 @@ set-current
 \G keyboard event @var{u1} into key id @var{u2} and return true;
 \G otherwise return @var{u1} and false.
     ekey>xchar 0= ;
+
+' xkey? alias ekey? ( -- flag ) \ facility-ext e-key-question
 [ELSE]
 : ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char
     \G Convert keyboard event @var{u} into character @code{c} if possible.
@@ -380,9 +399,10 @@ set-current
 \G keyboard event @var{u1} into key id @var{u2} and return true;
 \G otherwise return @var{u1} and false.
     ekey>char 0= ;
-[THEN]
 
 ' key? alias ekey? ( -- flag ) \ facility-ext e-key-question
+[THEN]
+
 \G True if a keyboard event is available.
 
 \  : esc? ( -- flag ) recursive