magic_xml 0.1.0

data/xquery_use_cases/rdb/q5.rb

@@ -0,0 +1,46 @@
+#!/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}
+users = XML.load('users.xml')
+bids  = XML.load('bids.xml')
+
+# Use pseudoattribute selectors for selects.
+XML.result! {
+    users.each({:@name => "Tom Jones"}) {|seller|
+        items.each({:@offered_by => seller[:@userid], :@description => /Bicycle/}) {|item|
+            bids.each({:@itemno => item[:@itemno]}) {|highbid|
+                users.each({:@userid => highbid[:@userid]}) {|buyer|
+                    best_bid = bids.find_all{|b| b.is_a? XML and b[:@itemno] == item[:@itemno]}.map{|b| b[:@bid].to_i}.max
+                    next unless highbid[:@bid].to_i == best_bid
+                    
+                    jones_bike! {
+                        add! item.child(:itemno)
+                        add! item.child(:description)
+                        high_bid! highbid.child(:bid)
+                        high_bidder! buyer.child(:name)
+                    }
+                }
+            }
+        }
+    }
+}

data/xquery_use_cases/rdb/q5.xquery

@@ -0,0 +1,25 @@
+<result>
+  {
+    for $seller in doc("users.xml")//user_tuple,
+        $buyer in  doc("users.xml")//user_tuple,
+        $item in  doc("items.xml")//item_tuple,
+        $highbid in  doc("bids.xml")//bid_tuple
+    where $seller/name = "Tom Jones"
+      and $seller/userid  = $item/offered_by
+      and contains($item/description , "Bicycle")
+      and $item/itemno  = $highbid/itemno
+      and $highbid/userid  = $buyer/userid
+      and $highbid/bid = max(
+                              doc("bids.xml")//bid_tuple
+                                [itemno = $item/itemno]/bid
+                         )
+    order by ($item/itemno)
+    return
+        <jones_bike>
+            { $item/itemno }
+            { $item/description }
+            <high_bid>{ $highbid/bid }</high_bid>
+            <high_bidder>{ $buyer/name }</high_bidder>
+        </jones_bike>
+  }
+</result>

data/xquery_use_cases/rdb/q6.out

@@ -0,0 +1,14 @@
+<result>
+    <successful_item>
+        <itemno>1002</itemno>
+        <description>Motorcycle</description>
+        <reserve_price>500</reserve_price>
+        <high_bid>1200</high_bid>
+    </successful_item>
+    <successful_item>
+        <itemno>1004</itemno>
+        <description>Tricycle</description>
+        <reserve_price>15</reserve_price>
+        <high_bid>40</high_bid>
+    </successful_item>
+</result>

data/xquery_use_cases/rdb/q6.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')
+
+XML.result! {
+    items.each(XML){|item|
+# z can be nil if there are no bids
+        z = bids.find_all{|b| b.is_a? XML and b[:@itemno] == item[:@itemno]}.map{|b| b[:@bid].to_i}.max
+        next unless z and item[:@reserve_price].to_i * 2 < z
+        successful_item! {
+            add! item.child(:itemno)
+            add! item.child(:description)
+            add! item.child(:reserve_price)
+            high_bid! z
+        }
+    }
+}

data/xquery_use_cases/rdb/q6.xquery

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

data/xquery_use_cases/rdb/q7.out

@@ -0,0 +1 @@
+<high_bid>225</high_bid>

data/xquery_use_cases/rdb/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.
+
+
+items = XML.load('items.xml')
+bids  = XML.load('bids.xml')
+
+allbikes = items.children({:@description => /Bicycle|Tricycle/}).map{|item| item[:@itemno]}
+
+XML.high_bid! {
+    add! bids.find_all{|b| b.is_a? XML and allbikes.include? b[:@itemno]}.map{|b| b[:@bid].to_i}.max
+}

data/xquery_use_cases/rdb/q7.xquery

