Added verbose option

This commit is contained in:
ceriel
1990-03-15 10:44:14 +00:00
parent d3208e42ca
commit 0b95807664
5 changed files with 28 additions and 4 deletions

View File

@@ -50,6 +50,13 @@ error(format, a1, a2, a3, a4)
diag("error", format, a1, a2, a3, a4);
}
/* VARARGS1 */
do_verbose(format, a1, a2, a3, a4)
char *format;
{
diag((char *) 0, format, a1, a2, a3, a4);
}
static
diag(tail, format, a1, a2, a3, a4)
char *tail;
@@ -58,10 +65,13 @@ diag(tail, format, a1, a2, a3, a4)
extern char *progname, *archname, *modulname;
fprintf(stderr, "%s: ", progname);
if (archname)
if (archname && modulname)
fprintf(stderr, "%s(%s): ", archname, modulname);
else if (archname)
fprintf(stderr, "%s: ", archname);
if (modulname)
else if (modulname)
fprintf(stderr, "%s: ", modulname);
fprintf(stderr, format, a1, a2, a3, a4);
fprintf(stderr, " (%s)\n", tail);
if (tail) fprintf(stderr, " (%s)\n", tail);
else putc('\n', stderr);
}