games/hack/hack.tty.c

   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.2 2003/06/17 04:25:24 dillon 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 #include        <stdio.h>
  45
  46 /*
  47  * The distinctions here are not BSD - rest but rather USG - rest, as
  48  * BSD still has the old sgttyb structure, but SYSV has termio. Thus:
  49  */
  50 #ifdef BSD
  51 #define V7
  52 #else
  53 #define USG
  54 #endif BSD
  55
  56 /*
  57  * Some systems may have getchar() return EOF for various reasons, and
  58  * we should not quit before seeing at least NR_OF_EOFS consecutive EOFs.
  59  */
  60 #ifndef BSD
  61 #define NR_OF_EOFS      20
  62 #endif BSD
  63
  64
  65 #ifdef USG
  66
  67 #include        <termio.h>
  68 #define termstruct      termio
  69 #define kill_sym        c_cc[VKILL]
  70 #define erase_sym       c_cc[VERASE]
  71 #define EXTABS          TAB3
  72 #define tabflgs         c_oflag
  73 #define echoflgs        c_lflag
  74 #define cbrkflgs        c_lflag
  75 #define CBRKMASK        ICANON
  76 #define CBRKON          ! /* reverse condition */
  77 #define OSPEED(x)       ((x).c_cflag & CBAUD)
  78 #define GTTY(x)         (ioctl(0, TCGETA, x))
  79 #define STTY(x)         (ioctl(0, TCSETA, x))   /* TCSETAF? TCSETAW? */
  80
  81 #else   /* V7 */
  82
  83 #include        <sgtty.h>
  84 #define termstruct      sgttyb
  85 #define kill_sym        sg_kill
  86 #define erase_sym       sg_erase
  87 #define EXTABS          XTABS
  88 #define tabflgs         sg_flags
  89 #define echoflgs        sg_flags
  90 #define cbrkflgs        sg_flags
  91 #define CBRKMASK        CBREAK
  92 #define CBRKON          /* empty */
  93 #define OSPEED(x)       (x).sg_ospeed
  94 #define GTTY(x)         (gtty(0, x))
  95 #define STTY(x)         (stty(0, x))
  96
  97 #endif USG
  98
  99 #if 0
 100 extern short ospeed;
 101 #endif
 102 static char erase_char, kill_char;
 103 static boolean settty_needed = FALSE;
 104 struct termstruct inittyb, curttyb;
 105
 106 /*
 107  * Get initial state of terminal, set ospeed (for termcap routines)
 108  * and switch off tab expansion if necessary.
 109  * Called by startup() in termcap.c and after returning from ! or ^Z
 110  */
 111 gettty(){
 112         if(GTTY(&inittyb) < 0)
 113                 perror("Hack (gettty)");
 114         curttyb = inittyb;
 115 #if 0
 116         ospeed = OSPEED(inittyb);
 117 #endif
 118         erase_char = inittyb.erase_sym;
 119         kill_char = inittyb.kill_sym;
 120         getioctls();
 121
 122         /* do not expand tabs - they might be needed inside a cm sequence */
 123         if(curttyb.tabflgs & EXTABS) {
 124                 curttyb.tabflgs &= ~EXTABS;
 125                 setctty();
 126         }
 127         settty_needed = TRUE;
 128 }
 129
 130 /* reset terminal to original state */
 131 settty(s) char *s; {
 132         clear_screen();
 133         end_screen();
 134         if(s) printf("%s", s);
 135         (void) fflush(stdout);
 136         if(STTY(&inittyb) < 0)
 137                 perror("Hack (settty)");
 138         flags.echo = (inittyb.echoflgs & ECHO) ? ON : OFF;
 139         flags.cbreak = (CBRKON(inittyb.cbrkflgs & CBRKMASK)) ? ON : OFF;
 140         setioctls();
 141 }
 142
 143 setctty(){
 144         if(STTY(&curttyb) < 0)
 145                 perror("Hack (setctty)");
 146 }
 147
 148
 149 setftty(){
 150 int ef = 0;                     /* desired value of flags & ECHO */
 151 int cf = CBRKON(CBRKMASK);      /* desired value of flags & CBREAK */
 152 int change = 0;
 153         flags.cbreak = ON;
 154         flags.echo = OFF;
 155         /* Should use (ECHO|CRMOD) here instead of ECHO */
 156         if((curttyb.echoflgs & ECHO) != ef){
 157                 curttyb.echoflgs &= ~ECHO;
 158 /*              curttyb.echoflgs |= ef;                                 */
 159                 change++;
 160         }
 161         if((curttyb.cbrkflgs & CBRKMASK) != cf){
 162                 curttyb.cbrkflgs &= ~CBRKMASK;
 163                 curttyb.cbrkflgs |= cf;
 164 #ifdef USG
 165                 /* be satisfied with one character; no timeout */
 166                 curttyb.c_cc[VMIN] = 1;         /* was VEOF */
 167                 curttyb.c_cc[VTIME] = 0;        /* was VEOL */
 168 #endif USG
 169                 change++;
 170         }
 171         if(change){
 172                 setctty();
 173         }
 174         start_screen();
 175 }
 176
 177
 178 /* fatal error */
 179 /*VARARGS1*/
 180 error(s,x,y) char *s; {
 181         if(settty_needed)
 182                 settty((char *) 0);
 183         printf(s,x,y);
 184         putchar('\n');
 185         exit(1);
 186 }
 187
 188 /*
 189  * Read a line closed with '\n' into the array char bufp[BUFSZ].
 190  * (The '\n' is not stored. The string is closed with a '\0'.)
 191  * Reading can be interrupted by an escape ('\033') - now the
 192  * resulting string is "\033".
 193  */
 194 getlin(bufp)
 195 char *bufp;
 196 {
 197         char *obufp = bufp;
 198         int c;
 199
 200         flags.toplin = 2;               /* nonempty, no --More-- required */
 201         for(;;) {
 202                 (void) fflush(stdout);
 203                 if((c = getchar()) == EOF) {
 204                         *bufp = 0;
 205                         return;
 206                 }
 207                 if(c == '\033') {
 208                         *obufp = c;
 209                         obufp[1] = 0;
 210                         return;
 211                 }
 212                 if(c == erase_char || c == '\b') {
 213                         if(bufp != obufp) {
 214                                 bufp--;
 215                                 putstr("\b \b"); /* putsym converts \b */
 216                         } else  bell();
 217                 } else if(c == '\n') {
 218                         *bufp = 0;
 219                         return;
 220                 } else if(' ' <= c && c < '\177') {
 221                                 /* avoid isprint() - some people don't have it
 222                                    ' ' is not always a printing char */
 223                         *bufp = c;
 224                         bufp[1] = 0;
 225                         putstr(bufp);
 226                         if(bufp-obufp < BUFSZ-1 && bufp-obufp < COLNO)
 227                                 bufp++;
 228                 } else if(c == kill_char || c == '\177') { /* Robert Viduya */
 229                                 /* this test last - @ might be the kill_char */
 230                         while(bufp != obufp) {
 231                                 bufp--;
 232                                 putstr("\b \b");
 233                         }
 234                 } else
 235                         bell();
 236         }
 237 }
 238
 239 getret() {
 240         cgetret("");
 241 }
 242
 243 cgetret(s)
 244 char *s;
 245 {
 246         putsym('\n');
 247         if(flags.standout)
 248                 standoutbeg();
 249         putstr("Hit ");
 250         putstr(flags.cbreak ? "space" : "return");
 251         putstr(" to continue: ");
 252         if(flags.standout)
 253                 standoutend();
 254         xwaitforspace(s);
 255 }
 256
 257 char morc;      /* tell the outside world what char he used */
 258
 259 xwaitforspace(s)
 260 char *s;        /* chars allowed besides space or return */
 261 {
 262 int c;
 263
 264         morc = 0;
 265
 266         while((c = readchar()) != '\n') {
 267             if(flags.cbreak) {
 268                 if(c == ' ') break;
 269                 if(s && index(s,c)) {
 270                         morc = c;
 271                         break;
 272                 }
 273                 bell();
 274             }
 275         }
 276 }
 277
 278 char *
 279 parse()
 280 {
 281         static char inputline[COLNO];
 282         int foo;
 283
 284         flags.move = 1;
 285         if(!Invisible) curs_on_u(); else home();
 286         while((foo = readchar()) >= '0' && foo <= '9')
 287                 multi = 10*multi+foo-'0';
 288         if(multi) {
 289                 multi--;
 290                 save_cm = inputline;
 291         }
 292         inputline[0] = foo;
 293         inputline[1] = 0;
 294         if(foo == 'f' || foo == 'F'){
 295                 inputline[1] = getchar();
 296 #ifdef QUEST
 297                 if(inputline[1] == foo) inputline[2] = getchar(); else
 298 #endif QUEST
 299                 inputline[2] = 0;
 300         }
 301         if(foo == 'm' || foo == 'M'){
 302                 inputline[1] = getchar();
 303                 inputline[2] = 0;
 304         }
 305         clrlin();
 306         return(inputline);
 307 }
 308
 309 char
 310 readchar() {
 311         int sym;
 312
 313         (void) fflush(stdout);
 314         if((sym = getchar()) == EOF)
 315 #ifdef NR_OF_EOFS
 316         { /*
 317            * Some SYSV systems seem to return EOFs for various reasons
 318            * (?like when one hits break or for interrupted systemcalls?),
 319            * and we must see several before we quit.
 320            */
 321                 int cnt = NR_OF_EOFS;
 322                 while (cnt--) {
 323                     clearerr(stdin);    /* omit if clearerr is undefined */
 324                     if((sym = getchar()) != EOF) goto noteof;
 325                 }
 326                 end_of_input();
 327              noteof:    ;
 328         }
 329 #else
 330                 end_of_input();
 331 #endif NR_OF_EOFS
 332         if(flags.toplin == 1)
 333                 flags.toplin = 2;
 334         return((char) sym);
 335 }
 336
 337 end_of_input()
 338 {
 339         settty("End of input?\n");
 340         clearlocks();
 341         exit(0);
 342 }