bundles/org.simantics.event/scl/Simantics/Event.scl

   1 import "Simantics/DB"\r
   2 import "Simantics/Ontologies"\r
   3 \r
   4 importJava "org.simantics.event.view.EventView" where\r
   5     getEventLogs :: () -> <ReadGraph> [Resource]\r
   6 \r
   7 findEvents :: <ReadGraph, Proc> [Resource]\r
   8 findEvents = do\r
   9     logs = getEventLogs ()\r
  10     slices = map findEventSlices logs\r
  11     slices = join slices\r
  12     events = map findEventsFromSlice slices\r
  13     join events\r
  14 \r
  15 @private\r
  16 findEventSlices :: Resource -> <ReadGraph, Proc> [Resource]\r
  17 findEventSlices log = do\r
  18     collectionToList $ objects_ log L0.ConsistsOf\r
  19 \r
  20 @private\r
  21 findEventsFromSlice :: Resource -> <ReadGraph, Proc> [Resource]\r
  22 findEventsFromSlice slice = do\r
  23     collectionToList (objects_ slice L0.ConsistsOf)