wsdl-reader 0.0.1

data/lib/wsdl-reader/xsd/restriction.rb

@@ -0,0 +1,76 @@
+module SOAP
+  class XSD
+    class Restriction < Hash
+      def initialize( content )
+        content.attributes.each { |name, value| 
+          self[name.to_sym] = value
+        }
+        content.find_all{ |e| e.class == REXML::Element }.each { |restrictions|
+          case restrictions.name
+            when "annotation"
+              ###############################################################################
+              warn "xsd:annotation in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "fractionDigits"
+              ###############################################################################
+              warn "xsd:fractionDigits in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "enumeration"
+              self[:enumeration] = SOAP::XSD::Enumeration.new unless self.has_key?( :enumeration )
+              self[:enumeration] << restrictions.attributes['value']
+            when "length"
+              ###############################################################################
+              warn "xsd:length in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "maxExclusive"
+              ###############################################################################
+              warn "xsd:maxExclusive in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "maxInclusive"
+              ###############################################################################
+              warn "xsd:maxInclusive in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "maxLength"
+              ###############################################################################
+              warn "xsd:maxLength in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "minExclusive"
+              ###############################################################################
+              warn "xsd:minExclusive in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "minInclusive"
+              ###############################################################################
+              warn "xsd:minInclusive in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "minLength"
+              ###############################################################################
+              warn "xsd:minLength in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "pattern"
+              ###############################################################################
+              warn "xsd:pattern in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "simpleType"
+              ###############################################################################
+              warn "xsd:simpleType in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "totalDigits"
+              ###############################################################################
+              warn "xsd:totalDigits in xsd:restriction is not yet supported!"
+              ###############################################################################
+            when "whiteSpace"
+              ###############################################################################
+              warn "xsd:whiteSpace in xsd:restriction is not yet supported!"
+              ###############################################################################
+            else
+              warn "Ignoring `#{restrictions.name}' in xsd:restriction for xsd:simpleType `#{type.attributes['name']}'"
+          end
+        }
+      end
+    
+      def responseToHash( xml, types )
+        SOAP::XSD::Convert.to_ruby( self[:base].to_s, xml )
+      end
+    end
+  end
+end

data/lib/wsdl-reader/xsd/sequence.rb

@@ -0,0 +1,117 @@
+module SOAP
+  class XSD
+    class Sequence < Hash
+      def initialize( type )
+        type.attributes.each { |name, value|
+          self[name.to_sym] = value
+        }
+        
+        type.find_all{ |e| e.class == REXML::Element }.each { |content|
+          case content.name
+            when "annotation"
+              ###############################################################################
+              warn "xsd:annotation in xsd:sequence is not yet supported!"
+              ###############################################################################
+            when "element"
+              raise SOAP::LCElementError, "Malformated sequence" unless self[:type].nil? or self[:type] = :element
+              if self[:type].nil?
+                self[:type] = :element
+                self[:element] = Array.new
+              end
+              self[:element] << SOAP::XSD::Element.new( content )
+            when "choice"
+              raise SOAP::LCElementError, "Malformated sequence" unless self[:type].nil? or self[:type] = :choice
+              self[:type] = :choice
+              ###############################################################################
+              warn "xsd:choice in xsd:sequence is not yet supported!"
+              ###############################################################################              
+            when "group"
+              raise SOAP::LCElementError, "Malformated sequence" unless self[:type].nil? or self[:type] = :group
+              self[:type] = :group
+              ###############################################################################
+              warn "xsd:group in xsd:sequence is not yet supported!"
+              ###############################################################################              
+            when "sequence"
+              raise SOAP::LCElementError, "Malformated sequence" unless self[:type].nil? or self[:type] = :sequence
+              self[:type] = :sequence
+              ###############################################################################
+              warn "xsd:sequence in xsd:sequence is not yet supported!"
+              ###############################################################################              
+            when "any"
+              raise SOAP::LCElementError, "Malformated sequence" unless self[:type].nil? or self[:type] = :any
+              self[:type] = :any
+              ###############################################################################
+              warn "xsd:any in xsd:sequence is not yet supported!"
+              ###############################################################################              
+            else
+              raise SOAP::LCElementError, "Invalid element `#{content.name}' in xsd:sequence"
+          end
+        }
+      end
+      
+      def display( types, args )
+        r = ""
+        
+        case self[:type]
+          when :element
+            self[:element].each { |element|
+              r << element.display( types, args )
+            }
+          when :choice
+            ###############################################################################
+            warn "xsd:choice in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :group
+            ###############################################################################
+            warn "xsd:group in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :sequence
+            ###############################################################################
+            warn "xsd:sequence in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :any
+            ###############################################################################
+            warn "xsd:any in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          else
+            raise SOAP::LCWSDLError, "Malformated sequence `#{self[:name]}'"
+        end
+      
+        return r
+      end
+    
+      def responseToHash( xml, types )
+        r = {}
+        
+        case self[:type]
+          when :element
+            self[:element].each { |element|
+              element.responseToHash( xml, types ).each { |k, v|
+                r[k] = v
+              }
+            }
+          when :choice
+            ###############################################################################
+            warn "xsd:choice in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :group
+            ###############################################################################
+            warn "xsd:group in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :sequence
+            ###############################################################################
+            warn "xsd:sequence in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          when :any
+            ###############################################################################
+            warn "xsd:any in xsd:sequence is not yet supported!"
+            ###############################################################################              
+          else
+            raise SOAP::LCWSDLError, "Malformated sequence `#{self[:name]}'"
+        end
+        
+        return r
+      end
+    end
+  end
+end

