xml_schema_mapper 0.0.1 → 0.0.5

data/spec/fixtures/common.xsd

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <xs:schema xmlns:cm="http://example.com/common/" xmlns:xs="http://www.w3.org/2001/XMLSchema"
-           targetNamespace="http://example.com/common/" version="1.0">
+           targetNamespace="http://example.com/common/" elementFormDefault="qualified" version="1.0">
 
   <xs:simpleType name="ZONE">
     <xs:restriction base="xs:string">

data/spec/fixtures/get_first_name.xml

@@ -1,13 +1,13 @@
-<getFirstName xmlns:tns="http://example.com/UserService/type/" xmlns:cm="http://example.com/common/">
-  <userIdentifier>001</userIdentifier>
+<tns:getFirstName xmlns:tns="http://example.com/UserService/type/" xmlns:cm="http://example.com/common/">
+  <tns:userIdentifier>001</tns:userIdentifier>
   <tns:filter>
     <tns:age>50</tns:age>
     <tns:gender>male</tns:gender>
   </tns:filter>
-  <isOut>a</isOut>
+  <tns:isOut>a</tns:isOut>
   <cm:zone>b</cm:zone>
-  <options>
-    <one>one</one>
-    <two>two</two>
-  </options>
-</getFirstName>
+  <tns:options>
+    <cm:one>one</cm:one>
+    <cm:two>two</cm:two>
+  </tns:options>
+</tns:getFirstName>

data/spec/fixtures/instance1.xml

@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<getFirstName xmlns:cm="http://example.com/common/" xmlns:tns="http://example.com/UserService/type/">
-    <userIdentifier>xoMPRY</userIdentifier>
+<tns:getFirstName xmlns:cm="http://example.com/common/" xmlns:tns="http://example.com/UserService/type/">
+    <tns:userIdentifier>xoMPRY</tns:userIdentifier>
     <tns:filter>
         <tns:age>94</tns:age>
         <tns:gender>male</tns:gender>
     </tns:filter>
-    <isOut>a</isOut>
+    <tns:isOut>a</tns:isOut>
     <cm:zone>b</cm:zone>
-    <options>
-        <one>p6E58</one>
-        <two>Vm1sk87pkU0pE4EKKSY</two>
-    </options>
-</getFirstName>
+    <tns:options>
+        <cm:one>p6E58</cm:one>
+        <cm:two>Vm1sk87pkU0pE4EKKSY</cm:two>
+    </tns:options>
+</tns:getFirstName>

data/spec/fixtures/instance_with_arrays.xml

@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<tns:getFirstNames xmlns:cm="http://example.com/common/" xmlns:tns="http://example.com/UserService/type/">
+  <tns:query>
+    <tns:userIdentifier>xoMPRY</tns:userIdentifier>
+    <tns:filter>
+      <tns:age>94</tns:age>
+      <tns:gender>male</tns:gender>
+    </tns:filter>
+    <tns:isOut>a</tns:isOut>
+    <cm:zone>b</cm:zone>
+    <tns:options>
+      <cm:one>p6E58</cm:one>
+      <cm:two>Vm1sk87pkU0pE4EKKSY</cm:two>
+    </tns:options>
+  </tns:query>
+  <tns:query>
+    <tns:userIdentifier>xoMPRY</tns:userIdentifier>
+    <tns:filter>
+      <tns:age>94</tns:age>
+      <tns:gender>male</tns:gender>
+    </tns:filter>
+    <tns:isOut>a</tns:isOut>
+    <cm:zone>b</cm:zone>
+    <tns:options>
+      <cm:one>p6E58</cm:one>
+      <cm:two>Vm1sk87pkU0pE4EKKSY</cm:two>
+    </tns:options>
+  </tns:query>
+</tns:getFirstNames>

data/spec/fixtures/user_service.rb

@@ -1,23 +1,132 @@
-class ZONE
+class ZONEMapper
   include XmlSchemaMapper
   schema 'spec/fixtures/UserService.xsd'
   type 'ZONE'
+  elements.each do |e|
+    attr_accessor e.reader
+  end
 end
 
-class Filter
+class FilterMapper
   include XmlSchemaMapper
   schema 'spec/fixtures/UserService.xsd'
   type 'Filter'
+  elements.each do |e|
+    attr_accessor e.reader
+  end
 end
 
-class Options
+class OptionsMapper
   include XmlSchemaMapper
   schema 'spec/fixtures/UserService.xsd'
   type 'Options'
+  elements.each do |e|
+    attr_accessor e.reader
+  end
 end
 
-class GetFirstName
+class GetFirstNameMapper
   include XmlSchemaMapper
   schema 'spec/fixtures/UserService.xsd'
   type 'GetFirstName'
