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;
} elsif (/^It ?(.*)$/) {
my $txt = $1;
# Flush last item
if ($mdocvars{parabuf} ne "") {
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/) {
$mdocvars{isin_list} = 1;
flush_out(\%mdocvars);
@ -217,6 +224,8 @@ sub parse {
}
} elsif (/-bullet/) {
$mdocvars{listtype} = "bullet";
} elsif (/-column/) {
$mdocvars{listtype} = "column";
} else {
$mdocvars{listtype} = "unknown";
}