rtm-activerecord 0.2.0

data/lib/rtm/activerecord/name_variant_occurrence.rb

@@ -0,0 +1,86 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+module RTM::AR
+  class Name < Reifiable
+    include RTM::Name
+    wrapper_cache
+
+    parent :topic
+    property :type, :aka => [:ty,:t], :rw => true, :type => :Topic, :wrap => true
+    property_set :scope, :type => :Topic, :wrap => true, :add => :scope, :remove => :scope
+
+    property_set :variants, :aka => :vs, :type => :Variant, :wrap => true,
+      :create => :variant_internal, :create_aka => :cv,
+      :create_args => [ {:name => :value, :type => [:String, :Locator]}, {:name => :scope, :type => :Collection}]
+
+  def create_variant(arg1, arg2, arg3 = :nothing)
+    if arg1.is_a?(RTM::Locator)
+      raise("create_variant(value,scope), value: Locator, scope must be an Array") unless arg2.is_a?(Array)
+      if arg2.empty?
+        raise("create_variant(value,scope), value: Locator, scope must not be empty")
+      end
+      arg2.each do |theme|
+        raise("create_variant(value,scope), value: Locator, scope must contain Topic/Topic-References") unless (theme.is_a?(RTM::Topic) || theme.is_a?(String) || theme.is_a?(RTM::Locator))
+      end
+      return create_variant_internal(arg1, topic_map._topic_by_locator!(arg2) + self.scope.map{|t| t.__getobj__})
+    elsif arg1.is_a?(String)
+      if arg3 == :nothing 
+        raise("create_variant(value,scope), value: String, scope must be an Array") unless arg2.is_a?(Array)
+        if arg2.empty?
+          raise("create_variant(value,scope), value: String, scope must not be empty")
+        end
+        arg2.each do |theme|
+          raise("create_variant(value,scope), value: String, scope must contain Topic/Topic-References") unless (theme.is_a?(RTM::Topic) || theme.is_a?(String) || theme.is_a?(RTM::Locator))
+        end
+        return create_variant_internal(arg1, topic_map._topic_by_locator!(arg2) + self.scope.map{|t| t.__getobj__})
+      elsif (arg2.is_a?(Locator) || arg2.is_a?(String))
+        if ((arg2 == RTM::PSI[:String]) || (arg2 == topic_map.create_locator(RTM::PSI[:String])))
+          return create_variant_internal(arg1, topic_map.create_locator(RTM::PSI[:String]), topic_map._topic_by_locator!(arg3) + self.scope.map{|t| t.__getobj__})
+        elsif ((arg2 == RTM::PSI[:IRI]) || (arg2 == topic_map.create_locator(RTM::PSI[:IRI])))
+          return create_variant_internal(arg1, topic_map.create_locator(RTM::PSI[:IRI]), topic_map._topic_by_locator!(arg3) + self.scope.map{|t| t.__getobj__})
+        elsif ((arg2 == RTM::PSI[:XML]) || (arg2 == topic_map.create_locator(RTM::PSI[:XML])))
+          return create_variant_internal(arg1, topic_map.create_locator(RTM::PSI[:XML]), topic_map._topic_by_locator!(arg3) + self.scope.map{|t| t.__getobj__})
+        else 
+          raise("create_variant(value,datatype,scope), value: String, unknown datatype")
+        end
+      else
+        raise("create_variant(value,datatype,scope), datatype must be a String (identifier) or Locator")
+      end 
+    else
+      raise "create_variant: value not a Locator or String"
+    end  
+  end
+
+    property :value, :rw => true, :type => :String, :aka => :v
+
+    equality [:value, :type, :scope, :parent]
+  end
+  TopicName = Name
+
+  class Variant < Reifiable
+    include RTM::Variant
+    wrapper_cache
+
+    parent :name, :aka => :topic_name
+    property :value, :rw => true, :type => :String, :aka => :v
+    property :datatype, :rw => true, :type => :Locator #, :wrap => true
+    property_set :scope, :type => :Topic, :wrap => true, :add => :scope, :remove => :scope
+
+    equality [:value, :datatype, :scope, :parent]
+  end
+
+  class Occurrence < Reifiable
+    include RTM::Occurrence
+    wrapper_cache
+
+    parent :topic
+    property :value, :rw => true, :type => :String, :aka => :v
+    property :datatype, :rw => true, :type => :String
+
+    property_set :scope, :type => :Topic, :wrap => true, :add => :scope, :remove => :scope
+    property :type, :aka => [:ty,:t], :rw => true, :type => :Topic, :wrap => true
+
+    equality [:value, :datatype, :scope, :type, :parent]
+  end
+end

data/lib/rtm/activerecord/persistent_code_output.rb

@@ -0,0 +1,22 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+enable_persistent_code_output = false
+class Module
+  alias :module_eval_without_output :module_eval
+  def module_eval(code,file,line)
+    module_eval_without_output(code,file,line)
+    File.open("/tmp/rtm.rb","a") do |f|
+      #puts self, self.class
+      @@first_class = true
+      @@last_self ||= nil
+      if ! @@last_self || @@last_self != self
+        f.puts "end\n\n" unless @@first_class
+        @@first_class = false
+        @@last_self = self
+        f.puts "#{self.class.to_s.downcase} #{self}"
+      end
+      f.puts code
+    end
+  end
+end if enable_persistent_code_output

data/lib/rtm/activerecord/quaaxtm2rtm.rb

@@ -0,0 +1,116 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require 'active_record'
+
+
+module RTM
+  module AR
+    module TMDM
+      class Topic < ActiveRecord::Base;end
+      class ItemIdentifier < ActiveRecord::Base
+        belongs_to :topic_map_construct
+      end
+      class SubjectIdentifier < ActiveRecord::Base
+        belongs_to :topic
+      end
+
+      class SubjectLocator < ActiveRecord::Base
+        belongs_to :topic
+      end
+      
+      class QuaaxTM2RTM < ActiveRecord::Migration
+        def self.up
+          rename_table("qtm_topicmap", "topic_maps" )
+          rename_column("topic_maps", "baselocator", "base_locator")
+
+          rename_table("qtm_topic", "topics")
+          rename_column("topics", "topicmap_id", "topic_map_id")
+
+          add_column :topics, :reified_id, :integer
+          add_column :topics, :reified_type, :string
+
+          rename_table "qtm_association", "associations"
+          rename_column "associations", "type_id", "ttype_id"
+          rename_column "associations", "topicmap_id", "topic_map_id"
+
+          rename_table "qtm_assocrole", "association_roles"
+          rename_column "association_roles", "type_id", "ttype_id"
+          rename_column "association_roles", "reference", "topic_id"
+          
+          rename_table "qtm_topicname", "topic_names"
+          rename_column "topic_names", "type_id", "ttype_id"
+
+          rename_table "qtm_occurrence", "occurrences"
+          rename_column "occurrences", "type_id", "ttype_id"
+          
+          rename_table "qtm_variant", "variants"
+          rename_column "variants", "topicname_id", "topic_name_id"
+          
+          rename_table "qtm_topicmapconstructref", "item_identifiers"
+          rename_column "item_identifiers", "locator", "reference"
+          add_column :item_identifiers, :topic_map_id, :integer
+          ItemIdentifier.reset_column_information
+          ItemIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic_map_construct.topic_map_id
+          end
+          
+          create_table :item_identifiers do |t|
+            t.column :topic_map_id, :integer, :null => false
+            t.column :reference, :string, :null => false
+            t.column :topic_map_construct_id, :integer
+            t.column :topic_map_construct_type, :string
+          end
+          SubjectIdentifier.reset_column_information
+          SubjectIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+          
+          rename_table "qtm_subjectidentifier", "subject_identifiers"
+          rename_column :subject_identifiers, "locator", "reference"
+          add_column :subject_identifiers, :topic_map_id, :integer
+          
+          SubjectIdentifier.reset_column_information
+          SubjectIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+          
+          rename_table "qtm_subjectlocator", "subject_locators"
+          rename_column :subject_locators, "locator", "reference"
+          add_column :subject_locators, :topic_map_id, :integer
+          
+          Topic.reset_column_information
+          SubjectLocator.reset_column_information
+          SubjectLocator.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+
+          create_table :scoped_objects_topics do |t|
+            t.column :scoped_object_id, :integer
+            t.column :scoped_object_type, :string
+            t.column :topic_id, :integer
+          end
+          
+          # TODO: instance of
+          #       scope
+          #       reifier
+        end
+
+        def self.down
+          raise "not supported"
+        end
+
+      end
+    end
+  end
+end
+
+#if __FILE__ == $0
+#  puts "Generating SQLite3 Databse tmdm.sqlite3."
+#  ActiveRecord::Base.establish_connection(
+#    :adapter => "sqlite3",
+#    :database  => "tmdm.sqlite3"
+#  )
+#  RTM::AR::TMDM::QuaaxTM2RTM.migrate(:up)
+#end
+

