git.iko.soy/elk
on d9d1dfd help sign in
elk/core-js/Signal/WebSocket.js
41 lines 1.2 kB history raw
1/*! WebSocket
2A library for low latency HTTP communication. See the HTTP library for standard
3requests like GET, POST, etc.
4!*/
6Elm.WebSocket = function() {
7 var JS = Elm.JavaScript;
9 /** open : String -> Signal String -> Signal String
10 Create a web-socket. The first argument is the URL of the desired
11 web-socket server. The input signal holds the outgoing messages,
12 and the resulting signal contains the incoming ones.
13 **/
14 function open(url) { return function(outgoing) {
15 var incoming = Elm.Signal.constant(["Nil"]);
16 var ws = new window.WebSocket(JS.castStringToJSString(url));
18 var pending = [];
19 var ready = false;
21 ws.onopen = function(e) {
22 var len = pending.length;
23 for (var i = 0; i < len; ++i) { ws.send(pending[i]); }
24 ready = true;
25 };
26 ws.onmessage = function(event) {
27 Dispatcher.notify(incoming.id, JS.castJSStringToString(event.data));
28 };
30 function send(msg) {
31 var s = JS.castStringToJSString(msg);
32 ready ? ws.send(s) : pending.push(s);
33 }
35 function take1(x) { return function(y) { return x; } }
36 return Elm.Signal.lift2(take1)(incoming)(Elm.Signal.lift(send)(outgoing));
37 };
38 }
40 return {open:open};
41}();