| Index: petitparser/lib/lisp.dart
|
| diff --git a/petitparser/lib/lisp.dart b/petitparser/lib/lisp.dart
|
| deleted file mode 100644
|
| index 4bcd5a3996294541fd8793002b028216925ab90e..0000000000000000000000000000000000000000
|
| --- a/petitparser/lib/lisp.dart
|
| +++ /dev/null
|
| @@ -1,60 +0,0 @@
|
| -/**
|
| - * This package contains a simple grammar and evaluator for LISP.
|
| - *
|
| - * The code is reasonably complete to run and evaluate reasonably complex
|
| - * programs from the console and from the web browser.
|
| - */
|
| -library lisp;
|
| -
|
| -import 'dart:collection';
|
| -import 'package:petitparser/petitparser.dart';
|
| -
|
| -part 'src/lisp/cons.dart';
|
| -part 'src/lisp/environment.dart';
|
| -part 'src/lisp/grammar.dart';
|
| -part 'src/lisp/name.dart';
|
| -part 'src/lisp/natives.dart';
|
| -part 'src/lisp/parser.dart';
|
| -part 'src/lisp/standard.dart';
|
| -
|
| -/** The standard lisp parser definition. */
|
| -final lispParser = new LispParser();
|
| -
|
| -/** The evaluation function. */
|
| -eval(Environment env, expr) {
|
| - if (expr is Cons) {
|
| - return eval(env, expr.head)(env, expr.tail);
|
| - } else if (expr is Name) {
|
| - return env[expr];
|
| - } else {
|
| - return expr;
|
| - }
|
| -}
|
| -
|
| -/** Evaluate a cons of instructions. */
|
| -evalList(Environment env, expr) {
|
| - var result = null;
|
| - while (expr is Cons) {
|
| - result = eval(env, expr.head);
|
| - expr = expr.tail;
|
| - }
|
| - return result;
|
| -}
|
| -
|
| -/** The arguments evaluation function. */
|
| -evalArguments(Environment env, args) {
|
| - if (args is Cons) {
|
| - return new Cons(eval(env, args.head), evalArguments(env, args.tail));
|
| - } else {
|
| - return null;
|
| - }
|
| -}
|
| -
|
| -/** Reads and evaluates a [script]. */
|
| -evalString(Parser parser, Environment env, String script) {
|
| - var result = null;
|
| - for (var cell in parser.parse(script).value) {
|
| - result = eval(env, cell);
|
| - }
|
| - return result;
|
| -}
|
|
|