magic_xml 0.1.0

data/xquery_use_cases/README

@@ -0,0 +1,17 @@
+W3C XML Query Use Cases contains the following use cases:
+1. Use Case "XMP": Experiences and Exemplars
+2. Use Case "TREE": Queries that preserve hierarchy
+3. Use Case "SEQ" - Queries based on Sequence
+4. Use Case "R" - Access to Relational Data
+5. Use Case "SGML": Standard Generalized Markup Language
+6. Use Case "STRING": String Search
+7. Use Case "NS" - Queries Using Namespaces
+8. Use Case "PARTS" - Recursive Parts Explosion
+9. Use Case "STRONG" - queries that exploit strongly typed data
+
+Use cases 7 and 9 are not supported as they would require
+special support for XML namespaces and XML Schema,
+both of which are outside of scope of magic/xml.
+
+Of the rest 1, 2, 3, 4, 5, 6, 8 are coded.
+

data/xquery_use_cases/parts/README

@@ -0,0 +1,12 @@
+Use Case "PARTS" - Recursive Parts Explosion
+from XML Query Use Cases.
+
+http://www.w3.org/TR/xquery-use-cases/#parts
+
+Q1 - Convert the sample document from "partlist"
+     format to "parttree" format (see DTD section
+     for definitions). In the result document,
+     part containment is represented by containment
+     of one <part> element inside another. Each part
+     that is not part of any other part should appear
+     as a separate top-level element in the output document.

data/xquery_use_cases/parts/partlist.xml

@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<partlist>
+  <part partid="0" name="car"/>
+  <part partid="1" partof="0" name="engine"/>
+  <part partid="2" partof="0" name="door"/>
+  <part partid="3" partof="1" name="piston"/>
+  <part partid="4" partof="2" name="window"/>
+  <part partid="5" partof="2" name="lock"/>
+  <part partid="10" name="skateboard"/>
+  <part partid="11" partof="10" name="board"/>
+  <part partid="12" partof="10" name="wheel"/>
+  <part partid="20" name="canoe"/>
+</partlist>

data/xquery_use_cases/parts/q1.out

@@ -0,0 +1,16 @@
+<parttree>
+    <part partid="0" name="car">
+        <part partid="1" name="engine">
+            <part partid="3" name="piston"/>
+        </part>
+        <part partid="2" name="door">
+            <part partid="4" name="window"/>
+            <part partid="5" name="lock"/>
+        </part>
+    </part>
+    <part partid="10" name="skateboard">
+        <part partid="11" name="board"/>
+        <part partid="12" name="wheel"/>
+    </part>
+    <part partid="20" name="canoe"/>
+</parttree>

data/xquery_use_cases/parts/q1.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.
+
+
+def parts_of(parts, partid)
+    res = []
+    parts.each{|p|
+        if p[:partof] == partid
+            a = p.attrs.dup
+            a.delete :partof
+            res << xml(:part, a, parts_of(parts, p[:partid]))
+        end
+    }
+    res
+end
+
+XML.parttree! {
+    parts = XML.load('partlist.xml').children(:part)
+    add! parts_of(parts, nil)
+}

data/xquery_use_cases/parts/q1.xquery

@@ -0,0 +1,18 @@
+declare function local:one_level($p as element()) as element()
+{
+    <part partid="{ $p/@partid }"
+          name="{ $p/@name }" >
+        {
+            for $s in doc("partlist.xml")//part
+            where $s/@partof = $p/@partid
+            return local:one_level($s)
+        }
+    </part>
+};
+
+<parttree>
+  {
+    for $p in doc("partlist.xml")//part[empty(@partof)]
+    return local:one_level($p)
+  }
+</parttree>

data/xquery_use_cases/rdb/README

@@ -0,0 +1,50 @@
+from XML Query Use Cases.
+
+Source: http://www.w3.org/TR/xquery-use-cases/#rdb
+
+
+Q1 - List the item number and description of all bicycles that
+     currently have an auction in progress, ordered by item number.
+Q2 - For all bicycles, list the item number, description,
+     and highest bid (if any), ordered by item number.
+Q3 - Find cases where a user with a rating worse
+     (alphabetically, greater) than "C" is offering an item
+     with a reserve price of more than 1000.
+Q4 - List item numbers and descriptions of items that have no bids.
+     For bicycle(s) offered by Tom Jones that have received a bid,
+     list the item number, description, highest bid, and name
+     of the highest bidder, ordered by item number.
+Q6 - For each item whose highest bid is more than twice its
+     reserve price, list the item number, description,
+     reserve price, and highest bid.
+Q7 - Find the highest bid ever made for a bicycle or tricycle.
+Q8 - How many items were actioned (auction ended) in March 1999?
+Q9 - List the number of items auctioned each month in 1999 for
+     which data is available, ordered by month.
+Q10 - For each item that has received a bid, list the item
+      number, the highest bid, and the name of the highest
+      bidder, ordered by item number.
+Q11 - List the item number and description of the item(s)
+      that received the highest bid ever recorded, and the
+      amount of that bid.
+Q12 - List the item number and description of the item(s)
+      that received the largest number of bids, and the
+      number of bids it (or they) received.
+Q13 - For each user who has placed a bid, give the userid,
+      name, number of bids, and average bid, in order by userid.
+Q14 - List item numbers and average bids for items that have
+      received three or more bids, in descending order by average bid.
+Q15 - List names of users who have placed multiple bids of
+      at least $100 each.
+Q16 - List all registered users in order by userid; for each user,
+      include the userid, name, and an indication of whether the
+      user is active (has at least one bid on record) or inactive
+      (has no bid on record).
+Q17 - List the names of users, if any, who have bid on every item.
+Q18 - List all users in alphabetic order by name. For each user,
+      include descriptions of all the items (if any) that were
+      bid on by that user, in alphabetic order.
+
+Note to Q1: This solution assumes that the current date is 1999-01-31.
+
+Note: many XQuery solutions have start_date/end_date vs. start_day/end_day bug

data/xquery_use_cases/rdb/bids.xml

@@ -0,0 +1,81 @@
+<bids>
+<bid_tuple>
+<userid>U02</userid>
+<itemno>1001</itemno>
+<bid>35</bid>
+<bid_date>1999-01-07</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U04</userid>
+<itemno>1001</itemno>
+<bid>40</bid>
+<bid_date>1999-01-08</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U02</userid>
+<itemno>1001</itemno>
+<bid>45</bid>
+<bid_date>1999-01-11</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U04</userid>
+<itemno>1001</itemno>
+<bid>50</bid>
+<bid_date>1999-01-13</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U02</userid>
+<itemno>1001</itemno>
+<bid>55</bid>
+<bid_date>1999-01-15</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U01</userid>
+<itemno>1002</itemno>
+<bid>400</bid>
+<bid_date>1999-02-14</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U02</userid>
+<itemno>1002</itemno>
+<bid>600</bid>
+<bid_date>1999-02-16</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U03</userid>
+<itemno>1002</itemno>
+<bid>800</bid>
+<bid_date>1999-02-17</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U04</userid>
+<itemno>1002</itemno>
+<bid>1000</bid>
+<bid_date>1999-02-25</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U02</userid>
+<itemno>1002</itemno>
+<bid>1200</bid>
+<bid_date>1999-03-02</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U04</userid>
+<itemno>1003</itemno>
+<bid>15</bid>
+<bid_date>1999-01-22</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U05</userid>
+<itemno>1003</itemno>
+<bid>20</bid>
+<bid_date>1999-02-03</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U01</userid>
+<itemno>1004</itemno>
+<bid>40</bid>
+<bid_date>1999-03-05</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U03</userid>
+<itemno>1007</itemno>
+<bid>175</bid>
+<bid_date>1999-01-25</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U05</userid>
+<itemno>1007</itemno>
+<bid>200</bid>
+<bid_date>1999-02-08</bid_date></bid_tuple>
+<bid_tuple>
+<userid>U04</userid>
+<itemno>1007</itemno>
+<bid>225</bid>
+<bid_date>1999-02-12</bid_date></bid_tuple></bids>

data/xquery_use_cases/rdb/items.xml

