comparison parser.js @ 5:ed5b563147ec

Wrote constructors for AST objects
author Mike Pavone <pavone@retrodev.com>
date Mon, 19 Mar 2012 23:06:07 -0700
parents a2c3ac7fafa2
children 554602d4cbc6
comparison
equal deleted inserted replaced
4:a2c3ac7fafa2 5:ed5b563147ec
1
2 function op(left, op, right)
3 {
4 this.left = left;
5 this.op = op;
6 this.right = right;
7 }
8
9 function symbol(name)
10 {
11 this.name = name;
12 }
13
14 function intlit(val)
15 {
16 this.val = val;
17 }
18
19 function floatlit(val)
20 {
21 this.val = val;
22 }
23
24 function strlit(val)
25 {
26 this.val = val;
27 }
28
29 function funcall(name, args)
30 {
31 this.name = name;
32 this.args = args;
33 this.receiver = null;
34 }
35
36 function object(messages)
37 {
38 this.messages = messages;
39 }
40
41 function lambda(args, expressions)
42 {
43 this.args = args;
44 this.expressions = expressions;
45 }
46
47 function assignment(sym, expr)
48 {
49 this.symbol = sym;
50 this.expression = expr;
51 }
1 52
2 var grammar = 53 var grammar =
3 'start = ws module:(object / lambda) ws { return module; };' + 54 'start = ws module:(object / lambda) ws { return module; };' +
4 'ws = ([ \\t\\n\\r] / "//" [^\\n]* "\\n")*;' + 55 'ws = ([ \\t\\n\\r] / "//" [^\\n]* "\\n")*;' +
5 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' + 56 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' +
6 'expr = e:(funcall / methcall / opexpr) ws { return e; };' + 57 'expr = e:(funcall / methcall / opexpr) ws { return e; };' +
7 'opexpr = left:addsub hws op:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return {type: "op", left: left, op: op, right: right }; } / addsub;' + 58 'opexpr = left:addsub hws opn:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return new op(left, opn, right); } / addsub;' +
8 'addsub = left:muldiv hws op:("+"/"-") hws right:addsub { return {type: "op", left: left, op: op, right: right }; } / muldiv;'+ 59 'addsub = left:muldiv hws opn:("+"/"-") hws right:addsub { return new op(left, opn, right); } / muldiv;'+
9 'muldiv = left:primlitsym hws op:("*"/"/") hws right:muldiv { return {type: "op", left: left, op: op, right: right }; } / primlitsym;'+ 60 'muldiv = left:primlitsym hws opn:("*"/"/") hws right:muldiv { return new op(left, opn, right); } / primlitsym;'+
10 'primlitsym = hws val:(float / int / string / symbol / object / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' + 61 'primlitsym = hws val:(float / int / string / symbol / object / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' +
11 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { return {type: "symbol", name: chars.join("") + trailing.join("")}; };' + 62 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { return new symbol(chars.join("") + trailing.join("")); };' +
12 'float = digits:[0-9]+ "." decimals:[0-9]+ { return {type: "floatlit", value: parseFloat(digits.join("") + "." + decimals.join("")) }; };' + 63 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' +
13 'int = digits:[0-9]+ { return {type: "intlit", value: parseInt(digits.join(""), 10)}; };' + 64 'int = digits:[0-9]+ { return new intlit(parseInt(digits.join(""), 10)); };' +
14 'string = "\\"" text:[^\\"]* "\\"" { return {type: "strlit", value: text.join("")}; };' + 65 'string = "\\"" text:[^\\"]* "\\"" { return new strlit(text.join("")); };' +
15 'object = "#{" ws messages:assignment* "}" { return {type: "object", messages: messages}; };' + 66 'object = "#{" ws messages:assignment* "}" { return new object(messages); };' +
16 'assignment = hws sym:symbol hws "<-" expr:expr ws { return {type: "assignment", symbol: sym, expression: expr}; }' + 67 'assignment = hws sym:symbol hws "<-" expr:expr ws { return new assignment(sym, expr); }' +
17 'lambda = args:((& ":") argname+ )? "{" ws exprs:(assignment / expr)* "}" { return {type: "lambda", args: args[1], expressions: exprs}; };' + 68 'lambda = args:((& ":") argname+ )? "{" ws exprs:(assignment / expr)* "}" { return new lambda(args[1], exprs); };' +
18 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return {type: "symbol", name: init + chars.join("") + trailing.join("")}; };' + 69 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return new symbol(init + chars.join("") + trailing.join("")); };' +
19 'funcall = hws 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}; };' + 70 '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); };' +
20 'funcallpart = fun:funpart args:opexpr* hws { return { name: fun, args: args}; };' + 71 'funcallpart = fun:funpart args:opexpr* hws { return { name: fun, args: args}; };' +
21 'funpart = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9]* ":" & [ \\t\\n\\r] { return chars.join("") + middle.join("") + ":"; };' + 72 'funpart = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9]* ":" & [ \\t\\n\\r] { return chars.join("") + middle.join("") + ":"; };' +
22 'methcall = receiver:opexpr hws info:methcallrest { info.receiver = receiver; return info; };' + 73 'methcall = receiver:opexpr hws info:methcallrest { info.receiver = receiver; return info; };' +
23 'methcallrest = funcall / unarymeth;' + 74 'methcallrest = funcall / unarymeth;' +
24 'unarymeth = name:symbol { return {type: "funcall", name:name, args: []}; };'; 75 'unarymeth = name:symbol { return new funcall(name, []); };';
25 var parser = PEG.buildParser(grammar); 76 var parser = PEG.buildParser(grammar);
26 77
27 //var parser = PEG.buildParser('start = expr; expr = int; int = digits:[0-9]+ { return parseInt(digits.join(""), 10); }'); 78 //var parser = PEG.buildParser('start = expr; expr = int; int = digits:[0-9]+ { return parseInt(digits.join(""), 10); }');
28 79
29 onReady(function() { 80 onReady(function() {