xml-mapping 0.9.1 → 0.10.0

data/examples/company_usage.intin.rb

@@ -1,19 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-begin
-  Object.send(:remove_const, "Address")  # name clash with order_usage...
-rescue
-end
-require 'company' #<=
-#:visible:
-c = Company.load_from_file('company.xml') #<=
-c.name #<=
-c.customers.size #<=
-c.customers[1] #<=
-c.customers[1].name #<=
-c.customers[0].name #<=
-c.customers[0].name = 'James Tiberius Kirk' #<=
-c.customers << Customer.new('cm','Cookie Monster') #<=
-xml2 = c.save_to_xml #<=
-#:invisible_retval:
-xml2.write($stdout,2) #<=

data/examples/documents_folders_usage.intin.rb

@@ -1,18 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'documents_folders' #<=
-#:visible:
-
-root = XML::Mapping.load_object_from_file "documents_folders.xml" #<=
-root.name #<=
-root.entries #<=
-
-root.append "etc", Folder.new
-root["etc"].append "passwd", Document.new
-root["etc"]["passwd"].contents = "foo:x:2:2:/bin/sh"
-root["etc"].append "hosts", Document.new
-root["etc"]["hosts"].contents = "127.0.0.1 localhost"
-
-xml = root.save_to_xml #<=
-#:invisible_retval:
-xml.write $stdout,2

data/examples/order_signature_enhanced_usage.intin.rb

@@ -1,12 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'xml/mapping'
-require 'time_node.rb'
-require 'order'
-require 'order_signature_enhanced'
-#<=
-#:visible:
-s=Signature.load_from_file("order_signature_enhanced.xml") #<=
-s.signed_on #<=
-s.signed_on=Time.local(1976,12,18) #<=
-s.save_to_xml.write($stdout,2) #<=

data/examples/order_usage.intin.rb

@@ -1,120 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-begin
-  Object.send(:remove_const, "Address")  # name clash with company_usage...
-rescue
-end
-require 'order'
-
-require 'xml/xxpath_methods'
-
-require 'test/unit/assertions'
-include Test::Unit::Assertions  #<=
-#:visible:
-####read access
-o=Order.load_from_file("order.xml") #<=
-o.reference #<=
-o.client #<=
-o.items.keys #<=
-o.items["RF-0034"].descr #<=
-o.items["RF-0034"].total_price #<=
-o.signatures #<=
-o.signatures[2].name #<=
-o.signatures[2].position #<=
-## default value was set
-
-o.total_price #<=
-
-#:invisible:
-assert_equal "12343-AHSHE-314159", o.reference
-assert_equal "Jean Smith", o.client.name
-assert_equal "San Francisco", o.client.work_address.city
-assert_equal "San Mateo", o.client.home_address.city
-assert_equal %w{RF-0001 RF-0034 RF-3341}, o.items.keys.sort
-assert_equal ['John Doe','Jill Smith','Miles O\'Brien'], o.signatures.map{|s|s.name}
-assert_equal 2575, (10 * o.total_price).round
-#<=
-#:visible:
-
-####write access
-o.client.name="James T. Kirk"
-o.items['RF-4711'] = Item.new
-o.items['RF-4711'].descr = 'power transfer grid'
-o.items['RF-4711'].quantity = 2
-o.items['RF-4711'].unit_price = 29.95
-
-s=Signature.new
-s.name='Harry Smith'
-s.position='general manager'
-o.signatures << s
-xml=o.save_to_xml #convert to REXML node; there's also o.save_to_file(name) #<=
-#:invisible_retval:
-xml.write($stdout,2) #<=
-
-#:invisible:
-assert_equal %w{RF-0001 RF-0034 RF-3341 RF-4711}, xml.all_xpath("Item/@reference").map{|x|x.text}.sort
-assert_equal ['John Doe','Jill Smith','Miles O\'Brien','Harry Smith'],
-             xml.all_xpath("Signed-By/Signature/Name").map{|x|x.text}
-#<=
-#:visible:
-
-
-#<=
-#:visible_retval:
-####Starting a new order from scratch
-o = Order.new #<=
-## attributes with default values (here: signatures) are set
-## automatically
-
-#:handle_exceptions:
-xml=o.save_to_xml #<=
-#:no_exceptions:
-## can't save as long as there are still unset attributes without
-## default values
-
-o.reference = "FOOBAR-1234"
-
-o.client = Client.new
-o.client.name = 'Ford Prefect'
-o.client.home_address = Address.new
-o.client.home_address.street = '42 Park Av.'
-o.client.home_address.city = 'small planet'
-o.client.home_address.zip = 17263
-o.client.home_address.state = 'Betelgeuse system'
-
-o.items={'XY-42' => Item.new}
-o.items['XY-42'].descr = 'improbability drive'
-o.items['XY-42'].quantity = 3
-o.items['XY-42'].unit_price = 299.95
-
-#:invisible_retval:
-xml=o.save_to_xml
-xml.write($stdout,2)
-#<=
-#:invisible:
-assert_equal "order", xml.name
-assert_equal o.reference, xml.first_xpath("@reference").text
-assert_equal o.client.name, xml.first_xpath("Client/Name").text
-assert_equal o.client.home_address.street, xml.first_xpath("Client/Address[@where='home']/Street").text
-assert_equal o.client.home_address.city, xml.first_xpath("Client/Address[@where='home']/City").text
-assert_nil xml.first_xpath("Client/Address[@where='work']", :allow_nil=>true)
-assert_equal 1, xml.all_xpath("Client/Address").size
-
-o.client.work_address = Address.new
-o.client.work_address.street = 'milky way 2'
-o.client.work_address.city = 'Ursa Major'
-o.client.work_address.zip = 18293
-o.client.work_address.state = 'Magellan Cloud'
-xml=o.save_to_xml
-
-assert_equal o.client.work_address.street, xml.first_xpath("Client/Address[@where='work']/Street").text
-assert_equal o.client.work_address.city, xml.first_xpath("Client/Address[@where='work']/City").text
-assert_equal o.client.home_address.street, xml.first_xpath("Client/Address[@where='home']/Street").text
-assert_equal 2, xml.all_xpath("Client/Address").size
-#<=
-#:visible:
-
-## the root element name when saving an object to XML will by default
-## be derived from the class name (in this example, "Order" became
-## "order"). This can be overridden on a per-class basis; see
-## XML::Mapping::ClassMethods#root_element_name for details.

