pavone@5: 
pavone@5: function op(left, op, right)
pavone@5: {
pavone@5: 	this.left = left;
pavone@5: 	this.op = op;
pavone@5: 	this.right = right;
pavone@5: }
pavone@5: 
pavone@5: function symbol(name)
pavone@5: {
pavone@5: 	this.name = name;
pavone@5: }
pavone@6: symbol.prototype.cleanName = function() {
pavone@6: 	return this.name[0] == ':' ? this.name.substr(1) : this.name;
pavone@6: }
pavone@5: 
pavone@5: function intlit(val)
pavone@5: {
pavone@5: 	this.val = val;
pavone@5: }
pavone@5: 
pavone@5: function floatlit(val)
pavone@5: {
pavone@5: 	this.val = val;
pavone@5: }
pavone@5: 
pavone@5: function strlit(val)
pavone@5: {
pavone@5: 	this.val = val;
pavone@5: }
pavone@5: 
pavone@5: function funcall(name, args)
pavone@5: {
pavone@5: 	this.name = name;
pavone@5: 	this.args = args;
pavone@5: 	this.receiver = null;
pavone@5: }
pavone@5: 
pavone@5: function object(messages)
pavone@5: {
pavone@5: 	this.messages = messages;
pavone@5: }
pavone@5: 
pavone@5: function lambda(args, expressions)
pavone@5: {
pavone@5: 	this.args = args;
pavone@5: 	this.expressions = expressions;
pavone@5: }
pavone@5: 
pavone@5: function assignment(sym, expr)
pavone@5: {
pavone@5: 	this.symbol = sym;
pavone@5: 	this.expression = expr;
pavone@5: }
pavone@1: 
pavone@0: var grammar = 
pavone@1: 'start = ws module:(object / lambda) ws { return module; };' +
pavone@4: 'ws = ([ \\t\\n\\r] / "//" [^\\n]* "\\n")*;' +
pavone@4: 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' +
pavone@2: 'expr = e:(funcall / methcall / opexpr) ws { return e; };' +
pavone@5: 'opexpr = left:addsub hws opn:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return new op(left, opn, right); } / addsub;' +
pavone@5: 'addsub = left:muldiv hws opn:("+"/"-") hws right:addsub { return new op(left, opn, right); } / muldiv;'+
pavone@5: 'muldiv = left:primlitsym hws opn:("*"/"/") hws right:muldiv { return new op(left, opn, right); } / primlitsym;'+
pavone@2: 'primlitsym = hws val:(float / int / string / symbol / object / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' +
pavone@6: 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { for (var i in trailing) { trailing[i] = trailing[i].join(""); } return new symbol(chars.join("") + trailing.join("")); };' +
pavone@5: 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' +
pavone@5: 'int = digits:[0-9]+ { return new intlit(parseInt(digits.join(""), 10)); };' +
pavone@5: 'string = "\\"" text:[^\\"]* "\\"" { return new strlit(text.join("")); };' +
pavone@5: 'object = "#{" ws messages:assignment* "}" { return new object(messages); };' +
pavone@5: 'assignment = hws sym:symbol hws "<-" expr:expr ws { return new assignment(sym, expr); }' +
pavone@5: 'lambda = args:((& ":") argname+  )? "{" ws exprs:(assignment / expr)* "}" { return new lambda(args[1], exprs); };' +
pavone@5: 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return new symbol(init + chars.join("") + trailing.join("")); };' +
pavone@5: 'funcall = hws parts: funcallpart+ { var fun = ""; var args = []; for (var i in parts) { fun += parts[i].name; args = args.concat(parts[i].args); } return new funcall(fun, args); };' +
pavone@2: 'funcallpart = fun:funpart args:opexpr* hws { return { name: fun, args: args}; };' +
pavone@2: 'funpart = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9]* ":" & [ \\t\\n\\r] { return chars.join("") + middle.join("") + ":"; };' +
pavone@2: 'methcall = receiver:opexpr hws info:methcallrest { info.receiver = receiver; return info; };' +
pavone@2: 'methcallrest = funcall / unarymeth;' +
pavone@6: 'unarymeth = name:symbol { return new funcall(name.name, []); };';
pavone@0: var parser = PEG.buildParser(grammar);
pavone@0: 
pavone@0: