1 /*- 2 * Copyright (c) 1988, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by the University of 16 * California, Berkeley and its contributors. 17 * 4. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 * 33 * @(#)hack.tty.c 8.1 (Berkeley) 5/31/93 34 * $FreeBSD: src/games/hack/hack.tty.c,v 1.6.2.1 2000/07/20 10:35:07 kris Exp $ 35 * $DragonFly: src/games/hack/hack.tty.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ 36 */ 37 38 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ 39 /* hack.tty.c - version 1.0.3 */ 40 /* With thanks to the people who sent code for SYSV - hpscdi!jon, 41 arnold@ucsf-cgl, wcs@bo95b, cbcephus!pds and others. */ 42 43 #include "hack.h" 44 45 /* 46 * The distinctions here are not BSD - rest but rather USG - rest, as 47 * BSD still has the old sgttyb structure, but SYSV has termio. Thus: 48 */ 49 #ifdef BSD 50 #define V7 51 #else 52 #define USG 53 #endif /* BSD */ 54 55 /* 56 * Some systems may have getchar() return EOF for various reasons, and 57 * we should not quit before seeing at least NR_OF_EOFS consecutive EOFs. 58 */ 59 #ifndef BSD 60 #define NR_OF_EOFS 20 61 #endif /* BSD */ 62 63 64 #ifdef USG 65 66 #include <termio.h> 67 #define termstruct termio 68 #define kill_sym c_cc[VKILL] 69 #define erase_sym c_cc[VERASE] 70 #define EXTABS TAB3 71 #define tabflgs c_oflag 72 #define echoflgs c_lflag 73 #define cbrkflgs c_lflag 74 #define CBRKMASK ICANON 75 #define CBRKON ! /* reverse condition */ 76 #define OSPEED(x) ((x).c_cflag & CBAUD) 77 #define GTTY(x) (ioctl(0, TCGETA, x)) 78 #define STTY(x) (ioctl(0, TCSETA, x)) /* TCSETAF? TCSETAW? */ 79 80 #else /* V7 */ 81 82 #include <sgtty.h> 83 #define termstruct sgttyb 84 #define kill_sym sg_kill 85 #define erase_sym sg_erase 86 #define EXTABS XTABS 87 #define tabflgs sg_flags 88 #define echoflgs sg_flags 89 #define cbrkflgs sg_flags 90 #define CBRKMASK CBREAK 91 #define CBRKON /* empty */ 92 #define OSPEED(x) (x).sg_ospeed 93 #define GTTY(x) (ioctl(0, TIOCGETP, x)) 94 #define STTY(x) (ioctl(0, TIOCSETP, x)) 95 96 #endif /* USG */ 97 98 static char erase_char, kill_char; 99 static boolean settty_needed = FALSE; 100 struct termstruct inittyb, curttyb; 101 102 static void setctty(void); 103 104 /* 105 * Get initial state of terminal, set ospeed (for termcap routines) 106 * and switch off tab expansion if necessary. 107 * Called by startup() in termcap.c and after returning from ! or ^Z 108 */ 109 void 110 gettty(void) 111 { 112 if(GTTY(&inittyb) < 0) 113 perror("Hack (gettty)"); 114 curttyb = inittyb; 115 erase_char = inittyb.erase_sym; 116 kill_char = inittyb.kill_sym; 117 getioctls(); 118 119 /* do not expand tabs - they might be needed inside a cm sequence */ 120 if(curttyb.tabflgs & EXTABS) { 121 curttyb.tabflgs &= ~EXTABS; 122 setctty(); 123 } 124 settty_needed = TRUE; 125 } 126 127 /* reset terminal to original state */ 128 void 129 settty(const char *s) 130 { 131 clear_screen(); 132 end_screen(); 133 if(s) printf("%s", s); 134 fflush(stdout); 135 if(STTY(&inittyb) < 0) 136 perror("Hack (settty)"); 137 flags.echo = (inittyb.echoflgs & ECHO) ? ON : OFF; 138 flags.cbreak = (CBRKON(inittyb.cbrkflgs & CBRKMASK)) ? ON : OFF; 139 setioctls(); 140 } 141 142 static void 143 setctty(void) 144 { 145 if(STTY(&curttyb) < 0) 146 perror("Hack (setctty)"); 147 } 148 149 void 150 setftty(void) 151 { 152 int ef = 0; /* desired value of flags & ECHO */ 153 int cf = CBRKON(CBRKMASK); /* desired value of flags & CBREAK */ 154 int change = 0; 155 flags.cbreak = ON; 156 flags.echo = OFF; 157 /* Should use (ECHO|CRMOD) here instead of ECHO */ 158 if((curttyb.echoflgs & ECHO) != ef){ 159 curttyb.echoflgs &= ~ECHO; 160 change++; 161 } 162 if((curttyb.cbrkflgs & CBRKMASK) != cf){ 163 curttyb.cbrkflgs &= ~CBRKMASK; 164 curttyb.cbrkflgs |= cf; 165 #ifdef USG 166 /* be satisfied with one character; no timeout */ 167 curttyb.c_cc[VMIN] = 1; /* was VEOF */ 168 curttyb.c_cc[VTIME] = 0; /* was VEOL */ 169 #endif /* USG */ 170 change++; 171 } 172 if(change){ 173 setctty(); 174 } 175 start_screen(); 176 } 177 178 179 /* fatal error */ 180 /*VARARGS1*/ 181 void 182 error(const char *s, ...) 183 { 184 va_list ap; 185 if(settty_needed) 186 settty((char *) 0); 187 va_start(ap, s); 188 vprintf(s, ap); 189 va_end(ap); 190 putchar('\n'); 191 exit(1); 192 } 193 194 /* 195 * Read a line closed with '\n' into the array char bufp[BUFSZ]. 196 * (The '\n' is not stored. The string is closed with a '\0'.) 197 * Reading can be interrupted by an escape ('\033') - now the 198 * resulting string is "\033". 199 */ 200 void 201 getlin(char *bufp) 202 { 203 char *obufp = bufp; 204 int c; 205 206 flags.toplin = 2; /* nonempty, no --More-- required */ 207 for(;;) { 208 fflush(stdout); 209 if((c = getchar()) == EOF) { 210 *bufp = 0; 211 return; 212 } 213 if(c == '\033') { 214 *obufp = c; 215 obufp[1] = 0; 216 return; 217 } 218 if(c == erase_char || c == '\b') { 219 if(bufp != obufp) { 220 bufp--; 221 putstr("\b \b"); /* putsym converts \b */ 222 } else bell(); 223 } else if(c == '\n') { 224 *bufp = 0; 225 return; 226 } else if(' ' <= c && c < '\177') { 227 /* avoid isprint() - some people don't have it 228 ' ' is not always a printing char */ 229 *bufp = c; 230 bufp[1] = 0; 231 putstr(bufp); 232 if(bufp-obufp < BUFSZ-1 && bufp-obufp < COLNO) 233 bufp++; 234 } else if(c == kill_char || c == '\177') { /* Robert Viduya */ 235 /* this test last - @ might be the kill_char */ 236 while(bufp != obufp) { 237 bufp--; 238 putstr("\b \b"); 239 } 240 } else 241 bell(); 242 } 243 } 244 245 void 246 getret(void) 247 { 248 cgetret(""); 249 } 250 251 void 252 cgetret(const char *s) 253 { 254 putsym('\n'); 255 if(flags.standout) 256 standoutbeg(); 257 putstr("Hit "); 258 putstr(flags.cbreak ? "space" : "return"); 259 putstr(" to continue: "); 260 if(flags.standout) 261 standoutend(); 262 xwaitforspace(s); 263 } 264 265 char morc; /* tell the outside world what char he used */ 266 267 void 268 xwaitforspace(const char *s) /* chars allowed besides space or return */ 269 { 270 int c; 271 272 morc = 0; 273 274 while((c = readchar()) != '\n') { 275 if(flags.cbreak) { 276 if(c == ' ') break; 277 if(s && index(s,c)) { 278 morc = c; 279 break; 280 } 281 bell(); 282 } 283 } 284 } 285 286 char * 287 parse(void) 288 { 289 static char inputline[COLNO]; 290 int foo; 291 292 flags.move = 1; 293 if(!Invisible) curs_on_u(); else home(); 294 while((foo = readchar()) >= '0' && foo <= '9') 295 multi = 10*multi+foo-'0'; 296 if(multi) { 297 multi--; 298 save_cm = inputline; 299 } 300 inputline[0] = foo; 301 inputline[1] = 0; 302 if(foo == 'f' || foo == 'F'){ 303 inputline[1] = getchar(); 304 #ifdef QUEST 305 if(inputline[1] == foo) inputline[2] = getchar(); else 306 #endif /* QUEST */ 307 inputline[2] = 0; 308 } 309 if(foo == 'm' || foo == 'M'){ 310 inputline[1] = getchar(); 311 inputline[2] = 0; 312 } 313 clrlin(); 314 return(inputline); 315 } 316 317 char 318 readchar(void) 319 { 320 int sym; 321 322 fflush(stdout); 323 if((sym = getchar()) == EOF) 324 #ifdef NR_OF_EOFS 325 { /* 326 * Some SYSV systems seem to return EOFs for various reasons 327 * (?like when one hits break or for interrupted systemcalls?), 328 * and we must see several before we quit. 329 */ 330 int cnt = NR_OF_EOFS; 331 while (cnt--) { 332 clearerr(stdin); /* omit if clearerr is undefined */ 333 if((sym = getchar()) != EOF) goto noteof; 334 } 335 end_of_input(); 336 noteof: ; 337 } 338 #else 339 end_of_input(); 340 #endif /* NR_OF_EOFS */ 341 if(flags.toplin == 1) 342 flags.toplin = 2; 343 return((char) sym); 344 } 345 346 void 347 end_of_input(void) 348 { 349 settty("End of input?\n"); 350 clearlocks(); 351 exit(0); 352 } 353