// Path: src/stone/FuncParser.java
// public class FuncParser extends BasicParser {
//     Parser param = rule().identifier(reserved);
//     Parser params = rule(ParameterList.class)
//                         .ast(param).repeat(rule().sep(",").ast(param));
//     Parser paramList = rule().sep("(").maybe(params).sep(")");
//     Parser def = rule(DefStmnt.class)
//                      .sep("def").identifier(reserved).ast(paramList).ast(block);
//     Parser args = rule(Arguments.class)
//                       .ast(expr).repeat(rule().sep(",").ast(expr));
//     Parser postfix = rule().sep("(").maybe(args).sep(")");
// 
//     public FuncParser() {
//         reserved.add(")");
//         primary.repeat(postfix);
//         simple.option(args);
//         program.insertChoice(def);
//     }
// }
// 
// Path: src/stone/ParseException.java
// public class ParseException extends Exception {
//     public ParseException(Token t) {
//         this("", t);
//     }
//     public ParseException(String msg, Token t) {
//         super("syntax error around " + location(t) + ". " + msg);
//     }
//     private static String location(Token t) {
//         if (t == Token.EOF)
//             return "the last line";
//         else
//             return "\"" + t.getText() + "\" at line " + t.getLineNumber();
//     }
//     public ParseException(IOException e) {
//         super(e);
//     }
//     public ParseException(String msg) {
//         super(msg);
//     }
// }
// 
// Path: src/chap11/EnvOptInterpreter.java
// public class EnvOptInterpreter {
//     public static void main(String[] args) throws ParseException {
//         run(new ClosureParser(),
//             new Natives().environment(new ResizableArrayEnv()));
//     }
//     public static void run(BasicParser bp, Environment env)
//         throws ParseException
//     {
//         Lexer lexer = new Lexer(new CodeDialog());
//         while (lexer.peek(0) != Token.EOF) {
//             ASTree t = bp.parse(lexer);
//             if (!(t instanceof NullStmnt)) {
//                 ((EnvOptimizer.ASTreeOptEx)t).lookup(
//                         ((EnvOptimizer.EnvEx2)env).symbols());
//                 Object r = ((BasicEvaluator.ASTreeEx)t).eval(env);
//                 System.out.println("=> " + r);
//             }
//         }
//     }
// }
// 
// Path: src/chap8/Natives.java
// public class Natives {
//     public Environment environment(Environment env) {
//         appendNatives(env);
//         return env;
//     }
//     protected void appendNatives(Environment env) {
//         append(env, "print", Natives.class, "print", Object.class);
//         append(env, "read", Natives.class, "read");
//         append(env, "length", Natives.class, "length", String.class);
//         append(env, "toInt", Natives.class, "toInt", Object.class);
//         append(env, "currentTime", Natives.class, "currentTime");
//     }
//     protected void append(Environment env, String name, Class<?> clazz,
//                           String methodName, Class<?> ... params) {
//         Method m;
//         try {
//             m = clazz.getMethod(methodName, params);
//         } catch (Exception e) {
//             throw new StoneException("cannot find a native function: "
//                                      + methodName);
//         }
//         env.put(name, new NativeFunction(methodName, m));
//     }
// 
//     // native methods
//     public static int print(Object obj) {
//         System.out.println(obj.toString());
//         return 0;
//     }
//     public static String read() {
//         return JOptionPane.showInputDialog(null);
//     }
//     public static int length(String s) { return s.length(); }
//     public static int toInt(Object value) {
//         if (value instanceof String)
//             return Integer.parseInt((String)value);
//         else if (value instanceof Integer)
//             return ((Integer)value).intValue();
//         else
//             throw new NumberFormatException(value.toString());
//     }
//     private static long startTime = System.currentTimeMillis();
//     public static int currentTime() {
//         return (int)(System.currentTimeMillis() - startTime);
//     }
// }


import stone.FuncParser;
import stone.ParseException;
import chap11.EnvOptInterpreter;
import chap8.Natives;
package chap13;

