/*

 * main.c - common main function for lsof

 *

 * V. Abell, Purdue University

 */

/*

 * Copyright 1994 Purdue Research Foundation, West Lafayette, Indiana

 * 47907.  All rights reserved.

 *

 * Written by Victor A. Abell

 *

 * This software is not subject to any license of the American Telephone

 * and Telegraph Company or the Regents of the University of California.

 *

 * Permission is granted to anyone to use this software for any purpose on

 * any computer system, and to alter it and redistribute it freely, subject

 * to the following restrictions:

 *

 * 1. Neither the authors nor Purdue University are responsible for any

 *    consequences of the use of this software.

 *

 * 2. The origin of this software must not be misrepresented, either by

 *    explicit claim or by omission.  Credit to the authors and Purdue

 *    University must appear in documentation and sources.

 *

 * 3. Altered versions must be plainly marked as such, and must not be

 *    misrepresented as being the original software.

 *

 * 4. This notice may not be removed or altered.

 */

#ifndef lint

static char copyright[] =

"@(#) Copyright 1994 Purdue Research Foundation.\nAll rights reserved.\n";

static char *rcsid = "$Id: main.c,v 1.59 2018/03/26 21:50:45 abe Exp $";

#endif

#include "lsof.h"

/*

 * Local definitions

 */

static int GObk[] = { 1, 1 };		/* option backspace values */

static char GOp;			/* option prefix -- '+' or '-' */

static char *GOv = (char *)NULL;	/* option `:' value pointer */

static int GOx1 = 1;			/* first opt[][] index */

static int GOx2 = 0;			/* second opt[][] index */

_PROTOTYPE(static int GetOpt,(int ct, char *opt[], char *rules, int *err));

_PROTOTYPE(static char *sv_fmt_str,(char *f));

/*

 * main() - main function for lsof

 */

int

main(argc, argv)

	int argc;

	char *argv[];

