gforth/vt100key.fs - diff

Return to vt100key.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/vt100key.fs between versions 1.2 and 1.13

version 1.2, 1995/11/07 18:07:04	version 1.13, 2007/12/31 17:34:58
Line 1	Line 1
\ MS-DOS key interpreter 17oct94py	\ vt100 key interpreter 17oct94py

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1998,2000,2003,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 16	Line 16

\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

Create translate $100 allot	Create translate $100 allot
translate $100 erase	translate $100 erase
	Create transcode $100 allot
	transcode $100 erase

: trans: char translate + c! ;	: trans: ( char 'index' -- ) char translate + c! ;
	: tcode ( char index -- ) transcode + c! ;

: vt100-decode ( max span addr pos1 -- max span addr pos2 flag )	: vt100-decode ( max span addr pos1 -- max span addr pos2 flag )
key '[ = IF key translate + c@ dup IF decode THEN	key '[ = IF 0 base @ >r &10 base !
ELSE 0 THEN ;	BEGIN key dup digit? WHILE nip swap &10 * + REPEAT
	r> base !
	dup '~ = IF drop transcode ELSE nip translate THEN
	+ c@ dup IF decode THEN
	ELSE 0 THEN ;

ctrl B trans: D	ctrl B trans: D
ctrl F trans: C	ctrl F trans: C
ctrl P trans: A	ctrl P trans: A
ctrl N trans: B	ctrl N trans: B
	ctrl A trans: H
	ctrl E trans: F

	ctrl A 1 tcode
	ctrl X 3 tcode
	ctrl E 4 tcode

' vt100-decode ctrlkeys $1B cells + !	' vt100-decode ctrlkeys $1B cells + !

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.13