summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
6379139)
SCCS-vsn: usr.bin/f77/libU77/mkvers.c 1.2
-char id_mkvers[] = "@(#)mkvers.c 1.1";
+char id_mkvers[] = "@(#)mkvers.c 1.2";
/*
* extract sccs id strings from source files
* first arg is lib name.
/*
* extract sccs id strings from source files
* first arg is lib name.
perror("mkvers");
exit(1);
}
perror("mkvers");
exit(1);
}
- fprintf(V, "char *sccs_id[] = {\n");
+ if (argc > 1 && argv[1][0] != '.')
+ {
+ fprintf(V, "char *");
+ for (s = argv[1]; *s && *s != '.'; s++)
+ fputc(*s, V);
+ fprintf(V, "_id[] = {\n");
+ }
+ else
+ fprintf(V, "char *sccs_id[] = {\n");
if (argc-- > 1)
{
time(&t);
if (argc-- > 1)
{
time(&t);