tiss-ruby 0.1.0

data/lib/tiss/tiss.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+require 'date'
+require 'dry-configurable'
+require 'nokogiri'
+
+require_relative 'constants'
+require_relative 'xsd/convert'
+require_relative 'generator/generator'
+require_relative 'model'
+require_relative 'creator'
+
+
+Dir[File.join(__dir__, 'models', '*.rb')].sort.each { |file| require file }
+
+module Tiss
+  extend Dry::Configurable
+
+  setting :default_version, '3_02_00'
+  setting :available_versions, %w[3_02_00 3_02_01 3_02_02 3_03_01 3_03_02 3_03_03 3_04_00]
+
+  # TODO: Refactor this
+  class ConvertFromXsd
+    def initialize
+      Tiss.config.available_versions.each do |version|
+        %w[tissComplexTypes tissGuias tiss].each do |xml_name|
+          puts "./resources/V#{[xml_name, version].join}.xsd"
+          Tiss::Convert.models_from(version, File.open("./resources/#{[xml_name, 'V', version].join}.xsd"))
+        end
+      end
+    end
+  end
+end
+
+def require_all(_dir)
+  Dir[File.expand_path(File.join(File.dirname(File.absolute_path(__FILE__)), _dir)) + '/**/*.rb'].sort.each do |file|
+    require file
+  end
+end

data/lib/tiss/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Tiss
+  VERSION = '0.1.0'
+end

data/lib/tiss/xsd/class_maker.rb