data/lib/wsdl-reader/xsd/simpletype.rb

@@ -0,0 +1,83 @@
+module SOAP
+  class XSD
+    class SimpleType < Hash
+      def initialize( type )
+        type.attributes.each { |name, value|
+          self[name.to_sym] = value
+        }
+        
+        type.find_all{ |e| e.class == REXML::Element }.each { |content|
+          case content.name
+            when "list"
+              raise SOAP::LCElementError, "Malformated simpleType `#{type.attributes['name']}'" unless self[:type].nil?
+              self[:type] = :list
+              self[:list] = nil
+              ###############################################################################
+              warn "xsd:list in xsd:simpleType is not yet supported!"
+              ###############################################################################
+            when "union"
+              raise SOAP::LCElementError, "Malformated simpleType `#{type.attributes['name']}'" unless self[:type].nil?
+              self[:type] = :union
+              self[:union] = nil
+              ###############################################################################
+              warn "xsd:union in xsd:simpleType is not yet supported!"
+              ###############################################################################
+            when "restriction"
+              raise SOAP::LCElementError, "Malformated simpleType `#{type.attributes['name']}'" unless self[:type].nil?
+              self[:type] = :restriction
+              self[:restriction] = SOAP::XSD::Restriction.new( content )
+            when "annotation"
+              ###############################################################################
+              warn "xsd:annotation in xsd:simpleType is not yet supported!"
+              ###############################################################################            
+            else
+              raise SOAP::LCElementError, "Invalid element `#{content.name}' in xsd:simpleType `#{type.attributes['name']}'"
+          end
+        }
+      end
+      
+      def display( types, args )
+        r = ""
+
+        case self[:type]
+          when :restriction
+            # TODO ########################################################################
+            # TODO ########################################################################
+            # TODO ########################################################################
+            # TODO ########################################################################              
+          when :list
+            ###############################################################################
+            warn "xsd:list in xsd:simpleType is not yet supported!"
+            ###############################################################################
+          when :union
+            ###############################################################################
+            warn "xsd:union in xsd:simpleType is not yet supported!"
+            ###############################################################################
+          else
+            raise SOAP::LCWSDLError, "Malformated simpleType `#{self[:name]}'"
+        end
+
+        return r
+      end
+      
+      def responseToHash( xml, types )
+        r = nil
+        case self[:type]
+          when :restriction
+            r = self[:restriction].responseToHash( xml, types )
+          when :list
+            ###############################################################################
+            warn "xsd:list in xsd:simpleType is not yet supported!"
+            ###############################################################################
+          when :union
+            ###############################################################################
+            warn "xsd:union in xsd:simpleType is not yet supported!"
+            ###############################################################################
+          else
+            raise SOAP::LCWSDLError, "Malformated simpleType `#{self[:name]}'"
+        end
+        return r
+      end
+    end
+  end
+end

data/spec/binding_spec.rb

@@ -0,0 +1,67 @@
+require "spec_helper"
+
+describe "WSDL Binding" do
+
+  context "WSDL::Reader::Bindings" do
+    subject { WSDL::Reader::Parser.new('spec/fixtures/UserService.wsdl').bindings }
+
+    it "child of Hash" do
+      subject.class.superclass.should be Hash
+    end
+
+    it "#get_operations with binding UserServicePortBinding" do
+      operations = subject.get_operations "UserServicePortBinding"
+      operations.should have(2).operation
+      operations.should eq %w{getFirstName getLastName}
+    end
+
+    it "#get_binding_for_operation_name with binding = UserServicePortBinding and operation = getFirstName" do
+      bindings_array = subject.get_binding_for_operation_name "UserServicePortBinding", "getFirstName"
+
+      bindings_array.should have(1).binding
+      bindings_array.first.should be_a WSDL::Reader::Binding
+      bindings_array.first.name.should eq "UserServicePortBinding"
+      bindings_array.first.operations.keys.should include "getFirstName"
+    end
+
+    it "#get_binding_for_operation_name operation = getFirstName but without binding" do
+      bindings_array = subject.get_binding_for_operation_name "getFirstName"
+
+      bindings_array.should have(1).binding
+      bindings_array.first.should be_a WSDL::Reader::Binding
+      bindings_array.first.name.should eq "UserServicePortBinding"
+      bindings_array.first.operations.keys.should include "getFirstName"
+    end
+
+    it "#all_operations should eql to #get_operations(nil)" do
+      subject.get_operations.should eql subject.all_operations
+    end
+  end
+
+  context "WSDL::Reader::Binding" do
+
+    def operations
+      { "getFirstName" => { :name       => "getFirstName",
+                            :soapAction => "",
+                            :input      => { :body => { :use => "literal" } },
+                            :output     => { :body => { :use => "literal" } } },
+
+        "getLastName"  => { :name       => "getLastName",
+                            :soapAction => "",
+                            :input      => { :body => { :use => "literal" } },
+                            :output     => { :body => { :use => "literal" } } }
+      }
+    end
+
+    subject do
+      WSDL::Reader::Parser.new('spec/fixtures/UserService.wsdl').bindings.values.first
+    end
+
+    its(:operations) { should eq operations }
+    its(:name) { should eq "UserServicePortBinding" }
+    its(:type) { should eq "tns:UserService" }
+    its(:style) { should eq "document" }
+    its(:transport) { should eq "http://schemas.xmlsoap.org/soap/http" }
+  end
+
+end

