xml-mapping 0.9.1 → 0.10.0

data/examples/time_augm_loading.intin.rb

@@ -1,44 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'xml/mapping'
-require 'xml/xxpath_methods'
-
-class Time
-  include XML::Mapping
-
-  numeric_node :year, "year"
-  numeric_node :month, "month"
-  numeric_node :day, "mday"
-  numeric_node :hour, "hours"
-  numeric_node :min, "minutes"
-  numeric_node :sec, "seconds"
-end
-
-#<=
-#:invisible_retval:
-#:visible:
-
-def Time.load_from_xml(xml, options={:mapping=>:_default})
-  year,month,day,hour,min,sec =
-    [xml.first_xpath("year").text.to_i,
-     xml.first_xpath("month").text.to_i,
-     xml.first_xpath("mday").text.to_i,
-     xml.first_xpath("hours").text.to_i,
-     xml.first_xpath("minutes").text.to_i,
-     xml.first_xpath("seconds").text.to_i]
-  Time.local(year,month,day,hour,min,sec)
-end
-#<=
-#:invisible:
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-t = Time.now
-t2 = Time.load_from_xml(t.save_to_xml)
-
-assert_equal t.year, t2.year
-assert_equal t.month, t2.month
-assert_equal t.day, t2.day
-assert_equal t.hour, t2.hour
-assert_equal t.min, t2.min
-assert_equal t.sec, t2.sec

data/examples/time_node.intin.rb

