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