soap5r 2.0.0

data/lib/wsdl/xmlSchema/simpleRestriction.rb

@@ -0,0 +1,133 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema simpleContent restriction definition for WSDL.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+require 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class SimpleRestriction < Info
+  attr_reader :base
+  attr_accessor :length
+  attr_accessor :minlength
+  attr_accessor :maxlength
+  attr_accessor :pattern
+  attr_reader :enumeration
+  attr_accessor :whitespace
+  attr_accessor :maxinclusive
+  attr_accessor :maxexclusive
+  attr_accessor :minexclusive
+  attr_accessor :mininclusive
+  attr_accessor :totaldigits
+  attr_accessor :fractiondigits
+  attr_reader :fixed
+  attr_reader :attributes
+
+  def initialize
+    super
+    @base = nil
+    @enumeration = []   # NamedElements?
+    @length = nil
+    @maxlength = nil
+    @minlength = nil
+    @pattern = nil
+    @fixed = {}
+    @attributes = XSD::NamedElements.new
+  end
+  
+  def valid?(value)
+    return false unless check_restriction(value)
+    return false unless check_length(value)
+    return false unless check_maxlength(value)
+    return false unless check_minlength(value)
+    return false unless check_pattern(value)
+    true
+  end
+
+  def enumeration?
+    !@enumeration.empty?
+  end
+
+  def parse_element(element)
+    case element
+    when LengthName
+      Length.new
+    when MinLengthName
+      MinLength.new
+    when MaxLengthName
+      MaxLength.new
+    when PatternName
+      Pattern.new
+    when EnumerationName
+      Enumeration.new
+    when WhiteSpaceName
+      WhiteSpace.new
+    when MaxInclusiveName
+      MaxInclusive.new
+    when MaxExclusiveName
+      MaxExclusive.new
+    when MinExclusiveName
+      MinExclusive.new
+    when MinInclusiveName
+      MinInclusive.new
+    when TotalDigitsName
+      TotalDigits.new
+    when FractionDigitsName
+      FractionDigits.new
+    when AttributeName
+      o = Attribute.new
+      @attributes << o
+      o
+    when AttributeGroupName
+      o = AttributeGroup.new
+      @attributes << o
+      o
+    when AnyAttributeName
+      o = AnyAttribute.new
+      @attributes << o
+      o
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when BaseAttrName
+      @base = value
+    end
+  end
+
+private
+
+  def check_restriction(value)
+    @enumeration.empty? or @enumeration.include?(value)
+  end
+
+  def check_length(value)
+    @length.nil? or value.size == @length
+  end
+
+  def check_maxlength(value)
+    @maxlength.nil? or value.size <= @maxlength
+  end
+
+  def check_minlength(value)
+    @minlength.nil? or value.size >= @minlength
+  end
+
+  def check_pattern(value)
+    @pattern.nil? or @pattern =~ value
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/simpleType.rb

@@ -0,0 +1,88 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema simpleType definition for WSDL.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+require 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class SimpleType < Info
+  attr_accessor :name
+  attr_reader :restriction
+  attr_reader :list
+  attr_reader :union
+
+  def check_lexical_format(value)
+    if @restriction
+      check_restriction(value)
+    elsif @list
+      # TODO: check
+    elsif @union
+      # TODO: check
+    else
+      raise ArgumentError.new("incomplete simpleType")
+    end
+  end
+
+  def base
+    if @restriction
+      @restriction.base
+    else
+      nil
+    end
+  end
+
+  def initialize(name = nil)
+    super()
+    @name = name
+    @restriction = nil
+    @list = nil
+    @union = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when RestrictionName
+      @restriction = SimpleRestriction.new
+      @restriction
+    when ListName
+      @list = List.new
+      @list
+    when UnionName
+      @union = Union.new
+      @union
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    end
+  end
+
+private
+
+  def check_restriction(value)
+    unless @restriction.valid?(value)
+      raise XSD::ValueSpaceError.new("#{@name}: cannot accept '#{value}'")
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/totaldigits.rb

@@ -0,0 +1,38 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema totalDigits definition for WSDL.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+
+
+module WSDL
+module XMLSchema
+
+
+class TotalDigits < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when FixedAttrName
+      parent.fixed[:totaldigits] = to_boolean(value)
+    when ValueAttrName
+      parent.totaldigits = to_int(value)
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/union.rb

@@ -0,0 +1,36 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema union definition for WSDL.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+require 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class Union < Info
+  attr_reader :member_types
+
+  def initialize
+    super
+    @member_types = nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when MemberTypesAttrName
+      @member_types = value.source
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/unique.rb

@@ -0,0 +1,35 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema unique element.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+
+
+module WSDL
+module XMLSchema
+
+
+class Unique < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    # Accepts any element.
+    self
+  end
+
+  def parse_attr(attr, value)
+    # Accepts any attribute.
+    true
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/whitespace.rb

@@ -0,0 +1,38 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema whiteSpace definition for WSDL.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'wsdl/info'
+
+
+module WSDL
+module XMLSchema
+
+
+class WhiteSpace < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when FixedAttrName
+      parent.fixed[:whitespace] = to_boolean(value)
+    when ValueAttrName
+      parent.whitespace = value.source
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/xsd2ruby.rb

