magic_xml 0.1.0

data/xquery_use_cases/sgml/sgml.xml

@@ -0,0 +1,101 @@
+<!DOCTYPE report SYSTEM "report.dtd">
+<report>
+<title>Getting started with SGML</title>
+<chapter>
+<title>The business challenge</title>
+<intro>
+<para>With the ever-changing and growing global market, companies and
+large organizations are searching for ways to become more viable and
+competitive. Downsizing and other cost-cutting measures demand more
+efficient use of corporate resources. One very important resource is
+an organization's information.</para>
+<para>As part of the move toward integrated information management,
+whole industries are developing and implementing standards for
+exchanging technical information. This report describes how one such
+standard, the Standard Generalized Markup Language (SGML), works as
+part of an overall information management strategy.</para>
+<graphic graphname="infoflow"/></intro></chapter>
+<chapter>
+<title>Getting to know SGML</title>
+<intro>
+<para>While SGML is a fairly recent technology, the use of
+<emph>markup</emph> in computer-generated documents has existed for a
+while.</para></intro>
+<section shorttitle="What is markup?">
+<title>What is markup, or everything you always wanted to know about
+document preparation but were afraid to ask?</title>
+<intro>
+<para>Markup is everything in a document that is not content. The
+traditional meaning of markup is the manual <emph>marking</emph> up
+of typewritten text to give instructions for a typesetter or
+compositor about how to fit the text on a page and what typefaces to
+use. This kind of markup is known as <emph>procedural markup</emph>.</para></intro>
+<topic topicid="top1">
+<title>Procedural markup</title>
+<para>Most electronic publishing systems today use some form of
+procedural markup. Procedural markup codes are good for one
+presentation of the information.</para></topic>
+<topic topicid="top2">
+<title>Generic markup</title>
+<para>Generic markup (also known as descriptive markup) describes the
+<emph>purpose</emph> of the text in a document. A basic concept of
+generic markup is that the content of a document must be separate from
+the style. Generic markup allows for multiple presentations of the
+information.</para></topic>
+<topic topicid="top3">
+<title>Drawbacks of procedural markup</title>
+<para>Industries involved in technical documentation increasingly
+prefer generic over procedural markup schemes. When a company changes
+software or hardware systems, enormous data translation tasks arise,
+often resulting in errors.</para></topic></section>
+<section shorttitle="What is SGML?">
+<title>What <emph>is</emph> SGML in the grand scheme of the universe, anyway?</title>
+<intro>
+<para>SGML defines a strict markup scheme with a syntax for defining
+document data elements and an overall framework for marking up
+documents.</para>
+<para>SGML can describe and create documents that are not dependent on
+any hardware, software, formatter, or operating system. Since SGML documents
+conform to an international standard, they are portable.</para></intro></section>
+<section shorttitle="How does SGML work?">
+<title>How is SGML and would you recommend it to your grandmother?</title>
+<intro>
+<para>You can break a typical document into three layers: structure,
+content, and style. SGML works by separating these three aspects and
+deals mainly with the relationship between structure and content.</para></intro>
+<topic topicid="top4">
+<title>Structure</title>
+<para>At the heart of an SGML application is a file called the DTD, or
+Document Type Definition. The DTD sets up the structure of a document,
+much like a database schema describes the types of information it
+handles.</para>
+<para>A database schema also defines the relationships between the
+various types of data. Similarly, a DTD specifies <emph>rules</emph>
+to help ensure documents have a consistent, logical structure.</para></topic>
+<topic topicid="top5">
+<title>Content</title>
+<para>Content is the information itself. The method for identifying
+the information and its meaning within this framework is called
+<emph>tagging</emph>. Tagging must
+conform to the rules established in the DTD (see <xref xrefid="top4"/>).</para>
+<graphic graphname="tagexamp"/></topic>
+<topic topicid="top6">
+<title>Style</title>
+<para>SGML does not standardize style or other processing methods for
+information stored in SGML.</para></topic></section></chapter>
+<chapter>
+<title>Resources</title>
+<section>
+<title>Conferences, tutorials, and training</title>
+<intro>
+<para>The Graphic Communications Association has been
+instrumental in the development of SGML. GCA provides conferences,
+tutorials, newsletters, and publication sales for both members and
+non-members.</para>
+<para security="c">Exiled members of the former Soviet Union's secret
+police, the KGB, have infiltrated the upper ranks of the GCA and are
+planning the Final Revolution as soon as DSSSL is completed.</para>
+</intro>
+</section>
+</chapter>
+</report>

