]> gerrit.simantics Code Review - simantics/district.git/blobdiff - org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
Additions to district features
[simantics/district.git] / org.simantics.district.network.ontology / scl / Simantics / District / SCLMain.scl
diff --git a/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl b/org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
new file mode 100644 (file)
index 0000000..2d46af9
--- /dev/null
@@ -0,0 +1,13 @@
+import "Simantics/DB"
+import "Simantics/Variables"
+
+districtNetworkProfileStyle :: String -> Resource -> <ReadGraph> (String, String, String)
+districtNetworkProfileStyle relation element = do
+    rel = possibleResource relation
+    result = match rel with
+        Just rel -> do
+            match possibleRelatedValue element rel with
+                Just res -> res
+                Nothing -> ""
+        Nothing -> ""
+    ("", result, "")
\ No newline at end of file