@@ -0,0 +1,176 @@
+# encoding: ASCII-8BIT
+# XSD4R - XSD to ruby mapping library.
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'xsd/codegen/gensupport'
+require 'wsdl/xmlSchema/importer'
+require 'wsdl/soap/classDefCreator'
+require 'wsdl/soap/classDefCreatorSupport'
+require 'wsdl/soap/literalMappingRegistryCreator'
+require 'wsdl/soap/classNameCreator'
+require 'logger'
+
+
+module WSDL
+module XMLSchema
+
+
+class XSD2Ruby
+  include WSDL::SOAP::ClassDefCreatorSupport
+
+  attr_accessor :location
+  attr_reader :opt
+  attr_accessor :logger
+  attr_accessor :basedir
+
+  def run
+    unless @location
+      raise RuntimeError, "XML Schema location not given"
+    end
+    @xsd = import(@location)
+    @name = @opt['classdef'] || create_classname(@xsd)
+    create_file
+  end
+
+private
+
+  def initialize
+    @location = nil
+    @opt = {}
+    @logger = Logger.new(STDERR)
+    @basedir = nil
+    @xsd = nil
+    @name = nil
+    @name_creator = WSDL::SOAP::ClassNameCreator.new
+  end
+
+  def create_file
+    @modulepath = @opt['module_path']
+    create_classdef if @opt.key?('classdef')
+    create_mapping_registry if @opt.key?('mapping_registry')
+    create_mapper if @opt.key?('mapper')
+  end
+
+  def create_classdef
+    @logger.info { "Creating class definition." }
+    @classdef_filename = @name + '.rb'
+    check_file(@classdef_filename) or return
+    write_file(@classdef_filename) do |f|
+      f << WSDL::SOAP::ClassDefCreator.new(@xsd, @name_creator, @modulepath).dump
+    end
+  end
+
+  def create_mapping_registry
+    @logger.info { "Creating mapping registry definition." }
+    @mr_filename = @name + '_mapping_registry.rb'
+    check_file(@mr_filename) or return
+    write_file(@mr_filename) do |f|
+      f << dump_mapping_registry
+    end
+  end
+
+  def create_mapper
+    @logger.info { "Creating mapper definition." }
+    @mapper_filename = @name + '_mapper.rb'
+    check_file(@mapper_filename) or return
+    write_file(@mapper_filename) do |f|
+      f << dump_mapper
+    end
+  end
+
+  def dump_mapping_registry
+    defined_const = {}
+    creator = WSDL::SOAP::LiteralMappingRegistryCreator.new(@xsd, @name_creator, @modulepath, defined_const)
+    module_name = XSD::CodeGen::GenSupport.safeconstname(@name + 'MappingRegistry')
+    if @modulepath
+      module_name = [@modulepath, module_name].join('::')
+    end
+    m = XSD::CodeGen::ModuleDef.new(module_name)
+    m.def_require("xsd/mapping")
+    m.def_require("#{@classdef_filename}")
+    varname = 'Registry'
+    m.def_const(varname, '::SOAP::Mapping::LiteralRegistry.new')
+    m.def_code(creator.dump(varname))
+    #
+    defined_const.each do |ns, tag|
+      m.def_const(tag, dq(ns))
+    end
+    m.dump
+  end
+
+  def dump_mapper
+    class_name = XSD::CodeGen::GenSupport.safeconstname(@name + 'Mapper')
+    if @modulepath
+      class_name = [@modulepath, class_name].join('::')
+    end
+    mr_name = XSD::CodeGen::GenSupport.safeconstname(@name + 'MappingRegistry')
+    c = XSD::CodeGen::ClassDef.new(class_name, 'XSD::Mapping::Mapper')
+    c.def_require("#{@mr_filename}")
+    c.def_method("initialize") do
+      "super(#{mr_name}::Registry)"
+    end
+    c.dump
+  end
+
+  def write_file(filename)
+    if @basedir
+      filename = File.join(basedir, filename)
+    end
+    File.open(filename, "w") do |f|
+      f.puts "# encoding: ASCII-8BIT"
+      yield f
+    end
+  end
+
+  def check_file(filename)
+    if @basedir
+      filename = File.join(basedir, filename)
+    end
+    if FileTest.exist?(filename)
+      if @opt.key?('force')
+	@logger.warn {
+	  "File '#{filename}' exists but overrides it."
+	}
+	true
+      else
+	@logger.warn {
+	  "File '#{filename}' exists.  #{$0} did not override it."
+	}
+	false
+      end
+    else
+      @logger.info { "Creates file '#{filename}'." }
+      true
+    end
+  end
+
+  def create_classname(xsd)
+    name = nil
+    if xsd.targetnamespace
+      name = xsd.targetnamespace.scan(/[a-zA-Z0-9]+$/)[0]
+    end
+    if name.nil?
+      'default'
+    else
+      XSD::CodeGen::GenSupport.safevarname(name)
+    end
+  end
+
+  def import(location)
+    WSDL::XMLSchema::Importer.import(location)
+  end
+end
+
+
+end
+end
+
+
+if __FILE__ == $0
+  warn("WARNING: #{File.expand_path(__FILE__)} is a library file used by bin/xsd2ruby.rb.  Find bin/xsd2ruby.rb from tarball version of soap4r or install soap4r via gem.")
+end