Initial revision

1988-07-22 19:01:13 +00:00
parent 05e7adc71d
commit b8880b3692
11 changed files with 1971 additions and 0 deletions
--- a/util/make/macro.c
+++ b/util/make/macro.c
@@ -0,0 +1,167 @@
+/*
+ *	Macro control for make
+ *
+ *	$Header$
+ */
+
+
+#include "h.h"
+
+
+struct macro *		macrohead;
+
+
+struct macro *
+getmp(name)
+char *			name;
+{
+	register struct macro *	rp;
+
+	for (rp = macrohead; rp; rp = rp->m_next)
+		if (strcmp(name, rp->m_name) == 0)
+			return rp;
+	return (struct macro *)0;
+}
+
+
+char *
+getmacro(name)
+char *			name;
+{
+	struct macro *		mp;
+
+	if (mp = getmp(name))
+		return mp->m_val;
+	else
+		return "";
+}
+
+
+struct macro *
+setmacro(name, val, prio)
+char *			name;
+char *			val;
+{
+	register struct macro *	rp;
+	register char *		cp;
+
+
+			/*  Replace macro definition if it exists  */
+	for (rp = macrohead; rp; rp = rp->m_next)
+		if (strcmp(name, rp->m_name) == 0)
+		{
+			if (prio < rp->m_prio)
+				return rp;
+			free(rp->m_val);	/*  Free space from old  */
+			break;
+		}
+
+	if (!rp)		/*  If not defined, allocate space for new  */
+	{
+		if ((rp = (struct macro *)malloc(sizeof (struct macro)))
+					 == (struct macro *)0)
+			fatal("No memory for macro");
+
+		rp->m_next = macrohead;
+		macrohead = rp;
+		rp->m_flag = FALSE;
+
+		if ((cp = malloc((unsigned)(strlen(name)+1))) == (char *)0)
+			fatal("No memory for macro");
+		strcpy(cp, name);
+		rp->m_name = cp;
+	}
+
+	if ((cp = malloc((unsigned)(strlen(val)+1))) == (char *)0)
+		fatal("No memory for macro");
+	strcpy(cp, val);		/*  Copy in new value  */
+	rp->m_val = cp;
+	rp->m_prio = prio;
+
+	return rp;
+}
+
+#define MBUFSIZ	128
+
+/*
+ *	Do the dirty work for expand
+ */
+void
+doexp(to, from, len, buf)
+char **			to;
+char *			from;
+int *			len;
+char *			buf;
+{
+	register char *		rp;
+	register char *		p;
+	register char *		q;
+	register struct macro *	mp;
+
+
+	rp = from;
+	p = *to;
+	while (*rp)
+	{
+		if (*rp != '$')
+		{
+			*p++ = *rp++;
+			(*len)--;
+		}
+		else
+		{
+			q = buf;
+			if (*++rp == '{')
+				while (*++rp && *rp != '}') {
+					if (q < &buf[MBUFSIZ-1]) *q++ = *rp;
+				}
+			else if (*rp == '(')
+				while (*++rp && *rp != ')') {
+					if (q < &buf[MBUFSIZ-1]) *q++ = *rp;
+				}
+			else if (!*rp)
+			{
+				*p++ = '$';
+				break;
+			}
+			else
+				*q++ = *rp;
+			*q = '\0';
+			if (*rp)
+				rp++;
+			if (!(mp = getmp(buf)))
+				mp = setmacro(buf, "", 2);
+			if (mp->m_flag)
+				fatal("Infinitely recursive macro %s", mp->m_name);
+			mp->m_flag = TRUE;
+			*to = p;
+			doexp(to, mp->m_val, len, buf);
+			p = *to;
+			mp->m_flag = FALSE;
+		}
+		if (*len <= 0)
+			error("Expanded line too line");
+	}
+	*p = '\0';
+	*to = p;
+}
+
+
+/*
+ *	Expand any macros in str.
+ */
+void
+expand(str)
+char *		str;
+{
+	char			*a;
+	static char		b[MBUFSIZ];	/* temp storage for macroname */
+	char *			p = str;
+	int			len = LZ-1;
+
+	a = malloc((unsigned)(strlen(str)+1));
+	if (!a) fatal("No memory for expand");
+	strcpy(a, str);
+	doexp(&p, a, &len, b);
+	free(a);
+}