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

support for arbitrary DocBook, filenames, emphasis

This commit is contained in:
david 2002-01-13 14:03:59 +00:00
parent 39e37d69fc
commit 5e591bdd00
3 changed files with 89 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
LDP/txt2db/README
View File

@ -46,3 +46,13 @@ Foo <para>Foo</para>
<citetitle>Foo</citetitle>
</ulink>
[Foo] <filename>Foo</filename>
'''Foo''' <emphasis>Foo</emphasis>
[filename] <filename>filename</filename>
Or, you can insert arbitrary DocBook:
<foo></foo> <foo></foo>

27
LDP/txt2db/sample.txt
View File

@ -1,9 +1,27 @@
=Introduction|intro=
Simple List
*item
*item
*item
This tests arbitrary DocBook. It should be passed right on to the output file
with no changes. It can be nested arbitrarily deep.
<informaltable>test
<foo>test some more
</foo>
<informaltable>This is the second level!
</informaltable>
</informaltable>
This document is from the [[http://www.linuxdoc.org Linux Documentation Project]].
Numbered List
This is an '''important''' [file].
#item
#item
#item
@ -14,12 +32,6 @@ Another to make sure the numbers restart at one.
#item
#item
Simple List
*item
*item
*item
=Bar=
Just another section.
@ -32,3 +44,6 @@ Just another section.
All previous sections should be properly closed.
=test again=

67
LDP/txt2db/txt2db.pl
View File

@ -70,6 +70,7 @@ sub usage {
sub proc_txt {
my($f) = @_;
my($dbnesting);
# read in the text file
#
@ -82,68 +83,103 @@ sub proc_txt {
# blank lines
if ($line eq '') {
&closepara;
&closelist;
&closeorderedlist;
next;
}
# pass DocBook right on through
#
if ($line =~ /^</) {
&closepara;
$closelist;
&closeorderedlist;
$tag = $line;
$tag =~ s/^.*<//;
$tag =~ s/>.*$//;
$buf .= $line;
$dbnesting = 1;
while (<TXT>) {
$line = $_;
if ($line =~ /<$tag>/) {
$dbnesting = $dbnesting + 1;
}
if ($line =~ /<\/$tag>/) {
$dbnesting = $dbnesting - 1;
$buf .= $line;
if ($dbnesting == 0) {
last;
}
} else {
$buf .= $line;
}
}
next;
}
if ($line =~ /^=\w/) {
&close1;
$level1 = 1;
&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;
$level2 = 1;
&splittitle;
if ($id eq '') {
$line = "<sect2><title>$title</title>\n";
} else {
$line = "<sect2 id='$id'><title>$title</title>\n";
}
$level2 = 1;
} elsif ($line =~ /^===\w/) {
&close3;
$level3 = 1;
&splittitle;
if ($id eq '') {
$line = "<sect3><title>$title</title>\n";
} else {
$line = "<sect3 id='$id'><title>$title</title>\n";
}
$level3 = 1;
} elsif ($line =~ /^#/) {
if ($orderedlist == 0) {
$orderedlist = 1;
$buf .= "\n<orderedlist>\n";
$orderedlist = 1;
}
&closelistitem;
$listitem = 1;
$line =~ s/^#//;
$line =~ s/^/\n<listitem><para>/;
$listitem = 1;
$para = 1;
} elsif ($line =~ /^\*/) {
if ($list == 0) {
$list = 1;
$buf .= "\n<simplelist>\n";
$list = 1;
}
&closelistitem;
$listitem = 1;
$line =~ s/^\*//;
$line =~ s/^/\n<listitem><para>/;
$listitem = 1;
$para = 1;
}
else {
&closeorderedlist;
if ( $para == 0 ) {
$para = 1;
$line =~ s/^/<para>/;
$para = 1;
} else {
$line .= " ";
}
}
# links
# ulink
#
if ($line =~ /\[\[/) {
$link = $line;
@ -158,6 +194,19 @@ sub proc_txt {
}
$line =~ s/\[\[.*\]\]/<ulink url='$link'><citetitle>$linkname<\/citetitle><\/ulink>/;
}
# emphasis
#
while ($line =~ /'''.*'''/) {
$line =~ s/'''/<emphasis>/;
$line =~ s/'''/<\/emphasis>/;
}
# filename
#
$line =~ s/\[/<filename>/;
$line =~ s/\]/<\/filename>/;
$buf .= $line;
}
# close nesting