Revision 3179d694 scripts/texi2pod.pl
| b/scripts/texi2pod.pl | ||
|---|---|---|
| 36 | 36 |
$inf = ""; |
| 37 | 37 |
$ibase = ""; |
| 38 | 38 |
@ipath = (); |
| 39 |
$encoding = undef; |
|
| 39 | 40 |
|
| 40 | 41 |
while ($_ = shift) {
|
| 41 | 42 |
if (/^-D(.*)$/) {
|
| ... | ... | |
| 97 | 98 |
/^\@setfilename\s+([^.]+)/ and $fn = $1, next; |
| 98 | 99 |
/^\@settitle\s+([^.]+)/ and $tl = postprocess($1), next; |
| 99 | 100 |
|
| 101 |
# Look for document encoding |
|
| 102 |
/^\@documentencoding\s+([^.]+)/ and do {
|
|
| 103 |
$encoding = $1 unless defined $encoding; |
|
| 104 |
next; |
|
| 105 |
}; |
|
| 106 |
|
|
| 100 | 107 |
# Identify a man title but keep only the one we are interested in. |
| 101 | 108 |
/^\@c\s+man\s+title\s+([A-Za-z0-9-]+)\s+(.+)/ and do {
|
| 102 | 109 |
if (exists $defs{$1}) {
|
| ... | ... | |
| 336 | 343 |
|
| 337 | 344 |
die "No filename or title\n" unless defined $fn && defined $tl; |
| 338 | 345 |
|
| 346 |
print "=encoding $encoding\n\n" if defined $encoding; |
|
| 347 |
|
|
| 339 | 348 |
$sects{NAME} = "$fn \- $tl\n";
|
| 340 | 349 |
$sects{FOOTNOTES} .= "=back\n" if exists $sects{FOOTNOTES};
|
| 341 | 350 |
|
Also available in: Unified diff