misc bugs, malloc & free

[unix-history] / usr / src / usr.bin / window / lcmd.c

#ifndef lint
static	char *sccsid = "@(#)lcmd.c	3.6 83/08/25";
#endif

#include "defs.h"

int l_buffer();
int l_window();
int l_select();
int l_escape();
int l_label();
int l_terse();
int l_source();
int l_write();
int l_close();

struct lcmd {
	char *l_name;			/* name of command */
	int l_lmin;			/* minimum length to check */
	int l_lmax;			/* maximum length to check */
	int l_amin;			/* minimum argument */
	int l_amax;			/* maximum argument */
	int (*l_func)();		/* the function */
};
static struct lcmd lcmd[] = {
	"%",		1, 1, 0,  0, l_select,
	"buffer",	1, 0, 1,  1, l_buffer,
	"close",	1, 0, 0, -1, l_close,
	"escape",	1, 0, 1,  1, l_escape,
	"label",	1, 0, 2,  2, l_label,
	"source",	1, 0, 1,  1, l_source,
	"terse",	1, 0, 0,  1, l_terse,
	"window",	1, 0, 4,  5, l_window,
	"write",	2, 0, 2,  2, l_write,
	0
};

dosource(filename)
char *filename;
{
	register FILE *f;
	char buf[BUFSIZ];

	if ((f = fopen(filename, "r")) == 0)
		return -1;
	insource++;
	beginerror(filename);
	for (lineno = 1; fgets(buf, sizeof buf, f) != 0; lineno++)
		dolongcmd(buf);
	enderror();
	insource = 0;
	return 0;
}

dolongcmd(line)
char *line;
{
	register struct lcmd *lp;
	register len;

	makeargv(line);
	if (argc == 0)
		return;
	for (lp = lcmd; lp->l_name; lp++) {
		len = strlen(*argv);
		if (len < lp->l_lmin)
			continue;
		if (!strncmp(*argv, lp->l_name, lp->l_lmax ? lp->l_lmax : len))
			break;
	}
	if (lp->l_name) {
		if (lp->l_amin > argc - 1)
			error("Too few arguments.");
		else if (lp->l_amax >= 0 && lp->l_amax < argc - 1)
			error("Too many arguments.");
		else
			(*lp->l_func)();
	} else
		error("%s: Unknown command.", *argv);
}

makeargv(p)
register char *p;
{
	static char buf[BUFSIZ];
	register char *q = buf, **pp = argv;
	char quote = 0, escape = 0;
	int i;

	for (; *p == ' ' || *p == '\t'; p++)
		;
	while (*p && *p != '\n' && (*p != '#' || escape || quote)
	       && pp < &argv[sizeof argv/sizeof *argv - 1]) {
		*pp++ = q;
		while (*p && *p != '\n') {
			if (escape) {
				switch (*p) {
				case 'n':
					*q++ = '\n';
					p++;
					break;
				case 'r':
					*q++ = '\r';
					p++;
					break;
				case '0': case '1': case '2': case '3':
				case '4': case '5': case '6': case '7':
					*q = 0;
					for (i = 3; --i >= 0
					     && *p >= '0' && *p <= '9';)
						*q = *q << 3 | *p++ - '0';
					q++;
					break;
				default:
					*q++ = *p++;
					break;
				}
				escape = 0;
			} else if (*p == '\\') {
				escape = 1;
				p++;
			} else if (quote) {
				if (*p == quote) {
					quote = 0;
					p++;
				} else
					*q++ = *p++;
			} else {
				if (*p == '"' || *p == '\'')
					quote = *p++;
				else if (*p == ' ' || *p == '\t')
					break;
				else
					*q++ = *p++;
			}
		}
		*q++ = 0;
		for (; *p == ' ' || *p == '\t'; p++)
			;
	}
	*pp = 0;
	argc = pp - argv;
}