d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix: did not handle the case that a program module name and file name

Browse source 
differ
This commit is contained in:
ceriel 1988-09-02 12:01:53 +00:00
parent a206f17205
commit 2b47b43390
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lang/m2/m2mm/main.c
View file

@ -30,6 +30,19 @@ extern int Roption;
extern char *strrindex();
extern char *strcpy(), *strcat();
char *
basename(s)
char *s;
{
static char buf[256];
char *p = strrindex(s, '.');
if (p != 0) *p = 0;
strcpy(buf, s);
if (p != 0) *p = '.';
return buf;
}
char *
getwdir(fn)
register char *fn;
@ -410,8 +423,8 @@ pr_prog_dep(id, a)
}
print("\n\n");
print("o_files:\t$(OBS_%s)\n\n", id->id_text);
print("%s:\t$(OBS_%s) $(OBS2_%s)\n", id->id_text, id->id_text, id->id_text);
print("\t$(MOD) -.mod -o %s $(M2FLAGS) $(OBS_%s) $(OBS2_%s)\n", id->id_text, id->id_text, id->id_text);
print("%s:\t$(OBS_%s) $(OBS2_%s)\n", basename(f_filename(a)), id->id_text, id->id_text);
print("\t$(MOD) -.mod -o %s $(M2FLAGS) $(OBS_%s) $(OBS2_%s)\n", basename(f_filename(a)), id->id_text, id->id_text);
}
programs()