]>
Commit | Line | Data |
---|---|---|
768e5264 AM |
1 | --- ptex-src-3.1.10/jbibtex.ch.orig 2006-05-29 11:27:25.000000000 +0900 |
2 | +++ ptex-src-3.1.10/jbibtex.ch 2007-03-02 19:00:49.000000000 +0900 | |
3 | @@ -1504,7 +1504,7 @@ | |
4 | end; {Else it was a flag; |getopt| has already done the assignment.} | |
5 | until getopt_return_val = -1; | |
6 | if (version_switch) then | |
7 | - print_version_and_exit (banner, 'Oren Patashnik', nil); | |
8 | + print_version_and_exit (banner, 'Oren Patashnik', nil, nil); | |
9 | ||
10 | {Now |optind| is the index of first non-option on the command line. | |
11 | We must have one remaining argument.} | |
12 | --- ptex-src-3.1.10/pdvitype.ch.orig 2005-03-07 15:30:44.000000000 +0900 | |
13 | +++ ptex-src-3.1.10/pdvitype.ch 2007-03-02 19:00:11.000000000 +0900 | |
14 | @@ -1021,7 +1021,7 @@ | |
15 | usage_help (PDVITYPE_HELP, nil); | |
16 | ||
17 | end else if argument_is ('version') then begin | |
18 | - print_version_and_exit (banner, nil, 'D.E. Knuth'); | |
19 | + print_version_and_exit (banner, nil, 'D.E. Knuth', nil); | |
20 | ||
21 | end else if argument_is ('output-level') then begin | |
22 | out_mode := atou (optarg); | |
23 | --- ptex-src-3.1.10/pltotf.ch.orig 2006-07-18 17:03:33.000000000 +0900 | |
24 | +++ ptex-src-3.1.10/pltotf.ch 2007-03-02 18:59:39.000000000 +0900 | |
25 | @@ -427,7 +427,7 @@ | |
26 | @z | |
27 | @x | |
28 | end else if argument_is ('version') then begin | |
29 | - print_version_and_exit (banner, nil, 'D.E. Knuth'); | |
30 | + print_version_and_exit (banner, nil, 'D.E. Knuth', nil); | |
31 | ||
32 | end; {Else it was a flag; |getopt| has already done the assignment.} | |
33 | until getopt_return_val = -1; | |
34 | @@ -441,7 +441,7 @@ | |
35 | end; {Else it was a flag; |getopt| has already done the assignment.} | |
36 | until getopt_return_val = -1; | |
37 | if (version_switch) then | |
38 | - print_version_and_exit (banner, nil, 'D.E. Knuth'); | |
39 | + print_version_and_exit (banner, nil, 'D.E. Knuth', nil); | |
40 | @z | |
41 | ||
42 | @x | |
43 | --- ptex-src-3.1.10/ptexextra.c.orig 2006-05-29 11:27:25.000000000 +0900 | |
44 | +++ ptex-src-3.1.10/ptexextra.c 2007-03-02 14:48:05.000000000 +0900 | |
45 | @@ -953,7 +953,7 @@ | |
46 | } /* Else it was a flag; getopt has already done the assignment. */ | |
47 | } | |
48 | if (version_switch) { | |
49 | - printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR); | |
50 | + printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR, nil); | |
51 | } | |
52 | } | |
53 | ||
54 | @@ -1718,7 +1718,7 @@ | |
55 | } | |
56 | ||
57 | strnumber | |
58 | -getjobname() | |
59 | +getjobname(strnumber curname) | |
60 | { | |
61 | strnumber ret = curname; | |
62 | if (job_name != NULL) | |
63 | --- ptex-src-3.1.10/tftopl.ch.orig 2006-07-18 17:03:33.000000000 +0900 | |
64 | +++ ptex-src-3.1.10/tftopl.ch 2007-03-02 18:58:41.000000000 +0900 | |
65 | @@ -374,7 +374,7 @@ | |
66 | @z | |
67 | @x | |
68 | end else if argument_is ('version') then begin | |
69 | - print_version_and_exit (banner, nil, 'D.E. Knuth'); | |
70 | + print_version_and_exit (banner, nil, 'D.E. Knuth', nil); | |
71 | @y | |
72 | end else if argument_is ('version') then begin | |
73 | version_switch := true; | |
74 | @@ -389,7 +389,7 @@ | |
75 | end; {Else it was a flag; |getopt| has already done the assignment.} | |
76 | until getopt_return_val = -1; | |
77 | if (version_switch) then | |
78 | - print_version_and_exit (banner, nil, 'D.E. Knuth'); | |
79 | + print_version_and_exit (banner, nil, 'D.E. Knuth', nil); | |
80 | @z | |
81 | ||
82 | @x | |
83 | --- ptex-src-3.1.10/version.c.orig 2006-05-29 11:27:25.000000000 +0900 | |
84 | +++ ptex-src-3.1.10/version.c 2007-03-02 15:38:03.000000000 +0900 | |
85 | @@ -3,8 +3,9 @@ | |
86 | ||
87 | /*** lib/printversion.c: Output for the option --version. ***/ | |
88 | void | |
89 | -printversionandexit P3C(const_string, banner, | |
90 | - const_string, copyright_holder, const_string, author) | |
91 | +printversionandexit P4C(const_string, banner, | |
92 | + const_string, copyright_holder, const_string, author, | |
93 | + char*, extra_info) | |
94 | { | |
95 | extern string versionstring; /* from web2c/lib/version.c */ | |
96 | extern string based_prog_name; |