V10/cmd/upas/common/aux.c

#include <stdio.h>
#include <regexp.h>
#include <ctype.h>
#include "mail.h"
#include "string.h"
#include "aux.h"

/* expand a path relative to some `.' */
extern string *
abspath(path, dot, to)
	char *path;
	char *dot;
	string *to;
{
	if (*path == '/') {
		to = s_append(to, path);
	} else {
		to = s_append(to, dot);
		to = s_append(to, path);
	}
	return to;
}

/* return a pointer to the base component of a pathname */
extern char *
basename(path)
	char *path;
{
	char *cp;

	cp = strrchr(path, '/');
	return cp==NULL ? path : cp+1;
}

/* return delivery status required by the mbox */
extern int
delivery_status(line)
	string *line;
{
	string *s1 = s_new(), *s2 = s_new();
	char *cline;
	int rv;

	s_restart(line);
	cline = s_to_c(line);
	if (*cline=='\0')
		rv = MF_NORMAL;
	else if (IS_HEADER(cline))
		rv = MF_NORMAL;
	else if (s_parse(line, s1) == 0)
		rv = MF_NOTMBOX;
	else if (s_parse(line, s2) == 0)
		return MF_NOTMBOX;
	else if (strcmp(s_to_c(s2), "to") != 0)
		rv = MF_NOTMBOX;
	else if (strcmp(s_to_c(s1), "Forward") == 0)
		rv = MF_FORWARD;
	else if (strcmp(s_to_c(s1), "Pipe") == 0)
		rv = MF_PIPE;
	else
		rv = MF_NOTMBOX;
	s_free(s1); s_free(s2);
	return rv;
}

/* append a sub-expression match onto a string */
extern void
append_match(subexp, sp, se)
	regsubexp *subexp;	/* regular subexpression matches */
	register string *sp;	/* string to append to */
	int se;			/* index of subexpression to append */
{
	register char *cp = subexp[se].sp;
	register char *ep = subexp[se].ep;

	for (; cp < ep; cp++)
		s_putc(sp, *cp);
	s_terminate(sp);
}

/*
 *  check for shell characters in a string
 */
#define CHARS ",#()<>{};\\'\"`^&|\r\n \t"
extern int
shellchars(cp)
	char *cp;
{
	char *sp;

	for(sp=CHARS; *sp; sp++)
		if(strchr(cp, *sp))
			return 1;
	for(; *cp; cp++)
		if(!isprint(*cp))
			return 1;
	return 0;
}