Replace pegs parser with Esprima

It preserves comments and text positions, enabling us to do syntax
highlighting. Hopefully.

node_modules/esprima/demo/functiontrace.js

@@ -0,0 +1,123 @@
+/*
+  Copyright (C) 2012 Ariya Hidayat <ariya.hidayat@gmail.com>
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in the
+      documentation and/or other materials provided with the distribution.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+  ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
+  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+  (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+  LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+  THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+/*jslint browser:true evil:true */
+
+var timerId;
+
+function traceRun() {
+    'use strict';
+
+    var lookup;
+
+    function id(i) {
+        return document.getElementById(i);
+    }
+
+    function escaped(str) {
+        return str.replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;");
+    }
+
+    function setText(id, str) {
+        var el = document.getElementById(id);
+        if (typeof el.innerText === 'string') {
+            el.innerText = str;
+        } else {
+            el.textContent = str;
+        }
+    }
+
+    function isLineTerminator(ch) {
+        return (ch === '\n' || ch === '\r' || ch === '\u2028' || ch === '\u2029');
+    }
+
+    function insertTracer() {
+        var tracer, code, i, functionList, signature, pos;
+
+        if (typeof window.editor === 'undefined') {
+            code = document.getElementById('code').value;
+        } else {
+            code = window.editor.getValue();
+        }
+
+        tracer = window.esprima.Tracer.FunctionEntrance('window.TRACE.enterFunction');
+        code = window.esprima.modify(code, tracer);
+
+        // Enclose in IIFE.
+        code = '(function() {\n' + code + '\n}())';
+
+        return code;
+    }
+
+    function showResult() {
+        var i, str, histogram, entry;
+
+        histogram = window.TRACE.getHistogram();
+
+        str = '<table><thead><tr><td>Function</td><td>Hits</td></tr></thead>';
+        for (i = 0; i < histogram.length; i += 1) {
+            entry = histogram[i];
+            str += '<tr>';
+            str += '<td>' + entry.name + '</td>';
+            str += '<td>' + entry.count + '</td>';
+            str += '</tr>';
+        }
+        str += '</table>';
+
+        id('result').innerHTML = str;
+    }
+
+    window.TRACE = {
+        hits: {},
+        enterFunction: function (info) {
+            var key = info.name + ' at line ' + info.lineNumber;
+            if (this.hits.hasOwnProperty(key)) {
+                this.hits[key] = this.hits[key] + 1;
+            } else {
+                this.hits[key] = 1;
+            }
+        },
+        getHistogram: function () {
+            var entry,
+                sorted = [];
+            for (entry in this.hits) {
+                if (this.hits.hasOwnProperty(entry)) {
+                    sorted.push({ name: entry, count: this.hits[entry]});
+                }
+            }
+            sorted.sort(function (a, b) {
+                return b.count - a.count;
+            });
+            return sorted;
+        }
+    };
+
+    try {
+        eval(insertTracer());
+        showResult();
+    } catch (e) {
+        id('result').innerText = e.toString();
+    }
+}
+/* vim: set sw=4 ts=4 et tw=80 : */