/contrib/tcsh/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
 35RCSID("$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
 44int     Tty_raw_mode = 0;	/* Last tty change was to raw mode */
 45int     MacroLvl = -1;		/* pointer to current macro nesting level; */
 46				/* (-1 == none) */
 47static int Tty_quote_mode = 0;	/* Last tty change was to quote mode */
 48static unsigned char vdisable;	/* The value of _POSIX_VDISABLE from 
 49				 * pathconf(2) */
 50
 51int     Tty_eight_bit = -1;	/* does the tty handle eight bits */
 52
 53extern int GotTermCaps;
 54
 55static ttydata_t extty, edtty, tstty;
 56#define qutty tstty
 57
 58#define SHTTY (insource ? OLDSTD : SHIN)
 59
 60#define uc unsigned char
 61static 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
 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
 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
 92void
 93check_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
121void
122/*ARGSUSED*/
123window_change(int snum)
124{
125    USE(snum);
126    windowchg = 1;
127}
128
129#endif /* SIG_WINDOW */
130
131void
132ed_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			
144int
145ed_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
282void
283ed_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 */
365int
366Rawmode(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
550int
551Cookedmode(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
585void
586ResetInLine(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
605int
606Load_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 */
656void
657QuoteModeOn(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
695void
696QuoteModeOff(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}