23 Nov
2011
23 Nov
'11
5:02 p.m.
This is pretty confusing :-)
If I do "model add: famixClass" I do not see a good reason for having twice the
same famixClass in model.
Cheers,
Alexandre
On 23 Nov 2011, at 12:47, Tudor Girba wrote:
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:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
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"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev