phunix/commands/cawf/macsup.c

/*
 *	macsup.c - macro processing support functions for cawf(1)
 */

/*
 *	Copyright (c) 1991 Purdue University Research Foundation,
 *	West Lafayette, Indiana 47907.  All rights reserved.
 *
 *	Written by Victor A. Abell <abe@mace.cc.purdue.edu>,  Purdue
 *	University Computing Center.  Not derived from licensed software;
 *	derived from awf(1) by Henry Spencer of the University of Toronto.
 *
 *	Permission is granted to anyone to use this software for any
 *	purpose on any computer system, and to alter it and redistribute
 *	it freely, subject to the following restrictions:
 *
 *	1. The author is not responsible for any consequences of use of
 *	   this software, even if they arise from flaws in it.
 *
 *	2. The origin of this software must not be misrepresented, either
 *	   by explicit claim or by omission.  Credits must appear in the
 *	   documentation.
 *
 *	3. Altered versions must be plainly marked as such, and must not
 *	   be misrepresented as being the original software.  Credits must
 *	   appear in the documentation.
 *
 *	4. This notice may not be removed or altered.
 */

#include "cawf.h"


/*
 * Delmacro(mx) - delete macro
 */

Delmacro(mx)
	int mx;				/* macro index */
{
	unsigned char buf[MAXLINE];	/* error message buffer */
	int i, j;			/* temporary indexes */

	if (mx >= Nmac) {
		(void) sprintf((char *)buf, " bad Delmacro(%d) index", mx);
		Error(FATAL, LINE, (char *)buf, NULL);
	}
	for (i = Macrotab[mx].bx, j = i + Macrotab[mx].ct; i < j; i++) {
		Free(&Macrotxt[i]);
	}
	for (i = mx; i < (Nmac - 1); i++) {
		Macrotab[i] = Macrotab[i+1];
	}
	Nmac--;
}


/*
 * Field(n, p, c) - skip to field n in p and optionally return a copy
 */

unsigned char *
Field(n, p, c)
	int n;				/* field number */
	unsigned char *p;		/* pointer to line containing fields */
	int c;				/* 1: make a copy of the field */
{
	unsigned char *fs, *fe, *s;

	if (c)
		Free(&F);
	fe = p;
	while (n) {
		while (*fe == ' ' || *fe == '\t')
			fe++;
		fs = fe;
		while (*fe && *fe != ' ' && *fe != '\t')
			fe++;
		if (fs == fe)
			return(NULL);
		if (n == 1) {
			if ( ! c)
				return(fs);
			if ((F = (unsigned char *)malloc((size_t)(fe - fs + 1)))
			== NULL)
				Error(FATAL, LINE, " Field out of string space",
					NULL);
			(void) strncpy((char *)F, (char *)fs, (fe - fs));
			F[fe -fs] = '\0';
			return(F);
		}
		n--;
	}
	return(NULL);
}

/*
 * Findmacro(p, e) - find macro and optionally enter it
 *
 * return = Macrotab[] index or -1 if not found
 */


Findmacro(p, e)
	unsigned char *p;	/* pointer to 2 character macro name  */
	int e;			/* 0 = find, don't enter
				 * 1 = enter, don't find */
{
	unsigned char c[3];
	int cmp, hi, low, mid;

	c[0] = p[0];
	c[1] = (p[1] == ' ' || p[1] == '\t') ? '\0' : p[1];
	c[2] = '\0';
	low = mid = 0;
	hi = Nmac - 1;
	while (low <= hi) {
		mid = (low + hi) / 2;
		if ((cmp = strncmp((char *)c, (char *)Macrotab[mid].name, 2))
		< 0)
			hi = mid - 1;
		else if (cmp > 0)
			low = mid + 1;
		else {
			if ( ! e)
				return(mid);
			 Error(WARN, LINE, " duplicate macro ", (char *)c);
			 hi = Macrotab[mid].bx + Macrotab[mid].ct;
			 for (low = Macrotab[mid].bx; low < hi; low++) {
				Free(&Macrotxt[low]);
			 }
			 goto new_macro;
		}
	}
	if ( ! e)
		return(-1);
	if (Nmac >= MAXMACRO)
		Error(FATAL, LINE, " macro table full at ", (char *)c);
	if (Nmac) {
		if (cmp > 0)
			mid++;
		for (hi = Nmac - 1; hi >= mid; hi--)
			Macrotab[hi+1] = Macrotab[hi];
	}
	Nmac++;
	Macrotab[mid].name[0] = c[0];
	Macrotab[mid].name[1] = c[1];

new_macro:

	Macrotab[mid].bx = -1;
	Macrotab[mid].ct = 0;
	return(mid);
}

void
Free(p)
	unsigned char **p;
{
	if (*p != NULL) {
		(void) free(*p);
		*p = NULL;
	}
}

/*
 * Newstr(s) - allocate space for string
 */

unsigned char *
Newstr(s)
	unsigned char *s;
{
	unsigned char *ns;

	if ((ns = (unsigned char *)malloc((size_t)(strlen((char *)s) + 1)))
	== NULL)
	    Error(FATAL, LINE, " Newstr out of malloc space at ", (char *)s);
	(void) strcpy((char *)ns, (char *)s);
	return(ns);
}