From: Tuukka Lehtonen Date: Mon, 10 Dec 2018 13:16:17 +0000 (+0200) Subject: Added new functions to Simantics/District X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=commitdiff_plain;h=refs%2Fchanges%2F42%2F2542%2F2;p=simantics%2Fdistrict.git Added new functions to Simantics/District * possibleMappedComponent * possibleDNElementMappedToComponent * dnElementsMappedToComponents gitlab #23 Change-Id: Ic6775beef2f6be30af655f4af243f1ee733b8842 --- diff --git a/org.simantics.district.network/scl/Simantics/District.scl b/org.simantics.district.network/scl/Simantics/District.scl index b99442e6..36dee397 100644 --- a/org.simantics.district.network/scl/Simantics/District.scl +++ b/org.simantics.district.network/scl/Simantics/District.scl @@ -85,6 +85,15 @@ importJava "org.simantics.district.network.DistrictNetworkUtil" where createVertex :: Resource -> Vector Double -> Resource -> Resource createEdge :: Resource -> Resource -> Resource +""" +Tries to look for the Resource representing the configuration component +mapped to the specified district network diagram element. +""" +possibleMappedComponent :: Resource -> Maybe Resource +possibleMappedComponent r = match possibleObject r DN.MappedComponent with + Nothing -> Nothing + Just me -> possibleObject me MOD.ElementToComponent + """ Tries to look for the Variable representing the configuration component mapped to the specified district network diagram element. @@ -93,15 +102,13 @@ The variable returned is by default the active experiment context variable but if that is not available then a configuration context variable is returned. """ possibleMappedComponentVariable :: Resource -> Maybe Variable -possibleMappedComponentVariable r = match possibleObject r DN.MappedComponent with +possibleMappedComponentVariable r = match possibleMappedComponent r with Nothing -> Nothing - Just me -> match possibleObject me MOD.ElementToComponent with - Nothing -> Nothing - Just mc -> do - mcv = resourceVariable mc - match possibleActiveVariable mcv with - Nothing -> Just mcv - a -> a + Just mc -> do + mcv = resourceVariable mc + match possibleActiveVariable mcv with + Nothing -> Just mcv + a -> a """ """ @@ -118,3 +125,26 @@ mappedComponentPropertyValue def propName r = match possibleMappedComponentVaria Just mv -> match possiblePropertyValue mv propName with Nothing -> def Just v -> v + +""" +Returns possible district network element that is mapped to the +specified model configuration component. The DN element is found +using the following relation path: + + domain model configuration component ---[MOD.ComponentToElement]---> domain model diagram element + ----[DN.MappedFromElement]----> district network diagram element +""" +possibleDNElementMappedToComponent :: Resource -> Maybe Resource +possibleDNElementMappedToComponent mappedComponent = match possibleObject mappedComponent MOD.ComponentToElement with + Nothing -> Nothing + Just element -> possibleObject element DN.MappedFromElement + +""" +Returns all district network elements that are found to be mapped the +specified mapped model configuration components by +[possibleDNElementMappedToComponent](possibleDNElementMappedToComponent). + +The result list can be smaller than the input resource list, even empty. +""" +dnElementsMappedToComponents :: [Resource] -> [Resource] +dnElementsMappedToComponents mappedComponents = mapMaybe possibleDNElementMappedToComponent mappedComponents