Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Issue.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
new file mode 100644 (file)
index 0000000..79d16ac
--- /dev/null
+++ b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
@@ -0,0 +1,28 @@
+include "Simantics/Entity" hiding (nameOf)\r
+import "Simantics/Model"\r
+import "http://www.simantics.org/Issue-1.2" as ISSUE\r
+\r
+type Issue = Resource\r
+type Severity = Resource\r
+    \r
+issuesOf :: Model -> <ReadGraph> [Issue]\r
+issuesOf model = recurse ISSUE.Issue (toResource model)\r
+  where\r
+    recurse t r = do\r
+        cs = resourceChildrenOf r \r
+        issues = map fromResource $ filter isIssue cs\r
+        issueGrp = filter (not . isIssue) cs\r
+        issues + concatMap (recurse t) issueGrp\r
+    isIssue r = isInstanceOf r ISSUE.Issue\r
+    \r
+importJava "org.simantics.issues.common.IssueUtils" where\r
+    @JavaName newUserIssueForModel\r
+    newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
+\r
+userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
+userIssueAdvanced model label severity contexts = do\r
+    newUserIssueForModel model label severity contexts\r
+\r
+importJava "org.simantics.issues.common.IssueUtils" where\r
+    @JavaName newUserIssueForModel\r
+    userIssue :: () -> <WriteGraph> Issue
\ No newline at end of file