@@ -0,0 +1,242 @@
+# frozen_string_literal: true
+
+require 'active_model'
+require 'active_support'
+
+module ClassMaker
+  include ActiveSupport::Inflector
+
+  XMLSchemaNS = 'http://www.w3.org/2001/XMLSchema'
+
+  def make_definition(node, target = Object)
+    return if is_text node
+    return if node.comment?
+    return if node.name === 'include'
+
+    attrs = node.attributes.to_hash
+    return unless attrs['name'].present?
+
+    name = attrs['name'].value
+
+    if is_element(node) || is_choice(node)
+      type = attrs['type'].value if attrs.key? 'type'
+      if type.nil?
+        complex_node = select_children(node, 'complexType').first
+        defined_class_name = define_class name, complex_node, target
+        { name: name, type: defined_class_name }
+      else
+        { name: name, type: sanitize_class_name(type.split(':').last) }
+      end
+    elsif is_simple node
+      unless name.nil?
+        restrictions = select_children(node, 'restriction').first
+        Tiss::Generator::ValidatorGenerator.call(@version, name, restrictions, target)
+      end
+    elsif is_complex_root node
+      define_class name, node, target
+    end
+  end
+
+  private
+
+  def namespace_of(node)
+    node.namespace&.href
+  end
+
+  def is_text(node)
+    node.name == 'text'
+  end
+
+  def is_xml_schema_node(node)
+    namespace_of(node) == XMLSchemaNS
+  end
+
+  def is_element(node)
+    is_xml_schema_node(node) && (node.name == 'element')
+  end
+
+  def is_choice(node)
+    is_xml_schema_node(node) && (node.name == 'choice')
+  end
+
+  def is_simple(node)
+    is_xml_schema_node(node) && (node.name == 'simpleType')
+  end
+
+  def is_complex_root(node)
+    is_xml_schema_node(node) && (node.name == 'complexType')
+  end
+
+  def is_father(node)
+    is_xml_schema_node(node) && (node.name == 'complexType')
+  end
+
+  def sanitize_class_name(name)
+    name = underscore(name)
+    camelize(name.to_s.sub(/.*\./, ''))
+  end
+
+  def define_class(name, node, _target)
+    name = sanitize_class_name(name)
+
+    extension_class = ''
+    complex_content = select_children(node, 'complexContent')
+    extension = select_children(complex_content.first, 'extension').first
+    extension_type = extension.attributes['base'].value if extension
+    if extension
+      extension_class = sanitize_class_name(extension_type.split(':').last)
+    end
+
+    elems = []
+    unless node.nil?
+
+      # Take 4
+      elems = elements_by_node(node)
+
+      # Take 3
+      # parent_node = node
+      # until parent_node.children.empty?
+      #   elems << select_children(parent_node.children, 'element')
+      #   parent_node = parent_node.children.select(&:present?).first
+      # end
+
+
+      # Take 2
+      # parent_node = select_children(node, 'sequence')
+      # parent_node = select_children(node, 'choice') if !parent_node || parent_node.empty?
+      #
+      # choices = []
+      # choices = select_children parent_node.first, 'choice' unless parent_node.empty?
+      #
+      # elems = select_children parent_node.first, 'element' unless parent_node.empty?
+      # unless parent_node.empty? || choices.empty?
+      #   elems += select_children choices.first, 'element'
+      # end
+
+      # Take 1
+      # sequence = select_children node, 'sequence'
+      # choices = select_children sequence.first, 'choice' unless sequence.empty?
+      # elems = select_children sequence.first, 'element' unless sequence.empty?
+      # unless sequence.empty? || choices.empty?
+      #   elems += select_children choices.first, 'element'
+      # end
+    end
+
+    attributes = elems.flatten.map do |e|
+      make_definition(e, self)
+    end
+
+    return if attributes.blank?
+
+    Tiss::Generator::ModelGenerator.append(@version, name, attributes, extension_class)
+    name
+  end
+
+  def elements_by_node(node)
+    elems = []
+    node.children.each do |element|
+      next if element.nil?
+
+      if is_element(element)
+        elems << element
+        next
+      end
+      elems << elements_by_node(element)
+    end
+    elems.flatten.compact
+  end
+
+  def define_validator(name, restrictions, target)
+    name = "#{underscore(name)}_validator"
+    name = camelize(name.to_s.sub(/.*\./, ''))
+
+    base = restrictions
+           .attributes['base'].value.split(':').last
+
+    base = case base
+           when 'decimal'
+             'float'
+           when 'boolean'
+             'true_class'
+           else
+             base
+           end
+
+    type = constantize classify base
+
+    ws_action = select_children(restrictions, 'whiteSpace').first
+    ws_action = ws_action.attributes['value'].value unless ws_action.nil?
+
+    enum_values = select_children(restrictions, 'enumeration').collect do |enum|
+      enum.attributes['value'].value
+    end
+
+    pattern = select_children(restrictions, 'pattern').first
+    pattern = pattern.attributes['value'].value unless pattern.nil?
+
+    cls = Class.new ActiveModel::EachValidator do
+      const_set 'TYPE', type
+      const_set('WS_ACTION', ws_action) unless ws_action.nil?
+      const_set 'ENUM_VALUES', enum_values
+      unless pattern.nil?
+        const_set 'PATTERN', pattern
+        const_set 'REGEXP', Regexp.new("^#{pattern}$")
+      end
+
+      def validate_each(record, attribute, value)
+        validate_type record, attribute, value
+        handle_whitespaces record, attribute, value
+        unless self.class::ENUM_VALUES.empty?
+          validate_enumeration record, attribute, value
+        end
+        if self.class.const_defined? 'REGEXP'
+          validate_regexp record, attribute, value
+        end
+      end
+
+      private
+
+      def validate_type(record, attribute, value)
+        unless value.is_a? self.class::TYPE
+          add_error record, attribute, "#{value}: not a #{self.class::TYPE}"
+        end
+      end
+
+      def handle_whitespaces(record, attribute, value)
+        if self.class.const_defined? 'WS_ACTION'
+          case self.class::WS_ACTION
+          when 'replace' then value.gsub! /[\n\t\r ]/, ' '
+          when 'collapse' then
+            value.gsub! /[\n\t\r]/, ' '
+            value = value.split.join ' '
+          end
+          record.send "#{attribute}=", value
+        end
+      end
+
+      def validate_enumeration(record, attribute, value)
+        unless self.class::ENUM_VALUES.include? value.to_s
+          add_error record, attribute, "#{value}: not in #{self.class::ENUM_VALUES}"
+        end
+      end
+
+      def validate_regexp(record, attribute, value)
+        unless value =~ self.class::REGEXP
+          add_error record, attribute, "#{value}: not matching #{self.class::PATTERN}"
+        end
+      end
+
+      def add_error(record, attribute, message = '')
+        record.errors[attribute] << (options[:message] || message)
+      end
+    end
+    ap name
+    target.const_set name, cls
+  end
+
+  def select_children(node, name)
+    return [] unless node
+
+    node.children.select { |n| n.name == name }
+  end
+end

data/lib/tiss/xsd/convert.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+require 'nokogiri'
+require_relative 'class_maker'
+
+module Tiss
+  class Convert
+    class << self
+      include ClassMaker
+
+      def models_from(version, xsd_definitions)
+        doc = Nokogiri::XML xsd_definitions
+        @version = version
+
+        children = doc.children.reject { |node| node.name == 'comment' }
+        schema = children.first
+
+        raise 'Invalid XMLSchema root' if schema.name != 'schema'
+        raise 'Missing XMLSchema namespace' if schema.namespace.nil?
+        raise 'Wrong XMLSchema namespace' unless is_xml_schema_node schema
+
+        schema.children.each { |node| make_definition node }
+      end
+    end
+  end
+end

