-- @atlcompiler emftvm
-- @nsURI UML=http://www.eclipse.org/uml2/5.0.0/UML
module AddStereotypeAttribute;

create MM2 : UML from MM1 : UML, PT : UML;

helper def : IntegerType : UML!PrimitiveType =
	UML!PrimitiveType.allInstancesFrom('PT')->any(p | p.name = 'Integer');

rule Profile {
	from
		s : UML!Profile
	to
		t : UML!Profile (
			name <- s.name,
			packageImport <- s.packageImport,
			packagedElement <- s.packagedElement
		)
}

rule PackageImport {
	from
		s : UML!PackageImport
	to
		t : UML!PackageImport (
			importedPackage <- s.importedPackage
		)
}

rule Stereotype {
	from
		s : UML!Stereotype
	to
		t : UML!Stereotype (
			name <- s.name,
			ownedAttribute <- s.ownedAttribute->including(p)
		),
		p : UML!Property (
			name <- 'Bonus',
			type <- thisModule.IntegerType
		)
}

rule Property {
	from
		s : UML!Property
	to
		t : UML!Property (
			name <- s.name,
        	type <- s.type,
        	upperValue <- s.upperValue,
        	lowerValue <- s.lowerValue
		)
}