@@ -0,0 +1,10 @@
+let $allbikes := doc("items.xml")//item_tuple
+                    [contains(description, "Bicycle") 
+                     or contains(description, "Tricycle")]
+let $bikebids := doc("bids.xml")//bid_tuple[itemno = $allbikes/itemno]
+return
+    <high_bid>
+      { 
+        max($bikebids/bid) 
+      }
+    </high_bid>

data/xquery_use_cases/rdb/q8.out

@@ -0,0 +1 @@
+<item_count>3</item_count>

data/xquery_use_cases/rdb/q8.rb

@@ -0,0 +1,23 @@
+#!/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.item_count! XML.load('items.xml').find_all{|item| item.is_a? XML and item[:@end_day] =~ /^1999-03/}.size

data/xquery_use_cases/rdb/q8.xquery

@@ -0,0 +1,8 @@
+let $item := doc("items.xml")//item_tuple
+  [end_date >= xs:date("1999-03-01") and end_date <= xs:date("1999-03-31")]
+return
+    <item_count>
+      { 
+        count($item) 
+      }
+    </item_count>

data/xquery_use_cases/rdb/q9.out

@@ -0,0 +1,22 @@
+<result>
+    <monthly_result>
+        <month>1</month>
+        <item_count>1</item_count>
+    </monthly_result>
+    <monthly_result>
+        <month>2</month>
+        <item_count>2</item_count>
+    </monthly_result>
+    <monthly_result>
+        <month>3</month>
+        <item_count>3</item_count>
+    </monthly_result>
+    <monthly_result>
+        <month>4</month>
+        <item_count>1</item_count>
+    </monthly_result>
+    <monthly_result>
+        <month>5</month>
+        <item_count>1</item_count>
+    </monthly_result>
+</result>

data/xquery_use_cases/rdb/q9.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.
+
+
+items = XML.load('items.xml').children(:item_tuple)
+
+XML.result! {
+    items.map{|item| item[:@end_day] =~ /^1999-(\d+)/; $1.to_i}.sort.uniq.each{|m|
+        monthly_result! {
+            month! m
+            item_count!(items.find_all{|item| item[:@end_day] =~ /1999-(\d+)/; $1.to_i==m}.size)
+        }
+    }
+}

data/xquery_use_cases/rdb/q9.xquery

@@ -0,0 +1,16 @@
+<result>
+  {
+    let $end_dates := doc("items.xml")//item_tuple/end_date
+    for $m in distinct-values(for $e in $end_dates 
+                              return month-from-date($e))
+    let $item := doc("items.xml")
+        //item_tuple[year-from-date(end_date) = 1999 
+                     and month-from-date(end_date) = $m]
+    order by $m
+    return
+        <monthly_result>
+            <month>{ $m }</month>
+            <item_count>{ count($item) }</item_count>
+        </monthly_result>
+  }
+</result>

data/xquery_use_cases/rdb/users.xml

@@ -0,0 +1,25 @@
+<users>
+<user_tuple>
+<userid>U01</userid>
+<name>Tom Jones</name>
+<rating>B</rating></user_tuple>
+<user_tuple>
+<userid>U02</userid>
+<name>Mary Doe</name>
+<rating>A</rating></user_tuple>
+<user_tuple>
+<userid>U03</userid>
+<name>Dee Linquent</name>
+<rating>D</rating></user_tuple>
+<user_tuple>
+<userid>U04</userid>
+<name>Roger Smith</name>
+<rating>C</rating></user_tuple>
+<user_tuple>
+<userid>U05</userid>
+<name>Jack Sprat</name>
+<rating>B</rating></user_tuple>
+<user_tuple>
+<userid>U06</userid>
+<name>Rip Van Winkle</name>
+<rating>B</rating></user_tuple></users>

data/xquery_use_cases/seq/README

