# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1332217773 25200
# Node ID a57a12bdae96a8dc9294a5805fbfac23db7fdb98
# Parent  3d1b8e96f5dc7ed51fb25215d228ac873772c973
Added funcall syntax

diff -r 3d1b8e96f5dc -r a57a12bdae96 parser.js
--- a/parser.js	Sun Mar 18 12:03:04 2012 -0700
+++ b/parser.js	Mon Mar 19 21:29:33 2012 -0700
@@ -1,16 +1,23 @@
+
 var grammar = 
-'start = addsub;' +
-'addsub = left:muldiv " "* op:("+"/"-") " "* right:addsub [ \\n\\r]* { return {type: "op", left: left, op: op, right: right }; } / muldiv;'+
-'muldiv = left:primlitsym " "* op:("*"/"/") " "* right:muldiv { return {type: "op", left: left, op: op, right: right }; } / primlitsym;'+
-'primlitsym = [ \\n\\r]* val:(float / int / string / symbol / object / lambda / "(" expr:addsub " "* ")" { return expr; }) { return val; };' +
-'symbol = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9:]* trailing:[a-zA-Z_!?@0-9]* { return {type: "symbol", name: chars.join("") + middle.join("") + trailing.join("")}; };' +
+'start = ws module:(object / lambda) ws { return module; };' +
+'ws = [ \\t\\n\\r]*;' +
+'hws = [ \\t]*;' +
+'expr = funcall / addsub;' +
+'addsub = left:muldiv hws op:("+"/"-") hws right:addsub ws { return {type: "op", left: left, op: op, right: right }; } / muldiv;'+
+'muldiv = left:primlitsym hws op:("*"/"/") hws right:muldiv { return {type: "op", left: left, op: op, right: right }; } / primlitsym;'+
+'primlitsym = ws val:(float / int / string / symbol / object / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' +
+'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9~])* ! ":" { return {type: "symbol", name: chars.join("") + trailing.join("")}; };' +
 'float = digits:[0-9]+ "." decimals:[0-9]+ { return {type: "floatlit", value: parseFloat(digits.join("") + "." + decimals.join("")) }; };' +
 'int = digits:[0-9]+ { return {type: "intlit", value: parseInt(digits.join(""), 10)}; };' +
 'string = "\\"" text:[^\\"]* "\\"" { return {type: "strlit", value: text.join("")}; };' +
 'object = "#{" messages:assignment* "}" { return {type: "object", messages: messages}; };' +
-'assignment = [ \\n\\r]* sym:symbol " "* "<-" expr:addsub { return {type: "assignment", symbol: sym, expression: expr}; }' +
-'lambda = args:((& ":") argname+  )? "{" exprs:(assignment / addsub)* [ \\n\\r]* "}" { return {type: "lambda", args: args[1], expressions: exprs}; };' +
-'argname = chars:[a-zA-Z_!?@:]+ trailing:[a-zA-Z_!?@0-9]* " "* { return {type: "symbol", name: chars.join("") + trailing.join("")}; };';
+'assignment = ws sym:symbol hws "<-" expr:expr { return {type: "assignment", symbol: sym, expression: expr}; }' +
+'lambda = args:((& ":") argname+  )? "{" exprs:(assignment / expr)* ws "}" { return {type: "lambda", args: args[1], expressions: exprs}; };' +
+'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9%]* hws { return {type: "symbol", name: init + chars.join("") + trailing.join("")}; };' +
+'funcall = ws parts: funcallpart+ { var fun = ""; var args = []; for (var i in parts) { fun += parts[i].name; args = args.concat(parts[i].args); } return {type: "funcall", name: fun, args: args}; };' +
+'funcallpart = fun:funpart args:addsub* hws { return { name: fun, args: args}; };' +
+'funpart = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9#]* ":" & [ \\t\\n\\r] { return chars.join("") + middle.join("") + ":"; };';
 var parser = PEG.buildParser(grammar);
 
 //var parser = PEG.buildParser('start = expr; expr = int; int = digits:[0-9]+ { return parseInt(digits.join(""), 10); }');