DataMuseum.dk

top - metrics - download

    Length: 3599 (0xe0f)
    Types: TextFile
    Names: »parsesbr.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Uip/rcvalert/parsesbr.c« 

TextFile

/* parsebr.c: */

# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Uip/rcvalert/RCS/parsesbr.c,v 5.0 90/09/20 16:33:46 pp Exp Locker: pp $";
# endif

/*
 * $Header: /cs/research/pp/hubris/pp-beta/Uip/rcvalert/RCS/parsesbr.c,v 5.0 90/09/20 16:33:46 pp Exp Locker: pp $
 *
 * $Log:	parsesbr.c,v $
 * Revision 5.0  90/09/20  16:33:46  pp
 * rcsforce : 5.0 public release
 * 
 */



#include <util.h>
#include <ctype.h>

#define MAXFIELDS 100

struct fields {
	char	*name;
	int	nlen;
	int	len;
	int	start;
	int	finish;
	int	flags;
#define PARSE_FROM	1
#define PARSE_BODY	2
#define PARSE_SIZE	3
#define PARSE_EXTRA	4
	char	*value;
} fields[MAXFIELDS];

int	nfields = 0;

parse_msg (displayline, format, maxlen, msgsize, extra)
char	*displayline;
char	*format;
int	maxlen;
int	msgsize;
char	*extra;
{
	char	buf[BUFSIZ], buf2[BUFSIZ], *cp;
	struct fields *fp;
	int n;

	break_fields (format);

	while (fgets (buf, sizeof buf, stdin) != NULL) {
		if (buf[0] == '\n')
			break;
		for (fp = fields; fp < &fields[nfields]; fp++)
			if (lexnequ (buf, fp -> name, fp -> nlen) == 0) {
				compress (buf + fp -> nlen + 1, buf2);
				fp -> value = strdup (buf2);
				break;
			}
	}

	buf[0] = NULL;
	n = fread (buf, 1, sizeof buf, stdin);
	buf[n] = NULL;
	for (cp = buf; *cp; cp++) {
		if (*cp == '\n')
			*cp = ' ';
	}
	compress (buf, buf);
	
	for (fp = fields; fp < &fields[nfields]; fp++) {
		if (fp -> value == NULLCP)
			fp -> value = "";
		if (fp -> flags == PARSE_FROM) {
			if ((cp = index (fp -> value, '<'))) {
				*cp = '\0';
				compress (fp -> value, fp -> value);
			}
		}
		else if (fp -> flags == PARSE_BODY)
			fp -> value = strdup (buf);
		else if (fp -> flags == PARSE_SIZE) {
			(void) sprintf (buf2, "%d", msgsize);
			fp -> value = strdup (buf2);
		}
		else if (fp -> flags == PARSE_EXTRA)
			fp -> value = extra;
	}

	build_string (format, displayline);
	displayline[maxlen] = 0;
}

break_fields (str)
char	*str;
{
	char	*cp, *p;
	struct fields *fp;
	char buf[BUFSIZ];

	if (str == NULL)
		return;
	for (cp = str; *cp; ) {
		if (*cp++ != '%')
			continue;
		if (*cp == '%') {
			cp ++;
			continue;
		}
		fp = &fields[nfields++];
		if (nfields >= MAXFIELDS)
			nfields --;
		fp -> start = cp - str - 1;
		if (isdigit (*cp)) {
			int n = 0;
			while (isdigit (*cp)) 
				n = n * 10 + *cp++ - '0';
			fp -> len = n;
		}

		for (p = cp; isalpha(*p) || *p == '-'; p++)
			continue;
		if (cp == p) {
			nfields --; 
			continue;
		}
		(void) strncpy (buf, cp, p -cp);
		buf[p - cp] = 0;
		fp -> name = strdup (buf);
		fp -> nlen = strlen (buf);

		if(lexequ (buf, "from") == 0)
			fp -> flags = PARSE_FROM;
		else if (lexequ (buf, "body") == 0)
			fp -> flags = PARSE_BODY;
		else if (lexequ (buf, "size") == 0)
			fp -> flags = PARSE_SIZE;
		else if (lexequ (buf, "extra") == 0)
			fp -> flags = PARSE_EXTRA;
		cp = p;
		fp -> finish = cp - str;
	}
}

build_string (format, dest)
char	*format;
char	*dest;
{
	char	*cp;
	int	last;
	struct fields *fp;

	if (nfields == 0) {
		(void) strcpy (dest, format);
		return;
	}
	cp = dest;
	last = 0;
	for (fp = fields; fp < &fields[nfields]; fp ++) {
		(void) strncpy (cp, format + last, fp -> start - last);
		cp += fp -> start - last;

		if (fp -> len) {
			int mlen;

			mlen = strlen (fp -> value);
			if (fp -> len < mlen)
				mlen = fp -> len;

			(void) sprintf (cp, "%-*.*s", fp -> len,
					mlen, fp -> value);
			
			cp += strlen (cp);
		}
		else if (fp -> value) {
			(void) strcpy (cp, fp -> value);
			cp += strlen (fp -> value);
		}
		last = fp -> finish;
	}
	(void) strcpy (cp, format + last);
	*cp = NULL;
}