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

allow spaces between = marks and titles

This commit is contained in:
david 2002-01-13 18:45:54 +00:00
parent d2b79d0dfd
commit 7183e6ad49
1 changed files with 25 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
LDP/txt2db/txt2db.pl
View File

@ -117,45 +117,7 @@ sub proc_txt {
next;
}
# handle whitespace gracefully
while ($line =~ /^= /) {
$line =~ s/^= /^=/;
}
while ($line =~ /^== /) {
$line =~ s/^== /^==/;
}
while ($line =~ /^=== /) {
$line =~ s/^=== /^===/;
}
while ($line =~ / =$/) {
$line =~ s/ =$/=$/;
}
while ($line =~ / ==$/) {
$line =~ s/ ==$/==$/;
}
while ($line =~ / ===$/) {
$line =~ s/ ===$/===$/;
}
if ($line =~ /^=\w/) {
&close1;
&splittitle;
if ($id eq '') {
$line = "<sect1><title>$title</title>\n";
} else {
$line = "<sect1 id='$id'><title>$title</title>\n";
}
$level1 = 1;
} elsif ($line =~ /^==\w/) {
&close2;
&splittitle;
if ($id eq '') {
$line = "<sect2><title>$title</title>\n";
} else {
$line = "<sect2 id='$id'><title>$title</title>\n";
}
$level2 = 1;
} elsif ($line =~ /^===\w/) {
if ($line =~ /^===/) {
&close3;
&splittitle;
if ($id eq '') {
@ -164,6 +126,24 @@ sub proc_txt {
$line = "<sect3 id='$id'><title>$title</title>\n";
}
$level3 = 1;
} elsif ($line =~ /^==/) {
&close2;
&splittitle;
if ($id eq '') {
$line = "<sect2><title>$title</title>\n";
} else {
$line = "<sect2 id='$id'><title>$title</title>\n";
}
$level2 = 1;
} elsif ($line =~ /^=/) {
&close1;
&splittitle;
if ($id eq '') {
$line = "<sect1><title>$title</title>\n";
} else {
$line = "<sect1 id='$id'><title>$title</title>\n";
}
$level1 = 1;
} elsif ($line =~ /^#/) {
if ($orderedlist == 0) {
$buf .= "\n<orderedlist>\n";
@ -305,4 +285,10 @@ sub splittitle {
$id = $line;
$id =~ s/^.+\|//;
}
while ($title =~ /^\ /) {
$title =~ s/^\ //;
}
while ($title =~ /\ $/) {
$title =~ s/\ $//;
}
}