git.iko.soy/elk
on c710179 help sign in
elk/core/Native/HTTP.js
56 lines 1.8 kB history raw
2function nativeHTTP() {
3 "use strict";
5 function registerReq(queue,responses) { return function(req) {
6 if (req.url !== "") { sendReq(queue,responses,req); }
7 };
8 }
10 function updateQueue(queue,responses) {
11 if (queue.length > 0) {
12 Dispatcher.notify(responses.id, queue[0].value);
13 if (queue[0].value.ctor !== Waiting) {
14 queue.shift();
15 setTimeout(function() { updateQueue(queue,responses); }, 0);
16 }
17 }
18 }
20 function setHeader(pair) {
21 request.setRequestHeader(Elm.JavaScript.castStringToJSString(pair._0),
22 Elm.JavaScript.castStringToJSString(pair._1));
23 }
25 function sendReq(queue,responses,req) {
26 var JS = Elm.JavaScript;
27 var response = { value: Elm.HTTP.Waiting };
28 queue.push(response);
30 var request = null;
31 if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
32 if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
33 request.onreadystatechange = function(e) {
34 if (request.readyState === 4) {
35 response.value = (request.status === 200
36 ? Elm.HTTP.Success(JS.castJSStringToString(request.responseText))
37 : Elm.HTTP.Failure(request.status)(JS.castJSStringToString(request.statusText)));
38 setTimeout(function() { updateQueue(queue,responses); }, 0);
39 }
40 };
41 request.open(JS.castStringToJSString(req.verb),
42 JS.castStringToJSString(req.url),
43 true);
44 Elm.List.map(setHeader)(req.headers);
45 request.send(JS.castStringToJSString(req.body));
46 }
48 function send(requests) {
49 var responses = Elm.Signal.constant(Elm.HTTP.Waiting);
50 var sender = Elm.Signal.lift(registerReq([],responses))(requests);
51 function f(x) { return function(y) { return x; } }
52 return Elm.Signal.lift2(f)(responses)(sender);
53 }
55 Elm.Native.HTTP = {send:send};