* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
char id_mkvers
[] = "@(#)mkvers.c 5.1 6/7/85";
* extract sccs id strings from source files
#define VERSION "Version.c"
V
= stdout
; /* fdopen(creat(VERSION, 0644), "w"); */
if (argc
> 1 && argv
[1][0] != '.')
for (s
= argv
[1]; *s
&& *s
!= '.'; s
++)
fprintf(V
, "_id[] = {\n");
fprintf(V
, "char *sccs_id[] = {\n");
fprintf(V
, "\t\"%s%s\t%s\",\n", SCCS_ID
, *++argv
, s
);
if (freopen(*++argv
, "r", stdin
) == NULL
)
if (strncmp(s
, SCCS_ID
, 4) == 0)
fprintf(V
, "\t\"%s\",\n", s
);
fprintf(stderr
, "%s: no sccs id string\n", *argv
);