percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-03-10 02:07:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merged lp:~percona-toolkit-dev/percona-toolkit/fatpack-pod2rst

Browse Source
This commit is contained in:
Brian Fraser
2013-03-15 15:14:23 -03:00
parent f591534a1b 139af0ae75
commit 0ff20e042c
4 changed files with 5799 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
docs/dev/how-to-fatpack-pod2rst Normal file
View File

@@ -0,0 +1,21 @@
$ cpanm App::FatPacker
$ mkdir /tmp/pod2rst
$ cp util/pod2rst-fixed /tmp/pod2rst/
$ cd /tmp/pod2rst
$ mkdir lib
$ fatpack trace pod2rst-fixed
$ fatpack packlists-for `cat fatpacker.trace` >packlists
$ fatpack tree `cat packlists`
$ (echo "#!/usr/bin/env perl"; fatpack file; cat pod2rst-fixed) > pod2rst-fixed.packed
$ cp pod2rst-fixed.packed ~/percona-toolkit/util/
$ cd ~/
$ rm -rf /tmp/pod2rst
Notes:
1. Don't do this from the root of the bzr repo. fatpack tries to be clever
and inlines everything under lib/
2. mkdir lib/ is to get around a bug(?) in fatpack
3. these two lines are safe to ignore:
File /tmp/pod2rst/fatlib/darwin-thread-multi-2level/auto/HTML/Parser/Parser.bs isn't a .pm file - can't pack this and if you hoped we were going to things may not be what you expected later
File /tmp/pod2rst/fatlib/darwin-thread-multi-2level/auto/HTML/Parser/Parser.bundle isn't a .pm file - can't pack this and if you hoped we were going to things may not be what you expected later

2
util/pod2rst-fixed
View File

@@ -6,8 +6,6 @@ use English qw(-no_match_vars);
use IO::File;
use HTML::Entities;
use File::Basename qw(basename);
use Pod::POM::View::Restructured;

5771
util/pod2rst-fixed.packed Executable file
View File

File diff suppressed because it is too large Load Diff

12
util/write-user-docs
View File

@@ -68,18 +68,20 @@ RST_DIR=$DOCS_DIR/user
fix_html () {
local name="$1"
perl -MFile::Basename=basename -MFile::Slurp=read_file,write_file -le '
perl -MFile::Basename=basename -le '
my $f = shift;
my $tool = basename($f);
$tool =~ s/\.html//;
my $out = read_file($f);
my $out = do { open my $fh, '<', $f or die $!; local $/; <$fh> };
$out =~ s{
\Q<dt id="\E(cmdoption-$tool--)\Q">\E\s*
\Q<tt class="descname">--</tt><tt class="descclassname">\E([^<]+)
\Q</tt><a class="headerlink" href="\E[^"]+"
}{<dt id="$1$2">
<tt class="descname">--$2</tt><tt class="descclassname"></tt><a class="headerlink" href="#$1$2"}xg;
write_file($f, $out);
open my $fh, '>', $f or die "Cannot open $f for writing: $!";
print { $f } $out;
close $fh or die "Cannot close $f: $!";
' $RST_DIR/html/$name.html
}
@@ -91,7 +93,7 @@ write_rst() {
return
fi
$BRANCH/util/pod2rst-fixed $file > $RST_DIR/$tool.rst
$BRANCH/util/pod2rst-fixed.packed $file > $RST_DIR/$tool.rst
if [ $? -eq 0 ]; then
echo "Wrote $RST_DIR/$tool.rst"
else
@@ -121,7 +123,7 @@ write_sections() {
$BRANCH/util/extract-text $DOCS_DIR/percona-toolkit.pod "^=head1 $header" "^=head1|=cut" > /tmp/$filename.pod
# Convert POD to RST and remove all the Perl highlight blocks.
cat /tmp/$filename.pod | pod2rst | sed -e 's/.. highlight:: perl//g' > /tmp/$filename.tmp
$BRANCH/util/pod2rst-fixed.packed /tmp/$filename.pod | sed -e 's/.. highlight:: perl//g' > /tmp/$filename.tmp
# Remove extra blank lines.
cat -s /tmp/$filename.tmp > $RST_DIR/$filename.rst