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 */
}