bundles/org.simantics.modeling/scl/Simantics/Issue.scl

   1 include "Simantics/Entity" hiding (nameOf)\r
   2 import "Simantics/Model"\r
   3 import "http://www.simantics.org/Issue-1.2" as ISSUE\r
   4 \r
   5 type Issue = Resource\r
   6 type Severity = Resource\r
   7     \r
   8 issuesOf :: Model -> <ReadGraph> [Issue]\r
   9 issuesOf model = recurse ISSUE.Issue (toResource model)\r
  10   where\r
  11     recurse t r = do\r
  12         cs = resourceChildrenOf r \r
  13         issues = map fromResource $ filter isIssue cs\r
  14         issueGrp = filter (not . isIssue) cs\r
  15         issues + concatMap (recurse t) issueGrp\r
  16     isIssue r = isInstanceOf r ISSUE.Issue\r
  17     \r
  18 importJava "org.simantics.issues.common.IssueUtils" where\r
  19     @JavaName newUserIssueForModel\r
  20     newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
  21 \r
  22 userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
  23 userIssueAdvanced model label severity contexts = do\r
  24     newUserIssueForModel model label severity contexts\r
  25 \r
  26 importJava "org.simantics.issues.common.IssueUtils" where\r
  27     @JavaName newUserIssueForModel\r
  28     userIssue :: () -> <WriteGraph> Issue