view core/src/luan/impl/FnCall.java @ 372:f08cefa4594c

start editing manual
author Franklin Schmidt <fschmidt@gmail.com>
date Fri, 17 Apr 2015 07:58:20 -0600
parents 3dcb0f9bee82
children d55e873e1f0d
line wrap: on
line source

package luan.impl;

import luan.Luan;
import luan.LuanFunction;
import luan.LuanException;
import luan.LuanSource;


final class FnCall extends CodeImpl implements Expressions {
	final Expr fnExpr;
	final Expressions args;
	final String fnName;

	FnCall(LuanSource.Element se,Expr fnExpr,Expressions args) {
		super(se);
		this.fnExpr = fnExpr;
		this.args = args;
		this.fnName = fnExpr.se().text();
	}

	@Override public Object eval(LuanStateImpl luan) throws LuanException {
		return call( luan, fnExpr.eval(luan) );
	}

	private Object call(LuanStateImpl luan,Object o) throws LuanException {
		if( o instanceof LuanFunction ) {
			LuanFunction fn = (LuanFunction)o;
			return luan.bit(se).call( fn, fnName, Luan.array(args.eval(luan)) );
		}
		Object h = luan.getHandler("__call",o);
		if( h != null )
			return call(luan,h);
		throw luan.bit(fnExpr.se()).exception( "attempt to call '"+fnExpr.se().text()+"' (a " + Luan.type(o) + " value)" );
	}

	@Override public String toString() {
		return "(FnCall "+fnName+" "+fnExpr+" "+args+")";
	}
}