sh.c 57.3 KB
Newer Older
1
/* $Header: /p/tcsh/cvsroot/tcsh/sh.c,v 3.145 2009/06/25 21:15:37 christos Exp $ */
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
/*
 * sh.c: Main shell routines
 */
/*-
 * Copyright (c) 1980, 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */
#define EXTERN	/* Intern */
#include "sh.h"

#ifndef lint
char    copyright[] =
"@(#) Copyright (c) 1991 The Regents of the University of California.\n\
 All rights reserved.\n";
#endif /* not lint */

42
RCSID("$tcsh: sh.c,v 3.145 2009/06/25 21:15:37 christos Exp $")
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

#include "tc.h"
#include "ed.h"
#include "tw.h"

extern int MapsAreInited;
extern int NLSMapsAreInited;

/*
 * C Shell
 *
 * Bill Joy, UC Berkeley, California, USA
 * October 1978, May 1980
 *
 * Jim Kulp, IIASA, Laxenburg, Austria
 * April 1980
 *
 * Filename recognition added:
 * Ken Greer, Ind. Consultant, Palo Alto CA
 * October 1983.
 *
 * Karl Kleinpaste, Computer Consoles, Inc.
 * Added precmd, periodic/tperiod, prompt changes,
 * directory stack hack, and login watch.
 * Sometime March 1983 - Feb 1984.
 *
 * Added scheduled commands, including the "sched" command,
 * plus the call to sched_run near the precmd et al
 * routines.
 * Upgraded scheduled events for running events while
 * sitting idle at command input.
 *
 * Paul Placeway, Ohio State
 * added stuff for running with twenex/inputl  9 Oct 1984.
 *
 * ported to Apple Unix (TM) (OREO)  26 -- 29 Jun 1987
 */

jmp_buf_t reslab INIT_ZERO_STRUCT;

static const char tcshstr[] = "tcsh";

85 86
struct sigaction parintr;	/* Parents interrupt catch */
struct sigaction parterm;	/* Parents terminate catch */
87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

#ifdef TESLA
int do_logout = 0;
#endif /* TESLA */


int    use_fork = 0;		/* use fork() instead of vfork()? */

/*
 * Magic pointer values. Used to specify other invalid conditions aside
 * from null.
 */
static Char	INVCHAR;
Char    *INVPTR = &INVCHAR;
Char    **INVPPTR = &INVPTR;

103
static int    fast = 0;
104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137
static int    mflag = 0;
static int    prompt = 1;
int     enterhist = 0;
int    tellwhat = 0;
time_t  t_period;
Char  *ffile = NULL;
int	dolzero = 0;
int	insource = 0;
int	exitset = 0;
static time_t  chktim;		/* Time mail last checked */
char *progname;
int tcsh;

/*
 * This preserves the input state of the shell. It is used by
 * st_save and st_restore to manupulate shell state.
 */
struct saved_state {
    int		  insource;
    int		  OLDSTD;
    int		  SHIN;
    int		  SHOUT;
    int		  SHDIAG;
    int		  intty;
    struct whyle *whyles;
    Char 	 *gointr;
    Char 	 *arginp;
    Char	 *evalp;
    Char	**evalvec;
    Char	 *alvecp;
    Char	**alvec;
    int		  onelflg;
    int	  enterhist;
    Char	**argv;
138
    Char	**av;
139 140 141
    Char	  HIST;
    int	  cantell;
    struct Bin	  B;
142
    int		  justpr;
143 144
};

145
static	int		  srccat	(Char *, Char *);
146
#ifndef WINNT_NATIVE
147
static	int		  srcfile	(const char *, int, int, Char **);
148
#else
149
int		  srcfile	(const char *, int, int, Char **);
150
#endif /*WINNT_NATIVE*/
151 152
static	void		  srcunit	(int, int, int, Char **);
static	void		  mailchk	(void);
153
#ifndef _PATH_DEFPATH
154
static	Char	 	**defaultpath	(void);
155
#endif
156 157 158 159
static	void		  record	(void);
static	void		  st_save	(struct saved_state *, int, int,
					 Char **, Char **);
static	void		  st_restore	(void *);
160

161
	int		  main		(int, char **);
162 163

int
164
main(int argc, char **argv)
165
{
166 167 168 169 170 171
    int batch = 0;
    volatile int nexececho = 0;
    int nofile = 0;
    volatile int nverbose = 0;
    volatile int rdirs = 0;
    int quitit = 0;
172 173 174 175 176
    Char *cp;
#ifdef AUTOLOGOUT
    Char *cp2;
#endif
    char *tcp, *ttyn;
177
    int f, reenter;
178 179
    char **tempv;
    int osetintr;
180
    struct sigaction oparintr;
181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197

#ifdef WINNT_NATIVE
    nt_init();
#endif /* WINNT_NATIVE */
#if defined(NLS_CATALOGS) && defined(LC_MESSAGES)
    (void) setlocale(LC_MESSAGES, "");
#endif /* NLS_CATALOGS && LC_MESSAGES */

#ifdef NLS
# ifdef LC_CTYPE
    (void) setlocale(LC_CTYPE, ""); /* for iscntrl */
# endif /* LC_CTYPE */
#endif /* NLS */

    nlsinit();

#ifdef MALLOC_TRACE
198
    mal_setstatsfile(fdopen(dmove(xopen("/tmp/tcsh.trace", 
199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225
	O_WRONLY|O_CREAT|O_LARGEFILE, 0666), 25), "w"));
    mal_trace(1);
#endif /* MALLOC_TRACE */

#if !(defined(BSDTIMES) || defined(_SEQUENT_)) && defined(POSIX)
# ifdef _SC_CLK_TCK
    clk_tck = (clock_t) sysconf(_SC_CLK_TCK);
# else /* ! _SC_CLK_TCK */
#  ifdef CLK_TCK
    clk_tck = CLK_TCK;
#  else /* !CLK_TCK */
    clk_tck = HZ;
#  endif /* CLK_TCK */
# endif /* _SC_CLK_TCK */
#endif /* !BSDTIMES && POSIX */

    settimes();			/* Immed. estab. timing base */
#ifdef TESLA
    do_logout = 0;
#endif /* TESLA */

    /*
     * Make sure we have 0, 1, 2 open
     * Otherwise `` jobs will not work... (From knaff@poly.polytechnique.fr)
     */
    {
	do 
226 227
	    if ((f = xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE)) == -1 &&
		(f = xopen("/", O_RDONLY|O_LARGEFILE)) == -1) 
228 229
		exit(1);
	while (f < 3);
230
	xclose(f);
231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277
    }

    osinit();			/* Os dependent initialization */

    
    {
	char *t;

	t = strrchr(argv[0], '/');
#ifdef WINNT_NATIVE
	{
	    char *s = strrchr(argv[0], '\\');
	    if (s)
		t = s;
	}
#endif /* WINNT_NATIVE */
	t = t ? t + 1 : argv[0];
	if (*t == '-') t++;
	progname = strsave((t && *t) ? t : tcshstr);    /* never want a null */
	tcsh = strcmp(progname, tcshstr) == 0;
    }

    /*
     * Initialize non constant strings
     */
#ifdef _PATH_BSHELL
    STR_BSHELL = SAVE(_PATH_BSHELL);
#endif
#ifdef _PATH_TCSHELL
    STR_SHELLPATH = SAVE(_PATH_TCSHELL);
#else
# ifdef _PATH_CSHELL
    STR_SHELLPATH = SAVE(_PATH_CSHELL);
# endif
#endif
    STR_environ = blk2short(environ);
    environ = short2blk(STR_environ);	/* So that we can free it */
    STR_WORD_CHARS = SAVE(WORD_CHARS);

    HIST = '!';
    HISTSUB = '^';
    PRCH = '>';
    PRCHROOT = '#';
    word_chars = STR_WORD_CHARS;
    bslash_quote = 0;		/* PWP: do tcsh-style backslash quoting? */

    /* Default history size to 100 */
278
    setcopy(STRhistory, str2short("100"), VAR_READWRITE);
279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304

    tempv = argv;
    ffile = SAVE(tempv[0]);
    dolzero = 0;
    if (eq(ffile, STRaout))	/* A.out's are quittable */
	quitit = 1;
    uid = getuid();
    gid = getgid();
    euid = geteuid();
    egid = getegid();
    /*
     * We are a login shell if: 1. we were invoked as -<something> with
     * optional arguments 2. or we were invoked only with the -l flag
     */
    loginsh = (**tempv == '-') || (argc == 2 &&
				   tempv[1][0] == '-' && tempv[1][1] == 'l' &&
						tempv[1][2] == '\0');