@@ -1,79 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-#<=
-#:visible:
-#:invisible_retval:
-STDERR.puts "time_node top:\n#{$:.inspect}"
-
-require 'xml/mapping/base'
-
-STDERR.puts "time_node after require:\n#{$:.inspect}"
-
-class TimeNode < XML::Mapping::SingleAttributeNode
-  def initialize(*args)
-    STDERR.puts "TimeNode#initialize top:\n#{$:.inspect}"
-    path,*args = super(*args)
-    @y_path = XML::XXPath.new(path+"/year")
-    @m_path = XML::XXPath.new(path+"/month")
-    @d_path = XML::XXPath.new(path+"/day")
-    args
-  end
-
-  def extract_attr_value(xml)
-    y,m,d = default_when_xpath_err{ [@y_path.first(xml).text.to_i,
-                                     @m_path.first(xml).text.to_i,
-                                     @d_path.first(xml).text.to_i]
-                                  }
-    Time.local(y,m,d)
-  end
-
-  def set_attr_value(xml, value)
-    @y_path.first(xml,:ensure_created=>true).text = value.year
-    @m_path.first(xml,:ensure_created=>true).text = value.month
-    @d_path.first(xml,:ensure_created=>true).text = value.day
-  end
-end
-
-XML::Mapping.add_node_class TimeNode
-
-#<=
-#:invisible:
-require 'xml/mapping'
-
-class Signature
-  include XML::Mapping
-
-  text_node :name, "Name"
-  text_node :position, "Position", :default_value=>"Some Employee"
-  time_node :signed_on, "signed-on", :default_value=>Time.now
-end
-
-
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-xml = REXML::Document.new('
-<Signature>
-  <Name>John Doe</Name>
-  <Position>product manager</Position>
-  <signed-on>
-    <day>13</day>
-    <month>2</month>
-    <year>2005</year>
-  </signed-on>
-</Signature>
-').root
-
-
-s = Signature.load_from_xml xml
-assert_equal Time.local(2005,2,13), s.signed_on
-
-s.signed_on = Time.local(2006,6,15)
-xml2 = s.save_to_xml
-
-require 'xml/xxpath_methods'
-assert_equal "15", xml2.first_xpath("signed-on/day").text
-assert_equal "6", xml2.first_xpath("signed-on/month").text
-assert_equal "2006", xml2.first_xpath("signed-on/year").text
-
-#<=

data/examples/time_node_w_marshallers.intin.rb

@@ -1,48 +0,0 @@
-#:invisible:
-#:invisible_retval:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/mapping'
-require 'xml/xxpath_methods'
-
-class Signature
-  include XML::Mapping
-
-  text_node :name, "Name"
-  text_node :position, "Position", :default_value=>"Some Employee"
-  object_node :signed_on, "signed-on",
-              :unmarshaller=>proc{|xml|
-                               y,m,d = [xml.first_xpath("year").text.to_i,
-                                        xml.first_xpath("month").text.to_i,
-                                        xml.first_xpath("day").text.to_i]
-                               Time.local(y,m,d)
-                             },
-              :marshaller=>proc{|xml,value|
-                             e = xml.elements.add; e.name = "year"; e.text = value.year
-                             e = xml.elements.add; e.name = "month"; e.text = value.month
-                             e = xml.elements.add; e.name = "day"; e.text = value.day
-
-                             # xml.first("year",:ensure_created=>true).text = value.year
-                             # xml.first("month",:ensure_created=>true).text = value.month
-                             # xml.first("day",:ensure_created=>true).text = value.day
-                           }
-end #<=
-#:invisible:
-require 'test/unit/assertions'
-
-include Test::Unit::Assertions
-
-t=Time.local(2005,12,1)
-
-s=Signature.new
-s.name = "Olaf Klischat"; s.position="chief"; s.signed_on=t
-xml = s.save_to_xml
-
-assert_equal "2005", xml.first_xpath("signed-on/year").text
-assert_equal "12", xml.first_xpath("signed-on/month").text
-assert_equal "1", xml.first_xpath("signed-on/day").text
-
-s2 = Signature.load_from_xml xml
-assert_equal "Olaf Klischat", s2.name
-assert_equal "chief", s2.position
-assert_equal t, s2.signed_on

data/examples/xpath_create_new.intin.rb

@@ -1,85 +0,0 @@
-#:invisible:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/xxpath'
-
-d=REXML::Document.new <<EOS
-  <foo>
-    <bar>
-      <baz key="work">Java</baz>
-      <baz key="play">Ruby</baz>
-    </bar>
-  </foo>
-EOS
-
-
-rootelt=d.root
-
-#:invisible_retval:
-path1=XML::XXPath.new("/bar/baz[@key='work']")
-
-#:visible_retval:
-path1.create_new(rootelt)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### a new element is created for *each* path element, regardless of
-### what existed before. So a new "bar" element was added, with a new
-### "baz" element inside it
-
-### same call again...
-#:visible_retval:
-path1.create_new(rootelt)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### same procedure -- new elements added for each path element
-
-
-#:visible_retval:
-## get reference to 1st "baz" element
-firstbazelt=XML::XXPath.new("/bar/baz").first(rootelt)#<=
-
-#:invisible_retval:
-path2=XML::XXPath.new("@key2")
-
-#:visible_retval:
-path2.create_new(firstbazelt)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### ok, new attribute node added
-
-### same call again...
-#:visible_retval:
-#:handle_exceptions:
-path2.create_new(firstbazelt)#<=
-#:no_exceptions:
-### can't create that path anew again -- an element can't have more
-### than one attribute with the same name
-
-#:invisible_retval:
-### the document hasn't changed
-d.write($stdout,2)#<=
-
-
-
-### create_new the same path as in the ensure_created example
-#:visible_retval:
-baz6elt=XML::XXPath.new("/bar/baz[6]").create_new(rootelt)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### ok, new "bar" element and 6th "baz" element inside it created
-
-
-#:visible_retval:
-#:handle_exceptions:
-XML::XXPath.new("baz[6]").create_new(baz6elt.parent)#<=
-#:no_exceptions:
-#:invisible_retval:
-### yep, baz[6] already existed and thus couldn't be created once
-### again
-
-### but of course...
-#:visible_retval:
-XML::XXPath.new("/bar/baz[6]").create_new(rootelt)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### this works because *all* path elements are newly created

data/examples/xpath_docvsroot.intin.rb

@@ -1,30 +0,0 @@
-#:invisible:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/xxpath'
-
-d=REXML::Document.new <<EOS
-  <foo>
-    <bar x="hello">
-      <first>
-        <second>pingpong</second>
-      </first>
-    </bar>
-    <bar x="goodbye"/>
-  </foo>
-EOS
-
-XML::XXPath.new("/foo/bar").all(d)#<=
-
-XML::XXPath.new("/bar").all(d)#<=
-
-XML::XXPath.new("/foo/bar").all(d.root)#<=
-
-XML::XXPath.new("/bar").all(d.root)#<=
-
-
-firstelt = XML::XXPath.new("/foo/bar/first").first(d)#<=
-
-XML::XXPath.new("/first/second").all(firstelt)#<=
-
-XML::XXPath.new("/second").all(firstelt)#<=

data/examples/xpath_ensure_created.intin.rb

@@ -1,62 +0,0 @@
-#:invisible:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/xxpath'
-
-d=REXML::Document.new <<EOS
-  <foo>
-    <bar>
-      <baz key="work">Java</baz>
-      <baz key="play">Ruby</baz>
-    </bar>
-  </foo>
-EOS
-
-
-rootelt=d.root
-
-#### ensuring that a specific path exists inside the document
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[@key='work']").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### no change (path existed before)
-
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[@key='42']").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### path was added
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[@key='42']").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### no change this time
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[@key2='hello']").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### this fit in the 1st "baz" element since
-### there was no "key2" attribute there before.
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[2]").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### no change
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[6]/@haha").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### for there to be a 6th "baz" element, there must be 1st..5th "baz" elements
-
-#:visible_retval:
-XML::XXPath.new("/bar/baz[6]/@haha").first(rootelt,:ensure_created=>true)#<=
-#:invisible_retval:
-d.write($stdout,2)#<=
-### no change this time

data/examples/xpath_pathological.intin.rb

@@ -1,42 +0,0 @@
-#:invisible:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/xxpath'
-
-d=REXML::Document.new <<EOS
-  <foo>
-    <bar/>
-    <bar/>
-  </foo>
-EOS
-
-
-rootelt=d.root
-
-
-XML::XXPath.new("*").all(rootelt)#<=
-### ok
-
-XML::XXPath.new("bar/*").first(rootelt, :allow_nil=>true)#<=
-### ok, nothing there
-
-### the same call with :ensure_created=>true
-newelt = XML::XXPath.new("bar/*").first(rootelt, :ensure_created=>true)#<=
-
-#:invisible_retval:
-d.write($stdout,2)#<=
-
-#:visible_retval:
-### a new "unspecified" element was created
-newelt.unspecified?#<=
-
-### we must modify it to "specify" it
-newelt.name="new-one"
-newelt.text="hello!"
-newelt.unspecified?#<=
-
-#:invisible_retval:
-d.write($stdout,2)#<=
-
-### you could also set unspecified to false explicitly, as in:
-newelt.unspecified=true

data/examples/xpath_usage.intin.rb

@@ -1,51 +0,0 @@
-#:invisible:
-$:.unshift "../lib" #<=
-#:visible:
-require 'xml/xxpath'
-
-d=REXML::Document.new <<EOS
-  <foo>
-    <bar>
-      <baz key="work">Java</baz>
-      <baz key="play">Ruby</baz>
-    </bar>
-    <bar>
-      <baz key="ab">hello</baz>
-      <baz key="play">scrabble</baz>
-      <baz key="xy">goodbye</baz>
-    </bar>
-    <more>
-      <baz key="play">poker</baz>
-    </more>
-  </foo>
-EOS
-
-
-####read access
-path=XML::XXPath.new("/foo/bar[2]/baz")
-
-## path.all(document) gives all elements matching path in document
-path.all(d)#<=
-
-## loop over them
-path.each(d){|elt| puts elt.text}#<=
-
-## the first of those
-path.first(d)#<=
-
-## no match here (only three "baz" elements)
-path2=XML::XXPath.new("/foo/bar[2]/baz[4]")
-path2.all(d)#<=
-
-#:handle_exceptions:
-## "first" raises XML::XXPathError in such cases...
-path2.first(d)#<=
-#:no_exceptions:
-
-##...unless we allow nil returns
-path2.first(d,:allow_nil=>true)#<=
-
-##attribute nodes can also be returned
-keysPath=XML::XXPath.new("/foo/*/*/@key")
-
-keysPath.all(d).map{|attr|attr.text}#<=