steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fjsc: cross domain json requests

darcs
chris.double 2006-12-18 07:20:23 +00:00
parent 8f931eae56
commit bd549d640b
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
libs/fjsc/resources/bootstrap.js
View File

@ -569,6 +569,29 @@ factor.add_word("browser-dom", "document", "primitive", function(next) {
factor.call_next(next); factor.call_next(next);
}); });
factor.add_word("browser-dom", "load-script", "primitive", function(next) {
var stack = factor.cont.data_stack;
$("head/script#jsonrequest").remove();
var script = document.createElement("script");
script.id = "jsonrequest";
script.type = "text/javascript";
script.src = stack.pop();
$("head").append(script);
factor.call_next(next);
});
var handle_json = false;
factor.add_word("browser-dom", "json-request", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
handle_json = function(data) {
factor.cont.data_stack.push(data);
quot.func(function() { });
}
factor.get_word("browser-dom", "load-script").execute(next);
});
/* Run initial factor code */ /* Run initial factor code */
$(document).ready(function() { $(document).ready(function() {
$.get("/responder/fjsc-resources/bootstrap.factor", function(result) { $.get("/responder/fjsc-resources/bootstrap.factor", function(result) {