ruby-wisp-source 0.7.0

data/vendor/analyzer.js

@@ -0,0 +1,385 @@
+var namespace = (require("./ast")).namespace;
+var name = (require("./ast")).name;
+var meta = (require("./ast")).meta;
+var isKeyword = (require("./ast")).isKeyword;
+var isSymbol = (require("./ast")).isSymbol;
+var symbol = (require("./ast")).symbol;;
+
+var count = (require("./sequence")).count;
+var rest = (require("./sequence")).rest;
+var last = (require("./sequence")).last;
+var first = (require("./sequence")).first;
+var list = (require("./sequence")).list;
+var list_ = (require("./sequence")).list_;
+var isEmpty = (require("./sequence")).isEmpty;
+var interleave = (require("./sequence")).interleave;
+var isEvery = (require("./sequence")).isEvery;
+var map = (require("./sequence")).map;
+var conj = (require("./sequence")).conj;
+var seq = (require("./sequence")).seq;
+var isSeq = (require("./sequence")).isSeq;;
+
+var merge = (require("./runtime")).merge;
+var isNil = (require("./runtime")).isNil;
+var isEqual = (require("./runtime")).isEqual;
+var vals = (require("./runtime")).vals;
+var keys = (require("./runtime")).keys;
+var isString = (require("./runtime")).isString;
+var isDictionary = (require("./runtime")).isDictionary;
+var isVector = (require("./runtime")).isVector;;
+
+var split = (require("./string")).split;;
+
+var getIn = function getIn(dictionary, keys, notFound) {
+  return (function loop(target, sentinel, keys) {
+    var recur = loop;
+    while (recur === loop) {
+      recur = isEmpty(keys) ?
+      target :
+      (function() {
+        var result = (((target || 0) || 0)[first(keys)]) || sentinel;
+        return result === sentinel ?
+          notFound :
+          (target = result, sentinel = sentinel, keys = rest(keys), loop);
+      })();
+    };
+    return recur;
+  })(dictionary, {}, keys);
+};
+exports.getIn = getIn;
+
+var emptyEnv = function emptyEnv(ns) {
+  "Utility function that creates empty namespaces";
+  return {
+    "ns": ns,
+    "namespaces": {},
+    "context": "statement",
+    "locals": {}
+  };
+};
+exports.emptyEnv = emptyEnv;
+
+var localBinding = function localBinding(env, form) {
+  return (((env || 0)["locals"]) || 0)[form];
+};
+
+var isCoreName = function isCoreName(env, sym) {
+  return false;
+};
+exports.isCoreName = isCoreName;
+
+var resolveNsAlias = function resolveNsAlias(env, name) {
+  var sym = symbol(name);
+  return (((((((env || 0)["ns"]) || 0)["requires"]) || 0) || 0)[sym]) || sym;
+};
+exports.resolveNsAlias = resolveNsAlias;
+
+var resolveExistingVar = function resolveExistingVar(env, form) {
+  return isEqual(namespace(form), "js") ?
+    {
+      "name": form,
+      "ns": symbol(void(0), "js")
+    } :
+    (function() {
+      var namespaces = (env || 0)["namespaces"];
+      var s = "" + form;
+      var binding = localBinding(env, form);
+      return binding ?
+        binding :
+      namespace(form) ?
+        (function() {
+          var ns = namespace(form);
+          var ns = isEqual("clojure.core", ns) ?
+            "cljs.core" :
+            ns;
+          var fullNs = resolveNsAlias(env, ns);
+          var id = symbol(name(form));
+          return merge(getIn(namespaces, [fullNs, "defs", id]), {
+            "name": symbol("" + fullNs, "" + (name(form))),
+            "ns": fullNs
+          });
+        })() :
+      "else" ?
+        (function() {
+          var fullNs = isCoreName(env, form) ?
+            symbol(void(0), "cljs.core") :
+            (((env || 0)["ns"]) || 0)["name"];
+          return merge(getIn(namespaces, [fullNs, "defs", form]), {
+            "name": symbol("" + fullNs, "" + form),
+            "ns": fullNs
+          });
+        })() :
+        void(0);
+    })();
+};
+exports.resolveExistingVar = resolveExistingVar;
+
+var isSpecial = function isSpecial(op) {
+  return (isEqual(op, symbol(void(0), "if"))) || (isEqual(op, symbol(void(0), "def"))) || (isEqual(op, symbol(void(0), "fn*"))) || (isEqual(op, symbol(void(0), "do"))) || (isEqual(op, symbol(void(0), "let*"))) || (isEqual(op, symbol(void(0), "loop*"))) || (isEqual(op, symbol(void(0), "letfn*"))) || (isEqual(op, symbol(void(0), "throw"))) || (isEqual(op, symbol(void(0), "try*"))) || (isEqual(op, symbol(void(0), "recur"))) || (isEqual(op, symbol(void(0), "new"))) || (isEqual(op, symbol(void(0), "set!"))) || (isEqual(op, symbol(void(0), "ns"))) || (isEqual(op, symbol(void(0), "deftype*"))) || (isEqual(op, symbol(void(0), "defrecord*"))) || (isEqual(op, symbol(void(0), "."))) || (isEqual(op, symbol(void(0), "js*"))) || (isEqual(op, symbol(void(0), "&"))) || (isEqual(op, symbol(void(0), "quote")));
+};
+exports.isSpecial = isSpecial;
+
+var analyzeSeq = function analyzeSeq(env, form, name) {
+  var env = conj(env, {
+    "line": (((meta(form)) || 0)["line"]) || ((env || 0)["line"])
+  });
+  return (function() {
+    var op = first(form);
+    (function() {
+      (!(typeof(__verbose__) === "undefined")) && __verbose__ ?
+        console.log("Assert:", "(not (nil? op))") :
+        void(0);
+      return !(!(isNil(op))) ?
+        (function() { throw new Error("" + "Assert failed: " + "Can't call nil" + "\n\nAssertion:\n\n" + "(not (nil? op))" + "\n\nActual:\n\n" + (isNil(op)) + "\n--------------\n", void(0)); })() :
+        void(0);
+    })();
+    return (function() {
+      var expansion = macroexpand(form);
+      return isSpecial(op) ?
+        parse(op, env, form, name) :
+        parseInvoke(env, form);
+    })();
+  })();
+};
+exports.analyzeSeq = analyzeSeq;
+
+var isMethodCall = function isMethodCall(form) {
+  return isEqual(first(form), ".");
+};
+
+var isInstantiation = function isInstantiation(form) {
+  return isEqual(last(form), ".");
+};
+
+var getNsExclude = function getNsExclude(env, sym) {
+  return (((((env || 0)["ns"]) || 0)["excludes"]) || 0)[sym];
+};
+
+var getNsName = function getNsName(env) {
+  return (((env || 0)["ns"]) || 0)["name"];
+};
+
+var getMacroUses = function getMacroUses(env, sym) {
+  return (((((env || 0)["ns"]) || 0)["uses-macros"]) || 0)[sym];
+};
+
+var isMacroSym = function isMacroSym(env, sym) {
+  var namespaces = (env || 0)["namespaces"];
+  var local = localBinding(env, sym);
+  var nsId = getNsName(env);
+  return !(local || (((getNsExclude(env, sym)) || (getIn(namespaces, [nsId, "excludes", sym]))) && (!((getMacroUses(env, sym)) || (getIn(namespaces, [nsId, "uses-macros", sym]))))));
+};
+exports.isMacroSym = isMacroSym;
+
+var getExpander = function getExpander(sym, env) {
+  var op = (isMacroSym(env, sym)) && (resolveExistingVar(emptyEnv(), sym));
+  return op && ((op || 0)["macro"]) ?
+    eval("" + (munge((op || 0)["name"]))) :
+    void(0);
+};
+exports.getExpander = getExpander;
+
+var isSugar = function isSugar(op) {
+  var id = "" + op;
+  return (first(id) === ".") || (last(id) === ".");
+};
+exports.isSugar = isSugar;
+
+var isMacro = function isMacro(op) {
+  return false;
+};
+exports.isMacro = isMacro;
+
+var desugar1 = function desugar1(form) {
+  var id = "" + form;
+  var params = rest(form);
+  var metadata = meta(form);
+  return isMethodCall(id) ?
+    withMeta(list_(symbol(void(0), "."), first(param), symbol(subs(id, 1)), rest(params)), metadata) :
+  isInstantiation(id) ?
+    withMeta(list_(symbol(void(0), "new"), symbol(subs(opname, 0, dec(count(opname)))), params), metadata) :
+  "else" ?
+    form :
+    void(0);
+};
+exports.desugar1 = desugar1;
+
+var macroexpand1 = function macroexpand1(form) {
+  var op = first(form);
+  return isSpecial(op) ?
+    form :
+  isSugar(op) ?
+    desugar1(form) :
+  isMacro(op) ?
+    getExpander(op).apply(getExpander(op), form) :
+  "else" ?
+    form :
+    void(0);
+};
+exports.macroexpand1 = macroexpand1;
+
+var macroexpand = function macroexpand(form) {
+  return (function loop(form, expansion) {
+    var recur = loop;
+    while (recur === loop) {
+      recur = form === expansion ?
+      form :
+      (form = expansion, expansion = macroexpand1(expansion), loop);
+    };
+    return recur;
+  })(form, macroexpand1(form));
+};
+exports.macroexpand = macroexpand;
+
+var analyzeSymbol = function analyzeSymbol(env, symbol) {
+  var result = {
+    "env": env,
+    "form": symbol
+  };
+  var locals = (env || 0)["locals"];
+  var local = (locals || 0)[symbol];
+  return conj(result, {
+    "op": "var",
+    "info": local ?
+      local :
+      resolveExistingVar(env, symbol)
+  });
+};
+exports.analyzeSymbol = analyzeSymbol;
+
+var _readerNsName_ = symbol("clojure.reader", "reader");
+
+var analyzeKeyword = function analyzeKeyword(env, form) {
+  return {
+    "op": "constant",
+    "env": env,
+    "form": isEqual(namespace(form), name(_readerNsName_)) ?
+      keyword(name((((env || 0)["ns"]) || 0)["name"]), name(form)) :
+      form
+  };
+};
+exports.analyzeKeyword = analyzeKeyword;
+
+var isSimpleKey = function isSimpleKey(x) {
+  return (isString(x)) || (isKeyword(x));
+};
+exports.isSimpleKey = isSimpleKey;
+
+var analyzeDictionary = function analyzeDictionary(env, form, name) {
+  var exprEnv = conj(env, {
+    "context": "expr"
+  });
+  var names = keys(form);
+  var isSimpleKeys = isEvery(isSimpleKey, names);
+  var ks = disallowingRecur(vec(map(function($1) {
+    return analyze(exprEnv, $1, name);
+  }, names)));
+  var vs = disallowingRecur(vec(map(function($1) {
+    return analyze(exprEnv, $1, name);
+  }, vals(form))));
+  return analyzeWrapMeta({
+    "op": "map",
+    "env": env,
+    "form": form,
+    "keys": ks,
+    "vals": vs,
+    "simple-keys?": isSimpleKeys,
+    "children": vec(interleave(ks, vs))
+  }, name);
+};
+exports.analyzeDictionary = analyzeDictionary;
+
+var analyzeVector = function analyzeVector(env, form, name) {
+  var exprEnv = conj(env, {
+    "context": "expr"
+  });
+  var items = disallowingRecur(vec(map(function($1) {
+    return analyze(exprEnv, $1, name);
+  }, form)));
+  return analyzeWrapMeta({
+    "op": "vector",
+    "env": env,
+    "form": form,
+    "items": items,
+    "children": items
+  }, name);
+};
+exports.analyzeVector = analyzeVector;
+
+var analyzeWrapMeta = function analyzeWrapMeta(expr, name) {
+  var form = (expr || 0)["form"];
+  var metadata = meta(form);
+  var env = (expr || 0)["env"];
+  var expr = metadata ?
+    assocIn(expr, ["env", "context"], "expr") :
+    void(0);
+  var metaExpr = metadata ?
+    analyzeMap(env, metadata, name) :
+    void(0);
+  return metadata ?
+    {
+      "op": "meta",
+      "env": env,
+      "form": form,
+      "meta": metaExpr,
+      "expr": expr,
+      "children": [metaExpr, expr]
+    } :
+    expr;
+};
+exports.analyzeWrapMeta = analyzeWrapMeta;
+
+var analyzeMap = function analyzeMap(env, form, name) {
+  var exprEnv = conj(env, {
+    "context": "expr"
+  });
+  var isSimpleKeys = isEvery(function($1) {
+    return (isString($1)) || (isKeyword($1));
+  }, keys(form));
+  var ks = disallowingRecur(vec(map(function($1) {
+    return analyze(exprEnv, $1, name);
+  }, keys(form))));
+  var vs = disallowingRecur(vec(map(function($1) {
+    return analyze(exprEnv, $1, name);
+  }, vals(form))));
+  return analyzeWrapMeta({
+    "op": "map",
+    "env": env,
+    "form": form,
+    "keys": ks,
+    "vals": vs,
+    "simple-keys?": isSimpleKeys,
+    "children": vec(interleave(ks, vs))
+  }, name);
+};
+exports.analyzeMap = analyzeMap;
+
+var analyze = function analyze(env, form, name) {
+  switch (arguments.length) {
+    case 2:
+      return analyze(env, form, void(0));
+    case 3:
+      return isSymbol(form) ?
+        analyzeSymbol(env, form) :
+      isKeyword(form) ?
+        analyzeKeyword(env, form) :
+      (isSeq(form)) && (!(isEmpty(form))) ?
+        analyzeSeq(env, form, name) :
+      isDictionary(form) ?
+        analyzeDictionary(env, form, name) :
+      isVector(form) ?
+        analyzeVector(env, form, name) :
+      "else" ?
+        {
+          "op": "constant",
+          "env": env,
+          "form": form
+        } :
+        void(0);
+
+    default:
+      (function() { throw Error("Invalid arity"); })()
+  };
+  return void(0);
+};
+exports.analyze = analyze