{

	int ad, c, i, n, rv, se1, se2, ss;

	char *cp;

	int err = 0;

	int ev = 0;

	int fh = 0;

	char *fmtr = (char *)NULL;

	long l;

	MALLOC_S len;

	struct lfile *lf;

	struct nwad *np, *npn;

	char options[128];

	int rc = 0;

	struct stat sb;

	struct sfile *sfp;

	struct lproc **slp = (struct lproc **)NULL;

	int sp = 0;

	struct str_lst *str, *strt;

	int version = 0;

	int xover = 0;

#if	defined(HAS_STRFTIME)

	char *fmt = (char *)NULL;

	size_t fmtl = (size_t)0;

#endif	/* defined(HAS_STRFTIME) */

#if	defined(HASZONES)

	znhash_t *zp;

#endif	/* defined(HASZONES) */

#if	defined(HASSELINUX)

/*

 * This stanza must be immediately before the "Save progam name." code, since

 * it contains code itself.

 */

	cntxlist_t *cntxp;

	CntxStatus = is_selinux_enabled() ? 1 : 0;

#endif	/* defined(HASSELINUX) */

/*

 * Save program name.

 */

	if ((Pn = strrchr(argv[0], '/')))

	    Pn++;

	else

	    Pn = argv[0];

/*

 * Close enough file descriptors above 2 that library functions will have

 * open descriptors.

 *

 * Make sure stderr, stdout, and stdin are open descriptors.  Open /dev/null

 * for ones that aren't.  Be terse.

 *

 * Make sure umask allows lsof to define its own file permissions.

 */

	if ((MaxFd = (int) GET_MAX_FD()) < 53)

	    MaxFd = 53;

#if	defined(HAS_CLOSEFROM)

	(void) closefrom(3);

#else	/* !defined(HAS_CLOSEFROM) */

	for (i = 3; i < MaxFd; i++)

	    (void) close(i);

#endif	/* !defined(HAS_CLOSEFROM) */

	while (((i = open("/dev/null", O_RDWR, 0)) >= 0) && (i < 2))

	    ;

	if (i < 0)

	    Exit(1);

	if (i > 2)

	    (void) close(i);

	(void) umask(0);

#if	defined(HASSETLOCALE)

/*

 * Set locale to environment's definition.

 */

	(void) setlocale(LC_CTYPE, "");

#endif	/* defined(HASSETLOCALE) */

/*

 * Common initialization.

 */

	Mypid = getpid();

	if ((Mygid = (gid_t)getgid()) != getegid())

	    Setgid = 1;

	Euid = geteuid();

	if ((Myuid = (uid_t)getuid()) && !Euid)

	    Setuidroot = 1;

	if (!(Namech = (char *)malloc(MAXPATHLEN + 1))) {

	    (void) fprintf(stderr, "%s: no space for name buffer\n", Pn);

	    Exit(1);

	}

	Namechl = (size_t)(MAXPATHLEN + 1);

/*

 * Create option mask.

 */

	(void) snpf(options, sizeof(options),

	    "?a%sbc:%sD:d:%s%sf:F:g:hi:%s%slL:%s%snNo:Op:Pr:%ss:S:tT:u:UvVwx:%s%s%s",

#if	defined(HAS_AFS) && defined(HASAOPT)

	    "A:",

#else	/* !defined(HAS_AFS) || !defined(HASAOPT) */

	    "",

#endif	/* defined(HAS_AFS) && defined(HASAOPT) */

#if	defined(HASNCACHE)

	    "C",

#else	/* !defined(HASNCACHE) */

	    "",

#endif	/* defined(HASNCACHE) */

#if	defined(HASEOPT)

	    "e:",

#else	/* !defined(HASEOPT) */

	    "",

#endif	/* defined(HASEOPT) */

#if	defined(HASEPTOPTS)

	    "E",

#else	/* !defined(HASEPTOPTS) */

	    "",

#endif	/* defined(HASEPTOPTS) */

#if	defined(HASKOPT)

	    "k:",

#else	/* !defined(HASKOPT) */

	    "",

#endif	/* defined(HASKOPT) */

#if	defined(HASTASKS)

	    "K:",

#else	/* !defined(HASTASKS) */

	    "",

#endif	/* defined(HASTASKS) */

#if	defined(HASMOPT) || defined(HASMNTSUP)

	    "m:",

#else	/* !defined(HASMOPT) && !defined(HASMNTSUP) */

	    "",

#endif	/* defined(HASMOPT) || defined(HASMNTSUP) */

#if	defined(HASNORPC_H)

	    "",

#else	/* !defined(HASNORPC_H) */

	    "M",

#endif	/* defined(HASNORPC_H) */

#if	defined(HASPPID)

	    "R",

#else	/* !defined(HASPPID) */

	    "",

#endif	/* defined(HASPPID) */

#if	defined(HASXOPT)

# if	defined(HASXOPT_ROOT)

	    (Myuid == 0) ? "X" : "",

# else	/* !defined(HASXOPT_ROOT) */

	    "X",

# endif	/* defined(HASXOPT_ROOT) */

#else	/* !defined(HASXOPT) */

	    "",

#endif	/* defined(HASXOPT) */

#if	defined(HASZONES)

	    "z:",

#else	/* !defined(HASZONES) */

	    "",

#endif	/* defined(HASZONES) */

#if	defined(HASSELINUX)

	    "Z:"

#else	/* !defined(HASSELINUX) */

	    ""

#endif	/* defined(HASSELINUX) */

	    );

/*

 * Loop through options.

 */

	while ((c = GetOpt(argc, argv, options, &rv)) != EOF) {

	    if (rv) {

		err = 1;

		continue;

	    }

	    switch (c) {

	    case 'a':

		Fand = 1;

		break;

#if	defined(HAS_AFS) && defined(HASAOPT)

	    case 'A':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    (void) fprintf(stderr, "%s: -A not followed by path\n", Pn);

		    err = 1;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		} else

		    AFSApath = GOv;

		break;

#endif	/* defined(HAS_AFS) && defined(HASAOPT) */

	    case 'b':

		Fblock = 1;

		break;

	    case 'c':

		if (GOp == '+') {

		    if (!GOv || (*GOv == '-') || (*GOv == '+')

		    ||  !isdigit((int)*GOv))

		    {

			(void) fprintf(stderr,

			    "%s: +c not followed by width number\n", Pn);

			err = 1;

			if (GOv) {

			    GOx1 = GObk[0];

			    GOx2 = GObk[1];

			}

		    } else {

			CmdLim = TaskCmdLim = atoi(GOv);

#if	defined(MAXSYSCMDL)

			if (CmdLim > MAXSYSCMDL) {

			    (void) fprintf(stderr,

				"%s: +c %d > what system provides (%d)\n",

				Pn, CmdLim, MAXSYSCMDL);

			    err = 1;

			}

#endif	/* defined(MAXSYSCMDL) */

		    }

		    break;

		}

		if (GOv && (*GOv == '/')) {

		    if (enter_cmd_rx(GOv))

			err = 1;

		} else {

		    if (enter_str_lst("-c", GOv, &Cmdl, &Cmdni, &Cmdnx))

			err = 1;

#if	defined(MAXSYSCMDL)

		    else if (Cmdl->len > MAXSYSCMDL) {

			(void) fprintf(stderr, "%s: \"-c ", Pn);

			(void) safestrprt(Cmdl->str, stderr, 2);

			(void) fprintf(stderr, "\" length (%d) > what system",

			    Cmdl->len);

			(void) fprintf(stderr, " provides (%d)\n",

			    MAXSYSCMDL);

			Cmdl->len = 0;	/* (to avoid later error report) */

			err = 1;

		    }

#endif	/* defined(MAXSYSCMDL) */

		}

		break;

#if	defined(HASNCACHE)

	    case 'C':

		Fncache = (GOp == '-') ? 0 : 1;

		break;

#endif	/* defined(HASNCACHE) */

	    case 'd':

		if (GOp == '+') {

		    if (enter_dir(GOv, 0))

			err = 1;

		    else {

			Selflags |= SELNM;

			xover = 1;

		    }

		} else {

		    if (enter_fd(GOv))

			err = 1;

		}

		break;

	    case 'D':

		if (GOp == '+') {

		    if (enter_dir(GOv, 1))

			err = 1;

		    else {

			Selflags |= SELNM;

			xover = 1;

		    }

		} else {

#if	defined(HASDCACHE)

		    if (ctrl_dcache(GOv))

			err = 1;

#else	/* !defined(HASDCACHE) */

		    (void) fprintf(stderr, "%s: unsupported option: -D\n", Pn);

		    err = 1;

#endif	/* defined(HASDCACHE) */

		}

		break;

#if	defined(HASEOPT)

	    case 'e':

		if (enter_efsys(GOv, ((GOp == '+') ? 1 : 0)))

		    err = 1;

		break;

#endif	/* defined(HASEOPT) */

#if	defined(HASEPTOPTS)

	    case 'E':

		FeptE = (GOp == '+') ? 2 : 1;

		break;

#endif	/* defined(HASEPTOPTS) */

	    case 'f':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Ffilesys = (GOp == '+') ? 2 : 1;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

#if	defined(HASFSTRUCT)

		for (; *GOv; GOv++) {

		    switch (*GOv) {

# if	!defined(HASNOFSCOUNT)

		    case 'c':

		    case 'C':

			if (GOp == '+') {

			    Fsv |= FSV_CT;

			    FsvByf = 1;

			} else

			    Fsv &= (unsigned char)~FSV_CT;

			break;

# endif	/* !defined(HASNOFSCOUNT) */

# if	!defined(HASNOFSADDR)

		    case 'f':

		    case 'F':

			if (GOp == '+') {

			    Fsv |= FSV_FA;

			    FsvByf = 1;

			} else

			    Fsv &= (unsigned char)~FSV_FA;

			break;

# endif	/* !defined(HASNOFSADDR) */

# if	!defined(HASNOFSFLAGS)

		    case 'g':

		    case 'G':

			if (GOp == '+') {

			    Fsv |= FSV_FG;

			    FsvByf = 1;

			} else

			    Fsv &= (unsigned char)~FSV_FG;

			FsvFlagX = (*GOv == 'G') ? 1 : 0;

			break;

# endif	/* !defined(HASNOFSFLAGS) */

# if	!defined(HASNOFSNADDR)

		    case 'n':

		    case 'N':

			if (GOp == '+') {

			    Fsv |= FSV_NI;

			    FsvByf = 1;

			} else

			    Fsv &= (unsigned char)~FSV_NI;

			break;

# endif	/* !defined(HASNOFSNADDR */

		    default:

			(void) fprintf(stderr,

			    "%s: unknown file struct option: %c\n", Pn, *GOv);

			err++;

		    }

		}

#else	/* !defined(HASFSTRUCT) */

		(void) fprintf(stderr,

		    "%s: unknown string for %cf: %s\n", Pn, GOp, GOv);

		err++;

#endif	/* defined(HASFSTRUCT) */

		break;

	    case 'F':

		if (!GOv || *GOv == '-' || *GOv == '+'

		||  strcmp(GOv, "0") == 0) {

		    if (GOv) {

			if (*GOv == '-' || *GOv == '+') {

			    GOx1 = GObk[0];

			    GOx2 = GObk[1];

			} else if (*GOv == '0')

			    Terminator = '\0';

		    }

		    for (i = 0; FieldSel[i].nm; i++) {

#if	!defined(HASPPID)

			if (FieldSel[i].id == LSOF_FID_PPID)

			    continue;

#endif	/* !defined(HASPPID) */

#if	!defined(HASTASKS)

			if (FieldSel[i].id == LSOF_FID_TCMD)

			    continue;

#endif	/* !defined(HASTASKS) */

#if	!defined(HASFSTRUCT)

			if (FieldSel[i].id == LSOF_FID_CT

			||  FieldSel[i].id == LSOF_FID_FA

			||  FieldSel[i].id == LSOF_FID_FG

			||  FieldSel[i].id == LSOF_FID_NI)

			    continue;

#endif	/* !defined(HASFSTRUCT) */

#if	defined(HASSELINUX)

			if ((FieldSel[i].id == LSOF_FID_CNTX) && !CntxStatus)

			    continue;

#else	/* !defined(HASSELINUX) */

			if (FieldSel[i].id == LSOF_FID_CNTX)

			    continue;

#endif	/* !defined(HASSELINUX) */

			if (FieldSel[i].id == LSOF_FID_RDEV)

			    continue;	/* for compatibility */

#if	!defined(HASTASKS)

			if (FieldSel[i].id == LSOF_FID_TID)

			    continue;

#endif	/* !defined(HASTASKS) */

#if	!defined(HASZONES)

			if (FieldSel[i].id == LSOF_FID_ZONE)

			    continue;

#endif	/* !defined(HASZONES) */

			FieldSel[i].st = 1;

			if (FieldSel[i].opt && FieldSel[i].ov)

			    *(FieldSel[i].opt) |= FieldSel[i].ov;

		    }

#if	defined(HASFSTRUCT)

		    Ffield = FsvFlagX = 1;

#else	/* !defined(HASFSTRUCT) */

		    Ffield = 1;

#endif	/* defined(HASFSTRUCT) */

		    break;

		}

		if (strcmp(GOv, "?") == 0) {

		    fh = 1;

		    break;

		}

		for (; *GOv; GOv++) {

		    for (i = 0; FieldSel[i].nm; i++) {

#if	!defined(HASPPID)

			if (FieldSel[i].id == LSOF_FID_PPID)

			    continue;

#endif	/* !defined(HASPPID) */

#if	!defined(HASTASKS)

			if (FieldSel[i].id == LSOF_FID_TCMD)

			    continue;

#endif	/* !defined(HASTASKS) */

#if	!defined(HASFSTRUCT)

			if (FieldSel[i].id == LSOF_FID_CT

			||  FieldSel[i].id == LSOF_FID_FA

			||  FieldSel[i].id == LSOF_FID_FG

			||  FieldSel[i].id == LSOF_FID_NI)

			    continue;

#endif	/* !defined(HASFSTRUCT) */

#if	!defined(HASTASKS)

			if (FieldSel[i].id == LSOF_FID_TID)

			    continue;

#endif	/* !defined(HASTASKS) */

			if (FieldSel[i].id == *GOv) {

			    FieldSel[i].st = 1;

			    if (FieldSel[i].opt && FieldSel[i].ov)

				*(FieldSel[i].opt) |= FieldSel[i].ov;

#if	defined(HASFSTRUCT)

			    if (i == LSOF_FIX_FG)

				FsvFlagX = 1;

#endif	/* defined(HASFSTRUCT) */

			    if (i == LSOF_FIX_TERM)

				Terminator = '\0';

			    break;

			}

		    }

		    if ( ! FieldSel[i].nm) {

			(void) fprintf(stderr,

			    "%s: unknown field: %c\n", Pn, *GOv);

			err++;

		    }

		}

		Ffield = 1;

		break;

	    case 'g':

		if (GOv) {

		    if (*GOv == '-' || *GOv == '+') {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    } else if (enter_id(PGID, GOv))

			err = 1;

		}

		Fpgid = 1;

		break;

	    case 'h':

	    case '?':

		Fhelp = 1;

		break;

	    case 'i':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Fnet = 1;

		    FnetTy = 0;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

		if (enter_network_address(GOv))

		    err = 1;

		break;

#if	defined(HASKOPT)

	    case 'k':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    (void) fprintf(stderr, "%s: -k not followed by path\n", Pn);

		    err = 1;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		} else

		    Nmlst = GOv;

		break;

#endif	/* defined(HASKOPT) */

#if	defined(HASTASKS)

	    case 'K':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Ftask = 1;

		    IgnTasks = 0;

		    Selflags |= SELTASK;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		} else {

		    if (!strcasecmp(GOv, "i")) {

			Ftask = 0;

			IgnTasks = 1;

			Selflags &= ~SELTASK;

		   } else {

			(void) fprintf(stderr,

			    "%s: -K not followed by i (but by %s)\n", Pn, GOv);

			err = 1;

		   }

		}

		break;

