Mercurial > repos > tabletprog
annotate parser.js @ 4:a2c3ac7fafa2
Added support for comments
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Mon, 19 Mar 2012 22:45:03 -0700 |
| parents | 454c0346f357 |
| children | ed5b563147ec |
| rev | line source |
|---|---|
| 1 | 1 |
| 0 | 2 var grammar = |
| 1 | 3 'start = ws module:(object / lambda) ws { return module; };' + |
| 4 | 4 'ws = ([ \\t\\n\\r] / "//" [^\\n]* "\\n")*;' + |
| 5 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' + | |
|
2
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
6 'expr = e:(funcall / methcall / opexpr) ws { return e; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
7 'opexpr = left:addsub hws op:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return {type: "op", left: left, op: op, right: right }; } / addsub;' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
8 'addsub = left:muldiv hws op:("+"/"-") hws right:addsub { return {type: "op", left: left, op: op, right: right }; } / muldiv;'+ |
| 1 | 9 'muldiv = left:primlitsym hws op:("*"/"/") hws right:muldiv { return {type: "op", left: left, op: op, right: right }; } / primlitsym;'+ |
|
2
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
10 'primlitsym = hws val:(float / int / string / symbol / object / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
11 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { return {type: "symbol", name: chars.join("") + trailing.join("")}; };' + |
| 0 | 12 'float = digits:[0-9]+ "." decimals:[0-9]+ { return {type: "floatlit", value: parseFloat(digits.join("") + "." + decimals.join("")) }; };' + |
| 13 'int = digits:[0-9]+ { return {type: "intlit", value: parseInt(digits.join(""), 10)}; };' + | |
| 14 'string = "\\"" text:[^\\"]* "\\"" { return {type: "strlit", value: text.join("")}; };' + | |
|
2
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
15 'object = "#{" ws messages:assignment* "}" { return {type: "object", messages: messages}; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
16 'assignment = hws sym:symbol hws "<-" expr:expr ws { return {type: "assignment", symbol: sym, expression: expr}; }' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
17 'lambda = args:((& ":") argname+ )? "{" ws exprs:(assignment / expr)* "}" { return {type: "lambda", args: args[1], expressions: exprs}; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
18 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return {type: "symbol", name: init + chars.join("") + trailing.join("")}; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
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}; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
20 'funcallpart = fun:funpart args:opexpr* hws { return { name: fun, args: args}; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
21 'funpart = chars:[a-zA-Z_!?@]+ middle:[a-zA-Z_!?@0-9]* ":" & [ \\t\\n\\r] { return chars.join("") + middle.join("") + ":"; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
22 'methcall = receiver:opexpr hws info:methcallrest { info.receiver = receiver; return info; };' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
23 'methcallrest = funcall / unarymeth;' + |
|
454c0346f357
Added method call syntax and comparison operators
Mike Pavone <pavone@retrodev.com>
parents:
1
diff
changeset
|
24 'unarymeth = name:symbol { return {type: "funcall", name:name, args: []}; };'; |
| 0 | 25 var parser = PEG.buildParser(grammar); |
| 26 | |
| 27 //var parser = PEG.buildParser('start = expr; expr = int; int = digits:[0-9]+ { return parseInt(digits.join(""), 10); }'); | |
| 28 | |
| 29 onReady(function() { | |
| 30 q('input[type=button]').onclick = function() { | |
| 31 var text = q('textarea').value; | |
| 32 try { | |
| 33 var parsed = parser.parse(text); | |
| 34 q('div').innerHTML = text + "<br><br>" + JSON.stringify(parsed); | |
| 35 console.log(parsed); | |
| 36 } catch(e) { | |
| 37 q('div').innerHTML = e.message + '<br>Line: ' + e.line + '<br>Col: ' + e.column; | |
| 38 } | |
| 39 } | |
| 40 }); | |
| 41 |