#ifdef _VMS_POSIX
    /* No better way to find if we are a login shell */
    if (!loginsh) {
	loginsh = (argc == 1 && getppid() == 1);
	**tempv = '-';	/* Avoid giving VMS an acidic stomach */
    }
#endif /* _VMS_POSIX */

    if (loginsh && **tempv != '-') {
305 306
	char *argv0;

307 308 309 310 311 312
	/*
	 * Mangle the argv space
	 */
	tempv[1][0] = '\0';
	tempv[1][1] = '\0';
	tempv[1] = NULL;
313 314
	argv0 = strspl("-", *tempv);
	*tempv = argv0;
315 316 317 318
	argc--;
    }
    if (loginsh) {
	(void) time(&chktim);
319
	setNS(STRloginsh);
320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
    }

    AsciiOnly = 1;
    NoNLSRebind = getenv("NOREBIND") != NULL;
#ifdef NLS
# ifdef SETLOCALEBUG
    dont_free = 1;
# endif /* SETLOCALEBUG */
    (void) setlocale(LC_ALL, "");
# ifdef LC_COLLATE
    (void) setlocale(LC_COLLATE, "");
# endif
# ifdef SETLOCALEBUG
    dont_free = 0;
# endif /* SETLOCALEBUG */
# ifdef STRCOLLBUG
    fix_strcoll_bug();
# endif /* STRCOLLBUG */

    {
	int     k;

342
	for (k = 0200; k <= 0377 && !Isprint(CTL_ESC(k)); k++)
343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379
	    continue;
	AsciiOnly = MB_CUR_MAX == 1 && k > 0377;
    }
#else
    AsciiOnly = getenv("LANG") == NULL && getenv("LC_CTYPE") == NULL;
#endif				/* NLS */
    if (MapsAreInited && !NLSMapsAreInited)
	ed_InitNLSMaps();
    ResetArrowKeys();

    /*
     * Initialize for periodic command intervals. Also, initialize the dummy
     * tty list for login-watch.
     */
    (void) time(&t_period);
#ifndef HAVENOUTMP
    initwatch();
#endif /* !HAVENOUTMP */

#if defined(alliant)
    /*
     * From:  Jim Pace <jdp@research.att.com>
     * tcsh does not work properly on the alliants through an rlogin session.
     * The shell generally hangs.  Also, reference to the controlling terminal
     * does not work ( ie: echo foo > /dev/tty ).
     *
     * A security feature was added to rlogind affecting FX/80's Concentrix
     * from revision 5.5.xx upwards (through 5.7 where this fix was implemented)
     * This security change also affects the FX/2800 series.
     * The security change to rlogind requires the process group of an rlogin
     * session become disassociated with the tty in rlogind.
     *
     * The changes needed are:
     * 1. set the process group
     * 2. reenable the control terminal
     */
     if (loginsh && isatty(SHIN)) {
380 381 382
	 ttyn = ttyname(SHIN);
	 xclose(SHIN);
	 SHIN = xopen(ttyn, O_RDWR|O_LARGEFILE);
383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405
	 shpgrp = getpid();
	 (void) ioctl (SHIN, TIOCSPGRP, (ioctl_t) &shpgrp);
	 (void) setpgid(0, shpgrp);
     }
#endif /* alliant */

    /*
     * Move the descriptors to safe places. The variable didfds is 0 while we
     * have only FSH* to work with. When didfds is true, we have 0,1,2 and
     * prefer to use these.
     */
    initdesc();

    /*
     * Get and set the tty now
     */
    if ((ttyn = ttyname(SHIN)) != NULL) {
	/*
	 * Could use rindex to get rid of other possible path components, but
	 * hpux preserves the subdirectory /pty/ when storing the tty name in
	 * utmp, so we keep it too.
	 */
	if (strncmp(ttyn, "/dev/", 5) == 0)
406
	    setv(STRtty, cp = SAVE(ttyn + 5), VAR_READWRITE);
407
	else
408
	    setv(STRtty, cp = SAVE(ttyn), VAR_READWRITE);
409 410
    }
    else
411
	setv(STRtty, cp = SAVE(""), VAR_READWRITE);
412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444
    /*
     * Initialize the shell variables. ARGV and PROMPT are initialized later.
     * STATUS is also munged in several places. CHILD is munged when
     * forking/waiting
     */

    /*
     * 7-10-87 Paul Placeway autologout should be set ONLY on login shells and
     * on shells running as root.  Out of these, autologout should NOT be set
     * for any psudo-terminals (this catches most window systems) and not for
     * any terminal running X windows.
     * 
     * At Ohio State, we have had problems with a user having his X session 
     * drop out from under him (on a Sun) because the shell in his master 
     * xterm timed out and exited.
     * 
     * Really, this should be done with a program external to the shell, that
     * watches for no activity (and NO running programs, such as dump) on a
     * terminal for a long peroid of time, and then SIGHUPS the shell on that
     * terminal.
     * 
     * bugfix by Rich Salz <rsalz@PINEAPPLE.BBN.COM>: For root rsh things 
     * allways first check to see if loginsh or really root, then do things 
     * with ttyname()
     * 
     * Also by Jean-Francois Lamy <lamy%ai.toronto.edu@RELAY.CS.NET>: check the
     * value of cp before using it! ("root can rsh too")
     * 
     * PWP: keep the nested ifs; the order of the tests matters and a good 
     * (smart) C compiler might re-arange things wrong.
     */
#ifdef AUTOLOGOUT
# ifdef convex
445
    if (uid == 0)
446
	/*  root always has a 15 minute autologout  */
447
	setcopy(STRautologout, STRrootdefautologout, VAR_READWRITE);
448 449 450
    else
	if (loginsh)
	    /*  users get autologout set to 0  */
451
	    setcopy(STRautologout, STR0, VAR_READWRITE);
452 453 454 455 456
# else /* convex */
    if (loginsh || (uid == 0)) {
	if (*cp) {
	    /* only for login shells or root and we must have a tty */
	    if ((cp2 = Strrchr(cp, (Char) '/')) != NULL) {
457
		cp2 = cp2 + 1;
458 459 460 461
	    }
	    else
		cp2 = cp;
	    if (!(((Strncmp(cp2, STRtty, 3) == 0) && Isalpha(cp2[3])) ||
462
	          Strstr(cp, STRptssl) != NULL)) {
463 464
		if (getenv("DISPLAY") == NULL) {
		    /* NOT on X window shells */
465
		    setcopy(STRautologout, STRdefautologout, VAR_READWRITE);
466 467 468 469 470 471 472
		}
	    }
	}
    }
# endif /* convex */
#endif /* AUTOLOGOUT */

473
    sigset_interrupting(SIGALRM, queue_alrmcatch);
474

475
    setcopy(STRstatus, STR0, VAR_READWRITE);
476 477 478 479 480 481 482 483 484 485 486 487 488

    /*
     * get and set machine specific environment variables
     */
    getmachine();


    /*
     * Publish the selected echo style
     */
#if ECHO_STYLE != BSD_ECHO
    if (tcsh) {
# if ECHO_STYLE == NONE_ECHO
489
	setcopy(STRecho_style, STRnone, VAR_READWRITE);
490 491
# endif /* ECHO_STYLE == NONE_ECHO */
# if ECHO_STYLE == SYSV_ECHO
492
	setcopy(STRecho_style, STRsysv, VAR_READWRITE);
493 494
# endif /* ECHO_STYLE == SYSV_ECHO */
# if ECHO_STYLE == BOTH_ECHO
495
	setcopy(STRecho_style, STRboth, VAR_READWRITE);
496 497 498
# endif /* ECHO_STYLE == BOTH_ECHO */
    } else
#endif /* ECHO_STYLE != BSD_ECHO */
499
	setcopy(STRecho_style, STRbsd, VAR_READWRITE);
500 501 502 503 504 505

    /*
     * increment the shell level.
     */
    shlvl(1);

506 507 508
    if ((tcp = getenv("HOME")) != NULL)
	cp = quote(SAVE(tcp));
    else
509 510 511 512 513
	cp = NULL;

    if (cp == NULL)
	fast = 1;		/* No home -> can't read scripts */
    else
514
	setv(STRhome, cp, VAR_READWRITE);
