hack/hack.tty.c

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