| import classes : '../Classes.ecore'; |
| import classescs : '../ClassesCS.ecore'; |
| import 'helpers.ocl'; |
| |
| transformation classescs2as |
| { |
| check leftCS imports classescs; |
| enforce rightAS imports classes; |
| } |
| |
| map createPackage in classescs2as |
| { |
| guard:leftCS packageCS : PackageCS; |
| new:rightAS _'package' : Package; |
| set _'package'.name := if packageCS.hasName() |
| then packageCS.name |
| else 'unnamed' |
| endif; |
| } |
| |
| map __root__ in classescs2as |
| { |
| for packageCS : classescs::PackageCS in classescs::PackageCS.allInstances() { |
| call createPackage { |
| packageCS iterates packageCS; |
| } |
| } |
| } |