@@ -0,0 +1,12 @@
+Use Case "SEQ" - Queries based on Sequence
+from XML Query Use Cases.
+
+Source: http://www.w3.org/TR/xquery-use-cases/#seq
+
+Q1 - In the Procedure section of Report1, what Instruments were used in the second Incision?
+Q2 - In the Procedure section of Report1, what are the first two Instruments to be used?
+Q3 - In Report1, what Instruments were used in the first two Actions after the second Incision?
+Q4 - In Report1, find "Procedure" sections where no Anesthesia element occurs before the first Incision
+Q5 - In Report1, what happened between the first Incision and the second Incision?
+
+Warning: Result of Q5 is weird.

data/xquery_use_cases/seq/q1.out

@@ -0,0 +1 @@
+<instrument>electrocautery</instrument>

data/xquery_use_cases/seq/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('report1.xml').descendants(:section) {|s|
+    print s.descendants(:incision)[1].child(:instrument) if s[:"@section.title"] == "Procedure"
+}

data/xquery_use_cases/seq/q1.xquery

@@ -0,0 +1,2 @@
+for $s in doc("report1.xml")//section[section.title = "Procedure"]
+return ($s//incision)[2]/instrument

data/xquery_use_cases/seq/q2.out

@@ -0,0 +1,2 @@
+<instrument>using electrocautery.</instrument>
+<instrument>electrocautery</instrument>

data/xquery_use_cases/seq/q2.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('report1.xml').descendants(:section) {|s|
+    print s.descendants(:instrument)[0,2] if s[:"@section.title"] == "Procedure"
+}

data/xquery_use_cases/seq/q2.xquery

@@ -0,0 +1,2 @@
+for $s in doc("report1.xml")//section[section.title = "Procedure"]
+return ($s//instrument)[position()<=2]

data/xquery_use_cases/seq/q3.out

@@ -0,0 +1,2 @@
+<instrument>Hasson trocar</instrument>
+<instrument>trocar</instrument>

data/xquery_use_cases/seq/q3.rb

@@ -0,0 +1,26 @@
+#!/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.
+
+
+doc = XML.load('report1.xml')
+i2 = doc.descendants(:incision)[1]
+
+print doc.range(i2,nil).descendants(:action)[0,2].children(:instrument)

data/xquery_use_cases/seq/q3.xquery

@@ -0,0 +1,3 @@
+let $i2 := (doc("report1.xml")//incision)[2]
+for $a in (doc("report1.xml")//action)[. >> $i2][position()<=2]
+return $a//instrument

data/xquery_use_cases/seq/q4.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.load('report1.xml').descendants(:section) {|p|
+    next unless p[:"@section.title"] == "Procedure"
+    i1 = p.descendants(:incision)[0]
+    print p if p.range(nil,i1).descendants(:anesthesia).size == 0
+}

data/xquery_use_cases/seq/q4.xquery

@@ -0,0 +1,4 @@
+for $p in doc("report1.xml")//section[section.title = "Procedure"]
+where not(some $a in $p//anesthesia satisfies
+        $a << ($p//incision)[1] )
+return $p

data/xquery_use_cases/seq/q5.out

@@ -0,0 +1,5 @@
+<critical_sequence>
+      The fascia was identified and
+      <action>#2 0 Maxon stay sutures were placed on each side of the midline.
+      </action>#2 0 Maxon stay sutures were placed on each side of the midline.
+</critical_sequence>

data/xquery_use_cases/seq/q5.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.critical_sequence! {
+   p = XML.load('report1.xml').descendants(:section).find {|p| p[:"@section.title"] == "Procedure"}
+   i1,i2, = *p.descendants(:incision)
+# Naive add! proc.subsequence(i1,i2) would do the right thing
+# Do the wrong and complex thing for compatibility with XQuery solution
+   add! p.subsequence(i1,i2).map{|p| [p] + [p].descendants}
+}

data/xquery_use_cases/seq/q5.xquery

@@ -0,0 +1,10 @@
+<critical_sequence>
+ {
+  let $proc := doc("report1.xml")//section[section.title="Procedure"][1],
+      $i1 :=  ($proc//incision)[1],
+      $i2 :=  ($proc//incision)[2]
+  for $n in $proc//node() except $i1//node()
+  where $n >> $i1 and $n << $i2
+  return $n 
+ }
+</critical_sequence>

data/xquery_use_cases/seq/report1.xml

@@ -0,0 +1,40 @@
+<report>
+  <section>
+    <section.title>Procedure</section.title>
+     <section.content>
+      The patient was taken to the operating room where she was placed
+      in supine position and
+      <anesthesia>induced under general anesthesia.</anesthesia>
+      <prep> 
+        <action>A Foley catheter was placed to decompress the bladder</action>
+        and the abdomen was then prepped and draped in sterile fashion.
+      </prep>  
+      <incision>
+        A curvilinear incision was made
+        <geography>in the midline immediately infraumbilical</geography>
+        and the subcutaneous tissue was divided
+        <instrument>using electrocautery.</instrument>
+      </incision>
+      The fascia was identified and
+      <action>#2 0 Maxon stay sutures were placed on each side of the midline.
+      </action>
+      <incision>
+        The fascia was divided using
+        <instrument>electrocautery</instrument>
+        and the peritoneum was entered.
+      </incision>
+      <observation>The small bowel was identified.</observation>
+      and
+      <action>
+        the
+        <instrument>Hasson trocar</instrument>
+        was placed under direct visualization.
+      </action>
+      <action>
+        The
+        <instrument>trocar</instrument>
+        was secured to the fascia using the stay sutures.
+      </action>
+     </section.content>
+  </section>
+</report>

data/xquery_use_cases/sgml/README

@@ -0,0 +1,53 @@
+Use Case "SGML": Standard Generalized Markup Language
+from XML Query Use Cases.
+
+Source: http://www.w3.org/TR/xquery-use-cases/#sgml
+
+Q1 - Locate all paragraphs in the report (all "para"
+     elements occurring anywhere within the "report" element).
+Q2 - Locate all paragraph elements in an introduction
+     (all "para" elements directly contained within
+     an "intro" element).
+Q3 - Locate all paragraphs in the introduction of a
+     section that is in a chapter that has no
+     introduction (all "para" elements directly
+     contained within an "intro" element directly
+     contained in a "section" element directly
+     contained in a "chapter" element.
+     The "chapter" element must not directly
+     contain an "intro" element).
+Q4 - Locate the second paragraph in the third section
+     in the second chapter (the second "para" element
+     occurring in the third "section" element occurring
+     in the second "chapter" element occurring in
+     the "report").
+Q5 - Locate all classified paragraphs (all "para"
+     elements whose "security" attribute has the
+     value "c").
+Q6 - List the short titles of all sections (the
+     values of the "shorttitle" attributes of
+     all "section" elements, expressing each
+     short title as the value of a new element.)
+Q7 - Locate the initial letter of the initial
+     paragraph of all introductions (the first
+     character in the content [character content
+     as well as element content] of the first
+     "para" element contained in an "intro" element).
+Q8a - Locate all sections with a title that has
+      "is SGML" in it. The string may occur anywhere
+      in the descendants of the title element,
+      and markup boundaries are ignored.
+Q8b - Same as (Q8a), but the string "is SGML" cannot
+      be interrupted by sub-elements, and must
+      appear in a single text node.
+Q9  - Locate all the topics referenced by a
+      cross-reference anywhere in the report
+      (all the "topic" elements whose "topicid"
+      attribute value is the same as an "xrefid"
+      attribute value of any "xref" element).
+Q10 - Locate the closest title preceding the
+      cross-reference ("xref") element whose
+      "xrefid" attribute is "top4" (the "title"
+      element that would be touched last before
+      this "xref" element when touching each
+      element in document order).