1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
/* printversion.c: Output for the standard GNU option --version.
Written in 1996 by K. Berry. Public domain. */
#include "config.h"
/* We're passed in the original WEB banner string, which has the form
This is PROGRAM, Version VERSION-NUMBER
We parse the PROGRAM and VERSION-NUMBER out of this.
If COPYRIGHT_HOLDER is specified and AUTHOR isn't, then use the
former for the latter. If AUTHOR is specified and COPYRIGHT_HOLDER
isn't, it means the original program is public domain.
Maybe I should have just done it all inline in each individual
program, but tangle doesn't allow multiline string constants ... */
void
printversionandexit P3C(const_string, banner,
const_string, copyright_holder, const_string, author)
{
extern string versionstring; /* from web2c/lib/version.c */
extern KPSEDLL string kpathsea_version_string;/* from kpathsea/version.c */
string prog_name;
unsigned len;
const_string prog_name_end = strchr (banner, ',');
const_string prog_version = strrchr (banner, ' ');
assert (prog_name_end && prog_version);
prog_version++;
len = prog_name_end - banner - sizeof ("This is");
prog_name = (string)xmalloc (len + 1);
strncpy (prog_name, banner + sizeof ("This is"), len);
prog_name[len] = 0;
/* The Web2c version string starts with a space. */
printf ("%s %s%s\n", prog_name, prog_version, versionstring);
puts (kpathsea_version_string);
if (copyright_holder) {
printf ("Copyright 2005 %s.\n", copyright_holder);
if (!author)
author = copyright_holder;
}
puts ("Kpathsea is copyright 2005 Karl Berry and Olaf Weber.");
puts ("There is NO warranty. Redistribution of this software is");
fputs ("covered by the terms of ", stdout);
printf ("both the %s copyright and\n", prog_name);
puts ("the Lesser GNU General Public License.");
puts ("For more information about these matters, see the file");
printf ("named COPYING and the %s source.\n", prog_name);
printf ("Primary author of %s: %s.\n", prog_name, author);
puts ("Kpathsea written by Karl Berry, Olaf Weber, and others.\n");
uexit (0);
}
|