data/lib/rtm/activerecord/quaaxtm2rtmviews.rb

@@ -0,0 +1,137 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require 'active_record'
+
+
+module RTM
+  module AR
+    module TMDM
+      class Topic < ActiveRecord::Base;end
+      class ItemIdentifier < ActiveRecord::Base
+        belongs_to :topic_map_construct
+      end
+      class SubjectIdentifier < ActiveRecord::Base
+        belongs_to :topic
+      end
+
+      class SubjectLocator < ActiveRecord::Base
+        belongs_to :topic
+      end
+      
+      class QuaaxTM2RTMViews < ActiveRecord::Migration
+        def self.up
+          create_view "topic_maps", "select id, baselocator from qtm_topicmap" do |t|
+            t.column :id
+            t.column :base_locator
+          end
+
+          create_view "topics", "select id, topicmap_id, null, null from qtm_topic" do |t|
+            t.column :id
+            t.column :topic_map_id
+            t.column :reified_id
+            t.column :reified_type
+          end
+
+          create_view "associations", "select id, topicmap_id, type_id from qtm_association" do |t|
+            t.column :id
+            t.column :topic_map_id
+            t.column :ttype_id
+          end
+
+          create_view "association_roles", "select id, association_id, type_id, reference from qtm_assocrole" do |t|
+            t.column :id
+            t.column :association_id
+            t.column :ttype_id
+            t.column :topic_id
+          end
+
+          create_view "topic_names", "select id, topic_id, type_id, value from qtm_topicname" do |t|
+            t.column :id
+            t.column :topic_id
+            t.column :ttype_id
+            t.column :value
+          end
+
+          create_view "occurrence", "select id, topic_id, type_id, value, datatype from qtm_occurrence" do |t|
+            t.column :id
+            t.column :topic_id
+            t.column :ttype_id
+            t.column :value
+            t.column :datatype
+          end
+
+          create_view "variants", "select id, topicname_id, value, datatype from qtm_variant" do |t|
+            t.column :id
+            t.column :topic_name_id
+            t.column :value
+            t.column :datatype
+          end
+
+          rename_table "qtm_topicmapconstructref", "item_identifiers"
+          rename_column "item_identifiers", "locator", "reference"
+          add_column :item_identifiers, :topic_map_id, :integer
+          ItemIdentifier.reset_column_information
+          ItemIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic_map_construct.topic_map_id
+          end
+          
+          create_table :item_identifiers do |t|
+            t.column :topic_map_id, :integer, :null => false
+            t.column :reference, :string, :null => false
+            t.column :topic_map_construct_id, :integer
+            t.column :topic_map_construct_type, :string
+          end
+          SubjectIdentifier.reset_column_information
+          SubjectIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+          
+          rename_table "qtm_subjectidentifier", "subject_identifiers"
+          rename_column :subject_identifiers, "locator", "reference"
+          add_column :subject_identifiers, :topic_map_id, :integer
+          
+          SubjectIdentifier.reset_column_information
+          SubjectIdentifier.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+          
+          rename_table "qtm_subjectlocator", "subject_locators"
+          rename_column :subject_locators, "locator", "reference"
+          add_column :subject_locators, :topic_map_id, :integer
+          
+          Topic.reset_column_information
+          SubjectLocator.reset_column_information
+          SubjectLocator.find(:all).each do |si|
+            si.update_attribute :topic_map_id, si.topic.topic_map_id
+          end
+
+          create_table :scoped_objects_topics do |t|
+            t.column :scoped_object_id, :integer
+            t.column :scoped_object_type, :string
+            t.column :topic_id, :integer
+          end
+          
+          # TODO: instance of
+          #       scope
+          #       reifier
+        end
+
+        def self.down
+          raise "not supported"
+        end
+
+      end
+    end
+  end
+end
+
+#if __FILE__ == $0
+#  puts "Generating SQLite3 Databse tmdm.sqlite3."
+#  ActiveRecord::Base.establish_connection(
+#    :adapter => "sqlite3",
+#    :database  => "tmdm.sqlite3"
+#  )
+#  RTM::AR::TMDM::QuaaxTM2RTM.migrate(:up)
+#end
+