@@ -0,0 +1,57 @@
+<items>
+<item_tuple>
+<itemno>1001</itemno>
+<description>Red Bicycle</description>
+<offered_by>U01</offered_by>
+<start_day>1999-01-05</start_day>
+<end_day>1999-01-20</end_day>
+<reserve_price>40</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1002</itemno>
+<description>Motorcycle</description>
+<offered_by>U02</offered_by>
+<start_day>1999-02-11</start_day>
+<end_day>1999-03-15</end_day>
+<reserve_price>500</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1003</itemno>
+<description>Old Bicycle</description>
+<offered_by>U02</offered_by>
+<start_day>1999-01-10</start_day>
+<end_day>1999-02-20</end_day>
+<reserve_price>25</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1004</itemno>
+<description>Tricycle</description>
+<offered_by>U01</offered_by>
+<start_day>1999-02-25</start_day>
+<end_day>1999-03-08</end_day>
+<reserve_price>15</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1005</itemno>
+<description>Tennis Racket</description>
+<offered_by>U03</offered_by>
+<start_day>1999-03-19</start_day>
+<end_day>1999-04-30</end_day>
+<reserve_price>20</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1006</itemno>
+<description>Helicopter</description>
+<offered_by>U03</offered_by>
+<start_day>1999-05-05</start_day>
+<end_day>1999-05-25</end_day>
+<reserve_price>50000</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1007</itemno>
+<description>Racing Bicycle</description>
+<offered_by>U04</offered_by>
+<start_day>1999-01-20</start_day>
+<end_day>1999-02-20</end_day>
+<reserve_price>200</reserve_price></item_tuple>
+<item_tuple>
+<itemno>1008</itemno>
+<description>Broken Bicycle</description>
+<offered_by>U01</offered_by>
+<start_day>1999-02-05</start_day>
+<end_day>1999-03-06</end_day>
+<reserve_price>25</reserve_price></item_tuple></items>

data/xquery_use_cases/rdb/q1.out

@@ -0,0 +1,10 @@
+<result>
+    <item_tuple>
+        <itemno>1003</itemno>
+        <description>Old Bicycle</description>
+    </item_tuple>
+    <item_tuple>
+        <itemno>1007</itemno>
+        <description>Racing Bicycle</description>
+    </item_tuple>
+</result>

data/xquery_use_cases/rdb/q1.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.
+
+
+current_day = "1999-01-31"
+
+items = XML.load('items.xml').sort_by{|i| i[:@itemno].to_i}
+XML.result! {
+    items.each(XML) {|i|
+        next unless current_day.between?(i[:@start_day], i[:@end_day]) and i[:@description] =~ /Bicycle/
+        item_tuple!(i.children(:itemno), i.children(:description))
+    }
+}

data/xquery_use_cases/rdb/q1.xquery

@@ -0,0 +1,14 @@
+<result>
+  {
+    for $i in doc("items.xml")//item_tuple
+    where $i/start_date <= current-date()
+      and $i/end_date >= current-date() 
+      and contains($i/description, "Bicycle")
+    order by $i/itemno
+    return
+        <item_tuple>
+            { $i/itemno }
+            { $i/description }
+        </item_tuple>
+  }
+</result>

data/xquery_use_cases/rdb/q10.out

@@ -0,0 +1,27 @@
+<result>
+    <high_bid>
+        <itemno>1001</itemno>
+        <bid>55</bid>
+        <bidder>Mary Doe</bidder>
+    </high_bid>
+    <high_bid>
+        <itemno>1002</itemno>
+        <bid>1200</bid>
+        <bidder>Mary Doe</bidder>
+    </high_bid>
+    <high_bid>
+        <itemno>1003</itemno>
+        <bid>20</bid>
+        <bidder>Jack Sprat</bidder>
+    </high_bid>
+    <high_bid>
+        <itemno>1004</itemno>
+        <bid>40</bid>
+        <bidder>Tom Jones</bidder>
+    </high_bid>
+    <high_bid>
+        <itemno>1007</itemno>
+        <bid>225</bid>
+        <bidder>Roger Smith</bidder>
+    </high_bid>
+</result>

data/xquery_use_cases/rdb/q10.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.
+
+
+users = XML.load('users.xml')
+bids  = XML.load('bids.xml').sort_by{|b| b[:@itemno].to_i}
+
+XML.result! {
+    bids.each{|highbid|
+        next if bids.any?{|b| b[:@itemno] == highbid[:@itemno] and b[:@bid].to_i > highbid[:@bid].to_i}
+        users.children({:@userid => highbid[:@userid]}){|user|
+            high_bid! {
+                add! highbid.child(:itemno)
+                add! highbid.child(:bid)
+                bidder! user[:@name]
+            }
+        }
+    }
+}

data/xquery_use_cases/rdb/q10.xquery