#endif	/* defined(HASTASKS) */

	    case 'l':

		Futol = 0;

		break;

	    case 'L':

		Fnlink = (GOp == '+') ? 1 : 0;

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Nlink = 0l;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

		for (cp = GOv, l = 0l, n = 0; *cp; cp++) {

		    if (!isdigit((unsigned char)*cp))

			break;

		    l = (l * 10l) + ((long)*cp - (long)'0');

		    n++;

		}

		if (n) {

		    if (GOp != '+') {

			(void) fprintf(stderr,

			    "%s: no number may follow -L\n", Pn);

			err = 1;

		    } else {

			Nlink = l;

			Selflags |= SELNLINK;

		    }

		} else

		    Nlink = 0l;

		if (*cp) {

		    GOx1 = GObk[0];

		    GOx2 = GObk[1] + n;

		}

		break;

#if	defined(HASMOPT) || defined(HASMNTSUP)

	    case 'm':

		if (GOp == '-') {

# if	defined(HASMOPT)

		    if (!GOv || *GOv == '-' || *GOv == '+') {

			(void) fprintf(stderr,

			    "%s: -m not followed by path\n", Pn);

			err = 1;

			if (GOv) {

			    GOx1 = GObk[0];

			    GOx2 = GObk[1];

			}

		    } else

			Memory = GOv;

# else	/* !defined(HASMOPT) */

		    (void) fprintf(stderr, "%s: -m not supported\n", Pn);

		    err = 1;

# endif	/* defined(HASMOPT) */

		} else if (GOp == '+') {

# if	defined(HASMNTSUP)

		    if (!GOv || *GOv == '-' || *GOv == '+') {

			MntSup = 1;

			if (GOv) {

			    GOx1 = GObk[0];

			    GOx2 = GObk[1];

			}

		    } else {

			MntSup = 2;

			MntSupP = GOv;

		    }

# else	/* !defined(HASMNTSUP) */

		    (void) fprintf(stderr, "%s: +m not supported\n", Pn);

		    err = 1;

# endif	/* defined(HASMNTSUP) */

		} else {

		    (void) fprintf(stderr, "%s: %cm not supported\n", Pn, GOp);

		    err = 1;

		}

		break;

