expressir 0.1.0

data/lib/expressir/express/explicit_aggregate.rb

@@ -0,0 +1,46 @@
+require "expressir/express/aggregate_dimension"
+
+module Expressir
+  module Express
+    class ExplicitAggregate < Explicit
+      attr_accessor :rank, :dimensions
+
+      def initialize(options = {})
+        @rank = 0
+        @dimensions = []
+        @isOptional = false
+
+        super(options)
+      end
+
+      private
+
+      def extract_type_specific_attributes(document)
+        @dimensions = document.xpath("aggregate").map do |aggregate|
+          Express::AggregateDimension.parse(aggregate)
+        end
+
+        @rank = @dimensions.size
+        extract_inverse_aggregate(document)
+      end
+
+      # @todo: Non existance attributes
+      #
+      # In the codebase, they are trying to add couple of aggregate
+      # dimensions related attributes that was never a part of the
+      # Explict class, but for consistency we are keeping those as
+      # it is for now. let's revist those later and fix it.
+      #
+      def extract_inverse_aggregate(document)
+        aggregates = document.xpath("inverse.aggregate")
+
+        if !aggregates.empty?
+          dimension = Express::AggregateDimension.parse(aggregates.first)
+          @aggrtype = dimension.aggrtype
+          @lower = dimension.lower
+          @upper = dimension.upper
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express/explicit_or_derived.rb

@@ -0,0 +1,16 @@
+require "expressir/express/attribute"
+
+module Expressir
+  module Express
+    class ExplicitOrDerived < Attribute
+      attr_accessor :isBuiltin, :isFixed, :width, :precision
+
+      def initialize
+        @isBuiltin = false
+        @isFixed = false
+        @width = nil
+        @precision = nil
+      end
+    end
+  end
+end

data/lib/expressir/express/global_rule.rb

@@ -0,0 +1,44 @@
+require "expressir/express/model_element"
+
+module Expressir
+  module Express
+    class GlobalRule < ModelElement
+      attr_accessor :name, :entities, :algorithm, :wheres,
+        :schema, :entities_array
+
+      def initialize(options = {})
+        @entities_array = []
+        @wheres = []
+
+        @options = options
+        @schema = options.fetch(:schema, nil)
+      end
+
+      def parse
+        document = @options.fetch(:document)
+        extract_rule_attributes(document)
+
+        self
+      end
+
+      def self.parse(document, schema)
+        new(document: document, schema: schema).parse
+      end
+
+      private
+
+      def extract_rule_attributes(document)
+        @wheres = extract_where_rules(document)
+        @name = document.attributes["name"].to_s
+        @entities = document.attributes["appliesto"].to_s
+        @algorithm = document.attributes["algorithm"]
+      end
+
+      def extract_where_rules(document)
+        document.xpath("where").map do |where|
+          Express::WhereRule.parse(where)
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express/interface_specification.rb

@@ -0,0 +1,51 @@
+require "expressir/express/model_element"
+
+module Expressir
+  module Express
+    class InterfaceSpecification < ModelElement
+      attr_accessor :kind, :current_schema, :explicit_items,
+        :current_schema_id, :foreign_schema_id, :foreign_schema
+
+      def initialize(attributes = {}) 
+        @explicit_items = []
+        @attributes = attributes
+      end
+
+      def parse
+        extract_attributes(@attributes)
+      end
+
+      def self.parse(document, schema)
+        new(document: document, schema: schema).parse
+      end
+
+      private
+
+      # Note:
+      #
+      # The the old version was passing around the whole instance
+      # of the schema, and that might be one of the reason why the
+      # parsing was super slow.
+      #
+      # So, we are not passing around an instnace anymore, but the
+      # name of the schema, and later if we find out there is actually
+      # a reason to do that then we wil add it back.
+      #
+      def extract_attributes(document, options)
+        @foreign_schema = options.fetch("schema")
+        @foreign_schema_id = foreign_schema&.name&.to_s
+        @current_schema = foreign_schema
+        @foreign_schema_id = foreign_schema_id
+
+        @kind = document.attributes["kind"].to_s
+        @explicit_items = extract_items(document, foreign_schema)
+      end
+
+      def extract_items(document, schema)
+        document.xpath("interfaced.item").map do |item|
+          InterfacedItem.parse(document, schema)
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express/interfaced_item.rb

