contrib/tcsh-6/ed.init.c

   1 /*
   2  * ed.init.c: Editor initializations
   3  */
   4 /*-
   5  * Copyright (c) 1980, 1991 The Regents of the University of California.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. Neither the name of the University nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTS_ION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32 #include "sh.h"
  33 #include "ed.h"
  34 #include "tc.h"
  35 #include "ed.defns.h"
  36
  37 /* ed.init.c -- init routines for the line editor */
  38 /* #define DEBUG_TTY */
  39
  40 int     Tty_raw_mode = 0;       /* Last tty change was to raw mode */
  41 int     MacroLvl = -1;          /* pointer to current macro nesting level; */
  42                                 /* (-1 == none) */
  43 static int Tty_quote_mode = 0;  /* Last tty change was to quote mode */
  44 static unsigned char vdisable;  /* The value of _POSIX_VDISABLE from
  45                                  * pathconf(2) */
  46
  47 int     Tty_eight_bit = -1;     /* does the tty handle eight bits */
  48
  49 extern int GotTermCaps;
  50
  51 static ttydata_t extty, edtty, tstty;
  52 #define qutty tstty
  53
  54 #define SHTTY (insource ? OLDSTD : SHIN)
  55
  56 #define uc unsigned char
  57 static unsigned char ttychars[NN_IO][C_NCC] = {
  58     {
  59         (uc)CINTR,      (uc)CQUIT,       (uc)CERASE,       (uc)CKILL,
  60         (uc)CEOF,       (uc)CEOL,        (uc)CEOL2,        (uc)CSWTCH,
  61         (uc)CDSWTCH,    (uc)CERASE2,     (uc)CSTART,       (uc)CSTOP,
  62         (uc)CWERASE,    (uc)CSUSP,       (uc)CDSUSP,       (uc)CREPRINT,
  63         (uc)CDISCARD,   (uc)CLNEXT,      (uc)CSTATUS,      (uc)CPAGE,
  64         (uc)CPGOFF,     (uc)CKILL2,      (uc)CBRK,         (uc)CMIN,
  65         (uc)CTIME,      (uc)CCHECKPT
  66     },
  67     {
  68         CINTR,           CQUIT,           CERASE,          CKILL,
  69         _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE,
  70         _POSIX_VDISABLE, CERASE2,         CSTART,          CSTOP,
  71         _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE,
  72         CDISCARD,        _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE,
  73         _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 1,
  74         0,              CCHECKPT
  75     },
  76     {
  77         0,               0,               0,               0,
  78         0,               0,               0,               0,
  79         0,               0,               0,               0,
  80         0,               0,               0,               0,
  81         0,               0,               0,               0,
  82         0,               0,               0,               0,
  83         0
  84     }
  85 };
  86
  87 #ifdef SIG_WINDOW
  88 void
  89 check_window_size(int force)
  90 {
  91     int     lins, cols;
  92
  93     /* don't want to confuse things here */
  94     pintr_disabled++;
  95     cleanup_push(&pintr_disabled, disabled_cleanup);
  96     /*
  97      * From: bret@shark.agps.lanl.gov (Bret Thaeler) Avoid sunview bug, where a
  98      * partially hidden window gets a SIG_WINDOW every time the text is
  99      * scrolled
 100      */
 101     if (GetSize(&lins, &cols) || force) {
 102         if (GettingInput) {
 103             ClearLines();
 104             ClearDisp();
 105             MoveToLine(0);
 106             MoveToChar(0);
 107             ChangeSize(lins, cols);
 108             Refresh();
 109         }
 110         else
 111             ChangeSize(lins, cols);
 112     }
 113     windowchg = 0;
 114     cleanup_until(&pintr_disabled);     /* can change it again */
 115 }
 116
 117 void
 118 /*ARGSUSED*/
 119 window_change(int snum)
 120 {
 121     USE(snum);
 122     windowchg = 1;
 123 }
 124
 125 #endif /* SIG_WINDOW */
 126
 127 void
 128 ed_set_tty_eight_bit(void)
 129 {
 130     if (tty_getty(SHTTY, &extty) == -1) {
 131 #ifdef DEBUG_TTY
 132         xprintf("ed_set_tty_eight_bit: tty_getty: %s\n", strerror(errno));
 133 #endif /* DEBUG_TTY */
 134         return;
 135     }
 136     Tty_eight_bit = tty_geteightbit(&extty);
 137 }
 138
 139
 140 int
 141 ed_Setup(int rst)
 142 {
 143     static int havesetup = 0;
 144     struct varent *imode;
 145
 146     if (havesetup)      /* if we have never been called */
 147         return(0);
 148
 149 #if defined(POSIX) && defined(_PC_VDISABLE) && !defined(BSD4_4) && \
 150     !defined(WINNT_NATIVE)
 151     {
 152         long pcret;
 153
 154         if ((pcret = fpathconf(SHTTY, _PC_VDISABLE)) == -1L)
 155             vdisable = (unsigned char) _POSIX_VDISABLE;
 156         else
 157             vdisable = (unsigned char) pcret;
 158         if (vdisable != (unsigned char) _POSIX_VDISABLE && rst != 0)
 159             for (rst = 0; rst < C_NCC; rst++) {
 160                 if (ttychars[ED_IO][rst] == (unsigned char) _POSIX_VDISABLE)
 161                     ttychars[ED_IO][rst] = vdisable;
 162                 if (ttychars[EX_IO][rst] == (unsigned char) _POSIX_VDISABLE)
 163                     ttychars[EX_IO][rst] = vdisable;
 164             }
 165     }
 166 #else /* ! POSIX || !_PC_VDISABLE || BSD4_4 || WINNT_NATIVE */
 167     vdisable = (unsigned char) _POSIX_VDISABLE;
 168 #endif /* POSIX && _PC_VDISABLE && !BSD4_4 && !WINNT_NATIVE */
 169
 170     if ((imode = adrof(STRinputmode)) != NULL && imode->vec != NULL) {
 171         if (!Strcmp(*(imode->vec), STRinsert))
 172             inputmode = MODE_INSERT;
 173         else if (!Strcmp(*(imode->vec), STRoverwrite))
 174             inputmode = MODE_REPLACE;
 175     }
 176     else
 177         inputmode = MODE_INSERT;
 178     ed_InitMaps();
 179     Hist_num = 0;
 180     Expand = 0;
 181     SetKillRing(getn(varval(STRkillring)));
 182
 183 #ifndef WINNT_NATIVE
 184     if (tty_getty(SHTTY, &extty) == -1) {
 185 # ifdef DEBUG_TTY
 186         xprintf("ed_Setup: tty_getty: %s\n", strerror(errno));
 187 # endif /* DEBUG_TTY */
 188         return(-1);
 189     }
 190
 191     tstty = edtty = extty;
 192
 193     T_Speed = tty_getspeed(&extty);
 194     T_Tabs = tty_gettabs(&extty);
 195     Tty_eight_bit = tty_geteightbit(&extty);
 196
 197 # if defined(POSIX) || defined(TERMIO)
 198     extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask;
 199     extty.d_t.c_iflag |=  ttylist[EX_IO][M_INPUT].t_setmask;
 200
 201     extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask;
 202     extty.d_t.c_oflag |=  ttylist[EX_IO][M_OUTPUT].t_setmask;
 203
 204     extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
 205     extty.d_t.c_cflag |=  ttylist[EX_IO][M_CONTROL].t_setmask;
 206
 207     extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask;
 208     extty.d_t.c_lflag |=  ttylist[EX_IO][M_LINED].t_setmask;
 209
 210 #  if defined(IRIX3_3) && SYSVREL < 4
 211     extty.d_t.c_line = NTTYDISC;
 212 #  endif /* IRIX3_3 && SYSVREL < 4 */
 213
 214 # else  /* GSTTY */             /* V7, Berkeley style tty */
 215
 216     if (T_Tabs) {       /* order of &= and |= is important to XTABS */
 217         extty.d_t.sg_flags &= ~(ttylist[EX_IO][M_CONTROL].t_clrmask|XTABS);
 218         extty.d_t.sg_flags |=   ttylist[EX_IO][M_CONTROL].t_setmask;
 219     }
 220     else {
 221         extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
 222         extty.d_t.sg_flags |= (ttylist[EX_IO][M_CONTROL].t_setmask|XTABS);
 223     }
 224
 225     extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask;
 226     extty.d_lb |=  ttylist[EX_IO][M_LOCAL].t_setmask;
 227
 228 # endif /* GSTTY */
 229     /*
 230      * Reset the tty chars to reasonable defaults
 231      * If they are disabled, then enable them.
 232      */
 233     if (rst) {
 234         if (tty_cooked_mode(&tstty)) {
 235             tty_getchar(&tstty, ttychars[TS_IO]);
 236             /*
 237              * Don't affect CMIN and CTIME for the editor mode
 238              */
 239             for (rst = 0; rst < C_NCC - 2; rst++)
 240                 if (ttychars[TS_IO][rst] != vdisable &&
 241                     ttychars[ED_IO][rst] != vdisable)
 242                     ttychars[ED_IO][rst] = ttychars[TS_IO][rst];
 243             for (rst = 0; rst < C_NCC; rst++)
 244                 if (ttychars[TS_IO][rst] != vdisable &&
 245                     ttychars[EX_IO][rst] != vdisable)
 246                     ttychars[EX_IO][rst] = ttychars[TS_IO][rst];
 247         }
 248         tty_setchar(&extty, ttychars[EX_IO]);
 249         if (tty_setty(SHTTY, &extty) == -1) {
 250 # ifdef DEBUG_TTY
 251             xprintf("ed_Setup: tty_setty: %s\n", strerror(errno));
 252 # endif /* DEBUG_TTY */
 253             return(-1);
 254         }
 255     }
 256     else
 257         tty_setchar(&extty, ttychars[EX_IO]);
 258
 259 # ifdef SIG_WINDOW
 260     {
 261         sigset_t set;
 262         (void)signal(SIG_WINDOW, window_change);        /* for window systems */
 263         sigemptyset(&set);
 264         sigaddset(&set, SIG_WINDOW);
 265         (void)sigprocmask(SIG_UNBLOCK, &set, NULL);
 266     }
 267 # endif
 268 #else /* WINNT_NATIVE */
 269 # ifdef DEBUG
 270     if (rst)
 271         xprintf("rst received in ed_Setup() %d\n", rst);
 272 # endif
 273 #endif /* WINNT_NATIVE */
 274     havesetup = 1;
 275     return(0);
 276 }
 277
 278 void
 279 ed_Init(void)
 280 {
 281     ResetInLine(1);             /* reset the input pointers */
 282     GettingInput = 0;           /* just in case */
 283 #ifdef notdef
 284     /* XXX This code was here before the kill ring:
 285     LastKill = KillBuf;         / * no kill buffer * /
 286        If there was any reason for that other than to make sure LastKill
 287        was initialized, the code below should go in here instead - but
 288        it doesn't seem reasonable to lose the entire kill ring (which is
 289        "self-initializing") just because you set $term or whatever, so
 290        presumably this whole '#ifdef notdef' should just be taken out.  */
 291
 292     {                           /* no kill ring - why? */
 293         int i;
 294         for (i = 0; i < KillRingMax; i++) {
 295             xfree(KillRing[i].buf);
 296             KillRing[i].buf = NULL;
 297             KillRing[i].len = 0;
 298         }
 299         YankPos = KillPos = 0;
 300         KillRingLen = 0;
 301     }
 302 #endif
 303
 304 #ifdef DEBUG_EDIT
 305     CheckMaps();                /* do a little error checking on key maps */
 306 #endif
 307
 308     if (ed_Setup(0) == -1)
 309         return;
 310
 311     /*
 312      * if we have been called before but GotTermCaps isn't set, our TERM has
 313      * changed, so get new termcaps and try again
 314      */
 315
 316     if (!GotTermCaps)
 317         GetTermCaps();          /* does the obvious, but gets term type each
 318                                  * time */
 319
 320 #ifndef WINNT_NATIVE
 321 # if defined(TERMIO) || defined(POSIX)
 322     edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask;
 323     edtty.d_t.c_iflag |=  ttylist[ED_IO][M_INPUT].t_setmask;
 324
 325     edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask;
 326     edtty.d_t.c_oflag |=  ttylist[ED_IO][M_OUTPUT].t_setmask;
 327
 328     edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
 329     edtty.d_t.c_cflag |=  ttylist[ED_IO][M_CONTROL].t_setmask;
 330
 331     edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask;
 332     edtty.d_t.c_lflag |=  ttylist[ED_IO][M_LINED].t_setmask;
 333
 334
 335 #  if defined(IRIX3_3) && SYSVREL < 4
 336     edtty.d_t.c_line = NTTYDISC;
 337 #  endif /* IRIX3_3 && SYSVREL < 4 */
 338
 339 # else /* GSTTY */
 340
 341     if (T_Tabs) {       /* order of &= and |= is important to XTABS */
 342         edtty.d_t.sg_flags &= ~(ttylist[ED_IO][M_CONTROL].t_clrmask | XTABS);
 343         edtty.d_t.sg_flags |=   ttylist[ED_IO][M_CONTROL].t_setmask;
 344     }
 345     else {
 346         edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
 347         edtty.d_t.sg_flags |= (ttylist[ED_IO][M_CONTROL].t_setmask | XTABS);
 348     }
 349
 350     edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask;
 351     edtty.d_lb |=  ttylist[ED_IO][M_LOCAL].t_setmask;
 352 # endif /* POSIX || TERMIO */
 353
 354     tty_setchar(&edtty, ttychars[ED_IO]);
 355 #endif /* WINNT_NATIVE */
 356 }
 357
 358 /*
 359  * Check and re-init the line. set the terminal into 1 char at a time mode.
 360  */
 361 int
 362 Rawmode(void)
 363 {
 364     if (Tty_raw_mode)
 365         return (0);
 366
 367 #ifdef WINNT_NATIVE
 368     do_nt_raw_mode();
 369 #else /* !WINNT_NATIVE */
 370 # ifdef _IBMR2
 371     tty_setdisc(SHTTY, ED_IO);
 372 # endif /* _IBMR2 */
 373
 374     if (tty_getty(SHTTY, &tstty) == -1) {
 375 # ifdef DEBUG_TTY
 376         xprintf("Rawmode: tty_getty: %s\n", strerror(errno));
 377 # endif /* DEBUG_TTY */
 378         return(-1);
 379     }
 380
 381     /*
 382      * We always keep up with the eight bit setting and the speed of the
 383      * tty. But only we only believe changes that are made to cooked mode!
 384      */
 385 # if defined(POSIX) || defined(TERMIO)
 386     Tty_eight_bit = tty_geteightbit(&tstty);
 387     T_Speed = tty_getspeed(&tstty);
 388
 389 #  ifdef POSIX
 390     /*
 391      * Fix from: Steven (Steve) B. Green <xrsbg@charney.gsfc.nasa.gov>
 392      * Speed was not being set up correctly under POSIX.
 393      */
 394     if (tty_getspeed(&extty) != T_Speed || tty_getspeed(&edtty) != T_Speed) {
 395         (void) cfsetispeed(&extty.d_t, T_Speed);
 396         (void) cfsetospeed(&extty.d_t, T_Speed);
 397         (void) cfsetispeed(&edtty.d_t, T_Speed);
 398         (void) cfsetospeed(&edtty.d_t, T_Speed);
 399     }
 400 #  endif /* POSIX */
 401 # else /* GSTTY */
 402
 403     T_Speed = tty_getspeed(&tstty);
 404     Tty_eight_bit = tty_geteightbit(&tstty);
 405
 406     if (extty.d_t.sg_ispeed != tstty.d_t.sg_ispeed) {
 407         extty.d_t.sg_ispeed = tstty.d_t.sg_ispeed;
 408         edtty.d_t.sg_ispeed = tstty.d_t.sg_ispeed;
 409     }
 410
 411     if (extty.d_t.sg_ospeed != tstty.d_t.sg_ospeed) {
 412         extty.d_t.sg_ospeed = tstty.d_t.sg_ospeed;
 413         edtty.d_t.sg_ospeed = tstty.d_t.sg_ospeed;
 414     }
 415 # endif /* POSIX || TERMIO */
 416
 417     if (tty_cooked_mode(&tstty)) {
 418         /*
 419          * re-test for some things here (like maybe the user typed
 420          * "stty -tabs"
 421          */
 422         if (tty_gettabs(&tstty) == 0)
 423             T_Tabs = 0;
 424         else
 425             T_Tabs = CanWeTab();
 426
 427 # if defined(POSIX) || defined(TERMIO)
 428         extty.d_t.c_cflag  = tstty.d_t.c_cflag;
 429         extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
 430         extty.d_t.c_cflag |=  ttylist[EX_IO][M_CONTROL].t_setmask;
 431
 432         edtty.d_t.c_cflag  = tstty.d_t.c_cflag;
 433         edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
 434         edtty.d_t.c_cflag |=  ttylist[ED_IO][M_CONTROL].t_setmask;
 435
 436         extty.d_t.c_lflag = tstty.d_t.c_lflag;
 437         extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask;
 438         extty.d_t.c_lflag |=  ttylist[EX_IO][M_LINED].t_setmask;
 439
 440         edtty.d_t.c_lflag = tstty.d_t.c_lflag;
 441         edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask;
 442         edtty.d_t.c_lflag |=  ttylist[ED_IO][M_LINED].t_setmask;
 443
 444         extty.d_t.c_iflag = tstty.d_t.c_iflag;
 445         extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask;
 446         extty.d_t.c_iflag |=  ttylist[EX_IO][M_INPUT].t_setmask;
 447
 448         edtty.d_t.c_iflag = tstty.d_t.c_iflag;
 449         edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask;
 450         edtty.d_t.c_iflag |=  ttylist[ED_IO][M_INPUT].t_setmask;
 451
 452         extty.d_t.c_oflag = tstty.d_t.c_oflag;
 453         extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask;
 454         extty.d_t.c_oflag |=  ttylist[EX_IO][M_OUTPUT].t_setmask;
 455
 456         edtty.d_t.c_oflag = tstty.d_t.c_oflag;
 457         edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask;
 458         edtty.d_t.c_oflag |=  ttylist[ED_IO][M_OUTPUT].t_setmask;
 459
 460 # else /* GSTTY */
 461
 462         extty.d_t.sg_flags = tstty.d_t.sg_flags;
 463
 464         extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
 465         extty.d_t.sg_flags |=  ttylist[EX_IO][M_CONTROL].t_setmask;
 466
 467         if (T_Tabs)             /* order of &= and |= is important to XTABS */
 468             extty.d_t.sg_flags &= ~XTABS;
 469         else
 470             extty.d_t.sg_flags |= XTABS;
 471
 472         extty.d_lb = tstty.d_lb;
 473         extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask;
 474         extty.d_lb |= ttylist[EX_IO][M_LOCAL].t_setmask;
 475
 476         edtty.d_t.sg_flags = extty.d_t.sg_flags;
 477         if (T_Tabs) {   /* order of &= and |= is important to XTABS */
 478             edtty.d_t.sg_flags &=
 479                     ~(ttylist[ED_IO][M_CONTROL].t_clrmask|XTABS);
 480             edtty.d_t.sg_flags |=   ttylist[ED_IO][M_CONTROL].t_setmask;
 481         }
 482         else {
 483             edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
 484             edtty.d_t.sg_flags |=
 485                     (ttylist[ED_IO][M_CONTROL].t_setmask|XTABS);
 486         }
 487
 488         edtty.d_lb = tstty.d_lb;
 489         edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask;
 490         edtty.d_lb |= ttylist[ED_IO][M_LOCAL].t_setmask;
 491
 492 # endif /* TERMIO || POSIX */
 493
 494         {
 495             int i;
 496
 497             tty_getchar(&tstty, ttychars[TS_IO]);
 498             /*
 499              * Check if the user made any changes.
 500              * If he did, then propagate the changes to the
 501              * edit and execute data structures.
 502              */
 503             for (i = 0; i < C_NCC; i++)
 504                 if (ttychars[TS_IO][i] != ttychars[EX_IO][i])
 505                     break;
 506
 507             if (i != C_NCC || didsetty) {
 508                 didsetty = 0;
 509                 /*
 510                  * Propagate changes only to the unprotected chars
 511                  * that have been modified just now.
 512                  */
 513                 for (i = 0; i < C_NCC; i++) {
 514                     if (!((ttylist[ED_IO][M_CHAR].t_setmask & C_SH(i))) &&
 515                         (ttychars[TS_IO][i] != ttychars[EX_IO][i]))
 516                         ttychars[ED_IO][i] = ttychars[TS_IO][i];
 517                     if (ttylist[ED_IO][M_CHAR].t_clrmask & C_SH(i))
 518                         ttychars[ED_IO][i] = vdisable;
 519                 }
 520                 tty_setchar(&edtty, ttychars[ED_IO]);
 521
 522                 for (i = 0; i < C_NCC; i++) {
 523                     if (!((ttylist[EX_IO][M_CHAR].t_setmask & C_SH(i))) &&
 524                         (ttychars[TS_IO][i] != ttychars[EX_IO][i]))
 525                         ttychars[EX_IO][i] = ttychars[TS_IO][i];
 526                     if (ttylist[EX_IO][M_CHAR].t_clrmask & C_SH(i))
 527                         ttychars[EX_IO][i] = vdisable;
 528                 }
 529                 tty_setchar(&extty, ttychars[EX_IO]);
 530             }
 531
 532         }
 533     }
 534     if (tty_setty(SHTTY, &edtty) == -1) {
 535 # ifdef DEBUG_TTY
 536         xprintf("Rawmode: tty_setty: %s\n", strerror(errno));
 537 # endif /* DEBUG_TTY */
 538         return(-1);
 539     }
 540 #endif /* WINNT_NATIVE */
 541     Tty_raw_mode = 1;
 542     flush();                    /* flush any buffered output */
 543     return (0);
 544 }
 545
 546 int
 547 Cookedmode(void)
 548 {                               /* set tty in normal setup */
 549 #ifdef WINNT_NATIVE
 550     do_nt_cooked_mode();
 551 #else
 552     sigset_t set, oset;
 553     int res;
 554
 555 # ifdef _IBMR2
 556     tty_setdisc(SHTTY, EX_IO);
 557 # endif /* _IBMR2 */
 558
 559     if (!Tty_raw_mode)
 560         return (0);
 561
 562     /* hold this for reseting tty */
 563     sigemptyset(&set);
 564     sigaddset(&set, SIGINT);
 565     (void)sigprocmask(SIG_BLOCK, &set, &oset);
 566     cleanup_push(&oset, sigprocmask_cleanup);
 567     res = tty_setty(SHTTY, &extty);
 568     cleanup_until(&oset);
 569     if (res == -1) {
 570 # ifdef DEBUG_TTY
 571         xprintf("Cookedmode: tty_setty: %s\n", strerror(errno));
 572 # endif /* DEBUG_TTY */
 573         return -1;
 574     }
 575 #endif /* WINNT_NATIVE */
 576
 577     Tty_raw_mode = 0;
 578     return (0);
 579 }
 580
 581 void
 582 ResetInLine(int macro)
 583 {
 584     Cursor = InputBuf;          /* reset cursor */
 585     LastChar = InputBuf;
 586     InputLim = &InputBuf[INBUFSIZE - 2];/*FIXBUF*/
 587     Mark = InputBuf;
 588     MarkIsSet = 0;
 589     MetaNext = 0;
 590     CurrentKeyMap = CcKeyMap;
 591     AltKeyMap = 0;
 592     Hist_num = 0;
 593     DoingArg = 0;
 594     Argument = 1;
 595     LastCmd = F_UNASSIGNED;     /* previous command executed */
 596     IncMatchLen = 0;
 597     if (macro)
 598         MacroLvl = -1;          /* no currently active macros */
 599 }
 600
 601 int
 602 Load_input_line(void)
 603 {
 604     static Char *Input_Line = NULL;
 605 #ifdef SUNOS4
 606     long chrs = 0;
 607 #else /* !SUNOS4 */
 608     /*
 609      * *Everyone* else has an int, but SunOS wants long!
 610      * This breaks where int != long (alpha)
 611      */
 612     int chrs = 0;
 613 #endif /* SUNOS4 */
 614
 615     if (Input_Line)
 616         xfree(Input_Line);
 617     Input_Line = NULL;
 618
 619     if (Tty_raw_mode)
 620         return 0;
 621
 622 #if defined(FIONREAD) && !defined(OREO)
 623     (void) ioctl(SHIN, FIONREAD, (ioctl_t) &chrs);
 624     if (chrs > 0) {
 625         char    buf[BUFSIZE];
 626
 627         chrs = xread(SHIN, buf, min(chrs, BUFSIZE - 1));
 628         if (chrs > 0) {
 629             buf[chrs] = '\0';
 630             Input_Line = Strsave(str2short(buf));
 631             PushMacro(Input_Line);
 632         }
 633 #ifdef convex
 634         /* need to print errno message in case file is migrated */
 635         if (chrs < 0)
 636             stderror(ERR_SYSTEM, progname, strerror(errno));
 637 #endif
 638     }
 639 #endif  /* FIONREAD && !OREO */
 640     return chrs > 0;
 641 }
 642
 643 /*
 644  * Bugfix (in Swedish) by:
 645  * Johan Widen
 646  * SICS, PO Box 1263, S-163 13 SPANGA, SWEDEN
 647  * {mcvax,munnari,cernvax,diku,inria,prlb2,penet,ukc,unido}!enea!sics.se!jw
 648  * Internet: jw@sics.se
 649  *
 650  * (via Hans J Albertsson (thanks))
 651  */
 652 void
 653 QuoteModeOn(void)
 654 {
 655     if (MacroLvl >= 0)
 656         return;
 657
 658 #ifndef WINNT_NATIVE
 659     qutty = edtty;
 660
 661 #if defined(TERMIO) || defined(POSIX)
 662     qutty.d_t.c_iflag &= ~ttylist[QU_IO][M_INPUT].t_clrmask;
 663     qutty.d_t.c_iflag |=  ttylist[QU_IO][M_INPUT].t_setmask;
 664
 665     qutty.d_t.c_oflag &= ~ttylist[QU_IO][M_OUTPUT].t_clrmask;
 666     qutty.d_t.c_oflag |=  ttylist[QU_IO][M_OUTPUT].t_setmask;
 667
 668     qutty.d_t.c_cflag &= ~ttylist[QU_IO][M_CONTROL].t_clrmask;
 669     qutty.d_t.c_cflag |=  ttylist[QU_IO][M_CONTROL].t_setmask;
 670
 671     qutty.d_t.c_lflag &= ~ttylist[QU_IO][M_LINED].t_clrmask;
 672     qutty.d_t.c_lflag |=  ttylist[QU_IO][M_LINED].t_setmask;
 673 #else /* GSTTY */
 674     qutty.d_t.sg_flags &= ~ttylist[QU_IO][M_CONTROL].t_clrmask;
 675     qutty.d_t.sg_flags |= ttylist[QU_IO][M_CONTROL].t_setmask;
 676     qutty.d_lb &= ~ttylist[QU_IO][M_LOCAL].t_clrmask;
 677     qutty.d_lb |= ttylist[QU_IO][M_LOCAL].t_setmask;
 678
 679 #endif /* TERMIO || POSIX */
 680     if (tty_setty(SHTTY, &qutty) == -1) {
 681 #ifdef DEBUG_TTY
 682         xprintf("QuoteModeOn: tty_setty: %s\n", strerror(errno));
 683 #endif /* DEBUG_TTY */
 684         return;
 685     }
 686 #endif /* !WINNT_NATIVE */
 687     Tty_quote_mode = 1;
 688     return;
 689 }
 690
 691 void
 692 QuoteModeOff(void)
 693 {
 694     if (!Tty_quote_mode)
 695         return;
 696     Tty_quote_mode = 0;
 697     if (tty_setty(SHTTY, &edtty) == -1) {
 698 #ifdef DEBUG_TTY
 699         xprintf("QuoteModeOff: tty_setty: %s\n", strerror(errno));
 700 #endif /* DEBUG_TTY */
 701         return;
 702     }
 703     return;
 704 }