data/lib/tiss-ruby.rb

@@ -0,0 +1,3 @@
+# frozen_string_literal: true
+
+require 'tiss/tiss'

data/lib/xsd/class_maker.rb

@@ -0,0 +1,219 @@
+# frozen_string_literal: true
+
+require 'active_model'
+require 'active_support'
+
+module ClassMaker
+  include ActiveSupport::Inflector
+
+  XMLSchemaNS = 'http://www.w3.org/2001/XMLSchema'
+
+  def make_definition(node, target = Object)
+    return if is_text node
+    return if node.comment?
+    return if node.name === 'include'
+
+    attrs = node.attributes.to_hash
+    return unless attrs['name'].present?
+
+    name = attrs['name'].value
+
+    if is_element(node) || is_choice(node)
+      type = attrs['type'].value if attrs.key? 'type'
+      if type.nil?
+        complex_node = select_children(node, 'complexType').first
+        defined_class_name = define_class name, complex_node, target
+        { name: name, type: defined_class_name }
+      else
+        { name: name, type: sanitize_class_name(type.split(':').last) }
+      end
+    elsif is_simple node
+      unless name.nil?
+        restrictions = select_children(node, 'restriction').first
+        Tiss::Generator::ValidatorGenerator.call(@version, name, restrictions, target)
+      end
+    elsif is_complex_root node
+      define_class name, node, target
+    end
+  end
+
+  private
+
+  def namespace_of(node)
+    node.namespace.href
+  end
+
+  def is_text(node)
+    node.name == 'text'
+  end
+
+  def is_xml_schema_node(node)
+    namespace_of(node) == XMLSchemaNS
+  end
+
+  def is_element(node)
+    is_xml_schema_node(node) && (node.name == 'element')
+  end
+
+  def is_choice(node)
+    is_xml_schema_node(node) && (node.name == 'choice')
+  end
+
+  def is_simple(node)
+    is_xml_schema_node(node) && (node.name == 'simpleType')
+  end
+
+  def is_complex_root(node)
+    is_xml_schema_node(node) && (node.name == 'complexType')
+  end
+
+  def sanitize_class_name(name)
+    name = underscore(name)
+    camelize(name.to_s.sub(/.*\./, ''))
+  end
+
+  def define_class(name, node, _target)
+    name = sanitize_class_name(name)
+
+    extension_class = ''
+    complex_content = select_children(node, 'complexContent')
+    extension = select_children(complex_content.first, 'extension').first
+    extension_type = extension.attributes['base'].value if extension
+    if extension
+      extension_class = sanitize_class_name(extension_type.split(':').last)
+    end
+
+    elems = []
+    unless node.nil?
+
+      parent_node = node
+      until parent_node.children.empty?
+        elems << select_children(parent_node.children, 'element')
+        parent_node = parent_node.children.select(&:present?).first
+      end
+
+      # Take 2
+      # parent_node = select_children(node, 'sequence')
+      # parent_node = select_children(node, 'choice') if !parent_node || parent_node.empty?
+      #
+      # choices = []
+      # choices = select_children parent_node.first, 'choice' unless parent_node.empty?
+      #
+      # elems = select_children parent_node.first, 'element' unless parent_node.empty?
+      # unless parent_node.empty? || choices.empty?
+      #   elems += select_children choices.first, 'element'
+      # end
+
+      # Take 1
+      # sequence = select_children node, 'sequence'
+      # choices = select_children sequence.first, 'choice' unless sequence.empty?
+      # elems = select_children sequence.first, 'element' unless sequence.empty?
+      # unless sequence.empty? || choices.empty?
+      #   elems += select_children choices.first, 'element'
+      # end
+    end
+
+    attributes = elems.flatten.map do |e|
+      make_definition(e, self)
+    end
+
+    return if attributes.blank?
+
+    Tiss::Generator::ModelGenerator.append(@version, name, attributes, extension_class)
+    name
+  end
+
+  def define_validator(name, restrictions, target)
+    name = "#{underscore(name)}_validator"
+    name = camelize(name.to_s.sub(/.*\./, ''))
+
+    base = restrictions
+           .attributes['base'].value.split(':').last
+
+    base = case base
+           when 'decimal'
+             'float'
+           when 'boolean'
+             'true_class'
+           else
+             base
+           end
+
+    type = constantize classify base
+
+    ws_action = select_children(restrictions, 'whiteSpace').first
+    ws_action = ws_action.attributes['value'].value unless ws_action.nil?
+
+    enum_values = select_children(restrictions, 'enumeration').collect do |enum|
+      enum.attributes['value'].value
+    end
+
+    pattern = select_children(restrictions, 'pattern').first
+    pattern = pattern.attributes['value'].value unless pattern.nil?
+
+    cls = Class.new ActiveModel::EachValidator do
+      const_set 'TYPE', type
+      const_set('WS_ACTION', ws_action) unless ws_action.nil?
+      const_set 'ENUM_VALUES', enum_values
+      unless pattern.nil?
+        const_set 'PATTERN', pattern
+        const_set 'REGEXP', Regexp.new("^#{pattern}$")
+      end
+
+      def validate_each(record, attribute, value)
+        validate_type record, attribute, value
+        handle_whitespaces record, attribute, value
+        unless self.class::ENUM_VALUES.empty?
+          validate_enumeration record, attribute, value
+        end
+        if self.class.const_defined? 'REGEXP'
+          validate_regexp record, attribute, value
+        end
+      end
+
+      private
+
+      def validate_type(record, attribute, value)
+        unless value.is_a? self.class::TYPE
+          add_error record, attribute, "#{value}: not a #{self.class::TYPE}"
+        end
+      end
+
+      def handle_whitespaces(record, attribute, value)
+        if self.class.const_defined? 'WS_ACTION'
+          case self.class::WS_ACTION
+          when 'replace' then value.gsub! /[\n\t\r ]/, ' '
+          when 'collapse' then
+            value.gsub! /[\n\t\r]/, ' '
+            value = value.split.join ' '
+          end
+          record.send "#{attribute}=", value
+        end
+      end
+
+      def validate_enumeration(record, attribute, value)
+        unless self.class::ENUM_VALUES.include? value.to_s
+          add_error record, attribute, "#{value}: not in #{self.class::ENUM_VALUES}"
+        end
+      end
+
+      def validate_regexp(record, attribute, value)
+        unless value =~ self.class::REGEXP
+          add_error record, attribute, "#{value}: not matching #{self.class::PATTERN}"
+        end
+      end
+
+      def add_error(record, attribute, message = '')
+        record.errors[attribute] << (options[:message] || message)
+      end
+    end
+    ap name
+    target.const_set name, cls
+  end
+
+  def select_children(node, name)
+    return [] unless node
+
+    node.children.select { |n| n.name == name }
+  end
+end

