rgen 0.3.0 → 0.4.0

data/lib/uml/objectmodel_instantiator.rb

@@ -1,53 +0,0 @@
-module ObjectmodelInstantiator
-
-	def instantiateObjectModel(env_in, env_out, metamodel)
-		objectMap = {}
-		env_in.find(:class => UMLObjectModel::UMLObject).each do |o_in|
-			o_out = env_out.new metamodel.const_get(o_in.classname)
-			objectMap[o_in] = o_out
-			o_out.name = o_in.name
-			o_in.attributeSettings.each { |as|
-				conversions = ["to_s", "to_i", "to_f"]
-				conv = conversions.first
-				begin
-					o_out.send(as.name+"=",as.value.send(conv))
-				rescue StandardError
-					conv = conversions[conversions.index(conv)+1]
-					retry if conv
-					raise
-				end
-			}
-		end
-		env_in.find(:class => UMLObjectModel::UMLAssociation).each do |a_in|
-			begin
-				if a_in.roleA
-					begin
-						o_out = objectMap[a_in.objectB]
-						es = o_out.send(a_in.roleA)
-					rescue NoMethodError
-						raise StandardError.new("In #{o_out.class.name}(#{o_out.name}): method not found #{a_in.roleA}")
-					end
-					if es.is_a? RGen::MetamodelBuilder::ElementSet
-						es << objectMap[a_in.objectA]
-					else
-						objectMap[a_in.objectB].send(a_in.roleA+"=", objectMap[a_in.objectA])
-					end
-				elsif a_in.roleB
-					begin
-						o_out = objectMap[a_in.objectA]
-						es = o_out.send(a_in.roleB)
-					rescue NoMethodError
-						raise StandardError.new("In #{o_out.class.name}(#{o_out.name}): method not found #{a_in.roleB}")
-					end
-					if es.is_a? RGen::MetamodelBuilder::ElementSet
-						es << objectMap[a_in.objectB]
-					else
-						objectMap[a_in.objectA].send(a_in.roleB+"=", objectMap[a_in.objectB])
-					end
-				end
-			rescue StandardError => e
-				puts e.message
-			end
-		end
-	end
-end

data/lib/uml/uml_classmodel.rb

@@ -1,92 +0,0 @@
-require 'rgen/metamodel_builder'
-
-module UMLClassModel
-
-include RGen::MetamodelBuilder
-
-class UMLPackage < MMBase
-	has_one 'name', String
-	def allClasses
-		subpackages.inject(classes) {|r,p| r.concat(p.allClasses) }
-	end
-end
-
-class UMLClass < MMBase
-	has_one 'name', String
-	has_many 'stereotypes', String
-	def remoteNavigableEnds
-		assocEnds.otherEnd.select{|e| e.navigable}
-	end
-	def localNavigableEnds
-		assocEnds.select{|e| e.navigable}
-	end
-	def localCompositeEnds
-		assocEnds.select{|e| e.composite}
-	end
-	def remoteCompositeEnds
-		assocEnds.otherEnd.select{|e| e.composite}
-		# put constraint check here and return the container directly ?
-	end
-end
-
-class UMLOperation < MMBase
-	has_one 'name', String
-end
-
-class UMLAttribute < MMBase
-	has_one 'name', String
-	has_one 'type', String
-end
-
-class UMLTaggedValue < MMBase
-	has_one 'tag'
-	has_one 'value'
-end
-
-class UMLAssociation < MMBase
-end
-
-class UMLAggregation < UMLAssociation
-end	
-
-class UMLAssociationEnd < MMBase
-	has_one 'multiplicity', String
-	has_one 'navigable' # boolean
-	has_one 'composite' # boolean
-	has_one 'role', String
-	def assoc
-		assocA || assocB
-	end
-	def otherEnd
-		return unless assoc
-		assoc.endA == self ? assoc.endB : assoc.endA		
-	end
-	def lowerMult
-		return unless multiplicity
-		stringToMult(multiplicity.split("..")[0])
-	end
-	def upperMult
-		return unless multiplicity
-		ma = multiplicity.split("..")
-		stringToMult(ma[1] || ma[0])
-	end
-	private
-	def stringToMult(s)
-		return :many if s == "*"
-		return s.to_i
-	end
-end
-
-UMLPackage.one_to_many 'subpackages', UMLPackage, 'superpackage'
-UMLPackage.one_to_many 'classes', UMLClass, 'package'
-
-UMLClass.many_to_many 'superclasses', UMLClass, 'subclasses'
-UMLClass.one_to_many 'assocEnds', UMLAssociationEnd, 'clazz'
-UMLClass.one_to_many 'attributes', UMLAttribute, 'clazz'
-UMLClass.one_to_many 'operations', UMLOperation, 'clazz'
-UMLClass.one_to_many 'taggedvalues', UMLTaggedValue, 'clazz'
-
-UMLAssociation.one_to_one 'endA', UMLAssociationEnd, 'assocA'
-UMLAssociation.one_to_one 'endB', UMLAssociationEnd, 'assocB'
-
-end

