rgen 0.3.0 → 0.4.0

data/lib/ea/xmi_metamodel.rb

@@ -1,34 +0,0 @@
-module XMIMetaModel
-
-	module UML
-	
-		include RGen::MetamodelBuilder
-		class Classifier_feature < MMBase
-			has_many 'operation'
-		end
-		class ClassifierRole < MMBase
-		end
-		class Clazz < ClassifierRole
-			has_many 'modelElement_stereotype'
-		end
-		class Operation < MMBase
-			has_one 'parent'
-		end
-		class Generalization < MMBase
-		end
-		class ModelElement_stereotype < MMBase
-			has_one 'parent'
-		end
-		class AssociationEnd < MMBase
-		end
-		class AssociationEndRole < MMBase
-		end
-		ClassifierRole.one_to_many 'associationEnds', AssociationEnd, 'typeClass'
-		ClassifierRole.one_to_many 'associationEndRoles', AssociationEndRole, 'typeClass'
-		Clazz.one_to_many 'generalizationsAsSubtype', Generalization, 'subtypeClass'
-		Clazz.one_to_many 'generalizationsAsSupertype', Generalization, 'supertypeClass'
-	
-	end
-
-end
-	

data/lib/ea/xmi_object_instantiator.rb

@@ -1,46 +0,0 @@
-require 'rgen/xml_instantiator'
-require 'rgen/environment'
-require 'uml/uml_objectmodel'
-require 'ea/xmi_metamodel'
-
-# This module can be used to instantiate an UMLObjectModel from an XMI description.
-# 
-# Here is an example:
-# 
-# 	include XMIObjectInstantiator
-# 	
-# 	envUML = RGen::Environment.new
-# 	File.open(MODEL_DIR+"/testmodel.xml") { |f|
-# 		XMIClassInstantiator.new.instantiateUMLObjectModel(envUML, f.read)
-# 	}
-#
-# 	# now use the newly created UML model
-# 	envUML.find(:class => UMLObjectModel::UMLObject).each { |o|
-# 		puts o.name
-# 	}
-#
-# This module relies on XmiToObjectmodel to do the actual transformation.
-# 
-class XMIObjectInstantiator < RGen::XMLInstantiator
-	
-	include UMLObjectModel
-
-	map_tag_ns "omg.org/UML1.3", XMIMetaModel::UML
-	
-	resolve_by_id :typeClass, :src => :type, :id => :xmi_id
-
-	def initialize
-		@envXMI = RGen::Environment.new 
-		super(@envXMI, XMIMetaModel, true)
-	end
-
-	# This method does the actual work.
-	def instantiateUMLObjectModel(envOut, str)
-		instantiate(str)
-				
-		require 'ea/xmi_to_objectmodel'
-		
-		XmiToObjectmodel.new(@envXMI,envOut).transform
-	end
-
-end

data/lib/ea/xmi_to_classmodel.rb

@@ -1,78 +0,0 @@
-require 'rgen/transformer'
-require 'ea/xmi_helper'
-require 'ea/xmi_metamodel'
-require 'uml/uml_classmodel'
-require 'rgen/array_extensions'
-
-# This class is a RGen::Transformer working on an input and output Environment.
-# It creates an UMLClassModel from an XMI Model instantiated by a
-# RGen::XMLInstantiator.
-# 
-# See description of RGen::XMLInstantiator for details about the XMI (meta-)model.
-# See UMLClassModel for details about the UML Class (meta-)model.
-class XmiToClassmodel < RGen::Transformer
-	include UMLClassModel
-	include RGen::XMIHelper
-
-	# Do the actual transformation.
-	# Input and output environment have to be provided to the transformer constructor.
-	def transform
-		trans(:class => XMIMetaModel::UML::Clazz)
-	end
-	
-	transform XMIMetaModel::UML::Package, :to => UMLPackage do
-		{ :name => name, 
-			:superpackage => trans(parent.parent.is_a?(XMIMetaModel::UML::Package) ? parent.parent : nil) }
-	end
-	
-	transform XMIMetaModel::UML::Attribute, :to => UMLAttribute do
-		tv = TaggedValueHelper.new(@current_object)
-		{	:name => name, :type => tv['type'] }
-	end
-	
-	transform XMIMetaModel::UML::Operation, :to => UMLOperation do
-		{ :name => name }
-	end
-	
-	transform XMIMetaModel::UML::TaggedValue, :to => UMLTaggedValue do
-		{ :tag => tag, :value => value }
-	end
-	
-	transform XMIMetaModel::UML::Clazz, :to => UMLClass do
-		{ :name => name,
-			:package => trans(parent.parent.is_a?(XMIMetaModel::UML::Package) ? parent.parent : nil),
-			:attributes => trans(classifier_feature.attribute),
-			:operations => trans(classifier_feature.operation),
-			:taggedvalues => trans(modelElement_taggedValue.taggedValue),
-			:stereotypes => modelElement_stereotype.stereotype.name,
-			:subclasses =>  trans(generalizationsAsSupertype.subtypeClass),
-			:assocEnds => trans(associationEnds)}
-	end
-	
-	transform XMIMetaModel::UML::Association, :to => :scAssociationClass do
-		{ :endA => trans(scAssocEnds[0]),
-			:endB => trans(scAssocEnds[1]) }
-	end	
-	
-	method :scAssocEnds do
-		association_connection.associationEnd
-	end
-	
-	method :scAssociationClass do
-		(scAssocEnds[0].aggregation == 'composite' or 
-		 scAssocEnds[1].aggregation == 'composite' ?
-		 UMLAggregation : UMLAssociation )
-	end
-	
-	transform XMIMetaModel::UML::AssociationEnd, :to => UMLAssociationEnd do
-		# since we don't want to figure out if we are end A or end B,
-		# we let the association transformer do the work
-		trans(parent.parent)
-		{ :clazz => trans(typeClass),
-			:role => name,
-			:multiplicity => multiplicity,
-			:composite => (aggregation == 'composite'),
-			:navigable => (isNavigable == 'true')	}
-	end
-				
-end

