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