23 Nov
2011
23 Nov
'11
4:47 p.m.
Hi,
You are confused :).
The problem is in the way you add the classes to the model. You should
use the InstallElementsOperator which deals with the merging issue.
Check the following code:
model := MooseModel new.
model sourceLanguage: ( FAMIXSmalltalkSourceLanguage new ).
importTask := MooseImportClassesTask new.
importTask importerClass: SmalltalkImporter.
importTask importingContext: (MooseImportingContext new
importClass ; importAttribute ; importMethod ;
mergeClassAndMetaclass ; yourself).
importTask addClass: LANNode.
importer := importTask run.
(InstallElementsOperator
with: importer
on: model) run.
(model allClasses reject: #isStub)
Cheers,
Doru
On Wed, Nov 23, 2011 at 4:16 PM, Alexandre Bergel
<alexandre.bergel(a)me.com> wrote:
Hi!
Maybe I am confused with something. Why the following expression return 2 and not 1?
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| model importTask importer |
model := MooseModel new.
model sourceLanguage: ( FAMIXSmalltalkSourceLanguage new ).
importTask := MooseImportClassesTask new.
importTask importerClass: SmalltalkImporter.
importTask importingContext: (MooseImportingContext new
importClass ; importAttribute ; importMethod ;
mergeClassAndMetaclass ; yourself).
importTask addClass: LANNode.
importer := importTask run.
model addAll: importer classes.
(model allClasses reject: #isStub) size
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Apparently, LANNode is twice in the model.
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"