term wordset

description

-- terminal i/o, system independent parts

Copyright (C) Tektronix, Inc, 1998 - 2001. All rights reserved.

description: this wordset exports words to talk to the terminal driver of forth. Depending on the active terminal driver, not all of these words are fully functional.

EXTENSIONS
SHOW-TERMCAP ( -- )for debugging(); 
 ;

print the termcap strings used for input and output may give hints about what is wrong if the terminal seems to miss some functionality

EXTENSIONS
SHOW-TERM-CONTROLS ( -- )for debugging(); 
 ;

show the current mappings for the terminal output may give hints about what is wrong if the output seems to miss some functionality

EXTENSIONS
SHOW-TERM-ESC-KEYS ( -- )for debugging(); 
 ;

show the current mappings for the terminal input may give hints about what is wrong if the input seems to miss some functionality

EXTENSIONS

ASSUME_VT100 ( -- )();
p4:"assume-vt100";

load hardwired VT100-termcap into the terminal-driver

EXTENSIONS
ASSUME_DUMBTERM ( -- )(); 
 ;

load hardwired DUMBTERM-termcap into the terminal-driver

EXTENSIONS

ROWS ( .. )();
as:"rows";

threadstate variable ROWS

rows (no special usage info)

EXTENSIONS

COLS ( .. )();
as:"cols";

threadstate variable COLS

cols (no special usage info)

EXTENSIONS

XMAX ( .. )();
as:"xmax";

threadstate variable XMAX

xmax (no special usage info)

EXTENSIONS

YMAX ( .. )();
as:"ymax";

threadstate variable YMAX

ymax (no special usage info)

EXTENSIONS

GOTOXY ( x y -- )();
p4:"gotoxy";

move the cursor to the specified position on the screen - this is usually done by sending a corresponding esc-sequence to the terminal.

EXTENSIONS

?XY ( -- x y )();
p4:"question-xy";

returns the cursor position on screen, on a real unix system this includes a special call to the screen driver, in remote systems this can be the expected position as seen on the client side's terminal driver.

EXTENSIONS

CLS ( .. )();
as:"cls";

ordinary primitive CLS

an executable word (no special usage info)

or wrapper call around p4_dot_clrscr

EXTENSIONS

.CLRSCR ( .. )();
as:"dot-clrscr";

ordinary primitive .CLRSCR

an executable word (no special usage info)

or wrapper call around p4_dot_clrscr

EXTENSIONS

.CLREOL ( .. )();
as:"dot-clreol";

ordinary primitive .CLREOL

an executable word (no special usage info)

or wrapper call around p4_dot_clreol

EXTENSIONS

.HOME ( .. )();
as:"dot-home";

ordinary primitive .HOME

an executable word (no special usage info)

or wrapper call around p4_dot_home

EXTENSIONS

.HIGHLIGHT ( .. )();
as:"dot-highlight";

ordinary primitive .HIGHLIGHT

an executable word (no special usage info)

or wrapper call around p4_dot_highlight

EXTENSIONS
.HIGHLIGHT.OFF ( .. )(); 
 ;

ordinary primitive .HIGHLIGHT.OFF

an executable word (no special usage info)

or wrapper call around p4_dot_highlight_off

EXTENSIONS

.UNDERLINE ( .. )();
as:"dot-underline";

ordinary primitive .UNDERLINE

an executable word (no special usage info)

or wrapper call around p4_dot_underline

EXTENSIONS
.UNDERLINE.OFF ( .. )(); 
 ;

ordinary primitive .UNDERLINE.OFF

an executable word (no special usage info)

or wrapper call around p4_dot_underline_off

EXTENSIONS

.INTENSITY ( .. )();
as:"dot-intensity";

ordinary primitive .INTENSITY

an executable word (no special usage info)

or wrapper call around p4_dot_intensity

EXTENSIONS
.INTENSITY.OFF ( .. )(); 
 ;

ordinary primitive .INTENSITY.OFF

an executable word (no special usage info)

or wrapper call around p4_dot_intensity_off

EXTENSIONS

.BLINKING ( .. )();
as:"dot-blinking";

ordinary primitive .BLINKING

an executable word (no special usage info)

or wrapper call around p4_dot_blink

EXTENSIONS
.BLINKING.OFF ( .. )(); 
 ;

ordinary primitive .BLINKING.OFF

an executable word (no special usage info)

or wrapper call around p4_dot_blink_off

EXTENSIONS

.REVERSE ( .. )();
as:"dot-reverse";

ordinary primitive .REVERSE

an executable word (no special usage info)

or wrapper call around p4_dot_reverse

EXTENSIONS
.REVERSE.OFF ( .. )(); 
 ;

ordinary primitive .REVERSE.OFF

an executable word (no special usage info)

or wrapper call around p4_dot_reverse_off

EXTENSIONS

.NORMAL ( .. )();
as:"dot-normal";

