github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2025-01-14 22:30:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bring texi2pod.pl up-to-date with gcc's.

Browse Source 
BUT: keep GPLv3 invocation, and "use warning" rather than -w.
This commit is contained in:
Micah Cowan 2007-09-27 18:53:59 -07:00
parent a5ac5eaee8
commit d3c982b1bd
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
doc/texi2pod.pl
View File

@ -204,9 +204,9 @@ while(<$inf>) {
# Now the ones that have to be replaced by special escapes # Now the ones that have to be replaced by special escapes
# (which will be turned back into text by unmunge()) # (which will be turned back into text by unmunge())
s/&/&amp;/g; s/&/&amp;/g;
s/\@\@/&at;/g;
s/\@\{/&lbrace;/g; s/\@\{/&lbrace;/g;
s/\@\}/&rbrace;/g; s/\@\}/&rbrace;/g;
s/\@\@/&at;/g;
# Inside a verbatim block, handle @var specially. # Inside a verbatim block, handle @var specially.
if ($shift ne "") { if ($shift ne "") {
@ -227,11 +227,12 @@ while(<$inf>) {
/^\@include\s+(.+)$/ and do { /^\@include\s+(.+)$/ and do {
push @instack, $inf; push @instack, $inf;
$inf = gensym(); $inf = gensym();
$file = postprocess($1);
# Try cwd and $ibase. # Try cwd and $ibase.
open($inf, "<" . $1) open($inf, "<" . $file)
or open($inf, "<" . $ibase . "/" . $1) or open($inf, "<" . $ibase . "/" . $file)
or die "cannot open $1 or $ibase/$1: $!\n"; or die "cannot open $file or $ibase/$file: $!\n";
next; next;
}; };
@ -274,7 +275,6 @@ while(<$inf>) {
$ic =~ s/\@(?:code|kbd)/C/; $ic =~ s/\@(?:code|kbd)/C/;
$ic =~ s/\@(?:dfn|var|emph|cite|i)/I/; $ic =~ s/\@(?:dfn|var|emph|cite|i)/I/;
$ic =~ s/\@(?:file)/F/; $ic =~ s/\@(?:file)/F/;
$ic =~ s/\@(?:asis)/S/; # punt
$_ = "\n=over 4\n"; $_ = "\n=over 4\n";
}; };
@ -308,7 +308,7 @@ die "No filename or title\n" unless defined $fn && defined $tl;
$sects{NAME} = "$fn \- $tl\n"; $sects{NAME} = "$fn \- $tl\n";
$sects{FOOTNOTES} .= "=back\n" if exists $sects{FOOTNOTES}; $sects{FOOTNOTES} .= "=back\n" if exists $sects{FOOTNOTES};
for $sect (qw(NAME SYNOPSIS DESCRIPTION OPTIONS ENVIRONMENT EXAMPLES FILES for $sect (qw(NAME SYNOPSIS DESCRIPTION OPTIONS ENVIRONMENT FILES
BUGS NOTES FOOTNOTES SEEALSO AUTHOR COPYRIGHT)) { BUGS NOTES FOOTNOTES SEEALSO AUTHOR COPYRIGHT)) {
if(exists $sects{$sect}) { if(exists $sects{$sect}) {
$head = $sect; $head = $sect;
@ -350,6 +350,13 @@ sub postprocess
s/\@w\{([^\}]*)\}/S<$1>/g; s/\@w\{([^\}]*)\}/S<$1>/g;
s/\@(?:dmn|math)\{([^\}]*)\}/$1/g; s/\@(?:dmn|math)\{([^\}]*)\}/$1/g;
# keep references of the form @ref{...}, print them bold
s/\@(?:ref)\{([^\}]*)\}/B<$1>/g;
# Change double single quotes to double quotes.
s/''/"/g;
s/``/"/g;
# Cross references are thrown away, as are @noindent and @refill. # Cross references are thrown away, as are @noindent and @refill.
# (@noindent is impossible in .pod, and @refill is unnecessary.) # (@noindent is impossible in .pod, and @refill is unnecessary.)
# @* is also impossible in .pod; we discard it and any newline that # @* is also impossible in .pod; we discard it and any newline that