object Stmt.Visitor <object> .visitClassStmt(Class stmt)
{
//Console.WriteLine("visitClassStmt");
Object superclass = null;
if (stmt.superclass != null)
{
superclass = evaluate(stmt.superclass);
if (!(superclass is TypeScriptNativeClass))
{
throw new RuntimeError(stmt.superclass.name,
"Superclass must be a class.");
}
}
environment.define(stmt.name.lexeme, null);
if (stmt.superclass != null)
{
environment = new MyEnvironment(environment);
environment.define("super", superclass);
}
Dictionary <String, TypeScriptNativeFunction> methods =
new Dictionary <String, TypeScriptNativeFunction>();
foreach (Function method in stmt.methods)
{
TypeScriptNativeFunction function =
new TypeScriptNativeFunction(
method,
environment,
method.name.lexeme.Equals("constructor")
);
methods.Add(method.name.lexeme, function);
}
TypeScriptNativeClass klass =
new TypeScriptNativeClass(
stmt.name.lexeme,
(TypeScriptNativeClass)superclass,
methods
);
if (superclass != null)
{
environment = environment.enclosing;
}
environment.assign(stmt.name, klass);
return(null);
}
object Expr.Visitor <object> .visitSuperExpr(Super expr)
{
//Console.WriteLine("visitSuperExpr");
// int distance = locals.get(expr);
int outDistance;
var found = locals.TryGetValue(expr, out outDistance);
int distance = found ? outDistance : 0;
TypeScriptNativeClass superclass =
(TypeScriptNativeClass)environment.getAt(distance, "super");
TypeScriptNativeInstance myObject =
(TypeScriptNativeInstance)environment.getAt(distance - 1, "this");
TypeScriptNativeFunction method =
superclass.findMethod(expr.method.lexeme);
if (method == null)
{
throw new RuntimeError(expr.method,
"Undefined property '" + expr.method.lexeme + "'.");
}
return(method.bind(myObject));
}