data/xquery_use_cases/solution_sizes.rb

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+$percentages = []
+$ruby_size_total = 0
+$xquery_size_total = 0
+
+Dir.glob("*/q*.rb").sort.each{|ruby_solution|
+    ruby_solution =~ /^(.*)\/q(.*)\.rb$/
+    dir, name = $1, $2
+    xquery_solution = "#{dir}/q#{name}.xquery"
+    
+    # Remove #!-line from Ruby solutions
+    # Remove #-comments from Ruby solutions
+    #        (only those that take whole lines, otherwise we'd need a Ruby parser)
+    # Change URL-access to document-access in XQuery solutions
+    # Merge all whitespace into a single " "
+    ruby_size = File.read(ruby_solution).sub(/^#!.*?\n/,"").gsub(/^#.*?\n/,"").gsub(/\s+/, " ").size
+    xquery_size = File.read(xquery_solution).gsub(/http:\/\/bstore[12].example.com\//,"").gsub(/\s+/, " ").size
+    perc = sprintf "%.0f%%", (100.0 * ruby_size / xquery_size) 
+    print "Problem #{dir.upcase} Q#{name}: Ruby #{ruby_size} (#{perc}), XQuery: #{xquery_size}\n"
+    $percentages.push(100.0 * ruby_size / xquery_size)
+    $ruby_size_total += ruby_size
+    $xquery_size_total += xquery_size
+}
+
+perc = sprintf "%.0f%%", (100.0 * $ruby_size_total / $xquery_size_total)
+print "Total: Ruby #{$ruby_size_total} (#{perc}), XQuery: #{$xquery_size_total}\n"
+printf "Median ratio: %.0f%%\n", $percentages.sort[$percentages.size/2]

data/xquery_use_cases/string/README

@@ -0,0 +1,29 @@
+Use Case "STRING": String Search
+from XML Query Use Cases.
+
+Source: http://www.w3.org/TR/xquery-use-cases/#text
+
+Q1 - Find the titles of all news items where
+     the string "Foobar Corporation" appears
+     in the title.
+Q2 - Find news items where the Foobar Corporation
+     and one or more of its partners are mentioned
+     in the same paragraph and/or title.
+     List each news item by its title and date.
+Q4 - Find news items where a company and one
+     of its partners is mentioned in the same
+     news item and the news item is not authored
+     by the company itself.
+Q5 - For each news item that is relevant to the
+     Gorilla Corporation, create an "item summary"
+     element. The content of the item summary is
+     the content of the title, date, and first
+     paragraph of the news item, separated by
+     periods. A news item is relevant if the name
+     of the company is mentioned anywhere within
+     the content of the news item.
+
+Note: Query Q3 has been withdrawn from the use cases document.
+
+Note: Q5 result has "whitespace reformatted for readability"
+      (test_driver is dealing with this one)

data/xquery_use_cases/string/company-data.xml

@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="ISO-8859-1"?> 
+<!DOCTYPE company SYSTEM "company.dtd">
+<company>
+   <name>Foobar Corporation</name>
+   <ticker_symbol>FOO</ticker_symbol>
+
+   <description>Foobar Corporation is a maker of Foo(TM) and
+        Foobar(TM) products and a leading software company with a 300
+        Billion dollar revenue in 1999. It is located in Alaska.
+   </description>
+
+   <business_code>Software</business_code>
+   <partners>
+        <partner>YouNameItWeIntegrateIt.com</partner>
+        <partner>TheAppCompany Inc.</partner>
+   </partners>
+   <competitors>
+        <competitor>Gorilla Corporation</competitor>
+   </competitors>
+</company>

data/xquery_use_cases/string/q1.out

@@ -0,0 +1,4 @@
+<title>Foobar Corporation releases its new line of Foo
+products today</title>
+<title>Foobar Corporation is suing Gorilla Corporation for patent
+infringement </title>

data/xquery_use_cases/string/q1.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -I../.. -rmagic_xml
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+XML.load('string.xml').descendants(:news_item, :title).each{|t|
+    print t if t =~ /Foobar Corporation/
+}

data/xquery_use_cases/string/q1.xquery

@@ -0,0 +1 @@
+doc("string.xml")//news_item/title[contains(., "Foobar Corporation")]

data/xquery_use_cases/string/q2.out

@@ -0,0 +1,13 @@
+<news_item>
+    <title> Gorilla Corporation acquires YouNameItWeIntegrateIt.com </title>
+    <date>1-20-2000</date>
+</news_item>
+<news_item>
+    <title>Foobar Corporation releases its new line of Foo products today</title>
+    <date>1-20-2000</date>
+</news_item>
+<news_item>
+    <title>Foobar Corporation is suing Gorilla Corporation for patent
+    infringement </title>
+    <date>1-20-2000</date>
+</news_item>

data/xquery_use_cases/string/q2.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/ruby -I../.. -rmagic_xml
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+# Root of company-data is company already,
+# so there is no point in searching for a particular company there.
+partners = XML.load('company-data.xml').descendants(:partner).map{|p| p.text}
+
+XML.load('string.xml').descendants(:news_item) {|item|
+    next unless (item.descendants(:title) + item.descendants(:par)).any?{|t|
+       t.text.include? "Foobar Corporation" and partners.any?{|p| t.text.include? p}
+    }
+    XML.news_item!(item.child(:title), item.child(:date))
+}

data/xquery_use_cases/string/q2.xquery

@@ -0,0 +1,23 @@
+declare function local:partners($company as xs:string) as element()*
+{
+    let $c := doc("company-data.xml")//company[name = $company]
+    return $c//partner
+};
+
+let $foobar_partners := local:partners("Foobar Corporation")
+
+for $item in doc("string.xml")//news_item
+where
+  some $t in $item//title satisfies
+    (contains($t/text(), "Foobar Corporation")
+    and (some $partner in $foobar_partners satisfies
+      contains($t/text(), $partner/text())))
+  or (some $par in $item//par satisfies
+   (contains(string($par), "Foobar Corporation")
+     and (some $partner in $foobar_partners satisfies
+        contains(string($par), $partner/text())))) 
+return
+    <news_item>
+        { $item/title }
+        { $item/date }
+    </news_item>

data/xquery_use_cases/string/q4.out

@@ -0,0 +1,50 @@
+<news_item>
+   <title> Gorilla Corporation acquires YouNameItWeIntegrateIt.com </title>
+   <content>
+      <par> Today, Gorilla Corporation announced that it will purchase
+          YouNameItWeIntegrateIt.com. The shares of
+          YouNameItWeIntegrateIt.com dropped $3.00 as a result of this
+          announcement.
+      </par>
+
+      <par> As a result of this acquisition, the CEO of
+          YouNameItWeIntegrateIt.com Bill Smarts resigned. He did not
+          announce what he will do next.  Sources close to
+          YouNameItWeIntegrateIt.com hint that Bill Smarts might be
+          taking a position in Foobar Corporation.
+      </par>
+
+      <par>YouNameItWeIntegrateIt.com is a leading systems integrator
+          that enables <quote>brick and mortar</quote> companies to
+          have a presence on the web.
+      </par>
+
+   </content>
+   <date>1-20-2000</date>
+   <author>Mark Davis</author>
+   <news_agent>News Online</news_agent>
+</news_item>
+<news_item> <title>Foobar Corporation is suing Gorilla Corporation for
+   patent infringement </title>
+   <content>
+      <par> In surprising developments today, Foobar Corporation
+         announced that it is suing Gorilla Corporation for patent
+         infringement. The patents that were mentioned as part of the
+         lawsuit are considered to be the basis of Foobar
+         Corporation's <quote>Wireless Foo</quote> line of products.
+      </par>
+      <par>The tension between Foobar and Gorilla Corporations has
+         been increasing ever since the Gorilla Corporation acquired
+         more than 40 engineers who have left Foobar Corporation,
+         TheAppCompany Inc. and YouNameItWeIntegrateIt.com over the
+         past 3 months. The engineers who have left the Foobar
+         corporation and its partners were rumored to be working on
+         the next generation of server products and applications which
+         will directly compete with Foobar's Foo 20.9 servers. Most of
+         the engineers have relocated to Hawaii where the Gorilla
+         Corporation's server development is located.
+      </par>
+   </content>
+   <date>1-20-2000</date>
+   <news_agent>Reliable News Corporation</news_agent>
+</news_item>

data/xquery_use_cases/string/q4.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby -I../.. -rmagic_xml
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+company_data = XML.load('company-data.xml')
+# Root of company-data is company already,
+# so there is no point in searching for a particular company there.
+partners = company_data.descendants(:partner).map{|p| p.text}
+c = company_data[:@name]
+
+XML.load('string.xml').descendants(:news_item) {|item|
+    next unless item.text.include? c
+    next unless partners.any?{|p| item.text.include? p}
+    next if item[:@news_agent] == c
+    print item
+}

data/xquery_use_cases/string/q4.xquery

@@ -0,0 +1,14 @@
+declare function local:partners($company as xs:string) as element()*
+{
+    let $c := doc("company-data.xml")//company[name = $company]
+    return $c//partner
+};
+
+for $item in doc("string.xml")//news_item,
+    $c in doc("company-data.xml")//company
+let $partners := local:partners($c/name)
+where contains(string($item), $c/name)
+  and (some $p in $partners satisfies
+    contains(string($item), $p) and $item/news_agent != $c/name)
+return
+    $item

data/xquery_use_cases/string/q5.out

@@ -0,0 +1,12 @@
+<item_summary>Gorilla Corporation acquires
+YouNameItWeIntegrateIt.com. 1-20-2000.  Today, Gorilla Corporation
+announced that it will purchase YouNameItWeIntegrateIt.com. The shares
+of YouNameItWeIntegrateIt.com dropped $3.00 as a result of this
+announcement.</item_summary>
+
+<item_summary>Foobar Corporation is suing Gorilla Corporation for
+patent infringement. 1-20-2000.  In surprising developments today,
+Foobar Corporation announced that it is suing Gorilla Corporation for
+patent infringement. The patents that were mentioned as part of the
+lawsuit are considered to be the basis of Foobar Corporation's
+Wireless Foo line of products.</item_summary>

data/xquery_use_cases/string/q5.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/ruby -I../.. -rmagic_xml
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+XML.load('string.xml').descendants(:news_item) {|item|
+    next unless item =~ /Gorilla Corporation/
+    XML.item_summary! {
+# Whitespace is wrong without .strip
+        add! item[:@title].strip
+        add! ". "
+        add! item[:@date]
+        add! ". "
+        add! item.descendants(:par)[0].text
+    }
+}

data/xquery_use_cases/string/q5.xquery

@@ -0,0 +1,8 @@
+for $item in doc("string.xml")//news_item
+where contains(string($item/content), "Gorilla Corporation")
+return
+    <item_summary>
+        { concat($item/title,". ") }
+        { concat($item/date,". ") }
+        { string(($item//par)[1]) }
+    </item_summary>

data/xquery_use_cases/string/string.xml

@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<news>
+<news_item>
+   <title> Gorilla Corporation acquires YouNameItWeIntegrateIt.com </title>
+   <content>
+      <par> Today, Gorilla Corporation announced that it will purchase
+          YouNameItWeIntegrateIt.com. The shares of
+          YouNameItWeIntegrateIt.com dropped $3.00 as a result of this
+          announcement.
+      </par>
+
+      <par> As a result of this acquisition, the CEO of
+          YouNameItWeIntegrateIt.com Bill Smarts resigned. He did not
+          announce what he will do next.  Sources close to
+          YouNameItWeIntegrateIt.com hint that Bill Smarts might be
+          taking a position in Foobar Corporation.
+      </par>
+
+      <par>YouNameItWeIntegrateIt.com is a leading systems integrator
+          that enables <quote>brick and mortar</quote> companies to
+          have a presence on the web.
+      </par>
+
+   </content>
+   <date>1-20-2000</date>
+   <author>Mark Davis</author>
+   <news_agent>News Online</news_agent>
+</news_item>
+
+<news_item>
+   <title>Foobar Corporation releases its new line of Foo products
+   today</title>
+   <content>
+      <par> Foobar Corporation releases the 20.9 version of its Foo
+            products.  The new version of Foo products solve known
+            performance problems which existed in 20.8 line and
+            increases the speed of Foo based products tenfold. It also
+            allows wireless clients to be connected to the Foobar
+            servers.
+      </par>
+      <par> The President of Foobar Corporation announced that they
+            were proud to release 20.9 version of Foo products and
+            they will upgrade existing customers <footnote>where
+            service agreements exist</footnote>
+            promptly. TheAppCompany Inc. immediately announced that it
+            will release the new version of its products to utilize
+            the 20.9 architecture within the next three months.
+      </par>
+      <figure>
+          <title>Presidents of Foobar Corporation and TheAppCompany
+          Inc. Shake Hands</title> <image source="handshake.jpg"/>
+      </figure>
+   </content>
+   <date>1-20-2000</date>
+   <news_agent>Foobar Corporation</news_agent>
+</news_item>
+
+<news_item> <title>Foobar Corporation is suing Gorilla Corporation for
+   patent infringement </title>
+   <content>
+      <par> In surprising developments today, Foobar Corporation
+         announced that it is suing Gorilla Corporation for patent
+         infringement. The patents that were mentioned as part of the
+         lawsuit are considered to be the basis of Foobar
+         Corporation's <quote>Wireless Foo</quote> line of products.
+      </par>
+      <par>The tension between Foobar and Gorilla Corporations has
+         been increasing ever since the Gorilla Corporation acquired
+         more than 40 engineers who have left Foobar Corporation,
+         TheAppCompany Inc. and YouNameItWeIntegrateIt.com over the
+         past 3 months. The engineers who have left the Foobar
+         corporation and its partners were rumored to be working on
+         the next generation of server products and applications which
+         will directly compete with Foobar's Foo 20.9 servers. Most of
+         the engineers have relocated to Hawaii where the Gorilla
+         Corporation's server development is located.
+      </par>
+   </content>
+   <date>1-20-2000</date>
+   <news_agent>Reliable News Corporation</news_agent>
+</news_item>
+</news>

data/xquery_use_cases/test_driver.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/ruby -I..
+#Copyright (c) 2006-2007 Tomasz Wegrzanowski <Tomasz.Wegrzanowski@gmail.com>
+#
+#Permission is hereby granted, free of charge, to any person obtaining a
+#copy of this software and associated documentation files (the "Software"),
+#to deal in the Software without restriction, including without limitation
+#the rights to use, copy, modify, merge, publish, distribute, sublicense,
+#and/or sell copies of the Software, and to permit persons to whom the
+#Software is furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+#THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+#OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+#ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+#DEALINGS IN THE SOFTWARE.
+
+
+require 'magic_xml'
+
+tests = 0
+oks   = 0
+
+ruby_bin = ARGV.shift || "ruby"
+
+Dir.glob("*/q*.rb").sort.each{|ruby_solution|
+    ruby_solution =~ /^(.*)\/q(.*)\.rb$/
+    dir, name = $1, $2
+
+    expected = File.read("#{dir}/q#{name}.out")
+    got = Dir.chdir(dir) { `#{ruby_bin} q#{name}.rb` }
+
+    # Now, expected_out contains a lot of cruft, strip!
+    expected.gsub!(/>\s+/, ">")
+    expected.gsub!(/\s+</, "<")
+    expected.gsub!(/\s+/, " ")
+    # A bit more renormalization
+    expected = XML.renormalize_sequence(expected)
+
+    # Do the same to got, or SEQ Q5 won't match
+    got.gsub!(/>\s+/, ">")
+    got.gsub!(/\s+</, "<")
+    got.gsub!(/\s+/, " ")
+
+    if expected == got
+        oks += 1
+        print "Test #{dir.upcase} Q#{name}: match\n"
+    else
+        print "Test #{dir.upcase} Q#{name}:\n"
+        print "Expected:\n#{expected}\n";
+        print "Got:\n#{got}\n";
+        print "They do not match\n\n"
+    end
+    tests += 1
+}
+print "Of #{tests} tests, #{oks} passed.\n"

data/xquery_use_cases/tree/README

@@ -0,0 +1,23 @@
+Use Case "TREE": Queries that preserve hierarchy
+from XML Query Use Cases.
+
+Source: http://www.w3.org/TR/xquery-use-cases/#tree
+
+Q1 - Prepare a (nested) table of contents for Book1,
+     listing all the sections and their titles.
+     Preserve the original attributes of each <section> element, if any.
+Q2 - Prepare a (flat) figure list for Book1,
+     listing all the figures and their titles.
+     Preserve the original attributes of each <figure> element, if any.
+Q3 - How many sections are in Book1, and how many figures?
+Q4 - How many top-level sections are in Book1?
+Q5 - Make a flat list of the section elements in Book1.
+     In place of its original attributes, each section
+     element should have two attributes, containing the
+     title of the section and the number of figures
+     immediately contained in the section.
+Q6 - Make a nested list of the section elements in Book1,
+     preserving their original attributes and hierarchy.
+     Inside each section element, include the title of the
+     section and an element that includes the number of
+     figures immediately contained in the section.