magic_xml 0.1.0

data/xquery_use_cases/xmp/q11.out

@@ -0,0 +1,35 @@
+<bib>
+    <book>
+        <title>TCP/IP Illustrated</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </book>
+    <book>
+        <title>Advanced Programming in the Unix environment</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </book>
+    <book>
+        <title>Data on the Web</title>
+        <author>
+            <last>Abiteboul</last>
+            <first>Serge</first>
+        </author>
+        <author>
+            <last>Buneman</last>
+            <first>Peter</first>
+        </author>
+        <author>
+            <last>Suciu</last>
+            <first>Dan</first>
+        </author>
+    </book>
+    <reference>
+        <title>The Economics of Technology and Content for Digital TV</title>
+        <affiliation>CITI</affiliation>
+    </reference>
+</bib>

data/xquery_use_cases/xmp/q11.rb

@@ -0,0 +1,37 @@
+#!/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.bib! {
+    doc = XML.load('bib.xml')
+
+    doc.children(:book) {|b|
+        if b.children(:author).size != 0
+            book!(b.children(:title), b.children(:author))
+        end
+    }
+
+    doc.children(:book) {|b|
+        if b.children(:editor).size != 0
+            reference!(b.children(:title), b.children(:editor).children(:affiliation))
+        end
+    }
+}

data/xquery_use_cases/xmp/q11.xquery

@@ -0,0 +1,18 @@
+<bib>
+{
+        for $b in doc("http://bstore1.example.com/bib.xml")//book[author]
+        return
+            <book>
+                { $b/title }
+                { $b/author }
+            </book>
+}
+{
+        for $b in doc("http://bstore1.example.com/bib.xml")//book[editor]
+        return
+          <reference>
+            { $b/title }
+            {$b/editor/affiliation}
+          </reference>
+}
+</bib>

data/xquery_use_cases/xmp/q12.out

@@ -0,0 +1,6 @@
+<bib>
+    <book-pair>
+        <title>TCP/IP Illustrated</title>
+        <title>Advanced Programming in the Unix environment</title>
+    </book-pair>
+</bib>

data/xquery_use_cases/xmp/q12.rb

@@ -0,0 +1,35 @@
+#!/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.bib! {
+    books = XML.load('bib.xml').children(:book)
+    books.each_with_index{|book1, i|
+        aut1 = book1.children(:author).map{|a| [a[:@last], a[:@first]]}.sort
+
+        books.each_with_index{|book2, j|
+            next unless i < j and book1[:@title] != book2[:@title]
+            aut2 = book2.children(:author).map{|a| [a[:@last], a[:@first]]}.sort
+
+            xml!(:"book-pair", book1.child(:title), book2.child(:title)) if aut1 == aut2
+        }
+    }
+}

data/xquery_use_cases/xmp/q12.xquery

@@ -0,0 +1,20 @@
+<bib>
+{
+    for $book1 in doc("http://bstore1.example.com/bib.xml")//book,
+        $book2 in doc("http://bstore1.example.com/bib.xml")//book
+    let $aut1 := for $a in $book1/author 
+                 order by $a/last, $a/first
+                 return $a
+    let $aut2 := for $a in $book2/author 
+                 order by $a/last, $a/first
+                 return $a
+    where $book1 << $book2
+    and not($book1/title = $book2/title)
+    and deep-equal($aut1, $aut2) 
+    return
+        <book-pair>
+            { $book1/title }
+            { $book2/title }
+        </book-pair>
+}
+</bib>

data/xquery_use_cases/xmp/q2.out

@@ -0,0 +1,37 @@
+<results>
+    <result>
+        <title>TCP/IP Illustrated</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </result>
+    <result>
+        <title>Advanced Programming in the Unix environment</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </result>
+    <result>
+        <title>Data on the Web</title>
+        <author>
+            <last>Abiteboul</last>
+            <first>Serge</first>
+        </author>
+    </result>
+    <result>
+        <title>Data on the Web</title>
+        <author>
+            <last>Buneman</last>
+            <first>Peter</first>
+        </author>
+    </result>
+    <result>
+        <title>Data on the Web</title>
+        <author>
+            <last>Suciu</last>
+            <first>Dan</first>
+        </author>
+    </result>
+</results>

data/xquery_use_cases/xmp/q2.rb

@@ -0,0 +1,30 @@
+#!/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.results! {
+    XML.load('bib.xml').children(:book) {|b|
+        t = b.child(:title)
+        b.children(:author) {|a|
+            result!(t,a)
+        }
+    }
+}

