fjsc: initial version of factor to javascript compiler
chris.double
parent
ed899e53cb
commit
88260bccbf
|
|
@ -0,0 +1,49 @@
|
||||||
|
! Copyright (C) 2006 Chris Double. All Rights Reserved.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
!
|
||||||
|
IN: fjsc-responder
|
||||||
|
USING: kernel lazy-lists parser-combinators fjsc cont-responder html io namespaces file-responder httpd hashtables ;
|
||||||
|
|
||||||
|
USE: prettyprint
|
||||||
|
|
||||||
|
: fjsc-eval-page ( -- )
|
||||||
|
[ "response" get . ] string-out log-message
|
||||||
|
"code" "response" get hash dup log-message
|
||||||
|
serving-text
|
||||||
|
'expression' parse car
|
||||||
|
parse-result-parsed compile write flush ;
|
||||||
|
|
||||||
|
: fjsc-page ( -- )
|
||||||
|
[
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<script "text/javascript" =type "/responder/fjsc-resources/yahoo/yahoo.js" =src script> </script>
|
||||||
|
<script "text/javascript" =type "/responder/fjsc-resources/yahoo/event.js" =src script> </script>
|
||||||
|
<script "text/javascript" =type "/responder/fjsc-resources/yahoo/connection.js" =src script> </script>
|
||||||
|
<script "text/javascript" =type "/responder/fjsc-resources/bootstrap.js" =src script> </script>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<form "toeval" =id "fjsc_eval(document.getElementById(\"toeval\"));return false;" =onsubmit "post" =method form>
|
||||||
|
<textarea "code" =name "code" =id textarea>
|
||||||
|
</textarea>
|
||||||
|
<input "submit" =type input/>
|
||||||
|
</form>
|
||||||
|
<div "compiled" =id div>
|
||||||
|
</div>
|
||||||
|
<div "stack" =id div>
|
||||||
|
</div>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
|
] show ;
|
||||||
|
|
||||||
|
|
||||||
|
"fjsc" [ fjsc-page ] install-cont-responder
|
||||||
|
"fjsceval" [ fjsc-eval-page ] add-simple-responder
|
||||||
|
"fjsc-resources" [
|
||||||
|
[
|
||||||
|
"apps/fjsc-responder/resources/" resource-path "doc-root" set
|
||||||
|
file-responder
|
||||||
|
] with-scope
|
||||||
|
] add-simple-responder
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -0,0 +1,18 @@
|
||||||
|
! Copyright (C) 2006 Chris Double. All Rights Reserved.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
!
|
||||||
|
REQUIRES: libs/httpd libs/fjsc ;
|
||||||
|
|
||||||
|
PROVIDE: apps/fjsc-responder
|
||||||
|
{
|
||||||
|
+files+ {
|
||||||
|
"fjsc-responder.factor"
|
||||||
|
}
|
||||||
|
} {
|
||||||
|
+tests+ {
|
||||||
|
}
|
||||||
|
} {
|
||||||
|
+help+
|
||||||
|
{
|
||||||
|
}
|
||||||
|
} ;
|
||||||
|
|
@ -0,0 +1,42 @@
|
||||||
|
function fjsc_eval(form) {
|
||||||
|
var callback = {
|
||||||
|
success: function(o) {
|
||||||
|
var v = o.responseText;
|
||||||
|
eval(v)
|
||||||
|
display_datastack();
|
||||||
|
document.getElementById('compiled').innerHTML="<pre>" + v + "</pre>";
|
||||||
|
document.getElementById('code').value="";
|
||||||
|
|
||||||
|
}
|
||||||
|
};
|
||||||
|
YAHOO.util.Connect.setForm(form);
|
||||||
|
YAHOO.util.Connect.asyncRequest('POST', "/responder/fjsceval/", callback);
|
||||||
|
}
|
||||||
|
|
||||||
|
var data_stack = [ ]
|
||||||
|
|
||||||
|
function fjsc_dup() {
|
||||||
|
var v = data_stack.pop();
|
||||||
|
data_stack.push(v);
|
||||||
|
data_stack.push(v);
|
||||||
|
}
|
||||||
|
|
||||||
|
function fjsc_drop() {
|
||||||
|
data_stack.pop();
|
||||||
|
}
|
||||||
|
|
||||||
|
function fjsc_alert() {
|
||||||
|
alert(data_stack.pop())
|
||||||
|
}
|
||||||
|
|
||||||
|
function display_datastack() {
|
||||||
|
var html=[];
|
||||||
|
html.push("<table border='1'>")
|
||||||
|
for(var i = 0; i < data_stack.length; ++i) {
|
||||||
|
html.push("<tr><td>")
|
||||||
|
html.push(data_stack[i])
|
||||||
|
html.push("</td></tr>")
|
||||||
|
}
|
||||||
|
html.push("</table>")
|
||||||
|
document.getElementById('stack').innerHTML=html.join("");
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,586 @@
|
||||||
|
/*
|
||||||
|
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;
|
||||||
|
}
|
||||||
|
};
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,61 @@
|
||||||
|
/*
|
||||||
|
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");
|
||||||
|
|
@ -0,0 +1,66 @@
|
||||||
|
! Copyright (C) 2006 Chris Double. All Rights Reserved.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
!
|
||||||
|
IN: fjsc
|
||||||
|
USING: kernel lazy-lists parser-combinators strings math sequences namespaces io ;
|
||||||
|
|
||||||
|
TUPLE: ast-number value ;
|
||||||
|
TUPLE: ast-identifier value ;
|
||||||
|
TUPLE: ast-string value ;
|
||||||
|
TUPLE: ast-expression values ;
|
||||||
|
|
||||||
|
LAZY: 'digit' ( -- parser )
|
||||||
|
[ digit? ] satisfy [ digit> ] <@ ;
|
||||||
|
|
||||||
|
LAZY: 'number' ( -- parser )
|
||||||
|
'digit' <+> [ 0 [ swap 10 * + ] reduce <ast-number> ] <@ ;
|
||||||
|
|
||||||
|
LAZY: 'quote' ( -- parser )
|
||||||
|
[ CHAR: " = ] satisfy ;
|
||||||
|
|
||||||
|
LAZY: 'string' ( -- parser )
|
||||||
|
'quote' sp [
|
||||||
|
CHAR: " = not
|
||||||
|
] satisfy <+> [ >string <ast-string> ] <@ &> 'quote' <& ;
|
||||||
|
|
||||||
|
LAZY: 'identifier' ( -- parser )
|
||||||
|
[
|
||||||
|
[ blank? not ] keep
|
||||||
|
[ digit? not ] keep
|
||||||
|
[ CHAR: : = not ] keep
|
||||||
|
[ CHAR: " = not ] keep
|
||||||
|
CHAR: ; = not
|
||||||
|
and and and and
|
||||||
|
] satisfy <+> [ >string <ast-identifier> ] <@ ;
|
||||||
|
|
||||||
|
LAZY: 'atom' ( -- parser )
|
||||||
|
'number' 'identifier' <|> 'string' <|> ;
|
||||||
|
|
||||||
|
LAZY: 'expression' ( -- parser )
|
||||||
|
'atom' sp <*> [ <ast-expression> ] <@ ;
|
||||||
|
|
||||||
|
GENERIC: (compile) ( ast -- )
|
||||||
|
|
||||||
|
M: ast-number (compile)
|
||||||
|
"data_stack.push(" ,
|
||||||
|
ast-number-value number>string ,
|
||||||
|
")" , ;
|
||||||
|
|
||||||
|
M: ast-string (compile)
|
||||||
|
"data_stack.push('" ,
|
||||||
|
ast-string-value ,
|
||||||
|
"')" , ;
|
||||||
|
|
||||||
|
M: ast-identifier (compile)
|
||||||
|
"fjsc_" , ast-identifier-value , "()" , ;
|
||||||
|
|
||||||
|
M: ast-expression (compile)
|
||||||
|
ast-expression-values [
|
||||||
|
(compile) "; " ,
|
||||||
|
] each ;
|
||||||
|
|
||||||
|
: compile ( ast -- string )
|
||||||
|
[
|
||||||
|
[ (compile) ] { } make [ write ] each
|
||||||
|
] string-out ;
|
||||||
|
|
||||||
|
|
@ -0,0 +1,19 @@
|
||||||
|
! Copyright (C) 2006 Chris Double. All Rights Reserved.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
!
|
||||||
|
REQUIRES: libs/lazy-lists libs/parser-combinators ;
|
||||||
|
|
||||||
|
PROVIDE: libs/fjsc
|
||||||
|
{
|
||||||
|
+files+ {
|
||||||
|
"fjsc.factor"
|
||||||
|
}
|
||||||
|
} {
|
||||||
|
+tests+ {
|
||||||
|
"tests.factor"
|
||||||
|
}
|
||||||
|
} {
|
||||||
|
+help+
|
||||||
|
{
|
||||||
|
}
|
||||||
|
} ;
|
||||||
|
|
@ -0,0 +1,22 @@
|
||||||
|
! Copyright (C) 2006 Chris Double. All Rights Reserved.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
!
|
||||||
|
USING: kernel test parser-combinators lazy-lists fjsc ;
|
||||||
|
IN: temporary
|
||||||
|
|
||||||
|
{ "data_stack.push(123)" } [
|
||||||
|
"123" 'number' parse car parse-result-parsed compile
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ "fjsc_alert()" } [
|
||||||
|
"alert" 'identifier' parse car parse-result-parsed compile
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ "data_stack.push(123); fjsc_alert(); " } [
|
||||||
|
"123 alert" 'expression' parse car parse-result-parsed compile
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ "data_stack.push(123); data_stack.push('hello'); fjsc_alert(); " } [
|
||||||
|
"123 \"hello\" alert" 'expression' parse car parse-result-parsed compile
|
||||||
|
] unit-test
|
||||||
|
|
||||||
Loading…
Reference in New Issue