Mercurial > repos > tabletprog

comparison parser.js @ 38:e7be612fd3ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Very basic array support
author Mike Pavone <pavone@retrodev.com>
date Tue, 10 Jul 2012 23:09:44 -0700
parents 4d87c38404d6
children 4e983fe32047
comparison
equal deleted inserted replaced
37:a6bf4869fcbe 38:e7be612fd3ae
29 { 29 {
30 this.val = val; 30 this.val = val;
31 } 31 }
32 32
33 function listlit(val) 33 function listlit(val)
34 {
35 this.val = val;
36 }
37
38 function arraylit(val)
34 { 39 {
35 this.val = val; 40 this.val = val;
36 } 41 }
37 42
38 function funcall(name, args) 43 function funcall(name, args)
70 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' + 75 'hws = ([ \\t] / "/*" ([^*] / "*" ! "/")* "*/" )*;' +
71 'expr = e:(funcall / methcall / opexpr) ws { return e; };' + 76 'expr = e:(funcall / methcall / opexpr) ws { return e; };' +
72 'opexpr = left:addsub hws opn:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return new op(left, opn, right); } / addsub;' + 77 'opexpr = left:addsub hws opn:("<=" / ">=" / "<" / ">" / "=") hws right:opexpr { return new op(left, opn, right); } / addsub;' +
73 'addsub = left:muldiv hws opn:("+"/"-") hws right:addsub { return new op(left, opn, right); } / muldiv;'+ 78 'addsub = left:muldiv hws opn:("+"/"-") hws right:addsub { return new op(left, opn, right); } / muldiv;'+
74 'muldiv = left:primlitsym hws opn:("*"/"/") hws right:muldiv { return new op(left, opn, right); } / primlitsym;'+ 79 'muldiv = left:primlitsym hws opn:("*"/"/") hws right:muldiv { return new op(left, opn, right); } / primlitsym;'+
75 'primlitsym = hws val:(float / int / string / symbol / object / list / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' + 80 'primlitsym = hws val:(float / int / string / symbol / object / array / list / lambda / "(" expr:expr hws ")" { return expr; }) { return val; };' +
76 '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("")); };' + 81 '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("")); };' +
77 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' + 82 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' +
78 'int = digits:[0-9]+ { return new intlit(parseInt(digits.join(""), 10)); };' + 83 'int = digits:[0-9]+ { return new intlit(parseInt(digits.join(""), 10)); };' +
79 'string = "\\"" text:[^\\"]* "\\"" { return new strlit(text.join("")); };' + 84 'string = "\\"" text:[^\\"]* "\\"" { return new strlit(text.join("")); };' +
80 'object = "#{" ws messages:(assignment / funcall)* "}" { return new object(messages); };' + 85 'object = "#{" ws messages:(assignment / funcall)* "}" { return new object(messages); };' +
86 'array = "#[" ws els:opexpr* "]" { return new arraylit(els); };' +
81 'list = "[" ws els:opexpr* "]" { return new listlit(els); };' + 87 'list = "[" ws els:opexpr* "]" { return new listlit(els); };' +
82 'assignment = ws sym:symbol hws "<-" expr:expr ws { return new assignment(sym, expr); }' + 88 'assignment = ws sym:symbol hws "<-" expr:expr ws { return new assignment(sym, expr); }' +
83 'lambda = args:((& ":") argname+ )? "{" ws exprs:(assignment / expr)* "}" { return new lambda(args[1], exprs); };' + 89 'lambda = args:((& ":") argname+ )? "{" ws exprs:(assignment / expr)* "}" { return new lambda(args[1], exprs); };' +
84 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return new symbol(init + chars.join("") + trailing.join("")); };' + 90 'argname = init:":"? chars:[a-zA-Z_!?@]+ trailing:[a-zA-Z_!?@0-9]* hws { return new symbol(init + chars.join("") + trailing.join("")); };' +
85 '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); };' + 91 '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); };' +