data/lib/ea/xmi_to_objectmodel.rb

@@ -1,92 +0,0 @@
-require 'rgen/transformer'
-require 'ea/xmi_helper'
-require 'ea/xmi_metamodel'
-require 'uml/uml_objectmodel'
-require 'rgen/array_extensions'
-
-# This class is a RGen::Transformer working on an input and output Environment.
-# It creates an UMLObjectModel from an XMI Model instantiated by a
-# RGen::XMLInstantiator.
-# 
-# See description of RGen::XMLInstantiator for details about the XMI (meta-)model.
-# See UMLObjectModel for details about the UML Object (meta-)model.
-class XmiToObjectmodel < RGen::Transformer
-	include UMLObjectModel
-	include RGen::XMIHelper
-	
-	# Do the actual transformation.
-	# Input and output environment have to be provided to the transformer constructor.
-	def transform
-		trans(
-			@env_in.find(:class => XMIMetaModel::UML::ClassifierRole)-
-			@env_in.find(:class => XMIMetaModel::UML::Clazz)
-		)
-	end
-
-	transform XMIMetaModel::UML::Package, :to => UMLPackage do
-		{ :name => name,
-			:superpackage => trans(parent.parent.is_a?(XMIMetaModel::UML::Package) ? parent.parent : nil) }
-	end
-	
-	transform XMIMetaModel::UML::ClassifierRole, :to => UMLObject, :if => :isEASTypeObject do 
-	 	trans(associationEndRoles.parent.parent)
-	 	trans(associationEnds.parent.parent)
-	 	taggedValues = TaggedValueHelper.new(@current_object)
-	 	{ :name => name,
-	 	  :classname => taggedValues['classname'],
-	 	  :attributeSettings => createAttributeSettings(taggedValues['runstate']),
-	 	  :package => trans(parent.parent.parent.parent) }
-	end
-	
-	method :isEASTypeObject do
-	 	taggedValues = TaggedValueHelper.new(@current_object)
-	 	taggedValues['ea_stype'] == 'Object'
-	end
-	
-	def createAttributeSettings(runstate)
-		return [] unless runstate
-		result = []
-		as = nil
-		runstate.split(';').each do |t|
-			if t == '@VAR'
-				as = @env_out.new UMLAttributeSetting
-				result << as
-			elsif t =~ /(\w+)=(\w+)/
-				as.name = $2 if $1 == 'Variable'
-				as.value = $2 if $1 == 'Value'
-			end
-		end
-		result
-	end
-	
-	transform XMIMetaModel::UML::AssociationRole, :to => UMLAssociation, :if => :isEATypeAssociation do
-		ends = association_connection.associationEndRole
-		{ :endA => trans(ends[0]), :endB => trans(ends[1])}
-	end
-	
-	method :isEATypeAssociation do
-	 	taggedValues = TaggedValueHelper.new(@current_object)
-		taggedValues['ea_type'] == 'Association'
-	end
-
-	transform XMIMetaModel::UML::Association, :to => UMLAggregation do
-		ends = association_connection.associationEnd
-		{ :endA => trans(ends[0]), :endB => trans(ends[1])}
-	end
-		
-	transform XMIMetaModel::UML::AssociationEndRole, :to => UMLAssociationEnd do
-		buildAssociationEnd
-	end
-	
-	transform XMIMetaModel::UML::AssociationEnd, :to => UMLAssociationEnd do
-		buildAssociationEnd
-	end
-	
-	method :buildAssociationEnd do
-		{ :object => trans(typeClass),
-		  :role => name,
-		  :composite => (aggregation == 'composite'),
-		  :navigable => (isNavigable == 'true') }
-	end
-	
-end

