module MicrocontrollerToDocumenation;

create OUT: Documentation from IN: UML;

lazy rule getMikroControllerPortTableEntries {
	from
		port: UML!"uml::Port" 
	to
		microcontrollerPortTable: Documentation!PortTableEntry (
			name <- port.name,
			direction <- port.getValue(port.getAppliedStereotype('MicroController::MicroControllerPort'), 'direction'),
			type <- port.getValue(port.getAppliedStereotype('MicroController::MicroControllerPort'), 'type')
		)
}


lazy rule getMikroControllerPortTable {
	from
		portEntries: UML!"uml::Class" 
	to 
		portTable: Documentation!PortTable (
			microcontrollerPortEntries <- portEntries.getOwnedPorts() -> collect(e | thisModule.getMikroControllerPortTableEntries(e))
		)
}

rule SystemReport {
	from
		s: UML!"uml::Model" 
	to
		t: Documentation!Report (
			heading <- s.name,
			microcontrollerPortTable <- s.getPackagedElements() 	-> select(e | e.oclIsTypeOf(UML!"uml::Class")) 
													-> collect(e | thisModule.getMikroControllerPortTable(e))
		)
}