data/lib/xsd/convert.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+require 'nokogiri'
+require_relative 'class_maker'
+
+module Tiss
+  class Convert
+    class << self
+      include ClassMaker
+
+      def models_from(version, xsd_definitions)
+        doc = Nokogiri::XML xsd_definitions
+        @version = version
+
+        children = doc.children.reject { |node| node.name == 'comment' }
+        schema = children.first
+
+        raise 'Invalid XMLSchema root' if schema.name != 'schema'
+        raise 'Missing XMLSchema namespace' if schema.namespace.nil?
+        raise 'Wrong XMLSchema namespace' unless is_xml_schema_node schema
+
+        schema.children.each { |node| make_definition node }
+      end
+    end
+  end
+end

data/resources/tissAssinaturaDigital_v1.01.xsd

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!-- ***************************************************-->
+<!-- ***   Schema para assinaturas XML  ***-->
+<!-- *** a partir de certificados do padrão (X509)   ***-->
+<!-- *** ICP-Brasil - Projeto TISS***-->
+<!-- ***************************************************-->
+<!-- Schema for XML Signatures-->
+<!--<schema xmlns="http://www.w3.org/2001/XMLSchema" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" targetNamespace="http://www.w3.org/2000/09/xmldsig#" elementFormDefault="qualified" attributeFormDefault="unqualified" version="0.1">-->
+<schema xmlns="http://www.w3.org/2001/XMLSchema" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:ns1="http://www.ans.gov.br/padroes/tiss/schemas" targetNamespace="http://www.ans.gov.br/padroes/tiss/schemas" elementFormDefault="qualified" version="0.1">
+	<import namespace="http://www.w3.org/2000/09/xmldsig#" schemaLocation="xmldsig-core-schema.xsd"/>
+	<complexType name="assinaturaDigital">
+		<complexContent>
+			<extension base="ds:SignatureType" />
+		</complexContent>
+	</complexType>
+</schema>