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

fjsc: initial version of factor to javascript compiler

darcs
chris.double 2006-12-11 11:14:58 +00:00
parent ed899e53cb
commit 88260bccbf
9 changed files with 1959 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
apps/fjsc-responder/fjsc-responder.factor Normal file
View File

@ -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

18
apps/fjsc-responder/load.factor Normal file
View File

@ -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+
{
}
} ;

42
apps/fjsc-responder/resources/bootstrap.js Normal file
View File

@ -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("");
}

586
apps/fjsc-responder/resources/yahoo/connection.js Normal file
View File

@ -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;
}
};

1096
apps/fjsc-responder/resources/yahoo/event.js Normal file
View File

File diff suppressed because it is too large Load Diff

61
apps/fjsc-responder/resources/yahoo/yahoo.js Normal file
View File

@ -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");

66
libs/fjsc/fjsc.factor Normal file
View File

@ -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 ;

19
libs/fjsc/load.factor Normal file
View File

@ -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+
{
}
} ;

22
libs/fjsc/tests.factor Normal file
View File

@ -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