v07i041: CRISP release 1.9 part 20/32
Brandon S. Allbery - comp.sources.misc
allbery at uunet.UU.NET
Sun Jul 23 09:26:46 AEST 1989
Posting-number: Volume 7, Issue 41
Submitted-by: fox at marlow.UUCP (Paul Fox)
Archive-name: crisp1.9/part21
#!/bin/sh
# this is part 7 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file src/crisp/tty/xenix.m continued
#
CurArch=7
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file src/crisp/tty/xenix.m"
sed 's/^X//' << 'SHAR_EOF' >> src/crisp/tty/xenix.m
X ;* output.
X ;*
X (set_term_features
X "\x1B[%dX" ;* Sequence to clear 'n' spaces.
X "\x1B[%dg" ;* Sequence to print characters with top
X ;* bit set.
X "\x1B[=13C" ;* Insert-mode cursor.
X "\x1B[=1;13C" ;* Overwrite-mode cursor.
X "\x1B[=10;13C" ;* Insert-mode cursor (on virtual space).
X "\x1B[1;8C" ;* Overwrite-mode cursor (on virtual space).
X "\x1B[27g" ;* Print ESCAPE character graphically.
X NULL ;* Escape sequence to repeat last character.
X FALSE ;* ESC [0m resets color.
X TRUE ;* Terminal supports color.
X "\x1B[%dC" ;* Move cursor %d columns
X ;* (Not available in termcap).
X )
X ;*
X ;* Define keyboard layout for non-ascii characters.
X ;* (These can only be used for the console).
X ;*
X (set_term_keyboard
X F1-F12
X (quote_list 128 129 130 131 132 133 134 135 136 137 138 139)
X
X SHIFT-F1-F12
X (quote_list 140 141 142 143 144 145 146 147 148 149 150 151)
X
X CTRL-F1-F12
X (quote_list 152 153 154 155 156 157 158 159 160 161 162 163)
X
X ALT-A-Z
X (quote_list 176 177 178 179 180 181 182 183 184 185 186 187
X 188 189 190 191 192 193 194 195 196 197 198 199
X 200 201)
X
X KEYPAD-0-9
X (quote_list 202 203 204 205 206 207 208 209 210 211 212 213 214 215)
X
X CTRL-KEYPAD-0-9
X (quote_list 216 217 218 219 220 221 222 223 224 225)
X ALT-0-9
X (quote_list 231 232 233 234 235 236 237 238 239 240)
X BACK-TAB 230
X )
X )
X)
SHAR_EOF
echo "File src/crisp/tty/xenix.m is complete"
chmod 0444 src/crisp/tty/xenix.m || echo "restore of src/crisp/tty/xenix.m fails"
mkdir src src/crisp src/crisp/tty >/dev/null 2>&1
echo "x - extracting src/crisp/tty/xterm.m (Text)"
sed 's/^X//' << 'SHAR_EOF' > src/crisp/tty/xterm.m &&
X/********************************************************************
X * *
X * CRISP - Custom Reduced Instruction Set Programmers Editor *
X * *
X * (C) Paul Fox, 1989 *
X * 43, Jerome Close Tel: +44 6284 4222 *
X * Marlow *
X * Bucks. *
X * England SL7 1TX *
X * *
X * *
X * Please See COPYRIGHT notice. *
X * *
X ********************************************************************/
X;*
X;* This is terminal description file for the xterm window
X;* under X11 which is a VT-100 like emulator.
X;*
X;* 24 Jan 89 [PDF] Added support for ESC [ n C
X;*
X
X# include "tty.h"
X
X(macro _init
X (
X ;*
X ;* Set characters used for extended graphics support when
X ;* drawing windows.
X ;*
X (set_term_characters
X "\x1B(0l\x1B(B" ;* Top left of window.
X "\x1B(0k\x1B(B" ;* Top right of window.
X "\x1B(0m\x1B(B" ;* Bottom left of window.
X "\x1B(0j\x1B(B" ;* Bottom right of window.
X "\x1B(0x\x1B(B" ;* Vertical bar for window sides.
X "\x1B(0q\x1B(B" ;* Top and bottom horizontal bar for window.
X '+' ;* Top join.
X '+' ;* Bottom join.
X '+' ;* Window 4-way intersection.
X '+' ;* Left hand join.
X '+' ;* Right hand join.
X )
X ;*
X ;* Define escape sequences used for special optimisations on
X ;* output.
X ;*
X (set_term_features
X NULL ;* Sequence to clear 'n' spaces.
X NULL ;* Sequence to print characters with top
X ;* bit set.
X NULL ;* Insert-mode cursor.
X NULL ;* Overwrite-mode cursor.
X NULL ;* Insert-mode cursor (on virtual space).
X NULL ;* Overwrite-mode cursor (on virtual space).
X NULL ;* Print ESCAPE character graphically.
X NULL ;* Escape sequence to repeat last character.
X FALSE ;* ESC [0m resets color.
X FALSE ;* Terminal supports color.
X "\x1B[%dC" ;* Sequence to move cursor on same line.
X )
X ;*
X ;* Define keyboard layout for non-ascii characters.
X ;* (These can only be used for the console).
X ;*
X (set_term_keyboard
X/**********************
X* Comment out these lines if you dont want Sun Function key bindings
X***********************/
X F1-F12
X (quote_list "\x1B[192z" "\x1B[193z" "\x1B[194z" "\x1B[195z"
X "\x1B[196z" "\x1B[197z" "\x1B[198z" "\x1B[199z"
X "\x1B[200z" "\x1B[201z")
X
X ;*
X ;* These are the TOP F1 keys.
X ;*
X SHIFT-F1-F12
X (quote_list "\x1B[224z" "\x1B[225z" "\x1B[226z" "\x1B[227z"
X "\x1B[228z" "\x1B[229z" "\x1B[230z" "\x1B[231z"
X "\x1B[232z")
X/**********************
X* Uncomment these lines if you want support for xterm
X* with VT100 key bindings.
X F1-F12
X (quote_list "\x1B[23~" "\x1B[24~" "\x1B[25~" "\x1B[26~"
X "\x1B[28~" "\x1B[29~" "\x1B[31~" "\x1B[32~"
X "\x1B[33~" "\x1B[34~")
X
X ;*
X ;* These are the TOP F1 keys.
X ;*
X SHIFT-F1-F12
X (quote_list "\x1B[11~" "\x1B[12~" "\x1B[13~" "\x1B[14~"
X "\x1B[15~" "\x1B[16~" "\x1B[17~" "\x1B[18~"
X "\x1B[19~" "\x1B[20~")
X***********************/
X ;*
X ;* These are the LEFT-letter keys.
X ;*
X ALT-A-Z
X (quote_list "\x1Ba" "\x1Bb" "\x1Bc" "\x1Bd" "\x1Be"
X "\x1Bf" "\x1Bg" "\x1Bh" "\x1Bi" "\x1Bj"
X "\x1Bk" "\x1Bl" "\x1Bm" "\x1Bn" "\x1Bo"
X "\x1Bp" "\x1Bq" "\x1Br" "\x1Bs" "\x1Bt"
X "\x1Bu" "\x1Bv" "\x1Bw" "\x1Bx" "\x1By"
X "\x1Bz")
X
X KEYPAD-0-9
X (quote_list "\x1B[212z" "\x1B[220z" "\x1BOB" "\x1B[222z"
X "\x1BOD" "\x1B[??" "\x1BOC" "\x1B[214z" "\x1BOA"
X "\x1B[216z" "\x1B[P" "\x1B[213z" "\x1B[210z")
X ;*
X ;* F8 is top of buffer (CTRL-HOME). F9 is bottom of buffer
X ;* (CTRL-END). R1 is word left; R2 is word right
X ;*
X CTRL-KEYPAD-0-9
X (quote_list "\x1B[??" "\x1B[??" "\x1B[??" "\x1B[232z" "\x1B[208z"
X "\x1B[??" "\x1B[209z" "\x1B[??" "\x1B[??" "\x1B[231z")
X BACK-TAB "\x1B\t"
X ALT-0-9
X (quote_list "\x1B1" "\x1B2" "\x1B3" "\x1B4" "\x1B5"
X "\x1B6" "\x1B7" "\x1B8" "\x1B9" "\x1B0")
X )
X
X )
X)
X(macro xterm-arrow
X (
X (set_term_keyboard
X KEYPAD-0-9
X (quote_list "\x1B[212z" "\x1B[220z" "\x1B[B" "\x1B[222z"
X "\x1B[D" "\x1B[??" "\x1B[C" "\x1B[214z" "\x1B[A")
X )
X )
X)
SHAR_EOF
chmod 0666 src/crisp/tty/xterm.m || echo "restore of src/crisp/tty/xterm.m fails"
rm -f s2_seq_.tmp
echo "You have unpacked the last part"
exit 0
--
===================== Reuters Ltd PLC,
Tel: +44 628 891313 x. 212 Westthorpe House,
UUCP: fox%marlow.uucp at idec.stc.co.uk Little Marlow,
Bucks, England SL7 3RQ
More information about the Comp.sources.misc
mailing list