data/vendor/ast.js

@@ -0,0 +1,214 @@
+var _ns_ = "wisp.ast";
+module.namespace = _ns_;
+var isList = (require("./sequence")).isList;
+var isSequential = (require("./sequence")).isSequential;
+var first = (require("./sequence")).first;
+var second = (require("./sequence")).second;
+var count = (require("./sequence")).count;
+var last = (require("./sequence")).last;
+var map = (require("./sequence")).map;
+var vec = (require("./sequence")).vec;
+var split = (require("./string")).split;
+var join = (require("./string")).join;
+var isNil = (require("./runtime")).isNil;
+var isVector = (require("./runtime")).isVector;
+var isNumber = (require("./runtime")).isNumber;
+var isString = (require("./runtime")).isString;
+var isBoolean = (require("./runtime")).isBoolean;
+var isObject = (require("./runtime")).isObject;
+var isDate = (require("./runtime")).isDate;
+var isRePattern = (require("./runtime")).isRePattern;
+var isDictionary = (require("./runtime")).isDictionary;
+var str = (require("./runtime")).str;
+var inc = (require("./runtime")).inc;
+var subs = (require("./runtime")).subs;
+var isEqual = (require("./runtime")).isEqual;;
+
+var withMeta = function withMeta(value, metadata) {
+  Object.defineProperty(value, "metadata", {
+    "value": metadata,
+    "configurable": true
+  });
+  return value;
+};
+exports.withMeta = withMeta;
+
+var meta = function meta(value) {
+  return isObject(value) ?
+    value.metadata :
+    void(0);
+};
+exports.meta = meta;
+
+var __nsSeparator__ = "⁄";
+exports.__nsSeparator__ = __nsSeparator__;
+
+var Symbol = function Symbol(namespace, name) {
+  this.namespace = namespace;
+  this.name = name;
+  return this;
+};
+
+Symbol.type = "wisp.symbol";
+
+Symbol.prototype.type = Symbol.type;
+
+Symbol.prototype.toString = function() {
+  var ns = namespace(this);
+  return ns ?
+    "" + ns + "/" + (name(this)) :
+    "" + (name(this));
+};
+
+var symbol = function symbol(ns, id) {
+  return isSymbol(ns) ?
+    ns :
+  isKeyword(ns) ?
+    new Symbol(namespace(ns), name(ns)) :
+  isNil(id) ?
+    new Symbol(void(0), ns) :
+  "else" ?
+    new Symbol(ns, id) :
+    void(0);
+};
+exports.symbol = symbol;
+
+var isSymbol = function isSymbol(x) {
+  return x && (Symbol.type === x.type);
+};
+exports.isSymbol = isSymbol;
+
+var isKeyword = function isKeyword(x) {
+  return (isString(x)) && (count(x) > 1) && (first(x) === "꞉");
+};
+exports.isKeyword = isKeyword;
+
+var keyword = function keyword(ns, id) {
+  return isKeyword(ns) ?
+    ns :
+  isSymbol(ns) ?
+    "" + "꞉" + (name(ns)) :
+  isNil(id) ?
+    "" + "꞉" + ns :
+  isNil(ns) ?
+    "" + "꞉" + id :
+  "else" ?
+    "" + "꞉" + ns + __nsSeparator__ + id :
+    void(0);
+};
+exports.keyword = keyword;
+
+var keywordName = function keywordName(value) {
+  return last(split(subs(value, 1), __nsSeparator__));
+};
+
+var name = function name(value) {
+  return isSymbol(value) ?
+    value.name :
+  isKeyword(value) ?
+    keywordName(value) :
+  isString(value) ?
+    value :
+  "else" ?
+    (function() { throw new TypeError("" + "Doesn't support name: " + value); })() :
+    void(0);
+};
+exports.name = name;
+
+var keywordNamespace = function keywordNamespace(x) {
+  var parts = split(subs(x, 1), __nsSeparator__);
+  return count(parts) > 1 ?
+    (parts || 0)[0] :
+    void(0);
+};
+
+var namespace = function namespace(x) {
+  return isSymbol(x) ?
+    x.namespace :
+  isKeyword(x) ?
+    keywordNamespace(x) :
+  "else" ?
+    (function() { throw new TypeError("" + "Doesn't supports namespace: " + x); })() :
+    void(0);
+};
+exports.namespace = namespace;
+
+var gensym = function gensym(prefix) {
+  return symbol("" + (isNil(prefix) ?
+    "G__" :
+    prefix) + (gensym.base = gensym.base + 1));
+};
+exports.gensym = gensym;
+
+gensym.base = 0;
+
+var isUnquote = function isUnquote(form) {
+  return (isList(form)) && (isEqual(first(form), symbol(void(0), "unquote")));
+};
+exports.isUnquote = isUnquote;
+
+var isUnquoteSplicing = function isUnquoteSplicing(form) {
+  return (isList(form)) && (isEqual(first(form), symbol(void(0), "unquote-splicing")));
+};
+exports.isUnquoteSplicing = isUnquoteSplicing;
+
+var isQuote = function isQuote(form) {
+  return (isList(form)) && (isEqual(first(form), symbol(void(0), "quote")));
+};
+exports.isQuote = isQuote;
+
+var isSyntaxQuote = function isSyntaxQuote(form) {
+  return (isList(form)) && (isEqual(first(form), symbol(void(0), "syntax-quote")));
+};
+exports.isSyntaxQuote = isSyntaxQuote;
+
+var normalize = function normalize(n, len) {
+  return (function loop(ns) {
+    var recur = loop;
+    while (recur === loop) {
+      recur = count(ns) < len ?
+      (ns = "" + "0" + ns, loop) :
+      ns;
+    };
+    return recur;
+  })("" + n);
+};
+
+var quoteString = function quoteString(s) {
+  s = join("\\\"", split(s, "\""));
+  s = join("\\\\", split(s, "\\"));
+  s = join("\\b", split(s, ""));
+  s = join("\\f", split(s, ""));
+  s = join("\\n", split(s, "\n"));
+  s = join("\\r", split(s, "\r"));
+  s = join("\\t", split(s, "\t"));
+  return "" + "\"" + s + "\"";
+};
+exports.quoteString = quoteString;
+
+var prStr = function prStr(x) {
+  return isNil(x) ?
+    "nil" :
+  isKeyword(x) ?
+    namespace(x) ?
+      "" + ":" + (namespace(x)) + "/" + (name(x)) :
+      "" + ":" + (name(x)) :
+  isString(x) ?
+    quoteString(x) :
+  isDate(x) ?
+    "" + "#inst \"" + (x.getUTCFullYear()) + "-" + (normalize(inc(x.getUTCMonth()), 2)) + "-" + (normalize(x.getUTCDate(), 2)) + "T" + (normalize(x.getUTCHours(), 2)) + ":" + (normalize(x.getUTCMinutes(), 2)) + ":" + (normalize(x.getUTCSeconds(), 2)) + "." + (normalize(x.getUTCMilliseconds(), 3)) + "-" + "00:00\"" :
+  isVector(x) ?
+    "" + "[" + (join(" ", map(prStr, vec(x)))) + "]" :
+  isDictionary(x) ?
+    "" + "{" + (join(", ", map(function(pair) {
+      return "" + (prStr(first(pair))) + " " + (prStr(second(pair)));
+    }, x))) + "}" :
+  isSequential(x) ?
+    "" + "(" + (join(" ", map(prStr, vec(x)))) + ")" :
+  isRePattern(x) ?
+    "" + "#\"" + (join("\\/", split(x.source, "/"))) + "\"" :
+  "else" ?
+    "" + x :
+    void(0);
+};
+exports.prStr = prStr