X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.structural2%2Fscl%2FSimantics%2FStructural.scl;h=33b0ec14713945bfbd30b2460a91bdc886a47ef7;hb=bc24b049b5ec56feb66793df675a6db78860e28f;hp=c27dcf356db5b1ce90def23cb681d8f13ffb5b98;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl index c27dcf356..33b0ec147 100644 --- a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl +++ b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl @@ -1,12 +1,16 @@ -include "Simantics/Variables" -include "http://www.simantics.org/Layer0-1.1" as L0 -include "http://www.simantics.org/Structural-1.2" as STR - -isPartOfUC :: Variable -> Boolean -isPartOfUC variable = do - component = represents variable - composite = singleObject component L0.PartOf - existsStatement composite STR.Defines - - - +include "Simantics/Variables" +include "http://www.simantics.org/Layer0-1.1" as L0 +include "http://www.simantics.org/Structural-1.2" as STR + +isPartOfUC :: Variable -> Boolean +isPartOfUC variable = do + component = represents variable + composite = singleObject component L0.PartOf + existsStatement composite STR.Defines + +importJava "org.simantics.structural2.variables.Connection" where + @JavaName Connection + data StructuralConnection + +importJava "org.simantics.structural2.utils.StructuralUtils" where + structuralConnectionConnectionPoints :: StructuralConnection -> Resource -> [Variable]