data/lib/rtm/activerecord/set_wrapper.rb

@@ -0,0 +1,101 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+module RTM::AR
+  class Topics < TMSetDelegator
+    def wrap(obj)
+      Topic.wrap(obj)
+    end
+  end
+  class Constructs < TMSetDelegator
+    def wrap(obj)
+      Construct.wrap(obj)
+    end
+  end
+  class Associations < TMSetDelegator
+    def wrap(obj)
+      Association.wrap(obj)
+    end
+  end
+  class Names < TMSetDelegator
+    def wrap(obj)
+      Name.wrap(obj)
+    end
+  end
+  class Occurrences < TMSetDelegator
+    def wrap(obj)
+      Occurrence.wrap(obj)
+    end
+  end
+  class Roles < TMSetDelegator
+    def wrap(obj)
+      Role.wrap(obj)
+    end
+   end
+  class Reifiables < TMSetDelegator
+    def wrap(obj)
+      Construct.wrap(obj)
+    end
+  end
+  class Variants < TMSetDelegator
+    def wrap(obj)
+      Variant.wrap(obj)
+    end
+  end
+  class TopicMaps < TMSetDelegator
+    def [](obj)
+      # support for getting topic_map by base_locator
+      if obj.is_a? String
+        # return wrap(__getobj__.find { |tm| tm.base_locator == obj })
+        return wrap(TMDM::TopicMap.find_by_base_locator(obj))
+      end
+      # normal index retrieval
+      super
+    end
+
+    def wrap(obj)
+      TopicMap.wrap(obj)
+    end
+  end
+  class Locators < TMSetDelegator
+    def [](obj)
+      # support for getting locators by reference
+      if obj.is_a? String
+        return wrap(__getobj__.find { |tm| tm.reference == obj })
+      end
+      # normal index retrieval
+      super
+    end
+    def wrap(obj)
+      return nil unless obj
+      return obj if obj.respond_to? :__getobj__
+      case obj.class.name
+      when "RTM::AR::TMDM::ItemIdentifier"
+        ItemIdentifier.wrap(obj)
+      when "RTM::AR::TMDM::SubjectIdentifier"
+        SubjectIdentifier.wrap(obj)
+      when "RTM::AR::TMDM::SubjectLocator"
+        SubjectLocator.wrap(obj)        
+      else
+        Locator.wrap(obj)
+      end
+    end
+  end
+  
+  class ItemIdentifiers < Locators
+    def wrap(obj)
+      ItemIdentifier.wrap(obj)
+    end      
+  end
+  class SubjectIdentifiers < Locators
+    def wrap(obj)
+      SubjectIdentifier.wrap(obj)
+    end      
+    
+  end
+  class SubjectLocators < Locators
+    def wrap(obj)
+      SubjectLocator.wrap(obj)
+    end
+  end
+end