xref: /freebsd/contrib/tcsh/sh.c (revision 55b903e2e024efd1270a2fe37f119a1547aef6aa)
119d2e3deSDmitry Chagin /* $Header: /p/tcsh/cvsroot/tcsh/sh.c,v 3.189 2016/09/12 16:33:54 christos Exp $ */
2c80476e4SDavid E. O'Brien /*
3c80476e4SDavid E. O'Brien  * sh.c: Main shell routines
4c80476e4SDavid E. O'Brien  */
5c80476e4SDavid E. O'Brien /*-
6c80476e4SDavid E. O'Brien  * Copyright (c) 1980, 1991 The Regents of the University of California.
7c80476e4SDavid E. O'Brien  * All rights reserved.
8c80476e4SDavid E. O'Brien  *
9c80476e4SDavid E. O'Brien  * Redistribution and use in source and binary forms, with or without
10c80476e4SDavid E. O'Brien  * modification, are permitted provided that the following conditions
11c80476e4SDavid E. O'Brien  * are met:
12c80476e4SDavid E. O'Brien  * 1. Redistributions of source code must retain the above copyright
13c80476e4SDavid E. O'Brien  *    notice, this list of conditions and the following disclaimer.
14c80476e4SDavid E. O'Brien  * 2. Redistributions in binary form must reproduce the above copyright
15c80476e4SDavid E. O'Brien  *    notice, this list of conditions and the following disclaimer in the
16c80476e4SDavid E. O'Brien  *    documentation and/or other materials provided with the distribution.
1729301572SMark Peek  * 3. Neither the name of the University nor the names of its contributors
18c80476e4SDavid E. O'Brien  *    may be used to endorse or promote products derived from this software
19c80476e4SDavid E. O'Brien  *    without specific prior written permission.
20c80476e4SDavid E. O'Brien  *
21c80476e4SDavid E. O'Brien  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22c80476e4SDavid E. O'Brien  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c80476e4SDavid E. O'Brien  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24c80476e4SDavid E. O'Brien  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25c80476e4SDavid E. O'Brien  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26c80476e4SDavid E. O'Brien  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27c80476e4SDavid E. O'Brien  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28c80476e4SDavid E. O'Brien  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29c80476e4SDavid E. O'Brien  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30c80476e4SDavid E. O'Brien  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31c80476e4SDavid E. O'Brien  * SUCH DAMAGE.
32c80476e4SDavid E. O'Brien  */
33c80476e4SDavid E. O'Brien #define EXTERN	/* Intern */
34c80476e4SDavid E. O'Brien #include "sh.h"
35c80476e4SDavid E. O'Brien 
36c80476e4SDavid E. O'Brien #ifndef lint
37c80476e4SDavid E. O'Brien char    copyright[] =
38c80476e4SDavid E. O'Brien "@(#) Copyright (c) 1991 The Regents of the University of California.\n\
39c80476e4SDavid E. O'Brien  All rights reserved.\n";
40c80476e4SDavid E. O'Brien #endif /* not lint */
41c80476e4SDavid E. O'Brien 
4219d2e3deSDmitry Chagin RCSID("$tcsh: sh.c,v 3.189 2016/09/12 16:33:54 christos Exp $")
43c80476e4SDavid E. O'Brien 
44c80476e4SDavid E. O'Brien #include "tc.h"
45c80476e4SDavid E. O'Brien #include "ed.h"
46c80476e4SDavid E. O'Brien #include "tw.h"
47c80476e4SDavid E. O'Brien 
4823338178SMark Peek extern int MapsAreInited;
4923338178SMark Peek extern int NLSMapsAreInited;
50c80476e4SDavid E. O'Brien 
51c80476e4SDavid E. O'Brien /*
52c80476e4SDavid E. O'Brien  * C Shell
53c80476e4SDavid E. O'Brien  *
54c80476e4SDavid E. O'Brien  * Bill Joy, UC Berkeley, California, USA
55c80476e4SDavid E. O'Brien  * October 1978, May 1980
56c80476e4SDavid E. O'Brien  *
57c80476e4SDavid E. O'Brien  * Jim Kulp, IIASA, Laxenburg, Austria
58c80476e4SDavid E. O'Brien  * April 1980
59c80476e4SDavid E. O'Brien  *
60c80476e4SDavid E. O'Brien  * Filename recognition added:
61c80476e4SDavid E. O'Brien  * Ken Greer, Ind. Consultant, Palo Alto CA
62c80476e4SDavid E. O'Brien  * October 1983.
63c80476e4SDavid E. O'Brien  *
64c80476e4SDavid E. O'Brien  * Karl Kleinpaste, Computer Consoles, Inc.
65c80476e4SDavid E. O'Brien  * Added precmd, periodic/tperiod, prompt changes,
66c80476e4SDavid E. O'Brien  * directory stack hack, and login watch.
67c80476e4SDavid E. O'Brien  * Sometime March 1983 - Feb 1984.
68c80476e4SDavid E. O'Brien  *
69c80476e4SDavid E. O'Brien  * Added scheduled commands, including the "sched" command,
70c80476e4SDavid E. O'Brien  * plus the call to sched_run near the precmd et al
71c80476e4SDavid E. O'Brien  * routines.
72c80476e4SDavid E. O'Brien  * Upgraded scheduled events for running events while
73c80476e4SDavid E. O'Brien  * sitting idle at command input.
74c80476e4SDavid E. O'Brien  *
75c80476e4SDavid E. O'Brien  * Paul Placeway, Ohio State
76c80476e4SDavid E. O'Brien  * added stuff for running with twenex/inputl  9 Oct 1984.
77c80476e4SDavid E. O'Brien  *
78c80476e4SDavid E. O'Brien  * ported to Apple Unix (TM) (OREO)  26 -- 29 Jun 1987
79c80476e4SDavid E. O'Brien  */
80c80476e4SDavid E. O'Brien 
8119d2e3deSDmitry Chagin jmp_buf_t reslab IZERO_STRUCT;
8219d2e3deSDmitry Chagin struct wordent paraml IZERO_STRUCT;
83c80476e4SDavid E. O'Brien 
84c80476e4SDavid E. O'Brien static const char tcshstr[] = "tcsh";
85c80476e4SDavid E. O'Brien 
8645e5710bSMark Peek struct sigaction parintr;	/* Parents interrupt catch */
8745e5710bSMark Peek struct sigaction parterm;	/* Parents terminate catch */
88c80476e4SDavid E. O'Brien 
89c80476e4SDavid E. O'Brien #ifdef TESLA
90c80476e4SDavid E. O'Brien int do_logout = 0;
91c80476e4SDavid E. O'Brien #endif /* TESLA */
92c80476e4SDavid E. O'Brien 
93c80476e4SDavid E. O'Brien 
9423338178SMark Peek int    use_fork = 0;		/* use fork() instead of vfork()? */
95c80476e4SDavid E. O'Brien 
96c80476e4SDavid E. O'Brien /*
97c80476e4SDavid E. O'Brien  * Magic pointer values. Used to specify other invalid conditions aside
98c80476e4SDavid E. O'Brien  * from null.
99c80476e4SDavid E. O'Brien  */
100c80476e4SDavid E. O'Brien static Char	INVCHAR;
101c80476e4SDavid E. O'Brien Char    *INVPTR = &INVCHAR;
102c80476e4SDavid E. O'Brien Char    **INVPPTR = &INVPTR;
103c80476e4SDavid E. O'Brien 
10445e5710bSMark Peek static int    fast = 0;
10523338178SMark Peek static int    mflag = 0;
10623338178SMark Peek static int    prompt = 1;
10723338178SMark Peek int     enterhist = 0;
10823338178SMark Peek int    tellwhat = 0;
109c80476e4SDavid E. O'Brien time_t  t_period;
110c80476e4SDavid E. O'Brien Char  *ffile = NULL;
11123338178SMark Peek int	dolzero = 0;
112c80476e4SDavid E. O'Brien int	insource = 0;
1133b6eaa7bSAndrey A. Chernov int	exitset = 0;
114c80476e4SDavid E. O'Brien static time_t  chktim;		/* Time mail last checked */
115c80476e4SDavid E. O'Brien char *progname;
116c80476e4SDavid E. O'Brien int tcsh;
117c80476e4SDavid E. O'Brien 
118c80476e4SDavid E. O'Brien /*
119c80476e4SDavid E. O'Brien  * This preserves the input state of the shell. It is used by
120c80476e4SDavid E. O'Brien  * st_save and st_restore to manupulate shell state.
121c80476e4SDavid E. O'Brien  */
122c80476e4SDavid E. O'Brien struct saved_state {
123c80476e4SDavid E. O'Brien     int		  insource;
12429301572SMark Peek     int		  OLDSTD;
125c80476e4SDavid E. O'Brien     int		  SHIN;
12629301572SMark Peek     int		  SHOUT;
12729301572SMark Peek     int		  SHDIAG;
128c80476e4SDavid E. O'Brien     int		  intty;
129c80476e4SDavid E. O'Brien     struct whyle *whyles;
130c80476e4SDavid E. O'Brien     Char 	 *gointr;
131c80476e4SDavid E. O'Brien     Char 	 *arginp;
132c80476e4SDavid E. O'Brien     Char	 *evalp;
133c80476e4SDavid E. O'Brien     Char	**evalvec;
134c80476e4SDavid E. O'Brien     Char	 *alvecp;
135c80476e4SDavid E. O'Brien     Char	**alvec;
136c80476e4SDavid E. O'Brien     int		  onelflg;
13723338178SMark Peek     int	  enterhist;
138c80476e4SDavid E. O'Brien     Char	**argv;
13945e5710bSMark Peek     Char	**av;
140c80476e4SDavid E. O'Brien     Char	  HIST;
14123338178SMark Peek     int	  cantell;
142c80476e4SDavid E. O'Brien     struct Bin	  B;
143a15e6f9aSMark Peek     int		  justpr;
144c80476e4SDavid E. O'Brien };
145c80476e4SDavid E. O'Brien 
14645e5710bSMark Peek static	int		  srccat	(Char *, Char *);
1476767bd61SMark Peek #ifndef WINNT_NATIVE
14845e5710bSMark Peek static	int		  srcfile	(const char *, int, int, Char **);
1496767bd61SMark Peek #else
15045e5710bSMark Peek int		  srcfile	(const char *, int, int, Char **);
1516767bd61SMark Peek #endif /*WINNT_NATIVE*/
15245e5710bSMark Peek static	void		  srcunit	(int, int, int, Char **);
15345e5710bSMark Peek static	void		  mailchk	(void);
154c80476e4SDavid E. O'Brien #ifndef _PATH_DEFPATH
15545e5710bSMark Peek static	Char	 	**defaultpath	(void);
156c80476e4SDavid E. O'Brien #endif
15745e5710bSMark Peek static	void		  record	(void);
15845e5710bSMark Peek static	void		  st_save	(struct saved_state *, int, int,
15945e5710bSMark Peek 					 Char **, Char **);
16045e5710bSMark Peek static	void		  st_restore	(void *);
161c80476e4SDavid E. O'Brien 
16245e5710bSMark Peek 	int		  main		(int, char **);
163c80476e4SDavid E. O'Brien 
1649ccc37e3SMark Peek #ifndef LOCALEDIR
1659ccc37e3SMark Peek #define LOCALEDIR "/usr/share/locale"
1669ccc37e3SMark Peek #endif
1679ccc37e3SMark Peek 
1689ccc37e3SMark Peek #ifdef NLS_CATALOGS
1699ccc37e3SMark Peek static void
1709ccc37e3SMark Peek add_localedir_to_nlspath(const char *path)
1719ccc37e3SMark Peek {
1729ccc37e3SMark Peek     static const char msgs_LOC[] = "/%L/LC_MESSAGES/%N.cat";
1739ccc37e3SMark Peek     static const char msgs_lang[] = "/%l/LC_MESSAGES/%N.cat";
1749ccc37e3SMark Peek     char *old;
1759ccc37e3SMark Peek     char *new, *new_p;
1769ccc37e3SMark Peek     size_t len;
1779ccc37e3SMark Peek     int add_LOC = 1;
1789ccc37e3SMark Peek     int add_lang = 1;
1799ccc37e3SMark Peek     char trypath[MAXPATHLEN];
1809ccc37e3SMark Peek     struct stat st;
1819ccc37e3SMark Peek 
1829ccc37e3SMark Peek     if (path == NULL)
1839ccc37e3SMark Peek         return;
1849ccc37e3SMark Peek 
1859ccc37e3SMark Peek     (void) xsnprintf(trypath, sizeof(trypath), "%s/en/LC_MESSAGES/tcsh.cat",
1869ccc37e3SMark Peek 	path);
1879ccc37e3SMark Peek     if (stat(trypath, &st) == -1)
1889ccc37e3SMark Peek 	return;
1899ccc37e3SMark Peek 
1909ccc37e3SMark Peek     if ((old = getenv("NLSPATH")) != NULL)
1919ccc37e3SMark Peek         len = strlen(old) + 1;	/* don't forget the colon. */
1929ccc37e3SMark Peek     else
1939ccc37e3SMark Peek 	len = 0;
1949ccc37e3SMark Peek 
1959ccc37e3SMark Peek     len += 2 * strlen(path) +
1969ccc37e3SMark Peek 	   sizeof(msgs_LOC) + sizeof(msgs_lang); /* includes the extra colon */
1979ccc37e3SMark Peek 
1989ccc37e3SMark Peek     new = new_p = xcalloc(len, 1);
1999ccc37e3SMark Peek 
2009ccc37e3SMark Peek     if (old != NULL) {
2019ccc37e3SMark Peek 	size_t pathlen = strlen(path);
2029ccc37e3SMark Peek 	char *old_p;
2039ccc37e3SMark Peek 
2049ccc37e3SMark Peek 	(void) xsnprintf(new_p, len, "%s", old);
2059ccc37e3SMark Peek 	new_p += strlen(new_p);
2069ccc37e3SMark Peek 	len -= new_p - new;
2079ccc37e3SMark Peek 
2089ccc37e3SMark Peek 	/* Check if the paths we try to add are already present in NLSPATH.
2099ccc37e3SMark Peek 	   If so, note it by setting the appropriate flag to 0. */
2109ccc37e3SMark Peek 	for (old_p = old; old_p; old_p = strchr(old_p, ':'),
2119ccc37e3SMark Peek 				 old_p = old_p ? old_p + 1 : NULL) {
2129ccc37e3SMark Peek 	    if (strncmp(old_p, path, pathlen) != 0)
2139ccc37e3SMark Peek 	    	continue;
2149ccc37e3SMark Peek 	    if (strncmp(old_p + pathlen, msgs_LOC, sizeof(msgs_LOC) - 1) == 0)
2159ccc37e3SMark Peek 		add_LOC = 0;
2169ccc37e3SMark Peek 	    else if (strncmp(old_p + pathlen, msgs_lang,
2179ccc37e3SMark Peek 			      sizeof(msgs_lang) - 1) == 0)
2189ccc37e3SMark Peek 		add_lang = 0;
2199ccc37e3SMark Peek 	}
2209ccc37e3SMark Peek     }
2219ccc37e3SMark Peek 
2229ccc37e3SMark Peek     /* Add the message catalog paths not already present to NLSPATH. */
2239ccc37e3SMark Peek     if (add_LOC || add_lang)
2249ccc37e3SMark Peek 	(void) xsnprintf(new_p, len, "%s%s%s%s%s%s",
2259ccc37e3SMark Peek 			 old ? ":" : "",
2269ccc37e3SMark Peek 			 add_LOC ? path : "", add_LOC ? msgs_LOC : "",
2279ccc37e3SMark Peek 			 add_LOC && add_lang ? ":" : "",
2289ccc37e3SMark Peek 			 add_lang ? path : "", add_lang ? msgs_lang : "");
2299ccc37e3SMark Peek 
2309ccc37e3SMark Peek     tsetenv(STRNLSPATH, str2short(new));
2319ccc37e3SMark Peek     free(new);
2329ccc37e3SMark Peek }
2339ccc37e3SMark Peek #endif
2349ccc37e3SMark Peek 
235c80476e4SDavid E. O'Brien int
23645e5710bSMark Peek main(int argc, char **argv)
237c80476e4SDavid E. O'Brien {
23845e5710bSMark Peek     int batch = 0;
23945e5710bSMark Peek     volatile int nexececho = 0;
24045e5710bSMark Peek     int nofile = 0;
24145e5710bSMark Peek     volatile int nverbose = 0;
24245e5710bSMark Peek     volatile int rdirs = 0;
24345e5710bSMark Peek     int quitit = 0;
24423338178SMark Peek     Char *cp;
245c80476e4SDavid E. O'Brien #ifdef AUTOLOGOUT
24623338178SMark Peek     Char *cp2;
247c80476e4SDavid E. O'Brien #endif
24823338178SMark Peek     char *tcp, *ttyn;
24945e5710bSMark Peek     int f, reenter;
25023338178SMark Peek     char **tempv;
251*55b903e2SDmitry Chagin     const char *targinp = NULL;
252b2d5d167SMark Peek     int osetintr;
25345e5710bSMark Peek     struct sigaction oparintr;
254c80476e4SDavid E. O'Brien 
2553b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
256c80476e4SDavid E. O'Brien     nt_init();
2573b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
25819d2e3deSDmitry Chagin 
25919d2e3deSDmitry Chagin     (void)memset(&reslab, 0, sizeof(reslab));
260c80476e4SDavid E. O'Brien #if defined(NLS_CATALOGS) && defined(LC_MESSAGES)
261c80476e4SDavid E. O'Brien     (void) setlocale(LC_MESSAGES, "");
262c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS && LC_MESSAGES */
263c80476e4SDavid E. O'Brien 
264c80476e4SDavid E. O'Brien #ifdef NLS
265c80476e4SDavid E. O'Brien # ifdef LC_CTYPE
266c80476e4SDavid E. O'Brien     (void) setlocale(LC_CTYPE, ""); /* for iscntrl */
267c80476e4SDavid E. O'Brien # endif /* LC_CTYPE */
268c80476e4SDavid E. O'Brien #endif /* NLS */
269c80476e4SDavid E. O'Brien 
2709ccc37e3SMark Peek     STR_environ = blk2short(environ);
2719ccc37e3SMark Peek     environ = short2blk(STR_environ);	/* So that we can free it */
2729ccc37e3SMark Peek 
2739ccc37e3SMark Peek #ifdef NLS_CATALOGS
2749ccc37e3SMark Peek     add_localedir_to_nlspath(LOCALEDIR);
2759ccc37e3SMark Peek #endif
2769ccc37e3SMark Peek 
277c80476e4SDavid E. O'Brien     nlsinit();
27819d2e3deSDmitry Chagin     initlex(&paraml);
279c80476e4SDavid E. O'Brien 
280c80476e4SDavid E. O'Brien #ifdef MALLOC_TRACE
28145e5710bSMark Peek     mal_setstatsfile(fdopen(dmove(xopen("/tmp/tcsh.trace",
28223338178SMark Peek 	O_WRONLY|O_CREAT|O_LARGEFILE, 0666), 25), "w"));
283c80476e4SDavid E. O'Brien     mal_trace(1);
284c80476e4SDavid E. O'Brien #endif /* MALLOC_TRACE */
285c80476e4SDavid E. O'Brien 
286c80476e4SDavid E. O'Brien #if !(defined(BSDTIMES) || defined(_SEQUENT_)) && defined(POSIX)
287c80476e4SDavid E. O'Brien # ifdef _SC_CLK_TCK
288c80476e4SDavid E. O'Brien     clk_tck = (clock_t) sysconf(_SC_CLK_TCK);
289c80476e4SDavid E. O'Brien # else /* ! _SC_CLK_TCK */
290c80476e4SDavid E. O'Brien #  ifdef CLK_TCK
291c80476e4SDavid E. O'Brien     clk_tck = CLK_TCK;
292c80476e4SDavid E. O'Brien #  else /* !CLK_TCK */
293c80476e4SDavid E. O'Brien     clk_tck = HZ;
294c80476e4SDavid E. O'Brien #  endif /* CLK_TCK */
295c80476e4SDavid E. O'Brien # endif /* _SC_CLK_TCK */
296c80476e4SDavid E. O'Brien #endif /* !BSDTIMES && POSIX */
297c80476e4SDavid E. O'Brien 
298c80476e4SDavid E. O'Brien     settimes();			/* Immed. estab. timing base */
299c80476e4SDavid E. O'Brien #ifdef TESLA
300c80476e4SDavid E. O'Brien     do_logout = 0;
301c80476e4SDavid E. O'Brien #endif /* TESLA */
302c80476e4SDavid E. O'Brien 
303c80476e4SDavid E. O'Brien     /*
304c80476e4SDavid E. O'Brien      * Make sure we have 0, 1, 2 open
305c80476e4SDavid E. O'Brien      * Otherwise `` jobs will not work... (From knaff@poly.polytechnique.fr)
306c80476e4SDavid E. O'Brien      */
307c80476e4SDavid E. O'Brien     {
308c80476e4SDavid E. O'Brien 	do
30945e5710bSMark Peek 	    if ((f = xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE)) == -1 &&
31045e5710bSMark Peek 		(f = xopen("/", O_RDONLY|O_LARGEFILE)) == -1)
311c80476e4SDavid E. O'Brien 		exit(1);
312c80476e4SDavid E. O'Brien 	while (f < 3);
31345e5710bSMark Peek 	xclose(f);
314c80476e4SDavid E. O'Brien     }
315c80476e4SDavid E. O'Brien 
316c80476e4SDavid E. O'Brien     osinit();			/* Os dependent initialization */
317c80476e4SDavid E. O'Brien 
318c80476e4SDavid E. O'Brien 
319c80476e4SDavid E. O'Brien     {
320c80476e4SDavid E. O'Brien 	char *t;
321c80476e4SDavid E. O'Brien 
322c80476e4SDavid E. O'Brien 	t = strrchr(argv[0], '/');
3233b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
324c80476e4SDavid E. O'Brien 	{
325c80476e4SDavid E. O'Brien 	    char *s = strrchr(argv[0], '\\');
326c80476e4SDavid E. O'Brien 	    if (s)
327c80476e4SDavid E. O'Brien 		t = s;
328c80476e4SDavid E. O'Brien 	}
3293b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
330c80476e4SDavid E. O'Brien 	t = t ? t + 1 : argv[0];
331c80476e4SDavid E. O'Brien 	if (*t == '-') t++;
332c80476e4SDavid E. O'Brien 	progname = strsave((t && *t) ? t : tcshstr);    /* never want a null */
3339ccc37e3SMark Peek 	tcsh = strncmp(progname, tcshstr, sizeof(tcshstr) - 1) == 0;
334c80476e4SDavid E. O'Brien     }
335c80476e4SDavid E. O'Brien 
336c80476e4SDavid E. O'Brien     /*
337c80476e4SDavid E. O'Brien      * Initialize non constant strings
338c80476e4SDavid E. O'Brien      */
339c80476e4SDavid E. O'Brien #ifdef _PATH_BSHELL
340c80476e4SDavid E. O'Brien     STR_BSHELL = SAVE(_PATH_BSHELL);
341c80476e4SDavid E. O'Brien #endif
342c80476e4SDavid E. O'Brien #ifdef _PATH_TCSHELL
343c80476e4SDavid E. O'Brien     STR_SHELLPATH = SAVE(_PATH_TCSHELL);
344c80476e4SDavid E. O'Brien #else
345c80476e4SDavid E. O'Brien # ifdef _PATH_CSHELL
346c80476e4SDavid E. O'Brien     STR_SHELLPATH = SAVE(_PATH_CSHELL);
347c80476e4SDavid E. O'Brien # endif
348c80476e4SDavid E. O'Brien #endif
349c80476e4SDavid E. O'Brien     STR_WORD_CHARS = SAVE(WORD_CHARS);
35019d2e3deSDmitry Chagin     STR_WORD_CHARS_VI = SAVE(WORD_CHARS_VI);
351c80476e4SDavid E. O'Brien 
352c80476e4SDavid E. O'Brien     HIST = '!';
353c80476e4SDavid E. O'Brien     HISTSUB = '^';
3549ccc37e3SMark Peek     PRCH = tcsh ? '>' : '%';	/* to replace %# in $prompt for normal users */
3559ccc37e3SMark Peek     PRCHROOT = '#';		/* likewise for root */
356c80476e4SDavid E. O'Brien     word_chars = STR_WORD_CHARS;
357c80476e4SDavid E. O'Brien     bslash_quote = 0;		/* PWP: do tcsh-style backslash quoting? */
3589ccc37e3SMark Peek     anyerror = 1;		/* for compatibility */
3599ccc37e3SMark Peek     setcopy(STRanyerror, STRNULL, VAR_READWRITE);
360c80476e4SDavid E. O'Brien 
361c80476e4SDavid E. O'Brien     /* Default history size to 100 */
36245e5710bSMark Peek     setcopy(STRhistory, str2short("100"), VAR_READWRITE);
36319d2e3deSDmitry Chagin     sethistory(100);
364c80476e4SDavid E. O'Brien 
365c80476e4SDavid E. O'Brien     tempv = argv;
366c80476e4SDavid E. O'Brien     ffile = SAVE(tempv[0]);
367c80476e4SDavid E. O'Brien     dolzero = 0;
368c80476e4SDavid E. O'Brien     if (eq(ffile, STRaout))	/* A.out's are quittable */
369c80476e4SDavid E. O'Brien 	quitit = 1;
370c80476e4SDavid E. O'Brien     uid = getuid();
371c80476e4SDavid E. O'Brien     gid = getgid();
372c80476e4SDavid E. O'Brien     euid = geteuid();
373c80476e4SDavid E. O'Brien     egid = getegid();
374c80476e4SDavid E. O'Brien     /*
375c80476e4SDavid E. O'Brien      * We are a login shell if: 1. we were invoked as -<something> with
376c80476e4SDavid E. O'Brien      * optional arguments 2. or we were invoked only with the -l flag
377c80476e4SDavid E. O'Brien      */
378c80476e4SDavid E. O'Brien     loginsh = (**tempv == '-') || (argc == 2 &&
379c80476e4SDavid E. O'Brien 				   tempv[1][0] == '-' && tempv[1][1] == 'l' &&
380c80476e4SDavid E. O'Brien 						tempv[1][2] == '\0');
381c80476e4SDavid E. O'Brien #ifdef _VMS_POSIX
382c80476e4SDavid E. O'Brien     /* No better way to find if we are a login shell */
383c80476e4SDavid E. O'Brien     if (!loginsh) {
384c80476e4SDavid E. O'Brien 	loginsh = (argc == 1 && getppid() == 1);
385c80476e4SDavid E. O'Brien 	**tempv = '-';	/* Avoid giving VMS an acidic stomach */
386c80476e4SDavid E. O'Brien     }
387c80476e4SDavid E. O'Brien #endif /* _VMS_POSIX */
388c80476e4SDavid E. O'Brien 
389c80476e4SDavid E. O'Brien     if (loginsh && **tempv != '-') {
39045e5710bSMark Peek 	char *argv0;
39145e5710bSMark Peek 
392c80476e4SDavid E. O'Brien 	/*
393c80476e4SDavid E. O'Brien 	 * Mangle the argv space
394c80476e4SDavid E. O'Brien 	 */
395c80476e4SDavid E. O'Brien 	tempv[1][0] = '\0';
396c80476e4SDavid E. O'Brien 	tempv[1][1] = '\0';
397c80476e4SDavid E. O'Brien 	tempv[1] = NULL;
39845e5710bSMark Peek 	argv0 = strspl("-", *tempv);
39945e5710bSMark Peek 	*tempv = argv0;
400c80476e4SDavid E. O'Brien 	argc--;
401c80476e4SDavid E. O'Brien     }
402c80476e4SDavid E. O'Brien     if (loginsh) {
403c80476e4SDavid E. O'Brien 	(void) time(&chktim);
40445e5710bSMark Peek 	setNS(STRloginsh);
405c80476e4SDavid E. O'Brien     }
406c80476e4SDavid E. O'Brien 
407c80476e4SDavid E. O'Brien     NoNLSRebind = getenv("NOREBIND") != NULL;
408c80476e4SDavid E. O'Brien #ifdef NLS
409c80476e4SDavid E. O'Brien # ifdef SETLOCALEBUG
410c80476e4SDavid E. O'Brien     dont_free = 1;
411c80476e4SDavid E. O'Brien # endif /* SETLOCALEBUG */
412c80476e4SDavid E. O'Brien     (void) setlocale(LC_ALL, "");
413c80476e4SDavid E. O'Brien # ifdef LC_COLLATE
414c80476e4SDavid E. O'Brien     (void) setlocale(LC_COLLATE, "");
415c80476e4SDavid E. O'Brien # endif
416c80476e4SDavid E. O'Brien # ifdef SETLOCALEBUG
417c80476e4SDavid E. O'Brien     dont_free = 0;
418c80476e4SDavid E. O'Brien # endif /* SETLOCALEBUG */
419c80476e4SDavid E. O'Brien # ifdef STRCOLLBUG
420c80476e4SDavid E. O'Brien     fix_strcoll_bug();
421c80476e4SDavid E. O'Brien # endif /* STRCOLLBUG */
422c80476e4SDavid E. O'Brien 
4239ccc37e3SMark Peek     /*
4249ccc37e3SMark Peek      * On solaris ISO8859-1 contains no printable characters in the upper half
4259ccc37e3SMark Peek      * so we need to test only for MB_CUR_MAX == 1, otherwise for multi-byte
4269ccc37e3SMark Peek      * locales we are always AsciiOnly == 0.
4279ccc37e3SMark Peek      */
4289ccc37e3SMark Peek     if (MB_CUR_MAX == 1) {
429c80476e4SDavid E. O'Brien 	int     k;
430c80476e4SDavid E. O'Brien 
4319ccc37e3SMark Peek 	for (k = 0200; k <= 0377 && !isprint(CTL_ESC(k)); k++)
432c80476e4SDavid E. O'Brien 	    continue;
4339ccc37e3SMark Peek 	AsciiOnly = k > 0377;
4349ccc37e3SMark Peek     } else
4359ccc37e3SMark Peek 	AsciiOnly = 0;
436c80476e4SDavid E. O'Brien #else
437c80476e4SDavid E. O'Brien     AsciiOnly = getenv("LANG") == NULL && getenv("LC_CTYPE") == NULL;
438c80476e4SDavid E. O'Brien #endif				/* NLS */
439c80476e4SDavid E. O'Brien     if (MapsAreInited && !NLSMapsAreInited)
440c80476e4SDavid E. O'Brien 	ed_InitNLSMaps();
441c80476e4SDavid E. O'Brien     ResetArrowKeys();
442c80476e4SDavid E. O'Brien 
443c80476e4SDavid E. O'Brien     /*
444c80476e4SDavid E. O'Brien      * Initialize for periodic command intervals. Also, initialize the dummy
445c80476e4SDavid E. O'Brien      * tty list for login-watch.
446c80476e4SDavid E. O'Brien      */
447c80476e4SDavid E. O'Brien     (void) time(&t_period);
448c80476e4SDavid E. O'Brien #ifndef HAVENOUTMP
449c80476e4SDavid E. O'Brien     initwatch();
450c80476e4SDavid E. O'Brien #endif /* !HAVENOUTMP */
451c80476e4SDavid E. O'Brien 
452c80476e4SDavid E. O'Brien #if defined(alliant)
453c80476e4SDavid E. O'Brien     /*
454c80476e4SDavid E. O'Brien      * From:  Jim Pace <jdp@research.att.com>
455c80476e4SDavid E. O'Brien      * tcsh does not work properly on the alliants through an rlogin session.
456c80476e4SDavid E. O'Brien      * The shell generally hangs.  Also, reference to the controlling terminal
457c80476e4SDavid E. O'Brien      * does not work ( ie: echo foo > /dev/tty ).
458c80476e4SDavid E. O'Brien      *
459c80476e4SDavid E. O'Brien      * A security feature was added to rlogind affecting FX/80's Concentrix
460c80476e4SDavid E. O'Brien      * from revision 5.5.xx upwards (through 5.7 where this fix was implemented)
461c80476e4SDavid E. O'Brien      * This security change also affects the FX/2800 series.
462c80476e4SDavid E. O'Brien      * The security change to rlogind requires the process group of an rlogin
463c80476e4SDavid E. O'Brien      * session become disassociated with the tty in rlogind.
464c80476e4SDavid E. O'Brien      *
465c80476e4SDavid E. O'Brien      * The changes needed are:
466c80476e4SDavid E. O'Brien      * 1. set the process group
467c80476e4SDavid E. O'Brien      * 2. reenable the control terminal
468c80476e4SDavid E. O'Brien      */
469c80476e4SDavid E. O'Brien      if (loginsh && isatty(SHIN)) {
47045e5710bSMark Peek 	 ttyn = ttyname(SHIN);
47145e5710bSMark Peek 	 xclose(SHIN);
47245e5710bSMark Peek 	 SHIN = xopen(ttyn, O_RDWR|O_LARGEFILE);
473c80476e4SDavid E. O'Brien 	 shpgrp = getpid();
474c80476e4SDavid E. O'Brien 	 (void) ioctl (SHIN, TIOCSPGRP, (ioctl_t) &shpgrp);
475c80476e4SDavid E. O'Brien 	 (void) setpgid(0, shpgrp);
476c80476e4SDavid E. O'Brien      }
477c80476e4SDavid E. O'Brien #endif /* alliant */
478c80476e4SDavid E. O'Brien 
479c80476e4SDavid E. O'Brien     /*
480c80476e4SDavid E. O'Brien      * Move the descriptors to safe places. The variable didfds is 0 while we
481c80476e4SDavid E. O'Brien      * have only FSH* to work with. When didfds is true, we have 0,1,2 and
482c80476e4SDavid E. O'Brien      * prefer to use these.
483c80476e4SDavid E. O'Brien      */
484c80476e4SDavid E. O'Brien     initdesc();
485c80476e4SDavid E. O'Brien 
48619d2e3deSDmitry Chagin     cdtohome = 1;
48719d2e3deSDmitry Chagin     setv(STRcdtohome, SAVE(""), VAR_READWRITE);
48819d2e3deSDmitry Chagin 
489c80476e4SDavid E. O'Brien     /*
490c80476e4SDavid E. O'Brien      * Get and set the tty now
491c80476e4SDavid E. O'Brien      */
492c80476e4SDavid E. O'Brien     if ((ttyn = ttyname(SHIN)) != NULL) {
493c80476e4SDavid E. O'Brien 	/*
494c80476e4SDavid E. O'Brien 	 * Could use rindex to get rid of other possible path components, but
495c80476e4SDavid E. O'Brien 	 * hpux preserves the subdirectory /pty/ when storing the tty name in
496c80476e4SDavid E. O'Brien 	 * utmp, so we keep it too.
497c80476e4SDavid E. O'Brien 	 */
498c80476e4SDavid E. O'Brien 	if (strncmp(ttyn, "/dev/", 5) == 0)
49945e5710bSMark Peek 	    setv(STRtty, cp = SAVE(ttyn + 5), VAR_READWRITE);
500c80476e4SDavid E. O'Brien 	else
50145e5710bSMark Peek 	    setv(STRtty, cp = SAVE(ttyn), VAR_READWRITE);
502c80476e4SDavid E. O'Brien     }
503c80476e4SDavid E. O'Brien     else
50445e5710bSMark Peek 	setv(STRtty, cp = SAVE(""), VAR_READWRITE);
50519d2e3deSDmitry Chagin 
506c80476e4SDavid E. O'Brien     /*
507c80476e4SDavid E. O'Brien      * Initialize the shell variables. ARGV and PROMPT are initialized later.
508c80476e4SDavid E. O'Brien      * STATUS is also munged in several places. CHILD is munged when
509c80476e4SDavid E. O'Brien      * forking/waiting
510c80476e4SDavid E. O'Brien      */
511c80476e4SDavid E. O'Brien 
512c80476e4SDavid E. O'Brien     /*
513c80476e4SDavid E. O'Brien      * 7-10-87 Paul Placeway autologout should be set ONLY on login shells and
514c80476e4SDavid E. O'Brien      * on shells running as root.  Out of these, autologout should NOT be set
515c80476e4SDavid E. O'Brien      * for any psudo-terminals (this catches most window systems) and not for
516c80476e4SDavid E. O'Brien      * any terminal running X windows.
517c80476e4SDavid E. O'Brien      *
518c80476e4SDavid E. O'Brien      * At Ohio State, we have had problems with a user having his X session
519c80476e4SDavid E. O'Brien      * drop out from under him (on a Sun) because the shell in his master
520c80476e4SDavid E. O'Brien      * xterm timed out and exited.
521c80476e4SDavid E. O'Brien      *
522c80476e4SDavid E. O'Brien      * Really, this should be done with a program external to the shell, that
523c80476e4SDavid E. O'Brien      * watches for no activity (and NO running programs, such as dump) on a
524c80476e4SDavid E. O'Brien      * terminal for a long peroid of time, and then SIGHUPS the shell on that
525c80476e4SDavid E. O'Brien      * terminal.
526c80476e4SDavid E. O'Brien      *
527c80476e4SDavid E. O'Brien      * bugfix by Rich Salz <rsalz@PINEAPPLE.BBN.COM>: For root rsh things
528c80476e4SDavid E. O'Brien      * allways first check to see if loginsh or really root, then do things
529c80476e4SDavid E. O'Brien      * with ttyname()
530c80476e4SDavid E. O'Brien      *
531c80476e4SDavid E. O'Brien      * Also by Jean-Francois Lamy <lamy%ai.toronto.edu@RELAY.CS.NET>: check the
532c80476e4SDavid E. O'Brien      * value of cp before using it! ("root can rsh too")
533c80476e4SDavid E. O'Brien      *
534c80476e4SDavid E. O'Brien      * PWP: keep the nested ifs; the order of the tests matters and a good
535c80476e4SDavid E. O'Brien      * (smart) C compiler might re-arange things wrong.
536c80476e4SDavid E. O'Brien      */
537c80476e4SDavid E. O'Brien #ifdef AUTOLOGOUT
538c80476e4SDavid E. O'Brien # ifdef convex
53945e5710bSMark Peek     if (uid == 0)
540c80476e4SDavid E. O'Brien 	/*  root always has a 15 minute autologout  */
54145e5710bSMark Peek 	setcopy(STRautologout, STRrootdefautologout, VAR_READWRITE);
542c80476e4SDavid E. O'Brien     else
543c80476e4SDavid E. O'Brien 	if (loginsh)
544c80476e4SDavid E. O'Brien 	    /*  users get autologout set to 0  */
54545e5710bSMark Peek 	    setcopy(STRautologout, STR0, VAR_READWRITE);
546c80476e4SDavid E. O'Brien # else /* convex */
547c80476e4SDavid E. O'Brien     if (loginsh || (uid == 0)) {
548c80476e4SDavid E. O'Brien 	if (*cp) {
549c80476e4SDavid E. O'Brien 	    /* only for login shells or root and we must have a tty */
5509ccc37e3SMark Peek 	    if (((cp2 = Strrchr(cp, (Char) '/')) != NULL) &&
5519ccc37e3SMark Peek 		(Strncmp(cp, STRptssl, 3) != 0)) {
5525c3ede85SMark Peek 		cp2 = cp2 + 1;
553c80476e4SDavid E. O'Brien 	    }
554c80476e4SDavid E. O'Brien 	    else
555c80476e4SDavid E. O'Brien 		cp2 = cp;
556c80476e4SDavid E. O'Brien 	    if (!(((Strncmp(cp2, STRtty, 3) == 0) && Isalpha(cp2[3])) ||
5573b8bd8e7SRuslan Ermilov 	          Strstr(cp, STRptssl) != NULL)) {
558c80476e4SDavid E. O'Brien 		if (getenv("DISPLAY") == NULL) {
559c80476e4SDavid E. O'Brien 		    /* NOT on X window shells */
56045e5710bSMark Peek 		    setcopy(STRautologout, STRdefautologout, VAR_READWRITE);
561c80476e4SDavid E. O'Brien 		}
562c80476e4SDavid E. O'Brien 	    }
563c80476e4SDavid E. O'Brien 	}
564c80476e4SDavid E. O'Brien     }
565c80476e4SDavid E. O'Brien # endif /* convex */
566c80476e4SDavid E. O'Brien #endif /* AUTOLOGOUT */
567c80476e4SDavid E. O'Brien 
56845e5710bSMark Peek     sigset_interrupting(SIGALRM, queue_alrmcatch);
569c80476e4SDavid E. O'Brien 
57045e5710bSMark Peek     setcopy(STRstatus, STR0, VAR_READWRITE);
571c80476e4SDavid E. O'Brien 
572c80476e4SDavid E. O'Brien     /*
57329301572SMark Peek      * get and set machine specific environment variables
574c80476e4SDavid E. O'Brien      */
575c80476e4SDavid E. O'Brien     getmachine();
576c80476e4SDavid E. O'Brien 
577c80476e4SDavid E. O'Brien 
578c80476e4SDavid E. O'Brien     /*
579c80476e4SDavid E. O'Brien      * Publish the selected echo style
580c80476e4SDavid E. O'Brien      */
58129301572SMark Peek #if ECHO_STYLE != BSD_ECHO
58229301572SMark Peek     if (tcsh) {
583c80476e4SDavid E. O'Brien # if ECHO_STYLE == NONE_ECHO
58445e5710bSMark Peek 	setcopy(STRecho_style, STRnone, VAR_READWRITE);
585c80476e4SDavid E. O'Brien # endif /* ECHO_STYLE == NONE_ECHO */
586c80476e4SDavid E. O'Brien # if ECHO_STYLE == SYSV_ECHO
58745e5710bSMark Peek 	setcopy(STRecho_style, STRsysv, VAR_READWRITE);
588c80476e4SDavid E. O'Brien # endif /* ECHO_STYLE == SYSV_ECHO */
589c80476e4SDavid E. O'Brien # if ECHO_STYLE == BOTH_ECHO
59045e5710bSMark Peek 	setcopy(STRecho_style, STRboth, VAR_READWRITE);
591c80476e4SDavid E. O'Brien # endif /* ECHO_STYLE == BOTH_ECHO */
59229301572SMark Peek     } else
59329301572SMark Peek #endif /* ECHO_STYLE != BSD_ECHO */
59445e5710bSMark Peek 	setcopy(STRecho_style, STRbsd, VAR_READWRITE);
595c80476e4SDavid E. O'Brien 
596c80476e4SDavid E. O'Brien     /*
597c80476e4SDavid E. O'Brien      * increment the shell level.
598c80476e4SDavid E. O'Brien      */
599c80476e4SDavid E. O'Brien     shlvl(1);
600c80476e4SDavid E. O'Brien 
60119d2e3deSDmitry Chagin #ifdef __ANDROID__
60219d2e3deSDmitry Chagin     /* On Android, $HOME either isn't set or set to /data, a R/O location.
60319d2e3deSDmitry Chagin        Check for the environment variable EXTERNAL_STORAGE, which contains
60419d2e3deSDmitry Chagin        the mount point of the external storage (SD card, mostly).  If
60519d2e3deSDmitry Chagin        EXTERNAL_STORAGE isn't set fall back to "/sdcard".  Eventually
60619d2e3deSDmitry Chagin        override $HOME so the environment is on the same page. */
60719d2e3deSDmitry Chagin     if (((tcp = getenv("HOME")) != NULL && strcmp (tcp, "/data") != 0)
60819d2e3deSDmitry Chagin 	|| (tcp = getenv("EXTERNAL_STORAGE")) != NULL) {
60919d2e3deSDmitry Chagin 	cp = quote(SAVE(tcp));
61019d2e3deSDmitry Chagin     } else
61119d2e3deSDmitry Chagin 	cp = quote(SAVE("/sdcard"));
61219d2e3deSDmitry Chagin     tsetenv(STRKHOME, cp);
61319d2e3deSDmitry Chagin #else
61445e5710bSMark Peek     if ((tcp = getenv("HOME")) != NULL)
615c80476e4SDavid E. O'Brien 	cp = quote(SAVE(tcp));
61645e5710bSMark Peek     else
617c80476e4SDavid E. O'Brien 	cp = NULL;
6189ccc37e3SMark Peek #endif
61928ae2e3aSKris Kennaway 
620c80476e4SDavid E. O'Brien     if (cp == NULL)
621c80476e4SDavid E. O'Brien 	fast = 1;		/* No home -> can't read scripts */
622c80476e4SDavid E. O'Brien     else
62345e5710bSMark Peek 	setv(STRhome, cp, VAR_READWRITE);
62428ae2e3aSKris Kennaway 
625c80476e4SDavid E. O'Brien     dinit(cp);			/* dinit thinks that HOME == cwd in a login
626c80476e4SDavid E. O'Brien 				 * shell */
627c80476e4SDavid E. O'Brien     /*
628c80476e4SDavid E. O'Brien      * Grab other useful things from the environment. Should we grab
629c80476e4SDavid E. O'Brien      * everything??
630c80476e4SDavid E. O'Brien      */
631c80476e4SDavid E. O'Brien     {
632c80476e4SDavid E. O'Brien 	char *cln, *cus, *cgr;
633c80476e4SDavid E. O'Brien 	struct passwd *pw;
634c80476e4SDavid E. O'Brien 	struct group *gr;
635c80476e4SDavid E. O'Brien 
636c80476e4SDavid E. O'Brien 
637c80476e4SDavid E. O'Brien #ifdef apollo
638c80476e4SDavid E. O'Brien 	int     oid = getoid();
639c80476e4SDavid E. O'Brien 
64045e5710bSMark Peek 	setv(STRoid, Itoa(oid, 0, 0), VAR_READWRITE);
641c80476e4SDavid E. O'Brien #endif /* apollo */
642c80476e4SDavid E. O'Brien 
6439ccc37e3SMark Peek 	setv(STReuid, Itoa(euid, 0, 0), VAR_READWRITE);
6449ccc37e3SMark Peek 	if ((pw = xgetpwuid(euid)) == NULL)
6459ccc37e3SMark Peek 	    setcopy(STReuser, STRunknown, VAR_READWRITE);
6469ccc37e3SMark Peek 	else
6479ccc37e3SMark Peek 	    setcopy(STReuser, str2short(pw->pw_name), VAR_READWRITE);
6489ccc37e3SMark Peek 
64945e5710bSMark Peek 	setv(STRuid, Itoa(uid, 0, 0), VAR_READWRITE);
650c80476e4SDavid E. O'Brien 
65145e5710bSMark Peek 	setv(STRgid, Itoa(gid, 0, 0), VAR_READWRITE);
652c80476e4SDavid E. O'Brien 
653c80476e4SDavid E. O'Brien 	cln = getenv("LOGNAME");
654c80476e4SDavid E. O'Brien 	cus = getenv("USER");
655c80476e4SDavid E. O'Brien 	if (cus != NULL)
65645e5710bSMark Peek 	    setv(STRuser, quote(SAVE(cus)), VAR_READWRITE);
657c80476e4SDavid E. O'Brien 	else if (cln != NULL)
65845e5710bSMark Peek 	    setv(STRuser, quote(SAVE(cln)), VAR_READWRITE);
65945e5710bSMark Peek 	else if ((pw = xgetpwuid(uid)) == NULL)
6609ccc37e3SMark Peek 	    setcopy(STRuser, STRunknown, VAR_READWRITE);
661c80476e4SDavid E. O'Brien 	else
66245e5710bSMark Peek 	    setcopy(STRuser, str2short(pw->pw_name), VAR_READWRITE);
663c80476e4SDavid E. O'Brien 	if (cln == NULL)
664c80476e4SDavid E. O'Brien 	    tsetenv(STRLOGNAME, varval(STRuser));
665c80476e4SDavid E. O'Brien 	if (cus == NULL)
666c80476e4SDavid E. O'Brien 	    tsetenv(STRKUSER, varval(STRuser));
667c80476e4SDavid E. O'Brien 
668c80476e4SDavid E. O'Brien 	cgr = getenv("GROUP");
669c80476e4SDavid E. O'Brien 	if (cgr != NULL)
67045e5710bSMark Peek 	    setv(STRgroup, quote(SAVE(cgr)), VAR_READWRITE);
67145e5710bSMark Peek 	else if ((gr = xgetgrgid(gid)) == NULL)
6729ccc37e3SMark Peek 	    setcopy(STRgroup, STRunknown, VAR_READWRITE);
673c80476e4SDavid E. O'Brien 	else
67445e5710bSMark Peek 	    setcopy(STRgroup, str2short(gr->gr_name), VAR_READWRITE);
675c80476e4SDavid E. O'Brien 	if (cgr == NULL)
676c80476e4SDavid E. O'Brien 	    tsetenv(STRKGROUP, varval(STRgroup));
677c80476e4SDavid E. O'Brien     }
678c80476e4SDavid E. O'Brien 
679c80476e4SDavid E. O'Brien     /*
680c80476e4SDavid E. O'Brien      * HOST may be wrong, since rexd transports the entire environment on sun
681c80476e4SDavid E. O'Brien      * 3.x Just set it again
682c80476e4SDavid E. O'Brien      */
683c80476e4SDavid E. O'Brien     {
684c80476e4SDavid E. O'Brien 	char    cbuff[MAXHOSTNAMELEN];
685c80476e4SDavid E. O'Brien 
686c80476e4SDavid E. O'Brien 	if (gethostname(cbuff, sizeof(cbuff)) >= 0) {
687c80476e4SDavid E. O'Brien 	    cbuff[sizeof(cbuff) - 1] = '\0';	/* just in case */
688c80476e4SDavid E. O'Brien 	    tsetenv(STRHOST, str2short(cbuff));
689c80476e4SDavid E. O'Brien 	}
690c80476e4SDavid E. O'Brien 	else
6919ccc37e3SMark Peek 	    tsetenv(STRHOST, STRunknown);
692c80476e4SDavid E. O'Brien     }
693c80476e4SDavid E. O'Brien 
694c80476e4SDavid E. O'Brien 
695c80476e4SDavid E. O'Brien #ifdef REMOTEHOST
696c80476e4SDavid E. O'Brien     /*
697c80476e4SDavid E. O'Brien      * Try to determine the remote host we were logged in from.
698c80476e4SDavid E. O'Brien      */
699c80476e4SDavid E. O'Brien     remotehost();
700c80476e4SDavid E. O'Brien #endif /* REMOTEHOST */
701c80476e4SDavid E. O'Brien 
702c80476e4SDavid E. O'Brien #ifdef apollo
703c80476e4SDavid E. O'Brien     if ((tcp = getenv("SYSTYPE")) == NULL)
704c80476e4SDavid E. O'Brien 	tcp = "bsd4.3";
705c80476e4SDavid E. O'Brien     tsetenv(STRSYSTYPE, quote(str2short(tcp)));
706c80476e4SDavid E. O'Brien #endif /* apollo */
707c80476e4SDavid E. O'Brien 
708c80476e4SDavid E. O'Brien     /*
709c80476e4SDavid E. O'Brien      * set editing on by default, unless running under Emacs as an inferior
710c80476e4SDavid E. O'Brien      * shell.
711c80476e4SDavid E. O'Brien      * We try to do this intelligently. If $TERM is available, then it
712c80476e4SDavid E. O'Brien      * should determine if we should edit or not. $TERM is preserved
713c80476e4SDavid E. O'Brien      * across rlogin sessions, so we will not get confused if we rlogin
714c80476e4SDavid E. O'Brien      * under an emacs shell. Another advantage is that if we run an
715c80476e4SDavid E. O'Brien      * xterm under an emacs shell, then the $TERM will be set to
716c80476e4SDavid E. O'Brien      * xterm, so we are going to want to edit. Unfortunately emacs
717c80476e4SDavid E. O'Brien      * does not restore all the tty modes, so xterm is not very well
718c80476e4SDavid E. O'Brien      * set up. But this is not the shell's fault.
719c80476e4SDavid E. O'Brien      * Also don't edit if $TERM == wm, for when we're running under an ATK app.
720c80476e4SDavid E. O'Brien      * Finally, emacs compiled under terminfo, sets the terminal to dumb,
721c80476e4SDavid E. O'Brien      * so disable editing for that too.
722c80476e4SDavid E. O'Brien      *
723c80476e4SDavid E. O'Brien      * Unfortunately, in some cases the initial $TERM setting is "unknown",
724c80476e4SDavid E. O'Brien      * "dumb", or "network" which is then changed in the user's startup files.
725c80476e4SDavid E. O'Brien      * We fix this by setting noediting here if $TERM is unknown/dumb and
726c80476e4SDavid E. O'Brien      * if noediting is set, we switch on editing if $TERM is changed.
727c80476e4SDavid E. O'Brien      */
728c80476e4SDavid E. O'Brien     if ((tcp = getenv("TERM")) != NULL) {
72945e5710bSMark Peek 	setv(STRterm, quote(SAVE(tcp)), VAR_READWRITE);
730c80476e4SDavid E. O'Brien 	noediting = strcmp(tcp, "unknown") == 0 || strcmp(tcp, "dumb") == 0 ||
731c80476e4SDavid E. O'Brien 		    strcmp(tcp, "network") == 0;
732c80476e4SDavid E. O'Brien 	editing = strcmp(tcp, "emacs") != 0 && strcmp(tcp, "wm") != 0 &&
733c80476e4SDavid E. O'Brien 		  !noediting;
734c80476e4SDavid E. O'Brien     }
735c80476e4SDavid E. O'Brien     else {
736c80476e4SDavid E. O'Brien 	noediting = 0;
737c80476e4SDavid E. O'Brien 	editing = ((tcp = getenv("EMACS")) == NULL || strcmp(tcp, "t") != 0);
738c80476e4SDavid E. O'Brien     }
739c80476e4SDavid E. O'Brien 
740c80476e4SDavid E. O'Brien     /*
741c80476e4SDavid E. O'Brien      * The 'edit' variable is either set or unset.  It doesn't
742c80476e4SDavid E. O'Brien      * need a value.  Making it 'emacs' might be confusing.
743c80476e4SDavid E. O'Brien      */
744c80476e4SDavid E. O'Brien     if (editing)
74545e5710bSMark Peek 	setNS(STRedit);
746c80476e4SDavid E. O'Brien 
747c80476e4SDavid E. O'Brien 
748c80476e4SDavid E. O'Brien     /*
749c80476e4SDavid E. O'Brien      * still more mutability: make the complete routine automatically add the
750c80476e4SDavid E. O'Brien      * suffix of file names...
751c80476e4SDavid E. O'Brien      */
75245e5710bSMark Peek     setNS(STRaddsuffix);
753c80476e4SDavid E. O'Brien 
754c80476e4SDavid E. O'Brien     /*
75523338178SMark Peek      * Compatibility with tcsh >= 6.12 by default
75623338178SMark Peek      */
75745e5710bSMark Peek     setNS(STRcsubstnonl);
75823338178SMark Peek 
75923338178SMark Peek     /*
7606767bd61SMark Peek      * Random default kill ring size
7616767bd61SMark Peek      */
76245e5710bSMark Peek     setcopy(STRkillring, str2short("30"), VAR_READWRITE);
7636767bd61SMark Peek 
7646767bd61SMark Peek     /*
765c80476e4SDavid E. O'Brien      * Re-initialize path if set in environment
766c80476e4SDavid E. O'Brien      */
767c80476e4SDavid E. O'Brien     if ((tcp = getenv("PATH")) == NULL)
768c80476e4SDavid E. O'Brien #ifdef _PATH_DEFPATH
769c80476e4SDavid E. O'Brien 	importpath(str2short(_PATH_DEFPATH));
770c80476e4SDavid E. O'Brien #else /* !_PATH_DEFPATH */
771c80476e4SDavid E. O'Brien 	setq(STRpath, defaultpath(), &shvhed, VAR_READWRITE);
772c80476e4SDavid E. O'Brien #endif /* _PATH_DEFPATH */
773c80476e4SDavid E. O'Brien     else
774c80476e4SDavid E. O'Brien 	/* Importpath() allocates memory for the path, and the
775c80476e4SDavid E. O'Brien 	 * returned pointer from SAVE() was discarded, so
776c80476e4SDavid E. O'Brien 	 * this was a memory leak.. (sg)
777c80476e4SDavid E. O'Brien 	 *
778c80476e4SDavid E. O'Brien 	 * importpath(SAVE(tcp));
779c80476e4SDavid E. O'Brien 	 */
780c80476e4SDavid E. O'Brien 	importpath(str2short(tcp));
781c80476e4SDavid E. O'Brien 
782c80476e4SDavid E. O'Brien 
783c80476e4SDavid E. O'Brien     {
784c80476e4SDavid E. O'Brien 	/* If the SHELL environment variable ends with "tcsh", set
785c80476e4SDavid E. O'Brien 	 * STRshell to the same path.  This is to facilitate using
786c80476e4SDavid E. O'Brien 	 * the executable in environments where the compiled-in
787c80476e4SDavid E. O'Brien 	 * default isn't appropriate (sg).
788c80476e4SDavid E. O'Brien 	 */
789c80476e4SDavid E. O'Brien 
79045e5710bSMark Peek 	size_t sh_len = 0;
791c80476e4SDavid E. O'Brien 
792c80476e4SDavid E. O'Brien 	if ((tcp = getenv("SHELL")) != NULL) {
793c80476e4SDavid E. O'Brien 	    sh_len = strlen(tcp);
794c80476e4SDavid E. O'Brien 	    if ((sh_len >= 5 && strcmp(tcp + (sh_len - 5), "/tcsh") == 0) ||
795c80476e4SDavid E. O'Brien 	        (!tcsh && sh_len >= 4 && strcmp(tcp + (sh_len - 4), "/csh") == 0))
79645e5710bSMark Peek 		setv(STRshell, quote(SAVE(tcp)), VAR_READWRITE);
797c80476e4SDavid E. O'Brien 	    else
798c80476e4SDavid E. O'Brien 		sh_len = 0;
799c80476e4SDavid E. O'Brien 	}
800c80476e4SDavid E. O'Brien 	if (sh_len == 0)
80145e5710bSMark Peek 	    setcopy(STRshell, STR_SHELLPATH, VAR_READWRITE);
802c80476e4SDavid E. O'Brien     }
803c80476e4SDavid E. O'Brien 
80445e5710bSMark Peek #ifdef _OSD_POSIX  /* BS2000 needs this variable set to "SHELL" */
80545e5710bSMark Peek     if ((tcp = getenv("PROGRAM_ENVIRONMENT")) == NULL)
80645e5710bSMark Peek 	tcp = "SHELL";
80745e5710bSMark Peek     tsetenv(STRPROGRAM_ENVIRONMENT, quote(str2short(tcp)));
80845e5710bSMark Peek #endif /* _OSD_POSIX */
80945e5710bSMark Peek 
810c80476e4SDavid E. O'Brien #ifdef COLOR_LS_F
811c80476e4SDavid E. O'Brien     if ((tcp = getenv("LS_COLORS")) != NULL)
812c80476e4SDavid E. O'Brien 	parseLS_COLORS(str2short(tcp));
81319d2e3deSDmitry Chagin     if ((tcp = getenv("LSCOLORS")) != NULL)
81419d2e3deSDmitry Chagin 	parseLSCOLORS(str2short(tcp));
815c80476e4SDavid E. O'Brien #endif /* COLOR_LS_F */
816c80476e4SDavid E. O'Brien 
81719d2e3deSDmitry Chagin     mainpid = getpid();
81819d2e3deSDmitry Chagin     doldol = putn((tcsh_number_t)mainpid);	/* For $$ */
8193b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
820c80476e4SDavid E. O'Brien     {
82145e5710bSMark Peek 	char *tmp;
82245e5710bSMark Peek 	Char *tmp2;
82345e5710bSMark Peek 	if ((tmp = getenv("TMP")) != NULL) {
82445e5710bSMark Peek 	    tmp = xasprintf("%s/%s", tmp, "sh");
82545e5710bSMark Peek 	    tmp2 = SAVE(tmp);
82645e5710bSMark Peek 	    xfree(tmp);
82745e5710bSMark Peek 	}
82845e5710bSMark Peek 	else {
82945e5710bSMark Peek 	    tmp2 = SAVE("");
83045e5710bSMark Peek 	}
83145e5710bSMark Peek 	shtemp = Strspl(tmp2, doldol);	/* For << */
83245e5710bSMark Peek 	xfree(tmp2);
833c80476e4SDavid E. O'Brien     }
8343b6eaa7bSAndrey A. Chernov #else /* !WINNT_NATIVE */
8359ccc37e3SMark Peek #ifdef HAVE_MKSTEMP
8369ccc37e3SMark Peek     {
83719d2e3deSDmitry Chagin 	const char *tmpdir = getenv ("TMPDIR");
8389ccc37e3SMark Peek 	if (!tmpdir)
8399ccc37e3SMark Peek 	    tmpdir = "/tmp";
8409ccc37e3SMark Peek 	shtemp = Strspl(SAVE(tmpdir), SAVE("/sh" TMP_TEMPLATE)); /* For << */
8419ccc37e3SMark Peek     }
8429ccc37e3SMark Peek #else /* !HAVE_MKSTEMP */
843c80476e4SDavid E. O'Brien     shtemp = Strspl(STRtmpsh, doldol);	/* For << */
8449ccc37e3SMark Peek #endif /* HAVE_MKSTEMP */
8453b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
846c80476e4SDavid E. O'Brien 
847c80476e4SDavid E. O'Brien     /*
848c80476e4SDavid E. O'Brien      * Record the interrupt states from the parent process. If the parent is
849c80476e4SDavid E. O'Brien      * non-interruptible our hand must be forced or we (and our children) won't
850c80476e4SDavid E. O'Brien      * be either. Our children inherit termination from our parent. We catch it
851c80476e4SDavid E. O'Brien      * only if we are the login shell.
852c80476e4SDavid E. O'Brien      */
85345e5710bSMark Peek     sigaction(SIGINT, NULL, &parintr);
85445e5710bSMark Peek     sigaction(SIGTERM, NULL, &parterm);
855c80476e4SDavid E. O'Brien 
856c80476e4SDavid E. O'Brien 
857c80476e4SDavid E. O'Brien #ifdef TCF
858c80476e4SDavid E. O'Brien     /* Enable process migration on ourselves and our progeny */
859c80476e4SDavid E. O'Brien     (void) signal(SIGMIGRATE, SIG_DFL);
860c80476e4SDavid E. O'Brien #endif /* TCF */
861c80476e4SDavid E. O'Brien 
862c80476e4SDavid E. O'Brien     /*
8633b6eaa7bSAndrey A. Chernov      * dspkanji/dspmbyte autosetting
8643b6eaa7bSAndrey A. Chernov      */
8653b6eaa7bSAndrey A. Chernov     /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */
8663b6eaa7bSAndrey A. Chernov #if defined(DSPMBYTE)
8673b6eaa7bSAndrey A. Chernov #if defined(NLS) && defined(LC_CTYPE)
8689ccc37e3SMark Peek     if (((tcp = setlocale(LC_CTYPE, NULL)) != NULL || (tcp = getenv("LANG")) != NULL) && !adrof(CHECK_MBYTEVAR))
8693b6eaa7bSAndrey A. Chernov #else
8709ccc37e3SMark Peek     if ((tcp = getenv("LANG")) != NULL && !adrof(CHECK_MBYTEVAR))
8713b6eaa7bSAndrey A. Chernov #endif
8729ccc37e3SMark Peek     {
8733b6eaa7bSAndrey A. Chernov 	autoset_dspmbyte(str2short(tcp));
8743b6eaa7bSAndrey A. Chernov     }
8753b6eaa7bSAndrey A. Chernov #if defined(WINNT_NATIVE)
8763b6eaa7bSAndrey A. Chernov     else if (!adrof(CHECK_MBYTEVAR))
8773b6eaa7bSAndrey A. Chernov       nt_autoset_dspmbyte();
8783b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
8793b6eaa7bSAndrey A. Chernov #endif
8809ccc37e3SMark Peek #if defined(AUTOSET_KANJI)
8819ccc37e3SMark Peek # if defined(NLS) && defined(LC_CTYPE)
8829ccc37e3SMark Peek     if (setlocale(LC_CTYPE, NULL) != NULL || getenv("LANG") != NULL)
8839ccc37e3SMark Peek # else
8849ccc37e3SMark Peek     if (getenv("LANG") != NULL)
8859ccc37e3SMark Peek # endif
8869ccc37e3SMark Peek 	autoset_kanji();
8879ccc37e3SMark Peek #endif /* AUTOSET_KANJI */
88829301572SMark Peek     fix_version();		/* publish the shell version */
88929301572SMark Peek 
89029301572SMark Peek     if (argc > 1 && strcmp(argv[1], "--version") == 0) {
89129301572SMark Peek 	xprintf("%S\n", varval(STRversion));
89229301572SMark Peek 	xexit(0);
89329301572SMark Peek     }
89423338178SMark Peek     if (argc > 1 && strcmp(argv[1], "--help") == 0) {
89523338178SMark Peek 	xprintf("%S\n\n", varval(STRversion));
896a15e6f9aSMark Peek 	xprintf("%s", CGETS(11, 8, HELP_STRING));
89723338178SMark Peek 	xexit(0);
89823338178SMark Peek     }
8993b6eaa7bSAndrey A. Chernov     /*
900c80476e4SDavid E. O'Brien      * Process the arguments.
901c80476e4SDavid E. O'Brien      *
902c80476e4SDavid E. O'Brien      * Note that processing of -v/-x is actually delayed till after script
903c80476e4SDavid E. O'Brien      * processing.
904c80476e4SDavid E. O'Brien      *
905c80476e4SDavid E. O'Brien      * We set the first character of our name to be '-' if we are a shell
906c80476e4SDavid E. O'Brien      * running interruptible commands.  Many programs which examine ps'es
907c80476e4SDavid E. O'Brien      * use this to filter such shells out.
908c80476e4SDavid E. O'Brien      */
909c80476e4SDavid E. O'Brien     argc--, tempv++;
910c80476e4SDavid E. O'Brien     while (argc > 0 && (tcp = tempv[0])[0] == '-' &&
911c80476e4SDavid E. O'Brien 	   *++tcp != '\0' && !batch) {
912c80476e4SDavid E. O'Brien 	do
913c80476e4SDavid E. O'Brien 	    switch (*tcp++) {
914c80476e4SDavid E. O'Brien 
915c80476e4SDavid E. O'Brien 	    case 0:		/* -	Interruptible, no prompt */
916c80476e4SDavid E. O'Brien 		prompt = 0;
917c80476e4SDavid E. O'Brien 		setintr = 1;
918c80476e4SDavid E. O'Brien 		nofile = 1;
919c80476e4SDavid E. O'Brien 		break;
920c80476e4SDavid E. O'Brien 
921c80476e4SDavid E. O'Brien 	    case 'b':		/* -b	Next arg is input file */
922c80476e4SDavid E. O'Brien 		batch = 1;
923c80476e4SDavid E. O'Brien 		break;
924c80476e4SDavid E. O'Brien 
925c80476e4SDavid E. O'Brien 	    case 'c':		/* -c	Command input from arg */
926c80476e4SDavid E. O'Brien 		if (argc == 1)
927c80476e4SDavid E. O'Brien 		    xexit(0);
928c80476e4SDavid E. O'Brien 		argc--, tempv++;
929c80476e4SDavid E. O'Brien #ifdef M_XENIX
930c80476e4SDavid E. O'Brien 		/* Xenix Vi bug:
931c80476e4SDavid E. O'Brien 		   it relies on a 7 bit environment (/bin/sh), so it
932c80476e4SDavid E. O'Brien 		   pass ascii arguments with the 8th bit set */
933c80476e4SDavid E. O'Brien 		if (!strcmp(argv[0], "sh"))
934c80476e4SDavid E. O'Brien 		  {
935c80476e4SDavid E. O'Brien 		    char *p;
936c80476e4SDavid E. O'Brien 
937c80476e4SDavid E. O'Brien 		    for (p = tempv[0]; *p; ++p)
938c80476e4SDavid E. O'Brien 		      *p &= ASCII;
939c80476e4SDavid E. O'Brien 		  }
940c80476e4SDavid E. O'Brien #endif
941*55b903e2SDmitry Chagin 		targinp = tempv[0];
942c80476e4SDavid E. O'Brien 		prompt = 0;
943c80476e4SDavid E. O'Brien 		nofile = 1;
944c80476e4SDavid E. O'Brien 		break;
945c80476e4SDavid E. O'Brien 	    case 'd':		/* -d	Load directory stack from file */
946c80476e4SDavid E. O'Brien 		rdirs = 1;
947c80476e4SDavid E. O'Brien 		break;
948c80476e4SDavid E. O'Brien 
949c80476e4SDavid E. O'Brien #ifdef apollo
950c80476e4SDavid E. O'Brien 	    case 'D':		/* -D	Define environment variable */
951c80476e4SDavid E. O'Brien 		{
95223338178SMark Peek 		    Char *dp;
953c80476e4SDavid E. O'Brien 
954c80476e4SDavid E. O'Brien 		    cp = str2short(tcp);
955c80476e4SDavid E. O'Brien 		    if (dp = Strchr(cp, '=')) {
956c80476e4SDavid E. O'Brien 			*dp++ = '\0';
957c80476e4SDavid E. O'Brien 			tsetenv(cp, dp);
958c80476e4SDavid E. O'Brien 		    }
959c80476e4SDavid E. O'Brien 		    else
960c80476e4SDavid E. O'Brien 			tsetenv(cp, STRNULL);
961c80476e4SDavid E. O'Brien 		}
962c80476e4SDavid E. O'Brien 		*tcp = '\0'; 	/* done with this argument */
963c80476e4SDavid E. O'Brien 		break;
964c80476e4SDavid E. O'Brien #endif /* apollo */
965c80476e4SDavid E. O'Brien 
966c80476e4SDavid E. O'Brien 	    case 'e':		/* -e	Exit on any error */
967c80476e4SDavid E. O'Brien 		exiterr = 1;
968c80476e4SDavid E. O'Brien 		break;
969c80476e4SDavid E. O'Brien 
970c80476e4SDavid E. O'Brien 	    case 'f':		/* -f	Fast start */
971c80476e4SDavid E. O'Brien 		fast = 1;
972c80476e4SDavid E. O'Brien 		break;
973c80476e4SDavid E. O'Brien 
974c80476e4SDavid E. O'Brien 	    case 'i':		/* -i	Interactive, even if !intty */
975c80476e4SDavid E. O'Brien 		intact = 1;
976c80476e4SDavid E. O'Brien 		nofile = 1;
977c80476e4SDavid E. O'Brien 		break;
978c80476e4SDavid E. O'Brien 
979c80476e4SDavid E. O'Brien 	    case 'm':		/* -m	read .cshrc (from su) */
980c80476e4SDavid E. O'Brien 		mflag = 1;
981c80476e4SDavid E. O'Brien 		break;
982c80476e4SDavid E. O'Brien 
983c80476e4SDavid E. O'Brien 	    case 'n':		/* -n	Don't execute */
984c80476e4SDavid E. O'Brien 		noexec = 1;
985c80476e4SDavid E. O'Brien 		break;
986c80476e4SDavid E. O'Brien 
987c80476e4SDavid E. O'Brien 	    case 'q':		/* -q	(Undoc'd) ... die on quit */
988c80476e4SDavid E. O'Brien 		quitit = 1;
989c80476e4SDavid E. O'Brien 		break;
990c80476e4SDavid E. O'Brien 
991c80476e4SDavid E. O'Brien 	    case 's':		/* -s	Read from std input */
992c80476e4SDavid E. O'Brien 		nofile = 1;
993c80476e4SDavid E. O'Brien 		break;
994c80476e4SDavid E. O'Brien 
995c80476e4SDavid E. O'Brien 	    case 't':		/* -t	Read one line from input */
996c80476e4SDavid E. O'Brien 		onelflg = 2;
997c80476e4SDavid E. O'Brien 		prompt = 0;
998c80476e4SDavid E. O'Brien 		nofile = 1;
999c80476e4SDavid E. O'Brien 		break;
1000c80476e4SDavid E. O'Brien 
1001c80476e4SDavid E. O'Brien 	    case 'v':		/* -v	Echo hist expanded input */
1002c80476e4SDavid E. O'Brien 		nverbose = 1;	/* ... later */
1003c80476e4SDavid E. O'Brien 		break;
1004c80476e4SDavid E. O'Brien 
1005c80476e4SDavid E. O'Brien 	    case 'x':		/* -x	Echo just before execution */
1006c80476e4SDavid E. O'Brien 		nexececho = 1;	/* ... later */
1007c80476e4SDavid E. O'Brien 		break;
1008c80476e4SDavid E. O'Brien 
1009c80476e4SDavid E. O'Brien 	    case 'V':		/* -V	Echo hist expanded input */
1010c80476e4SDavid E. O'Brien 		setNS(STRverbose);	/* NOW! */
1011c80476e4SDavid E. O'Brien 		break;
1012c80476e4SDavid E. O'Brien 
1013c80476e4SDavid E. O'Brien 	    case 'X':		/* -X	Echo just before execution */
1014c80476e4SDavid E. O'Brien 		setNS(STRecho);	/* NOW! */
1015c80476e4SDavid E. O'Brien 		break;
1016c80476e4SDavid E. O'Brien 
101745e5710bSMark Peek 	    case 'F':
1018c80476e4SDavid E. O'Brien 		/*
1019c80476e4SDavid E. O'Brien 		 * This will cause children to be created using fork instead of
1020c80476e4SDavid E. O'Brien 		 * vfork.
1021c80476e4SDavid E. O'Brien 		 */
1022c80476e4SDavid E. O'Brien 		use_fork = 1;
1023c80476e4SDavid E. O'Brien 		break;
1024c80476e4SDavid E. O'Brien 
1025c80476e4SDavid E. O'Brien 	    case ' ':
1026c80476e4SDavid E. O'Brien 	    case '\t':
10279ccc37e3SMark Peek 	    case '\r':
10289ccc37e3SMark Peek 	    case '\n':
1029c80476e4SDavid E. O'Brien 		/*
1030c80476e4SDavid E. O'Brien 		 * for O/S's that don't do the argument parsing right in
1031c80476e4SDavid E. O'Brien 		 * "#!/foo -f " scripts
1032c80476e4SDavid E. O'Brien 		 */
1033c80476e4SDavid E. O'Brien 		break;
1034c80476e4SDavid E. O'Brien 
1035c80476e4SDavid E. O'Brien 	    default:		/* Unknown command option */
1036c80476e4SDavid E. O'Brien 		exiterr = 1;
1037c80476e4SDavid E. O'Brien 		stderror(ERR_TCSHUSAGE, tcp-1, progname);
1038c80476e4SDavid E. O'Brien 		break;
1039c80476e4SDavid E. O'Brien 
1040c80476e4SDavid E. O'Brien 	} while (*tcp);
1041c80476e4SDavid E. O'Brien 	tempv++, argc--;
1042c80476e4SDavid E. O'Brien     }
1043c80476e4SDavid E. O'Brien 
1044c80476e4SDavid E. O'Brien     if (quitit)			/* With all due haste, for debugging */
1045c80476e4SDavid E. O'Brien 	(void) signal(SIGQUIT, SIG_DFL);
1046c80476e4SDavid E. O'Brien 
1047c80476e4SDavid E. O'Brien     /*
1048c80476e4SDavid E. O'Brien      * Unless prevented by -, -c, -i, -s, or -t, if there are remaining
1049c80476e4SDavid E. O'Brien      * arguments the first of them is the name of a shell file from which to
1050c80476e4SDavid E. O'Brien      * read commands.
1051c80476e4SDavid E. O'Brien      */
1052c80476e4SDavid E. O'Brien     if (nofile == 0 && argc > 0) {
105345e5710bSMark Peek 	nofile = xopen(tempv[0], O_RDONLY|O_LARGEFILE);
1054c80476e4SDavid E. O'Brien 	if (nofile < 0) {
1055c80476e4SDavid E. O'Brien 	    child = 1;		/* So this ... */
1056c80476e4SDavid E. O'Brien 	    /* ... doesn't return */
1057c80476e4SDavid E. O'Brien 	    stderror(ERR_SYSTEM, tempv[0], strerror(errno));
1058c80476e4SDavid E. O'Brien 	}
105945e5710bSMark Peek 	xfree(ffile);
1060c80476e4SDavid E. O'Brien 	dolzero = 1;
1061c80476e4SDavid E. O'Brien 	ffile = SAVE(tempv[0]);
1062c80476e4SDavid E. O'Brien 	/*
1063c80476e4SDavid E. O'Brien 	 * Replace FSHIN. Handle /dev/std{in,out,err} specially
1064c80476e4SDavid E. O'Brien 	 * since once they are closed we cannot open them again.
1065c80476e4SDavid E. O'Brien 	 * In that case we use our own saved descriptors
1066c80476e4SDavid E. O'Brien 	 */
1067c80476e4SDavid E. O'Brien 	if ((SHIN = dmove(nofile, FSHIN)) < 0)
1068c80476e4SDavid E. O'Brien 	    switch(nofile) {
1069c80476e4SDavid E. O'Brien 	    case 0:
1070c80476e4SDavid E. O'Brien 		SHIN = FSHIN;
1071c80476e4SDavid E. O'Brien 		break;
1072c80476e4SDavid E. O'Brien 	    case 1:
1073c80476e4SDavid E. O'Brien 		SHIN = FSHOUT;
1074c80476e4SDavid E. O'Brien 		break;
1075c80476e4SDavid E. O'Brien 	    case 2:
1076c80476e4SDavid E. O'Brien 		SHIN = FSHDIAG;
1077c80476e4SDavid E. O'Brien 		break;
1078c80476e4SDavid E. O'Brien 	    default:
1079c80476e4SDavid E. O'Brien 		stderror(ERR_SYSTEM, tempv[0], strerror(errno));
1080c80476e4SDavid E. O'Brien 		break;
1081c80476e4SDavid E. O'Brien 	    }
1082c80476e4SDavid E. O'Brien 	(void) close_on_exec(SHIN, 1);
1083c80476e4SDavid E. O'Brien 	prompt = 0;
1084c80476e4SDavid E. O'Brien 	 /* argc not used any more */ tempv++;
1085c80476e4SDavid E. O'Brien     }
1086c80476e4SDavid E. O'Brien 
108729301572SMark Peek     /*
108829301572SMark Peek      * Call to closem() used to be part of initdesc(). Now called below where
108929301572SMark Peek      * the script name argument has become stdin. Kernel may have used a file
109029301572SMark Peek      * descriptor to hold the name of the script (setuid case) and this name
109129301572SMark Peek      * mustn't be lost by closing the fd too soon.
109229301572SMark Peek      */
109329301572SMark Peek     closem();
1094c80476e4SDavid E. O'Brien 
1095c80476e4SDavid E. O'Brien     /*
1096c80476e4SDavid E. O'Brien      * Consider input a tty if it really is or we are interactive. but not for
1097c80476e4SDavid E. O'Brien      * editing (christos)
1098c80476e4SDavid E. O'Brien      */
1099c80476e4SDavid E. O'Brien     if (!(intty = isatty(SHIN))) {
1100c80476e4SDavid E. O'Brien 	if (adrof(STRedit))
1101c80476e4SDavid E. O'Brien 	    unsetv(STRedit);
1102c80476e4SDavid E. O'Brien 	editing = 0;
1103c80476e4SDavid E. O'Brien     }
1104c80476e4SDavid E. O'Brien     intty |= intact;
1105c80476e4SDavid E. O'Brien #ifndef convex
1106c80476e4SDavid E. O'Brien     if (intty || (intact && isatty(SHOUT))) {
1107c80476e4SDavid E. O'Brien 	if (!batch && (uid != euid || gid != egid)) {
1108c80476e4SDavid E. O'Brien 	    errno = EACCES;
1109c80476e4SDavid E. O'Brien 	    child = 1;		/* So this ... */
1110c80476e4SDavid E. O'Brien 	    /* ... doesn't return */
1111c80476e4SDavid E. O'Brien 	    stderror(ERR_SYSTEM, progname, strerror(errno));
1112c80476e4SDavid E. O'Brien 	}
1113c80476e4SDavid E. O'Brien     }
1114c80476e4SDavid E. O'Brien #endif /* convex */
1115c80476e4SDavid E. O'Brien     isoutatty = isatty(SHOUT);
1116c80476e4SDavid E. O'Brien     isdiagatty = isatty(SHDIAG);
1117c80476e4SDavid E. O'Brien     /*
1118c80476e4SDavid E. O'Brien      * Decide whether we should play with signals or not. If we are explicitly
1119c80476e4SDavid E. O'Brien      * told (via -i, or -) or we are a login shell (arg0 starts with -) or the
1120c80476e4SDavid E. O'Brien      * input and output are both the ttys("csh", or "csh</dev/ttyx>/dev/ttyx")
1121c80476e4SDavid E. O'Brien      * Note that in only the login shell is it likely that parent may have set
1122c80476e4SDavid E. O'Brien      * signals to be ignored
1123c80476e4SDavid E. O'Brien      */
1124c80476e4SDavid E. O'Brien     if (loginsh || intact || (intty && isatty(SHOUT)))
1125c80476e4SDavid E. O'Brien 	setintr = 1;
1126c80476e4SDavid E. O'Brien     settell();
1127c80476e4SDavid E. O'Brien     /*
1128c80476e4SDavid E. O'Brien      * Save the remaining arguments in argv.
1129c80476e4SDavid E. O'Brien      */
1130c80476e4SDavid E. O'Brien     setq(STRargv, blk2short(tempv), &shvhed, VAR_READWRITE);
1131c80476e4SDavid E. O'Brien 
1132c80476e4SDavid E. O'Brien     /*
1133c80476e4SDavid E. O'Brien      * Set up the prompt.
1134c80476e4SDavid E. O'Brien      */
1135c80476e4SDavid E. O'Brien     if (prompt) {
11369ccc37e3SMark Peek 	setcopy(STRprompt, STRdefprompt, VAR_READWRITE);
1137c80476e4SDavid E. O'Brien 	/* that's a meta-questionmark */
113845e5710bSMark Peek 	setcopy(STRprompt2, STRmquestion, VAR_READWRITE);
113945e5710bSMark Peek 	setcopy(STRprompt3, STRKCORRECT, VAR_READWRITE);
1140c80476e4SDavid E. O'Brien     }
1141c80476e4SDavid E. O'Brien 
1142c80476e4SDavid E. O'Brien     /*
1143c80476e4SDavid E. O'Brien      * If we are an interactive shell, then start fiddling with the signals;
1144c80476e4SDavid E. O'Brien      * this is a tricky game.
1145c80476e4SDavid E. O'Brien      */
1146c80476e4SDavid E. O'Brien     shpgrp = mygetpgrp();
1147c80476e4SDavid E. O'Brien     opgrp = tpgrp = -1;
1148c80476e4SDavid E. O'Brien     if (setintr) {
114945e5710bSMark Peek 	struct sigaction osig;
115045e5710bSMark Peek 
1151c80476e4SDavid E. O'Brien 	**argv = '-';
1152c80476e4SDavid E. O'Brien 	if (!quitit)		/* Wary! */
1153c80476e4SDavid E. O'Brien 	    (void) signal(SIGQUIT, SIG_IGN);
115445e5710bSMark Peek 	pintr_disabled = 1;
115545e5710bSMark Peek 	sigset_interrupting(SIGINT, queue_pintr);
1156c80476e4SDavid E. O'Brien 	(void) signal(SIGTERM, SIG_IGN);
1157c80476e4SDavid E. O'Brien 
1158c80476e4SDavid E. O'Brien 	/*
1159c80476e4SDavid E. O'Brien 	 * No reason I can see not to save history on all these events..
1160c80476e4SDavid E. O'Brien 	 * Most usual occurrence is in a window system, where we're not a login
1161c80476e4SDavid E. O'Brien 	 * shell, but might as well be... (sg)
1162c80476e4SDavid E. O'Brien 	 * But there might be races when lots of shells exit together...
1163c80476e4SDavid E. O'Brien 	 * [this is also incompatible].
1164c80476e4SDavid E. O'Brien 	 * We have to be mre careful here. If the parent wants to
1165c80476e4SDavid E. O'Brien 	 * ignore the signals then we leave them untouched...
1166c80476e4SDavid E. O'Brien 	 * We also only setup the handlers for shells that are trully
1167c80476e4SDavid E. O'Brien 	 * interactive.
1168c80476e4SDavid E. O'Brien 	 */
116945e5710bSMark Peek 	sigaction(SIGHUP, NULL, &osig);
117045e5710bSMark Peek 	if (loginsh || osig.sa_handler != SIG_IGN)
117145e5710bSMark Peek 	    /* exit processing on HUP */
117245e5710bSMark Peek 	    sigset_interrupting(SIGHUP, queue_phup);
1173c80476e4SDavid E. O'Brien #ifdef SIGXCPU
117445e5710bSMark Peek 	sigaction(SIGXCPU, NULL, &osig);
117545e5710bSMark Peek 	if (loginsh || osig.sa_handler != SIG_IGN)
117645e5710bSMark Peek 	    /* exit processing on XCPU */
117745e5710bSMark Peek 	    sigset_interrupting(SIGXCPU, queue_phup);
1178c80476e4SDavid E. O'Brien #endif
1179c80476e4SDavid E. O'Brien #ifdef SIGXFSZ
118045e5710bSMark Peek 	sigaction(SIGXFSZ, NULL, &osig);
118145e5710bSMark Peek 	if (loginsh || osig.sa_handler != SIG_IGN)
118245e5710bSMark Peek 	    /* exit processing on XFSZ */
118345e5710bSMark Peek 	    sigset_interrupting(SIGXFSZ, queue_phup);
1184c80476e4SDavid E. O'Brien #endif
1185c80476e4SDavid E. O'Brien 
1186*55b903e2SDmitry Chagin 	if (quitit == 0 && targinp == 0) {
1187c80476e4SDavid E. O'Brien #ifdef SIGTSTP
1188c80476e4SDavid E. O'Brien 	    (void) signal(SIGTSTP, SIG_IGN);
1189c80476e4SDavid E. O'Brien #endif
1190c80476e4SDavid E. O'Brien #ifdef SIGTTIN
1191c80476e4SDavid E. O'Brien 	    (void) signal(SIGTTIN, SIG_IGN);
1192c80476e4SDavid E. O'Brien #endif
1193c80476e4SDavid E. O'Brien #ifdef SIGTTOU
1194c80476e4SDavid E. O'Brien 	    (void) signal(SIGTTOU, SIG_IGN);
1195c80476e4SDavid E. O'Brien #endif
1196c80476e4SDavid E. O'Brien 	    /*
1197c80476e4SDavid E. O'Brien 	     * Wait till in foreground, in case someone stupidly runs csh &
1198c80476e4SDavid E. O'Brien 	     * dont want to try to grab away the tty.
1199c80476e4SDavid E. O'Brien 	     */
1200c80476e4SDavid E. O'Brien 	    if (isatty(FSHDIAG))
1201c80476e4SDavid E. O'Brien 		f = FSHDIAG;
1202c80476e4SDavid E. O'Brien 	    else if (isatty(FSHOUT))
1203c80476e4SDavid E. O'Brien 		f = FSHOUT;
1204c80476e4SDavid E. O'Brien 	    else if (isatty(OLDSTD))
1205c80476e4SDavid E. O'Brien 		f = OLDSTD;
1206c80476e4SDavid E. O'Brien 	    else
1207c80476e4SDavid E. O'Brien 		f = -1;
1208c80476e4SDavid E. O'Brien 
1209c80476e4SDavid E. O'Brien #ifdef NeXT
1210c80476e4SDavid E. O'Brien 	    /* NeXT 2.0 /usr/etc/rlogind, does not set our process group! */
121119d2e3deSDmitry Chagin 	    if (f != -1 && shpgrp == 0) {
1212c80476e4SDavid E. O'Brien 	        shpgrp = getpid();
1213c80476e4SDavid E. O'Brien 		(void) setpgid(0, shpgrp);
1214c80476e4SDavid E. O'Brien 	        (void) tcsetpgrp(f, shpgrp);
1215c80476e4SDavid E. O'Brien 	    }
1216c80476e4SDavid E. O'Brien #endif /* NeXT */
1217c80476e4SDavid E. O'Brien #ifdef BSDJOBS			/* if we have tty job control */
121819d2e3deSDmitry Chagin 	    if (f != -1 && grabpgrp(f, shpgrp) != -1) {
1219c80476e4SDavid E. O'Brien 		/*
1220c80476e4SDavid E. O'Brien 		 * Thanks to Matt Day for the POSIX references, and to
1221c80476e4SDavid E. O'Brien 		 * Paul Close for the SGI clarification.
1222c80476e4SDavid E. O'Brien 		 */
1223c80476e4SDavid E. O'Brien 		if (setdisc(f) != -1) {
1224c80476e4SDavid E. O'Brien 		    opgrp = shpgrp;
1225c80476e4SDavid E. O'Brien 		    shpgrp = getpid();
1226c80476e4SDavid E. O'Brien 		    tpgrp = shpgrp;
1227c80476e4SDavid E. O'Brien 		    if (tcsetpgrp(f, shpgrp) == -1) {
1228c80476e4SDavid E. O'Brien 			/*
1229c80476e4SDavid E. O'Brien 			 * On hpux 7.03 this fails with EPERM. This happens on
1230c80476e4SDavid E. O'Brien 			 * the 800 when opgrp != shpgrp at this point. (we were
1231c80476e4SDavid E. O'Brien 			 * forked from a non job control shell)
1232c80476e4SDavid E. O'Brien 			 * POSIX 7.2.4, says we failed because the process
1233c80476e4SDavid E. O'Brien 			 * group specified did not belong to a process
1234c80476e4SDavid E. O'Brien 			 * in the same session with the tty. So we set our
1235c80476e4SDavid E. O'Brien 			 * process group and try again.
1236c80476e4SDavid E. O'Brien 			 */
1237c80476e4SDavid E. O'Brien 			if (setpgid(0, shpgrp) == -1) {
1238c80476e4SDavid E. O'Brien 			    xprintf("setpgid:");
1239c80476e4SDavid E. O'Brien 			    goto notty;
1240c80476e4SDavid E. O'Brien 			}
1241c80476e4SDavid E. O'Brien 			if (tcsetpgrp(f, shpgrp) == -1) {
1242c80476e4SDavid E. O'Brien 			    xprintf("tcsetpgrp:");
1243c80476e4SDavid E. O'Brien 			    goto notty;
1244c80476e4SDavid E. O'Brien 			}
1245c80476e4SDavid E. O'Brien 		    }
1246c80476e4SDavid E. O'Brien 		    /*
1247c80476e4SDavid E. O'Brien 		     * We check the process group now. If it is the same, then
1248c80476e4SDavid E. O'Brien 		     * we don't need to set it again. On hpux 7.0 on the 300's
1249c80476e4SDavid E. O'Brien 		     * if we set it again it fails with EPERM. This is the
1250c80476e4SDavid E. O'Brien 		     * correct behavior according to POSIX 4.3.3 if the process
1251c80476e4SDavid E. O'Brien 		     * was a session leader .
1252c80476e4SDavid E. O'Brien 		     */
1253c80476e4SDavid E. O'Brien 		    else if (shpgrp != mygetpgrp()) {
1254c80476e4SDavid E. O'Brien 			if(setpgid(0, shpgrp) == -1) {
1255c80476e4SDavid E. O'Brien 			    xprintf("setpgid:");
1256c80476e4SDavid E. O'Brien 			    goto notty;
1257c80476e4SDavid E. O'Brien 			}
1258c80476e4SDavid E. O'Brien 		    }
1259c80476e4SDavid E. O'Brien #ifdef IRIS4D
1260c80476e4SDavid E. O'Brien 		    /*
1261c80476e4SDavid E. O'Brien 		     * But on irix 3.3 we need to set it again, even if it is
1262c80476e4SDavid E. O'Brien 		     * the same. We do that to tell the system that we
1263c80476e4SDavid E. O'Brien 		     * need BSD process group compatibility.
1264c80476e4SDavid E. O'Brien 		     */
1265c80476e4SDavid E. O'Brien 		    else
1266c80476e4SDavid E. O'Brien 			(void) setpgid(0, shpgrp);
1267c80476e4SDavid E. O'Brien #endif
1268c80476e4SDavid E. O'Brien 		    (void) close_on_exec(dcopy(f, FSHTTY), 1);
1269c80476e4SDavid E. O'Brien 		}
1270c80476e4SDavid E. O'Brien 		else
1271c80476e4SDavid E. O'Brien 		    tpgrp = -1;
1272c80476e4SDavid E. O'Brien 	    }
1273c80476e4SDavid E. O'Brien 	    if (tpgrp == -1) {
1274c80476e4SDavid E. O'Brien 	notty:
1275c80476e4SDavid E. O'Brien 	        xprintf(CGETS(11, 1, "Warning: no access to tty (%s).\n"),
1276c80476e4SDavid E. O'Brien 		    strerror(errno));
1277a15e6f9aSMark Peek 		xprintf("%s",
1278a15e6f9aSMark Peek 		    CGETS(11, 2, "Thus no job control in this shell.\n"));
1279c80476e4SDavid E. O'Brien 		/*
1280c80476e4SDavid E. O'Brien 		 * Fix from:Sakari Jalovaara <sja@sirius.hut.fi> if we don't
1281c80476e4SDavid E. O'Brien 		 * have access to tty, disable editing too
1282c80476e4SDavid E. O'Brien 		 */
1283c80476e4SDavid E. O'Brien 		if (adrof(STRedit))
1284c80476e4SDavid E. O'Brien 		    unsetv(STRedit);
1285c80476e4SDavid E. O'Brien 		editing = 0;
1286c80476e4SDavid E. O'Brien 	    }
1287c80476e4SDavid E. O'Brien #else	/* BSDJOBS */		/* don't have job control, so frotz it */
1288c80476e4SDavid E. O'Brien 	    tpgrp = -1;
1289c80476e4SDavid E. O'Brien #endif				/* BSDJOBS */
1290c80476e4SDavid E. O'Brien 	}
1291c80476e4SDavid E. O'Brien     }
129245e5710bSMark Peek     if (setintr == 0 && parintr.sa_handler == SIG_DFL)
1293c80476e4SDavid E. O'Brien 	setintr = 1;
1294c80476e4SDavid E. O'Brien 
1295c80476e4SDavid E. O'Brien /*
1296c80476e4SDavid E. O'Brien  * SVR4 doesn't send a SIGCHLD when a child is stopped or continued if the
1297c80476e4SDavid E. O'Brien  * handler is installed with signal(2) or sigset(2).  sigaction(2) must
1298c80476e4SDavid E. O'Brien  * be used instead.
1299c80476e4SDavid E. O'Brien  *
1300c80476e4SDavid E. O'Brien  * David Dawes (dawes@physics.su.oz.au) Sept 1991
1301c80476e4SDavid E. O'Brien  */
130245e5710bSMark Peek     sigset_interrupting(SIGCHLD, queue_pchild);
1303c80476e4SDavid E. O'Brien 
1304*55b903e2SDmitry Chagin     if (intty && !targinp)
1305c80476e4SDavid E. O'Brien 	(void) ed_Setup(editing);/* Get the tty state, and set defaults */
1306c80476e4SDavid E. O'Brien 				 /* Only alter the tty state if editing */
1307c80476e4SDavid E. O'Brien 
1308c80476e4SDavid E. O'Brien     /*
1309c80476e4SDavid E. O'Brien      * Set an exit here in case of an interrupt or error reading the shell
1310c80476e4SDavid E. O'Brien      * start-up scripts.
1311c80476e4SDavid E. O'Brien      */
1312b2d5d167SMark Peek     osetintr = setintr;
1313b2d5d167SMark Peek     oparintr = parintr;
131445e5710bSMark Peek     (void)cleanup_push_mark(); /* There is no outer handler */
131545e5710bSMark Peek     if (setexit() != 0) /* PWP */
131645e5710bSMark Peek 	reenter = 1;
131745e5710bSMark Peek     else
131845e5710bSMark Peek 	reenter = 0;
13193b6eaa7bSAndrey A. Chernov     exitset++;
1320c80476e4SDavid E. O'Brien     haderr = 0;			/* In case second time through */
1321c80476e4SDavid E. O'Brien     if (!fast && reenter == 0) {
1322c80476e4SDavid E. O'Brien 	/* Will have varval(STRhome) here because set fast if don't */
1323c80476e4SDavid E. O'Brien 	{
132445e5710bSMark Peek 	    pintr_disabled++;
132545e5710bSMark Peek 	    cleanup_push(&pintr_disabled, disabled_cleanup);
132645e5710bSMark Peek 	    setintr = 0;/*FIXRESET:cleanup*/
132745e5710bSMark Peek 	    /* onintr in /etc/ files has no effect */
132845e5710bSMark Peek 	    parintr.sa_handler = SIG_IGN;/*FIXRESET: cleanup*/
1329c80476e4SDavid E. O'Brien #ifdef LOGINFIRST
1330c80476e4SDavid E. O'Brien #ifdef _PATH_DOTLOGIN
1331c80476e4SDavid E. O'Brien 	    if (loginsh)
1332c80476e4SDavid E. O'Brien 		(void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL);
1333c80476e4SDavid E. O'Brien #endif
1334c80476e4SDavid E. O'Brien #endif
1335c80476e4SDavid E. O'Brien 
1336c80476e4SDavid E. O'Brien #ifdef _PATH_DOTCSHRC
1337c80476e4SDavid E. O'Brien 	    (void) srcfile(_PATH_DOTCSHRC, 0, 0, NULL);
1338c80476e4SDavid E. O'Brien #endif
1339*55b903e2SDmitry Chagin 	    if (!targinp && !onelflg && !havhash)
1340c80476e4SDavid E. O'Brien 		dohash(NULL,NULL);
1341c80476e4SDavid E. O'Brien #ifndef LOGINFIRST
1342c80476e4SDavid E. O'Brien #ifdef _PATH_DOTLOGIN
1343c80476e4SDavid E. O'Brien 	    if (loginsh)
1344c80476e4SDavid E. O'Brien 		(void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL);
1345c80476e4SDavid E. O'Brien #endif
1346c80476e4SDavid E. O'Brien #endif
134745e5710bSMark Peek 	    cleanup_until(&pintr_disabled);
1348c80476e4SDavid E. O'Brien 	    setintr = osetintr;
1349c80476e4SDavid E. O'Brien 	    parintr = oparintr;
1350c80476e4SDavid E. O'Brien 	}
1351c80476e4SDavid E. O'Brien #ifdef LOGINFIRST
1352c80476e4SDavid E. O'Brien 	if (loginsh)
1353c80476e4SDavid E. O'Brien 	    (void) srccat(varval(STRhome), STRsldotlogin);
1354c80476e4SDavid E. O'Brien #endif
1355c80476e4SDavid E. O'Brien 	/* upward compat. */
1356c80476e4SDavid E. O'Brien 	if (!srccat(varval(STRhome), STRsldottcshrc))
1357c80476e4SDavid E. O'Brien 	    (void) srccat(varval(STRhome), STRsldotcshrc);
1358c80476e4SDavid E. O'Brien 
1359*55b903e2SDmitry Chagin 	if (!targinp && !onelflg && !havhash)
1360c80476e4SDavid E. O'Brien 	    dohash(NULL,NULL);
1361c80476e4SDavid E. O'Brien 
1362c80476e4SDavid E. O'Brien 	/*
1363c80476e4SDavid E. O'Brien 	 * Source history before .login so that it is available in .login
1364c80476e4SDavid E. O'Brien 	 */
1365c80476e4SDavid E. O'Brien 	loadhist(NULL, 0);
1366c80476e4SDavid E. O'Brien #ifndef LOGINFIRST
1367c80476e4SDavid E. O'Brien 	if (loginsh)
1368c80476e4SDavid E. O'Brien 	    (void) srccat(varval(STRhome), STRsldotlogin);
1369c80476e4SDavid E. O'Brien #endif
137045e5710bSMark Peek 	if (loginsh || rdirs)
1371c80476e4SDavid E. O'Brien 	    loaddirs(NULL);
1372c80476e4SDavid E. O'Brien     }
1373b2d5d167SMark Peek     /* Reset interrupt flag */
1374b2d5d167SMark Peek     setintr = osetintr;
1375b2d5d167SMark Peek     parintr = oparintr;
137645e5710bSMark Peek     exitset--;
1377b2d5d167SMark Peek 
1378c80476e4SDavid E. O'Brien     /* Initing AFTER .cshrc is the Right Way */
1379*55b903e2SDmitry Chagin     if (intty && !targinp) {	/* PWP setup stuff */
1380c80476e4SDavid E. O'Brien 	ed_Init();		/* init the new line editor */
1381c80476e4SDavid E. O'Brien #ifdef SIG_WINDOW
1382c80476e4SDavid E. O'Brien 	check_window_size(1);	/* mung environment */
1383c80476e4SDavid E. O'Brien #endif				/* SIG_WINDOW */
1384c80476e4SDavid E. O'Brien     }
1385c80476e4SDavid E. O'Brien 
1386c80476e4SDavid E. O'Brien     /*
1387c80476e4SDavid E. O'Brien      * Now are ready for the -v and -x flags
1388c80476e4SDavid E. O'Brien      */
1389c80476e4SDavid E. O'Brien     if (nverbose)
1390c80476e4SDavid E. O'Brien 	setNS(STRverbose);
1391c80476e4SDavid E. O'Brien     if (nexececho)
1392c80476e4SDavid E. O'Brien 	setNS(STRecho);
1393c80476e4SDavid E. O'Brien 
1394*55b903e2SDmitry Chagin 
1395*55b903e2SDmitry Chagin     if (targinp) {
1396*55b903e2SDmitry Chagin 	arginp = SAVE(targinp);
1397*55b903e2SDmitry Chagin 	/*
1398*55b903e2SDmitry Chagin 	 * we put the command into a variable
1399*55b903e2SDmitry Chagin 	 */
1400*55b903e2SDmitry Chagin 	if (arginp != NULL)
1401*55b903e2SDmitry Chagin 	    setv(STRcommand, quote(Strsave(arginp)), VAR_READWRITE);
1402*55b903e2SDmitry Chagin 
1403*55b903e2SDmitry Chagin 	/*
1404*55b903e2SDmitry Chagin 	 * * Give an error on -c arguments that end in * backslash to
1405*55b903e2SDmitry Chagin 	 * ensure that you don't make * nonportable csh scripts.
1406*55b903e2SDmitry Chagin 	 */
1407*55b903e2SDmitry Chagin 	{
1408*55b903e2SDmitry Chagin 	    int count;
1409*55b903e2SDmitry Chagin 
1410*55b903e2SDmitry Chagin 	    cp = Strend(arginp);
1411*55b903e2SDmitry Chagin 	    count = 0;
1412*55b903e2SDmitry Chagin 	    while (cp > arginp && *--cp == '\\')
1413*55b903e2SDmitry Chagin 		++count;
1414*55b903e2SDmitry Chagin 	    if ((count & 1) != 0) {
1415*55b903e2SDmitry Chagin 		exiterr = 1;
1416*55b903e2SDmitry Chagin 		stderror(ERR_ARGC);
1417*55b903e2SDmitry Chagin 	    }
1418*55b903e2SDmitry Chagin 	}
1419*55b903e2SDmitry Chagin     }
1420c80476e4SDavid E. O'Brien     /*
1421c80476e4SDavid E. O'Brien      * All the rest of the world is inside this call. The argument to process
1422c80476e4SDavid E. O'Brien      * indicates whether it should catch "error unwinds".  Thus if we are a
1423c80476e4SDavid E. O'Brien      * interactive shell our call here will never return by being blown past on
1424c80476e4SDavid E. O'Brien      * an error.
1425c80476e4SDavid E. O'Brien      */
1426c80476e4SDavid E. O'Brien     process(setintr);
1427c80476e4SDavid E. O'Brien 
1428c80476e4SDavid E. O'Brien     /*
1429c80476e4SDavid E. O'Brien      * Mop-up.
1430c80476e4SDavid E. O'Brien      */
1431e05b4980SRoman Divacky     /* Take care of these (especially HUP) here instead of inside flush. */
1432e05b4980SRoman Divacky     handle_pending_signals();
1433c80476e4SDavid E. O'Brien     if (intty) {
1434c80476e4SDavid E. O'Brien 	if (loginsh) {
1435c80476e4SDavid E. O'Brien 	    xprintf("logout\n");
143645e5710bSMark Peek 	    xclose(SHIN);
1437c80476e4SDavid E. O'Brien 	    child = 1;
1438c80476e4SDavid E. O'Brien #ifdef TESLA
1439c80476e4SDavid E. O'Brien 	    do_logout = 1;
1440c80476e4SDavid E. O'Brien #endif				/* TESLA */
1441c80476e4SDavid E. O'Brien 	    goodbye(NULL, NULL);
1442c80476e4SDavid E. O'Brien 	}
1443c80476e4SDavid E. O'Brien 	else {
1444c80476e4SDavid E. O'Brien 	    xprintf("exit\n");
1445c80476e4SDavid E. O'Brien 	}
1446c80476e4SDavid E. O'Brien     }
1447c80476e4SDavid E. O'Brien     record();
1448c80476e4SDavid E. O'Brien     exitstat();
1449c80476e4SDavid E. O'Brien     return (0);
1450c80476e4SDavid E. O'Brien }
1451c80476e4SDavid E. O'Brien 
1452c80476e4SDavid E. O'Brien void
145345e5710bSMark Peek untty(void)
1454c80476e4SDavid E. O'Brien {
1455c80476e4SDavid E. O'Brien #ifdef BSDJOBS
1456c80476e4SDavid E. O'Brien     if (tpgrp > 0 && opgrp != shpgrp) {
1457c80476e4SDavid E. O'Brien 	(void) setpgid(0, opgrp);
1458c80476e4SDavid E. O'Brien 	(void) tcsetpgrp(FSHTTY, opgrp);
1459c80476e4SDavid E. O'Brien 	(void) resetdisc(FSHTTY);
1460c80476e4SDavid E. O'Brien     }
1461c80476e4SDavid E. O'Brien #endif /* BSDJOBS */
1462c80476e4SDavid E. O'Brien }
1463c80476e4SDavid E. O'Brien 
1464c80476e4SDavid E. O'Brien void
146545e5710bSMark Peek importpath(Char *cp)
1466c80476e4SDavid E. O'Brien {
146745e5710bSMark Peek     size_t i = 0;
146823338178SMark Peek     Char *dp;
146923338178SMark Peek     Char **pv;
1470c80476e4SDavid E. O'Brien     int     c;
1471c80476e4SDavid E. O'Brien 
1472c80476e4SDavid E. O'Brien     for (dp = cp; *dp; dp++)
1473c80476e4SDavid E. O'Brien 	if (*dp == PATHSEP)
1474c80476e4SDavid E. O'Brien 	    i++;
1475c80476e4SDavid E. O'Brien     /*
1476c80476e4SDavid E. O'Brien      * i+2 where i is the number of colons in the path. There are i+1
1477c80476e4SDavid E. O'Brien      * directories in the path plus we need room for a zero terminator.
1478c80476e4SDavid E. O'Brien      */
147945e5710bSMark Peek     pv = xcalloc(i + 2, sizeof(Char *));
1480c80476e4SDavid E. O'Brien     dp = cp;
1481c80476e4SDavid E. O'Brien     i = 0;
1482c80476e4SDavid E. O'Brien     if (*dp)
1483c80476e4SDavid E. O'Brien 	for (;;) {
1484c80476e4SDavid E. O'Brien 	    if ((c = *dp) == PATHSEP || c == 0) {
1485c80476e4SDavid E. O'Brien 		*dp = 0;
1486c80476e4SDavid E. O'Brien 		pv[i++] = Strsave(*cp ? cp : STRdot);
1487c80476e4SDavid E. O'Brien 		if (c) {
1488c80476e4SDavid E. O'Brien 		    cp = dp + 1;
1489c80476e4SDavid E. O'Brien 		    *dp = PATHSEP;
1490c80476e4SDavid E. O'Brien 		}
1491c80476e4SDavid E. O'Brien 		else
1492c80476e4SDavid E. O'Brien 		    break;
1493c80476e4SDavid E. O'Brien 	    }
14943b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
1495c80476e4SDavid E. O'Brien 	    else if (*dp == '\\')
1496c80476e4SDavid E. O'Brien 		*dp = '/';
14973b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
1498c80476e4SDavid E. O'Brien 	    dp++;
1499c80476e4SDavid E. O'Brien 	}
1500c80476e4SDavid E. O'Brien     pv[i] = 0;
150145e5710bSMark Peek     cleanup_push(pv, blk_cleanup);
1502c80476e4SDavid E. O'Brien     setq(STRpath, pv, &shvhed, VAR_READWRITE);
150345e5710bSMark Peek     cleanup_ignore(pv);
150445e5710bSMark Peek     cleanup_until(pv);
1505c80476e4SDavid E. O'Brien }
1506c80476e4SDavid E. O'Brien 
1507c80476e4SDavid E. O'Brien /*
1508c80476e4SDavid E. O'Brien  * Source to the file which is the catenation of the argument names.
1509c80476e4SDavid E. O'Brien  */
1510c80476e4SDavid E. O'Brien static int
151145e5710bSMark Peek srccat(Char *cp, Char *dp)
1512c80476e4SDavid E. O'Brien {
1513c80476e4SDavid E. O'Brien     if (cp[0] == '/' && cp[1] == '\0')
1514c80476e4SDavid E. O'Brien 	return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
1515c80476e4SDavid E. O'Brien     else {
151623338178SMark Peek 	Char *ep;
1517c80476e4SDavid E. O'Brien 	char   *ptr;
1518c80476e4SDavid E. O'Brien 	int rv;
1519c80476e4SDavid E. O'Brien 
15203b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
152145e5710bSMark Peek 	ep = Strend(cp);
152245e5710bSMark Peek 	if (ep != cp && ep[-1] == '/' && dp[0] == '/') /* silly win95 */
1523c80476e4SDavid E. O'Brien 	    dp++;
15243b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
1525c80476e4SDavid E. O'Brien 
1526c80476e4SDavid E. O'Brien 	ep = Strspl(cp, dp);
152745e5710bSMark Peek 	cleanup_push(ep, xfree);
1528c80476e4SDavid E. O'Brien 	ptr = short2str(ep);
1529c80476e4SDavid E. O'Brien 
1530c80476e4SDavid E. O'Brien 	rv = srcfile(ptr, (mflag ? 0 : 1), 0, NULL);
153145e5710bSMark Peek 	cleanup_until(ep);
1532c80476e4SDavid E. O'Brien 	return rv;
1533c80476e4SDavid E. O'Brien     }
1534c80476e4SDavid E. O'Brien }
1535c80476e4SDavid E. O'Brien 
1536c80476e4SDavid E. O'Brien /*
1537c80476e4SDavid E. O'Brien  * Source to a file putting the file descriptor in a safe place (> 2).
1538c80476e4SDavid E. O'Brien  */
15396767bd61SMark Peek #ifndef WINNT_NATIVE
1540c80476e4SDavid E. O'Brien static int
15416767bd61SMark Peek #else
15426767bd61SMark Peek int
15436767bd61SMark Peek #endif /*WINNT_NATIVE*/
154445e5710bSMark Peek srcfile(const char *f, int onlyown, int flag, Char **av)
1545c80476e4SDavid E. O'Brien {
154623338178SMark Peek     int unit;
1547c80476e4SDavid E. O'Brien 
154845e5710bSMark Peek     if ((unit = xopen(f, O_RDONLY|O_LARGEFILE)) == -1)
1549c80476e4SDavid E. O'Brien 	return 0;
155045e5710bSMark Peek     cleanup_push(&unit, open_cleanup);
1551c80476e4SDavid E. O'Brien     unit = dmove(unit, -1);
155245e5710bSMark Peek     cleanup_ignore(&unit);
155345e5710bSMark Peek     cleanup_until(&unit);
1554c80476e4SDavid E. O'Brien 
1555c80476e4SDavid E. O'Brien     (void) close_on_exec(unit, 1);
1556c80476e4SDavid E. O'Brien     srcunit(unit, onlyown, flag, av);
1557c80476e4SDavid E. O'Brien     return 1;
1558c80476e4SDavid E. O'Brien }
1559c80476e4SDavid E. O'Brien 
1560c80476e4SDavid E. O'Brien 
1561c80476e4SDavid E. O'Brien /*
1562c80476e4SDavid E. O'Brien  * Save the shell state, and establish new argument vector, and new input
1563c80476e4SDavid E. O'Brien  * fd.
1564c80476e4SDavid E. O'Brien  */
1565c80476e4SDavid E. O'Brien static void
156645e5710bSMark Peek st_save(struct saved_state *st, int unit, int hflg, Char **al, Char **av)
1567c80476e4SDavid E. O'Brien {
1568c80476e4SDavid E. O'Brien     st->insource	= insource;
1569c80476e4SDavid E. O'Brien     st->SHIN		= SHIN;
157029301572SMark Peek     /* Want to preserve the meaning of "source file >output".
157129301572SMark Peek      * Save old descriptors, move new 0,1,2 to safe places and assign
157229301572SMark Peek      * them to SH* and let process() redo 0,1,2 from them.
157329301572SMark Peek      *
157429301572SMark Peek      * The macro returns true if d1 and d2 are good and they point to
157529301572SMark Peek      * different things.  If you don't avoid saving duplicate
157629301572SMark Peek      * descriptors, you really limit the depth of "source" recursion
157729301572SMark Peek      * you can do because of all the open file descriptors.  -IAN!
157829301572SMark Peek      */
157929301572SMark Peek #define NEED_SAVE_FD(d1,d2) \
158029301572SMark Peek     (fstat(d1, &s1) != -1 && fstat(d2, &s2) != -1 \
158129301572SMark Peek 	&& (s1.st_ino != s2.st_ino || s1.st_dev != s2.st_dev) )
158229301572SMark Peek 
158329301572SMark Peek     st->OLDSTD = st->SHOUT = st->SHDIAG = -1;/* test later to restore these */
158429301572SMark Peek     if (didfds) {
158529301572SMark Peek 	    struct stat s1, s2;
158623338178SMark Peek 	    if (NEED_SAVE_FD(0,OLDSTD)) {
158723338178SMark Peek 		    st->OLDSTD = OLDSTD;
158823338178SMark Peek 		    OLDSTD = dmove(0, -1);
158923338178SMark Peek 		    (void)close_on_exec(OLDSTD, 1);
159023338178SMark Peek 	    }
159123338178SMark Peek 	    if (NEED_SAVE_FD(1,SHOUT)) {
159223338178SMark Peek 		    st->SHOUT = SHOUT;
159323338178SMark Peek 		    SHOUT = dmove(1, -1);
159423338178SMark Peek 		    (void)close_on_exec(SHOUT, 1);
159523338178SMark Peek 	    }
159623338178SMark Peek 	    if (NEED_SAVE_FD(2,SHDIAG)) {
159723338178SMark Peek 		    st->SHDIAG = SHDIAG;
159823338178SMark Peek 		    SHDIAG = dmove(2, -1);
159923338178SMark Peek 		    (void)close_on_exec(SHDIAG, 1);
160023338178SMark Peek 	    }
160129301572SMark Peek 	    donefds();
160229301572SMark Peek     }
160329301572SMark Peek 
1604c80476e4SDavid E. O'Brien     st->intty		= intty;
1605c80476e4SDavid E. O'Brien     st->whyles		= whyles;
1606c80476e4SDavid E. O'Brien     st->gointr		= gointr;
1607c80476e4SDavid E. O'Brien     st->arginp		= arginp;
1608c80476e4SDavid E. O'Brien     st->evalp		= evalp;
1609c80476e4SDavid E. O'Brien     st->evalvec		= evalvec;
1610c80476e4SDavid E. O'Brien     st->alvecp		= alvecp;
1611c80476e4SDavid E. O'Brien     st->alvec		= alvec;
1612c80476e4SDavid E. O'Brien     st->onelflg		= onelflg;
1613c80476e4SDavid E. O'Brien     st->enterhist	= enterhist;
1614a15e6f9aSMark Peek     st->justpr		= justpr;
1615c80476e4SDavid E. O'Brien     if (hflg)
1616c80476e4SDavid E. O'Brien 	st->HIST	= HIST;
1617c80476e4SDavid E. O'Brien     else
1618c80476e4SDavid E. O'Brien 	st->HIST	= '\0';
1619c80476e4SDavid E. O'Brien     st->cantell		= cantell;
1620c80476e4SDavid E. O'Brien     cpybin(st->B, B);
1621c80476e4SDavid E. O'Brien 
1622c80476e4SDavid E. O'Brien     /*
1623c80476e4SDavid E. O'Brien      * we can now pass arguments to source.
1624c80476e4SDavid E. O'Brien      * For compatibility we do that only if arguments were really
1625c80476e4SDavid E. O'Brien      * passed, otherwise we keep the old, global $argv like before.
1626c80476e4SDavid E. O'Brien      */
1627c80476e4SDavid E. O'Brien     if (av != NULL && *av != NULL) {
1628c80476e4SDavid E. O'Brien 	struct varent *vp;
162929301572SMark Peek 	if ((vp = adrof(STRargv)) != NULL && vp->vec != NULL)
1630c80476e4SDavid E. O'Brien 	    st->argv = saveblk(vp->vec);
1631c80476e4SDavid E. O'Brien 	else
1632c80476e4SDavid E. O'Brien 	    st->argv = NULL;
1633c80476e4SDavid E. O'Brien 	setq(STRargv, saveblk(av), &shvhed, VAR_READWRITE);
1634c80476e4SDavid E. O'Brien     }
1635c80476e4SDavid E. O'Brien     else
1636c80476e4SDavid E. O'Brien 	st->argv = NULL;
163745e5710bSMark Peek     st->av = av;
1638c80476e4SDavid E. O'Brien 
1639c80476e4SDavid E. O'Brien     SHIN	= unit;	/* Do this first */
1640c80476e4SDavid E. O'Brien 
1641c80476e4SDavid E. O'Brien     /* Establish new input arena */
1642c80476e4SDavid E. O'Brien     {
1643c80476e4SDavid E. O'Brien 	fbuf = NULL;
1644c80476e4SDavid E. O'Brien 	fseekp = feobp = fblocks = 0;
1645c80476e4SDavid E. O'Brien 	settell();
1646c80476e4SDavid E. O'Brien     }
1647c80476e4SDavid E. O'Brien 
1648c80476e4SDavid E. O'Brien     arginp	= 0;
1649c80476e4SDavid E. O'Brien     onelflg	= 0;
1650c80476e4SDavid E. O'Brien     intty	= isatty(SHIN);
1651c80476e4SDavid E. O'Brien     whyles	= 0;
1652c80476e4SDavid E. O'Brien     gointr	= 0;
1653c80476e4SDavid E. O'Brien     evalvec	= 0;
1654c80476e4SDavid E. O'Brien     evalp	= 0;
1655c80476e4SDavid E. O'Brien     alvec	= al;
1656c80476e4SDavid E. O'Brien     alvecp	= 0;
1657c80476e4SDavid E. O'Brien     enterhist	= hflg;
1658c80476e4SDavid E. O'Brien     if (enterhist)
1659c80476e4SDavid E. O'Brien 	HIST	= '\0';
1660c80476e4SDavid E. O'Brien     insource	= 1;
1661c80476e4SDavid E. O'Brien }
1662c80476e4SDavid E. O'Brien 
1663c80476e4SDavid E. O'Brien 
1664c80476e4SDavid E. O'Brien /*
1665c80476e4SDavid E. O'Brien  * Restore the shell to a saved state
1666c80476e4SDavid E. O'Brien  */
1667c80476e4SDavid E. O'Brien static void
166845e5710bSMark Peek st_restore(void *xst)
1669c80476e4SDavid E. O'Brien {
167045e5710bSMark Peek     struct saved_state *st;
167145e5710bSMark Peek 
167245e5710bSMark Peek     st = xst;
1673c80476e4SDavid E. O'Brien     if (st->SHIN == -1)
1674c80476e4SDavid E. O'Brien 	return;
1675c80476e4SDavid E. O'Brien 
1676c80476e4SDavid E. O'Brien     /* Reset input arena */
1677c80476e4SDavid E. O'Brien     {
167823338178SMark Peek 	int i;
167923338178SMark Peek 	Char** nfbuf = fbuf;
168023338178SMark Peek 	int nfblocks = fblocks;
1681c80476e4SDavid E. O'Brien 
1682c80476e4SDavid E. O'Brien 	fblocks = 0;
1683c80476e4SDavid E. O'Brien 	fbuf = NULL;
1684c80476e4SDavid E. O'Brien 	for (i = 0; i < nfblocks; i++)
168545e5710bSMark Peek 	    xfree(nfbuf[i]);
168645e5710bSMark Peek 	xfree(nfbuf);
1687c80476e4SDavid E. O'Brien     }
1688c80476e4SDavid E. O'Brien     cpybin(B, st->B);
1689c80476e4SDavid E. O'Brien 
169045e5710bSMark Peek     xclose(SHIN);
1691c80476e4SDavid E. O'Brien 
1692c80476e4SDavid E. O'Brien     insource	= st->insource;
1693c80476e4SDavid E. O'Brien     SHIN	= st->SHIN;
169429301572SMark Peek     if (st->OLDSTD != -1)
169545e5710bSMark Peek 	xclose(OLDSTD), OLDSTD = st->OLDSTD;
169629301572SMark Peek     if (st->SHOUT != -1)
169745e5710bSMark Peek 	xclose(SHOUT),  SHOUT = st->SHOUT;
169829301572SMark Peek     if (st->SHDIAG != -1)
169945e5710bSMark Peek 	xclose(SHDIAG), SHDIAG = st->SHDIAG;
1700c80476e4SDavid E. O'Brien     arginp	= st->arginp;
1701c80476e4SDavid E. O'Brien     onelflg	= st->onelflg;
1702c80476e4SDavid E. O'Brien     evalp	= st->evalp;
1703c80476e4SDavid E. O'Brien     evalvec	= st->evalvec;
1704c80476e4SDavid E. O'Brien     alvecp	= st->alvecp;
1705c80476e4SDavid E. O'Brien     alvec	= st->alvec;
1706c80476e4SDavid E. O'Brien     intty	= st->intty;
1707c80476e4SDavid E. O'Brien     whyles	= st->whyles;
1708c80476e4SDavid E. O'Brien     gointr	= st->gointr;
1709c80476e4SDavid E. O'Brien     if (st->HIST != '\0')
1710c80476e4SDavid E. O'Brien 	HIST	= st->HIST;
1711c80476e4SDavid E. O'Brien     enterhist	= st->enterhist;
1712c80476e4SDavid E. O'Brien     cantell	= st->cantell;
1713a15e6f9aSMark Peek     justpr	= st->justpr;
1714c80476e4SDavid E. O'Brien 
1715c80476e4SDavid E. O'Brien     if (st->argv != NULL)
1716c80476e4SDavid E. O'Brien 	setq(STRargv, st->argv, &shvhed, VAR_READWRITE);
171745e5710bSMark Peek     else if (st->av != NULL  && *st->av != NULL && adrof(STRargv) != NULL)
1718c80476e4SDavid E. O'Brien 	unsetv(STRargv);
1719c80476e4SDavid E. O'Brien }
1720c80476e4SDavid E. O'Brien 
1721c80476e4SDavid E. O'Brien /*
1722c80476e4SDavid E. O'Brien  * Source to a unit.  If onlyown it must be our file or our group or
1723c80476e4SDavid E. O'Brien  * we don't chance it.	This occurs on ".cshrc"s and the like.
1724c80476e4SDavid E. O'Brien  */
1725c80476e4SDavid E. O'Brien static void
172645e5710bSMark Peek srcunit(int unit, int onlyown, int hflg, Char **av)
1727c80476e4SDavid E. O'Brien {
1728c80476e4SDavid E. O'Brien     struct saved_state st;
172945e5710bSMark Peek 
1730c80476e4SDavid E. O'Brien     st.SHIN = -1;	/* st_restore checks this */
1731c80476e4SDavid E. O'Brien 
1732c80476e4SDavid E. O'Brien     if (unit < 0)
1733c80476e4SDavid E. O'Brien 	return;
1734c80476e4SDavid E. O'Brien 
1735c80476e4SDavid E. O'Brien     if (onlyown) {
1736c80476e4SDavid E. O'Brien 	struct stat stb;
1737c80476e4SDavid E. O'Brien 
1738c80476e4SDavid E. O'Brien 	if (fstat(unit, &stb) < 0) {
173945e5710bSMark Peek 	    xclose(unit);
1740c80476e4SDavid E. O'Brien 	    return;
1741c80476e4SDavid E. O'Brien 	}
1742c80476e4SDavid E. O'Brien     }
1743c80476e4SDavid E. O'Brien 
174445e5710bSMark Peek     /* Does nothing before st_save() because st.SHIN == -1 */
174545e5710bSMark Peek     cleanup_push(&st, st_restore);
174645e5710bSMark Peek     if (setintr) {
174745e5710bSMark Peek 	pintr_disabled++;
174845e5710bSMark Peek 	cleanup_push(&pintr_disabled, disabled_cleanup);
174945e5710bSMark Peek     }
1750c80476e4SDavid E. O'Brien 
1751c80476e4SDavid E. O'Brien     /* Save the current state and move us to a new state */
1752c80476e4SDavid E. O'Brien     st_save(&st, unit, hflg, NULL, av);
1753c80476e4SDavid E. O'Brien 
1754c80476e4SDavid E. O'Brien     /*
1755c80476e4SDavid E. O'Brien      * Now if we are allowing commands to be interrupted, we let ourselves be
1756c80476e4SDavid E. O'Brien      * interrupted.
1757c80476e4SDavid E. O'Brien      */
175845e5710bSMark Peek     if (setintr) {
175945e5710bSMark Peek 	cleanup_until(&pintr_disabled);
176045e5710bSMark Peek 	pintr_disabled++;
176145e5710bSMark Peek 	cleanup_push(&pintr_disabled, disabled_cleanup);
1762c80476e4SDavid E. O'Brien     }
1763c80476e4SDavid E. O'Brien 
176445e5710bSMark Peek     process(0);		/* 0 -> blow away on errors */
1765c80476e4SDavid E. O'Brien 
1766c80476e4SDavid E. O'Brien     /* Restore the old state */
176745e5710bSMark Peek     cleanup_until(&st);
1768c80476e4SDavid E. O'Brien }
1769c80476e4SDavid E. O'Brien 
1770c80476e4SDavid E. O'Brien 
1771c80476e4SDavid E. O'Brien /*ARGSUSED*/
1772c80476e4SDavid E. O'Brien void
177345e5710bSMark Peek goodbye(Char **v, struct command *c)
1774c80476e4SDavid E. O'Brien {
177523338178SMark Peek     USE(v);
1776c80476e4SDavid E. O'Brien     USE(c);
1777c80476e4SDavid E. O'Brien     record();
1778c80476e4SDavid E. O'Brien 
1779c80476e4SDavid E. O'Brien     if (loginsh) {
178045e5710bSMark Peek 	size_t omark;
178145e5710bSMark Peek 	sigset_t set;
178245e5710bSMark Peek 
1783a15e6f9aSMark Peek 	sigemptyset(&set);
178445e5710bSMark Peek 	signal(SIGQUIT, SIG_IGN);
178545e5710bSMark Peek 	sigaddset(&set, SIGQUIT);
178645e5710bSMark Peek 	sigprocmask(SIG_UNBLOCK, &set, NULL);
178745e5710bSMark Peek 	signal(SIGINT, SIG_IGN);
178845e5710bSMark Peek 	sigaddset(&set, SIGINT);
178945e5710bSMark Peek 	signal(SIGTERM, SIG_IGN);
179045e5710bSMark Peek 	sigaddset(&set, SIGTERM);
179145e5710bSMark Peek 	signal(SIGHUP, SIG_IGN);
179245e5710bSMark Peek 	sigaddset(&set, SIGHUP);
179345e5710bSMark Peek 	sigprocmask(SIG_UNBLOCK, &set, NULL);
179445e5710bSMark Peek 	phup_disabled = 1;
1795c80476e4SDavid E. O'Brien 	setintr = 0;		/* No interrupts after "logout" */
1796c80476e4SDavid E. O'Brien 	/* Trap errors inside .logout */
179745e5710bSMark Peek 	omark = cleanup_push_mark();
179845e5710bSMark Peek 	if (setexit() == 0) {
1799c80476e4SDavid E. O'Brien 	    if (!(adrof(STRlogout)))
180045e5710bSMark Peek 		setcopy(STRlogout, STRnormal, VAR_READWRITE);
1801c80476e4SDavid E. O'Brien #ifdef _PATH_DOTLOGOUT
1802c80476e4SDavid E. O'Brien 	    (void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL);
1803c80476e4SDavid E. O'Brien #endif
1804c80476e4SDavid E. O'Brien 	    if (adrof(STRhome))
1805c80476e4SDavid E. O'Brien 		(void) srccat(varval(STRhome), STRsldtlogout);
1806c80476e4SDavid E. O'Brien #ifdef TESLA
1807c80476e4SDavid E. O'Brien 	    do_logout = 1;
1808c80476e4SDavid E. O'Brien #endif /* TESLA */
1809c80476e4SDavid E. O'Brien 	}
181045e5710bSMark Peek 	cleanup_pop_mark(omark);
181145e5710bSMark Peek     }
1812c80476e4SDavid E. O'Brien     exitstat();
1813c80476e4SDavid E. O'Brien }
1814c80476e4SDavid E. O'Brien 
1815c80476e4SDavid E. O'Brien void
181645e5710bSMark Peek exitstat(void)
1817c80476e4SDavid E. O'Brien {
1818c80476e4SDavid E. O'Brien #ifdef PROF
18199ccc37e3SMark Peek     _mcleanup();
1820c80476e4SDavid E. O'Brien #endif
1821c80476e4SDavid E. O'Brien     /*
1822c80476e4SDavid E. O'Brien      * Note that if STATUS is corrupted (i.e. getn bombs) then error will exit
1823c80476e4SDavid E. O'Brien      * directly because we poke child here. Otherwise we might continue
1824c80476e4SDavid E. O'Brien      * unwarrantedly (sic).
1825c80476e4SDavid E. O'Brien      */
1826c80476e4SDavid E. O'Brien     child = 1;
1827c80476e4SDavid E. O'Brien 
1828c80476e4SDavid E. O'Brien     xexit(getn(varval(STRstatus)));
1829c80476e4SDavid E. O'Brien }
1830c80476e4SDavid E. O'Brien 
1831c80476e4SDavid E. O'Brien /*
1832c80476e4SDavid E. O'Brien  * in the event of a HUP we want to save the history
1833c80476e4SDavid E. O'Brien  */
183445e5710bSMark Peek void
183545e5710bSMark Peek phup(void)
1836c80476e4SDavid E. O'Brien {
1837c80476e4SDavid E. O'Brien     if (loginsh) {
183845e5710bSMark Peek 	setcopy(STRlogout, STRhangup, VAR_READWRITE);
1839c80476e4SDavid E. O'Brien #ifdef _PATH_DOTLOGOUT
1840c80476e4SDavid E. O'Brien 	(void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL);
1841c80476e4SDavid E. O'Brien #endif
1842c80476e4SDavid E. O'Brien 	if (adrof(STRhome))
1843c80476e4SDavid E. O'Brien 	    (void) srccat(varval(STRhome), STRsldtlogout);
1844c80476e4SDavid E. O'Brien     }
1845c80476e4SDavid E. O'Brien 
1846c80476e4SDavid E. O'Brien     record();
1847c80476e4SDavid E. O'Brien 
1848c80476e4SDavid E. O'Brien #ifdef POSIXJOBS
1849c80476e4SDavid E. O'Brien     /*
1850c80476e4SDavid E. O'Brien      * We kill the last foreground process group. It then becomes
1851c80476e4SDavid E. O'Brien      * responsible to propagate the SIGHUP to its progeny.
1852c80476e4SDavid E. O'Brien      */
1853c80476e4SDavid E. O'Brien     {
1854c80476e4SDavid E. O'Brien 	struct process *pp, *np;
1855c80476e4SDavid E. O'Brien 
1856c80476e4SDavid E. O'Brien 	for (pp = proclist.p_next; pp; pp = pp->p_next) {
1857c80476e4SDavid E. O'Brien 	    np = pp;
1858c80476e4SDavid E. O'Brien 	    /*
1859c80476e4SDavid E. O'Brien 	     * Find if this job is in the foreground. It could be that
1860c80476e4SDavid E. O'Brien 	     * the process leader has exited and the foreground flag
1861c80476e4SDavid E. O'Brien 	     * is cleared for it.
1862c80476e4SDavid E. O'Brien 	     */
1863c80476e4SDavid E. O'Brien 	    do
1864c80476e4SDavid E. O'Brien 		/*
1865c80476e4SDavid E. O'Brien 		 * If a process is in the foreground we try to kill
1866c80476e4SDavid E. O'Brien 		 * it's process group. If we succeed, then the
1867c80476e4SDavid E. O'Brien 		 * whole job is gone. Otherwise we keep going...
1868c80476e4SDavid E. O'Brien 		 * But avoid sending HUP to the shell again.
1869c80476e4SDavid E. O'Brien 		 */
1870c80476e4SDavid E. O'Brien 		if (((np->p_flags & PFOREGND) != 0) && np->p_jobid != shpgrp) {
1871c80476e4SDavid E. O'Brien 		    np->p_flags &= ~PHUP;
1872c80476e4SDavid E. O'Brien 		    if (killpg(np->p_jobid, SIGHUP) != -1) {
1873c80476e4SDavid E. O'Brien 			/* In case the job was suspended... */
1874c80476e4SDavid E. O'Brien #ifdef SIGCONT
1875c80476e4SDavid E. O'Brien 			(void) killpg(np->p_jobid, SIGCONT);
1876c80476e4SDavid E. O'Brien #endif
1877c80476e4SDavid E. O'Brien 			break;
1878c80476e4SDavid E. O'Brien 		    }
1879c80476e4SDavid E. O'Brien 		}
1880c80476e4SDavid E. O'Brien 	    while ((np = np->p_friends) != pp);
1881c80476e4SDavid E. O'Brien 	}
1882c80476e4SDavid E. O'Brien     }
1883c80476e4SDavid E. O'Brien #endif /* POSIXJOBS */
1884c80476e4SDavid E. O'Brien 
188545e5710bSMark Peek     xexit(SIGHUP);
1886c80476e4SDavid E. O'Brien }
1887c80476e4SDavid E. O'Brien 
1888c80476e4SDavid E. O'Brien static Char   *jobargv[2] = {STRjobs, 0};
1889c80476e4SDavid E. O'Brien 
1890c80476e4SDavid E. O'Brien /*
1891c80476e4SDavid E. O'Brien  * Catch an interrupt, e.g. during lexical input.
1892c80476e4SDavid E. O'Brien  * If we are an interactive shell, we reset the interrupt catch
1893c80476e4SDavid E. O'Brien  * immediately.  In any case we drain the shell output,
1894c80476e4SDavid E. O'Brien  * and finally go through the normal error mechanism, which
1895c80476e4SDavid E. O'Brien  * gets a chance to make the shell go away.
1896c80476e4SDavid E. O'Brien  */
1897c80476e4SDavid E. O'Brien int just_signaled;		/* bugfix by Michael Bloom (mg@ttidca.TTI.COM) */
1898c80476e4SDavid E. O'Brien 
189945e5710bSMark Peek void
190045e5710bSMark Peek pintr(void)
1901c80476e4SDavid E. O'Brien {
1902c80476e4SDavid E. O'Brien     just_signaled = 1;
1903c80476e4SDavid E. O'Brien     pintr1(1);
1904c80476e4SDavid E. O'Brien }
1905c80476e4SDavid E. O'Brien 
1906c80476e4SDavid E. O'Brien void
190745e5710bSMark Peek pintr1(int wantnl)
1908c80476e4SDavid E. O'Brien {
1909c80476e4SDavid E. O'Brien     if (setintr) {
1910c80476e4SDavid E. O'Brien 	if (pjobs) {
1911c80476e4SDavid E. O'Brien 	    pjobs = 0;
1912c80476e4SDavid E. O'Brien 	    xputchar('\n');
1913c80476e4SDavid E. O'Brien 	    dojobs(jobargv, NULL);
1914c80476e4SDavid E. O'Brien 	    stderror(ERR_NAME | ERR_INTR);
1915c80476e4SDavid E. O'Brien 	}
1916c80476e4SDavid E. O'Brien     }
1917c80476e4SDavid E. O'Brien     /* MH - handle interrupted completions specially */
1918c80476e4SDavid E. O'Brien     {
1919c80476e4SDavid E. O'Brien 	if (InsideCompletion)
1920c80476e4SDavid E. O'Brien 	    stderror(ERR_SILENT);
1921c80476e4SDavid E. O'Brien     }
1922c80476e4SDavid E. O'Brien     /* JV - Make sure we shut off inputl */
1923c80476e4SDavid E. O'Brien     {
1924c80476e4SDavid E. O'Brien 	(void) Cookedmode();
1925c80476e4SDavid E. O'Brien 	GettingInput = 0;
192619d2e3deSDmitry Chagin 	if (evalvec)
192719d2e3deSDmitry Chagin 	    doneinp = 1;
1928c80476e4SDavid E. O'Brien     }
1929c80476e4SDavid E. O'Brien     drainoline();
193023338178SMark Peek #ifdef HAVE_GETPWENT
1931c80476e4SDavid E. O'Brien     (void) endpwent();
193223338178SMark Peek #endif
1933c80476e4SDavid E. O'Brien 
1934c80476e4SDavid E. O'Brien     /*
1935c80476e4SDavid E. O'Brien      * If we have an active "onintr" then we search for the label. Note that if
1936c80476e4SDavid E. O'Brien      * one does "onintr -" then we shan't be interruptible so we needn't worry
1937c80476e4SDavid E. O'Brien      * about that here.
1938c80476e4SDavid E. O'Brien      */
1939c80476e4SDavid E. O'Brien     if (gointr) {
1940c80476e4SDavid E. O'Brien 	gotolab(gointr);
1941c80476e4SDavid E. O'Brien 	reset();
1942c80476e4SDavid E. O'Brien     }
1943c80476e4SDavid E. O'Brien     else if (intty && wantnl) {
1944c80476e4SDavid E. O'Brien 	if (editing) {
1945c80476e4SDavid E. O'Brien 	    /*
1946c80476e4SDavid E. O'Brien 	     * If we are editing a multi-line input command, and move to
1947c80476e4SDavid E. O'Brien 	     * the beginning of the line, we don't want to trash it when
1948c80476e4SDavid E. O'Brien 	     * we hit ^C
1949c80476e4SDavid E. O'Brien 	     */
1950c80476e4SDavid E. O'Brien 	    PastBottom();
1951c80476e4SDavid E. O'Brien 	    ClearLines();
1952c80476e4SDavid E. O'Brien 	    ClearDisp();
1953c80476e4SDavid E. O'Brien 	}
1954c80476e4SDavid E. O'Brien 	else {
1955c80476e4SDavid E. O'Brien 	    /* xputchar('\n'); *//* Some like this, others don't */
1956c80476e4SDavid E. O'Brien 	    (void) putraw('\r');
1957c80476e4SDavid E. O'Brien 	    (void) putraw('\n');
1958c80476e4SDavid E. O'Brien 	}
1959c80476e4SDavid E. O'Brien     }
1960c80476e4SDavid E. O'Brien     stderror(ERR_SILENT);
1961c80476e4SDavid E. O'Brien }
1962c80476e4SDavid E. O'Brien 
1963c80476e4SDavid E. O'Brien /*
1964c80476e4SDavid E. O'Brien  * Process is the main driving routine for the shell.
1965c80476e4SDavid E. O'Brien  * It runs all command processing, except for those within { ... }
1966c80476e4SDavid E. O'Brien  * in expressions (which is run by a routine evalav in sh.exp.c which
1967c80476e4SDavid E. O'Brien  * is a stripped down process), and `...` evaluation which is run
1968c80476e4SDavid E. O'Brien  * also by a subset of this code in sh.glob.c in the routine backeval.
1969c80476e4SDavid E. O'Brien  *
1970c80476e4SDavid E. O'Brien  * The code here is a little strange because part of it is interruptible
1971c80476e4SDavid E. O'Brien  * and hence freeing of structures appears to occur when none is necessary
1972c80476e4SDavid E. O'Brien  * if this is ignored.
1973c80476e4SDavid E. O'Brien  *
1974c80476e4SDavid E. O'Brien  * Note that if catch is not set then we will unwind on any error.
1975c80476e4SDavid E. O'Brien  * If an end-of-file occurs, we return.
1976c80476e4SDavid E. O'Brien  */
1977c80476e4SDavid E. O'Brien void
197845e5710bSMark Peek process(int catch)
1979c80476e4SDavid E. O'Brien {
1980c80476e4SDavid E. O'Brien     jmp_buf_t osetexit;
19819ccc37e3SMark Peek     /* PWP: This might get nuked by longjmp so don't make it a register var */
198245e5710bSMark Peek     size_t omark;
1983a15e6f9aSMark Peek     volatile int didexitset = 0;
1984c80476e4SDavid E. O'Brien 
1985c80476e4SDavid E. O'Brien     getexit(osetexit);
198645e5710bSMark Peek     omark = cleanup_push_mark();
1987c80476e4SDavid E. O'Brien     for (;;) {
198845e5710bSMark Peek 	struct command *t;
198945e5710bSMark Peek 	int hadhist, old_pintr_disabled;
1990c80476e4SDavid E. O'Brien 
199145e5710bSMark Peek 	(void)setexit();
1992a15e6f9aSMark Peek 	if (didexitset == 0) {
1993a15e6f9aSMark Peek 	    exitset++;
1994a15e6f9aSMark Peek 	    didexitset++;
1995a15e6f9aSMark Peek 	}
1996c80476e4SDavid E. O'Brien 	pendjob();
1997c80476e4SDavid E. O'Brien 
1998c80476e4SDavid E. O'Brien 	justpr = enterhist;	/* execute if not entering history */
1999c80476e4SDavid E. O'Brien 
2000c80476e4SDavid E. O'Brien 	if (haderr) {
2001c80476e4SDavid E. O'Brien 	    if (!catch) {
2002c80476e4SDavid E. O'Brien 		/* unwind */
2003c80476e4SDavid E. O'Brien 		doneinp = 0;
200445e5710bSMark Peek 		cleanup_pop_mark(omark);
2005c80476e4SDavid E. O'Brien 		resexit(osetexit);
2006c80476e4SDavid E. O'Brien 		reset();
2007c80476e4SDavid E. O'Brien 	    }
2008c80476e4SDavid E. O'Brien 	    haderr = 0;
2009c80476e4SDavid E. O'Brien 	    /*
2010c80476e4SDavid E. O'Brien 	     * Every error is eventually caught here or the shell dies.  It is
2011c80476e4SDavid E. O'Brien 	     * at this point that we clean up any left-over open files, by
2012c80476e4SDavid E. O'Brien 	     * closing all but a fixed number of pre-defined files.  Thus
2013c80476e4SDavid E. O'Brien 	     * routines don't have to worry about leaving files open due to
2014c80476e4SDavid E. O'Brien 	     * deeper errors... they will get closed here.
2015c80476e4SDavid E. O'Brien 	     */
2016c80476e4SDavid E. O'Brien 	    closem();
2017c80476e4SDavid E. O'Brien 	    continue;
2018c80476e4SDavid E. O'Brien 	}
2019c80476e4SDavid E. O'Brien 	if (doneinp) {
2020c80476e4SDavid E. O'Brien 	    doneinp = 0;
2021c80476e4SDavid E. O'Brien 	    break;
2022c80476e4SDavid E. O'Brien 	}
2023c80476e4SDavid E. O'Brien 	if (chkstop)
2024c80476e4SDavid E. O'Brien 	    chkstop--;
2025c80476e4SDavid E. O'Brien 	if (neednote)
2026c80476e4SDavid E. O'Brien 	    pnote();
2027c80476e4SDavid E. O'Brien 	if (intty && prompt && evalvec == 0) {
2028c80476e4SDavid E. O'Brien 	    just_signaled = 0;
2029c80476e4SDavid E. O'Brien 	    mailchk();
2030c80476e4SDavid E. O'Brien 	    /*
2031c80476e4SDavid E. O'Brien 	     * Watch for logins/logouts. Next is scheduled commands stored
2032c80476e4SDavid E. O'Brien 	     * previously using "sched." Then execute periodic commands.
2033c80476e4SDavid E. O'Brien 	     * Following that, the prompt precmd is run.
2034c80476e4SDavid E. O'Brien 	     */
2035c80476e4SDavid E. O'Brien #ifndef HAVENOUTMP
2036c80476e4SDavid E. O'Brien 	    watch_login(0);
2037c80476e4SDavid E. O'Brien #endif /* !HAVENOUTMP */
203845e5710bSMark Peek 	    sched_run();
2039c80476e4SDavid E. O'Brien 	    period_cmd();
2040c80476e4SDavid E. O'Brien 	    precmd();
2041c80476e4SDavid E. O'Brien 	    /*
2042c80476e4SDavid E. O'Brien 	     * If we are at the end of the input buffer then we are going to
2043c80476e4SDavid E. O'Brien 	     * read fresh stuff. Otherwise, we are rereading input and don't
2044c80476e4SDavid E. O'Brien 	     * need or want to prompt.
2045c80476e4SDavid E. O'Brien 	     */
20463b6eaa7bSAndrey A. Chernov 	    if (fseekp == feobp && aret == TCSH_F_SEEK)
2047c80476e4SDavid E. O'Brien 		printprompt(0, NULL);
2048c80476e4SDavid E. O'Brien 	    flush();
2049c80476e4SDavid E. O'Brien 	    setalarm(1);
2050c80476e4SDavid E. O'Brien 	}
2051c80476e4SDavid E. O'Brien 	if (seterr) {
205245e5710bSMark Peek 	    xfree(seterr);
2053c80476e4SDavid E. O'Brien 	    seterr = NULL;
2054c80476e4SDavid E. O'Brien 	}
2055c80476e4SDavid E. O'Brien 
2056c80476e4SDavid E. O'Brien 	/*
205745e5710bSMark Peek 	 * Interruptible during interactive reads
205845e5710bSMark Peek 	 */
205945e5710bSMark Peek 	if (setintr)
206045e5710bSMark Peek 	    pintr_push_enable(&old_pintr_disabled);
206119d2e3deSDmitry Chagin 	freelex(&paraml);
206245e5710bSMark Peek 	hadhist = lex(&paraml);
206345e5710bSMark Peek 	if (setintr)
206445e5710bSMark Peek 	    cleanup_until(&old_pintr_disabled);
206545e5710bSMark Peek 	cleanup_push(&paraml, lex_cleanup);
206645e5710bSMark Peek 
206745e5710bSMark Peek 	/*
2068c80476e4SDavid E. O'Brien 	 * Echo not only on VERBOSE, but also with history expansion. If there
2069c80476e4SDavid E. O'Brien 	 * is a lexical error then we forego history echo.
20709ccc37e3SMark Peek 	 * Do not echo if we're only entering history (source -h).
2071c80476e4SDavid E. O'Brien 	 */
207245e5710bSMark Peek 	if ((hadhist && !seterr && intty && !tellwhat && !Expand && !whyles) ||
20739ccc37e3SMark Peek 	    (!enterhist && adrof(STRverbose)))
20749ccc37e3SMark Peek 	{
207529301572SMark Peek 	    int odidfds = didfds;
2076c80476e4SDavid E. O'Brien 	    haderr = 1;
207729301572SMark Peek 	    didfds = 0;
2078c80476e4SDavid E. O'Brien 	    prlex(&paraml);
207929301572SMark Peek 	    flush();
2080c80476e4SDavid E. O'Brien 	    haderr = 0;
208129301572SMark Peek 	    didfds = odidfds;
2082c80476e4SDavid E. O'Brien 	}
2083c80476e4SDavid E. O'Brien 	(void) alarm(0);	/* Autologout OFF */
208445e5710bSMark Peek 	alrmcatch_disabled = 1;
2085c80476e4SDavid E. O'Brien 
2086c80476e4SDavid E. O'Brien 	/*
2087c80476e4SDavid E. O'Brien 	 * Save input text on the history list if reading in old history, or it
2088c80476e4SDavid E. O'Brien 	 * is from the terminal at the top level and not in a loop.
2089c80476e4SDavid E. O'Brien 	 *
2090c80476e4SDavid E. O'Brien 	 * PWP: entry of items in the history list while in a while loop is done
2091c80476e4SDavid E. O'Brien 	 * elsewhere...
2092c80476e4SDavid E. O'Brien 	 */
2093c80476e4SDavid E. O'Brien 	if (enterhist || (catch && intty && !whyles && !tellwhat && !arun))
2094c80476e4SDavid E. O'Brien 	    savehist(&paraml, enterhist > 1);
2095c80476e4SDavid E. O'Brien 
2096c80476e4SDavid E. O'Brien 	if (Expand && seterr)
2097c80476e4SDavid E. O'Brien 	    Expand = 0;
2098c80476e4SDavid E. O'Brien 
2099c80476e4SDavid E. O'Brien 	/*
2100c80476e4SDavid E. O'Brien 	 * Print lexical error messages, except when sourcing history lists.
2101c80476e4SDavid E. O'Brien 	 */
2102c80476e4SDavid E. O'Brien 	if (!enterhist && seterr)
2103c80476e4SDavid E. O'Brien 	    stderror(ERR_OLD);
2104c80476e4SDavid E. O'Brien 
2105c80476e4SDavid E. O'Brien 	/*
2106c80476e4SDavid E. O'Brien 	 * If had a history command :p modifier then this is as far as we
2107c80476e4SDavid E. O'Brien 	 * should go
2108c80476e4SDavid E. O'Brien 	 */
2109c80476e4SDavid E. O'Brien 	if (justpr)
211045e5710bSMark Peek 	    goto cmd_done;
2111c80476e4SDavid E. O'Brien 
2112c80476e4SDavid E. O'Brien 	/*
2113c80476e4SDavid E. O'Brien 	 * If had a tellwhat from twenex() then do
2114c80476e4SDavid E. O'Brien 	 */
2115c80476e4SDavid E. O'Brien 	if (tellwhat) {
2116c80476e4SDavid E. O'Brien 	    (void) tellmewhat(&paraml, NULL);
211745e5710bSMark Peek 	    goto cmd_done;
2118c80476e4SDavid E. O'Brien 	}
2119c80476e4SDavid E. O'Brien 
2120c80476e4SDavid E. O'Brien 	alias(&paraml);
2121c80476e4SDavid E. O'Brien 
2122c80476e4SDavid E. O'Brien #ifdef BSDJOBS
2123c80476e4SDavid E. O'Brien 	/*
2124c80476e4SDavid E. O'Brien 	 * If we are interactive, try to continue jobs that we have stopped
2125c80476e4SDavid E. O'Brien 	 */
2126c80476e4SDavid E. O'Brien 	if (prompt)
2127c80476e4SDavid E. O'Brien 	    continue_jobs(&paraml);
2128c80476e4SDavid E. O'Brien #endif				/* BSDJOBS */
2129c80476e4SDavid E. O'Brien 
2130c80476e4SDavid E. O'Brien 	/*
2131c80476e4SDavid E. O'Brien 	 * Check to see if the user typed "rm * .o" or something
2132c80476e4SDavid E. O'Brien 	 */
2133c80476e4SDavid E. O'Brien 	if (prompt)
2134c80476e4SDavid E. O'Brien 	    rmstar(&paraml);
2135c80476e4SDavid E. O'Brien 	/*
2136c80476e4SDavid E. O'Brien 	 * Parse the words of the input into a parse tree.
2137c80476e4SDavid E. O'Brien 	 */
213845e5710bSMark Peek 	t = syntax(paraml.next, &paraml, 0);
21399ccc37e3SMark Peek 	/*
21409ccc37e3SMark Peek 	 * We cannot cleanup push here, because cd /blah; echo foo
21419ccc37e3SMark Peek 	 * would rewind t on the chdir error, and free the rest of the command
21429ccc37e3SMark Peek 	 */
21439ccc37e3SMark Peek 	if (seterr) {
21449ccc37e3SMark Peek 	    freesyn(t);
2145c80476e4SDavid E. O'Brien 	    stderror(ERR_OLD);
21469ccc37e3SMark Peek 	}
2147c80476e4SDavid E. O'Brien 
2148c80476e4SDavid E. O'Brien 	postcmd();
2149c80476e4SDavid E. O'Brien 	/*
2150c80476e4SDavid E. O'Brien 	 * Execute the parse tree From: Michael Schroeder
2151c80476e4SDavid E. O'Brien 	 * <mlschroe@immd4.informatik.uni-erlangen.de> was execute(t, tpgrp);
2152c80476e4SDavid E. O'Brien 	 */
215345e5710bSMark Peek 	execute(t, (tpgrp > 0 ? tpgrp : -1), NULL, NULL, TRUE);
21549ccc37e3SMark Peek 	freesyn(t);
2155c80476e4SDavid E. O'Brien 
2156c80476e4SDavid E. O'Brien 	/*
2157c80476e4SDavid E. O'Brien 	 * Made it!
2158c80476e4SDavid E. O'Brien 	 */
2159c80476e4SDavid E. O'Brien #ifdef SIG_WINDOW
216029301572SMark Peek 	if (windowchg || (catch && intty && !whyles && !tellwhat)) {
216129301572SMark Peek 	    (void) check_window_size(0);	/* for window systems */
216229301572SMark Peek 	}
2163c80476e4SDavid E. O'Brien #endif /* SIG_WINDOW */
216445e5710bSMark Peek 	setcopy(STR_, InputBuf, VAR_READWRITE | VAR_NOGLOB);
216545e5710bSMark Peek     cmd_done:
21669ccc37e3SMark Peek 	if (cleanup_reset())
216745e5710bSMark Peek 	    cleanup_until(&paraml);
21689ccc37e3SMark Peek 	else
21699ccc37e3SMark Peek 	    haderr = 1;
2170c80476e4SDavid E. O'Brien     }
217145e5710bSMark Peek     cleanup_pop_mark(omark);
2172c80476e4SDavid E. O'Brien     resexit(osetexit);
2173a15e6f9aSMark Peek     exitset--;
21749ccc37e3SMark Peek     handle_pending_signals();
2175c80476e4SDavid E. O'Brien }
2176c80476e4SDavid E. O'Brien 
2177c80476e4SDavid E. O'Brien /*ARGSUSED*/
2178c80476e4SDavid E. O'Brien void
217945e5710bSMark Peek dosource(Char **t, struct command *c)
2180c80476e4SDavid E. O'Brien {
218123338178SMark Peek     Char *f;
218223338178SMark Peek     int    hflg = 0;
218345e5710bSMark Peek     char *file;
2184c80476e4SDavid E. O'Brien 
2185c80476e4SDavid E. O'Brien     USE(c);
2186c80476e4SDavid E. O'Brien     t++;
2187c80476e4SDavid E. O'Brien     if (*t && eq(*t, STRmh)) {
2188c80476e4SDavid E. O'Brien 	if (*++t == NULL)
2189c80476e4SDavid E. O'Brien 	    stderror(ERR_NAME | ERR_HFLAG);
2190c80476e4SDavid E. O'Brien 	hflg++;
2191c80476e4SDavid E. O'Brien     }
2192c80476e4SDavid E. O'Brien     else if (*t && eq(*t, STRmm)) {
2193c80476e4SDavid E. O'Brien     	if (*++t == NULL)
2194c80476e4SDavid E. O'Brien 	    stderror(ERR_NAME | ERR_MFLAG);
2195c80476e4SDavid E. O'Brien 	hflg = 2;
2196c80476e4SDavid E. O'Brien     }
2197c80476e4SDavid E. O'Brien 
2198c80476e4SDavid E. O'Brien     f = globone(*t++, G_ERROR);
219945e5710bSMark Peek     file = strsave(short2str(f));
220045e5710bSMark Peek     cleanup_push(file, xfree);
220145e5710bSMark Peek     xfree(f);
220245e5710bSMark Peek     t = glob_all_or_error(t);
220319d2e3deSDmitry Chagin     cleanup_push(t, blk_cleanup);
220445e5710bSMark Peek     if ((!srcfile(file, 0, hflg, t)) && (!hflg) && (!bequiet))
220545e5710bSMark Peek 	stderror(ERR_SYSTEM, file, strerror(errno));
220645e5710bSMark Peek     cleanup_until(file);
2207c80476e4SDavid E. O'Brien }
2208c80476e4SDavid E. O'Brien 
2209c80476e4SDavid E. O'Brien /*
2210c80476e4SDavid E. O'Brien  * Check for mail.
2211c80476e4SDavid E. O'Brien  * If we are a login shell, then we don't want to tell
2212c80476e4SDavid E. O'Brien  * about any mail file unless its been modified
2213c80476e4SDavid E. O'Brien  * after the time we started.
2214c80476e4SDavid E. O'Brien  * This prevents us from telling the user things he already
2215c80476e4SDavid E. O'Brien  * knows, since the login program insists on saying
2216c80476e4SDavid E. O'Brien  * "You have mail."
2217c80476e4SDavid E. O'Brien  */
2218c80476e4SDavid E. O'Brien 
2219c80476e4SDavid E. O'Brien /*
2220c80476e4SDavid E. O'Brien  * The AMS version.
2221c80476e4SDavid E. O'Brien  * This version checks if the file is a directory, and if so,
2222c80476e4SDavid E. O'Brien  * tells you the number of files in it, otherwise do the old thang.
2223c80476e4SDavid E. O'Brien  * The magic "+1" in the time calculation is to compensate for
2224c80476e4SDavid E. O'Brien  * an AFS bug where directory mtimes are set to 1 second in
2225c80476e4SDavid E. O'Brien  * the future.
2226c80476e4SDavid E. O'Brien  */
2227c80476e4SDavid E. O'Brien 
2228c80476e4SDavid E. O'Brien static void
222945e5710bSMark Peek mailchk(void)
2230c80476e4SDavid E. O'Brien {
223123338178SMark Peek     struct varent *v;
223223338178SMark Peek     Char **vp;
2233c80476e4SDavid E. O'Brien     time_t  t;
2234c80476e4SDavid E. O'Brien     int     intvl, cnt;
2235c80476e4SDavid E. O'Brien     struct stat stb;
223623338178SMark Peek     int    new;
2237c80476e4SDavid E. O'Brien 
2238c80476e4SDavid E. O'Brien     v = adrof(STRmail);
223929301572SMark Peek     if (v == NULL || v->vec == NULL)
2240c80476e4SDavid E. O'Brien 	return;
2241c80476e4SDavid E. O'Brien     (void) time(&t);
2242c80476e4SDavid E. O'Brien     vp = v->vec;
2243c80476e4SDavid E. O'Brien     cnt = blklen(vp);
2244c80476e4SDavid E. O'Brien     intvl = (cnt && number(*vp)) ? (--cnt, getn(*vp++)) : MAILINTVL;
2245c80476e4SDavid E. O'Brien     if (intvl < 1)
2246c80476e4SDavid E. O'Brien 	intvl = 1;
2247c80476e4SDavid E. O'Brien     if (chktim + intvl > t)
2248c80476e4SDavid E. O'Brien 	return;
2249c80476e4SDavid E. O'Brien     for (; *vp; vp++) {
2250c80476e4SDavid E. O'Brien 	char *filename = short2str(*vp);
2251c80476e4SDavid E. O'Brien 	char *mboxdir = filename;
2252c80476e4SDavid E. O'Brien 
2253c80476e4SDavid E. O'Brien 	if (stat(filename, &stb) < 0)
2254c80476e4SDavid E. O'Brien 	    continue;
2255c80476e4SDavid E. O'Brien #if defined(BSDTIMES) || defined(_SEQUENT_)
2256c80476e4SDavid E. O'Brien 	new = stb.st_mtime > time0.tv_sec;
2257c80476e4SDavid E. O'Brien #else
22588e66bd9eSDavid E. O'Brien 	new = stb.st_mtime > seconds0;
2259c80476e4SDavid E. O'Brien #endif
2260c80476e4SDavid E. O'Brien 	if (S_ISDIR(stb.st_mode)) {
2261c80476e4SDavid E. O'Brien 	    DIR *mailbox;
2262c80476e4SDavid E. O'Brien 	    int mailcount = 0;
226345e5710bSMark Peek 	    char *tempfilename;
2264c80476e4SDavid E. O'Brien 	    struct stat stc;
2265c80476e4SDavid E. O'Brien 
226645e5710bSMark Peek 	    tempfilename = xasprintf("%s/new", filename);
2267c80476e4SDavid E. O'Brien 
2268c80476e4SDavid E. O'Brien 	    if (stat(tempfilename, &stc) != -1 && S_ISDIR(stc.st_mode)) {
2269c80476e4SDavid E. O'Brien 		/*
2270c80476e4SDavid E. O'Brien 		 * "filename/new" exists and is a directory; you are
2271c80476e4SDavid E. O'Brien 		 * using Qmail.
2272c80476e4SDavid E. O'Brien 		 */
2273c80476e4SDavid E. O'Brien 		stb = stc;
2274c80476e4SDavid E. O'Brien #if defined(BSDTIMES) || defined(_SEQUENT_)
2275c80476e4SDavid E. O'Brien 		new = stb.st_mtime > time0.tv_sec;
2276c80476e4SDavid E. O'Brien #else
22778e66bd9eSDavid E. O'Brien 		new = stb.st_mtime > seconds0;
2278c80476e4SDavid E. O'Brien #endif
2279c80476e4SDavid E. O'Brien 		mboxdir = tempfilename;
2280c80476e4SDavid E. O'Brien 	    }
2281c80476e4SDavid E. O'Brien 
228245e5710bSMark Peek 	    if (stb.st_mtime <= chktim + 1 || (loginsh && !new)) {
228345e5710bSMark Peek 		xfree(tempfilename);
2284c80476e4SDavid E. O'Brien 		continue;
228545e5710bSMark Peek 	    }
2286c80476e4SDavid E. O'Brien 
228745e5710bSMark Peek 	    mailbox = opendir(mboxdir);
228845e5710bSMark Peek 	    xfree(tempfilename);
228945e5710bSMark Peek 	    if (mailbox == NULL)
2290c80476e4SDavid E. O'Brien 		continue;
2291c80476e4SDavid E. O'Brien 
2292c80476e4SDavid E. O'Brien 	    /* skip . and .. */
22939ccc37e3SMark Peek 	    if (!readdir(mailbox) || !readdir(mailbox)) {
22949ccc37e3SMark Peek 		(void)closedir(mailbox);
2295c80476e4SDavid E. O'Brien 		continue;
22969ccc37e3SMark Peek 	    }
2297c80476e4SDavid E. O'Brien 
2298c80476e4SDavid E. O'Brien 	    while (readdir(mailbox))
2299c80476e4SDavid E. O'Brien 		mailcount++;
2300c80476e4SDavid E. O'Brien 
23019ccc37e3SMark Peek 	    (void)closedir(mailbox);
2302c80476e4SDavid E. O'Brien 	    if (mailcount == 0)
2303c80476e4SDavid E. O'Brien 		continue;
2304c80476e4SDavid E. O'Brien 
2305c80476e4SDavid E. O'Brien 	    if (cnt == 1)
2306c80476e4SDavid E. O'Brien 		xprintf(CGETS(11, 3, "You have %d mail messages.\n"),
2307c80476e4SDavid E. O'Brien 			mailcount);
2308c80476e4SDavid E. O'Brien 	    else
2309c80476e4SDavid E. O'Brien 		xprintf(CGETS(11, 4, "You have %d mail messages in %s.\n"),
2310c80476e4SDavid E. O'Brien 			mailcount, filename);
2311c80476e4SDavid E. O'Brien 	}
2312c80476e4SDavid E. O'Brien 	else {
231323338178SMark Peek 	    char *type;
231423338178SMark Peek 
23159ccc37e3SMark Peek 	    if (stb.st_size == 0 || stb.st_atime >= stb.st_mtime ||
2316c80476e4SDavid E. O'Brien 		(stb.st_atime <= chktim && stb.st_mtime <= chktim) ||
2317c80476e4SDavid E. O'Brien 		(loginsh && !new))
2318c80476e4SDavid E. O'Brien 		continue;
231923338178SMark Peek 	    type = strsave(new ? CGETS(11, 6, "new ") : "");
232045e5710bSMark Peek 	    cleanup_push(type, xfree);
2321c80476e4SDavid E. O'Brien 	    if (cnt == 1)
232223338178SMark Peek 		xprintf(CGETS(11, 5, "You have %smail.\n"), type);
2323c80476e4SDavid E. O'Brien 	    else
232423338178SMark Peek 	        xprintf(CGETS(11, 7, "You have %smail in %s.\n"), type, filename);
232545e5710bSMark Peek 	    cleanup_until(type);
2326c80476e4SDavid E. O'Brien 	}
2327c80476e4SDavid E. O'Brien     }
2328c80476e4SDavid E. O'Brien     chktim = t;
2329c80476e4SDavid E. O'Brien }
2330c80476e4SDavid E. O'Brien 
2331c80476e4SDavid E. O'Brien /*
2332c80476e4SDavid E. O'Brien  * Extract a home directory from the password file
2333c80476e4SDavid E. O'Brien  * The argument points to a buffer where the name of the
2334c80476e4SDavid E. O'Brien  * user whose home directory is sought is currently.
233545e5710bSMark Peek  * We return home directory of the user, or NULL.
2336c80476e4SDavid E. O'Brien  */
233745e5710bSMark Peek Char *
233845e5710bSMark Peek gethdir(const Char *home)
2339c80476e4SDavid E. O'Brien {
2340c80476e4SDavid E. O'Brien     Char   *h;
2341c80476e4SDavid E. O'Brien 
2342c80476e4SDavid E. O'Brien     /*
2343c80476e4SDavid E. O'Brien      * Is it us?
2344c80476e4SDavid E. O'Brien      */
2345c80476e4SDavid E. O'Brien     if (*home == '\0') {
234645e5710bSMark Peek 	if ((h = varval(STRhome)) != STRNULL)
234745e5710bSMark Peek 	    return Strsave(h);
2348c80476e4SDavid E. O'Brien 	else
234945e5710bSMark Peek 	    return NULL;
2350c80476e4SDavid E. O'Brien     }
2351c80476e4SDavid E. O'Brien 
2352c80476e4SDavid E. O'Brien     /*
2353c80476e4SDavid E. O'Brien      * Look in the cache
2354c80476e4SDavid E. O'Brien      */
2355c80476e4SDavid E. O'Brien     if ((h = gettilde(home)) == NULL)
235645e5710bSMark Peek 	return NULL;
235745e5710bSMark Peek     else
235845e5710bSMark Peek 	return Strsave(h);
2359c80476e4SDavid E. O'Brien }
2360c80476e4SDavid E. O'Brien 
2361c80476e4SDavid E. O'Brien /*
2362c80476e4SDavid E. O'Brien  * Move the initial descriptors to their eventual
2363c80476e4SDavid E. O'Brien  * resting places, closing all other units.
2364c80476e4SDavid E. O'Brien  */
2365c80476e4SDavid E. O'Brien void
236645e5710bSMark Peek initdesc(void)
2367c80476e4SDavid E. O'Brien {
2368c80476e4SDavid E. O'Brien #ifdef NLS_BUGS
2369c80476e4SDavid E. O'Brien #ifdef NLS_CATALOGS
237023338178SMark Peek     nlsclose();
2371c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS */
2372c80476e4SDavid E. O'Brien #endif /* NLS_BUGS */
2373c80476e4SDavid E. O'Brien 
2374c80476e4SDavid E. O'Brien 
2375c80476e4SDavid E. O'Brien     didfds = 0;			/* 0, 1, 2 aren't set up */
2376c80476e4SDavid E. O'Brien     (void) close_on_exec(SHIN = dcopy(0, FSHIN), 1);
2377c80476e4SDavid E. O'Brien     (void) close_on_exec(SHOUT = dcopy(1, FSHOUT), 1);
2378c80476e4SDavid E. O'Brien     (void) close_on_exec(SHDIAG = dcopy(2, FSHDIAG), 1);
2379c80476e4SDavid E. O'Brien     (void) close_on_exec(OLDSTD = dcopy(SHIN, FOLDSTD), 1);
2380c80476e4SDavid E. O'Brien #ifndef CLOSE_ON_EXEC
2381c80476e4SDavid E. O'Brien     didcch = 0;			/* Havent closed for child */
2382c80476e4SDavid E. O'Brien #endif /* CLOSE_ON_EXEC */
23839ccc37e3SMark Peek     if (SHDIAG >= 0)
2384c80476e4SDavid E. O'Brien 	isdiagatty = isatty(SHDIAG);
23859ccc37e3SMark Peek     else
23869ccc37e3SMark Peek     	isdiagatty = 0;
23879ccc37e3SMark Peek     if (SHDIAG >= 0)
2388c80476e4SDavid E. O'Brien 	isoutatty = isatty(SHOUT);
23899ccc37e3SMark Peek     else
23909ccc37e3SMark Peek     	isoutatty = 0;
2391c80476e4SDavid E. O'Brien #ifdef NLS_BUGS
2392c80476e4SDavid E. O'Brien #ifdef NLS_CATALOGS
2393c80476e4SDavid E. O'Brien     nlsinit();
2394c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS */
2395c80476e4SDavid E. O'Brien #endif /* NLS_BUGS */
2396c80476e4SDavid E. O'Brien }
2397c80476e4SDavid E. O'Brien 
2398c80476e4SDavid E. O'Brien 
2399c80476e4SDavid E. O'Brien void
2400c80476e4SDavid E. O'Brien #ifdef PROF
240145e5710bSMark Peek done(int i)
2402c80476e4SDavid E. O'Brien #else
240345e5710bSMark Peek xexit(int i)
2404c80476e4SDavid E. O'Brien #endif
2405c80476e4SDavid E. O'Brien {
2406c80476e4SDavid E. O'Brien #ifdef TESLA
2407c80476e4SDavid E. O'Brien     if (loginsh && do_logout) {
2408c80476e4SDavid E. O'Brien 	/* this is to send hangup signal to the develcon */
2409c80476e4SDavid E. O'Brien 	/* we toggle DTR. clear dtr - sleep 1 - set dtr */
2410c80476e4SDavid E. O'Brien 	/* ioctl will return ENOTTY for pty's but we ignore it 	 */
2411c80476e4SDavid E. O'Brien 	/* exitstat will run after disconnect */
2412c80476e4SDavid E. O'Brien 	/* we sleep for 2 seconds to let things happen in */
2413c80476e4SDavid E. O'Brien 	/* .logout and rechist() */
2414c80476e4SDavid E. O'Brien #ifdef TIOCCDTR
2415c80476e4SDavid E. O'Brien 	(void) sleep(2);
2416c80476e4SDavid E. O'Brien 	(void) ioctl(FSHTTY, TIOCCDTR, NULL);
2417c80476e4SDavid E. O'Brien 	(void) sleep(1);
2418c80476e4SDavid E. O'Brien 	(void) ioctl(FSHTTY, TIOCSDTR, NULL);
2419c80476e4SDavid E. O'Brien #endif /* TIOCCDTR */
2420c80476e4SDavid E. O'Brien     }
2421c80476e4SDavid E. O'Brien #endif /* TESLA */
2422c80476e4SDavid E. O'Brien 
2423c80476e4SDavid E. O'Brien     {
2424c80476e4SDavid E. O'Brien 	struct process *pp, *np;
24259ccc37e3SMark Peek 	pid_t mypid = getpid();
2426c80476e4SDavid E. O'Brien 	/* Kill all processes marked for hup'ing */
2427c80476e4SDavid E. O'Brien 	for (pp = proclist.p_next; pp; pp = pp->p_next) {
2428c80476e4SDavid E. O'Brien 	    np = pp;
2429c80476e4SDavid E. O'Brien 	    do
24309ccc37e3SMark Peek 		if ((np->p_flags & PHUP) && np->p_jobid != shpgrp &&
24319ccc37e3SMark Peek 		    np->p_parentid == mypid) {
2432c80476e4SDavid E. O'Brien 		    if (killpg(np->p_jobid, SIGHUP) != -1) {
2433c80476e4SDavid E. O'Brien 			/* In case the job was suspended... */
2434c80476e4SDavid E. O'Brien #ifdef SIGCONT
2435c80476e4SDavid E. O'Brien 			(void) killpg(np->p_jobid, SIGCONT);
2436c80476e4SDavid E. O'Brien #endif
2437c80476e4SDavid E. O'Brien 			break;
2438c80476e4SDavid E. O'Brien 		    }
2439c80476e4SDavid E. O'Brien 		}
2440c80476e4SDavid E. O'Brien 	    while ((np = np->p_friends) != pp);
2441c80476e4SDavid E. O'Brien 	}
2442c80476e4SDavid E. O'Brien     }
2443c80476e4SDavid E. O'Brien     untty();
2444c80476e4SDavid E. O'Brien #ifdef NLS_CATALOGS
2445c80476e4SDavid E. O'Brien     /*
2446c80476e4SDavid E. O'Brien      * We need to call catclose, because SVR4 leaves symlinks behind otherwise
2447c80476e4SDavid E. O'Brien      * in the catalog directories. We cannot close on a vforked() child,
2448c80476e4SDavid E. O'Brien      * because messages will stop working on the parent too.
2449c80476e4SDavid E. O'Brien      */
2450c80476e4SDavid E. O'Brien     if (child == 0)
245123338178SMark Peek 	nlsclose();
2452c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS */
24533b6eaa7bSAndrey A. Chernov #ifdef WINNT_NATIVE
2454c80476e4SDavid E. O'Brien     nt_cleanup();
24553b6eaa7bSAndrey A. Chernov #endif /* WINNT_NATIVE */
2456c80476e4SDavid E. O'Brien     _exit(i);
2457c80476e4SDavid E. O'Brien }
2458c80476e4SDavid E. O'Brien 
2459c80476e4SDavid E. O'Brien #ifndef _PATH_DEFPATH
2460c80476e4SDavid E. O'Brien static Char **
246145e5710bSMark Peek defaultpath(void)
2462c80476e4SDavid E. O'Brien {
2463c80476e4SDavid E. O'Brien     char   *ptr;
2464c80476e4SDavid E. O'Brien     Char  **blk, **blkp;
2465c80476e4SDavid E. O'Brien     struct stat stb;
2466c80476e4SDavid E. O'Brien 
246745e5710bSMark Peek     blkp = blk = xmalloc(sizeof(Char *) * 10);
2468c80476e4SDavid E. O'Brien 
2469c80476e4SDavid E. O'Brien #ifndef NODOT
2470c80476e4SDavid E. O'Brien # ifndef DOTLAST
2471c80476e4SDavid E. O'Brien     *blkp++ = Strsave(STRdot);
2472c80476e4SDavid E. O'Brien # endif
2473c80476e4SDavid E. O'Brien #endif
2474c80476e4SDavid E. O'Brien 
2475c80476e4SDavid E. O'Brien #define DIRAPPEND(a)  \
2476c80476e4SDavid E. O'Brien 	if (stat(ptr = a, &stb) == 0 && S_ISDIR(stb.st_mode)) \
2477c80476e4SDavid E. O'Brien 		*blkp++ = SAVE(ptr)
2478c80476e4SDavid E. O'Brien 
2479c80476e4SDavid E. O'Brien #ifdef _PATH_LOCAL
2480c80476e4SDavid E. O'Brien     DIRAPPEND(_PATH_LOCAL);
2481c80476e4SDavid E. O'Brien #endif
2482c80476e4SDavid E. O'Brien 
2483c80476e4SDavid E. O'Brien #ifdef _PATH_USRUCB
2484c80476e4SDavid E. O'Brien     DIRAPPEND(_PATH_USRUCB);
2485c80476e4SDavid E. O'Brien #endif
2486c80476e4SDavid E. O'Brien 
2487c80476e4SDavid E. O'Brien #ifdef _PATH_USRBSD
2488c80476e4SDavid E. O'Brien     DIRAPPEND(_PATH_USRBSD);
2489c80476e4SDavid E. O'Brien #endif
2490c80476e4SDavid E. O'Brien 
2491c80476e4SDavid E. O'Brien #ifdef _PATH_BIN
2492c80476e4SDavid E. O'Brien     DIRAPPEND(_PATH_BIN);
2493c80476e4SDavid E. O'Brien #endif
2494c80476e4SDavid E. O'Brien 
2495c80476e4SDavid E. O'Brien #ifdef _PATH_USRBIN
2496c80476e4SDavid E. O'Brien     DIRAPPEND(_PATH_USRBIN);
2497c80476e4SDavid E. O'Brien #endif
2498c80476e4SDavid E. O'Brien 
2499c80476e4SDavid E. O'Brien #undef DIRAPPEND
2500c80476e4SDavid E. O'Brien 
2501c80476e4SDavid E. O'Brien #ifndef NODOT
2502c80476e4SDavid E. O'Brien # ifdef DOTLAST
2503c80476e4SDavid E. O'Brien     *blkp++ = Strsave(STRdot);
2504c80476e4SDavid E. O'Brien # endif
2505c80476e4SDavid E. O'Brien #endif
2506c80476e4SDavid E. O'Brien     *blkp = NULL;
2507c80476e4SDavid E. O'Brien     return (blk);
2508c80476e4SDavid E. O'Brien }
2509c80476e4SDavid E. O'Brien #endif
2510c80476e4SDavid E. O'Brien 
2511c80476e4SDavid E. O'Brien static void
251245e5710bSMark Peek record(void)
2513c80476e4SDavid E. O'Brien {
2514c80476e4SDavid E. O'Brien     if (!fast) {
2515c80476e4SDavid E. O'Brien 	recdirs(NULL, adrof(STRsavedirs) != NULL);
2516c80476e4SDavid E. O'Brien 	rechist(NULL, adrof(STRsavehist) != NULL);
2517c80476e4SDavid E. O'Brien     }
25189ccc37e3SMark Peek     displayHistStats("Exiting");	/* no-op unless DEBUG_HIST */
2519c80476e4SDavid E. O'Brien }
2520a15e6f9aSMark Peek 
2521a15e6f9aSMark Peek /*
2522a15e6f9aSMark Peek  * Grab the tty repeatedly, and give up if we are not in the correct
2523a15e6f9aSMark Peek  * tty process group.
2524a15e6f9aSMark Peek  */
2525a15e6f9aSMark Peek int
2526a15e6f9aSMark Peek grabpgrp(int fd, pid_t desired)
2527a15e6f9aSMark Peek {
2528a15e6f9aSMark Peek     struct sigaction old;
2529a15e6f9aSMark Peek     pid_t pgrp;
2530a15e6f9aSMark Peek     size_t i;
2531a15e6f9aSMark Peek 
2532a15e6f9aSMark Peek     for (i = 0; i < 100; i++) {
2533a15e6f9aSMark Peek 	if ((pgrp = tcgetpgrp(fd)) == -1)
2534a15e6f9aSMark Peek 	    return -1;
2535a15e6f9aSMark Peek 	if (pgrp == desired)
2536a15e6f9aSMark Peek 	    return 0;
2537a15e6f9aSMark Peek 	(void)sigaction(SIGTTIN, NULL, &old);
2538a15e6f9aSMark Peek 	(void)signal(SIGTTIN, SIG_DFL);
2539a15e6f9aSMark Peek 	(void)kill(0, SIGTTIN);
2540a15e6f9aSMark Peek 	(void)sigaction(SIGTTIN, &old, NULL);
2541a15e6f9aSMark Peek     }
2542a15e6f9aSMark Peek     errno = EPERM;
2543a15e6f9aSMark Peek     return -1;
2544a15e6f9aSMark Peek }
2545