168 lines
2.6 KiB
C
168 lines
2.6 KiB
C
|
/*
|
||
|
|
* 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);
|
||
|
|
}
|