data/lib/mmgen/mm_ext/uml_classmodel_ext.rb

@@ -1,71 +0,0 @@
-require 'rgen/name_helper'
-
-module UMLClassModel
-	class UMLPackage
-		include RGen::NameHelper
-		
-		def moduleName
-			firstToUpper(name)
-		end
-		
-		def qualifiedModuleName(rootPackage)
-			return moduleName unless superpackage and self != rootPackage
-			superpackage.qualifiedModuleName(rootPackage) + "::" + moduleName
-		end
-		
-		def sortedClasses
-			sortArray = classes.dup
-			i1 = 0
-			while i1 < sortArray.size-1
-				again = false
-				for i2 in i1+1..sortArray.size-1
-					e2 = sortArray[i2]
-					if sortArray[i1].superclasses.include?(e2)
-						sortArray.delete(e2)
-						sortArray.insert(i1,e2)
-						again = true
-						break
-					end
-				end
-				i1 += 1 unless again
-			end
-			sortArray
-		end
-	end
-	
-	class UMLClass
-		include RGen::NameHelper
-		def className
-			firstToUpper(name)			
-		end
-		def qualifiedName(rootPackage)
-			(package ? package.qualifiedModuleName(rootPackage) + "::" : "") + className
-		end
-		def RubySuperclass(modules)
-			superclasses = self.superclasses.reject {|c| modules.include?(c.name)}
-			raise StandardError.new("#{self.name}: Duplicate superclasses: #{superclasses}") unless superclasses.size < 2
-			superclasses[0]
-		end
-	end
-	
-	class UMLAttribute
-		def RubyType
-			typeMap = {'float' => 'Float', 'int' => 'Integer'}
-			typeMap[self.getType.downcase] || 'String'
-		end
-	end
-	
-	class UMLAssociationEnd
-		def MName
-			return self.clazz.name.downcase unless role
-			self.role
-		end
-		def one?
-			self.upperMult == 1 or self.upperMult.nil?
-		end
-		def many?
-			self.upperMult == :many
-		end
-	end
-	
-end

data/lib/mmgen/templates/uml_classmodel.tpl

@@ -1,63 +0,0 @@
-
-<% define 'GenerateClassModel', :for => UMLPackage do |filename, modules| %>
-	<% file filename do %>
-		require 'rgen/metamodel_builder'
-		
-		<% expand 'GeneratePackage', modules %>
-		<%nl%>
-		<% expand 'GenerateAssocs' %>
-	<% end %>
-<% end %>
-		
-<% define 'GeneratePackage', :for => UMLPackage do |modules| %>
-	module <%= moduleName %><% iinc %>
-		<% for c in sortedClasses %><%nl%>
-			<% expand 'ModuleHeader', modules, :for => c %><%iinc%>
-				<% (c.superclasses.name & modules).each do |n| %>
-					include <%= n %>
-				<% end %>
-				<% if modules.include?(c.className) %>
-					extend RGen::MetamodelBuilder::BuilderExtensions
-				<% end %>
-				has_one 'name', String
-				<% for a in c.attributes %>
-					has_one '<%= a.name %>', <%= a.RubyType %>
-				<% end %><%idec%>
-			end
-		<% end %><%nl%>
-		<% for p in subpackages %>
-			<%nl%><% expand 'GeneratePackage', modules, :for => p %>
-		<% end %><%idec%>
-	end
-<% end %>
-
-<% define 'GenerateAssocs', :for => UMLPackage do %>
-	<% for a in allClasses.assocEnds>>:assoc %>
-		<% if a.endA.one? %>
-			<% if a.endB.one? %>
-				<%= a.endA.clazz.qualifiedName(this) %>.one_to_one '<%= a.endB.MName %>', <%= a.endB.clazz.qualifiedName(this) %>, '<%= a.endA.MName %>'
-			<% elsif a.endB.many? %>
-				<%= a.endA.clazz.qualifiedName(this) %>.one_to_many '<%= a.endB.MName %>', <%= a.endB.clazz.qualifiedName(this) %>, '<%= a.endA.MName %>'
-			<% end %>
-		<% elsif a.endA.many? %>
-			<% if a.endB.one? %>
-				<%= a.endB.clazz.qualifiedName(this) %>.one_to_many '<%= a.endA.MName %>', <%= a.endA.clazz.qualifiedName(this) %>, '<%= a.endB.MName %>'
-			<% elsif a.endB.many? %>
-				<%= a.endB.clazz.qualifiedName(this) %>.many_to_many '<%= a.endA.MName %>', <%= a.endA.clazz.qualifiedName(this) %>, '<%= a.endB.MName %>'
-			<% end %>
-		<% end %>
-	<% end %>
-<% end %>
-
-<% define 'ModuleHeader' do |modules| %>
-	<% if modules.include?(name) %>
-		module <%= className %>
-	<% else %>
-		class <%= className %> < <% nows %>
-		<% if rsc=RubySuperclass(modules) %><% nows %>
-			<%= rsc.className %>
-		<% else %><% nows %>
-			RGen::MetamodelBuilder::MMBase
-		<% end %>
-	<% end %>
-<% end %>

data/lib/rgen/xml_instantiator.rb

@@ -1,132 +0,0 @@
-require 'rgen/metamodel_builder'
-require 'rgen/instantiator'
-require 'rgen/name_helper'
-require 'rexml/parsers/sax2parser'
-require 'rexml/sax2listener'
-
-module RGen
-
-class XMLInstantiator < Instantiator
-	include REXML::SAX2Listener
-	include NameHelper
-	
-	class << self
-		def tag_ns_map
-			@tag_ns_map ||={}
-			@tag_ns_map
-		end
-	end
-
-	class XMLElementDescriptor
-		attr_reader :tag, :mod, :parent, :attributes
-		attr_accessor :object, :children
-		def initialize(tag, mod, parent, children, attributes)
-			@tag, @mod, @parent, @children, @attributes = tag, mod, parent, children, attributes
-			@parent.children << self if @parent
-		end
-	end
-	
-	NamespaceDescriptor = Struct.new(:prefix, :target)
-	
-	def self.map_tag_ns(from, to, prefix="")
-		tag_ns_map[from] = NamespaceDescriptor.new(prefix, to)
-	end
-	
-	def initialize(env, mod, createMM=false)
-		super(env,mod)
-		@env = env
-		@default_module = mod
-		@createMM = createMM
-		@stack = []
-	end
-	
-	def instantiate_file(file)
-		File.open(file) { |f| parse(f.read)}
-		resolve
-	end
-	
-	def instantiate(text)
-		parse(text)
-		resolve
-	end
-		
-	def parse(src)
-		parser = REXML::Parsers::SAX2Parser.new(src)
-		parser.listen(self)
-		parser.parse
-	end	
-	
-	def start_element(ns, tag, qtag, attributes)
-		ns_desc = self.class.tag_ns_map[ns]
-		tag = ns_desc.nil? ? qtag : ns_desc.prefix+tag
-		mod = (ns_desc && ns_desc.target) || @default_module		
-		@stack.push XMLElementDescriptor.new(tag, mod, @stack[-1], [], attributes)
-	end
-
-	def end_element(uri, localname, qname)	
-		elementDesc = @stack.pop
-		obj = callBuildMethod(:new_object, NameError, :create_class, elementDesc.mod, elementDesc)
-		@env << obj
-		elementDesc.object = obj
-		elementDesc.children.each { |c|
-			callBuildMethod(:assoc_p2c, NoMethodError, :create_p2c_assoc, elementDesc, c)
-		}
-		elementDesc.attributes.each_pair {|k,v|
-			callBuildMethod(:set_attribute, NoMethodError, :create_attribute, elementDesc, k, v)
-		}
-		# optionally prune children to save memory
-		#elementDesc.children = nil
-	end
-	
-	def callBuildMethod(method, exception, mmMethod, *args)
-		begin
-			send(method, *args)
-		rescue exception
-			if @createMM
-				send(mmMethod, *args)
-				send(method, *args)
-			else
-				raise
-			end
-		end
-	end
-
-	# Model and Metamodel builder methods
-	# These methods are to be overwritten by specific instantiators
-	def new_object(mod, node)
-		mod.const_get(saneClassName(node)).new
-	end
-	
-	def create_class(mod, node)
-		mod.const_set(saneClassName(node), Class.new(RGen::MetamodelBuilder::MMBase))
-	end
-
-	def assoc_p2c(parent, child)
-		parent.object.addGeneric(saneMethodName(child), child.object)
-		child.object.setGeneric("parent", parent.object)
-	end
-	
-	def create_p2c_assoc(parent, child)
-		parent.object.class.has_many(saneMethodName(child), child.object.class)
-		child.object.class.has_one("parent", RGen::MetamodelBuilder::MMBase)
-	end
-	
-	def set_attribute(node, attr, value)
-		node.object.setGeneric(normalize(attr), value)
-	end
-	
-	def create_attribute(node, attr, value)
-		node.object.class.has_one(normalize(attr))
-	end
-					
-	def saneClassName(node)
-		firstToUpper(normalize(node.tag)).sub(/^Class$/, 'Clazz')
-	end
-	
-	def saneMethodName(node)
-		firstToLower(normalize(node.tag)).sub(/^class$/, 'clazz')
-	end	
-					
-end
-
-end