#endif	/* defined(HASMOPT) || defined(HASMNTSUP) */

#if	!defined(HASNORPC_H)

	    case 'M':

		FportMap = (GOp == '+') ? 1 : 0;

		break;

#endif	/* !defined(HASNORPC_H) */

	    case 'n':

		Fhost = (GOp == '-') ? 0 : 1;

		break;

	    case 'N':

		Fnfs = 1;

		break;

	    case 'o':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Foffset = 1;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

		for (cp = GOv, i = n = 0; *cp; cp++) {

		    if (!isdigit((unsigned char)*cp))

			break;

		    i = (i * 10) + ((int)*cp - '0');

		    n++;

		}

		if (n)

		    OffDecDig = i;

		else

		    Foffset = 1;

		if (*cp) {

		    GOx1 = GObk[0];

		    GOx2 = GObk[1] + n;

		}

		break;

	    case 'O':

		Fovhd = (GOp == '-') ? 1 : 0;

		break;

	    case 'p':

		if (enter_id(PID, GOv))

		    err = 1;

		break;

	    case 'P':

		Fport = (GOp == '-') ? 0 : 1;

		break;

	    case 'r':

		if (GOp == '+')

		    ev = rc = 1;

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    RptTm = RPTTM;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

		for (cp = GOv, i = n = 0; *cp; cp++) {

		    if (!isdigit((unsigned char)*cp))

			break;

		    i = (i * 10) + ((int)*cp - '0');

		    n++;

		}

		if (n)

		    RptTm = i;

		else

		    RptTm = RPTTM;

		if (!*cp)

		     break;

		while(*cp && (*cp == ' '))

		    cp++;

		if (*cp != LSOF_FID_MARK) {

		    GOx1 = GObk[0];

		    GOx2 = GObk[1] + n;

		    break;

		}

