Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.structural2 / scl / Simantics / Structural.scl

diff --git a/bundles/org.simantics.structural2/scl/Simantics/Structural.scl b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl
new file mode 100644 (file)
index 0000000..c27dcf3
--- /dev/null
+++ b/bundles/org.simantics.structural2/scl/Simantics/Structural.scl
@@ -0,0 +1,12 @@
+include "Simantics/Variables"\r
+include "http://www.simantics.org/Layer0-1.1" as L0\r
+include "http://www.simantics.org/Structural-1.2" as STR\r
+\r
+isPartOfUC :: Variable -> <ReadGraph> Boolean\r
+isPartOfUC variable = do\r
+  component = represents variable\r
+  composite = singleObject component L0.PartOf\r
+  existsStatement composite STR.Defines\r
+\r
+\r
+\r