+  elements.each do |e|
+    attr_accessor e.reader
+  end
 end
+
+
+module AnotherNamespace
+  class ZONEMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'ZONE'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class FilterMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'Filter'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class OptionsMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'Options'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class GetFirstNameMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'GetFirstName'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+end
+
+
+
+module ArrayNamespace
+  class ZONEMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'ZONE'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class FilterMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'Filter'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class OptionsMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'Options'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class GetFirstNameMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'GetFirstName'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class ArrayOfGetFirstNameMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'ArrayOfGetFirstName'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+
+  class ArrayOfStringsMapper
+    include XmlSchemaMapper
+    schema 'spec/fixtures/UserService.xsd'
+    type 'ArrayOfStrings'
+    elements.each do |e|
+      attr_accessor e.reader
+    end
+  end
+end

data/spec/parse_xml_spec.rb

@@ -2,35 +2,77 @@ require "spec_helper"
 
 describe "Parse XML" do
 
-  context "by GetFirstName" do
+  context "by GetFirstNameMapper" do
     let(:xml) { File.read('spec/fixtures/instance1.xml') }
 
     it "should parse with XmlSchemaMapper::Parser" do
       XmlSchemaMapper::Parser.any_instance.should_receive(:parse).with(xml)
-      GetFirstName.parse(xml)
+      GetFirstNameMapper.parse(xml)
     end
 
-    it "should return instance of GetFirstName" do
-      GetFirstName.parse(xml).should be_a GetFirstName
+    it "should return instance of GetFirstNameMapper" do
+      GetFirstNameMapper.parse(xml).should be_a GetFirstNameMapper
     end
 
     it "should lookup all elements" do
-      GetFirstName.elements.should_receive(:each)
-      GetFirstName.parse(xml)
+      GetFirstNameMapper.elements.should_receive(:each)
+      GetFirstNameMapper.parse(xml)
     end
 
     context "its" do
-      subject { GetFirstName.parse(xml) }
+      subject { GetFirstNameMapper.parse(xml) }
       its(:user_identifier) { should be_eql 'xoMPRY' }
-      its(:filter) { should be_a Filter }
+      its(:filter) { should be_a FilterMapper }
       its(:'filter.age') { should eql '94' }
       its(:'filter.gender') { should eql 'male' }
       its(:is_out) { should eql 'a' }
       its(:zone) { should eql 'b' }
-      its(:options) { should be_a Options }
+      its(:options) { should be_a OptionsMapper }
       its(:'options.one') { should eql 'p6E58' }
       its(:'options.two') { should eql 'Vm1sk87pkU0pE4EKKSY' }
     end
   end
 
+  context "by AnotherNamespace::GetFirstNameMapper" do
+    let(:xml) { File.read('spec/fixtures/instance1.xml') }
+
+    it "should parse with XmlSchemaMapper::Parser" do
+      XmlSchemaMapper::Parser.any_instance.should_receive(:parse).with(xml)
+      AnotherNamespace::GetFirstNameMapper.parse(xml)
+    end
+
+    it "should return instance of GetFirstNameMapper" do
+      AnotherNamespace::GetFirstNameMapper.parse(xml).should be_a AnotherNamespace::GetFirstNameMapper
+    end
+
+    it "should lookup all elements" do
+      AnotherNamespace::GetFirstNameMapper.elements.should_receive(:each)
+      AnotherNamespace::GetFirstNameMapper.parse(xml)
+    end
+
+    context "its" do
+      subject { AnotherNamespace::GetFirstNameMapper.parse(xml) }
+      its(:user_identifier) { should be_eql 'xoMPRY' }
+      its(:filter) { should be_a AnotherNamespace::FilterMapper }
+      its(:'filter.age') { should eql '94' }
+      its(:'filter.gender') { should eql 'male' }
+      its(:is_out) { should eql 'a' }
+      its(:zone) { should eql 'b' }
+      its(:options) { should be_a AnotherNamespace::OptionsMapper }
+      its(:'options.one') { should eql 'p6E58' }
+      its(:'options.two') { should eql 'Vm1sk87pkU0pE4EKKSY' }
+    end
+
+
+    context "parse arrays" do
+      let(:xml) { File.read('spec/fixtures/instance_with_arrays.xml') }
+      subject { ArrayNamespace::ArrayOfGetFirstNameMapper.parse(xml) }
+
+      it do
+        subject.query.should have(2).elements
+        ArrayNamespace::ArrayOfGetFirstNameMapper.parse(subject.to_xml).query.should have(2).elements
+      end
+    end
+  end
+
 end

data/spec/visitor_spec.rb