@@ -0,0 +1,15 @@
+<result>
+ {
+    for $highbid in doc("bids.xml")//bid_tuple,
+        $user in doc("users.xml")//user_tuple
+    where $user/userid = $highbid/userid 
+      and $highbid/bid = max(doc("bids.xml")//bid_tuple[itemno=$highbid/itemno]/bid)
+    order by $highbid/itemno
+    return
+        <high_bid>
+            { $highbid/itemno }
+            { $highbid/bid }
+            <bidder>{ $user/name/text() }</bidder>
+        </high_bid>
+  }
+</result>

data/xquery_use_cases/rdb/q11.out

@@ -0,0 +1,7 @@
+<result>
+    <expensive_item>
+        <itemno>1002</itemno>
+        <description>Motorcycle</description>
+        <high_bid>1200</high_bid>
+    </expensive_item>
+</result>

data/xquery_use_cases/rdb/q11.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.
+
+
+items = XML.load('items.xml')
+bids  = XML.load('bids.xml')
+
+highbid = bids.children.children(:bid).map{|b| b.text.to_i}.max.to_s
+
+XML.result! {
+    items.each(XML){|item|
+        bids.each({:@itemno => item[:@itemno], :@bid => highbid}) {|b|
+            expensive_item! {
+                add! item.child(:itemno)
+                add! item.child(:description)
+                high_bid! highbid
+            }
+        }
+    }
+}

data/xquery_use_cases/rdb/q11.xquery

@@ -0,0 +1,15 @@
+let $highbid := max(doc("bids.xml")//bid_tuple/bid)
+return
+    <result>
+     {
+        for $item in doc("items.xml")//item_tuple,
+            $b in doc("bids.xml")//bid_tuple[itemno = $item/itemno]
+        where $b/bid = $highbid
+        return
+            <expensive_item>
+                { $item/itemno }
+                { $item/description }
+                <high_bid>{ $highbid }</high_bid>
+            </expensive_item>
+     }
+    </result>

data/xquery_use_cases/rdb/q12.out

@@ -0,0 +1,12 @@
+<result>
+    <popular_item>
+        <itemno>1001</itemno>
+        <description>Red Bicycle</description>
+        <bid_count>5</bid_count>
+    </popular_item>
+    <popular_item>
+        <itemno>1002</itemno>
+        <description>Motorcycle</description>
+        <bid_count>5</bid_count>
+    </popular_item>
+</result>

data/xquery_use_cases/rdb/q12.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.
+
+
+items = XML.load('items.xml')
+bids  = XML.load('bids.xml').children(:bid_tuple)
+
+# XML should work as a Hash key !
+XML.result! {
+    bids_per_item = Hash.new([])
+    bids.each{|bid|
+        bids_per_item[bid[:@itemno]] += [bid]
+    }
+    max_bid_count = bids_per_item.map{|k,v| v.size}.max
+
+    items.each(XML){|item|
+        next unless bids_per_item[item[:@itemno]].size == max_bid_count
+        popular_item! {
+            add! item.child(:itemno)
+            add! item.child(:description)
+            bid_count! max_bid_count
+        }
+    }
+}

data/xquery_use_cases/rdb/q12.xquery

@@ -0,0 +1,28 @@
+declare function local:bid_summary()
+  as element()*
+{
+    for $i in distinct-values(doc("bids.xml")//itemno)
+    let $b := doc("bids.xml")//bid_tuple[itemno = $i]
+    return
+        <bid_count>
+            <itemno>{ $i }</itemno>
+            <nbids>{ count($b) }</nbids>
+        </bid_count>
+};
+
+<result>
+ {
+    let $bid_counts := local:bid_summary(),
+        $maxbids := max($bid_counts/nbids),
+        $maxitemnos := $bid_counts[nbids = $maxbids]
+    for $item in doc("items.xml")//item_tuple,
+        $bc in $bid_counts
+    where $bc/nbids =  $maxbids and $item/itemno = $bc/itemno
+    return
+        <popular_item>
+            { $item/itemno }
+            { $item/description }
+            <bid_count>{ $bc/nbids/text() }</bid_count>
+        </popular_item>
+ }
+</result>

data/xquery_use_cases/rdb/q13.out

@@ -0,0 +1,32 @@
+<result>
+    <bidder>
+        <userid>U01</userid>
+        <name>Tom Jones</name>
+        <bidcount>2</bidcount>
+        <avgbid>220</avgbid>
+    </bidder>
+    <bidder>
+        <userid>U02</userid>
+        <name>Mary Doe</name>
+        <bidcount>5</bidcount>
+        <avgbid>387</avgbid>
+    </bidder>
+    <bidder>
+        <userid>U03</userid>
+        <name>Dee Linquent</name>
+        <bidcount>2</bidcount>
+        <avgbid>487.5</avgbid>
+    </bidder>
+    <bidder>
+        <userid>U04</userid>
+        <name>Roger Smith</name>
+        <bidcount>5</bidcount>
+        <avgbid>266</avgbid>
+    </bidder>
+    <bidder>
+        <userid>U05</userid>
+        <name>Jack Sprat</name>
+        <bidcount>2</bidcount>
+        <avgbid>110</avgbid>
+    </bidder>
+</result>