data/xquery_use_cases/xmp/q2.xquery

@@ -0,0 +1,12 @@
+<results>
+  {
+    for $b in doc("http://bstore1.example.com/bib.xml")/bib/book,
+        $t in $b/title,
+        $a in $b/author
+    return
+        <result>
+            { $t }    
+            { $a }
+        </result>
+  }
+</results>

data/xquery_use_cases/xmp/q3.out

@@ -0,0 +1,34 @@
+<results>
+    <result>
+        <title>TCP/IP Illustrated</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </result>
+    <result>
+        <title>Advanced Programming in the Unix environment</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </result>
+    <result>
+        <title>Data on the Web</title>
+        <author>
+            <last>Abiteboul</last>
+            <first>Serge</first>
+        </author>
+        <author>
+            <last>Buneman</last>
+            <first>Peter</first>
+        </author>
+        <author>
+            <last>Suciu</last>
+            <first>Dan</first>
+        </author>
+    </result>
+    <result>
+        <title>The Economics of Technology and Content for Digital TV</title>
+    </result>
+</results>

data/xquery_use_cases/xmp/q3.rb

@@ -0,0 +1,27 @@
+#!/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.results! {
+    XML.load('bib.xml').children(:book) {|b|
+        result!(b.children(:title), b.children(:author))
+    }
+}

data/xquery_use_cases/xmp/q3.xquery

@@ -0,0 +1,10 @@
+<results>
+{
+    for $b in doc("http://bstore1.example.com/bib.xml")/bib/book
+    return
+        <result>
+            { $b/title }
+            { $b/author  }
+        </result>
+}
+</results> 

data/xquery_use_cases/xmp/q4.out

@@ -0,0 +1,31 @@
+<results>
+    <result>
+        <author>
+            <last>Abiteboul</last>
+            <first>Serge</first>
+        </author>
+        <title>Data on the Web</title>
+    </result>
+    <result>
+        <author>
+            <last>Buneman</last>
+            <first>Peter</first>
+        </author>
+        <title>Data on the Web</title>
+    </result>
+    <result>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+        <title>TCP/IP Illustrated</title>
+        <title>Advanced Programming in the Unix environment</title>
+    </result>
+    <result>
+        <author>
+            <last>Suciu</last>
+            <first>Dan</first>
+        </author>
+        <title>Data on the Web</title>
+    </result>
+</results>

data/xquery_use_cases/xmp/q4.rb

@@ -0,0 +1,44 @@
+#!/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.results! {
+    doc = XML.load('bib.xml')
+    a = doc.descendants(:author)
+    books = doc.children(:book)
+
+    a.map{|node| 
+        [node[:@last], node[:@first]]
+    }.uniq.sort.each {|last, first|
+        result! {
+            author! {
+                last! last
+                first! first
+            }
+            books.each{|b|
+                next unless b.children(:author).any?{|ba|
+                    ba[:@last] == last and ba[:@first] == first
+                }
+                add! b.children(:title)
+            }
+        }
+    }
+}

data/xquery_use_cases/xmp/q4.xquery

@@ -0,0 +1,21 @@
+<results>
+  {
+    let $a := doc("http://bstore1.example.com/bib/bib.xml")//author
+    for $last in distinct-values($a/last),
+        $first in distinct-values($a[last=$last]/first)
+    order by $last, $first
+    return
+        <result>
+            <author>
+               <last>{ $last }</last>
+               <first>{ $first }</first>
+            </author>
+            {
+                for $b in doc("http://bstore1.example.com/bib.xml")/bib/book
+                where some $ba in $b/author 
+                      satisfies ($ba/last = $last and $ba/first=$first)
+                return $b/title
+            }
+        </result>
+  }
+</results>

data/xquery_use_cases/xmp/q5.out

@@ -0,0 +1,17 @@
+<books-with-prices>
+    <book-with-prices>
+        <title>TCP/IP Illustrated</title>
+        <price-bstore2>65.95</price-bstore2>
+        <price-bstore1>65.95</price-bstore1>
+    </book-with-prices>
+    <book-with-prices>
+        <title>Advanced Programming in the Unix environment</title>
+        <price-bstore2>65.95</price-bstore2>
+        <price-bstore1>65.95</price-bstore1>
+    </book-with-prices>
+    <book-with-prices>
+        <title>Data on the Web</title>
+        <price-bstore2>34.95</price-bstore2>
+        <price-bstore1>39.95</price-bstore1>
+    </book-with-prices>
+</books-with-prices>

