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
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);
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
15 usage_help (PDVITYPE_HELP, nil);
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);
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
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);
32 end; {Else it was a flag; |getopt| has already done the assignment.}
33 until getopt_return_val = -1;
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);
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
46 } /* Else it was a flag; getopt has already done the assignment. */
49 - printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR);
50 + printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR, nil);
59 +getjobname(strnumber curname)
61 strnumber ret = curname;
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
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);
72 end else if argument_is ('version') then begin
73 version_switch := true;
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);
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
87 /*** lib/printversion.c: Output for the option --version. ***/
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,
95 extern string versionstring; /* from web2c/lib/version.c */
96 extern string based_prog_name;