data/lib/uml/uml_objectmodel.rb

@@ -1,65 +0,0 @@
-require 'rgen/metamodel_builder'
-
-module UMLObjectModel
-
-include RGen::MetamodelBuilder
-
-class UMLPackage < MMBase
-	has_one 'name', String
-	def allObjects
-		subpackages.inject(objects) {|r,p| r.concat(p.allObjects) }
-	end
-end
-
-class UMLObject < MMBase
-	has_one 'name', String
-	has_one 'classname', String
-	def remoteNavigableEnds
-		assocEnds.otherEnd.select{|e| e.navigable}
-	end
-	def localNavigableEnds
-		assocEnds.select{|e| e.navigable}
-	end
-	def localCompositeEnds
-		assocEnds.select{|e| e.composite}
-	end
-	def remoteCompositeEnds
-		assocEnds.otherEnd.select{|e| e.composite}
-		# put constraint check here and return the container directly ?
-	end
-end
-
-class UMLAttributeSetting < MMBase
-	has_one 'name', String
-	has_one 'value', String
-end
-
-class UMLAssociation < MMBase
-end
-
-class UMLAggregation < UMLAssociation
-end	
-
-class UMLAssociationEnd < MMBase
-	has_one 'navigable' # boolean
-	has_one 'composite' # boolean
-	has_one 'role', String
-	def assoc
-		assocA || assocB
-	end
-	def otherEnd
-		return unless assoc
-		assoc.endA == self ? assoc.endB : assoc.endA		
-	end
-end
-
-UMLPackage.one_to_many 'subpackages', UMLPackage, 'superpackage'
-UMLPackage.one_to_many 'objects', UMLObject, 'package'
-
-UMLObject.one_to_many 'assocEnds', UMLAssociationEnd, 'object'
-UMLObject.one_to_many 'attributeSettings', UMLAttributeSetting, 'object'
-
-UMLAssociation.one_to_one 'endA', UMLAssociationEnd, 'assocA'
-UMLAssociation.one_to_one 'endB', UMLAssociationEnd, 'assocB'
-
-end

data/test/metamodel_generator_test.rb

@@ -1,44 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__),"..","lib")
-
-require 'test/unit'
-require 'ea/xmi_class_instantiator'
-require 'mmgen/metamodel_generator'
-
-class MetamodelGeneratorTest < Test::Unit::TestCase
-
-	MODEL_DIR = File.join(File.dirname(__FILE__),"xmi_instantiator_test")
-	OUTPUT_DIR = File.dirname(__FILE__)+"/metamodel_generator_test"
-	MM_FILE = OUTPUT_DIR+"/TestModel.rb"
-	
-	include MMGen::MetamodelGenerator
-		
-	def test_generator
-		envUML = RGen::Environment.new
-		File.open(MODEL_DIR+"/testmodel.xml") { |f|
-			XMIClassInstantiator.new.instantiateUMLClassModel(envUML, f.read)
-		}
-
-		rootPackage = envUML.find(:class => UMLClassModel::UMLPackage).select{|p| p.name == "HouseMetamodel"}.first
-		assert_not_nil rootPackage
-		
-		assert_raise StandardError do
-			# this will raise an exception because multiple inheritance is not resolved
-			generateMetamodel(rootPackage, MM_FILE)
-		end
-		
-		# resolve multiple inheritance by specifying which class should be a module
-		modules = ['MeetingPlace']
-		generateMetamodel(rootPackage, MM_FILE, modules)
-		
-		# try to use the generated metamodel
-		File.open(MM_FILE) { |f|
-			eval(f.read)
-		}
-		assert HouseMetamodel::House.new
-
-		result = expected = ""
-		File.open(MM_FILE) {|f| result = f.read}
-		File.open(OUTPUT_DIR+"/expected_result.txt") {|f| expected = f.read}
-		assert_equal expected, result
-	end
-end

