int main() { using namespace lisp; Parser parser; Interpreter interpreter; while (std::cin) { std::string expr; std::getline(std::cin, expr, ';'); if (expr.empty()) { continue; } try { std::istringstream is(expr); List parsed = parser.parse(is); std::cout << interpreter.eval(parsed) << "\n"; } catch (parse_error error) { std::cerr << "parse error: " << error.what() << "\n"; } catch (eval_error error) { std::cerr << "evaluation error: " << error.what() << "\n"; } } return 0; }
int main() { TEST_START(19); Interpreter universe; universe.eval( "sub first { return 1 }\n" "sub second { return scalar @_ }\n" "sub third { return $_[0] }\n" "sub fourth { return ++$_[0] }\n" "sub fifth { @_ }\n" ); Ref<Code> first = universe.eval("\\&first"); ok(first(), "first()"); is(first(), 1, "first() == 1"); Ref<Code> second = universe.eval("\\&second"); ok(second(1), "second(1)"); ok(second("foo"), "second(\"foo\")"); is(second(1), 1, "second(1) == 1"); is(second(1, 1), 2, "second(1, 1) == 2"); Array more = universe.list(1, 2, 3); is(second(more), 3, "second(more) == 3"); is(second(1, 1, more), 5, "second(1, 1, more) == 5"); Ref<Code> third = universe.eval("\\&third"); ok(third(1), "third(1)"); ok(third("foo"), "third(\"foo\")"); is(third(1), 1, "third(1) == 1"); is(third ("foo"), "foo", "third(\"foo\") == \"foo\""); is(third(more), 1, "third(more) == 1"); Ref<Code> fourth = universe.eval("\\&fourth"); Integer value = universe.value_of(1); note("value = 1"); is(fourth(value), 2, "fourth(value) == 2"); is(value, 2, "value == 2"); is(second.list(1)[0], 1, "second(1) == 1"); is(second.list(1, 1)[0], 2, "second(1, 1) == 2"); Ref<Code> fifth = universe.eval("\\&fifth"); is(fifth.list(1, 2, 3).length(), 3u, "fifth(1, 2, 3).length() == 3"); is(fifth.list(1, 2, 3)[2], 3, "list[2] == 3"); TEST_END; }