-- 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)