aptdec/w32util.c

#include <stdio.h>
#include <string.h>

char * basename (const char *filename) {
	const char *p = filename + strlen (filename);
	while (p != filename) {
		p--;
		if (*p == '/' || *p == '\\')
			return ((char *) p + 1);
	}
	return ((char *) filename);
}

char *dirname(const char *path) {
    static char bname[1024];
    register const char *endp;

    /* Empty or NULL string gets treated as "." */
    if (path == NULL || *path == '\0') {
        (void)strncpy(bname, ".", sizeof bname);
        return(bname);
    }

    /* Strip trailing slashes */
    endp = path + strlen(path) - 1;
    while (endp > path && *endp == '\\')
        endp--;

        /* Find the start of the dir */
        while (endp > path && *endp != '\\')
        	endp--;

        /* Either the dir is "/" or there are no slashes */
        if (endp == path) {
            (void)strncpy(bname, *endp == '\\' ? "\\": ".", sizeof bname);
            return(bname);
        } else {
            do {
            	endp--;
            } while (endp > path && *endp == '\\');
        }

        if (endp - path + 2 > sizeof(bname)) {
            return(NULL);
        }
        strncpy(bname, path, endp - path + 2);
        return(bname);
}

int	opterr = 1, /* if error message should be printed */
	optind = 1,	/* index into parent argv vector */
	optopt,		/* character checked for validity */
	optreset;	/* reset getopt */
char *optarg;	/* argument associated with option */

#define	BADCH	(int)'?'
#define	BADARG	(int)':'
#define	EMSG	""

/*
 * getopt --
 *	Parse argc/argv argument vector.
 */
int getopt(nargc, nargv, ostr)
	int nargc;
	char * const *nargv;
	const char *ostr;
{
	#define __progname nargv[0]
	static char *place = EMSG;	/* option letter processing */
	char *oli;				    /* option letter list index */

	if (optreset || !*place) {	/* update scanning pointer */
		optreset = 0;
		if (optind >= nargc || *(place = nargv[optind]) != '-') {
			place = EMSG;
			return (-1);
		}
		if (place[1] && *++place == '-') {	/* found "--" */
			++optind;
			place = EMSG;
			return (-1);
		}
	}	/* option letter okay? */
	if ((optopt = (int)*place++) == (int)':' ||
	    !(oli = strchr(ostr, optopt))) {
		/*
		 * if the user didn't specify '-' as an option,
		 * assume it means -1.
		 */
		if (optopt == (int)'-')
			return (-1);
		if (!*place)
			++optind;
		if (opterr && *ostr != ':')
			(void)printf("%s: illegal option -- %c\n", __progname, optopt);
		return (BADCH);
	}
	if (*++oli != ':') {	/* don't need argument */
		optarg = NULL;
		if (!*place)
			++optind;
	}
	else {			/* need an argument */
		if (*place)	/* no white space */
			optarg = place;
		else if (nargc <= ++optind) {	/* no arg */
			place = EMSG;
			if (*ostr == ':')
				return (BADARG);
			if (opterr)
				(void)printf(
				    "%s: option requires an argument -- %c\n",
				    __progname, optopt);
			return (BADCH);
		} else	/* white space */
			optarg = nargv[optind];
		place = EMSG;
		++optind;
	}
	return (optopt); /* dump back option letter */
}