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=c948b5f27aef00349df9f311a1f88d200bc06665;hpb=06718abb2b3cc780748553811c4857c165499809;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 c948b5f27..a568a5731 100644 --- a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl +++ b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl @@ -1,16 +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 - -importJava "org.simantics.structural2.variables.Connection" where - @JavaName Connection - data StructuralConnection - -importJava "org.simantics.structural2.utils.StructuralUtils" where - structuralConnectionConnectionPoints :: StructuralConnection -> Resource -> [Variable] +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