@@ -0,0 +1,38 @@
+module Expressir
+  module Express
+    class InterfacedItem
+      attr_accessor :name, :original_name, :foreign_schema, :foreign_type
+
+      def initialize(attributes = {})
+        @original_name = nil
+        @attributes = attributes
+      end
+
+      def parse
+        schema = attributes.extract(:schema, nil)
+        document = attributes.extract(:document, nil)
+
+        extract_attributes(document, schema)
+      end
+
+      def self.parse(document, schema)
+        new(document: document, schema: schema).parse
+      end
+
+      private
+
+      attr_reader :attributes
+
+      def extract_attributes(document, schema)
+        @foreign_schema = schema
+        @name = document.attributes["name"].to_s
+
+        if document.attributes["alias"] != nil
+          @name = document.attributes["alias"].to_s
+          @original_name = document.attributes["name"].to_s
+        end
+      end
+    end
+  end
+end
+

data/lib/expressir/express/inverse.rb

@@ -0,0 +1,46 @@
+module Expressir
+  module Express
+    class Inverse < Attribute
+      attr_accessor :reverseAttr_id, :reverseAttr, :reverseEntity
+
+      def initialize(options = {})
+        @options = options
+        @entity = options.fetch(:entity, nil)
+      end
+
+      def parse
+        document = @options.fetch(:document)
+        extract_common_attributes(document)
+        extract_type_specific_attributes(document)
+
+        self
+      end
+
+      def self.parse(document, entity)
+        new(document: document, entity: entity).parse
+      end
+
+      private
+
+      def extract_type_specific_attributes(document); end
+
+      def extract_common_attributes(document)
+        @name = document.attributes["name"].to_s
+        @reverseAttr_id = document.attributes["attribute"]
+        @domain = document.attributes["entity"].to_s
+
+        extract_redeclaration_attributes(document)
+      end
+
+      def extract_redeclaration_attributes(document)
+        redeclaration = document.xpath("redeclaration").first
+
+        if redeclaration
+          @redeclare_entity = redeclaration.attributes["entity-ref"].to_s
+          old_name = redeclaration.attributes["old_name"]
+          @redeclare_oldname = old_name.to_s if old_name
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express/inverse_aggregate.rb

@@ -0,0 +1,37 @@
+module Expressir
+  module Express
+    class InverseAggregate < Inverse
+      attr_accessor :aggrtype, :lower, :upper
+
+      def initialize(options = {})
+        @aggrtype = "SET"
+        @lower = "0"
+        @upper = "?"
+
+        super(options)
+      end
+
+      private
+
+      def extract_type_specific_attributes(document)
+        @dimensions = document.xpath("aggregate").map do |aggregate|
+          Express::AggregateDimension.parse(aggregate)
+        end
+
+
+        extract_inverse_aggregate(document)
+      end
+
+      def extract_inverse_aggregate(document)
+        aggregates = document.xpath("inverse.aggregate")
+
+        if !aggregates.empty?
+          dimension = Express::AggregateDimension.parse(aggregates.first)
+          @aggrtype = dimension.aggrtype
+          @lower = dimension.lower
+          @upper = dimension.upper
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express/model_element.rb

@@ -0,0 +1,7 @@
+module Expressir
+  module Express
+    class ModelElement
+      attr_accessor :definition
+    end
+  end
+end

data/lib/expressir/express/named_type.rb

@@ -0,0 +1,19 @@
+require "expressir/express/model_element"
+
+module Expressir
+  module Express
+    class NamedType < ModelElement
+      attr_accessor :name, :schema, :wheres, :selectedBy
+
+      def self.find_by_name(name)
+        found = nil
+
+        ObjectSpace.each_object(NamedType) do |obj|
+          found = obj if obj.name == name
+        end
+
+        found
+      end
+    end
+  end
+end

data/lib/expressir/express/remark.rb

@@ -0,0 +1,8 @@
+require "expressir/express/comment"
+
+module Expressir
+  module Express
+    class Remark < Comment
+    end
+  end
+end

data/lib/expressir/express/repository.rb

