Merge branch 'vendor/TCSH'
[dragonfly.git] / 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 }