git.iko.soy/elk
on 4e82d19 help sign in
elk/libraries/Native/Signal/Http.js
62 lines 2.0 kB history raw
1Elm.Native.Http = {};
2Elm.Native.Http.make = function(elm) {
4 elm.Native = elm.Native || {};
5 elm.Native.Http = elm.Native.Http || {};
6 if (elm.Native.Http.values) return elm.Native.Http.values;
9 var JS = Elm.JavaScript.make(elm);
10 var List = Elm.List.make(elm);
11 var Signal = Elm.Signal.make(elm);
14 function registerReq(queue,responses) { return function(req) {
15 if (req.url.ctor !== '[]') { sendReq(queue,responses,req); }
16 };
17 }
19 function updateQueue(queue,responses) {
20 if (queue.length > 0) {
21 elm.notify(responses.id, queue[0].value);
22 if (queue[0].value.ctor !== 'Waiting') {
23 queue.shift();
24 setTimeout(function() { updateQueue(queue,responses); }, 0);
25 }
26 }
27 }
29 function setHeader(pair) {
30 request.setRequestHeader( JS.fromString(pair._0), JS.fromString(pair._1) );
31 }
33 function sendReq(queue,responses,req) {
34 var response = { value: { ctor:'Waiting' } };
35 queue.push(response);
37 var request = null;
38 if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
39 if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
40 request.onreadystatechange = function(e) {
41 if (request.readyState === 4) {
42 response.value = (request.status >= 200 && request.status < 300 ?
43 { ctor:'Success', _0:JS.toString(request.responseText) } :
44 { ctor:'Failure', _0:request.status, _1:JS.toString(request.statusText) });
45 setTimeout(function() { updateQueue(queue,responses); }, 0);
46 }
47 };
48 request.open(JS.fromString(req.verb), JS.fromString(req.url), true);
49 List.map(setHeader)(req.headers);
50 request.send(JS.fromString(req.body));
51 }
53 function send(requests) {
54 var responses = Signal.constant(elm.Http.values.Waiting);
55 var sender = A2( Signal.lift, registerReq([],responses), requests );
56 function f(x) { return function(y) { return x; } }
57 return A3( Signal.lift2, f, responses, sender );
58 }
60 return elm.Native.Http.values = {send:send};
62};