import  cs : 'ClassesCS.ecore#/'
import  as : 'Classes.ecore#/'
import 'classescs2asLookup.ocl'
import 'classescs2asDisambiguation.ocl'
package cs

context RootCS
def : ast() : as::Root =
	as::Root {
		ownedPackages = ownedPackages.ast()->asOrderedSet() 
	}
context PackageCS
def : ast() : as::Package =
	as::Package {
		name = name, 
	ownedClasses = ownedClasses.ast()->asOrderedSet(),
	ownedPackages = ownedPackages.ast()->asOrderedSet()  
	}
context ClassCS
def : ast() : classes::Class =
	classes::Class {
		name = name, 
	superClass = if _extends = null then null else ast() .lookupClass(_extends) endif 
	}
endpackage