Context Navigation

source: trunk/third/tcsh/ed.init.c @ 12039

Visit:

Revision 12039, 20.3 KB checked in by danw, 26 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r12038, which included commits to RCS files with non-trunk default branches.

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: