Support column lists, by only extracting the first column.

MFC after:	3 days
This commit is contained in:
Simon L. B. Nielsen 2004-08-25 23:32:26 +00:00
parent 4bea5fa544
commit a733008573
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=134318

View file

@ -199,11 +199,18 @@ sub parse {
$cur_mansection = $2; $cur_mansection = $2;
} elsif (/^It ?(.*)$/) { } elsif (/^It ?(.*)$/) {
my $txt = $1;
# Flush last item # Flush last item
if ($mdocvars{parabuf} ne "") { if ($mdocvars{parabuf} ne "") {
add_listitem(\%mdocvars); add_listitem(\%mdocvars);
} }
parabuf_addline(\%mdocvars, normalize($1)); # Only extract the first column of column lists.
if ($mdocvars{listtype} eq "column") {
$txt =~ s/ Ta /\t/g;
$txt =~ s/([^\t]+)\t.*/$1/;
}
parabuf_addline(\%mdocvars, normalize($txt));
} elsif (/^Bl/) { } elsif (/^Bl/) {
$mdocvars{isin_list} = 1; $mdocvars{isin_list} = 1;
flush_out(\%mdocvars); flush_out(\%mdocvars);
@ -217,6 +224,8 @@ sub parse {
} }
} elsif (/-bullet/) { } elsif (/-bullet/) {
$mdocvars{listtype} = "bullet"; $mdocvars{listtype} = "bullet";
} elsif (/-column/) {
$mdocvars{listtype} = "column";
} else { } else {
$mdocvars{listtype} = "unknown"; $mdocvars{listtype} = "unknown";
} }