@@ -0,0 +1,306 @@
+require "expressir/express/interface_specification"
+
+module Expressir
+  module Express
+    class Repository
+      @@next_integer_id = 0
+      attr_accessor :name, :schemas
+
+      def initialize(options = {}) @file = options.fetch(:file, nil)
+        @schemas = options.fetch(:schemas, [])
+      end
+
+      # @todo Existing Code
+      #
+      # Please revisit this soon, and check if this is necessary
+      # after our recent restrucutre, if not then delegate this
+      # behavior to the respective instanace.
+      #
+      def get_next_integer
+        @@next_integer_id += 1
+        @@next_integer_id
+      end
+
+      # @todo Existing Code
+      #
+      # Please revisit this soon, and check if this is necessary
+      # after our recent restrucutre, if not then delegate this
+      # behavior to the respective instanace.
+      #
+      def get_xmlid(thing)
+        if !thing.class.name.include? "::"
+          "id-" + thing.class.name + "-" + get_next_integer.to_s
+        else
+          thing_type = thing.class.name.split("::")
+          "id-" + thing_type[1] + "-" + get_next_integer.to_s
+        end
+      end
+
+      # @todo Existing Code
+      #
+      # Please revisit this soon, and check if this is necessary
+      # after our recent restrucutre, if not then delegate this
+      # behavior to the respective instanace.
+      #
+      def find_namedtype_by_name(typename)
+        foundtype = nil
+
+        while foundtype == nil
+          schemas.each do |schema|
+            foundtype = schema.find_namedtype_by_name(typename)
+            break unless foundtype.nil?
+          end
+        end
+
+        foundtype
+      end
+
+      def parse
+        @name = document.xpath("//express/schema/@name").to_s
+
+        @schemas = document.xpath("//express/schema").map do |schema|
+          Expressir::Express::SchemaDefinition.new(schema)
+        end
+
+        # @todo: Disabling for now
+        #
+        #post_process_repository
+        self
+      end
+
+      def self.from_xml(file)
+        new(file: file).parse
+      end
+
+      private
+
+      def document
+        @document ||= File.open(@file) { |fpath| Nokogiri::XML(fpath) }
+      end
+
+      # @todo Existing Code
+      #
+      # Please revisit this soon, and check if this is necessary
+      # after our recent restrucutre, if not then delegate this
+      # behavior to the respective instanace.
+      #
+      def post_process_repository
+        schemas.each do |schema|
+          schema.all_schema_array = get_all_interfaced_schemas(schema)
+
+          schema.contents.each do |content|
+            post_process_schema_content(content, schema)
+          end
+
+          # @todo: Copying existing code
+          #
+          # I'm not sure why we are running the content loop again, when
+          # we already had that one once, but I'm keeping it as it for now
+          # since this might be something we actually need to run after the
+          # initial pointer/linking setup, but please revisit and clean this
+          # up once we have more visibility.
+          #
+          schema.contents.each do |content|
+            if content.is_a?(Express::Entity)
+              content.attributes.each do |attr|
+                if attr.is_a?(Express::Inverse)
+                  attr_to_find = attr.reverseAttr_id
+                  attr.reverseEntity = schema.find_namedtype_by_name(attr.domain)
+                  attr.reverseAttr = attr.reverseEntity.find_attr_by_name_full(
+                    attr_to_find
+                  )
+                end
+              end
+            end
+          end
+        end
+      end
+
+      # @todo: Existing Code
+      #
+      # We are just copying over this method from the existing codebase
+      # please revisit this one soon, this is recursively calling itself
+      # and this might be one of the potential reason for slow parsing
+      #
+      def get_all_interfaced_schemas(schema, schema_list = [])
+        ispec_list = schema.contents.select do |content|
+          content.is_a? Express::InterfaceSpecification
+        end
+
+        if !ispec_list&.nil?
+          ispec_list.each do |ispec|
+            if !(schema_list.include? ispec.foreign_schema)
+              schema_list.push ispec.foreign_schema
+            end
+
+            get_all_interfaced_schemas(ispec.foreign_schema, schema_list)
+          end
+        end
+
+        schema_list
+      end
+
+      def post_process_schema_content(content, schema)
+        post_process_interface_specification(content)
+        post_process_type_select(content, schema)
+        post_process_golbal_rules(content, schema)
+        post_process_entity(content, schema)
+      end
+
+      # @todo: Existing Code
+      #
+      # Neeed to double check if this is actually necessary in the long
+      # run, or use the new strucutre to handle these kind of linking.
+      #
+      def post_process_interface_specification(content)
+        if content.is_a? Express::InterfaceSpecification
+          content.explicit_items.each do |item|
+            name_to_find = item.original_name || item.name
+            type = content.foreign_schema.find_namedtype_by_name(name_to_find)
+            item.foreign_type = type if type
+          end
+        end
+      end
+
+      # @todo: Existing Code
+      #
+      # Need to be double check, and see if what's the actually point
+      # of having those linked into the instances, and if there are then
+      # we should also look for ways to handle those with the classes.
+      #
+      def post_process_type_select(content, schema)
+        if content.is_a?(Express::TypeSelect)
+          if !content.extends.nil?
+            content.extends_item = schema.find_namedtype_by_name(content.extends)
+          end
+
+          if !content.selectitems.nil?
+            select_temp = content.selectitems.to_s.scan(/\w+/)
+
+            select_temp.each do |name|
+              thetype = schema.find_namedtype_by_name(name)
+
+              if thetype
+                content.selectitems_array.push(thetype)
+                thetype.selectedBy.push(content)
+              else
+                Expressir.ui.error("ERROR : SELECT Item Not Found : " + name)
+              end
+            end
+          end
+        end
+      end
+
+      # @todo: Existing Code
+      #
+      # Please revisit this soon, and investigate the actual necessity
+      # of this post processing, and if there are anything we can do with
+      # the actual instance, specially when we are extracting the instance
+      #
+      def post_process_golbal_rules(content, schema)
+        if content.is_a?(Express::GlobalRule)
+          ent_temp = content.entities.to_s.scan(/\w+/)
+
+          ent_temp.each do |name|
+            thetype = schema.find_namedtype_by_name(name.to_s)
+
+            if thetype
+              content.entities_array.push(thetype)
+            else
+              Expressir.ui.error("ERROR : Rule Entity Not Found : " + name)
+            end
+          end
+        end
+      end
+
+      # @todo: Existing Code
+      #
+      # Please revisit this soon, and investigate the actual necessity
+      # of this post processing, and if there are anything we can do with
+      # the actual instance, specially when we are extracting the instance
+      #
+      def post_process_entity(content, schema)
+        if content.is_a?(Express::Entity)
+          if content.supertypes
+            supername_array = content.supertypes.to_s.scan(/\w+/)
+
+            supername_array.each do |supername|
+              thetype = schema.find_namedtype_by_name(supername)
+
+              if thetype
+                content.supertypes_array.push(thetype)
+              else
+                Expressir.ui.error(
+                  "ERROR : SUPERTYPE Item Not Found : " + supername,
+                )
+              end
+            end
+          end
+
+          if content.supertypes
+            content.supertypes_all = get_all_supertypes(content, "")
+          end
+
+          if content.supertypes_all
+            all_supername_array = content.supertypes_all.scan(/\w+/)
+
+            all_supername_array.each do |supername|
+              supertype = schema.find_namedtype_by_name(supername)
+
+              supertype.attributes.each do |superattr|
+                content.attributes_all_array.push(superattr)
+              end
+            end
+          end
+
+          content.attributes.each do |localattr|
+            content.attributes_all_array.push(localattr)
+          end
+
+          attributes_to_remove = []
+
+          content.attributes_all_array.each do |next_attr|
+            if next_attr.redeclare_entity
+              the_entity = schema.find_namedtype_by_name(
+                next_attr.redeclare_entity,
+              )
+
+              redattr_name = next_attr.redeclare_oldname || next_attr.name
+              the_attr = the_entity.find_attr_by_name(redattr_name)
+              attributes_to_remove.push(the_attr)
+            end
+          end
+
+          attributes_to_remove.each do |attribute_remove|
+            content.attributes_all_array.delete(attribute_remove)
+          end
+
+          subarray = schema.contents.select do |con|
+            con.is_a?(Express::Entity) && con.supertypes
+          end
+
+          subarray.each do |subptr|
+            subname_array = subptr.supertypes.to_s.scan(/\w+/)
+            if subname_array.include?(content.name)
+              content.subtypes_array.push(subptr)
+            end
+          end
+        end
+      end
+
+      # @todo: Existing Code
+      #
+      def get_all_supertypes(content, superlist)
+        if content.supertypes != nil
+          superlist = content.supertypes.to_s + " " + superlist
+
+          content.supertypes_array.each do |sup|
+            superlist = get_all_supertypes(sup, superlist)
+          end
+        end
+
+        superlist.lstrip
+      end
+    end
+  end
+end