*/
char *pathlist[] = { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
*/
char *pathlist[] = { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
-char *dumphist[] = { "history", "-c", "+1000" };
+char *dumphist[] = { "history", "-h", 0 };
+char *loadhist[] = { "source", "-h", "~/.history", 0 };
sigset(SIGINT, parintr); /* ... restore */
parterm = signal(SIGTERM, SIG_IGN); /* parents terminability */
signal(SIGTERM, parterm); /* ... restore */
sigset(SIGINT, parintr); /* ... restore */
parterm = signal(SIGTERM, SIG_IGN); /* parents terminability */
signal(SIGTERM, parterm); /* ... restore */
if (ioctl(f, TIOCGETD, &oldisc) != 0)
goto notty;
if (oldisc != NTTYDISC) {
if (ioctl(f, TIOCGETD, &oldisc) != 0)
goto notty;
if (oldisc != NTTYDISC) {
srccat(value("home"), "/.cshrc");
if (!fast && !arginp && !onelflg)
dohash();
srccat(value("home"), "/.cshrc");
if (!fast && !arginp && !onelflg)
dohash();
setpgrp(0, opgrp);
ioctl(FSHTTY, TIOCSPGRP, &opgrp);
if (oldisc != -1 && oldisc != NTTYDISC) {
setpgrp(0, opgrp);
ioctl(FSHTTY, TIOCSPGRP, &opgrp);
if (oldisc != -1 && oldisc != NTTYDISC) {
* 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.
*/
* 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.
*/
char *ogointr = gointr, *oarginp = arginp;
char *oevalp = evalp, **oevalvec = evalvec;
int oonelflg = onelflg;
char *ogointr = gointr, *oarginp = arginp;
char *oevalp = evalp, **oevalvec = evalvec;
int oonelflg = onelflg;
oSHIN = SHIN, SHIN = unit, arginp = 0, onelflg = 0;
intty = isatty(SHIN), whyles = 0, gointr = 0;
evalvec = 0; evalp = 0;
oSHIN = SHIN, SHIN = unit, arginp = 0, onelflg = 0;
intty = isatty(SHIN), whyles = 0, gointr = 0;
evalvec = 0; evalp = 0;
/*
* Now if we are allowing commands to be interrupted,
* we let ourselves be interrupted.
/*
* Now if we are allowing commands to be interrupted,
* we let ourselves be interrupted.
arginp = oarginp, onelflg = oonelflg;
evalp = oevalp, evalvec = oevalvec;
intty = oldintty, whyles = oldwhyl, gointr = ogointr;
arginp = oarginp, onelflg = oonelflg;
evalp = oevalp, evalvec = oevalvec;
intty = oldintty, whyles = oldwhyl, gointr = ogointr;
strcpy(buf, value("home"));
strcat(buf, "/.history");
fp = creat(buf, 0777);
strcpy(buf, value("home"));
strcat(buf, "/.history");
fp = creat(buf, 0777);
signal(SIGQUIT, SIG_IGN);
sigset(SIGINT, SIG_IGN);
signal(SIGTERM, SIG_IGN);
signal(SIGQUIT, SIG_IGN);
sigset(SIGINT, SIG_IGN);
signal(SIGTERM, SIG_IGN);
char *jobargv[2] = { "jobs", 0 };
/*
* Catch an interrupt, e.g. during lexical input.
char *jobargv[2] = { "jobs", 0 };
/*
* Catch an interrupt, e.g. during lexical input.
* Echo not only on VERBOSE, but also with history expansion.
* If there is a lexical error then we forego history echo.
*/
* Echo not only on VERBOSE, but also with history expansion.
* If there is a lexical error then we forego history echo.
*/