magic_xml 0.1.0

data/xquery_use_cases/rdb/q13.rb

@@ -0,0 +1,45 @@
+#!/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.
+
+
+users = XML.load('users.xml')
+bids  = XML.load('bids.xml')
+
+XML.result! {
+    bids.descendants(:userid).map{|uid| uid.text}.uniq.sort.each{|uid|
+        users.each({:@userid => uid}){|u|
+            user_bids = bids.find_all{|b| b.is_a? XML and b[:@userid] == uid}
+            bidder! {
+                add! u.child(:userid)
+                add! u.child(:name)
+                bidcount! user_bids.size
+                sum = 0.0
+                user_bids.each{|b|
+                    sum += b[:@bid].to_i
+                }
+                a = sum / user_bids.size
+# This is ugly hack to get 1.0 print as "1" not as "1.0"
+                a = a.to_i if a.to_i == a
+                avgbid! a
+            }
+        }
+    }
+}

data/xquery_use_cases/rdb/q13.xquery

@@ -0,0 +1,15 @@
+<result>
+ {
+    for $uid in distinct-values(doc("bids.xml")//userid),
+        $u in doc("users.xml")//user_tuple[userid = $uid]
+    let $b := doc("bids.xml")//bid_tuple[userid = $uid]
+    order by $u/userid
+    return
+        <bidder>
+            { $u/userid }
+            { $u/name }
+            <bidcount>{ count($b) }</bidcount>
+            <avgbid>{ avg($b/bid) }</avgbid>
+        </bidder>
+  }
+</result>

data/xquery_use_cases/rdb/q14.out

@@ -0,0 +1,14 @@
+<result>
+    <popular_item>
+        <itemno>1002</itemno>
+        <avgbid>800</avgbid>
+    </popular_item>
+    <popular_item>
+        <itemno>1007</itemno>
+        <avgbid>200</avgbid>
+    </popular_item>
+    <popular_item>
+        <itemno>1001</itemno>
+        <avgbid>45</avgbid>
+    </popular_item>
+</result>

data/xquery_use_cases/rdb/q14.rb

@@ -0,0 +1,42 @@
+#!/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.
+
+
+bids = XML.load('bids.xml').children(:bid_tuple)
+
+XML.result! {
+    bids_of_item = Hash.new([])
+    sum_bids_of_item = Hash.new(0.0)
+    bids.each{|b|
+        i = b[:@itemno]
+        bids_of_item[i] += [b]
+        sum_bids_of_item[i] += b[:@bid].to_i
+    }
+    bids_of_item.find_all{|i,b| b.size >= 3}.map{|i,b| [sum_bids_of_item[i] / b.size, i, b]}.sort.reverse.each{|a,i,b|
+        popular_item! {
+            itemno! i
+# This is ugly hack to get 1.0 print as "1" not as "1.0"
+            a = a.to_i if a.to_i == a
+            avgbid! a
+        }
+    
+    }
+}

data/xquery_use_cases/rdb/q14.xquery

@@ -0,0 +1,14 @@
+<result>
+ {
+    for $i in distinct-values(doc("bids.xml")//itemno)
+    let $b := doc("bids.xml")//bid_tuple[itemno = $i]
+    let $avgbid := avg($b/bid)
+    where count($b) >= 3
+    order by $avgbid descending
+    return
+        <popular_item>
+            <itemno>{ $i }</itemno>
+            <avgbid>{ $avgbid }</avgbid>
+        </popular_item>
+  }
+</result>

data/xquery_use_cases/rdb/q15.out

@@ -0,0 +1,5 @@
+<result>
+    <big_spender>Mary Doe</big_spender>
+    <big_spender>Dee Linquent</big_spender>
+    <big_spender>Roger Smith</big_spender>
+</result>

data/xquery_use_cases/rdb/q15.rb

@@ -0,0 +1,31 @@
+#!/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.
+
+
+users = XML.load('users.xml')
+bids  = XML.load('bids.xml')
+
+XML.result! {
+    users.each(XML){|u|
+        next unless bids.find_all{|b| b.is_a? XML and b[:@userid] == u[:@userid] and b[:@bid].to_i >= 100 }.size > 1
+        big_spender! u[:@name]
+    }
+}

data/xquery_use_cases/rdb/q15.xquery

@@ -0,0 +1,9 @@
+<result>
+  {
+    for $u in doc("users.xml")//user_tuple
+    let $b := doc("bids.xml")//bid_tuple[userid=$u/userid and bid>=100]
+    where count($b) > 1
+    return
+        <big_spender>{ $u/name/text() }</big_spender>
+  }
+</result>

data/xquery_use_cases/rdb/q16.out

@@ -0,0 +1,35 @@
+
+
+<result>
+    <user>
+        <userid>U01</userid>
+        <name>Tom Jones</name>
+        <status>active</status>
+    </user>
+    <user>
+        <userid>U02</userid>
+        <name>Mary Doe</name>
+        <status>active</status>
+    </user>
+    <user>
+        <userid>U03</userid>
+        <name>Dee Linquent</name>
+        <status>active</status>
+    </user>
+    <user>
+        <userid>U04</userid>
+        <name>Roger Smith</name>
+        <status>active</status>
+    </user>
+    <user>
+        <userid>U05</userid>
+        <name>Jack Sprat</name>
+        <status>active</status>
+    </user>
+    <user>
+        <userid>U06</userid>
+        <name>Rip Van Winkle</name>
+        <status>inactive</status>
+    </user>
+</result>
+

data/xquery_use_cases/rdb/q16.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.
+
+
+users = XML.load('users.xml').sort_by{|i| i[:@userid].to_i}
+bids  = XML.load('bids.xml')
+
+XML.result! {
+    users.each(XML){|u|
+        user_bids = bids.children({:@userid => u[:@userid]})
+        user! {
+            add! u.child(:userid)
+            add! u.child(:name)
+            status! (user_bids.empty? ? 'inactive' : 'active')
+        }
+    }
+}

data/xquery_use_cases/rdb/q16.xquery

@@ -0,0 +1,17 @@
+<result>
+  {
+    for $u in doc("users.xml")//user_tuple
+    let $b := doc("bids.xml")//bid_tuple[userid = $u/userid]
+    order by $u/userid
+    return
+        <user>
+            { $u/userid }
+            { $u/name }
+            {
+                if (empty($b))
+                  then <status>inactive</status>
+                  else <status>active</status>
+            }
+        </user>
+  }
+</result>

data/xquery_use_cases/rdb/q17.out

@@ -0,0 +1 @@
+<frequent_bidder />

data/xquery_use_cases/rdb/q17.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.
+
+
+users = XML.load('users.xml')
+items = XML.load('items.xml')
+bids  = XML.load('bids.xml')
+
+XML.frequent_bidder! {
+    users.each(XML){|u|
+        next unless items.all?{|item|
+            (!item.is_a? XML) or
+            bids.any?{|b| b.is_a? XML and item[:@itemno] == b[:@itemno] and u[:@userid] == b[:@userid]}
+        }
+        add! u.child(:name)
+    }
+}

data/xquery_use_cases/rdb/q17.xquery

@@ -0,0 +1,11 @@
+<frequent_bidder>
+  {
+    for $u in doc("users.xml")//user_tuple
+    where 
+      every $item in doc("items.xml")//item_tuple satisfies 
+        some $b in doc("bids.xml")//bid_tuple satisfies 
+          ($item/itemno = $b/itemno and $u/userid = $b/userid)
+    return
+        $u/name
+  }
+</frequent_bidder>

data/xquery_use_cases/rdb/q18.out

@@ -0,0 +1,32 @@
+<result>
+    <user>
+        <name>Dee Linquent</name>
+        <bid_on_item>Motorcycle</bid_on_item>
+        <bid_on_item>Racing Bicycle</bid_on_item>
+    </user>
+    <user>
+        <name>Jack Sprat</name>
+        <bid_on_item>Old Bicycle</bid_on_item>
+        <bid_on_item>Racing Bicycle</bid_on_item>
+    </user>
+    <user>
+        <name>Mary Doe</name>
+        <bid_on_item>Motorcycle</bid_on_item>
+        <bid_on_item>Red Bicycle</bid_on_item>
+    </user>
+    <user>
+        <name>Rip Van Winkle</name>
+    </user>
+    <user>
+        <name>Roger Smith</name>
+        <bid_on_item>Motorcycle</bid_on_item>
+        <bid_on_item>Old Bicycle</bid_on_item>
+        <bid_on_item>Racing Bicycle</bid_on_item>
+        <bid_on_item>Red Bicycle</bid_on_item>
+    </user>
+    <user>
+        <name>Tom Jones</name>
+        <bid_on_item>Motorcycle</bid_on_item>
+        <bid_on_item>Tricycle</bid_on_item>
+    </user>
+</result>

data/xquery_use_cases/rdb/q18.rb

@@ -0,0 +1,40 @@
+#!/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.
+
+
+users = XML.load('users.xml').children(:user_tuple).sort_by{|i| i[:@name]}
+items = XML.load('items.xml')
+bids  = XML.load('bids.xml')
+
+XML.result! {
+    users.each{|u|
+        user! {
+            add! u.child(:name)
+            bids.find_all{|b|
+                b.is_a? XML and b[:@userid] == u[:@userid]
+            }.map{|b| b[:@itemno]}.uniq.map{|b|
+                items.find{|i| i.is_a? XML and i[:@itemno] == b}[:@description]
+            }.sort.each{|dsc|
+                bid_on_item! dsc
+            }
+        }
+    }
+}

data/xquery_use_cases/rdb/q18.xquery

@@ -0,0 +1,19 @@
+<result>
+  {
+    for $u in doc("users.xml")//user_tuple
+    order by $u/name
+    return
+        <user>
+            { $u/name }
+            {
+                for $b in distinct-values(doc("bids.xml")//bid_tuple
+                                             [userid = $u/userid]/itemno)
+                for $i in doc("items.xml")//item_tuple[itemno = $b]
+                let $descr := $i/description/text()
+                order by $descr
+                return
+                    <bid_on_item>{ $descr }</bid_on_item>
+            }
+        </user>
+  }
+</result>

data/xquery_use_cases/rdb/q2.out

@@ -0,0 +1,22 @@
+<result>
+  <item_tuple>
+    <itemno>1001</itemno>
+    <description>Red Bicycle</description>
+    <high_bid>55</high_bid>
+  </item_tuple>
+  <item_tuple>
+    <itemno>1003</itemno>
+    <description>Old Bicycle</description>
+    <high_bid>20</high_bid>
+  </item_tuple>
+  <item_tuple>
+    <itemno>1007</itemno>
+    <description>Racing Bicycle</description>
+    <high_bid>225</high_bid>
+  </item_tuple>
+  <item_tuple>
+    <itemno>1008</itemno>
+    <description>Broken Bicycle</description>
+    <high_bid></high_bid>
+  </item_tuple>
+</result>

data/xquery_use_cases/rdb/q2.rb

@@ -0,0 +1,36 @@
+#!/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.
+
+
+items = XML.load('items.xml').sort_by{|i| i[:@itemno].to_i}
+bids  = XML.load('bids.xml')
+
+XML.result! {
+    items.each({:@description => /Bicycle/}){|i|
+        item_tuple! {
+            add! i.children(:itemno)
+            add! i.children(:description)
+
+            item_bids = bids.find_all{|b| b.is_a? XML and b[:@itemno] == i[:@itemno] }
+            high_bid! item_bids.map{|b| b[:@bid].to_i}.max
+        }
+    }
+}

data/xquery_use_cases/rdb/q2.xquery

@@ -0,0 +1,14 @@
+<result>
+  {
+    for $i in doc("items.xml")//item_tuple
+    let $b := doc("bids.xml")//bid_tuple[itemno = $i/itemno]
+    where contains($i/description, "Bicycle")
+    order by $i/itemno
+    return
+        <item_tuple>
+            { $i/itemno }
+            { $i/description }
+            <high_bid>{ max($b/bid) }</high_bid>
+        </item_tuple>
+  }
+</result>

data/xquery_use_cases/rdb/q3.out

@@ -0,0 +1,8 @@
+<result>
+    <warning>
+        <name>Dee Linquent</name>
+        <rating>D</rating>
+        <description>Helicopter</description>
+        <reserve_price>50000</reserve_price>
+    </warning>
+</result>

data/xquery_use_cases/rdb/q3.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.
+
+
+items = XML.load('items.xml')
+users = XML.load('users.xml')
+
+XML.result! {
+    users.each(XML){|u|
+        next unless u[:@rating] > "C"
+        items.each(XML){|i|
+            next unless i[:@reserve_price].to_i > 1000
+            warning!(u.child(:name), u.child(:rating), i.child(:description), i.child(:reserve_price))
+        }
+    }
+}

data/xquery_use_cases/rdb/q3.xquery

@@ -0,0 +1,16 @@
+<result>
+  {
+    for $u in doc("users.xml")//user_tuple
+    for $i in doc("items.xml")//item_tuple
+    where $u/rating > "C" 
+       and $i/reserve_price > 1000 
+       and $i/offered_by = $u/userid
+    return
+        <warning>
+            { $u/name }
+            { $u/rating }
+            { $i/description }
+            { $i/reserve_price }
+        </warning>
+  }
+</result>

data/xquery_use_cases/rdb/q4.out

@@ -0,0 +1,14 @@
+<result>
+    <no_bid_item>
+        <itemno>1005</itemno>
+        <description>Tennis Racket</description>
+    </no_bid_item>
+    <no_bid_item>
+        <itemno>1006</itemno>
+        <description>Helicopter</description>
+    </no_bid_item>
+    <no_bid_item>
+        <itemno>1008</itemno>
+        <description>Broken Bicycle</description>
+    </no_bid_item>
+</result>

data/xquery_use_cases/rdb/q4.rb

@@ -0,0 +1,31 @@
+#!/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.
+
+
+items = XML.load('items.xml')
+bids = XML.load('bids.xml')
+
+XML.result!{
+    items.each(XML){|i|
+        next if bids.any?{|b| b.is_a? XML and b[:@itemno] == i[:@itemno]}
+        no_bid_item!(i.child(:itemno), i.child(:description))
+    }
+}

data/xquery_use_cases/rdb/q4.xquery

@@ -0,0 +1,11 @@
+<result>
+  {
+    for $i in doc("items.xml")//item_tuple
+    where empty(doc("bids.xml")//bid_tuple[itemno = $i/itemno])
+    return
+        <no_bid_item>
+            { $i/itemno }
+            { $i/description }
+        </no_bid_item>
+  }
+</result>

data/xquery_use_cases/rdb/q5.out

@@ -0,0 +1,12 @@
+<result>
+    <jones_bike>
+        <itemno>1001</itemno>
+        <description>Red Bicycle</description>
+        <high_bid>
+            <bid>55</bid>
+        </high_bid>
+        <high_bidder>
+            <name>Mary Doe</name>
+        </high_bidder>
+    </jones_bike>
+</result>