Playground for Antti.

[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
index c7628bc93cfaf2853af0033e561d2c4b5ddf8d27..41e955cd5a2ad7c1a2c3bec6cc8015df3f7e0f8c 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
@@ -1,16 +1,17 @@
 include "Simantics/Entity" hiding (nameOf)
 import "Simantics/Model"
+import "UI/Progress"
 import "http://www.simantics.org/Issue-1.2" as ISSUE
 
 type Issue = Resource
 type Severity = Resource
     
 issuesOf :: Model -> <ReadGraph> [Issue]
-issuesOf model = recurse ISSUE.Issue (toResource model)
+issuesOf model = recurse ISSUE.Issue model
   where
     recurse t r = do
-        cs = resourceChildrenOf r 
-        issues = map fromResource $ filter isIssue cs
+        cs = children r 
+        issues = filter isIssue cs
         issueGrp = filter (not . isIssue) cs
         issues + concatMap (recurse t) issueGrp
     isIssue r = isInstanceOf r ISSUE.Issue
@@ -25,4 +26,20 @@ userIssueAdvanced model label severity contexts = do
 
 importJava "org.simantics.issues.common.IssueUtils" where
     @JavaName newUserIssueForModel
-    userIssue :: () -> <WriteGraph> Issue
\ No newline at end of file
+    userIssue :: () -> <WriteGraph> Issue
+    
+importJava "org.simantics.db" where
+    @JavaName Issue
+    data IssueI
+    
+importJava "org.simantics.db.layer0.validation.ValidationUtils" where
+  @JavaName validateConstraintsForDomain
+  validateDomain :: Resource -> <ReadGraph> [IssueI]
+  
+importJava "org.simantics.modeling.utils.BatchValidations" where
+  @JavaName runAll
+  runAllBatchValidations :: ProgressMonitor -> Resource -> Resource -> <Proc> ()
+  
+importJava "org.simantics.issues.common.RunActiveValidations" where
+  @JavaName run
+  runActiveValidations :: ProgressMonitor -> Resource -> <Proc> ()
\ No newline at end of file