#if	defined(HAS_STRFTIME)

	    /*

	     * Collect the strftime(3) format and test it.

	     */

		cp++;

		if ((fmtl = strlen(cp) + 1) < 1) {

		    (void) fprintf(stderr, "%s: <fmt> too short: \"%s\"\n",

			Pn, cp);

		    err = 1;

		} else {

		    fmt = cp;

		    fmtl = (fmtl * 8) + 1;

		    if (!(fmtr = (char *)malloc((MALLOC_S)fmtl))) {

			(void) fprintf(stderr,

			    "%s: no space (%d) for <fmt> result: \"%s\"\n",

			    Pn, (int)fmtl, cp);

			    Exit(1);

		    }

		    if (util_strftime(fmtr, fmtl - 1, fmt) < 1) {

			(void) fprintf(stderr, "%s: illegal <fmt>: \"%s\"\n",

			    Pn, fmt);

			err = 1;

		    }

		}

#else	/* !defined(HAS_STRFTIME) */

		(void) fprintf(stderr, "%s: m<fmt> not supported: \"%s\"\n",

		    Pn, cp);

		err = 1;

#endif	/* defined(HAS_STRFTIME) */

		break;

#if	defined(HASPPID)

	    case 'R':

		Fppid = 1;

		break;

#endif	/* defined(HASPPID) */

	    case 's':

#if	defined(HASTCPUDPSTATE)

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    Fsize = 1;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		} else {

		    if (enter_state_spec(GOv))

			err = 1;

		}

#else	/* !defined(HASTCPUDPSTATE) */

		Fsize = 1;

#endif	/* defined(HASTCPUDPSTATE) */

		break;

	    case 'S':

		if (!GOv || *GOv == '-' || *GOv == '+') {

		    TmLimit = TMLIMIT;

		    if (GOv) {

			GOx1 = GObk[0];

			GOx2 = GObk[1];

		    }

		    break;

		}

		for (cp = GOv, i = n = 0; *cp; cp++) {

		    if (!isdigit((unsigned char)*cp))

			break;

		    i = (i * 10) + ((int)*cp - '0');

		    n++;

		}

		if (n)

		    TmLimit = i;

		else

		    TmLimit = TMLIMIT;

		if (*cp) {

		    GOx1 = GObk[0];

		    GOx2 = GObk[1] + n;

		}

		if (TmLimit < TMLIMMIN) {

		    (void) fprintf(stderr,

			"%s: WARNING: -S time (%d) changed to %d\n",

			Pn, TmLimit, TMLIMMIN);

		    TmLimit = TMLIMMIN;

		}

		break;

	    case 't':