515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530

    dinit(cp);			/* dinit thinks that HOME == cwd in a login
				 * shell */
    /*
     * Grab other useful things from the environment. Should we grab
     * everything??
     */
    {
	char *cln, *cus, *cgr;
	struct passwd *pw;
	struct group *gr;


#ifdef apollo
	int     oid = getoid();

531
	setv(STRoid, Itoa(oid, 0, 0), VAR_READWRITE);
532 533
#endif /* apollo */

534
	setv(STRuid, Itoa(uid, 0, 0), VAR_READWRITE);
535

536
	setv(STRgid, Itoa(gid, 0, 0), VAR_READWRITE);
537 538 539 540

	cln = getenv("LOGNAME");
	cus = getenv("USER");
	if (cus != NULL)
541
	    setv(STRuser, quote(SAVE(cus)), VAR_READWRITE);
542
	else if (cln != NULL)
543 544 545
	    setv(STRuser, quote(SAVE(cln)), VAR_READWRITE);
	else if ((pw = xgetpwuid(uid)) == NULL)
	    setcopy(STRuser, str2short("unknown"), VAR_READWRITE);
546
	else
547
	    setcopy(STRuser, str2short(pw->pw_name), VAR_READWRITE);
548 549 550 551 552 553 554
	if (cln == NULL)
	    tsetenv(STRLOGNAME, varval(STRuser));
	if (cus == NULL)
	    tsetenv(STRKUSER, varval(STRuser));
	
	cgr = getenv("GROUP");
	if (cgr != NULL)
555 556 557
	    setv(STRgroup, quote(SAVE(cgr)), VAR_READWRITE);
	else if ((gr = xgetgrgid(gid)) == NULL)
	    setcopy(STRgroup, str2short("unknown"), VAR_READWRITE);
558
	else
559
	    setcopy(STRgroup, str2short(gr->gr_name), VAR_READWRITE);
560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613
	if (cgr == NULL)
	    tsetenv(STRKGROUP, varval(STRgroup));
    }

    /*
     * HOST may be wrong, since rexd transports the entire environment on sun
     * 3.x Just set it again
     */
    {
	char    cbuff[MAXHOSTNAMELEN];

	if (gethostname(cbuff, sizeof(cbuff)) >= 0) {
	    cbuff[sizeof(cbuff) - 1] = '\0';	/* just in case */
	    tsetenv(STRHOST, str2short(cbuff));
	}
	else
	    tsetenv(STRHOST, str2short("unknown"));
    }


#ifdef REMOTEHOST
    /*
     * Try to determine the remote host we were logged in from.
     */
    remotehost();
#endif /* REMOTEHOST */
 
#ifdef apollo
    if ((tcp = getenv("SYSTYPE")) == NULL)
	tcp = "bsd4.3";
    tsetenv(STRSYSTYPE, quote(str2short(tcp)));
#endif /* apollo */

    /*
     * set editing on by default, unless running under Emacs as an inferior
     * shell.
     * We try to do this intelligently. If $TERM is available, then it
     * should determine if we should edit or not. $TERM is preserved
     * across rlogin sessions, so we will not get confused if we rlogin
     * under an emacs shell. Another advantage is that if we run an
     * xterm under an emacs shell, then the $TERM will be set to 
     * xterm, so we are going to want to edit. Unfortunately emacs
     * does not restore all the tty modes, so xterm is not very well
     * set up. But this is not the shell's fault.
     * Also don't edit if $TERM == wm, for when we're running under an ATK app.
     * Finally, emacs compiled under terminfo, sets the terminal to dumb,
     * so disable editing for that too.
     * 
     * Unfortunately, in some cases the initial $TERM setting is "unknown",
     * "dumb", or "network" which is then changed in the user's startup files.
     * We fix this by setting noediting here if $TERM is unknown/dumb and
     * if noediting is set, we switch on editing if $TERM is changed.
     */
    if ((tcp = getenv("TERM")) != NULL) {
614
	setv(STRterm, quote(SAVE(tcp)), VAR_READWRITE);
615 616 617 618 619 620 621 622 623 624 625 626 627 628 629
	noediting = strcmp(tcp, "unknown") == 0 || strcmp(tcp, "dumb") == 0 ||
		    strcmp(tcp, "network") == 0;
	editing = strcmp(tcp, "emacs") != 0 && strcmp(tcp, "wm") != 0 &&
		  !noediting;
    }
    else {
	noediting = 0;
	editing = ((tcp = getenv("EMACS")) == NULL || strcmp(tcp, "t") != 0);
    }

    /* 
     * The 'edit' variable is either set or unset.  It doesn't 
     * need a value.  Making it 'emacs' might be confusing. 
     */
    if (editing)
630
	setNS(STRedit);
631 632 633 634 635 636


    /*
     * still more mutability: make the complete routine automatically add the
     * suffix of file names...
     */
637
    setNS(STRaddsuffix);
638 639 640 641

    /*
     * Compatibility with tcsh >= 6.12 by default
     */
642
    setNS(STRcsubstnonl);
643 644 645 646
    
    /*
     * Random default kill ring size
     */
647
    setcopy(STRkillring, str2short("30"), VAR_READWRITE);
648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674

    /*
     * Re-initialize path if set in environment
     */
    if ((tcp = getenv("PATH")) == NULL)
#ifdef _PATH_DEFPATH
	importpath(str2short(_PATH_DEFPATH));
#else /* !_PATH_DEFPATH */
	setq(STRpath, defaultpath(), &shvhed, VAR_READWRITE);
#endif /* _PATH_DEFPATH */
    else
	/* Importpath() allocates memory for the path, and the
	 * returned pointer from SAVE() was discarded, so
	 * this was a memory leak.. (sg)
	 *
	 * importpath(SAVE(tcp));
	 */
	importpath(str2short(tcp));


    {
	/* If the SHELL environment variable ends with "tcsh", set
	 * STRshell to the same path.  This is to facilitate using
	 * the executable in environments where the compiled-in
	 * default isn't appropriate (sg).
	 */

675
	size_t sh_len = 0;
676 677 678 679 680

	if ((tcp = getenv("SHELL")) != NULL) {
	    sh_len = strlen(tcp);
	    if ((sh_len >= 5 && strcmp(tcp + (sh_len - 5), "/tcsh") == 0) || 
	        (!tcsh && sh_len >= 4 && strcmp(tcp + (sh_len - 4), "/csh") == 0))
681
		setv(STRshell, quote(SAVE(tcp)), VAR_READWRITE);
682 683 684 685
	    else
		sh_len = 0;
	}
	if (sh_len == 0)
686
	    setcopy(STRshell, STR_SHELLPATH, VAR_READWRITE);
687 688
    }

689 690 691 692 693 694
#ifdef _OSD_POSIX  /* BS2000 needs this variable set to "SHELL" */
    if ((tcp = getenv("PROGRAM_ENVIRONMENT")) == NULL)
	tcp = "SHELL";
    tsetenv(STRPROGRAM_ENVIRONMENT, quote(str2short(tcp)));
#endif /* _OSD_POSIX */

695 696 697 698 699 700 701 702
#ifdef COLOR_LS_F
    if ((tcp = getenv("LS_COLORS")) != NULL)
	parseLS_COLORS(str2short(tcp));
#endif /* COLOR_LS_F */

    doldol = putn((int) getpid());	/* For $$ */
#ifdef WINNT_NATIVE
    {
703 704 705 706 707 708 709 710 711 712 713 714
	char *tmp;
	Char *tmp2;
	if ((tmp = getenv("TMP")) != NULL) {
	    tmp = xasprintf("%s/%s", tmp, "sh");
	    tmp2 = SAVE(tmp);
	xfree(tmp);
    }
	else {
	    tmp2 = SAVE(""); 
	}
	shtemp = Strspl(tmp2, doldol);	/* For << */
	xfree(tmp2);
715 716 717 718 719 720 721 722 723 724 725
    }
#else /* !WINNT_NATIVE */
    shtemp = Strspl(STRtmpsh, doldol);	/* For << */
#endif /* WINNT_NATIVE */

    /*
     * Record the interrupt states from the parent process. If the parent is
     * non-interruptible our hand must be forced or we (and our children) won't
     * be either. Our children inherit termination from our parent. We catch it
     * only if we are the login shell.
     */
726 727
    sigaction(SIGINT, NULL, &parintr);
    sigaction(SIGTERM, NULL, &parterm);
728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760


#ifdef TCF
    /* Enable process migration on ourselves and our progeny */
    (void) signal(SIGMIGRATE, SIG_DFL);
#endif /* TCF */

    /*
     * dspkanji/dspmbyte autosetting
     */
    /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */
#if defined(DSPMBYTE)
#if defined(NLS) && defined(LC_CTYPE)
    if (((tcp = setlocale(LC_CTYPE, NULL)) != NULL || (tcp = getenv("LANG")) != NULL) && !adrof(CHECK_MBYTEVAR)) {
#else
    if ((tcp = getenv("LANG")) != NULL && !adrof(CHECK_MBYTEVAR)) {
#endif
	autoset_dspmbyte(str2short(tcp));
    }
#if defined(WINNT_NATIVE)
    else if (!adrof(CHECK_MBYTEVAR))
      nt_autoset_dspmbyte();
#endif /* WINNT_NATIVE */
#endif

    fix_version();		/* publish the shell version */

    if (argc > 1 && strcmp(argv[1], "--version") == 0) {
	xprintf("%S\n", varval(STRversion));
	xexit(0);
    }
    if (argc > 1 && strcmp(argv[1], "--help") == 0) {
	xprintf("%S\n\n", varval(STRversion));
761
	xprintf("%s", CGETS(11, 8, HELP_STRING));
762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811
	xexit(0);
    }
    /*
     * Process the arguments.
     * 
     * Note that processing of -v/-x is actually delayed till after script
     * processing.
     * 
     * We set the first character of our name to be '-' if we are a shell 
     * running interruptible commands.  Many programs which examine ps'es 
     * use this to filter such shells out.
     */
    argc--, tempv++;
    while (argc > 0 && (tcp = tempv[0])[0] == '-' &&
	   *++tcp != '\0' && !batch) {
	do
	    switch (*tcp++) {

	    case 0:		/* -	Interruptible, no prompt */
		prompt = 0;
		setintr = 1;
		nofile = 1;
		break;

	    case 'b':		/* -b	Next arg is input file */
		batch = 1;
		break;

	    case 'c':		/* -c	Command input from arg */
		if (argc == 1)
		    xexit(0);
		argc--, tempv++;
#ifdef M_XENIX
		/* Xenix Vi bug:
		   it relies on a 7 bit environment (/bin/sh), so it
		   pass ascii arguments with the 8th bit set */
		if (!strcmp(argv[0], "sh"))
		  {
		    char *p;

		    for (p = tempv[0]; *p; ++p)
		      *p &= ASCII;
		  }
#endif
		arginp = SAVE(tempv[0]);

		/*
		 * we put the command into a variable
		 */
		if (arginp != NULL)
812
		    setv(STRcommand, quote(Strsave(arginp)), VAR_READWRITE);
813 814 815 816 817 818 819 820

		/*
		 * * Give an error on -c arguments that end in * backslash to
		 * ensure that you don't make * nonportable csh scripts.
		 */
		{
		    int count;

821
		    cp = Strend(arginp);
822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904
		    count = 0;
		    while (cp > arginp && *--cp == '\\')
			++count;
		    if ((count & 1) != 0) {
			exiterr = 1;
			stderror(ERR_ARGC);
		    }
		}
		prompt = 0;
		nofile = 1;
		break;
	    case 'd':		/* -d	Load directory stack from file */
		rdirs = 1;
		break;

#ifdef apollo
	    case 'D':		/* -D	Define environment variable */
		{
		    Char *dp;

		    cp = str2short(tcp);
		    if (dp = Strchr(cp, '=')) {
			*dp++ = '\0';
			tsetenv(cp, dp);
		    }
		    else
			tsetenv(cp, STRNULL);
		}
		*tcp = '\0'; 	/* done with this argument */
		break;
#endif /* apollo */

	    case 'e':		/* -e	Exit on any error */
		exiterr = 1;
		break;

	    case 'f':		/* -f	Fast start */
		fast = 1;
		break;

	    case 'i':		/* -i	Interactive, even if !intty */
		intact = 1;
		nofile = 1;
		break;

	    case 'm':		/* -m	read .cshrc (from su) */
		mflag = 1;
		break;

	    case 'n':		/* -n	Don't execute */
		noexec = 1;
		break;

	    case 'q':		/* -q	(Undoc'd) ... die on quit */
		quitit = 1;
		break;

	    case 's':		/* -s	Read from std input */
		nofile = 1;
		break;

	    case 't':		/* -t	Read one line from input */
		onelflg = 2;
		prompt = 0;
		nofile = 1;
		break;

	    case 'v':		/* -v	Echo hist expanded input */
		nverbose = 1;	/* ... later */
		break;

	    case 'x':		/* -x	Echo just before execution */
		nexececho = 1;	/* ... later */
		break;

	    case 'V':		/* -V	Echo hist expanded input */
		setNS(STRverbose);	/* NOW! */
		break;

	    case 'X':		/* -X	Echo just before execution */
		setNS(STRecho);	/* NOW! */
		break;

905
	    case 'F':
906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938
		/*
		 * This will cause children to be created using fork instead of
		 * vfork.
		 */
		use_fork = 1;
		break;

	    case ' ':
	    case '\t':
		/* 
		 * for O/S's that don't do the argument parsing right in 
		 * "#!/foo -f " scripts
		 */
		break;

	    default:		/* Unknown command option */
		exiterr = 1;
		stderror(ERR_TCSHUSAGE, tcp-1, progname);
		break;

	} while (*tcp);
	tempv++, argc--;
    }

    if (quitit)			/* With all due haste, for debugging */
	(void) signal(SIGQUIT, SIG_DFL);

    /*
     * Unless prevented by -, -c, -i, -s, or -t, if there are remaining
     * arguments the first of them is the name of a shell file from which to
     * read commands.
     */
    if (nofile == 0 && argc > 0) {
939
	nofile = xopen(tempv[0], O_RDONLY|O_LARGEFILE);
940 941 942 943 944
	if (nofile < 0) {
	    child = 1;		/* So this ... */
	    /* ... doesn't return */
	    stderror(ERR_SYSTEM, tempv[0], strerror(errno));
	}
945
	xfree(ffile);
946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022
	dolzero = 1;
	ffile = SAVE(tempv[0]);
	/* 
	 * Replace FSHIN. Handle /dev/std{in,out,err} specially
	 * since once they are closed we cannot open them again.
	 * In that case we use our own saved descriptors
	 */
	if ((SHIN = dmove(nofile, FSHIN)) < 0) 
	    switch(nofile) {
	    case 0:
		SHIN = FSHIN;
		break;
	    case 1:
		SHIN = FSHOUT;
		break;
	    case 2:
		SHIN = FSHDIAG;
		break;
	    default:
		stderror(ERR_SYSTEM, tempv[0], strerror(errno));
		break;
	    }
	(void) close_on_exec(SHIN, 1);
	prompt = 0;
	 /* argc not used any more */ tempv++;
    }

    /* 
     * Call to closem() used to be part of initdesc(). Now called below where
     * the script name argument has become stdin. Kernel may have used a file
     * descriptor to hold the name of the script (setuid case) and this name
     * mustn't be lost by closing the fd too soon.
     */
    closem();

    /*
     * Consider input a tty if it really is or we are interactive. but not for
     * editing (christos)
     */
    if (!(intty = isatty(SHIN))) {
	if (adrof(STRedit))
	    unsetv(STRedit);
	editing = 0;
    }
    intty |= intact;
#ifndef convex
    if (intty || (intact && isatty(SHOUT))) {
	if (!batch && (uid != euid || gid != egid)) {
	    errno = EACCES;
	    child = 1;		/* So this ... */
	    /* ... doesn't return */
	    stderror(ERR_SYSTEM, progname, strerror(errno));
	}
    }
#endif /* convex */
    isoutatty = isatty(SHOUT);
    isdiagatty = isatty(SHDIAG);
    /*
     * Decide whether we should play with signals or not. If we are explicitly
     * told (via -i, or -) or we are a login shell (arg0 starts with -) or the
     * input and output are both the ttys("csh", or "csh</dev/ttyx>/dev/ttyx")
     * Note that in only the login shell is it likely that parent may have set
     * signals to be ignored
     */
    if (loginsh || intact || (intty && isatty(SHOUT)))
	setintr = 1;
    settell();
    /*
     * Save the remaining arguments in argv.
     */
    setq(STRargv, blk2short(tempv), &shvhed, VAR_READWRITE);

    /*
     * Set up the prompt.
     */
    if (prompt) {
	if (tcsh)
1023
	    setcopy(STRprompt, STRdeftcshprompt, VAR_READWRITE);
1024
	else
1025
	    setcopy(STRprompt, STRdefcshprompt, VAR_READWRITE);
1026
	/* that's a meta-questionmark */
1027 1028
	setcopy(STRprompt2, STRmquestion, VAR_READWRITE);
	setcopy(STRprompt3, STRKCORRECT, VAR_READWRITE);
1029 1030 1031 1032 1033 1034 1035 1036 1037
    }

    /*
     * If we are an interactive shell, then start fiddling with the signals;
     * this is a tricky game.
     */
    shpgrp = mygetpgrp();
    opgrp = tpgrp = -1;
    if (setintr) {
1038 1039
	struct sigaction osig;

1040 1041 1042
	**argv = '-';
	if (!quitit)		/* Wary! */
	    (void) signal(SIGQUIT, SIG_IGN);
1043 1044
	pintr_disabled = 1;
	sigset_interrupting(SIGINT, queue_pintr);
1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057
	(void) signal(SIGTERM, SIG_IGN);

	/* 
	 * No reason I can see not to save history on all these events..
	 * Most usual occurrence is in a window system, where we're not a login
	 * shell, but might as well be... (sg)
	 * But there might be races when lots of shells exit together...
	 * [this is also incompatible].
	 * We have to be mre careful here. If the parent wants to 
	 * ignore the signals then we leave them untouched...
	 * We also only setup the handlers for shells that are trully
	 * interactive.
	 */
1058 1059 1060 1061
	sigaction(SIGHUP, NULL, &osig);
	if (loginsh || osig.sa_handler != SIG_IGN)
	    /* exit processing on HUP */
	    sigset_interrupting(SIGHUP, queue_phup);
1062
#ifdef SIGXCPU
1063 1064 1065 1066
	sigaction(SIGXCPU, NULL, &osig);
	if (loginsh || osig.sa_handler != SIG_IGN)
	    /* exit processing on XCPU */
	    sigset_interrupting(SIGXCPU, queue_phup);
1067 1068
#endif
#ifdef SIGXFSZ
1069 1070 1071 1072
	sigaction(SIGXFSZ, NULL, &osig);
	if (loginsh || osig.sa_handler != SIG_IGN)
	    /* exit processing on XFSZ */
	    sigset_interrupting(SIGXFSZ, queue_phup);
1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106
#endif

	if (quitit == 0 && arginp == 0) {
#ifdef SIGTSTP
	    (void) signal(SIGTSTP, SIG_IGN);
#endif
#ifdef SIGTTIN
	    (void) signal(SIGTTIN, SIG_IGN);
#endif
#ifdef SIGTTOU
	    (void) signal(SIGTTOU, SIG_IGN);
#endif
	    /*
	     * Wait till in foreground, in case someone stupidly runs csh &
	     * dont want to try to grab away the tty.
	     */
	    if (isatty(FSHDIAG))
		f = FSHDIAG;
	    else if (isatty(FSHOUT))
		f = FSHOUT;
	    else if (isatty(OLDSTD))
		f = OLDSTD;
	    else
		f = -1;

#ifdef NeXT
	    /* NeXT 2.0 /usr/etc/rlogind, does not set our process group! */
	    if (shpgrp == 0) {
	        shpgrp = getpid();
		(void) setpgid(0, shpgrp);
	        (void) tcsetpgrp(f, shpgrp);
	    }
#endif /* NeXT */
#ifdef BSDJOBS			/* if we have tty job control */
1107
	    if (grabpgrp(f, shpgrp) != -1) {
1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163
		/*
		 * Thanks to Matt Day for the POSIX references, and to
		 * Paul Close for the SGI clarification.
		 */
		if (setdisc(f) != -1) {
		    opgrp = shpgrp;
		    shpgrp = getpid();
		    tpgrp = shpgrp;
		    if (tcsetpgrp(f, shpgrp) == -1) {
			/*
			 * On hpux 7.03 this fails with EPERM. This happens on
			 * the 800 when opgrp != shpgrp at this point. (we were
			 * forked from a non job control shell)
			 * POSIX 7.2.4, says we failed because the process
			 * group specified did not belong to a process
			 * in the same session with the tty. So we set our
			 * process group and try again.
			 */
			if (setpgid(0, shpgrp) == -1) {
			    xprintf("setpgid:");
			    goto notty;
			}
			if (tcsetpgrp(f, shpgrp) == -1) {
			    xprintf("tcsetpgrp:");
			    goto notty;
			}
		    }
		    /*
		     * We check the process group now. If it is the same, then
		     * we don't need to set it again. On hpux 7.0 on the 300's
		     * if we set it again it fails with EPERM. This is the
		     * correct behavior according to POSIX 4.3.3 if the process
		     * was a session leader .
		     */
		    else if (shpgrp != mygetpgrp()) {
			if(setpgid(0, shpgrp) == -1) {
			    xprintf("setpgid:");
			    goto notty;
			}
		    }
#ifdef IRIS4D
		    /*
		     * But on irix 3.3 we need to set it again, even if it is
		     * the same. We do that to tell the system that we
		     * need BSD process group compatibility.
		     */
		    else
			(void) setpgid(0, shpgrp);
#endif
		    (void) close_on_exec(dcopy(f, FSHTTY), 1);
		}
		else
		    tpgrp = -1;
	    }
	    if (tpgrp == -1) {
	notty:
1164
	        xprintf(CGETS(11, 1, "Warning: no access to tty (%s).\n"),
1165 1166 1167
		    strerror(errno));
		xprintf("%s",
		    CGETS(11, 2, "Thus no job control in this shell.\n"));
1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180
		/*
		 * Fix from:Sakari Jalovaara <sja@sirius.hut.fi> if we don't
		 * have access to tty, disable editing too
		 */
		if (adrof(STRedit))
		    unsetv(STRedit);
		editing = 0;
	    }
#else	/* BSDJOBS */		/* don't have job control, so frotz it */
	    tpgrp = -1;
#endif				/* BSDJOBS */
	}
    }
1181
    if (setintr == 0 && parintr.sa_handler == SIG_DFL)
1182 1183 1184 1185 1186 1187 1188 1189 1190
	setintr = 1;

/*
 * SVR4 doesn't send a SIGCHLD when a child is stopped or continued if the
 * handler is installed with signal(2) or sigset(2).  sigaction(2) must
 * be used instead.
 *
 * David Dawes (dawes@physics.su.oz.au) Sept 1991
 */
1191
    sigset_interrupting(SIGCHLD, queue_pchild);
1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202

    if (intty && !arginp) 	
	(void) ed_Setup(editing);/* Get the tty state, and set defaults */
				 /* Only alter the tty state if editing */
    
    /*
     * Set an exit here in case of an interrupt or error reading the shell
     * start-up scripts.
     */
    osetintr = setintr;
    oparintr = parintr;
1203 1204 1205 1206 1207
    (void)cleanup_push_mark(); /* There is no outer handler */
    if (setexit() != 0) /* PWP */
	reenter = 1;
    else
	reenter = 0;
1208 1209 1210 1211 1212
    exitset++;
    haderr = 0;			/* In case second time through */
    if (!fast && reenter == 0) {
	/* Will have varval(STRhome) here because set fast if don't */
	{
1213 1214 1215 1216 1217
	    pintr_disabled++;
	    cleanup_push(&pintr_disabled, disabled_cleanup);
	    setintr = 0;/*FIXRESET:cleanup*/
	    /* onintr in /etc/ files has no effect */
	    parintr.sa_handler = SIG_IGN;/*FIXRESET: cleanup*/
1218 1219 1220
#ifdef LOGINFIRST
#ifdef _PATH_DOTLOGIN
	    if (loginsh)
1221
		(void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL);
1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235
#endif
#endif

#ifdef _PATH_DOTCSHRC
	    (void) srcfile(_PATH_DOTCSHRC, 0, 0, NULL);
#endif
	    if (!arginp && !onelflg && !havhash)
		dohash(NULL,NULL);
#ifndef LOGINFIRST
#ifdef _PATH_DOTLOGIN
	    if (loginsh)
		(void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL);
#endif
#endif
1236
	    cleanup_until(&pintr_disabled);
1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247
	    setintr = osetintr;
	    parintr = oparintr;
	}
#ifdef LOGINFIRST
	if (loginsh)
	    (void) srccat(varval(STRhome), STRsldotlogin);
#endif
	/* upward compat. */
	if (!srccat(varval(STRhome), STRsldottcshrc))
	    (void) srccat(varval(STRhome), STRsldotcshrc);

1248
	if (!arginp && !onelflg && !havhash)
1249 1250 1251 1252 1253 1254 1255 1256 1257 1258
	    dohash(NULL,NULL);

	/*
	 * Source history before .login so that it is available in .login
	 */
	loadhist(NULL, 0);
#ifndef LOGINFIRST
	if (loginsh)
	    (void) srccat(varval(STRhome), STRsldotlogin);
#endif
1259
	if (loginsh || rdirs)
1260 1261 1262 1263 1264
	    loaddirs(NULL);
    }
    /* Reset interrupt flag */
    setintr = osetintr;
    parintr = oparintr;
1265
    exitset--;
1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296

    /* Initing AFTER .cshrc is the Right Way */
    if (intty && !arginp) {	/* PWP setup stuff */
	ed_Init();		/* init the new line editor */
#ifdef SIG_WINDOW
	check_window_size(1);	/* mung environment */
#endif				/* SIG_WINDOW */
    }

    /*
     * Now are ready for the -v and -x flags
     */
    if (nverbose)
	setNS(STRverbose);
    if (nexececho)
	setNS(STRecho);
    
    /*
     * All the rest of the world is inside this call. The argument to process
     * indicates whether it should catch "error unwinds".  Thus if we are a
     * interactive shell our call here will never return by being blown past on
     * an error.
     */
    process(setintr);

    /*
     * Mop-up.
     */
    if (intty) {
	if (loginsh) {
	    xprintf("logout\n");
1297
	    xclose(SHIN);
1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313
	    child = 1;
#ifdef TESLA
	    do_logout = 1;
#endif				/* TESLA */
	    goodbye(NULL, NULL);
	}
	else {
	    xprintf("exit\n");
	}
    }
    record();
    exitstat();
    return (0);
}

