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
|
require 'rgen/array_extensions'
require 'rgen/ecore/ecore'
module RGen
module ECore
# make super type reference bidirectional
EClass.many_to_many 'eSuperTypes', ECore::EClass, 'eSubTypes'
module EModelElement::ClassModule
def annotationValue(source, tag)
detail = eAnnotations.select{ |a| a.source == source }.details.find{ |d| d.key == tag }
detail && detail.value
end
end
module EPackage::ClassModule
def qualifiedName
if eSuperPackage
eSuperPackage.qualifiedName+"::"+name
else
name
end
end
def eAllClassifiers
eClassifiers + eSubpackages.eAllClassifiers
end
def eAllSubpackages
eSubpackages + eSubpackages.eAllSubpackages
end
def eClasses
eClassifiers.select{|c| c.is_a?(ECore::EClass)}
end
def eAllClasses
eClasses + eSubpackages.eAllClasses
end
def eDataTypes
eClassifiers.select{|c| c.is_a?(ECore::EDataType)}
end
def eAllDataTypes
eDataTypes + eSubpackages.eAllDataTypes
end
end
module EClass::ClassModule
def qualifiedName
if ePackage
ePackage.qualifiedName+"::"+name
else
name
end
end
def eAllSubTypes
eSubTypes + eSubTypes.eAllSubTypes
end
def concrete
!(abstract || interface)
end
def isAssignableFrom(cls)
cls == self || cls.eAllSuperTypes.any? { |super_type| super_type == self }
end
end
end
end
|
