X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.structural2%2Fscl%2FSimantics%2FStructural.scl;h=a568a5731ea8a4f5406b303d4b6a544f0b9c5ce2;hb=7402926f3949dbb38e9f8f45e864ba4dd65b59b9;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..a568a5731 100644 --- a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl +++ b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl @@ -1,12 +1,17 @@ -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] + structuralTypeResource :: Variable -> Resource -> Resource \ No newline at end of file