123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257 |
- /*
- * 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
- }
|