public class VmInterpreter extends EnvOptInterpreter {
    public static void main(String[] args) throws ParseException {
// Path: src/stone/FuncParser.java
// public class FuncParser extends BasicParser {
//     Parser param = rule().identifier(reserved);
//     Parser params = rule(ParameterList.class)
//                         .ast(param).repeat(rule().sep(",").ast(param));
//     Parser paramList = rule().sep("(").maybe(params).sep(")");
//     Parser def = rule(DefStmnt.class)
//                      .sep("def").identifier(reserved).ast(paramList).ast(block);
//     Parser args = rule(Arguments.class)
//                       .ast(expr).repeat(rule().sep(",").ast(expr));
//     Parser postfix = rule().sep("(").maybe(args).sep(")");
// 
//     public FuncParser() {
//         reserved.add(")");
//         primary.repeat(postfix);
//         simple.option(args);
//         program.insertChoice(def);
//     }
// }
// 
// Path: src/stone/ParseException.java
// public class ParseException extends Exception {
//     public ParseException(Token t) {
//         this("", t);
//     }
//     public ParseException(String msg, Token t) {
//         super("syntax error around " + location(t) + ". " + msg);
//     }
//     private static String location(Token t) {
//         if (t == Token.EOF)
//             return "the last line";
//         else
//             return "\"" + t.getText() + "\" at line " + t.getLineNumber();
//     }
//     public ParseException(IOException e) {
//         super(e);
//     }
//     public ParseException(String msg) {
//         super(msg);
//     }
// }
// 
// Path: src/chap11/EnvOptInterpreter.java
// public class EnvOptInterpreter {
//     public static void main(String[] args) throws ParseException {
//         run(new ClosureParser(),
//             new Natives().environment(new ResizableArrayEnv()));
//     }
//     public static void run(BasicParser bp, Environment env)
//         throws ParseException
//     {
//         Lexer lexer = new Lexer(new CodeDialog());
//         while (lexer.peek(0) != Token.EOF) {
//             ASTree t = bp.parse(lexer);
//             if (!(t instanceof NullStmnt)) {
//                 ((EnvOptimizer.ASTreeOptEx)t).lookup(
//                         ((EnvOptimizer.EnvEx2)env).symbols());
//                 Object r = ((BasicEvaluator.ASTreeEx)t).eval(env);
//                 System.out.println("=> " + r);
//             }
//         }
//     }
// }
// 
// Path: src/chap8/Natives.java
// public class Natives {
//     public Environment environment(Environment env) {
//         appendNatives(env);
//         return env;
//     }
//     protected void appendNatives(Environment env) {
//         append(env, "print", Natives.class, "print", Object.class);
//         append(env, "read", Natives.class, "read");
//         append(env, "length", Natives.class, "length", String.class);
//         append(env, "toInt", Natives.class, "toInt", Object.class);
//         append(env, "currentTime", Natives.class, "currentTime");
//     }
//     protected void append(Environment env, String name, Class<?> clazz,
//                           String methodName, Class<?> ... params) {
//         Method m;
//         try {
//             m = clazz.getMethod(methodName, params);
//         } catch (Exception e) {
//             throw new StoneException("cannot find a native function: "
//                                      + methodName);
//         }
//         env.put(name, new NativeFunction(methodName, m));
//     }
// 
//     // native methods
//     public static int print(Object obj) {
//         System.out.println(obj.toString());
//         return 0;
//     }
//     public static String read() {
//         return JOptionPane.showInputDialog(null);
//     }
//     public static int length(String s) { return s.length(); }
//     public static int toInt(Object value) {
//         if (value instanceof String)
//             return Integer.parseInt((String)value);
//         else if (value instanceof Integer)
//             return ((Integer)value).intValue();
//         else
//             throw new NumberFormatException(value.toString());
//     }
//     private static long startTime = System.currentTimeMillis();
//     public static int currentTime() {
//         return (int)(System.currentTimeMillis() - startTime);
//     }
// }


// Path: src/chap13/VmInterpreter.java
import stone.FuncParser;
import stone.ParseException;
import chap11.EnvOptInterpreter;
import chap8.Natives;

package chap13;

public class VmInterpreter extends EnvOptInterpreter {
    public static void main(String[] args) throws ParseException {
        run(new FuncParser(),