equal
deleted
inserted
replaced
73 addClassVariables: self classVarNames; |
73 addClassVariables: self classVarNames; |
74 addSharedPools: self sharedPoolNames; |
74 addSharedPools: self sharedPoolNames; |
75 comment: self organization classComment; |
75 comment: self organization classComment; |
76 stamp: self organization commentStamp; |
76 stamp: self organization commentStamp; |
77 definitionSource: self definition; |
77 definitionSource: self definition; |
78 package: self package asRingDefinition; |
78 package: (RGPackage named: self package); |
79 withMetaclass. |
79 withMetaclass. |
80 ring theMetaClass |
80 ring theMetaClass |
81 traitCompositionSource: self theMetaClass traitCompositionString; |
81 traitCompositionSource: self theMetaClass traitCompositionString; |
82 definitionSource: self theMetaClass definition; |
82 definitionSource: self theMetaClass definition; |
83 addInstanceVariables: self theMetaClass instVarNames. |
83 addInstanceVariables: self theMetaClass instVarNames. |
84 ^ ring |
84 ^ ring |
|
85 |
|
86 "Modified: / 28-08-2015 / 18:27:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! ! |
87 ! ! |
86 |
88 |
87 !Class methodsFor:'*Ring-Core-Kernel'! |
89 !Class methodsFor:'*Ring-Core-Kernel'! |
88 |
90 |
89 asRingDefinitionWithMethods: methodsBoolean withSuperclasses: supersBoolean withSubclasses: subsBoolean withPackageKeys: packageKeys in: aRGSlice |
91 asRingDefinitionWithMethods: methodsBoolean withSuperclasses: supersBoolean withSubclasses: subsBoolean withPackageKeys: packageKeys in: aRGSlice |
191 | ring | |
193 | ring | |
192 ring := (RGMethodDefinition named: self selector) |
194 ring := (RGMethodDefinition named: self selector) |
193 parentName: self methodClass name; |
195 parentName: self methodClass name; |
194 isMetaSide: self methodClass isMeta. |
196 isMetaSide: self methodClass isMeta. |
195 |
197 |
196 self sourcePointer isZero |
198 self sourceCode isNil |
197 ifTrue: [ "this should not happen but sometimes the system looks corrupted" |
199 ifTrue: [ "this should not happen but sometimes the system looks corrupted" |
198 ring protocol: self category; |
200 ring protocol: self category; |
199 sourceCode: self sourceCode; |
201 sourceCode: self sourceCode; |
200 stamp: self timeStamp ] |
202 stamp: self timeStamp ] |
201 ifFalse: [ |
203 ifFalse: [ |
202 ring sourcePointer: self sourcePointer ]. |
204 ring sourceCode: self sourceCode ]. |
203 ring asHistorical. |
205 ring asHistorical. |
204 |
|
205 ^ ring |
206 ^ ring |
|
207 |
|
208 "Modified: / 29-08-2015 / 08:01:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
206 ! ! |
209 ! ! |
207 |
210 |
208 !Method methodsFor:'*Ring-Core-Kernel'! |
211 !Method methodsFor:'*Ring-Core-Kernel'! |
209 |
212 |
210 asPassiveRingDefinition |
213 asPassiveRingDefinition |