void
1314
untty(void)
1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325
{
#ifdef BSDJOBS
    if (tpgrp > 0 && opgrp != shpgrp) {
	(void) setpgid(0, opgrp);
	(void) tcsetpgrp(FSHTTY, opgrp);
	(void) resetdisc(FSHTTY);
    }
#endif /* BSDJOBS */
}

void
1326
importpath(Char *cp)
1327
{
1328
    size_t i = 0;
1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339
    Char *dp;
    Char **pv;
    int     c;

    for (dp = cp; *dp; dp++)
	if (*dp == PATHSEP)
	    i++;
    /*
     * i+2 where i is the number of colons in the path. There are i+1
     * directories in the path plus we need room for a zero terminator.
     */
1340
    pv = xcalloc(i + 2, sizeof(Char *));
1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361
    dp = cp;
    i = 0;
    if (*dp)
	for (;;) {
	    if ((c = *dp) == PATHSEP || c == 0) {
		*dp = 0;
		pv[i++] = Strsave(*cp ? cp : STRdot);
		if (c) {
		    cp = dp + 1;
		    *dp = PATHSEP;
		}
		else
		    break;
	    }
#ifdef WINNT_NATIVE
	    else if (*dp == '\\')
		*dp = '/';
#endif /* WINNT_NATIVE */
	    dp++;
	}
    pv[i] = 0;
1362
    cleanup_push(pv, blk_cleanup);
1363
    setq(STRpath, pv, &shvhed, VAR_READWRITE);
1364 1365
    cleanup_ignore(pv);
    cleanup_until(pv);
1366 1367 1368 1369 1370 1371
}

