LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

bugfixes

This commit is contained in:
david 2002-03-17 06:16:59 +00:00
parent e9820a4dbc
commit f2ac1b15aa
1 changed files with 47 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
LDP/texi2db/texi2db
View File

@ -240,6 +240,7 @@ $replacement = "";
'@smallexample' =>'LITERALBLOCK',
# '@end smallexample' =>'DROPLINE',
'@sp' =>'DROPLINE',
'@synindex' =>'DROPLINE',
'@ftable' =>'TABLE',
'@end ftable' =>'TABLEEND',
'@table' =>'TABLE',
@ -1390,6 +1391,7 @@ sub anchorfix {
$anchor =~ s/\//-slash-/g;
$anchor =~ s/\s+/-/g;
$anchor =~ s/'//g;
$anchor =~ s/`//g;
$anchor =~ s/,/-comma-/g;
$anchor =~ s/\./-dot-/g;
$anchor =~ s/!/-bang-/g;
@ -1636,7 +1638,7 @@ sub initnode {
$nodenexts{$nodename} = $nodenext;
$nodeprevs{$nodename} = $nodeprev;
$nodeups{$nodename} = $nodeup;
$nodeanchors{$nodename} = $nodeid if ($nodeid);
$nodeanchors{uc($nodename)} = $nodeid if ($nodeid);
$nodetitlelookup{$nodeid} = $nodetitle;
$nodeinit = 1;
}
@ -1660,9 +1662,13 @@ sub closemenu {
sub appendix {
&writeabstract;
$nodetitle = $_[0];
&message("appendix: $nodetitle") if ($verbose > 1);
&closeappendix;
if ($nodeinit) {
&sect($_[0]);
} else {
$nodetitle = $_[0];
}
&initnode;
&convertinline;
&normalizespecial($nodetitle);
@ -1676,9 +1682,13 @@ sub appendix {
sub sect1 {
&writeabstract;
$nodetitle = $_[0];
&message("sect1: $nodetitle") if ($verbose > 1);
&closesect1;
if ($nodeinit) {
&sect($_[0]);
} else {
$nodetitle = $_[0];
}
&initnode;
&convertinline;
&normalizespecial($nodetitle);
@ -1692,9 +1702,13 @@ sub sect1 {
sub sect2 {
&writeabstract;
$nodetitle = $_[0];
&message("sect1: $nodetitle") if ($verbose > 1);
&closesect2;
if ($nodeinit) {
&sect($_[0]);
} else {
$nodetitle = $_[0];
}
&initnode;
&convertinline;
&normalizespecial($nodetitle);
@ -1718,9 +1732,13 @@ sub sect2 {
sub sect3 {
&writeabstract;
$nodetitle = $_[0];
&message("sect1: $nodetitle") if ($verbose > 1);
&closesect3;
if ($nodeinit) {
&sect($_[0]);
} else {
$nodetitle = $_[0];
}
&initnode;
&convertinline;
&normalizespecial($nodetitle);
@ -1744,9 +1762,13 @@ sub sect3 {
sub sect4 {
&writeabstract;
$nodetitle = $_[0];
&message("sect1: $nodetitle") if ($verbose > 1);
&message("sect4: $nodetitle") if ($verbose > 1);
&closesect4;
if ($nodeinit) {
&sect($_[0]);
} else {
$nodetitle = $_[0];
}
&initnode;
&convertinline;
&normalizespecial($nodetitle);
@ -1768,6 +1790,24 @@ sub sect4 {
$insect4 = 1;
}
sub sect {
$nodetitle = $_[0];
&normalizespecial($nodetitle);
$nodename = $nodetitle;
$nodename = &trim($nodename);
$nodeprev = '';
$nodenext = '';
$nodeup = '';
$nodeid = &anchorfix($nodename);
$nodeid = 0 if (exists $nodeanchors{uc($nodename)});
$nodeanchors{uc($nodename)} = $nodeid if ($nodeid);
$nodeinit = 0;
&message("Section Node: $nodename") if ($verbose);
&closeformalpara;
}
sub multitable {
my @colwidths = ();
my $colcount = 0;