data/xquery_use_cases/xmp/q5.rb

@@ -0,0 +1,38 @@
+#!/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.
+
+
+# dash in tag names forces us to use
+# a bit less convenient methods.
+xml!(:"books-with-prices") {
+    books = XML.load("bib.xml").descendants(:book)
+    entries = XML.load("reviews.xml").descendants(:entry)
+    books.each{|b|
+        entries.each{|a|
+            next unless a[:@title] == b[:@title]
+            xml!(:"book-with-prices") {
+                add! b.child(:title)
+                xml!(:"price-bstore2", a[:@price])
+                xml!(:"price-bstore1", b[:@price])
+            }
+        }
+    }
+}

data/xquery_use_cases/xmp/q5.xquery

@@ -0,0 +1,13 @@
+<books-with-prices>
+  {
+    for $b in doc("http://bstore1.example.com/bib.xml")//book,
+        $a in doc("http://bstore2.example.com/reviews.xml")//entry
+    where $b/title = $a/title
+    return
+        <book-with-prices>
+            { $b/title }
+            <price-bstore2>{ $a/price/text() }</price-bstore2>
+            <price-bstore1>{ $b/price/text() }</price-bstore1>
+        </book-with-prices>
+  }
+</books-with-prices>

data/xquery_use_cases/xmp/q6.out

@@ -0,0 +1,28 @@
+<bib>
+    <book>
+        <title>TCP/IP Illustrated</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </book>
+    <book>
+        <title>Advanced Programming in the Unix environment</title>
+        <author>
+            <last>Stevens</last>
+            <first>W.</first>
+        </author>
+    </book>
+    <book>
+        <title>Data on the Web</title>
+        <author>
+            <last>Abiteboul</last>
+            <first>Serge</first>
+        </author>
+        <author>
+            <last>Buneman</last>
+            <first>Peter</first>
+        </author>
+        <et-al/>
+    </book>
+</bib>

data/xquery_use_cases/xmp/q6.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.bib! {
+    XML.load('bib.xml').children(:book) {|b|
+        next unless b.children(:author).size > 0
+        book! {
+            add! b.children(:title)
+            authors = b.children(:author)
+            add! authors[0,2]
+            xml!(:"et-al") if authors.size > 2
+        }
+    }
+}

data/xquery_use_cases/xmp/q6.xquery

@@ -0,0 +1,19 @@
+<bib>
+  {
+    for $b in doc("http://bstore1.example.com/bib.xml")//book
+    where count($b/author) > 0
+    return
+        <book>
+            { $b/title }
+            {
+                for $a in $b/author[position()<=2]  
+                return $a
+            }
+            {
+                if (count($b/author) > 2)
+                 then <et-al/>
+                 else ()
+            }
+        </book>
+  }
+</bib>

data/xquery_use_cases/xmp/q7.out

@@ -0,0 +1,8 @@
+<bib>
+    <book year="1992">
+        <title>Advanced Programming in the Unix environment</title>
+    </book>
+    <book year="1994">
+        <title>TCP/IP Illustrated</title>
+    </book>
+</bib>

data/xquery_use_cases/xmp/q7.rb

@@ -0,0 +1,30 @@
+#!/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.bib! {
+    XML.load('bib.xml').children(:book).find_all{|b|
+        b[:@publisher] == "Addison-Wesley" and
+        b[:year].to_i > 1991
+    }.sort_by{|b| b[:@title] }.each {|b|
+        book!({:year => b[:year]}, b.child(:title))
+    }
+}

data/xquery_use_cases/xmp/q7.xquery

@@ -0,0 +1,12 @@
+<bib>
+  {
+    for $b in doc("http://bstore1.example.com/bib.xml")//book
+    where $b/publisher = "Addison-Wesley" and $b/@year > 1991
+    order by $b/title
+    return
+        <book>
+            { $b/@year }
+            { $b/title }
+        </book>
+  }
+</bib>

data/xquery_use_cases/xmp/q8.out

@@ -0,0 +1,7 @@
+<book>
+        <title>Data on the Web</title>
+        <author>
+            <last>Suciu</last>
+            <first>Dan</first>
+        </author>
+ </book>

data/xquery_use_cases/xmp/q8.rb

@@ -0,0 +1,29 @@
+#!/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('bib.xml').children(:book) {|b|
+    b.descendants {|e|
+        if e.is_a? XML and e =~ /Suciu/ and e.name.to_s =~ /or$/
+            XML.book!(b.child(:title), e)
+        end
+    }
+}