/*
 * Source to the file which is the catenation of the argument names.
 */
static int
1372
srccat(Char *cp, Char *dp)
1373 1374 1375 1376 1377 1378 1379 1380 1381
{
    if (cp[0] == '/' && cp[1] == '\0') 
	return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
    else {
	Char *ep;
	char   *ptr;
	int rv;

#ifdef WINNT_NATIVE
1382 1383
	ep = Strend(cp);
	if (ep != cp && ep[-1] == '/' && dp[0] == '/') /* silly win95 */
1384 1385 1386 1387
	    dp++;
#endif /* WINNT_NATIVE */

	ep = Strspl(cp, dp);
1388
	cleanup_push(ep, xfree);
1389 1390 1391
	ptr = short2str(ep);

	rv = srcfile(ptr, (mflag ? 0 : 1), 0, NULL);
1392
	cleanup_until(ep);
1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404
	return rv;
    }
}

/*
 * Source to a file putting the file descriptor in a safe place (> 2).
 */
#ifndef WINNT_NATIVE
static int
#else
int
#endif /*WINNT_NATIVE*/
1405
srcfile(const char *f, int onlyown, int flag, Char **av)
1406 1407 1408
{
    int unit;

1409
    if ((unit = xopen(f, O_RDONLY|O_LARGEFILE)) == -1) 
1410
	return 0;
1411
    cleanup_push(&unit, open_cleanup);
1412
    unit = dmove(unit, -1);
1413 1414
    cleanup_ignore(&unit);
    cleanup_until(&unit);
1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426

    (void) close_on_exec(unit, 1);
    srcunit(unit, onlyown, flag, av);
    return 1;
}


/*
 * Save the shell state, and establish new argument vector, and new input
 * fd.
 */
static void
1427
st_save(struct saved_state *st, int unit, int hflg, Char **al, Char **av)
1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474
{
    st->insource	= insource;
    st->SHIN		= SHIN;
    /* Want to preserve the meaning of "source file >output".
     * Save old descriptors, move new 0,1,2 to safe places and assign
     * them to SH* and let process() redo 0,1,2 from them.
     *
     * The macro returns true if d1 and d2 are good and they point to
     * different things.  If you don't avoid saving duplicate
     * descriptors, you really limit the depth of "source" recursion
     * you can do because of all the open file descriptors.  -IAN!
     */
#define NEED_SAVE_FD(d1,d2) \
    (fstat(d1, &s1) != -1 && fstat(d2, &s2) != -1 \
	&& (s1.st_ino != s2.st_ino || s1.st_dev != s2.st_dev) )

    st->OLDSTD = st->SHOUT = st->SHDIAG = -1;/* test later to restore these */
    if (didfds) {
	    struct stat s1, s2;
	    if (NEED_SAVE_FD(0,OLDSTD)) {
		    st->OLDSTD = OLDSTD;
		    OLDSTD = dmove(0, -1);
		    (void)close_on_exec(OLDSTD, 1);
	    }
	    if (NEED_SAVE_FD(1,SHOUT)) {
		    st->SHOUT = SHOUT;
		    SHOUT = dmove(1, -1);
		    (void)close_on_exec(SHOUT, 1);
	    }
	    if (NEED_SAVE_FD(2,SHDIAG)) {
		    st->SHDIAG = SHDIAG;
		    SHDIAG = dmove(2, -1);
		    (void)close_on_exec(SHDIAG, 1);
	    }
	    donefds();
    }

    st->intty		= intty;
    st->whyles		= whyles;
    st->gointr		= gointr;
    st->arginp		= arginp;
    st->evalp		= evalp;
    st->evalvec		= evalvec;
    st->alvecp		= alvecp;
    st->alvec		= alvec;
    st->onelflg		= onelflg;
    st->enterhist	= enterhist;
1475
    st->justpr		= justpr;
1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497
    if (hflg)
	st->HIST	= HIST;
    else
	st->HIST	= '\0';
    st->cantell		= cantell;
    cpybin(st->B, B);

    /*
     * we can now pass arguments to source. 
     * For compatibility we do that only if arguments were really
     * passed, otherwise we keep the old, global $argv like before.
     */
    if (av != NULL && *av != NULL) {
	struct varent *vp;
	if ((vp = adrof(STRargv)) != NULL && vp->vec != NULL)
	    st->argv = saveblk(vp->vec);
	else
	    st->argv = NULL;
	setq(STRargv, saveblk(av), &shvhed, VAR_READWRITE);
    }
    else
	st->argv = NULL;
1498
    st->av = av;
1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528

    SHIN	= unit;	/* Do this first */

    /* Establish new input arena */
    {
	fbuf = NULL;
	fseekp = feobp = fblocks = 0;
	settell();
    }

    arginp	= 0;
    onelflg	= 0;
    intty	= isatty(SHIN);
    whyles	= 0;
    gointr	= 0;
    evalvec	= 0;
    evalp	= 0;
    alvec	= al;
    alvecp	= 0;
    enterhist	= hflg;
    if (enterhist)
	HIST	= '\0';
    insource	= 1;
}


/*
 * Restore the shell to a saved state
 */
static void
1529
st_restore(void *xst)
1530
{
1531 1532 1533
    struct saved_state *st;

    st = xst;
1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545
    if (st->SHIN == -1)
	return;

    /* Reset input arena */
    {
	int i;
	Char** nfbuf = fbuf;
	int nfblocks = fblocks;

	fblocks = 0;
	fbuf = NULL;
	for (i = 0; i < nfblocks; i++)
1546 1547
	    xfree(nfbuf[i]);
	xfree(nfbuf);
1548 1549 1550
    }
    cpybin(B, st->B);

1551
    xclose(SHIN);
1552 1553 1554 1555

    insource	= st->insource;
    SHIN	= st->SHIN;
    if (st->OLDSTD != -1)
1556
	xclose(OLDSTD), OLDSTD = st->OLDSTD;
1557
    if (st->SHOUT != -1)
1558
	xclose(SHOUT),  SHOUT = st->SHOUT;
1559
    if (st->SHDIAG != -1)
1560
	xclose(SHDIAG), SHDIAG = st->SHDIAG;
1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573
    arginp	= st->arginp;
    onelflg	= st->onelflg;
    evalp	= st->evalp;
    evalvec	= st->evalvec;
    alvecp	= st->alvecp;
    alvec	= st->alvec;
    intty	= st->intty;
    whyles	= st->whyles;
    gointr	= st->gointr;
    if (st->HIST != '\0')
	HIST	= st->HIST;
    enterhist	= st->enterhist;
    cantell	= st->cantell;
1574
    justpr	= st->justpr;
1575 1576 1577

    if (st->argv != NULL)
	setq(STRargv, st->argv, &shvhed, VAR_READWRITE);
1578
    else if (st->av != NULL  && *st->av != NULL && adrof(STRargv) != NULL)
1579 1580 1581 1582 1583 1584 1585 1586
	unsetv(STRargv);
}