data/examples/person.intin.rb

@@ -1,44 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'xml/mapping'
-require 'xml/xxpath_methods'
-#<=
-#:visible:
-
-class Person
-  include XML::Mapping
-
-  choice_node :if,    'name',  :then, (text_node :name, 'name'),
-              :elsif, '@name', :then, (text_node :name, '@name'),
-              :else,  (text_node :name, '.')
-end
-
-### usage
-
-p1 = Person.load_from_xml(REXML::Document.new('<person name="Jim"/>').root)#<=
-
-p2 = Person.load_from_xml(REXML::Document.new('<person><name>James</name></person>').root)#<=
-
-p3 = Person.load_from_xml(REXML::Document.new('<person>Suzy</person>').root)#<=
-
-
-#:invisible_retval:
-p1.save_to_xml.write($stdout)#<=
-
-p2.save_to_xml.write($stdout)#<=
-
-p3.save_to_xml.write($stdout)#<=
-
-#:invisible:
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-assert_equal "Jim", p1.name
-assert_equal "James", p2.name
-assert_equal "Suzy", p3.name
-
-xml = p3.save_to_xml
-assert_equal "name", xml.elements[1].name
-assert_equal "Suzy", xml.elements[1].text
-
-#<=

data/examples/person_mm.intin.rb

