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(¶ml); 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(¶ml); 206245e5710bSMark Peek hadhist = lex(¶ml); 206345e5710bSMark Peek if (setintr) 206445e5710bSMark Peek cleanup_until(&old_pintr_disabled); 206545e5710bSMark Peek cleanup_push(¶ml, 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(¶ml); 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(¶ml, 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(¶ml, NULL); 211745e5710bSMark Peek goto cmd_done; 2118c80476e4SDavid E. O'Brien } 2119c80476e4SDavid E. O'Brien 2120c80476e4SDavid E. O'Brien alias(¶ml); 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(¶ml); 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(¶ml); 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, ¶ml, 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(¶ml); 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