@@ -0,0 +1,167 @@
+require "spec_helper"
+require "stringio"
+
+describe "Generate XML by Visitor Pattern" do
+
+  class MarshalVisitor
+
+    attr_reader :namespace_mapper
+
+    def initialize(data, namespace_mapper)
+      @data             = data
+      @namespace_mapper = namespace_mapper
+      @tab              = 0
+      @buf              = ""
+      @io               = StringIO.new @buf
+    end
+
+    def visit_array(element, data, *args)
+      data.each { |d| element.accept(self, d) }
+    end
+
+    def visit(element, data, *args)
+      @io.print tag_open(element, data)
+
+      with_padding(element) do
+        element.elements.each do |e|
+          e.accept(self, data.elements[e.reader])
+        end
+      end
+
+      @io.print tag_close(element)
+    end
+
+    def to_xml
+      @data.class.elements.each do |e|
+        e.accept(self, @data.elements[e.reader])
+      end
+      @buf
+    end
+
+    private
+
+    def tag_name(element)
+      prefix = namespace_mapper.prefix(element.namespace)
+      if prefix.present?
+        "#{prefix}:#{element.name}"
+      else
+        element.name
+      end
+    end
+
+    def tag_open(element, data)
+      if element.type.attributes.empty?
+        attrs = ""
+      else
+        attrs = " " << data.attrs.map { |name, val| %Q{#{name}="#{val}"} }.join(' ')
+      end
+
+      if element.simple?
+        padding << "<#{tag_name(element)}#{attrs}>" << "#{data}"
+      else
+        padding << "<#{tag_name(element)}#{attrs}>\n"
+      end
+    end
+
+    def tag_close(element)
+      if element.simple?
+        "</#{tag_name(element)}>\n"
+      else
+        padding << "</#{tag_name(element)}>\n"
+      end
+    end
+
+    def padding
+      ("  " * @tab)
+    end
+
+    def with_padding(element)
+      inc_tab! if element.elements.present?
+      yield
+      dec_tab! if element.elements.present?
+    end
+
+    def inc_tab!
+      @tab = @tab + 1
+    end
+
+    def dec_tab!
+      @tab = @tab - 1
+    end
+  end
+
+  class NamespacePrefixMapper
+    class_attribute :map
+    self.map = { }
+
+    map["ds"]    = "http://www.w3.org/2000/09/xmldsig#"
+    map["xsi"]   = "http://www.w3.org/2001/XMLSchema-instance"
+    map["xml"]   = "http://www.w3.org/XML/1998/namespace"
+    map["xs"]    = "http://www.w3.org/2001/XMLSchema"
+    map["xop"]   = "http://www.w3.org/2004/08/xop/include"
+    map["xmime"] = "http://www.w3.org/2005/05/xmlmime"
+
+    def self.add(hash = { })
+      map.merge! hash.stringify_keys
+    end
+
+    def self.prefix(uri)
+      map.invert[uri] or ''
+    end
+
+    def self.uri(prefix)
+      map[prefix]
+    end
+  end
+
+  let(:options) { o = OptionsMapper.new; o.one = 'one'; o.two = 'two'; o }
+  let(:object) do
+    f       = FilterMapper.new; f.age = 50; f.gender = 'male'
+    g       = GetFirstNameMapper.new; g.user_identifier = '001'; g.is_out = 'a'; g.zone = 'b'; g.filter = f; g.options = options
+    g.attrs = { 'id' => '1000', 'default' => '1' }
+    g
+  end
+
+  it "" do
+    mapper       = ArrayNamespace::ArrayOfGetFirstNameMapper.new
+    mapper.query = [object, object.dup]
+
+    class UserNamespaceMapper < NamespacePrefixMapper
+
+    end
+
+    UserNamespaceMapper.add type: "http://example.com/UserService/type/",
+                            com:  "http://example.com/common/"
+
+    visitor = MarshalVisitor.new(mapper, UserNamespaceMapper)
+    visitor.to_xml.should eql <<-X
+<type:query id="1000" default="1">
+  <type:userIdentifier>001</type:userIdentifier>
+  <type:filter>
+    <type:age>50</type:age>
+    <type:gender>male</type:gender>
+  </type:filter>
+  <type:isOut>a</type:isOut>
+  <com:zone>b</com:zone>
+  <type:options>
+    <com:one>one</com:one>
+    <com:two>two</com:two>
+  </type:options>
+</type:query>
+<type:query id="1000" default="1">
+  <type:userIdentifier>001</type:userIdentifier>
+  <type:filter>
+    <type:age>50</type:age>
+    <type:gender>male</type:gender>
+  </type:filter>
+  <type:isOut>a</type:isOut>
+  <com:zone>b</com:zone>
+  <type:options>
+    <com:one>one</com:one>
+    <com:two>two</com:two>
+  </type:options>
+</type:query>
+    X
+  end
+
+end