18 Sep
2013
18 Sep
'13
3:54 p.m.
When trying to walk smalltalkhub and import latest versions to find invocations,
we needed to make the following changes to make it work:
FAMIXAccess>variable: aStructuralEntity
(aStructuralEntity isKindOf: FAMIXAnnotationInstanceAttribute) ifFalse: [
variable := FMMultivalueLink on: self
update: #incomingAccesses
from: self variable
to: aStructuralEntity]
Add
MooseMonticelloVisitor>visitScriptDefinition: aMCPostscriptDefinition
"TODO"
MooseMonticelloHTTPImporter>setRepositoryCache: aCache.
repositoryCache := aCache
MooseMonticelloMethodPopulator>ensureAnnotationType: aRBPragmaNode
^self importer ensureAnnotationType: aRBPragmaNode.
And change for performance:
MooseGroupRuntimeStorage>add: anElement
| key group |
key := anElement class.
group := byType
at: key
ifAbsentPut: [ OrderedCollection new ].
group add: anElement.
elements add: anElement.
byName at: anElement mooseName asSymbol put: anElement.
^ anElement
MooseGroupRuntimeStorage >at: uniqueName ifAbsent: exceptionBlock
| entity na |
na := uniqueName asSymbol.
"look first by name and if not found"
entity := byName at: na ifAbsent: [nil].
entity notNil ifTrue: [
entity mooseName asSymbol = na ifTrue: [
^entity]
ifFalse: [
byName at: na put: nil.
byName at: entity mooseName asSymbol put: entity.
self halt. "Should this be happening?"
]].
^ exceptionBlock value
Would they be safe to commit?