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

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