adam@2064: table channels : {Id : int, Channel:channel xbody}
adam@2064:
adam@2064: fun dosend (s:string) : transaction unit =
adam@2064: c <- oneRow1 (SELECT * FROM channels);
adam@2064: debug ("Sending " ^ s ^ " through the channel...");
adam@2064: send c.Channel {[s]}
adam@2064:
adam@2064: fun mkchannel {} : transaction xbody =
adam@2064: c <- channel;
adam@2064: s <- source ;
adam@2064: dml( DELETE FROM channels WHERE Id >= 0);
adam@2064: dml( INSERT INTO channels(Id, Channel) VALUES(0, {[c]}) );
adam@2064: return
adam@2064:
adam@2064:
adam@2064: fun main {} : transaction page =
adam@2064: s <- source ;
adam@2064: return
adam@2064:
adam@2064:
adam@2064: