allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) (07/23/89)
Posting-number: Volume 7, Issue 41 Submitted-by: fox@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@idec.stc.co.uk Little Marlow, Bucks, England SL7 3RQ