kernel 1.1.0

Abstract Reactive Streams
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

/FE common code

system "l net.q"
system "l jrnl.q"

data:()

.net.getData:{data where x<data[;0]}

updData:{data,a:enlist[x];.net.pub x}

upd:{
    $a[.net.mode;
        /Slave - take the sequence from the message
        .core.seq::first x;
        /Master - increment .core.seq and add it to the message
        x:(.core.seq+a:1;x)];
    /Log to journal
    .jrnl.jupd(`updData;x);
    /Update data and publish to subscribers
    updData x}

eod:{0N!(`eod;x); .net.eod[x]; exit 0}

.z.ts:{tryreconn[]; tryeod[];}

/Load custom functions for FE
system "l fe_custom.q"

/FE initialization
init:{
    .jrnl.jinit[];
    if [count data; .core.seq::last[data][0]];
    .core.timerinit[];
    .net.netinit[];
    }

@[init;0b;{exit 1}]