mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
1d8c98a486
http://www.germane-software.com/repos/rexml/tags/3.1.7 r1278@bean: ser | 2007-06-07 00:53:06 -0400 Fixed a double-encoding bug. This was a regression, related to ticket:48. r1292@bean: ser | 2007-07-25 08:19:36 -0400 r1279@bean: ser | 2007-06-09 23:19:02 -0400 Fixes ticket:89 -- encoding CP-1252 was broken. ISO-8859-15 had the same problem. Also in this patch is a fix to merge.rb (unused, but it should at least contain no errors), and a unit test for ticket:88. r1293@bean: ser | 2007-07-25 08:19:37 -0400 r1281@bean: ser | 2007-07-24 11:08:48 -0400 Addresses ticket:85 This is a major rewrite of the XML formatting code. The XML writers have all been extracted out of the classes and put into their own class containers. This makes writing parsers easier, and cleaner. There are three formatters, which correspond to the previous three XML writing modes: REXML::Formatters::Default Prints the XML document exactly as it was parsed REXML::Formatters::Pretty Pretty prints the XML document, destroying whitespace in the document REXML::Formatters::Transitive Pretty prints the XML document, preserving whitespace All of the write() functions have been deprecated (some are still used, but these will also go away) except the write() function on Document, which is left for convenience. To pretty print an XML document the canonical way: formatter = REXML::Formatters::Pretty.new( 5 ) # indent by 5 spaces formatter.write( document, output ) r1294@bean: ser | 2007-07-25 08:19:38 -0400 r1283@bean: ser | 2007-07-24 19:53:30 -0400 This goes with the previous commit. r1295@bean: ser | 2007-07-25 08:19:39 -0400 r1285@bean: ser | 2007-07-24 20:02:07 -0400 And THIS goes with the previous two patches. Dammit. r1296@bean: ser | 2007-07-25 08:19:40 -0400 r1287@bean: ser | 2007-07-24 20:12:25 -0400 Applied patch from Jeff Barczewski. Note that this changes what the values of the name and IDs are from the previous behavior -- the values no longer include the quotes. This is the correct behavior, so I'm leaving it in, but it is not backwards compatible. Also fixes the serializer so that it outputs the doctype in a correct format (needed as a result of this change). r1297@bean: ser | 2007-07-25 08:38:38 -0400 Version update git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12844 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
792 lines
25 KiB
Ruby
792 lines
25 KiB
Ruby
require 'rexml/namespace'
|
|
require 'rexml/xmltokens'
|
|
require 'rexml/attribute'
|
|
require 'rexml/syncenumerator'
|
|
require 'rexml/parsers/xpathparser'
|
|
|
|
class Object
|
|
def dclone
|
|
clone
|
|
end
|
|
end
|
|
class Symbol
|
|
def dclone ; self ; end
|
|
end
|
|
class Fixnum
|
|
def dclone ; self ; end
|
|
end
|
|
class Float
|
|
def dclone ; self ; end
|
|
end
|
|
class Array
|
|
def dclone
|
|
klone = self.clone
|
|
klone.clear
|
|
self.each{|v| klone << v.dclone}
|
|
klone
|
|
end
|
|
end
|
|
|
|
module REXML
|
|
# You don't want to use this class. Really. Use XPath, which is a wrapper
|
|
# for this class. Believe me. You don't want to poke around in here.
|
|
# There is strange, dark magic at work in this code. Beware. Go back! Go
|
|
# back while you still can!
|
|
class XPathParser
|
|
include XMLTokens
|
|
LITERAL = /^'([^']*)'|^"([^"]*)"/u
|
|
|
|
def initialize( )
|
|
@parser = REXML::Parsers::XPathParser.new
|
|
@namespaces = nil
|
|
@variables = {}
|
|
end
|
|
|
|
def namespaces=( namespaces={} )
|
|
Functions::namespace_context = namespaces
|
|
@namespaces = namespaces
|
|
end
|
|
|
|
def variables=( vars={} )
|
|
Functions::variables = vars
|
|
@variables = vars
|
|
end
|
|
|
|
def parse path, nodeset
|
|
#puts "#"*40
|
|
path_stack = @parser.parse( path )
|
|
#puts "PARSE: #{path} => #{path_stack.inspect}"
|
|
#puts "PARSE: nodeset = #{nodeset.inspect}"
|
|
match( path_stack, nodeset )
|
|
end
|
|
|
|
def get_first path, nodeset
|
|
#puts "#"*40
|
|
path_stack = @parser.parse( path )
|
|
#puts "PARSE: #{path} => #{path_stack.inspect}"
|
|
#puts "PARSE: nodeset = #{nodeset.inspect}"
|
|
first( path_stack, nodeset )
|
|
end
|
|
|
|
def predicate path, nodeset
|
|
path_stack = @parser.parse( path )
|
|
expr( path_stack, nodeset )
|
|
end
|
|
|
|
def []=( variable_name, value )
|
|
@variables[ variable_name ] = value
|
|
end
|
|
|
|
|
|
# Performs a depth-first (document order) XPath search, and returns the
|
|
# first match. This is the fastest, lightest way to return a single result.
|
|
#
|
|
# FIXME: This method is incomplete!
|
|
def first( path_stack, node )
|
|
#puts "#{depth}) Entering match( #{path.inspect}, #{tree.inspect} )"
|
|
return nil if path.size == 0
|
|
|
|
case path[0]
|
|
when :document
|
|
# do nothing
|
|
return first( path[1..-1], node )
|
|
when :child
|
|
for c in node.children
|
|
#puts "#{depth}) CHILD checking #{name(c)}"
|
|
r = first( path[1..-1], c )
|
|
#puts "#{depth}) RETURNING #{r.inspect}" if r
|
|
return r if r
|
|
end
|
|
when :qname
|
|
name = path[2]
|
|
#puts "#{depth}) QNAME #{name(tree)} == #{name} (path => #{path.size})"
|
|
if node.name == name
|
|
#puts "#{depth}) RETURNING #{tree.inspect}" if path.size == 3
|
|
return node if path.size == 3
|
|
return first( path[3..-1], node )
|
|
else
|
|
return nil
|
|
end
|
|
when :descendant_or_self
|
|
r = first( path[1..-1], node )
|
|
return r if r
|
|
for c in node.children
|
|
r = first( path, c )
|
|
return r if r
|
|
end
|
|
when :node
|
|
return first( path[1..-1], node )
|
|
when :any
|
|
return first( path[1..-1], node )
|
|
end
|
|
return nil
|
|
end
|
|
|
|
|
|
def match( path_stack, nodeset )
|
|
#puts "MATCH: path_stack = #{path_stack.inspect}"
|
|
#puts "MATCH: nodeset = #{nodeset.inspect}"
|
|
r = expr( path_stack, nodeset )
|
|
#puts "MAIN EXPR => #{r.inspect}"
|
|
r
|
|
end
|
|
|
|
private
|
|
|
|
|
|
# Returns a String namespace for a node, given a prefix
|
|
# The rules are:
|
|
#
|
|
# 1. Use the supplied namespace mapping first.
|
|
# 2. If no mapping was supplied, use the context node to look up the namespace
|
|
def get_namespace( node, prefix )
|
|
if @namespaces
|
|
return @namespaces[prefix] || ''
|
|
else
|
|
return node.namespace( prefix ) if node.node_type == :element
|
|
return ''
|
|
end
|
|
end
|
|
|
|
|
|
# Expr takes a stack of path elements and a set of nodes (either a Parent
|
|
# or an Array and returns an Array of matching nodes
|
|
ALL = [ :attribute, :element, :text, :processing_instruction, :comment ]
|
|
ELEMENTS = [ :element ]
|
|
def expr( path_stack, nodeset, context=nil )
|
|
#puts "#"*15
|
|
#puts "In expr with #{path_stack.inspect}"
|
|
#puts "Returning" if path_stack.length == 0 || nodeset.length == 0
|
|
node_types = ELEMENTS
|
|
return nodeset if path_stack.length == 0 || nodeset.length == 0
|
|
while path_stack.length > 0
|
|
#puts "#"*5
|
|
#puts "Path stack = #{path_stack.inspect}"
|
|
#puts "Nodeset is #{nodeset.inspect}"
|
|
if nodeset.length == 0
|
|
path_stack.clear
|
|
return []
|
|
end
|
|
case (op = path_stack.shift)
|
|
when :document
|
|
nodeset = [ nodeset[0].root_node ]
|
|
#puts ":document, nodeset = #{nodeset.inspect}"
|
|
|
|
when :qname
|
|
#puts "IN QNAME"
|
|
prefix = path_stack.shift
|
|
name = path_stack.shift
|
|
nodeset.delete_if do |node|
|
|
# FIXME: This DOUBLES the time XPath searches take
|
|
ns = get_namespace( node, prefix )
|
|
#puts "NS = #{ns.inspect}"
|
|
#puts "node.node_type == :element => #{node.node_type == :element}"
|
|
if node.node_type == :element
|
|
#puts "node.name == #{name} => #{node.name == name}"
|
|
if node.name == name
|
|
#puts "node.namespace == #{ns.inspect} => #{node.namespace == ns}"
|
|
end
|
|
end
|
|
!(node.node_type == :element and
|
|
node.name == name and
|
|
node.namespace == ns )
|
|
end
|
|
node_types = ELEMENTS
|
|
|
|
when :any
|
|
#puts "ANY 1: nodeset = #{nodeset.inspect}"
|
|
#puts "ANY 1: node_types = #{node_types.inspect}"
|
|
nodeset.delete_if { |node| !node_types.include?(node.node_type) }
|
|
#puts "ANY 2: nodeset = #{nodeset.inspect}"
|
|
|
|
when :self
|
|
# This space left intentionally blank
|
|
|
|
when :processing_instruction
|
|
target = path_stack.shift
|
|
nodeset.delete_if do |node|
|
|
(node.node_type != :processing_instruction) or
|
|
( target!='' and ( node.target != target ) )
|
|
end
|
|
|
|
when :text
|
|
nodeset.delete_if { |node| node.node_type != :text }
|
|
|
|
when :comment
|
|
nodeset.delete_if { |node| node.node_type != :comment }
|
|
|
|
when :node
|
|
# This space left intentionally blank
|
|
node_types = ALL
|
|
|
|
when :child
|
|
new_nodeset = []
|
|
nt = nil
|
|
for node in nodeset
|
|
nt = node.node_type
|
|
new_nodeset += node.children if nt == :element or nt == :document
|
|
end
|
|
nodeset = new_nodeset
|
|
node_types = ELEMENTS
|
|
|
|
when :literal
|
|
return path_stack.shift
|
|
|
|
when :attribute
|
|
new_nodeset = []
|
|
case path_stack.shift
|
|
when :qname
|
|
prefix = path_stack.shift
|
|
name = path_stack.shift
|
|
for element in nodeset
|
|
if element.node_type == :element
|
|
#puts "Element name = #{element.name}"
|
|
#puts "get_namespace( #{element.inspect}, #{prefix} ) = #{get_namespace(element, prefix)}"
|
|
attrib = element.attribute( name, get_namespace(element, prefix) )
|
|
#puts "attrib = #{attrib.inspect}"
|
|
new_nodeset << attrib if attrib
|
|
end
|
|
end
|
|
when :any
|
|
#puts "ANY"
|
|
for element in nodeset
|
|
if element.node_type == :element
|
|
new_nodeset += element.attributes.to_a
|
|
end
|
|
end
|
|
end
|
|
nodeset = new_nodeset
|
|
|
|
when :parent
|
|
#puts "PARENT 1: nodeset = #{nodeset}"
|
|
nodeset = nodeset.collect{|n| n.parent}.compact
|
|
#nodeset = expr(path_stack.dclone, nodeset.collect{|n| n.parent}.compact)
|
|
#puts "PARENT 2: nodeset = #{nodeset.inspect}"
|
|
node_types = ELEMENTS
|
|
|
|
when :ancestor
|
|
new_nodeset = []
|
|
for node in nodeset
|
|
while node.parent
|
|
node = node.parent
|
|
new_nodeset << node unless new_nodeset.include? node
|
|
end
|
|
end
|
|
nodeset = new_nodeset
|
|
node_types = ELEMENTS
|
|
|
|
when :ancestor_or_self
|
|
new_nodeset = []
|
|
for node in nodeset
|
|
if node.node_type == :element
|
|
new_nodeset << node
|
|
while ( node.parent )
|
|
node = node.parent
|
|
new_nodeset << node unless new_nodeset.include? node
|
|
end
|
|
end
|
|
end
|
|
nodeset = new_nodeset
|
|
node_types = ELEMENTS
|
|
|
|
when :predicate
|
|
new_nodeset = []
|
|
subcontext = { :size => nodeset.size }
|
|
pred = path_stack.shift
|
|
nodeset.each_with_index { |node, index|
|
|
subcontext[ :node ] = node
|
|
#puts "PREDICATE SETTING CONTEXT INDEX TO #{index+1}"
|
|
subcontext[ :index ] = index+1
|
|
pc = pred.dclone
|
|
#puts "#{node.hash}) Recursing with #{pred.inspect} and [#{node.inspect}]"
|
|
result = expr( pc, [node], subcontext )
|
|
result = result[0] if result.kind_of? Array and result.length == 1
|
|
#puts "#{node.hash}) Result = #{result.inspect} (#{result.class.name})"
|
|
if result.kind_of? Numeric
|
|
#puts "Adding node #{node.inspect}" if result == (index+1)
|
|
new_nodeset << node if result == (index+1)
|
|
elsif result.instance_of? Array
|
|
if result.size > 0 and result.inject(false) {|k,s| s or k}
|
|
#puts "Adding node #{node.inspect}" if result.size > 0
|
|
new_nodeset << node if result.size > 0
|
|
end
|
|
else
|
|
#puts "Adding node #{node.inspect}" if result
|
|
new_nodeset << node if result
|
|
end
|
|
}
|
|
#puts "New nodeset = #{new_nodeset.inspect}"
|
|
#puts "Path_stack = #{path_stack.inspect}"
|
|
nodeset = new_nodeset
|
|
=begin
|
|
predicate = path_stack.shift
|
|
ns = nodeset.clone
|
|
result = expr( predicate, ns )
|
|
#puts "Result = #{result.inspect} (#{result.class.name})"
|
|
#puts "nodeset = #{nodeset.inspect}"
|
|
if result.kind_of? Array
|
|
nodeset = result.zip(ns).collect{|m,n| n if m}.compact
|
|
else
|
|
nodeset = result ? nodeset : []
|
|
end
|
|
#puts "Outgoing NS = #{nodeset.inspect}"
|
|
=end
|
|
|
|
when :descendant_or_self
|
|
rv = descendant_or_self( path_stack, nodeset )
|
|
path_stack.clear
|
|
nodeset = rv
|
|
node_types = ELEMENTS
|
|
|
|
when :descendant
|
|
results = []
|
|
nt = nil
|
|
for node in nodeset
|
|
nt = node.node_type
|
|
results += expr( path_stack.dclone.unshift( :descendant_or_self ),
|
|
node.children ) if nt == :element or nt == :document
|
|
end
|
|
nodeset = results
|
|
node_types = ELEMENTS
|
|
|
|
when :following_sibling
|
|
#puts "FOLLOWING_SIBLING 1: nodeset = #{nodeset}"
|
|
results = []
|
|
nodeset.each do |node|
|
|
next if node.parent.nil?
|
|
all_siblings = node.parent.children
|
|
current_index = all_siblings.index( node )
|
|
following_siblings = all_siblings[ current_index+1 .. -1 ]
|
|
results += expr( path_stack.dclone, following_siblings )
|
|
end
|
|
#puts "FOLLOWING_SIBLING 2: nodeset = #{nodeset}"
|
|
nodeset = results
|
|
|
|
when :preceding_sibling
|
|
results = []
|
|
nodeset.each do |node|
|
|
next if node.parent.nil?
|
|
all_siblings = node.parent.children
|
|
current_index = all_siblings.index( node )
|
|
preceding_siblings = all_siblings[ 0, current_index ].reverse
|
|
results += preceding_siblings
|
|
end
|
|
nodeset = results
|
|
node_types = ELEMENTS
|
|
|
|
when :preceding
|
|
new_nodeset = []
|
|
for node in nodeset
|
|
new_nodeset += preceding( node )
|
|
end
|
|
#puts "NEW NODESET => #{new_nodeset.inspect}"
|
|
nodeset = new_nodeset
|
|
node_types = ELEMENTS
|
|
|
|
when :following
|
|
new_nodeset = []
|
|
for node in nodeset
|
|
new_nodeset += following( node )
|
|
end
|
|
nodeset = new_nodeset
|
|
node_types = ELEMENTS
|
|
|
|
when :namespace
|
|
#puts "In :namespace"
|
|
new_nodeset = []
|
|
prefix = path_stack.shift
|
|
for node in nodeset
|
|
if (node.node_type == :element or node.node_type == :attribute)
|
|
if @namespaces
|
|
namespaces = @namespaces
|
|
elsif (node.node_type == :element)
|
|
namespaces = node.namespaces
|
|
else
|
|
namespaces = node.element.namesapces
|
|
end
|
|
#puts "Namespaces = #{namespaces.inspect}"
|
|
#puts "Prefix = #{prefix.inspect}"
|
|
#puts "Node.namespace = #{node.namespace}"
|
|
if (node.namespace == namespaces[prefix])
|
|
new_nodeset << node
|
|
end
|
|
end
|
|
end
|
|
nodeset = new_nodeset
|
|
|
|
when :variable
|
|
var_name = path_stack.shift
|
|
return @variables[ var_name ]
|
|
|
|
# :and, :or, :eq, :neq, :lt, :lteq, :gt, :gteq
|
|
# TODO: Special case for :or and :and -- not evaluate the right
|
|
# operand if the left alone determines result (i.e. is true for
|
|
# :or and false for :and).
|
|
when :eq, :neq, :lt, :lteq, :gt, :gteq, :and, :or
|
|
left = expr( path_stack.shift, nodeset.dup, context )
|
|
#puts "LEFT => #{left.inspect} (#{left.class.name})"
|
|
right = expr( path_stack.shift, nodeset.dup, context )
|
|
#puts "RIGHT => #{right.inspect} (#{right.class.name})"
|
|
res = equality_relational_compare( left, op, right )
|
|
#puts "RES => #{res.inspect}"
|
|
return res
|
|
|
|
when :and
|
|
left = expr( path_stack.shift, nodeset.dup, context )
|
|
#puts "LEFT => #{left.inspect} (#{left.class.name})"
|
|
if left == false || left.nil? || !left.inject(false) {|a,b| a | b}
|
|
return []
|
|
end
|
|
right = expr( path_stack.shift, nodeset.dup, context )
|
|
#puts "RIGHT => #{right.inspect} (#{right.class.name})"
|
|
res = equality_relational_compare( left, op, right )
|
|
#puts "RES => #{res.inspect}"
|
|
return res
|
|
|
|
when :div
|
|
left = Functions::number(expr(path_stack.shift, nodeset, context)).to_f
|
|
right = Functions::number(expr(path_stack.shift, nodeset, context)).to_f
|
|
return (left / right)
|
|
|
|
when :mod
|
|
left = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
right = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
return (left % right)
|
|
|
|
when :mult
|
|
left = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
right = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
return (left * right)
|
|
|
|
when :plus
|
|
left = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
right = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
return (left + right)
|
|
|
|
when :minus
|
|
left = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
right = Functions::number(expr(path_stack.shift, nodeset, context )).to_f
|
|
return (left - right)
|
|
|
|
when :union
|
|
left = expr( path_stack.shift, nodeset, context )
|
|
right = expr( path_stack.shift, nodeset, context )
|
|
return (left | right)
|
|
|
|
when :neg
|
|
res = expr( path_stack, nodeset, context )
|
|
return -(res.to_f)
|
|
|
|
when :not
|
|
when :function
|
|
func_name = path_stack.shift.tr('-','_')
|
|
arguments = path_stack.shift
|
|
#puts "FUNCTION 0: #{func_name}(#{arguments.collect{|a|a.inspect}.join(', ')})"
|
|
subcontext = context ? nil : { :size => nodeset.size }
|
|
|
|
res = []
|
|
cont = context
|
|
nodeset.each_with_index { |n, i|
|
|
if subcontext
|
|
subcontext[:node] = n
|
|
subcontext[:index] = i
|
|
cont = subcontext
|
|
end
|
|
arg_clone = arguments.dclone
|
|
args = arg_clone.collect { |arg|
|
|
#puts "FUNCTION 1: Calling expr( #{arg.inspect}, [#{n.inspect}] )"
|
|
expr( arg, [n], cont )
|
|
}
|
|
#puts "FUNCTION 2: #{func_name}(#{args.collect{|a|a.inspect}.join(', ')})"
|
|
Functions.context = cont
|
|
res << Functions.send( func_name, *args )
|
|
#puts "FUNCTION 3: #{res[-1].inspect}"
|
|
}
|
|
return res
|
|
|
|
end
|
|
end # while
|
|
#puts "EXPR returning #{nodeset.inspect}"
|
|
return nodeset
|
|
end
|
|
|
|
|
|
##########################################################
|
|
# FIXME
|
|
# The next two methods are BAD MOJO!
|
|
# This is my achilles heel. If anybody thinks of a better
|
|
# way of doing this, be my guest. This really sucks, but
|
|
# it is a wonder it works at all.
|
|
# ########################################################
|
|
|
|
def descendant_or_self( path_stack, nodeset )
|
|
rs = []
|
|
#puts "#"*80
|
|
#puts "PATH_STACK = #{path_stack.inspect}"
|
|
#puts "NODESET = #{nodeset.collect{|n|n.inspect}.inspect}"
|
|
d_o_s( path_stack, nodeset, rs )
|
|
#puts "RS = #{rs.collect{|n|n.inspect}.inspect}"
|
|
document_order(rs.flatten.compact)
|
|
#rs.flatten.compact
|
|
end
|
|
|
|
def d_o_s( p, ns, r )
|
|
#puts "IN DOS with #{ns.inspect}; ALREADY HAVE #{r.inspect}"
|
|
nt = nil
|
|
ns.each_index do |i|
|
|
n = ns[i]
|
|
#puts "P => #{p.inspect}"
|
|
x = expr( p.dclone, [ n ] )
|
|
nt = n.node_type
|
|
d_o_s( p, n.children, x ) if nt == :element or nt == :document and n.children.size > 0
|
|
r.concat(x) if x.size > 0
|
|
end
|
|
end
|
|
|
|
|
|
# Reorders an array of nodes so that they are in document order
|
|
# It tries to do this efficiently.
|
|
#
|
|
# FIXME: I need to get rid of this, but the issue is that most of the XPath
|
|
# interpreter functions as a filter, which means that we lose context going
|
|
# in and out of function calls. If I knew what the index of the nodes was,
|
|
# I wouldn't have to do this. Maybe add a document IDX for each node?
|
|
# Problems with mutable documents. Or, rewrite everything.
|
|
def document_order( array_of_nodes )
|
|
new_arry = []
|
|
array_of_nodes.each { |node|
|
|
node_idx = []
|
|
np = node.node_type == :attribute ? node.element : node
|
|
while np.parent and np.parent.node_type == :element
|
|
node_idx << np.parent.index( np )
|
|
np = np.parent
|
|
end
|
|
new_arry << [ node_idx.reverse, node ]
|
|
}
|
|
#puts "new_arry = #{new_arry.inspect}"
|
|
new_arry.sort{ |s1, s2| s1[0] <=> s2[0] }.collect{ |s| s[1] }
|
|
end
|
|
|
|
|
|
def recurse( nodeset, &block )
|
|
for node in nodeset
|
|
yield node
|
|
recurse( node, &block ) if node.node_type == :element
|
|
end
|
|
end
|
|
|
|
|
|
|
|
# Builds a nodeset of all of the preceding nodes of the supplied node,
|
|
# in reverse document order
|
|
# preceding:: includes every element in the document that precedes this node,
|
|
# except for ancestors
|
|
def preceding( node )
|
|
#puts "IN PRECEDING"
|
|
ancestors = []
|
|
p = node.parent
|
|
while p
|
|
ancestors << p
|
|
p = p.parent
|
|
end
|
|
|
|
acc = []
|
|
p = preceding_node_of( node )
|
|
#puts "P = #{p.inspect}"
|
|
while p
|
|
if ancestors.include? p
|
|
ancestors.delete(p)
|
|
else
|
|
acc << p
|
|
end
|
|
p = preceding_node_of( p )
|
|
#puts "P = #{p.inspect}"
|
|
end
|
|
acc
|
|
end
|
|
|
|
def preceding_node_of( node )
|
|
#puts "NODE: #{node.inspect}"
|
|
#puts "PREVIOUS NODE: #{node.previous_sibling_node.inspect}"
|
|
#puts "PARENT NODE: #{node.parent}"
|
|
psn = node.previous_sibling_node
|
|
if psn.nil?
|
|
if node.parent.nil? or node.parent.class == Document
|
|
return nil
|
|
end
|
|
return node.parent
|
|
#psn = preceding_node_of( node.parent )
|
|
end
|
|
while psn and psn.kind_of? Element and psn.children.size > 0
|
|
psn = psn.children[-1]
|
|
end
|
|
psn
|
|
end
|
|
|
|
def following( node )
|
|
#puts "IN PRECEDING"
|
|
acc = []
|
|
p = next_sibling_node( node )
|
|
#puts "P = #{p.inspect}"
|
|
while p
|
|
acc << p
|
|
p = following_node_of( p )
|
|
#puts "P = #{p.inspect}"
|
|
end
|
|
acc
|
|
end
|
|
|
|
def following_node_of( node )
|
|
#puts "NODE: #{node.inspect}"
|
|
#puts "PREVIOUS NODE: #{node.previous_sibling_node.inspect}"
|
|
#puts "PARENT NODE: #{node.parent}"
|
|
if node.kind_of? Element and node.children.size > 0
|
|
return node.children[0]
|
|
end
|
|
return next_sibling_node(node)
|
|
end
|
|
|
|
def next_sibling_node(node)
|
|
psn = node.next_sibling_node
|
|
while psn.nil?
|
|
if node.parent.nil? or node.parent.class == Document
|
|
return nil
|
|
end
|
|
node = node.parent
|
|
psn = node.next_sibling_node
|
|
#puts "psn = #{psn.inspect}"
|
|
end
|
|
return psn
|
|
end
|
|
|
|
def norm b
|
|
case b
|
|
when true, false
|
|
return b
|
|
when 'true', 'false'
|
|
return Functions::boolean( b )
|
|
when /^\d+(\.\d+)?$/
|
|
return Functions::number( b )
|
|
else
|
|
return Functions::string( b )
|
|
end
|
|
end
|
|
|
|
def equality_relational_compare( set1, op, set2 )
|
|
#puts "EQ_REL_COMP(#{set1.inspect} #{op.inspect} #{set2.inspect})"
|
|
if set1.kind_of? Array and set2.kind_of? Array
|
|
#puts "#{set1.size} & #{set2.size}"
|
|
if set1.size == 1 and set2.size == 1
|
|
set1 = set1[0]
|
|
set2 = set2[0]
|
|
elsif set1.size == 0 or set2.size == 0
|
|
nd = set1.size==0 ? set2 : set1
|
|
rv = nd.collect { |il| compare( il, op, nil ) }
|
|
#puts "RV = #{rv.inspect}"
|
|
return rv
|
|
else
|
|
res = []
|
|
enum = SyncEnumerator.new( set1, set2 ).each { |i1, i2|
|
|
#puts "i1 = #{i1.inspect} (#{i1.class.name})"
|
|
#puts "i2 = #{i2.inspect} (#{i2.class.name})"
|
|
i1 = norm( i1 )
|
|
i2 = norm( i2 )
|
|
res << compare( i1, op, i2 )
|
|
}
|
|
return res
|
|
end
|
|
end
|
|
#puts "EQ_REL_COMP: #{set1.inspect} (#{set1.class.name}), #{op}, #{set2.inspect} (#{set2.class.name})"
|
|
#puts "COMPARING VALUES"
|
|
# If one is nodeset and other is number, compare number to each item
|
|
# in nodeset s.t. number op number(string(item))
|
|
# If one is nodeset and other is string, compare string to each item
|
|
# in nodeset s.t. string op string(item)
|
|
# If one is nodeset and other is boolean, compare boolean to each item
|
|
# in nodeset s.t. boolean op boolean(item)
|
|
if set1.kind_of? Array or set2.kind_of? Array
|
|
#puts "ISA ARRAY"
|
|
if set1.kind_of? Array
|
|
a = set1
|
|
b = set2
|
|
else
|
|
a = set2
|
|
b = set1
|
|
end
|
|
|
|
case b
|
|
when true, false
|
|
return a.collect {|v| compare( Functions::boolean(v), op, b ) }
|
|
when Numeric
|
|
return a.collect {|v| compare( Functions::number(v), op, b )}
|
|
when /^\d+(\.\d+)?$/
|
|
b = Functions::number( b )
|
|
#puts "B = #{b.inspect}"
|
|
return a.collect {|v| compare( Functions::number(v), op, b )}
|
|
else
|
|
#puts "Functions::string( #{b}(#{b.class.name}) ) = #{Functions::string(b)}"
|
|
b = Functions::string( b )
|
|
return a.collect { |v| compare( Functions::string(v), op, b ) }
|
|
end
|
|
else
|
|
# If neither is nodeset,
|
|
# If op is = or !=
|
|
# If either boolean, convert to boolean
|
|
# If either number, convert to number
|
|
# Else, convert to string
|
|
# Else
|
|
# Convert both to numbers and compare
|
|
s1 = set1.to_s
|
|
s2 = set2.to_s
|
|
#puts "EQ_REL_COMP: #{set1}=>#{s1}, #{set2}=>#{s2}"
|
|
if s1 == 'true' or s1 == 'false' or s2 == 'true' or s2 == 'false'
|
|
#puts "Functions::boolean(#{set1})=>#{Functions::boolean(set1)}"
|
|
#puts "Functions::boolean(#{set2})=>#{Functions::boolean(set2)}"
|
|
set1 = Functions::boolean( set1 )
|
|
set2 = Functions::boolean( set2 )
|
|
else
|
|
if op == :eq or op == :neq
|
|
if s1 =~ /^\d+(\.\d+)?$/ or s2 =~ /^\d+(\.\d+)?$/
|
|
set1 = Functions::number( s1 )
|
|
set2 = Functions::number( s2 )
|
|
else
|
|
set1 = Functions::string( set1 )
|
|
set2 = Functions::string( set2 )
|
|
end
|
|
else
|
|
set1 = Functions::number( set1 )
|
|
set2 = Functions::number( set2 )
|
|
end
|
|
end
|
|
#puts "EQ_REL_COMP: #{set1} #{op} #{set2}"
|
|
#puts ">>> #{compare( set1, op, set2 )}"
|
|
return compare( set1, op, set2 )
|
|
end
|
|
return false
|
|
end
|
|
|
|
def compare a, op, b
|
|
#puts "COMPARE #{a.inspect}(#{a.class.name}) #{op} #{b.inspect}(#{b.class.name})"
|
|
case op
|
|
when :eq
|
|
a == b
|
|
when :neq
|
|
a != b
|
|
when :lt
|
|
a < b
|
|
when :lteq
|
|
a <= b
|
|
when :gt
|
|
a > b
|
|
when :gteq
|
|
a >= b
|
|
when :and
|
|
a and b
|
|
when :or
|
|
a or b
|
|
else
|
|
false
|
|
end
|
|
end
|
|
end
|
|
end
|