1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
require 'rgen/transformer'
require 'rgen/ecore/ecore'
module RGen
module ECore
# This transformer creates an ECore model from Ruby classes built
# by RGen::MetamodelBuilder.
#
class RubyToECore < Transformer
transform Class, :to => EClass, :if => :convert? do
{ :name => name.gsub(/.*::(\w+)$/,'\1'),
:abstract => _abstract_class,
:interface => false,
:eStructuralFeatures => trans(_metamodel_description),
:ePackage => trans(name =~ /(.*)::\w+$/ ? eval($1) : nil),
:eSuperTypes => trans(superclasses),
:instanceClassName => name,
:eAnnotations => trans(_annotations)
}
end
method :superclasses do
if superclass.respond_to?(:multiple_superclasses) && superclass.multiple_superclasses
superclass.multiple_superclasses
else
[ superclass ]
end
end
transform Module, :to => EPackage, :if => :convert? do
@enumParentModule ||= {}
_constants = _constantOrder + (constants - _constantOrder)
_constants.select {|c| const_get(c).is_a?(MetamodelBuilder::DataTypes::Enum)}.
each {|c| @enumParentModule[const_get(c)] = @current_object}
{ :name => name.gsub(/.*::(\w+)$/,'\1'),
:eClassifiers => trans(_constants.collect{|c| const_get(c)}.select{|c| c.is_a?(Class) ||
(c.is_a?(MetamodelBuilder::DataTypes::Enum) && c != MetamodelBuilder::DataTypes::Boolean) }),
:eSuperPackage => trans(name =~ /(.*)::\w+$/ ? eval($1) : nil),
:eSubpackages => trans(_constants.collect{|c| const_get(c)}.select{|c| c.is_a?(Module) && !c.is_a?(Class)}),
:eAnnotations => trans(_annotations)
}
end
method :convert? do
@current_object.respond_to?(:ecore) && @current_object != RGen::MetamodelBuilder::MMBase
end
transform MetamodelBuilder::Intermediate::Attribute, :to => EAttribute do
Hash[*MetamodelBuilder::Intermediate::Attribute.properties.collect{|p| [p, value(p)]}.flatten].merge({
:eType => (etype == :EEnumerable ? trans(impl_type) : RGen::ECore.const_get(etype)),
:eAnnotations => trans(annotations)
})
end
transform MetamodelBuilder::Intermediate::Reference, :to => EReference do
Hash[*MetamodelBuilder::Intermediate::Reference.properties.collect{|p| [p, value(p)]}.flatten].merge({
:eType => trans(impl_type),
:eOpposite => trans(opposite),
:eAnnotations => trans(annotations)
})
end
transform MetamodelBuilder::Intermediate::Annotation, :to => EAnnotation do
{ :source => source,
:details => details.keys.collect do |k|
e = RGen::ECore::EStringToStringMapEntry.new
e.key = k
e.value = details[k]
e
end
}
end
transform MetamodelBuilder::DataTypes::Enum, :to => EEnum do
{ :name => name,
:instanceClassName => @enumParentModule && @enumParentModule[@current_object] && @enumParentModule[@current_object].name+"::"+name,
:eLiterals => literals.collect do |l|
lit = RGen::ECore::EEnumLiteral.new
lit.name = l.to_s
lit
end }
end
end
end
end
|