data/spec/fixtures/OneFileUserService.wsdl

@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+             xmlns:tns="http://example.com/UserService/"
+             xmlns:xs="http://www.w3.org/2001/XMLSchema"
+             name="UserService" targetNamespace="http://example.com/UserService/">
+  <types>
+    <xs:schema xmlns:tns="http://example.com/UserService/type/" xmlns:xs="http://www.w3.org/2001/XMLSchema"
+               targetNamespace="http://example.com/UserService/type/" version="1.0">
+
+      <xs:element name="getFirstName" type="tns:GetFirstName"/>
+      <xs:element name="getLastName" type="tns:GetLastName"/>
+
+      <xs:complexType name="GetFirstName">
+        <xs:annotation>
+          <xs:documentation>Foo Bar</xs:documentation>
+        </xs:annotation>
+        <xs:sequence>
+          <xs:element name="userIdentifier" type="xs:string" minOccurs="0"/>
+          <xs:element name="filter" minOccurs="0">
+            <xs:complexType>
+              <xs:sequence>
+                <xs:element ref="tns:age"/>
+                <xs:element ref="tns:gender"/>
+              </xs:sequence>
+            </xs:complexType>
+          </xs:element>
+        </xs:sequence>
+        <xs:attribute name="id" type="xs:string"/>
+      </xs:complexType>
+
+      <xs:complexType name="GetLastName">
+        <xs:annotation>
+          <xs:documentation>Foo Bar</xs:documentation>
+        </xs:annotation>
+        <xs:complexContent>
+          <xs:restriction base="tns:GetFirstName">
+            <xs:sequence>
+              <xs:element name="userIdentifier" type="xs:string" minOccurs="0"/>
+            </xs:sequence>
+          </xs:restriction>
+        </xs:complexContent>
+      </xs:complexType>
+
+      <xs:element name="gender">
+        <xs:simpleType>
+          <xs:restriction base="xs:string">
+            <xs:enumeration value="male"/>
+            <xs:enumeration value="female"/>
+          </xs:restriction>
+        </xs:simpleType>
+      </xs:element>
+
+      <xs:element name="age">
+        <xs:simpleType>
+          <xs:restriction base="xs:integer">
+            <xs:minInclusive value="0"/>
+            <xs:maxInclusive value="100"/>
+          </xs:restriction>
+        </xs:simpleType>
+      </xs:element>
+    </xs:schema>
+  </types>
+
+  <message name="getFirstName">
+    <part name="parameters" element="tns:GetFirstName"/>
+  </message>
+  <message name="getLastName">
+    <part name="parameters" element="tns:GetLastName"/>
+  </message>
+
+  <message name="UserNameResponse">
+    <part name="parameters" element="xs:string"/>
+  </message>
+
+  <portType name="UserService">
+    <operation name="getFirstName">
+      <input message="tns:getFirstName"/>
+      <output message="tns:UserNameResponse"/>
+    </operation>
+    <operation name="getLastName">
+      <input message="tns:getLastName"/>
+      <output message="tns:UserNameResponse"/>
+    </operation>
+  </portType>
+
+  <binding name="UserServicePortBinding" type="tns:UserService">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="getFirstName">
+      <soap:operation soapAction=""/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+      <output>
+        <soap:body use="literal"/>
+      </output>
+    </operation>
+    <operation name="getLastName">
+      <soap:operation soapAction=""/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+      <output>
+        <soap:body use="literal"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="UserService">
+    <port name="UserServicePort" binding="tns:UserServicePortBinding">
+      <soap:address location="REPLACE_WITH_ACTUAL_URL"/>
+    </port>
+  </service>
+
+</definitions>