js/step3_env.js

   1 if (typeof module !== 'undefined') {
   2     var types = require('./types');
   3     var readline = require('./node_readline');
   4     var reader = require('./reader');
   5     var printer = require('./printer');
   6     var Env = require('./env').Env;
   7 }
   8
   9 // read
  10 function READ(str) {
  11     return reader.read_str(str);
  12 }
  13
  14 // eval
  15 function eval_ast(ast, env) {
  16     if (types._symbol_Q(ast)) {
  17         return env.get(ast);
  18     } else if (types._list_Q(ast)) {
  19         return ast.map(function(a) { return EVAL(a, env); });
  20     } else if (types._vector_Q(ast)) {
  21         var v = ast.map(function(a) { return EVAL(a, env); });
  22         v.__isvector__ = true;
  23         return v;
  24     } else if (types._hash_map_Q(ast)) {
  25         var new_hm = {};
  26         for (k in ast) {
  27             new_hm[EVAL(k, env)] = EVAL(ast[k], env);
  28         }
  29         return new_hm;
  30     } else {
  31         return ast;
  32     }
  33 }
  34
  35 function _EVAL(ast, env) {
  36     //printer.println("EVAL:", types._pr_str(ast, true));
  37     if (!types._list_Q(ast)) {
  38         return eval_ast(ast, env);
  39     }
  40
  41     // apply list
  42     var a0 = ast[0], a1 = ast[1], a2 = ast[2], a3 = ast[3];
  43     switch (a0.value) {
  44     case "def!":
  45         var res = EVAL(a2, env);
  46         return env.set(a1, res);
  47     case "let*":
  48         var let_env = new Env(env);
  49         for (var i=0; i < a1.length; i+=2) {
  50             let_env.set(a1[i].value, EVAL(a1[i+1], let_env));
  51         }
  52         return EVAL(a2, let_env);
  53     default:
  54         var el = eval_ast(ast, env), f = el[0];
  55         return f.apply(f, el.slice(1));
  56     }
  57 }
  58
  59 function EVAL(ast, env) {
  60     var result = _EVAL(ast, env);
  61     return (typeof result !== "undefined") ? result : null;
  62 }
  63
  64 // print
  65 function PRINT(exp) {
  66     return printer._pr_str(exp, true);
  67 }
  68
  69 // repl
  70 var repl_env = new Env();
  71 var rep = function(str) { return PRINT(EVAL(READ(str), repl_env)); };
  72 _ref = function (k,v) { repl_env.set(k, v); }
  73
  74 _ref('+', function(a,b){return a+b;});
  75 _ref('-', function(a,b){return a-b;});
  76 _ref('*', function(a,b){return a*b;});
  77 _ref('/', function(a,b){return a/b;});
  78
  79 if (typeof require === 'undefined') {
  80     // Asynchronous browser mode
  81     readline.rlwrap(function(line) { return rep(line); },
  82                     function(exc) {
  83                         if (exc instanceof reader.BlankException) { return; }
  84                         if (exc.stack) { printer.println(exc.stack); }
  85                         else           { printer.println(exc); }
  86                     });
  87 } else if (require.main === module) {
  88     // Synchronous node.js commandline mode
  89     while (true) {
  90         var line = readline.readline("user> ");
  91         if (line === null) { break; }
  92         try {
  93             if (line) { printer.println(rep(line)); }
  94         } catch (exc) {
  95             if (exc instanceof reader.BlankException) { continue; }
  96             if (exc.stack) { printer.println(exc.stack); }
  97             else           { printer.println(exc); }
  98         }
  99     }
 100 } else {
 101     exports.rep = rep;
 102 }