2013-02-20 22:36:16 +00:00
|
|
|
|
2013-03-09 06:50:46 +00:00
|
|
|
Elm.Native.Http = function(elm) {
|
2013-02-22 23:19:40 +00:00
|
|
|
'use strict';
|
2013-03-09 04:17:01 +00:00
|
|
|
elm.Native = elm.Native || {};
|
2013-03-09 06:50:46 +00:00
|
|
|
if (elm.Native.Http) return elm.Native.Http;
|
|
|
|
|
|
|
|
|
|
|
|
var JS = Elm.JavaScript(elm);
|
|
|
|
var List = Elm.List(elm);
|
|
|
|
var Signal = Elm.Signal(elm);
|
2013-03-09 04:17:01 +00:00
|
|
|
|
2013-02-20 22:36:16 +00:00
|
|
|
|
|
|
|
function registerReq(queue,responses) { return function(req) {
|
2013-06-21 04:25:10 +00:00
|
|
|
if (req.url.ctor !== '[]') { sendReq(queue,responses,req); }
|
2013-02-20 22:36:16 +00:00
|
|
|
};
|
|
|
|
}
|
|
|
|
|
|
|
|
function updateQueue(queue,responses) {
|
|
|
|
if (queue.length > 0) {
|
2013-03-09 04:17:01 +00:00
|
|
|
elm.notify(responses.id, queue[0].value);
|
2013-05-11 20:35:20 +00:00
|
|
|
if (queue[0].value.ctor !== 'Waiting') {
|
|
|
|
queue.shift();
|
|
|
|
setTimeout(function() { updateQueue(queue,responses); }, 0);
|
2013-02-20 22:36:16 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
function setHeader(pair) {
|
2013-06-09 18:13:03 +00:00
|
|
|
request.setRequestHeader( JS.fromString(pair._0), JS.fromString(pair._1) );
|
2013-02-20 22:36:16 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
function sendReq(queue,responses,req) {
|
2013-03-09 06:50:46 +00:00
|
|
|
var response = { value: { ctor:'Waiting' } };
|
2013-02-20 22:36:16 +00:00
|
|
|
queue.push(response);
|
|
|
|
|
|
|
|
var request = null;
|
|
|
|
if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
|
|
|
|
if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
|
|
|
|
request.onreadystatechange = function(e) {
|
|
|
|
if (request.readyState === 4) {
|
2013-05-23 17:06:14 +00:00
|
|
|
response.value = (request.status >= 200 && request.status < 300 ?
|
2013-05-11 20:42:45 +00:00
|
|
|
{ ctor:'Success', _0:JS.toString(request.responseText) } :
|
|
|
|
{ ctor:'Failure', _0:request.status, _1:JS.toString(request.statusText) });
|
|
|
|
setTimeout(function() { updateQueue(queue,responses); }, 0);
|
2013-02-20 22:36:16 +00:00
|
|
|
}
|
|
|
|
};
|
2013-03-09 06:50:46 +00:00
|
|
|
request.open(JS.fromString(req.verb), JS.fromString(req.url), true);
|
|
|
|
List.map(setHeader)(req.headers);
|
|
|
|
request.send(JS.fromString(req.body));
|
2013-02-20 22:36:16 +00:00
|
|
|
}
|
2013-05-11 20:42:45 +00:00
|
|
|
|
2013-02-20 22:36:16 +00:00
|
|
|
function send(requests) {
|
2013-03-09 06:50:46 +00:00
|
|
|
var responses = Signal.constant(elm.Http.Waiting);
|
|
|
|
var sender = A2( Signal.lift, registerReq([],responses), requests );
|
2013-02-20 22:36:16 +00:00
|
|
|
function f(x) { return function(y) { return x; } }
|
2013-03-09 06:50:46 +00:00
|
|
|
return A3( Signal.lift2, f, responses, sender );
|
2013-02-20 22:36:16 +00:00
|
|
|
}
|
|
|
|
|
2013-03-09 06:50:46 +00:00
|
|
|
return elm.Native.Http = {send:send};
|
2013-03-09 04:17:01 +00:00
|
|
|
|
|
|
|
};
|