Mercurial > repos > tabletprog

comparison parser.js @ 155:9de2572a34a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added some stuff for compiler debugging. Added unsigned integer types. Added integer size conversion methods to integer objects.
author Mike Pavone <pavone@retrodev.com>
date Sat, 10 Aug 2013 14:19:38 -0700
parents 5bcaddff29f5
children 869399ff7faa
comparison
equal deleted inserted replaced
154:6e579a75a0a9 155:9de2572a34a7
13 } 13 }
14 symbol.prototype.cleanName = function() { 14 symbol.prototype.cleanName = function() {
15 return this.name[0] == ':' ? this.name.substr(1) : this.name; 15 return this.name[0] == ':' ? this.name.substr(1) : this.name;
16 } 16 }
17 17
18 function intlit(val, bits) 18 function intlit(val, bits, unsigned)
19 { 19 {
20 if (!bits) { 20 if (!bits) {
21 bits = 32; 21 bits = 32;
22 } 22 }
23 if (unsigned === undefined) {
24 unsigned = false;
25 }
26 this.unsigned = unsigned;
23 this.bits = bits; 27 this.bits = bits;
24 this.val = val; 28 this.val = val;
25 } 29 }
26 30
27 function floatlit(val) 31 function floatlit(val)
85 'muldiv = left:primlitsym pieces:(hws ("*"/"/"/"%") hws primlitsym)* { if (pieces.length) { var cur = new op(left, pieces[0][1], pieces[0][3]); for (var i = 1; i < pieces.length; i++) { cur = new op(cur, pieces[i][1], pieces[i][3]); } return cur; } else { return left; } };'+ 89 'muldiv = left:primlitsym pieces:(hws ("*"/"/"/"%") hws primlitsym)* { if (pieces.length) { var cur = new op(left, pieces[0][1], pieces[0][3]); for (var i = 1; i < pieces.length; i++) { cur = new op(cur, pieces[i][1], pieces[i][3]); } return cur; } else { return left; } };'+
86 'primlitsym = hws val:(float / hex / binary / int / string / symbol / object / array / list / lambda / "(" ws expr:expr hws ")" { return expr; }) { return val; };' + 90 'primlitsym = hws val:(float / hex / binary / int / string / symbol / object / array / list / lambda / "(" ws expr:expr hws ")" { return expr; }) { return val; };' +
87 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { for (var i = 0; i < trailing.length; i++) { trailing[i] = trailing[i].join(""); } return new symbol(chars.join("") + trailing.join("")); };' + 91 'symbol = chars:[a-zA-Z_!?@]+ trailing:(":"? [a-zA-Z_!?@0-9])* ! ":" { for (var i = 0; i < trailing.length; i++) { trailing[i] = trailing[i].join(""); } return new symbol(chars.join("") + trailing.join("")); };' +
88 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' + 92 'float = digits:[0-9]+ "." decimals:[0-9]+ { return new floatlit(parseFloat(digits.join("") + "." + decimals.join(""))); };' +
89 'binary = "0b" digits:[01]+ { return new intlit(parseInt(digits.join(""), 2)); };' + 93 'binary = "0b" digits:[01]+ { return new intlit(parseInt(digits.join(""), 2)); };' +
90 'hex = "0x" digits:[0-9a-fA-F]+ size:("i" ("8" / "16" / "32" / "64"))? { var bits = size ? parseInt(size[1], 10) : 0; return new intlit(parseInt(digits.join(""), 16), bits); };' + 94 'hex = "0x" digits:[0-9a-fA-F]+ size:([iu] ("8" / "16" / "32" / "64"))? { var bits = size ? parseInt(size[1], 10) : 0; return new intlit(parseInt(digits.join(""), 16), bits, size[0] == "u"); };' +
91 'int = sign:"-"? digits:[0-9]+ size:("i" ("8" / "16" / "32" / "64"))? { var bits = size ? parseInt(size[1], 10) : 0; return new intlit(parseInt(sign + digits.join(""), 10), bits); };' + 95 'int = sign:"-"? digits:[0-9]+ size:([iu] ("8" / "16" / "32" / "64"))? { var bits = size ? parseInt(size[1], 10) : 0; return new intlit(parseInt(sign + digits.join(""), 10), bits, size[0] == "u"); };' +
92 'string = "\\"" text:(strpart/escape)* "\\"" { return new strlit(text.join("")); };' + 96 'string = "\\"" text:(strpart/escape)* "\\"" { return new strlit(text.join("")); };' +
93 'strpart = text:[^\\"\\\\]+ { return text.join(""); };' + 97 'strpart = text:[^\\"\\\\]+ { return text.join(""); };' +
94 'escape = "\\\\" char:[nt\\"r\\\\] { if (char == "n") { return "\\n"; } if (char == "r") { return "\\r"; } return char; };' + 98 'escape = "\\\\" char:[nt\\"r\\\\] { if (char == "n") { return "\\n"; } if (char == "r") { return "\\r"; } return char; };' +
95 'object = "#{" ws messages:(assignment / funexpr)* "}" { return new object(messages); };' + 99 'object = "#{" ws messages:(assignment / funexpr)* "}" { return new object(messages); };' +
96 'array = "#[" ws els:opexpr* "]" { return new arraylit(els); };' + 100 'array = "#[" ws els:opexpr* "]" { return new arraylit(els); };' +