contrib/tcsh/ed.init.c

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