scxml 0.1.0

data/lib/scxml/xpath.rb

@@ -0,0 +1,142 @@
+
+module SCXML
+  module XPath
+	attr_reader :string, :content_range
+	
+	def content
+		self.string[self.content_range]
+	end
+	
+	protected 
+	
+	def join_range(a,b)
+		return b if a.nil?
+		return a if b.nil?
+		(a.begin + b.begin)...((a.end >= 0 ? 0 : a.end) + b.end)
+	end
+	
+	def scan_node(scanner)
+		scanner.skip_until(/(?=<(\w+)([^>]*)>)/m)
+		start = scanner.pos
+
+		return nil if scanner[2].nil?
+
+		s = if scanner[2].empty? || scanner[2][-1] != 47 #'/'
+			tag = "</#{scanner[1]}>"
+			scanner.scan_until(Regexp.new(tag, Regexp::MULTILINE))
+		     else
+			scanner.scan_until(/>/)
+		      end
+		
+		s.nil? ? nil : [s, start..(-scanner.restsize)]
+	end
+	
+	def content_node(scanner)
+		s, range = scan_node(scanner)
+		s.nil? ? nil : Element.new(self, join_range(content_range, range), s)
+	end
+	
+	#def regex_node(scanner, start_regex, finish_regex)
+	#	scanner.skip_until(start_regex)
+	#	start = scanner.pos
+	#	s = scanner.scan_until(finish_regex)
+		
+	#	s.nil? ? nil : Element.new(self, join_range(string_range, start..(-scanner.restsize)), s)
+	#end
+	
+	def parse_path(path)
+		path =~ /^([^\[]+)(\[(.*)\])?/
+		[$1,  $3]
+	end
+	
+	def select_by_paths(paths, selected=[])
+		if paths.empty?
+			selected << self 
+			return
+		end
+		
+		tag, predicate = parse_path(paths.shift)
+
+		case tag
+			when '.', '/.'
+				selected << self
+			
+			when '..', '/..'
+				parent.select_by_paths(paths.dup, selected) unless self.parent.nil?
+
+			when '*', '/*'
+				selected.concat(children)
+				
+			when /^\/?([^\/]+)/
+				if $1[0] == 64 #@
+					attr, value = parse_predicate($1[1..-1])
+					value = value[1...-1] unless value.nil?
+					selected << self.attributes[attr] if attribute_matches?(self, attr, value)
+						
+				else
+					children.each do |node|
+						node.select_by_paths(paths.dup, selected) if node.name == $1
+					end
+				end
+			
+			when /^\/\/([^\/]+)/
+				#if $1[0] == 64 #@
+					
+				#	select_by_predicate(tag, children).each do |node|
+				#		
+				#		node.select_by_paths(paths.dup, selected)
+				#	end	
+				#else
+					children.each do |node|
+						# lazy evaluation... as constructed the search stops if a node by the given 
+						# name is found.  As commented out, will search the ENTIRE document
+						# effectively parsing the whole thing.
+						  selected << node if node.name == $1
+						  node.select_by_paths([tag], selected)
+						#if node.name == $1
+						#	selected << node
+						#else
+						#	node.select_by_paths([tag], selected)
+						#end
+					end
+				#end
+
+				
+			
+			else
+				raise ArgumentError, "Unsupported tag format: #{tag}"
+		end
+		
+		select_by_predicate(predicate, selected)
+	end
+	
+	def parse_predicate(predicate)
+		predicate.split(/[=><]/)
+	end
+	
+	def attribute_matches?(node, attr, value)
+		attributes = node.attributes
+		attributes.has_key?(attr) && (value.nil? || attributes[attr] == value)
+	end
+	
+	def select_by_predicate(predicate, selected)
+		return selected if predicate.nil?
+		
+		path, value = parse_predicate(predicate)
+		case path
+			#when /^\d+$/
+			#when /^last\(\)(.*)/
+			when /^@([^=]+)/
+			
+				attr = $1
+				value = value[1...-1] unless value.nil?
+				selected.delete_if do |node|
+					!attribute_matches?(node, attr, value) 
+				end
+				
+		end
+			
+		selected
+	end
+  end 
+end

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate01.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>1</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate02.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>1</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate03.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>1</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate04.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>1</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate12.out

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>12
+    target
+  </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate13.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>3</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate41.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>Text from child2 of second element (correct execution)</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate42.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>Text from child2 of second element (correct execution)</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate45.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>Test executed successfully</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate51.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><test-info>(a and b or c and d)</test-info><test-output>3 7 b c d e f </test-output></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate52.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><test-info>((a and b) or (c and d))</test-info><test-output>3 7 b c d e f </test-output></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate56.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><test-info>(a or b or c)</test-info><test-output>2 3 4 5 6 7 8 9 a b c d e f </test-output></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate57.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>tr nodes: 8, tr nodes with 3 td children: 2
+<nodes>2.1, 2.2, 2.3
+  7.1, 7.2, 7.3
+  </nodes></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/predicate/predicate58.out

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>has ex: 2
+has ex, eq null: 1
+has ex, measure null: 4
+has ex, neq null: 1
+has ex, measure non-null: 1
+not has ex: 3
+not has ex, eq null: 4
+not has ex, measure null: 1
+has why, eq value: 1
+has why, neq value: 1</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select01.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>test</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select02.out

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+  a
+</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select03.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><item type="x">c</item> <item type="y">d</item> </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select04.out

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+  This should come out fasolatido:
+  fasolatido
+  This should come out doremifasolatido:
+  doremifasolatido
+  This should come out do-do-remi-mi1-mi2fasolatido-fa--so-:
+  do-do-remi-mi1-mi2fasolatido-fa--so-
+  This should come out solatidoG#:
+  solatidoG#
+  This should come out relatidoABb:
+  relatidoABb
+  This should come out domitiACD:
+  domitiACD</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select12.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out/>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select13.out

@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out> Top comment 
+ Upper Middle comment 
+ Lower Middle comment 
+ Bottom comment 
+Found the tag...
+item1
+item2
+item3
+subitem1
+subitem2
+subsubitem
+</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select41.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+child1
+    child2
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select42.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+child1
+    child2
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select45.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+Carmelo Montanez
+    Mary Brady
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select51.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+Carmelo Montanez
+    Mary Brady
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select52.out

@@ -0,0 +1,3 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select56.out

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+Carmelo Montanez
+    David Marston
+    Mary Brady
+    Lynne Rosenthal
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select57.out

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+Carmelo Montanez
+    David Marston
+    Mary Brady
+    Five
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select58.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+David Marston
+    Mary Brady
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select60.out

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>
+child1
+    child2
+    </out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select62.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>12</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select63.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>2A2B45</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select76.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out>0</out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select81.out

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><rel>
+  Hello
+  There
+  World
+</rel><abs>
+  Hello
+  There
+  World
+</abs></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select82.out

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><list>doc|a|b|bb|bbb|c|</list></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select83.out

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><list>
+Node doc has on-doc in @x
+Node a has on-a in @x
+Node b has on-b in @x
+Node bbb has on-bbb in @x
+Node c has on-c in @x</list></out>

data/test/scxml/Xalan_Conformance_Tests/REF_OUT/select/select84.out

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<out><list>
+Node doc has on-doc in @d
+Node a has on-a in @aa
+Node b has on-b in @x
+Node bb has on-bb in @y
+Node bbb has on-bbb in @z
+Node c has on-c in @cc</list></out>

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate01.txt

@@ -0,0 +1,8 @@
+# FileName: PREDICATE01 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 3.4 
+# Creator: David Marston 
+# Purpose: Test of implied conversion to boolean. 
+a[true()=4]
+# Always true; positive numbers convert to true. 

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate01.xml

@@ -0,0 +1,7 @@
+<?xml version="1.0"?> 
+<doc>
+  <a>1</a>
+  <a>2</a>
+  <a>3</a>
+  <a>4</a>
+</doc>

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate01.xsl

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: PREDICATE01 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 3.4 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Test of implied conversion to boolean. -->
+
+<xsl:template match="doc">
+  <out>
+    <xsl:value-of select="a[true()=4]"/>
+    <!-- Always true; positive numbers convert to true. -->
+  </out>
+</xsl:template>
+
+</xsl:stylesheet>

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate02.txt

@@ -0,0 +1,8 @@
+# FileName: PREDICATE02 
+# Document: http://www.w3.org/TR/xpath 
+# DocVersion: 19991116 
+# Section: 3.4 
+# Creator: David Marston 
+# Purpose: Test of implied conversion to boolean. 
+a[true()='stringwithchars']
+# Always true; nonzero-length strings convert to true. 

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate02.xml

@@ -0,0 +1,7 @@
+<?xml version="1.0"?> 
+<doc>
+  <a>1</a>
+  <a>2</a>
+  <a>3</a>
+  <a>4</a>
+</doc>

data/test/scxml/Xalan_Conformance_Tests/predicate/predicate02.xsl

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+
+  <!-- FileName: PREDICATE02 -->
+  <!-- Document: http://www.w3.org/TR/xpath -->
+  <!-- DocVersion: 19991116 -->
+  <!-- Section: 3.4 -->
+  <!-- Creator: David Marston -->
+  <!-- Purpose: Test of implied conversion to boolean. -->
+
+<xsl:template match="doc">
+  <out>
+    <xsl:value-of select="a[true()='stringwithchars']"/>
+    <!-- Always true; nonzero-length strings convert to true. -->
+  </out>
+</xsl:template>
+
+</xsl:stylesheet>