/*
 * Source to a unit.  If onlyown it must be our file or our group or
 * we don't chance it.	This occurs on ".cshrc"s and the like.
 */
static void
1587
srcunit(int unit, int onlyown, int hflg, Char **av)
1588 1589
{
    struct saved_state st;
1590

1591 1592 1593 1594 1595 1596 1597 1598 1599
    st.SHIN = -1;	/* st_restore checks this */

    if (unit < 0)
	return;

    if (onlyown) {
	struct stat stb;

	if (fstat(unit, &stb) < 0) {
1600
	    xclose(unit);
1601 1602 1603 1604
	    return;
	}
    }

1605 1606 1607 1608 1609 1610
    /* Does nothing before st_save() because st.SHIN == -1 */
    cleanup_push(&st, st_restore);
    if (setintr) {
	pintr_disabled++;
	cleanup_push(&pintr_disabled, disabled_cleanup);
    }
1611 1612 1613 1614 1615 1616 1617 1618

    /* Save the current state and move us to a new state */
    st_save(&st, unit, hflg, NULL, av);

    /*
     * Now if we are allowing commands to be interrupted, we let ourselves be
     * interrupted.
     */
1619 1620 1621 1622
    if (setintr) {
	cleanup_until(&pintr_disabled);
	pintr_disabled++;
	cleanup_push(&pintr_disabled, disabled_cleanup);
1623 1624
    }

1625
    process(0);		/* 0 -> blow away on errors */
1626 1627

    /* Restore the old state */
1628
    cleanup_until(&st);
1629 1630 1631 1632 1633
}


/*ARGSUSED*/
void
1634
goodbye(Char **v, struct command *c)
1635 1636 1637 1638 1639 1640
{
    USE(v);
    USE(c);
    record();

    if (loginsh) {
1641 1642 1643
	size_t omark;
	sigset_t set;

1644
	sigemptyset(&set);
1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655
	signal(SIGQUIT, SIG_IGN);
	sigaddset(&set, SIGQUIT);
	sigprocmask(SIG_UNBLOCK, &set, NULL);
	signal(SIGINT, SIG_IGN);
	sigaddset(&set, SIGINT);
	signal(SIGTERM, SIG_IGN);
	sigaddset(&set, SIGTERM);
	signal(SIGHUP, SIG_IGN);
	sigaddset(&set, SIGHUP);
	sigprocmask(SIG_UNBLOCK, &set, NULL);
	phup_disabled = 1;
1656 1657
	setintr = 0;		/* No interrupts after "logout" */
	/* Trap errors inside .logout */
1658 1659 1660 1661
	omark = cleanup_push_mark();
	if (setexit() == 0) {
	    if (!(adrof(STRlogout)))
		setcopy(STRlogout, STRnormal, VAR_READWRITE);
1662
#ifdef _PATH_DOTLOGOUT
1663
	    (void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL);
1664
#endif
1665 1666
	    if (adrof(STRhome))
		(void) srccat(varval(STRhome), STRsldtlogout);
1667
#ifdef TESLA
1668
	    do_logout = 1;
1669
#endif /* TESLA */
1670 1671
	}
	cleanup_pop_mark(omark);
1672 1673 1674 1675 1676
    }
    exitstat();
}

void
1677
exitstat(void)
1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694
{
#ifdef PROF
    monitor(0);
#endif
    /*
     * Note that if STATUS is corrupted (i.e. getn bombs) then error will exit
     * directly because we poke child here. Otherwise we might continue
     * unwarrantedly (sic).
     */
    child = 1;

    xexit(getn(varval(STRstatus)));
}

/*
 * in the event of a HUP we want to save the history
 */
1695 1696
void
phup(void)
1697 1698
{
    if (loginsh) {
1699
	setcopy(STRlogout, STRhangup, VAR_READWRITE);
1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745
#ifdef _PATH_DOTLOGOUT
	(void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL);
#endif
	if (adrof(STRhome))
	    (void) srccat(varval(STRhome), STRsldtlogout);
    }

    record();

#ifdef POSIXJOBS 
    /*
     * We kill the last foreground process group. It then becomes
     * responsible to propagate the SIGHUP to its progeny. 
     */
    {
	struct process *pp, *np;

	for (pp = proclist.p_next; pp; pp = pp->p_next) {
	    np = pp;
	    /* 
	     * Find if this job is in the foreground. It could be that
	     * the process leader has exited and the foreground flag
	     * is cleared for it.
	     */
	    do 
		/*
		 * If a process is in the foreground we try to kill
		 * it's process group. If we succeed, then the 
		 * whole job is gone. Otherwise we keep going...
		 * But avoid sending HUP to the shell again.
		 */
		if (((np->p_flags & PFOREGND) != 0) && np->p_jobid != shpgrp) {
		    np->p_flags &= ~PHUP;
		    if (killpg(np->p_jobid, SIGHUP) != -1) {
			/* In case the job was suspended... */
#ifdef SIGCONT
			(void) killpg(np->p_jobid, SIGCONT);
#endif
			break;
		    }
		}
	    while ((np = np->p_friends) != pp);
	}
    }
#endif /* POSIXJOBS */

1746
    xexit(SIGHUP);
1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757
}

static Char   *jobargv[2] = {STRjobs, 0};

/*
 * Catch an interrupt, e.g. during lexical input.
 * If we are an interactive shell, we reset the interrupt catch
 * immediately.  In any case we drain the shell output,
 * and finally go through the normal error mechanism, which
 * gets a chance to make the shell go away.
 */
1758
int just_signaled;		/* bugfix by Michael Bloom (mg@ttidca.TTI.COM) */
1759

1760 1761
void
pintr(void)
1762 1763 1764 1765 1766 1767
{
    just_signaled = 1;
    pintr1(1);
}

void
1768
pintr1(int wantnl)
1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836
{
    if (setintr) {
	if (pjobs) {
	    pjobs = 0;
	    xputchar('\n');
	    dojobs(jobargv, NULL);
	    stderror(ERR_NAME | ERR_INTR);
	}
    }
    /* MH - handle interrupted completions specially */
    {
	if (InsideCompletion)
	    stderror(ERR_SILENT);
    }
    /* JV - Make sure we shut off inputl */
    {
	(void) Cookedmode();
	GettingInput = 0;
    }
    drainoline();
#ifdef HAVE_GETPWENT
    (void) endpwent();
#endif

    /*
     * If we have an active "onintr" then we search for the label. Note that if
     * one does "onintr -" then we shan't be interruptible so we needn't worry
     * about that here.
     */
    if (gointr) {
	gotolab(gointr);
	reset();
    }
    else if (intty && wantnl) {
	if (editing) {
	    /* 
	     * If we are editing a multi-line input command, and move to
	     * the beginning of the line, we don't want to trash it when
	     * we hit ^C
	     */
	    PastBottom();
	    ClearLines();
	    ClearDisp();
	}
	else {
	    /* xputchar('\n'); *//* Some like this, others don't */
	    (void) putraw('\r');
	    (void) putraw('\n');
	}
    }
    stderror(ERR_SILENT);
}

/*
 * Process is the main driving routine for the shell.
 * It runs all command processing, except for those within { ... }
 * in expressions (which is run by a routine evalav in sh.exp.c which
 * is a stripped down process), and `...` evaluation which is run
 * also by a subset of this code in sh.glob.c in the routine backeval.
 *
 * The code here is a little strange because part of it is interruptible
 * and hence freeing of structures appears to occur when none is necessary
 * if this is ignored.
 *
 * Note that if catch is not set then we will unwind on any error.
 * If an end-of-file occurs, we return.
 */
