percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 07:30:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge ~daniel-nichter/percona-toolkit/bash-tool-libs r123.

Browse Source
This commit is contained in:
Daniel Nichter
2011-12-07 11:59:39 -07:00
parent ba34364cf9 876e3533d0
commit 9355a1af5d
2 changed files with 58 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
bin/pt-stalk
View File

@@ -74,31 +74,35 @@ parse_options() {
mkdir $TMPDIR/po/ 2>/dev/null
rm -rf $TMPDIR/po/*
awk -v "po_dir"="$TMPDIR/po" '
/^=head1 OPTIONS/ {
getline
while ($0 !~ /^=head1/) {
if ($0 ~ /^=item --.*/) {
long_opt = substr($2, 3, length($2) - 2)
spec_file = po_dir "/" long_opt
trf = "sed -e \"s/[ ]//g\" | tr \";\" \"\n\" > " spec_file
(
export LC_ALL="C"
getline # blank line
getline # specs or description
if ($0 ~ /^[a-z]/ ) {
print "long:" long_opt "; " $0 | trf
close(trf)
}
else {
print "long:" long_opt > spec_file
close(spec_file)
}
}
awk -v "po_dir"="$TMPDIR/po" '
/^=head1 OPTIONS/ {
getline
}
exit
}' $file
while ($0 !~ /^=head1/) {
if ($0 ~ /^=item --.*/) {
long_opt = substr($2, 3, length($2) - 2)
spec_file = po_dir "/" long_opt
trf = "sed -e \"s/[ ]//g\" | tr \";\" \"\n\" > " spec_file
getline # blank line
getline # specs or description
if ($0 ~ /^[a-z]/ ) {
print "long:" long_opt "; " $0 | trf
close(trf)
}
else {
print "long:" long_opt > spec_file
close(spec_file)
}
}
getline
}
exit
}' $file
)
for opt_spec in $(ls $TMPDIR/po/); do
local opt=""