258 lines
5.9 KiB
C
258 lines
5.9 KiB
C
/*
|
|
* Control of the implicit suffix rules
|
|
*
|
|
* $Header$
|
|
*/
|
|
|
|
|
|
#include "h.h"
|
|
|
|
|
|
/*
|
|
* Return a pointer to the suffix of a name
|
|
*/
|
|
char *
|
|
suffix(name)
|
|
char * name;
|
|
{
|
|
return rindex(name, '.');
|
|
}
|
|
|
|
|
|
/*
|
|
* Dynamic dependency. This routine applies the suffis rules
|
|
* to try and find a source and a set of rules for a missing
|
|
* target. If found, np is made into a target with the implicit
|
|
* source name, and rules. Returns TRUE if np was made into
|
|
* a target.
|
|
*/
|
|
bool
|
|
dyndep(np)
|
|
struct name * np;
|
|
{
|
|
register char * p;
|
|
register char * q;
|
|
register char * suff; /* Old suffix */
|
|
register char * basename; /* Name without suffix */
|
|
struct name * op; /* New dependent */
|
|
struct name * sp; /* Suffix */
|
|
struct line * lp;
|
|
struct depend * dp;
|
|
char * newsuff;
|
|
|
|
|
|
p = str1;
|
|
q = np->n_name;
|
|
if (!(suff = suffix(q)))
|
|
return FALSE; /* No suffix */
|
|
while (q < suff)
|
|
*p++ = *q++;
|
|
*p = '\0';
|
|
basename = setmacro("*", str1, 4)->m_val;
|
|
|
|
if (!((sp = newname(".SUFFIXES"))->n_flag & N_TARG))
|
|
return FALSE;
|
|
|
|
for (lp = sp->n_line; lp; lp = lp->l_next)
|
|
for (dp = lp->l_dep; dp; dp = dp->d_next)
|
|
{
|
|
newsuff = dp->d_name->n_name;
|
|
if (strlen(suff)+strlen(newsuff)+1 >= LZ)
|
|
fatal("Suffix rule too long");
|
|
p = str1;
|
|
q = newsuff;
|
|
while (*p++ = *q++)
|
|
;
|
|
p--;
|
|
q = suff;
|
|
while (*p++ = *q++)
|
|
;
|
|
sp = newname(str1);
|
|
if (sp->n_flag & N_TARG)
|
|
{
|
|
p = str1;
|
|
q = basename;
|
|
if (strlen(basename) + strlen(newsuff)+1 >= LZ)
|
|
fatal("Implicit name too long");
|
|
while (*p++ = *q++)
|
|
;
|
|
p--;
|
|
q = newsuff;
|
|
while (*p++ = *q++)
|
|
;
|
|
op = newname(str1);
|
|
if (!op->n_time)
|
|
modtime(op);
|
|
if (op->n_time || (op->n_flag & N_TARG))
|
|
{
|
|
dp = newdep(op, (struct depend *)0);
|
|
newline(np, dp, sp->n_line->l_cmd, 0);
|
|
setmacro("<", op->n_name, 4);
|
|
return TRUE;
|
|
}
|
|
}
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
/*
|
|
* Make the default rules
|
|
*/
|
|
void
|
|
makerules()
|
|
{
|
|
struct cmd * cp;
|
|
struct name * np;
|
|
struct depend * dp;
|
|
|
|
|
|
#ifdef eon
|
|
setmacro("BDSCC", "asm", 0);
|
|
/* setmacro("BDSCFLAGS", "", 0); */
|
|
cp = newcmd("$(BDSCC) $(BDSCFLAGS) -n $<", (struct cmd *)0);
|
|
np = newname(".c.o");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("CC", "c", 0);
|
|
setmacro("CFLAGS", "-O", 0);
|
|
cp = newcmd("$(CC) $(CFLAGS) -c $<", (struct cmd *)0);
|
|
np = newname(".c.obj");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("M80", "asm -n", 0);
|
|
/* setmacro("M80FLAGS", "", 0); */
|
|
cp = newcmd("$(M80) $(M80FLAGS) $<", (struct cmd *)0);
|
|
np = newname(".mac.o");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("AS", "zas", 0);
|
|
/* setmacro("ASFLAGS", "", 0); */
|
|
cp = newcmd("$(ZAS) $(ASFLAGS) -o $@ $<", (struct cmd *)0);
|
|
np = newname(".as.obj");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
np = newname(".as");
|
|
dp = newdep(np, (struct depend *)0);
|
|
np = newname(".obj");
|
|
dp = newdep(np, dp);
|
|
np = newname(".c");
|
|
dp = newdep(np, dp);
|
|
np = newname(".o");
|
|
dp = newdep(np, dp);
|
|
np = newname(".mac");
|
|
dp = newdep(np, dp);
|
|
np = newname(".SUFFIXES");
|
|
newline(np, dp, (struct cmd *)0, 0);
|
|
#endif
|
|
|
|
/*
|
|
* Some of the UNIX implicit rules
|
|
*/
|
|
#ifdef unix
|
|
setmacro("CC", "cc", 0);
|
|
setmacro("CFLAGS", "-O", 0);
|
|
#ifdef MINIX
|
|
cp = newcmd("$(CC) $(CFLAGS) -S $<", (struct cmd *)0);
|
|
np = newname(".c.s");
|
|
#else
|
|
cp = newcmd("$(CC) $(CFLAGS) -c $<", (struct cmd *)0);
|
|
np = newname(".c.o");
|
|
#endif MINIX
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("AS", "as", 0);
|
|
cp = newcmd("$(AS) -o $@ $<", (struct cmd *)0);
|
|
np = newname(".s.o");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("YACC", "yacc", 0);
|
|
/* setmacro("YFLAGS", "", 0); */
|
|
cp = newcmd("$(YACC) $(YFLAGS) $<", (struct cmd *)0);
|
|
cp = newcmd("mv y.tab.c $@", cp);
|
|
np = newname(".y.c");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
cp = newcmd("$(YACC) $(YFLAGS) $<", (struct cmd *)0);
|
|
cp = newcmd("$(CC) $(CFLAGS) -c y.tab.c", cp);
|
|
cp = newcmd("rm y.tab.c", cp);
|
|
cp = newcmd("mv y.tab.o $@", cp);
|
|
np = newname(".y.o");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
setmacro("LEX", "lex", 0);
|
|
/* setmacro("LFLAGS", "", 0); */
|
|
cp = newcmd("$(LEX) $(LFLAGS) $<", (struct cmd *)0);
|
|
cp = newcmd("mv lex.yy.c $@", cp);
|
|
np = newname(".l.c");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
cp = newcmd("$(LEX) $(LFLAGS) $<", (struct cmd *)0);
|
|
cp = newcmd("$(CC) $(CFLAGS) -c lex.yy.c", cp);
|
|
cp = newcmd("rm lex.yy.c", cp);
|
|
cp = newcmd("mv lex.yy.o $@", cp);
|
|
np = newname(".l.o");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
np = newname(".s");
|
|
dp = newdep(np, (struct depend *)0);
|
|
np = newname(".o");
|
|
dp = newdep(np, dp);
|
|
np = newname(".c");
|
|
dp = newdep(np, dp);
|
|
np = newname(".y");
|
|
dp = newdep(np, dp);
|
|
np = newname(".l");
|
|
dp = newdep(np, dp);
|
|
np = newname(".SUFFIXES");
|
|
newline(np, dp, (struct cmd *)0, 0);
|
|
#endif
|
|
#ifdef os9
|
|
/*
|
|
* Fairlight use an enhanced version of the C sub-system.
|
|
* They have a specialised macro pre-processor.
|
|
*/
|
|
setmacro("CC", "cc", 0);
|
|
setmacro("CFLAGS", "-z", 0);
|
|
cp = newcmd("$(CC) $(CFLAGS) -r $<", (struct cmd *)0);
|
|
|
|
np = newname(".c.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".ca.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".a.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".o.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".mc.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".mca.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".ma.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
np = newname(".mo.r");
|
|
newline(np, (struct depend *)0, cp, 0);
|
|
|
|
np = newname(".r");
|
|
dp = newdep(np, (struct depend *)0);
|
|
np = newname(".mc");
|
|
dp = newdep(np, dp);
|
|
np = newname(".mca");
|
|
dp = newdep(np, dp);
|
|
np = newname(".c");
|
|
dp = newdep(np, dp);
|
|
np = newname(".ca");
|
|
dp = newdep(np, dp);
|
|
np = newname(".ma");
|
|
dp = newdep(np, dp);
|
|
np = newname(".mo");
|
|
dp = newdep(np, dp);
|
|
np = newname(".o");
|
|
dp = newdep(np, dp);
|
|
np = newname(".a");
|
|
dp = newdep(np, dp);
|
|
np = newname(".SUFFIXES");
|
|
newline(np, dp, (struct cmd *)0, 0);
|
|
#endif
|
|
}
|