data/test/metamodel_generator_test/TestModel.rb

@@ -1,40 +0,0 @@
-require 'rgen/metamodel_builder'
-module HouseMetamodel
-
-   class Person < RGen::MetamodelBuilder::MMBase
-      has_one 'name', String
-   end
-
-   class House < RGen::MetamodelBuilder::MMBase
-      has_one 'name', String
-      has_one 'address', String
-   end
-
-   module MeetingPlace
-      extend RGen::MetamodelBuilder::BuilderExtensions
-      has_one 'name', String
-   end
-
-
-   module Rooms
-
-      class Room < RGen::MetamodelBuilder::MMBase
-         has_one 'name', String
-      end
-
-      class Bathroom < Room
-         has_one 'name', String
-      end
-
-      class Kitchen < Room
-         include MeetingPlace
-         has_one 'name', String
-      end
-
-   end
-end
-
-HouseMetamodel::Person.one_to_many 'home', HouseMetamodel::House, 'person'
-HouseMetamodel::House.one_to_one 'bathroom', HouseMetamodel::Rooms::Bathroom, 'house'
-HouseMetamodel::Rooms::Kitchen.one_to_one 'house', HouseMetamodel::House, 'kitchen'
-HouseMetamodel::House.one_to_many 'room', HouseMetamodel::Rooms::Room, 'house'

data/test/metamodel_generator_test/expected_result.txt

@@ -1,40 +0,0 @@
-require 'rgen/metamodel_builder'
-module HouseMetamodel
-
-   class Person < RGen::MetamodelBuilder::MMBase
-      has_one 'name', String
-   end
-
-   class House < RGen::MetamodelBuilder::MMBase
-      has_one 'name', String
-      has_one 'address', String
-   end
-
-   module MeetingPlace
-      extend RGen::MetamodelBuilder::BuilderExtensions
-      has_one 'name', String
-   end
-
-
-   module Rooms
-
-      class Room < RGen::MetamodelBuilder::MMBase
-         has_one 'name', String
-      end
-
-      class Bathroom < Room
-         has_one 'name', String
-      end
-
-      class Kitchen < Room
-         include MeetingPlace
-         has_one 'name', String
-      end
-
-   end
-end
-
-HouseMetamodel::Person.one_to_many 'home', HouseMetamodel::House, 'person'
-HouseMetamodel::House.one_to_one 'bathroom', HouseMetamodel::Rooms::Bathroom, 'house'
-HouseMetamodel::Rooms::Kitchen.one_to_one 'house', HouseMetamodel::House, 'kitchen'
-HouseMetamodel::House.one_to_many 'room', HouseMetamodel::Rooms::Room, 'house'

data/test/xmi_class_instantiator_test.rb

@@ -1,24 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__),"..","lib")
-$:.unshift File.join(File.dirname(__FILE__),"..","test")
-
-require 'test/unit'
-require 'ea/xmi_class_instantiator'
-require 'rgen/transformer'
-require 'xmi_instantiator_test/class_model_checker'
-
-class XmiClassInstantiatorTest < Test::Unit::TestCase
-
-	MODEL_DIR = File.join(File.dirname(__FILE__),"xmi_instantiator_test")
-
-	include ClassModelChecker
-	
-	def test_model
-		envUML = RGen::Environment.new
-		File.open(MODEL_DIR+"/testmodel.xml") { |f|
-			XMIClassInstantiator.new.instantiateUMLClassModel(envUML, f.read)
-		}
-		checkClassModel(envUML)
-	end
-
-
-end

data/test/xmi_instantiator_test/class_model_checker.rb

