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

fjsc: replace yahoo Ajax code with jquery

chris.double 2006-12-17 04:00:35 +00:00
parent 0edab09baf
commit 7615f09e48
7 changed files with 15 additions and 1779 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
apps/furnace-fjsc/furnace-fjsc.factor
View File

@ -31,9 +31,7 @@ USING: kernel html furnace xml io httpd sequences
#! Render the fjsc page importing the required
#! scripts.
serving-html {
"/responder/fjsc-resources/yahoo/yahoo.js"
"/responder/fjsc-resources/yahoo/event.js"
"/responder/fjsc-resources/yahoo/connection.js"
"/responder/fjsc-resources/jquery.js"
"/responder/fjsc-resources/bootstrap.js"
} swap [
[

2
apps/furnace-fjsc/repl.fhtml
View File

@ -1,4 +1,4 @@
<form id="toeval" onsubmit="factor.fjsc_eval(document.getElementById('toeval'));return false;" method="post">
<form id="toeval" onsubmit="factor.server_eval($('#code').get(0).value);return false;" method="post">
<textarea name="code" id="code" cols="64" rows="10">
</textarea>
<input type="submit"/>

44
apps/furnace-fjsc/resources/bootstrap.js
View File

@ -42,7 +42,6 @@ function Factor() {
this.in_vocab = "scratchpad";
this.using_vocabs = [ "scratchpad", "kernel","math","sequences","parser","alien","browser-dom", "words" ];
this.cont = new Continuation();
this.form = false ;
}
var factor = new Factor();
@ -111,26 +110,15 @@ Factor.prototype.make_quotation = function(source, func) {
Factor.prototype.server_eval = function(text, next) {
var self = this;
var callback = {
success: function(o) {
var v = o.responseText;
document.getElementById('compiled').innerHTML="<pre>" + v + "</pre>";
document.getElementById('code').value="";
var func = eval(v);
factor.cont.next = function() { self.display_datastack(); }
func(factor);
if(next)
factor.call_next(next);
}
};
this.form.code.value=text;
YAHOO.util.Connect.setForm(this.form);
YAHOO.util.Connect.asyncRequest('POST', "/responder/fjsc/compile", callback);
}
Factor.prototype.fjsc_eval = function(form) {
this.form = form;
this.server_eval(form.code.value);
$.post("/responder/fjsc/compile", { code: text }, function(result) {
document.getElementById('compiled').innerHTML="<pre>" + result + "</pre>";
document.getElementById('code').value="";
var func = eval(result);
factor.cont.next = function() { self.display_datastack(); }
func(factor);
if(next)
factor.call_next(next);
});
}
Factor.prototype.display_datastack = function() {
@ -353,17 +341,9 @@ factor.add_word("prettyprint", ".", "primitive", function(next) {
factor.add_word("parser", "run-file", "primitive", function(next) {
var stack = factor.cont.data_stack;
var url = stack.pop();
var callback = {
success: function(o) {
var result = o.responseText;
factor.server_eval(result, next);
},
failure: function(o) {
alert('run-file failed');
factor.call_next(next);
}
};
YAHOO.util.Connect.asyncRequest('GET', url, callback, null);
$.get(url, function(result) {
factor.server_eval(result, next);
});
});

1
apps/furnace-fjsc/resources/jquery.js vendored Normal file
View File

File diff suppressed because one or more lines are too long

586
apps/furnace-fjsc/resources/yahoo/connection.js
View File

@ -1,586 +0,0 @@
/*
Copyright (c) 2006, Yahoo! Inc. All rights reserved.
Code licensed under the BSD License:
http://developer.yahoo.net/yui/license.txt
*/
/**
* The Connection Manager provides a simplified interface to the XMLHttpRequest
* object. It handles cross-browser instantiantion of XMLHttpRequest, negotiates the
* interactive states and server response, returning the results to a pre-defined
* callback you create.
* @ class
*/
YAHOO.util.Connect =
{
/**
* Array of MSFT ActiveX ids for XMLHttpRequest.
* @private
* @type array
*/
_msxml_progid:[
'MSXML2.XMLHTTP.5.0',
'MSXML2.XMLHTTP.4.0',
'MSXML2.XMLHTTP.3.0',
'MSXML2.XMLHTTP',
'Microsoft.XMLHTTP'
],
/**
* Array of HTTP header(s)
* @private
* @type array
*/
_http_header:{},
/**
* Determines if HTTP headers are set.
* @private
* @type boolean
*/
_has_http_headers:false,
/**
* Property modified by setForm() to determine if the data
* should be submitted as an HTML form.
* @private
* @type boolean
*/
_isFormSubmit:false,
/**
* Property modified by setForm() to set the HTML form data
* for each transaction.
* @private
* @type string
*/
_sFormData:null,
/**
* Collection of polling references to the polling mechanism in handleReadyState.
* @private
* @type string
*/
_poll:[],
/**
* The polling frequency, in milliseconds, for HandleReadyState.
* when attempting to determine a transaction's XHR readyState.
* The default is 50 milliseconds.
* @private
* @type int
*/
_polling_interval:50,
/**
* A transaction counter that increments the transaction id for each transaction.
* @private
* @type int
*/
_transaction_id:0,
/**
* Member to add an ActiveX id to the existing xml_progid array.
* In the event(unlikely) a new ActiveX id is introduced, it can be added
* without internal code modifications.
* @public
* @param string id The ActiveX id to be added to initialize the XHR object.
* @return void
*/
setProgId:function(id)
{
this.msxml_progid.unshift(id);
},
/**
* Member to modify the default polling interval.
* @public
* @param {int} i The polling interval in milliseconds.
* @return void
*/
setPollingInterval:function(i)
{
if(typeof i == 'number' && isFinite(i)){
this._polling_interval = i;
}
},
/**
* Instantiates a XMLHttpRequest object and returns an object with two properties:
* the XMLHttpRequest instance and the transaction id.
* @private
* @param {int} transactionId Property containing the transaction id for this transaction.
* @return connection object
*/
createXhrObject:function(transactionId)
{
var obj,http;
try
{
// Instantiates XMLHttpRequest in non-IE browsers and assigns to http.
http = new XMLHttpRequest();
// Object literal with http and tId properties
obj = { conn:http, tId:transactionId };
}
catch(e)
{
for(var i=0; i<this._msxml_progid.length; ++i){
try
{
// Instantiates XMLHttpRequest for IE and assign to http.
http = new ActiveXObject(this._msxml_progid[i]);
if(http){
// Object literal with http and tId properties
obj = { conn:http, tId:transactionId };
break;
}
}
catch(e){}
}
}
finally
{
return obj;
}
},
/**
* This method is called by asyncRequest to create a
* valid connection object for the transaction. It also passes a
* transaction id and increments the transaction id counter.
* @private
* @return object
*/
getConnectionObject:function()
{
var o;
var tId = this._transaction_id;
try
{
o = this.createXhrObject(tId);
if(o){
this._transaction_id++;
}
}
catch(e){}
finally
{
return o;
}
},
/**
* Method for initiating an asynchronous request via the XHR object.
* @public
* @param {string} method HTTP transaction method
* @param {string} uri Fully qualified path of resource
* @param callback User-defined callback function or object
* @param {string} postData POST body
* @return {object} Returns the connection object
*/
asyncRequest:function(method, uri, callback, postData)
{
var o = this.getConnectionObject();
if(!o){
return null;
}
else{
if(this._isFormSubmit){
//If the specified HTTP method is GET, setForm() will return an
//encoded string that is concatenated to the uri to
//create a querystring.
if(method == 'GET'){
uri += "?" + this._sFormData;
}
else if(method == 'POST'){
postData = this._sFormData;
}
this._sFormData = '';
this._isFormSubmit = false;
}
o.conn.open(method, uri, true);
if(postData){
this.initHeader('Content-Type','application/x-www-form-urlencoded');
}
//Verify whether the transaction has any user-defined HTTP headers
//and set them.
if(this._has_http_headers){
this.setHeader(o);
}
this.handleReadyState(o, callback);
postData?o.conn.send(postData):o.conn.send(null);
return o;
}
},
/**
* This method serves as a timer that polls the XHR object's readyState
* property during a transaction, instead of binding a callback to the
* onreadystatechange event. Upon readyState 4, handleTransactionResponse
* will process the response, and the timer will be cleared.
*
* @private
* @param {object} o The connection object
* @param callback User-defined callback object
* @return void
*/
handleReadyState:function(o, callback)
{
var oConn = this;
try
{
this._poll[o.tId] = window.setInterval(
function(){
if(o.conn && o.conn.readyState == 4){
window.clearInterval(oConn._poll[o.tId]);
oConn._poll.splice(o.tId);
oConn.handleTransactionResponse(o, callback);
}
}
,this._polling_interval);
}
catch(e)
{
window.clearInterval(oConn._poll[o.tId]);
oConn._poll.splice(o.tId);
oConn.handleTransactionResponse(o, callback);
}
},
/**
* This method attempts to interpret the server response and
* determine whether the transaction was successful, or if an error or
* exception was encountered.
*
* @private
* @param {object} o The connection object
* @param {function} callback - User-defined callback object
* @return void
*/
handleTransactionResponse:function(o, callback)
{
// If no valid callback is provided, then do not process any callback handling.
if(!callback){
this.releaseObject(o);
return;
}
var httpStatus;
var responseObject;
try
{
httpStatus = o.conn.status;
}
catch(e){
// 13030 is the custom code to indicate the condition -- in Mozilla/FF --
// when the o object's status and statusText properties are
// unavailable, and a query attempt throws an exception.
httpStatus = 13030;
}
if(httpStatus >= 200 && httpStatus < 300){
responseObject = this.createResponseObject(o, callback.argument);
if(callback.success){
if(!callback.scope){
callback.success(responseObject);
}
else{
// If a scope property is defined, the callback will be fired from
// the context of the object.
callback.success.apply(callback.scope, [responseObject]);
}
}
}
else{
switch(httpStatus){
// The following case labels are wininet.dll error codes that may be encountered.
// Server timeout
case 12002:
// 12029 to 12031 correspond to dropped connections.
case 12029:
case 12030:
case 12031:
// Connection closed by server.
case 12152:
// See above comments for variable status.
case 13030:
responseObject = this.createExceptionObject(o, callback.argument);
if(callback.failure){
if(!callback.scope){
callback.failure(responseObject);
}
else{
callback.failure.apply(callback.scope,[responseObject]);
}
}
break;
default:
responseObject = this.createResponseObject(o, callback.argument);
if(callback.failure){
if(!callback.scope){
callback.failure(responseObject);
}
else{
callback.failure.apply(callback.scope,[responseObject]);
}
}
}
}
this.releaseObject(o);
},
/**
* This method evaluates the server response, creates and returns the results via
* its properties. Success and failure cases will differ in the response
* object's property values.
* @private
* @param {object} o The connection object
* @param {} callbackArg User-defined argument or arguments to be passed to the callback
* @return object
*/
createResponseObject:function(o, callbackArg)
{
var obj = {};
var headerObj = {};
try
{
var headerStr = o.conn.getAllResponseHeaders();
var header = headerStr.split("\n");
for(var i=0; i < header.length; i++){
var delimitPos = header[i].indexOf(':');
if(delimitPos != -1){
headerObj[header[i].substring(0,delimitPos)] = header[i].substring(delimitPos+1);
}
}
obj.tId = o.tId;
obj.status = o.conn.status;
obj.statusText = o.conn.statusText;
obj.getResponseHeader = headerObj;
obj.getAllResponseHeaders = headerStr;
obj.responseText = o.conn.responseText;
obj.responseXML = o.conn.responseXML;
if(typeof callbackArg !== undefined){
obj.argument = callbackArg;
}
}
catch(e){}
finally
{
return obj;
}
},
/**
* If a transaction cannot be completed due to dropped or closed connections,
* there may be not be enough information to build a full response object.
* The failure callback will be fired and this specific condition can be identified
* by a status property value of 0.
* @private
* @param {int} tId Transaction Id
* @param callbackArg The user-defined arguments
* @return object
*/
createExceptionObject:function(tId, callbackArg)
{
var COMM_CODE = 0;
var COMM_ERROR = 'communication failure';
var obj = {};
obj.tId = tId;
obj.status = COMM_CODE;
obj.statusText = COMM_ERROR;
if(callbackArg){
obj.argument = callbackArg;
}
return obj;
},
/**
* Public method that stores the custom HTTP headers for each transaction.
* @public
* @param {string} label The HTTP header label
* @param {string} value The HTTP header value
* @return void
*/
initHeader:function(label,value)
{
if(this._http_header[label] === undefined){
this._http_header[label] = value;
}
else{
this._http_header[label] = value + "," + this._http_header[label];
}
this._has_http_headers = true;
},
/**
* Accessor that sets the HTTP headers for each transaction.
* @private
* @param {object} o The connection object for the transaction.
* @return void
*/
setHeader:function(o)
{
for(var prop in this._http_header){
o.conn.setRequestHeader(prop, this._http_header[prop]);
}
delete this._http_header;
this._http_header = {};
this._has_http_headers = false;
},
/**
* This method assembles the form label and value pairs and
* constructs an encoded string.
* asyncRequest() will automatically initialize the
* transaction with a HTTP header Content-Type of
* application/x-www-form-urlencoded.
* @public
* @param {string || object} form id or name attribute, or form object.
* @return void
*/
setForm:function(formId)
{
this._sFormData = '';
if(typeof formId == 'string'){
// Determine if the argument is a form id or a form name.
// Note form name usage is deprecated by supported
// here for legacy reasons.
var oForm = (document.getElementById(formId) || document.forms[formId] );
}
else if(typeof formId == 'object'){
var oForm = formId;
}
else{
return;
}
var oElement, oName, oValue, oDisabled;
var hasSubmit = false;
// Iterate over the form elements collection to construct the
// label-value pairs.
for (var i=0; i<oForm.elements.length; i++){
oDisabled = oForm.elements[i].disabled;
// If the name attribute is not populated, the form field's
// value will not be submitted.
if(oForm.elements[i].name != ""){
oElement = oForm.elements[i];
oName = oForm.elements[i].name;
oValue = oForm.elements[i].value;
}
// Do not submit fields that are disabled.
if(!oDisabled)
{
switch (oElement.type)
{
case 'select-one':
case 'select-multiple':
for(var j=0; j<oElement.options.length; j++){
if(oElement.options[j].selected){
this._sFormData += encodeURIComponent(oName) + '=' + encodeURIComponent(oElement.options[j].value || oElement.options[j].text) + '&';
}
}
break;
case 'radio':
case 'checkbox':
if(oElement.checked){
this._sFormData += encodeURIComponent(oName) + '=' + encodeURIComponent(oValue) + '&';
}
break;
case 'file':
// this._sFormData += encodeURIComponent(oName) + '=' + encodeURIComponent(oValue) + '&';
// stub case as XMLHttpRequest will only send the file path as a string.
case undefined:
// stub case for fieldset element which returns undefined.
case 'reset':
// stub case for input type reset button.
case 'button':
// stub case for input type button elements.
break;
case 'submit':
if(hasSubmit == false){
this._sFormData += encodeURIComponent(oName) + '=' + encodeURIComponent(oValue) + '&';
hasSubmit = true;
}
break;
default:
this._sFormData += encodeURIComponent(oName) + '=' + encodeURIComponent(oValue) + '&';
break;
}
}
}
this._isFormSubmit = true;
this._sFormData = this._sFormData.substr(0, this._sFormData.length - 1);
},
/**
* Public method to terminate a transaction, if it has not reached readyState 4.
* @public
* @param {object} o The connection object returned by asyncRequest.
* @return void
*/
abort:function(o)
{
if(this.isCallInProgress(o)){
window.clearInterval(this._poll[o.tId]);
this._poll.splice(o.tId);
o.conn.abort();
this.releaseObject(o);
return true;
}
else{
return false;
}
},
/**
* Public method to check if the transaction is still being processed.
* @public
* @param {object} o The connection object returned by asyncRequest
* @return boolean
*/
isCallInProgress:function(o)
{
// if the XHR object assigned to the transaction has not been dereferenced,
// then check its readyState status. Otherwise, return false.
if(o.conn){
return o.conn.readyState != 4 && o.conn.readyState != 0;
}
else{
//The XHR object has been destroyed.
return false;
}
},
/**
* Dereference the XHR instance and the connection object after the transaction is completed.
* @private
* @param {object} o The connection object
* @return void
*/
releaseObject:function(o)
{
//dereference the XHR instance.
o.conn = null;
//dereference the connection object.
o = null;
}
};

1096
apps/furnace-fjsc/resources/yahoo/event.js
View File

File diff suppressed because it is too large Load Diff

61
apps/furnace-fjsc/resources/yahoo/yahoo.js
View File

@ -1,61 +0,0 @@
/*
Copyright (c) 2006, Yahoo! Inc. All rights reserved.
Code licensed under the BSD License:
http://developer.yahoo.net/yui/license.txt
version: 0.10.0
*/
/* Copyright (c) 2006 Yahoo! Inc. All rights reserved. */
/**
* The Yahoo global namespace
* @constructor
*/
var YAHOO = window.YAHOO || {};
/**
* Returns the namespace specified and creates it if it doesn't exist
*
* YAHOO.namespace("property.package");
* YAHOO.namespace("YAHOO.property.package");
*
* Either of the above would create YAHOO.property, then
* YAHOO.property.package
*
* @param {String} sNameSpace String representation of the desired
* namespace
* @return {Object} A reference to the namespace object
*/
YAHOO.namespace = function( sNameSpace ) {
if (!sNameSpace || !sNameSpace.length) {
return null;
}
var levels = sNameSpace.split(".");
var currentNS = YAHOO;
// YAHOO is implied, so it is ignored if it is included
for (var i=(levels[0] == "YAHOO") ? 1 : 0; i<levels.length; ++i) {
currentNS[levels[i]] = currentNS[levels[i]] || {};
currentNS = currentNS[levels[i]];
}
return currentNS;
};
/**
* Global log method.
*/
YAHOO.log = function(sMsg,sCategory) {
if(YAHOO.widget.Logger) {
YAHOO.widget.Logger.log(null, sMsg, sCategory);
} else {
return false;
}
};
YAHOO.namespace("util");
YAHOO.namespace("widget");
YAHOO.namespace("example");