[Moose-dev] Re: Namespace tree calculation for java

This looks like a rather slow way to calculate a namespace tree. I'm pretty sure it can be done in such a way that a Task is not needed. MooseModel>inferNamespaceParentsBasedOnNames <menuItem: 'Infer Namespace Parents Based on Names' category: 'Utilities'> | parent parentNameSize currentPosition parentName namespaces | namespaces := self allNamespaces. MooseCustomTask new with: [:task | namespaces do: [ :each | currentPosition := 1. each name: (each name copyReplaceAll: '.' with: '::'). [ currentPosition := each name indexOf: $: startingAt: currentPosition. currentPosition isZero not ] whileTrue: [ parentName := (each name copyFrom: 1 to: currentPosition - 1) asSymbol. namespaces detect: [ :x | parentName = x mooseName ] ifNone: [ | newNamespace | newNamespace := FAMIXNamespace new name: parentName. namespaces add: newNamespace. self add: newNamespace ]. currentPosition := currentPosition + 2 ]. task increment]. namespaces do: [ :each | each belongsTo isNil ifTrue: [ parentNameSize := (each name lastIndexOf: $:) - 2. parentNameSize > 0 ifTrue: [ parent := namespaces detect: [ :x | (each name copyFrom: 1 to: parentNameSize) asSymbol = x mooseName ] ifNone: [ nil ]. parent isNil ifFalse: [ each name: (each name copyFrom: parentNameSize + 3 to: each name size) asSymbol. each parentScope: parent ] ] ]. task increment] ] description: 'Infer namespace parents based on names' length: (namespaces size * 2); runWithProgress. ^ self allNamespaces _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev