package luan.impl;

import luan.LuanException;
import luan.LuanTable;
import luan.Luan;
import luan.LuanFunction;
import luan.LuanElement;
import luan.LuanMeta;
import luan.modules.JavaLuan;


final class SetTableEntry extends CodeImpl implements Settable {
	private final Expr tableExpr;
	private final Expr keyExpr;

	SetTableEntry(LuanElement el,Expr tableExpr,Expr keyExpr) {
		super(el);
		this.tableExpr = tableExpr;
		this.keyExpr = keyExpr;
	}

	@Override public void set(LuanStateImpl luan,Object value) throws LuanException {
		newIndex( luan, tableExpr.eval(luan), keyExpr.eval(luan), value );
	}

	private void newIndex(LuanStateImpl luan,Object t,Object key,Object value) throws LuanException {
		luan.push(el,null);
		try {
			if( t instanceof LuanTable ) {
				LuanTable tbl = (LuanTable)t;
				tbl.put(luan,key,value);
				return;
			}
			if( t != null && luan.hasJava() )
				JavaLuan.__new_index(luan,t,key,value);
			else
				throw luan.exception( "attempt to index a " + Luan.type(t) + " value in '"+el.text()+"'" );
		} finally {
			luan.pop();
		}
	}

}