From 2b47b43390eb6322139eedf3030b5741c7119d4e Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 2 Sep 1988 12:01:53 +0000
Subject: [PATCH] fix: did not handle the case that a program module name and
 file name differ

---
 lang/m2/m2mm/main.c | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/lang/m2/m2mm/main.c b/lang/m2/m2mm/main.c
index 2f1aaf02f..e93760f92 100644
--- a/lang/m2/m2mm/main.c
+++ b/lang/m2/m2mm/main.c
@@ -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()
-- 
2.34.1