adam@1447: table ms : {Client : client, Channel : channel xbody}
adam@1447:
adam@1447: val hitMe =
adam@1447: me <- self;
adam@1447: ch <- oneRowE1 (SELECT (ms.Channel)
adam@1447: FROM ms
adam@1447: WHERE ms.Client = {[me]});
adam@1447:
adam@1447: s <- source 0;
adam@1447: send ch
adam@1447: {[n]}}/>
adam@1447:
adam@1447:
adam@1447:
adam@1447: fun main' () =
adam@1447: me <- self;
adam@1447: ch <- channel;
adam@1447: dml (INSERT INTO ms (Client, Channel) VALUES ({[me]}, {[ch]}));
adam@1447:
adam@1447: s <- source ;
adam@1447:
adam@1447: return
adam@1447:
adam@1447:
adam@1447:
adam@1447:
adam@1447: fun main () =
adam@1447: return