Commit | Line | Data |
---|---|---|
31690700 | 1 | if (typeof module !== 'undefined') { |
31b44161 | 2 | var types = require('./types'); |
31690700 | 3 | var readline = require('./node_readline'); |
31b44161 JM |
4 | var reader = require('./reader'); |
5 | var printer = require('./printer'); | |
6 | var Env = require('./env').Env; | |
7 | var core = require('./core'); | |
31690700 JM |
8 | } |
9 | ||
10 | // read | |
11 | function READ(str) { | |
12 | return reader.read_str(str); | |
13 | } | |
14 | ||
15 | // eval | |
16 | function eval_ast(ast, env) { | |
ea81a808 | 17 | if (types._symbol_Q(ast)) { |
31690700 | 18 | return env.get(ast); |
ea81a808 | 19 | } else if (types._list_Q(ast)) { |
31690700 | 20 | return ast.map(function(a) { return EVAL(a, env); }); |
ea81a808 | 21 | } else if (types._vector_Q(ast)) { |
31690700 JM |
22 | var v = ast.map(function(a) { return EVAL(a, env); }); |
23 | v.__isvector__ = true; | |
24 | return v; | |
ea81a808 | 25 | } else if (types._hash_map_Q(ast)) { |
31690700 JM |
26 | var new_hm = {}; |
27 | for (k in ast) { | |
28 | new_hm[EVAL(k, env)] = EVAL(ast[k], env); | |
29 | } | |
30 | return new_hm; | |
31 | } else { | |
32 | return ast; | |
33 | } | |
34 | } | |
35 | ||
36 | function _EVAL(ast, env) { | |
37 | while (true) { | |
ea81a808 | 38 | |
86b689f3 | 39 | //printer.println("EVAL:", printer._pr_str(ast, true)); |
ea81a808 JM |
40 | if (!types._list_Q(ast)) { |
41 | return eval_ast(ast, env); | |
42 | } | |
daf52a0a DM |
43 | if (ast.length === 0) { |
44 | return ast; | |
45 | } | |
ea81a808 JM |
46 | |
47 | // apply list | |
48 | var a0 = ast[0], a1 = ast[1], a2 = ast[2], a3 = ast[3]; | |
49 | switch (a0.value) { | |
50 | case "def!": | |
51 | var res = EVAL(a2, env); | |
52 | return env.set(a1, res); | |
53 | case "let*": | |
54 | var let_env = new Env(env); | |
55 | for (var i=0; i < a1.length; i+=2) { | |
b8ee29b2 | 56 | let_env.set(a1[i], EVAL(a1[i+1], let_env)); |
31690700 | 57 | } |
6301e0b6 JM |
58 | ast = a2; |
59 | env = let_env; | |
60 | break; | |
ea81a808 JM |
61 | case "do": |
62 | eval_ast(ast.slice(1, -1), env); | |
63 | ast = ast[ast.length-1]; | |
64 | break; | |
65 | case "if": | |
66 | var cond = EVAL(a1, env); | |
67 | if (cond === null || cond === false) { | |
68 | ast = (typeof a3 !== "undefined") ? a3 : null; | |
69 | } else { | |
70 | ast = a2; | |
31690700 | 71 | } |
ea81a808 JM |
72 | break; |
73 | case "fn*": | |
74 | return types._function(EVAL, Env, a2, env, a1); | |
75 | default: | |
8adb0827 | 76 | var el = eval_ast(ast, env), f = el[0]; |
a34b0200 JM |
77 | if (f.__ast__) { |
78 | ast = f.__ast__; | |
79 | env = f.__gen_env__(el.slice(1)); | |
ea81a808 JM |
80 | } else { |
81 | return f.apply(f, el.slice(1)); | |
82 | } | |
83 | } | |
84 | ||
31690700 JM |
85 | } |
86 | } | |
87 | ||
88 | function EVAL(ast, env) { | |
89 | var result = _EVAL(ast, env); | |
90 | return (typeof result !== "undefined") ? result : null; | |
91 | } | |
92 | ||
93 | ||
94 | function PRINT(exp) { | |
ea81a808 | 95 | return printer._pr_str(exp, true); |
31690700 JM |
96 | } |
97 | ||
98 | // repl | |
ea81a808 | 99 | var repl_env = new Env(); |
31690700 | 100 | var rep = function(str) { return PRINT(EVAL(READ(str), repl_env)); }; |
31690700 | 101 | |
8cb5cda4 | 102 | // core.js: defined using javascript |
b8ee29b2 | 103 | for (var n in core.ns) { repl_env.set(types._symbol(n), core.ns[n]); } |
31690700 | 104 | |
8cb5cda4 | 105 | // core.mal: defined using the language itself |
31690700 JM |
106 | rep("(def! not (fn* (a) (if a false true)))"); |
107 | ||
86b689f3 | 108 | // repl loop |
e4393504 | 109 | if (typeof require !== 'undefined' && require.main === module) { |
31690700 JM |
110 | // Synchronous node.js commandline mode |
111 | while (true) { | |
112 | var line = readline.readline("user> "); | |
113 | if (line === null) { break; } | |
114 | try { | |
31b44161 | 115 | if (line) { printer.println(rep(line)); } |
31690700 | 116 | } catch (exc) { |
dd7a4f55 JM |
117 | if (exc instanceof reader.BlankException) { continue } |
118 | if (exc instanceof Error) { console.warn(exc.stack) } | |
119 | else { console.warn("Error: " + printer._pr_str(exc, true)) } | |
31690700 JM |
120 | } |
121 | } | |
31690700 | 122 | } |