ordinary primitive .NORMAL

an executable word (no special usage info)

or wrapper call around p4_dot_normal

EXTENSIONS

.BELL ( .. )();
as:"dot-bell";

ordinary primitive .BELL

an executable word (no special usage info)

or wrapper call around p4_dot_bell

EXTENSIONS

K-LEFT ( .. )();
as:"k-minus-left";

( P4_KEY_kl )  constant K-LEFT

an ordinary constant (no special usage info)

EXTENSIONS

K-RIGHT ( .. )();
as:"k-minus-right";

( P4_KEY_kr )  constant K-RIGHT

an ordinary constant (no special usage info)

EXTENSIONS

K-UP ( .. )();
as:"k-minus-up";

( P4_KEY_ku )  constant K-UP

an ordinary constant (no special usage info)

EXTENSIONS

K-DOWN ( .. )();
as:"k-minus-down";

( P4_KEY_kd )  constant K-DOWN

an ordinary constant (no special usage info)

EXTENSIONS

K-HOME ( .. )();
as:"k-minus-home";

( P4_KEY_kh )  constant K-HOME

an ordinary constant (no special usage info)

EXTENSIONS

K-END ( .. )();
as:"k-minus-end";

( P4_KEY_kH )  constant K-END

an ordinary constant (no special usage info)

EXTENSIONS

K-PRIOR ( .. )();
as:"k-minus-prior";

( P4_KEY_kP )  constant K-PRIOR

an ordinary constant (no special usage info)

EXTENSIONS

K-NEXT ( .. )();
as:"k-minus-next";

( P4_KEY_kN )  constant K-NEXT

an ordinary constant (no special usage info)

EXTENSIONS

K1 ( .. )();
as:"k-one";

( P4_KEY_k1 )  constant K1

an ordinary constant (no special usage info)

EXTENSIONS

K2 ( .. )();
as:"k-two";

( P4_KEY_k2 )  constant K2

an ordinary constant (no special usage info)

EXTENSIONS

K3 ( .. )();
as:"k-three";

( P4_KEY_k3 )  constant K3

an ordinary constant (no special usage info)

EXTENSIONS

K4 ( .. )();
as:"k-four";

( P4_KEY_k4 )  constant K4

an ordinary constant (no special usage info)

EXTENSIONS

K5 ( .. )();
as:"k-five";

( P4_KEY_k5 )  constant K5

an ordinary constant (no special usage info)

EXTENSIONS

K6 ( .. )();
as:"k-six";

( P4_KEY_k6 )  constant K6

an ordinary constant (no special usage info)

EXTENSIONS

K7 ( .. )();
as:"k-seven";

( P4_KEY_k7 )  constant K7

an ordinary constant (no special usage info)

EXTENSIONS

K8 ( .. )();
as:"k-eight";

( P4_KEY_k8 )  constant K8

an ordinary constant (no special usage info)

EXTENSIONS

K9 ( .. )();
as:"k-nine";

( P4_KEY_k9 )  constant K9

an ordinary constant (no special usage info)

EXTENSIONS

K10 ( .. )();
as:"k-ten";

( P4_KEY_k0 )  constant K10

an ordinary constant (no special usage info)

EXTENSIONS

S-K1 ( .. )();
as:"s-minus-k-one";

( P4_KEY_F1 )  constant S-K1

an ordinary constant (no special usage info)

EXTENSIONS

S-K2 ( .. )();
as:"s-minus-k-two";

( P4_KEY_F2 )  constant S-K2

an ordinary constant (no special usage info)

EXTENSIONS

S-K3 ( .. )();
as:"s-minus-k-three";

( P4_KEY_F3 )  constant S-K3

an ordinary constant (no special usage info)

EXTENSIONS

S-K4 ( .. )();
as:"s-minus-k-four";

( P4_KEY_F4 )  constant S-K4

an ordinary constant (no special usage info)

EXTENSIONS

S-K5 ( .. )();
as:"s-minus-k-five";

( P4_KEY_F5 )  constant S-K5

an ordinary constant (no special usage info)

EXTENSIONS

S-K6 ( .. )();
as:"s-minus-k-six";

( P4_KEY_F6 )  constant S-K6

an ordinary constant (no special usage info)

EXTENSIONS

S-K7 ( .. )();
as:"s-minus-k-seven";

( P4_KEY_F7 )  constant S-K7

an ordinary constant (no special usage info)

EXTENSIONS

S-K8 ( .. )();
as:"s-minus-k-eight";

( P4_KEY_F8 )  constant S-K8

an ordinary constant (no special usage info)

EXTENSIONS

S-K9 ( .. )();
as:"s-minus-k-nine";

( P4_KEY_F9 )  constant S-K9

an ordinary constant (no special usage info)

EXTENSIONS

S-K10 ( .. )();
as:"s-minus-k-ten";

( P4_KEY_FA )  constant S-K10

an ordinary constant (no special usage info)