modeltype UML uses "http://www.eclipse.org/uml2/5.0.0/UML";

transformation ApplyStereotypes2Model (inout model : UML, in profile : UML );

main () 
{
  log ('Beginn ApplyStereotypes2Model');
  var prof  : Profile := profile.objects()![Profile];
  model.objects()[Model]->stereotypeModel(prof);
  log ('Ende ApplyStereotypes2Model');
}

helper Model::stereotypeModel(prof:Profile) 
{
  var packages : Set(Package) := null;
  self.applyProfile(prof);
  model.objectsOfType(Package)->forEach ( idx ) { idx.stereotypePackage(prof); }; 
}

helper Package::stereotypePackage(p : Profile)
{
-- 	self.applyProfile(p);
  
    if (not self.isProfileApplied(p))
	then log ( self.name + ' has not applied profile  ' + p.name)
	endif;
	  
	if ( self.name = 'UI' or  self.name = 'DB' )
	then 
	{
		var stname:String := null;
		var st:Stereotype := null;
		
		if (self.name = 'UI') then stname := 'presentation' 
		else stname := 'persistent'	endif;
		
		st := p.ownedStereotype->select(name = stname)->any(true);

		if (st = null)
		then log ( stname + ' not found for ' + self.name)
		endif;

		if (not self.isStereotypeApplicable(st))
		then log ( st.name + ' is not applicable to package ' + self.name)
		endif;
	  
		self.applyStereotype(st);
	
		if (not self.isStereotypeApplied(st))
		then log ( '<' + st.name + '>' + ' is not applied to package '   + self.name)
		else log ( '<' + st.name + '>' + ' has been applied to package ' + self.name)
		endif;
	
		self.ownedMember->forEach(idx) 
		{
			if (idx.oclIsTypeOf(Class))	then idx.stereotypeClass(p, self.name) endif;
		}
  }
  endif; 
} 

helper NamedElement::stereotypeClass(p : Profile, type : String)
{
	var stname:String := null;
	var st:Stereotype := null;
		
	if (type = 'UI') then stname := 'mvc' else stname := 'entity' endif;
		
	st := p.ownedStereotype->select(name = stname)->any(true);

   if (not self.isStereotypeApplicable(st))
   then log ( self.name + ' has not applicable stereotype ' + st.name)
   endif;

   self.applyStereotype(st);

   if (not self.isStereotypeApplied(st))
	then log ( '<' + st.name + '>' + ' is not applied to package '   + self.name)
	else log ( '<' + st.name + '>' + ' has been applied to package ' + self.name)
   endif;
} 

helper printStereotypes( el : Set(Stereotype) )  
{
   el->forEach ( idx ) { var s : Stereotype := idx; log ( "   <" + s.name + ">" );  }; 
   log (''); 
}