modeltype entities "strict" uses entities('http://example.com/entities');
modeltype persistence "strict" uses persistence('http://example.com/persistence');
modeltype uml "strict" uses uml('http://www.eclipse.org/uml2/3.0.0/UML');
	

transformation swichprofile(in umlIn:entities, in persistenceProf:uml, out umlOut:persistence);

main() {
	-- copy root model(s)
	var _result := umlIn.rootObjects()[uml::Model].deepclone();
	_result[uml::Model]->forEach(model) {
		-- is "entities" Profile applied?
		if(model.getAppliedProfile('entities') <> null) then {
			-- remove application of "entities" profile
			model.unapplyProfile(model.getAppliedProfiles()![name='entities']);
			-- apply "persistence" profile instead
			model.applyProfile(persistenceProf.objectsOfType(uml::Profile)![name='persistence']);
		} endif;
	};
	-- now transform "entity" stereotype applications
	umlIn.objectsOfType(entities::Entity).map toPersistent();
	_result;
}

mapping entities::Entity::toPersistent() : persistence::Persistent {
	persistent_name := self.table_name;
	-- figure out which class the stereotype should be applied to
	base_Class := umlOut.objectsOfType(uml::Class)![qualifiedName = self.base_Class.qualifiedName];
}

modeltype jpa "strict" uses JPA('http:///JPA.ecore');
modeltype rel "strict" uses REL('http:///REL.ecore');
modeltype uml "strict" uses uml('http://www.eclipse.org/uml2/2.1.0/UML');

transformation jpa2rel(in jpaIn:jpa, in umlIn:uml, out relOut:rel);

main() {
	-- copy root model(s)
	log("main()...");
	umlIn.rootObjects()[uml::Model] -> map toModel();
}

mapping uml::Model::toModel() : uml::Model{
	name := self.name;
	log("toModel()...");	
}

var models = umlIn.rootObjects()[uml::Model].clone();
	models[uml::Model]->forEach(m){
		m.profileApplication := profileIn.objects()[uml::ProfileApplication];
	};

...
someClass.applyStereotype(Student.oclAsType(Stereotype));
...