@@ -1,97 +0,0 @@
-require 'uml/uml_classmodel'
-
-module ClassModelChecker			
-	include UMLClassModel
-
-	def checkClassModel(envUML)
-						
-		# check main package
-		mainPackage = envUML.elements.select {|e| e.is_a? UMLPackage and e.name == "HouseMetamodel"}.first
-		assert_not_nil mainPackage
-		
-		# check Rooms package
-		assert mainPackage.subpackages.is_a?(Array)
-		assert_equal 1, mainPackage.subpackages.size
-		assert mainPackage.subpackages[0].is_a?(UMLPackage)
-		roomsPackage = mainPackage.subpackages[0]
-		assert_equal "Rooms", roomsPackage.name
-		
-		# check main package classes
-		assert mainPackage.classes.is_a?(Array)
-		assert_equal 3, mainPackage.classes.size
-		assert mainPackage.classes.all?{|c| c.is_a?(UMLClass)}
-		houseClass = mainPackage.classes.select{|c| c.name == "House"}.first
-		personClass = mainPackage.classes.select{|c| c.name == "Person"}.first
-		meetingPlaceClass = mainPackage.classes.select{|c| c.name == "MeetingPlace"}.first
-		assert_not_nil houseClass
-		assert_not_nil personClass
-		assert_not_nil meetingPlaceClass
-
-		# check Rooms package classes
-		assert roomsPackage.classes.is_a?(Array)
-		assert_equal 3, roomsPackage.classes.size
-		assert roomsPackage.classes.all?{|c| c.is_a?(UMLClass)}
-		roomClass = roomsPackage.classes.select{|c| c.name == "Room"}.first
-		kitchenClass = roomsPackage.classes.select{|c| c.name == "Kitchen"}.first
-		bathroomClass = roomsPackage.classes.select{|c| c.name == "Bathroom"}.first
-		assert_not_nil roomClass
-		assert_not_nil kitchenClass
-		assert_not_nil bathroomClass
-		
-		# check Room inheritance
-		assert roomClass.subclasses.is_a?(Array)
-		assert_equal 2, roomClass.subclasses.size
-		assert_not_nil roomClass.subclasses.select{|c| c.name == "Kitchen"}.first
-		assert_not_nil roomClass.subclasses.select{|c| c.name == "Bathroom"}.first
-		assert kitchenClass.superclasses.is_a?(Array)
-		assert_equal 2, kitchenClass.superclasses.size
-		assert_equal roomClass.object_id, kitchenClass.superclasses.select{|c| c.name == "Room"}.first.object_id
-		assert_equal meetingPlaceClass.object_id, kitchenClass.superclasses.select{|c| c.name == "MeetingPlace"}.first.object_id
-		assert bathroomClass.superclasses.is_a?(Array)
-		assert_equal 1, bathroomClass.superclasses.size
-		assert_equal roomClass.object_id, bathroomClass.superclasses[0].object_id
-
-		# check House-Room "part of" association
-		assert houseClass.localCompositeEnds.otherEnd.clazz.is_a?(Array)
-		assert_equal 1, houseClass.localCompositeEnds.size
-		roomEnd = houseClass.localCompositeEnds[0].otherEnd
-		assert_equal UMLAggregation, roomEnd.assoc.class
-		assert_equal roomClass.object_id, roomEnd.clazz.object_id
-		assert_equal "room", roomEnd.role
-		assert_equal "1..*", roomEnd.multiplicity
-		assert_equal 1, roomEnd.lowerMult
-		assert_equal :many, roomEnd.upperMult
-		
-		assert roomClass.remoteCompositeEnds.clazz.is_a?(Array)
-		assert_equal 1, roomClass.remoteCompositeEnds.size
-		assert_equal houseClass.object_id, roomClass.remoteCompositeEnds[0].clazz.object_id
-		assert_equal "house", roomClass.remoteCompositeEnds[0].role
-				
-		# check House OUT associations
-		assert houseClass.remoteNavigableEnds.is_a?(Array)
-		assert_equal 2, houseClass.remoteNavigableEnds.size
-		bathEnd = houseClass.remoteNavigableEnds.select{|e| e.role == "bathroom"}.first
-		kitchenEnd = houseClass.remoteNavigableEnds.select{|e| e.role == "kitchen"}.first
-		assert_not_nil bathEnd
-		assert_not_nil kitchenEnd
-		assert_equal UMLAssociation, bathEnd.assoc.class
-		assert_equal UMLAssociation, kitchenEnd.assoc.class
-		assert_equal "1", kitchenEnd.multiplicity
-		assert_equal 1, kitchenEnd.lowerMult
-		assert_equal 1, kitchenEnd.upperMult
-		
-		# check House IN associations
-		assert houseClass.localNavigableEnds.is_a?(Array)
-		assert_equal 3, houseClass.localNavigableEnds.size
-		homeEnd = houseClass.localNavigableEnds.select{|e| e.role == "home"}.first
-		assert_not_nil homeEnd
-		assert_equal UMLAssociation, homeEnd.assoc.class
-		assert_equal "0..*", homeEnd.multiplicity
-		assert_equal 0, homeEnd.lowerMult
-		assert_equal :many, homeEnd.upperMult
-		
-		# check House all associations
-		assert houseClass.assocEnds.is_a?(Array)
-		assert_equal 4, houseClass.assocEnds.size
-	end
-end