for apache team (fwd)

[Brian Behlendorf <br...@hyperreal.com>]

One for post-1.0.  I'll put this in ftp://hyperreal.com/httpd/incoming/.  
No ack sent.  I like his email address.

	Brian

---------- Forwarded message ----------
Date: Sat, 28 Oct 1995 22:15:05 +0000
From: Jon Boede <jo...@bounced.email.net>
To: postmaster@apache.org
Subject: for apache team

One of the TODO items is:

*) Varargs printf-like log_reason (would allow me to ditch most of the
   remaining instances of MAX_STRING_LENGTH).

Here's code to do that.  Note that the function "writeitout" takes a string
and is the function that actually does whatever it is that you want done with
the string.  It returns the number of bytes written, strlen(that_string).

# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	log_reason.c
#
echo x - log_reason.c
sed 's/^X//' >log_reason.c << 'END-of-log_reason.c'
X#include <stdio.h>
X#include <ctype.h>
X#include <varargs.h>
X
X/* VARARGS */
Xlog_reason(va_alist)
Xva_dcl
X{
X	va_list args;
X	char buf[2048], fbuf[32], wbuf[16], pbuf[16];
X	char *cs, *fmt, *name, *str;
X	char *had_pound, *had_space, *had_plus, *had_size, *had_zero;
X	int had_width, width, had_precision, precision;
X	int i, len, sign, sum;
X
X	va_start(args);
X	fmt = va_arg(args,char *);
X	cs = buf;
X	sum = 0;
X
X	while (*fmt) {
X		if (cs > (buf + sizeof(buf) - 256)) {
X			*cs = '\0';
X			sum += writeitout(buf);
X			cs = buf;
X		}
X		if (*fmt != '%') {
X			if ((*cs++ = *fmt++) == '\n') {
X				*cs = '\0';
X				sum += writeitout(buf);
X				cs = buf;
X			}
X			continue;
X		}
X		if (*++fmt == '%') {
X			*cs++ = *fmt++;
X			continue;
X		}
X
X		had_width = had_precision = 0;
X		sign = 1;
X		had_pound = had_space = had_plus = had_zero = had_size = "";
X
X		while (*fmt == '#' || *fmt == ' ' || *fmt == '+' ||
X		       *fmt == '0' || *fmt == '-')
X			switch (*fmt++) {
X			case '#':
X				had_pound = "#";
X				break;
X			case ' ':
X				had_space = " ";
X				break;
X			case '+':
X				had_plus = "+";
X				break;
X			case '0':
X				had_zero = "0";
X				break;
X			case '-':
X				sign = -1;
X				break;
X			}
X
X		if (*had_plus && *had_space)
X			had_space = "";
X		if (*had_zero && (sign == -1))
X			had_zero = "";
X
X		if (*fmt == '*') {
X			had_width = 1;
X			width = va_arg(args,int);
X			++fmt;
X		}
X		else if (*fmt && isdigit(*fmt)) {
X			had_width = 1;
X			width = atoi(fmt);
X			while (*fmt && isdigit(*fmt))
X				++fmt;
X		}
X		if (width < 0) {
X			sign = -1;
X			width = 0 - width;
X		}
X		if (width > 128)
X			width = 128;
X		if (*fmt == '.') {
X			had_precision = 1;
X			precision = 0;
X			++fmt;
X			if (*fmt == '*') {
X				precision = va_arg(args,int);
X				++fmt;
X			}
X			else if (*fmt && isdigit(*fmt)) {
X				precision = atoi(fmt);
X				while (*fmt && isdigit(*fmt))
X					++fmt;
X			}
X			if (precision < 0)
X				precision = 0;
X		}
X		while (*fmt == 'l' || *fmt == 'L' || *fmt == 'h')
X			switch (*fmt++) {
X			case 'l':
X				had_size = "l";
X				break;
X			case 'L':
X				had_size = "L";
X				break;
X			case 'h':
X				had_size = "h";
X				break;
X			}
X
X		sprintf(wbuf,"%d",sign * width);
X		sprintf(pbuf,"%d",precision);
X		sprintf(fbuf,"%%%s%s%s%s%s%s%s%s%c",
X		had_pound,had_plus,had_space,had_zero,
X		had_width ? wbuf : "",had_precision ? "." : "",
X		had_precision ? pbuf : "",had_size,*fmt);
X		switch (*fmt++) {
X		case 'd': case 'i': case 'o': case 'u':
X		case 'x': case 'X': case 'c':
X			switch (*had_size) {
X			case '\0':
X				cs += sprintf(cs,fbuf,
X					va_arg(args,int));
X				break;
X			case 'l': case 'L':
X				cs += sprintf(cs,fbuf,
X					va_arg(args,long));
X				break;
X			case 'h':
X				cs += sprintf(cs,fbuf,
X					va_arg(args,short));
X				break;
X			}
X			break;
X		case 'e': case 'E': case 'f':
X		case 'g': case 'G':
X			cs += sprintf(cs,fbuf,va_arg(args,double));
X			break;
X		case 's':
X			name = va_arg(args,char *);
X			cs += sprintf(cs,fbuf,name);
X			break;
X		}
X	}
X	*cs++ = '\0';
X	writeitout(buf);
X	va_end(args);
X	return(sum);
X}
END-of-log_reason.c
exit