void
1837
process(int catch)
1838 1839 1840
{
    jmp_buf_t osetexit;
    /* PWP: This might get nuked my longjmp so don't make it a register var */
1841
    size_t omark;
1842
    volatile int didexitset = 0;
1843 1844

    getexit(osetexit);
1845
    omark = cleanup_push_mark();
1846
    for (;;) {
1847 1848
	struct command *t;
	int hadhist, old_pintr_disabled;
1849

1850 1851 1852 1853 1854
	(void)setexit();
	if (didexitset == 0) {
	    exitset++;
	    didexitset++;
	}
1855 1856 1857 1858 1859 1860 1861 1862
	pendjob();

	justpr = enterhist;	/* execute if not entering history */

	if (haderr) {
	    if (!catch) {
		/* unwind */
		doneinp = 0;
1863
		cleanup_pop_mark(omark);
1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896
		resexit(osetexit);
		reset();
	    }
	    haderr = 0;
	    /*
	     * Every error is eventually caught here or the shell dies.  It is
	     * at this point that we clean up any left-over open files, by
	     * closing all but a fixed number of pre-defined files.  Thus
	     * routines don't have to worry about leaving files open due to
	     * deeper errors... they will get closed here.
	     */
	    closem();
	    continue;
	}
	if (doneinp) {
	    doneinp = 0;
	    break;
	}
	if (chkstop)
	    chkstop--;
	if (neednote)
	    pnote();
	if (intty && prompt && evalvec == 0) {
	    just_signaled = 0;
	    mailchk();
	    /*
	     * Watch for logins/logouts. Next is scheduled commands stored
	     * previously using "sched." Then execute periodic commands.
	     * Following that, the prompt precmd is run.
	     */
#ifndef HAVENOUTMP
	    watch_login(0);
#endif /* !HAVENOUTMP */
1897
	    sched_run();
1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910
	    period_cmd();
	    precmd();
	    /*
	     * If we are at the end of the input buffer then we are going to
	     * read fresh stuff. Otherwise, we are rereading input and don't
	     * need or want to prompt.
	     */
	    if (fseekp == feobp && aret == TCSH_F_SEEK)
		printprompt(0, NULL);
	    flush();
	    setalarm(1);
	}
	if (seterr) {
1911
	    xfree(seterr);
1912 1913 1914
	    seterr = NULL;
	}

1915 1916 1917 1918 1919 1920 1921 1922 1923 1924
	/*
	 * Interruptible during interactive reads
	 */
	if (setintr)
	    pintr_push_enable(&old_pintr_disabled);
	hadhist = lex(&paraml);
	if (setintr)
	    cleanup_until(&old_pintr_disabled);
	cleanup_push(&paraml, lex_cleanup);

1925 1926 1927 1928
	/*
	 * Echo not only on VERBOSE, but also with history expansion. If there
	 * is a lexical error then we forego history echo.
	 */
1929 1930
	if ((hadhist && !seterr && intty && !tellwhat && !Expand && !whyles) ||
	    adrof(STRverbose)) {
1931 1932 1933 1934 1935 1936 1937 1938 1939
	    int odidfds = didfds;
	    haderr = 1;
	    didfds = 0;
	    prlex(&paraml);
	    flush();
	    haderr = 0;
	    didfds = odidfds;
	}
	(void) alarm(0);	/* Autologout OFF */
1940
	alrmcatch_disabled = 1;
1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965

	/*
	 * Save input text on the history list if reading in old history, or it
	 * is from the terminal at the top level and not in a loop.
	 * 
	 * PWP: entry of items in the history list while in a while loop is done
	 * elsewhere...
	 */
	if (enterhist || (catch && intty && !whyles && !tellwhat && !arun))
	    savehist(&paraml, enterhist > 1);

	if (Expand && seterr)
	    Expand = 0;

	/*
	 * Print lexical error messages, except when sourcing history lists.
	 */
	if (!enterhist && seterr)
	    stderror(ERR_OLD);

	/*
	 * If had a history command :p modifier then this is as far as we
	 * should go
	 */
	if (justpr)
1966
	    goto cmd_done;
1967 1968 1969 1970 1971 1972

	/*
	 * If had a tellwhat from twenex() then do
	 */
	if (tellwhat) {
	    (void) tellmewhat(&paraml, NULL);
1973
	    goto cmd_done;
1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993
	}

	alias(&paraml);

#ifdef BSDJOBS
	/*
	 * If we are interactive, try to continue jobs that we have stopped
	 */
	if (prompt)
	    continue_jobs(&paraml);
#endif				/* BSDJOBS */

	/*
	 * Check to see if the user typed "rm * .o" or something
	 */
	if (prompt)
	    rmstar(&paraml);
	/*
	 * Parse the words of the input into a parse tree.
	 */
1994 1995
	t = syntax(paraml.next, &paraml, 0);
	cleanup_push(t, syntax_cleanup);
1996 1997 1998 1999 2000 2001 2002 2003
	if (seterr)
	    stderror(ERR_OLD);

	postcmd();
	/*
	 * Execute the parse tree From: Michael Schroeder
	 * <mlschroe@immd4.informatik.uni-erlangen.de> was execute(t, tpgrp);
	 */
2004
	execute(t, (tpgrp > 0 ? tpgrp : -1), NULL, NULL, TRUE);
2005 2006 2007 2008 2009 2010 2011 2012 2013

	/*
	 * Made it!
	 */
#ifdef SIG_WINDOW
	if (windowchg || (catch && intty && !whyles && !tellwhat)) {
	    (void) check_window_size(0);	/* for window systems */
	}
#endif /* SIG_WINDOW */
2014 2015 2016
	setcopy(STR_, InputBuf, VAR_READWRITE | VAR_NOGLOB);
    cmd_done:
	cleanup_until(&paraml);
2017
    }
2018
    cleanup_pop_mark(omark);
2019
    resexit(osetexit);
2020
    exitset--;
2021 2022 2023 2024
}

/*ARGSUSED*/
void
2025
dosource(Char **t, struct command *c)
2026 2027 2028
{
    Char *f;
    int    hflg = 0;
2029
    char *file;
2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044

    USE(c);
    t++;
    if (*t && eq(*t, STRmh)) {
	if (*++t == NULL)
	    stderror(ERR_NAME | ERR_HFLAG);
	hflg++;
    }
    else if (*t && eq(*t, STRmm)) {
    	if (*++t == NULL)
	    stderror(ERR_NAME | ERR_MFLAG);
	hflg = 2;
    }

    f = globone(*t++, G_ERROR);
2045 2046 2047 2048 2049 2050 2051
    file = strsave(short2str(f));
    cleanup_push(file, xfree);
    xfree(f);
    t = glob_all_or_error(t);
    if ((!srcfile(file, 0, hflg, t)) && (!hflg) && (!bequiet))
	stderror(ERR_SYSTEM, file, strerror(errno));
    cleanup_until(file);
2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073
}

/*
 * Check for mail.
 * If we are a login shell, then we don't want to tell
 * about any mail file unless its been modified
 * after the time we started.
 * This prevents us from telling the user things he already
 * knows, since the login program insists on saying
 * "You have mail."
 */

/*
 * The AMS version.
 * This version checks if the file is a directory, and if so,
 * tells you the number of files in it, otherwise do the old thang.
 * The magic "+1" in the time calculation is to compensate for
 * an AFS bug where directory mtimes are set to 1 second in
 * the future.
 */

static void
2074
mailchk(void)
2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107
{
    struct varent *v;
    Char **vp;
    time_t  t;
    int     intvl, cnt;
    struct stat stb;
    int    new;

    v = adrof(STRmail);
    if (v == NULL || v->vec == NULL)
	return;
    (void) time(&t);
    vp = v->vec;
    cnt = blklen(vp);
    intvl = (cnt && number(*vp)) ? (--cnt, getn(*vp++)) : MAILINTVL;
    if (intvl < 1)
	intvl = 1;
    if (chktim + intvl > t)
	return;
    for (; *vp; vp++) {
	char *filename = short2str(*vp);
	char *mboxdir = filename;

	if (stat(filename, &stb) < 0)
	    continue;
#if defined(BSDTIMES) || defined(_SEQUENT_)
	new = stb.st_mtime > time0.tv_sec;
#else
	new = stb.st_mtime > seconds0;
#endif
	if (S_ISDIR(stb.st_mode)) {
	    DIR *mailbox;
	    int mailcount = 0;
2108
	    char *tempfilename;
2109 2110
	    struct stat stc;

2111
	    tempfilename = xasprintf("%s/new", filename);
2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126

	    if (stat(tempfilename, &stc) != -1 && S_ISDIR(stc.st_mode)) {
		/*
		 * "filename/new" exists and is a directory; you are
		 * using Qmail.
		 */
		stb = stc;
#if defined(BSDTIMES) || defined(_SEQUENT_)
		new = stb.st_mtime > time0.tv_sec;
#else
		new = stb.st_mtime > seconds0;
#endif
		mboxdir = tempfilename;
	    }

2127 2128
	    if (stb.st_mtime <= chktim + 1 || (loginsh && !new)) {
		xfree(tempfilename);
2129
		continue;
2130
	    }
2131

2132 2133 2134
	    mailbox = opendir(mboxdir);
	    xfree(tempfilename);
	    if (mailbox == NULL)
2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161
		continue;

	    /* skip . and .. */
	    if (!readdir(mailbox) || !readdir(mailbox))
		continue;

	    while (readdir(mailbox))
		mailcount++;

	    if (mailcount == 0)
		continue;

	    if (cnt == 1)
		xprintf(CGETS(11, 3, "You have %d mail messages.\n"),
			mailcount);
	    else
		xprintf<