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=c948b5f27aef00349df9f311a1f88d200bc06665;hpb=86adc86522decdf79259743cde5ec3688af3d908;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..33b0ec147 100644 --- a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl +++ b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl @@ -1,16 +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 - -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]