[xml/sgml-commit] [SCM] linuxdoc-tools package for Debian. branch, master, updated. debian/0.9.60-24-gf1f1363
Agustin Martin Domingo
agmartin at debian.org
Mon Jun 15 12:30:46 UTC 2009
The following commit has been merged in the master branch:
commit c9eb7552a6b0670fe7071025a36c6b1b300da961
Author: Agustin Martin Domingo <agmartin at debian.org>
Date: Wed Apr 29 20:22:20 2009 +0200
fmt_info.pl: Remove leading tabs in abstract (really in preamble)
diff --git a/lib/fmt/fmt_info.pl b/lib/fmt/fmt_info.pl
index ca34856..37a3f14 100644
--- a/lib/fmt/fmt_info.pl
+++ b/lib/fmt/fmt_info.pl
@@ -54,8 +54,9 @@ my $info_escape = sub {
$info->{preASP} = sub {
# ------------------------------------------------------------------
my ($INFILE, $OUTFILE) = @_;
- my $suffix = ( $global->{charset} eq "latin1" ) ? '.2l1texi' : '.2texi';
- my $char_maps = load_char_maps ($suffix, [ Text::EntityMap::sdata_dirs() ]);
+ my $suffix = ( $global->{charset} eq "latin1" ) ? '.2l1texi' : '.2texi';
+ my $char_maps = load_char_maps ($suffix, [ Text::EntityMap::sdata_dirs() ]);
+ my $inpreamble = 1;
my $inheading;
# Replace some symbols in the file before sgmlsasp is called. This
@@ -73,6 +74,7 @@ $info->{preASP} = sub {
if ( s/^-// ) {
chomp;
s/([^\\])\\n/$1 /g if $inheading; # Remove spurious \n in headings
+ s/(\\n|^)\\011/$1/g if $inpreamble; # Remove leading tabs in abstract.
print $OUTFILE "-" .
parse_data ($_, $char_maps, $info_escape) . "\n";
} elsif (/^A/) {
@@ -87,6 +89,7 @@ $info->{preASP} = sub {
} else {
if (/^\(HEADING/){
$inheading = 1;
+ $inpreamble = ''; # No longer in preamble if found a HEADING
} elsif (/^\)HEADING/){
$inheading = '';
}
--
linuxdoc-tools package for Debian.
More information about the debian-xml-sgml-commit
mailing list