Last active
August 29, 2015 14:10
-
-
Save aaferrari/2bee720d1b8bac7a09ee to your computer and use it in GitHub Desktop.
Patch for xpath script in Gentoo (comments in spanish)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Parche para el script ejecutable de xpath. Aplíquese en Gentoo o en cualquier | |
# instalación cuyo hash de archivo sea acb44c08365e33b1bd0feab421c75167 (se comprueba | |
# con "md5sum /ruta/hacia/xpath") | |
# | |
# Como aplicarlo | |
# ============== | |
# wget https://gist.githubusercontent.com/aaferrari/2bee720d1b8bac7a09ee/raw/parche_xpath.diff\ | |
# && sudo patch /usr/bin/xpath parche_xpath.diff | |
# | |
# Como revertirlo | |
# =============== | |
# sudo patch -R /usr/bin/xpath parche_path.diff | |
# | |
# Acerca de este parche | |
# ===================== | |
# El código para elaborar este parche fue extraído del paquete | |
# http://ftp.univ-nantes.fr/ubuntu/pool/main/libx/libxml-xpath-perl/libxml-xpath-perl_1.13-7_all.deb | |
--- /usr/bin/xpath 2014-11-27 01:02:45.585259229 -0300 | |
+++ /home/usuario/xpath 2010-01-18 04:58:18.000000000 -0300 | |
@@ -2,76 +2,117 @@ | |
eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' | |
if 0; # not running under some shell | |
+ | |
+eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' | |
+ if 0; # not running under some shell | |
use strict; | |
$| = 1; | |
-unless (@ARGV >= 1) { | |
- print STDERR qq(Usage: | |
-$0 [filename] query | |
- | |
- If no filename is given, supply XML on STDIN. | |
-); | |
- exit; | |
-} | |
- | |
use XML::XPath; | |
-my $xpath; | |
- | |
+my @paths; | |
my $pipeline; | |
+my $SUFFIX = "\n"; | |
+my $PREFIX = ""; | |
+my $quiet = 0; | |
-if ($ARGV[0] eq '-p') { | |
- # pipeline mode | |
- $pipeline = 1; | |
- shift @ARGV; | |
-} | |
-if (@ARGV >= 2) { | |
- $xpath = XML::XPath->new(filename => shift(@ARGV)); | |
-} | |
-else { | |
- $xpath = XML::XPath->new(ioref => \*STDIN); | |
+ | |
+PARSE: while ((@ARGV >= 1) && ($ARGV[0] =~ /^-./ )) { | |
+ OPTIONS: { | |
+ if ($ARGV[0] eq "-e") { | |
+ shift; | |
+ push @paths, shift; | |
+ last OPTIONS; | |
+ } | |
+ if ($ARGV[0] eq "-p") { | |
+ shift; | |
+ $PREFIX = shift; | |
+ last OPTIONS; | |
+ } | |
+ if ($ARGV[0] eq "-s") { | |
+ shift; | |
+ $SUFFIX = shift; | |
+ last OPTIONS; | |
+ } | |
+ if ($ARGV[0] eq "-q") { | |
+ $quiet = 1; | |
+ shift; | |
+ last OPTIONS; | |
+ } | |
+ print STDERR "Unknown option ignore: ", shift; | |
+ } | |
} | |
-my $nodes = $xpath->find(shift @ARGV); | |
+unless (@paths >= 1) { | |
+ print STDERR qq(Usage: | |
+$0 [options] -e query [-e query...] [filename...] | |
-unless ($nodes->isa('XML::XPath::NodeSet')) { | |
-NOTNODES: | |
- print STDERR "Query didn't return a nodeset. Value: "; | |
- print $nodes->value, "\n"; | |
+ If no filenams are given, supply XML on STDIN. | |
+ You must provide at least one query. Each supplementary | |
+ query is done in order, the previous query giving the | |
+ context of the next one. | |
+ | |
+ Options: | |
+ | |
+ -q quiet. Only output the resulting PATH | |
+ -s suffix use suffix instead of linefeed. | |
+ -p postfix use prefix instead of nothing. | |
+); | |
exit; | |
} | |
-if ($pipeline) { | |
- $nodes = find_more($nodes); | |
- goto NOTNODES unless $nodes->isa('XML::XPath::NodeSet'); | |
-} | |
+do | |
+{ | |
+ my $xpath; | |
+ my @curpaths = @paths; | |
+ my $filename; | |
+ if (@ARGV >= 1) { | |
+ $filename = shift @ARGV; | |
+ $xpath = XML::XPath->new(filename => $filename); | |
+ } | |
+ else { | |
+ $filename = 'stdin'; | |
+ $xpath = XML::XPath->new(ioref => \*STDIN); | |
+ } | |
-if ($nodes->size) { | |
- print STDERR "Found ", $nodes->size, " nodes:\n"; | |
- foreach my $node ($nodes->get_nodelist) { | |
- print STDERR "-- NODE --\n"; | |
- print $node->toString; | |
+ my $nodes = $xpath->find(shift @curpaths); | |
+ | |
+ if ($nodes->isa('XML::XPath::NodeSet')) { | |
+ while (@curpaths >= 1) { | |
+ $nodes = find_more($xpath, shift @curpaths, $nodes); | |
+ last unless $nodes->isa('XML::XPath::NodeSet'); | |
+ } | |
+ } | |
+ | |
+ if ($nodes->isa('XML::XPath::NodeSet')) { | |
+ if ($nodes->size) { | |
+ print STDERR "Found ", $nodes->size, " nodes in $filename:\n" unless $quiet; | |
+ foreach my $node ($nodes->get_nodelist) { | |
+ print STDERR "-- NODE --\n" unless $quiet; | |
+ print $PREFIX, $node->toString, $SUFFIX; | |
+ } | |
+ } | |
+ else { | |
+ print STDERR "No nodes found in $filename\n" unless $quiet; | |
+ } | |
+ } | |
+ else { | |
+ print STDERR "Query didn't return a nodeset. Value: "; | |
+ print $nodes->value, "\n"; | |
} | |
-} | |
-else { | |
- print STDERR "No nodes found"; | |
-} | |
-print STDERR "\n"; | |
+} until (@ARGV < 1); | |
exit; | |
sub find_more { | |
+ my $xpath = shift; | |
+ my $find = shift; | |
my ($nodes) = @_; | |
- if (!@ARGV) { | |
- return $nodes; | |
- } | |
my $newnodes = XML::XPath::NodeSet->new; | |
- my $find = shift @ARGV; | |
- | |
foreach my $node ($nodes->get_nodelist) { | |
my $new = $xpath->find($find, $node); | |
if ($new->isa('XML::XPath::NodeSet')) { | |
@@ -82,5 +123,83 @@ | |
} | |
} | |
- return find_more($newnodes); | |
+ return $newnodes; | |
} | |
+ | |
+__END__ | |
+ | |
+=head1 NAME | |
+ | |
+xpath - a script to query XPath statements in XML documents. | |
+ | |
+=head1 SYNOPSIS | |
+ | |
+B<xpath [-s suffix] [-p prefix] [-q] -e query [-e query] ... [file] ...> | |
+ | |
+=head1 DESCRIPTION | |
+ | |
+B<xpath> uses the L<XML::XPath|XML::XPath> perl module to make XPath queries | |
+to any XML document. The L<XML::XPath|XML::XPath> module aims to comply exactly | |
+to the XPath specification at C<http://www.w3.org/TR/xpath> and yet | |
+allows extensions to be added in the form of functions. | |
+ | |
+The script takes any number of XPath pointers and tries to apply them | |
+to each XML document given on the command line. If no file arguments | |
+are given, the query is done using C<STDIN> as an XML document. | |
+ | |
+When multiple queries exist, the result of the last query is used as | |
+context for the next query and only the result of the last one is output. | |
+The context of the first query is always the root of the current document. | |
+ | |
+=head1 OPTIONS | |
+ | |
+=head2 B<-q> | |
+ | |
+Be quiet. Output only errors (and no separator) on stderr. | |
+ | |
+=head2 B<-s suffix> | |
+ | |
+Place C<suffix> at the end of each entry. Default is a linefeed. | |
+ | |
+=head2 B<-p prefix> | |
+ | |
+Place C<prefix> preceding each entry. Default is nothing. | |
+ | |
+=head1 BUGS | |
+ | |
+The author of this man page is not very fluant in english. Please, | |
+send him (L<fabien@tzone.org>) any corrections concerning this text. | |
+ | |
+See also L<XML::XPath(3pm)>. | |
+ | |
+=head1 SEE ALSO | |
+ | |
+L<XML::XPath(3pm)>. | |
+ | |
+=head1 HISTORY | |
+ | |
+This module is copyright 2000 Fastnet Software Ltd. This is free | |
+software, and as such comes with NO WARRANTY. No dates are used in this | |
+module. You may distribute this module under the terms of either the | |
+Gnu GPL, or under specific licencing from Fastnet Software Ltd. | |
+Special free licencing consideration will be given to similarly free | |
+software. Please don't flame me for this licence - I've put a lot of | |
+hours into this code, and if someone uses my software in their product | |
+I expect them to have the courtesy to contact me first. | |
+ | |
+Full support for this module is available from Fastnet Software Ltd on | |
+a pay per incident basis. Alternatively subscribe to the Perl-XML | |
+mailing list by mailing lyris@activestate.com with the text: | |
+ | |
+ SUBSCRIBE Perl-XML | |
+ | |
+in the body of the message. There are lots of friendly people on the | |
+list, including myself, and we'll be glad to get you started. | |
+ | |
+Matt Sergeant, matt@sergeant.org | |
+ | |
+This man page was added as well as some serious modifications to the script | |
+by Fabien Ninoles <fabien@debian.org> for the Debian Project. | |
+ | |
+=cut | |
+ |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment