texlive/texlive-2007-ptex-3.1.10.patch

97 lines
3.5 KiB
Diff
Raw Normal View History

2007-12-02 08:03:19 +00:00
--- ptex-src-3.1.10/jbibtex.ch.orig 2006-05-29 11:27:25.000000000 +0900
+++ ptex-src-3.1.10/jbibtex.ch 2007-03-02 19:00:49.000000000 +0900
@@ -1504,7 +1504,7 @@
end; {Else it was a flag; |getopt| has already done the assignment.}
until getopt_return_val = -1;
if (version_switch) then
- print_version_and_exit (banner, 'Oren Patashnik', nil);
+ print_version_and_exit (banner, 'Oren Patashnik', nil, nil);
{Now |optind| is the index of first non-option on the command line.
We must have one remaining argument.}
--- ptex-src-3.1.10/pdvitype.ch.orig 2005-03-07 15:30:44.000000000 +0900
+++ ptex-src-3.1.10/pdvitype.ch 2007-03-02 19:00:11.000000000 +0900
@@ -1021,7 +1021,7 @@
usage_help (PDVITYPE_HELP, nil);
end else if argument_is ('version') then begin
- print_version_and_exit (banner, nil, 'D.E. Knuth');
+ print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
end else if argument_is ('output-level') then begin
out_mode := atou (optarg);
--- ptex-src-3.1.10/pltotf.ch.orig 2006-07-18 17:03:33.000000000 +0900
+++ ptex-src-3.1.10/pltotf.ch 2007-03-02 18:59:39.000000000 +0900
@@ -427,7 +427,7 @@
@z
@x
end else if argument_is ('version') then begin
- print_version_and_exit (banner, nil, 'D.E. Knuth');
+ print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
end; {Else it was a flag; |getopt| has already done the assignment.}
until getopt_return_val = -1;
@@ -441,7 +441,7 @@
end; {Else it was a flag; |getopt| has already done the assignment.}
until getopt_return_val = -1;
if (version_switch) then
- print_version_and_exit (banner, nil, 'D.E. Knuth');
+ print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
@z
@x
--- ptex-src-3.1.10/ptexextra.c.orig 2006-05-29 11:27:25.000000000 +0900
+++ ptex-src-3.1.10/ptexextra.c 2007-03-02 14:48:05.000000000 +0900
@@ -953,7 +953,7 @@
} /* Else it was a flag; getopt has already done the assignment. */
}
if (version_switch) {
- printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR);
+ printversionandexit (BANNER, COPYRIGHT_HOLDER, AUTHOR, nil);
}
}
@@ -1718,7 +1718,7 @@
}
strnumber
-getjobname()
+getjobname(strnumber curname)
{
strnumber ret = curname;
if (job_name != NULL)
--- ptex-src-3.1.10/tftopl.ch.orig 2006-07-18 17:03:33.000000000 +0900
+++ ptex-src-3.1.10/tftopl.ch 2007-03-02 18:58:41.000000000 +0900
@@ -374,7 +374,7 @@
@z
@x
end else if argument_is ('version') then begin
- print_version_and_exit (banner, nil, 'D.E. Knuth');
+ print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
@y
end else if argument_is ('version') then begin
version_switch := true;
@@ -389,7 +389,7 @@
end; {Else it was a flag; |getopt| has already done the assignment.}
until getopt_return_val = -1;
if (version_switch) then
- print_version_and_exit (banner, nil, 'D.E. Knuth');
+ print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
@z
@x
--- ptex-src-3.1.10/version.c.orig 2006-05-29 11:27:25.000000000 +0900
+++ ptex-src-3.1.10/version.c 2007-03-02 15:38:03.000000000 +0900
@@ -3,8 +3,9 @@
/*** lib/printversion.c: Output for the option --version. ***/
void
-printversionandexit P3C(const_string, banner,
- const_string, copyright_holder, const_string, author)
+printversionandexit P4C(const_string, banner,
+ const_string, copyright_holder, const_string, author,
+ char*, extra_info)
{
extern string versionstring; /* from web2c/lib/version.c */
extern string based_prog_name;