@@ -1,119 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-begin
-  Object.send(:remove_const, "Address")  # remove any previous definitions
-  Object.send(:remove_const, "Person")  # remove any previous definitions
-rescue
-end
-#<=
-#:visible:
-require 'xml/mapping'
-
-class Address; end
-
-class Person
-  include XML::Mapping
-
-  # the default mapping. Stores the name and age in XML attributes,
-  # and the address in a sub-element "address".
-
-  text_node :name, "@name"
-  numeric_node :age, "@age"
-  object_node :address, "address", :class=>Address
-
-  use_mapping :other
-
-  # the ":other" mapping. Non-default root element name; name and age
-  # stored in XML elements; address stored in the person's element
-  # itself
-
-  root_element_name "individual"
-  text_node :name, "name"
-  numeric_node :age, "age"
-  object_node :address, ".", :class=>Address
-
-  # you could also specify the mapping on a per-node basis with the
-  # :mapping option, e.g.:
-  #
-  # numeric_node :age, "age", :mapping=>:other
-end
-
-
-class Address
-  include XML::Mapping
-
-  # the default mapping.
-
-  text_node :street, "street"
-  numeric_node :number, "number"
-  text_node :city, "city"
-  numeric_node :zip, "zip"
-
-  use_mapping :other
-
-  # the ":other" mapping.
-
-  text_node :street, "street-name"
-  numeric_node :number, "street-name/@number"
-  text_node :city, "city-name"
-  numeric_node :zip, "city-name/@zip-code"
-end
-
-
-### usage
-
-## XML representation of a person in the default mapping
-xml = REXML::Document.new('
-<person name="Suzy" age="28">
-  <address>
-    <street>Abbey Road</street>
-    <number>72</number>
-    <city>London</city>
-    <zip>18827</zip>
-  </address>
-</person>').root
-
-## load using the default mapping
-p = Person.load_from_xml xml #<=
-
-#:invisible_retval:
-## save using the default mapping
-xml2 = p.save_to_xml
-xml2.write $stdout,2 #<=
-
-## xml2 identical to xml
-
-
-## now, save the same person to XML using the :other mapping...
-other_xml = p.save_to_xml :mapping=>:other
-other_xml.write $stdout,2 #<=
-
-#:visible_retval:
-## load it again using the :other mapping
-p2 = Person.load_from_xml other_xml, :mapping=>:other #<=
-
-#:invisible_retval:
-## p2 identical to p #<=
-
-#:invisible:
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-require 'xml/xxpath_methods'
-
-assert_equal "Suzy", p.name
-assert_equal 28, p.age
-assert_equal "Abbey Road", p.address.street
-assert_equal 72, p.address.number
-assert_equal "London", p.address.city
-assert_equal 18827, p.address.zip
-
-assert_equal "individual", other_xml.name
-assert_equal p.name, other_xml.first_xpath("name").text
-assert_equal p.age, other_xml.first_xpath("age").text.to_i
-assert_equal p.address.street, other_xml.first_xpath("street-name").text
-assert_equal p.address.number, other_xml.first_xpath("street-name/@number").text.to_i
-assert_equal p.address.city, other_xml.first_xpath("city-name").text
-assert_equal p.address.zip, other_xml.first_xpath("city-name/@zip-code").text.to_i
-
-#<=

data/examples/publication.intin.rb

@@ -1,44 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'xml/mapping'
-require 'xml/xxpath_methods'
-#<=
-#:visible:
-
-class Publication
-  include XML::Mapping
-
-  choice_node :if,    '@author', :then, (text_node :author, '@author'),
-              :elsif, 'contr',   :then, (array_node :contributors, 'contr', :class=>String)
-end
-
-### usage
-
-p1 = Publication.load_from_xml(REXML::Document.new('<publication author="Jim"/>').root)#<=
-
-p2 = Publication.load_from_xml(REXML::Document.new('
-<publication>
-  <contr>Chris</contr>
-  <contr>Mel</contr>
-  <contr>Toby</contr>
-</publication>').root)#<=
-
-#:invisible:
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-assert_equal "Jim", p1.author
-assert_nil p1.contributors
-
-assert_nil p2.author
-assert_equal ["Chris", "Mel", "Toby"], p2.contributors
-
-xml1 = p1.save_to_xml
-xml2 = p2.save_to_xml
-
-assert_equal p1.author, xml1.first_xpath("@author").text
-assert_nil xml1.first_xpath("contr", :allow_nil=>true)
-
-assert_nil xml2.first_xpath("@author", :allow_nil=>true)
-assert_equal p2.contributors, xml2.all_xpath("contr").map{|elt|elt.text}
-#<=

data/examples/reader.intin.rb

@@ -1,33 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'xml/mapping'
-require 'xml/xxpath_methods'
-#<=
-#:visible:
-
-class Foo
-  include XML::Mapping
-
-  text_node :name, "@name", :reader=>proc{|obj,xml,default_reader|
-                                       default_reader.call(obj,xml)
-                                       obj.name += xml.attributes['more']
-                                     },
-                            :writer=>proc{|obj,xml|
-                                       xml.attributes['bar'] = "hi #{obj.name} ho"
-                                     }
-end
-
-f = Foo.load_from_xml(REXML::Document.new('<foo name="Jim" more="XYZ"/>').root)#<=
-
-#:invisible_retval:
-xml = f.save_to_xml 
-xml.write $stdout,2 #<=
-
-#:invisible:
-require 'test/unit/assertions'
-include Test::Unit::Assertions
-
-assert_equal "JimXYZ", f.name
-assert_equal "hi JimXYZ ho", xml.attributes['bar']
-
-#<=

data/examples/stringarray_usage.intin.rb

@@ -1,11 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'stringarray' #<=
-#:visible:
-ppl=People.load_from_file("stringarray.xml") #<=
-ppl.names #<=
-
-ppl.names.concat ["Mary","Arnold"] #<=
-#:invisible_retval:
-ppl.save_to_xml.write $stdout,2
-#<=

data/examples/time_augm.intin.rb

@@ -1,19 +0,0 @@
-#:invisible:
-$:.unshift "../lib"
-require 'order' #<=
-#:visible:
-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
-
-
-nowxml=Time.now.save_to_xml #<=
-#:invisible_retval:
-nowxml.write($stdout,2)#<=