Mercurial Hosting > luan
view src/luan/interp/SetTableEntry.java @ 60:a68ccb7aaa9c
implement setting java field values
git-svn-id: https://luan-java.googlecode.com/svn/trunk@61 21e917c8-12df-6dd8-5cb6-c86387c605b9
author | fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9> |
---|---|
date | Mon, 07 Jan 2013 05:41:59 +0000 |
parents | 8ede219cd111 |
children | 6ca02b188dba |
line wrap: on
line source
package luan.interp; import luan.LuanException; import luan.LuanTable; import luan.Luan; import luan.LuanFunction; import luan.LuanSource; final class SetTableEntry extends CodeImpl implements Settable { private final Expr tableExpr; private final Expr keyExpr; SetTableEntry(LuanSource.Element se,Expr tableExpr,Expr keyExpr) { super(se); 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 { Object h; if( t instanceof LuanTable ) { LuanTable table = (LuanTable)t; Object old = table.put(key,value); if( old != null ) return; h = luan.getHandler("__newindex",t); if( h==null ) return; table.put(key,old); } else { h = luan.getHandler("__newindex",t); if( h==null ) throw new LuanException( luan, se, "attempt to index a " + Luan.type(t) + " value" ); } if( h instanceof LuanFunction ) { LuanFunction fn = (LuanFunction)h; luan.call(fn,se,"__newindex",t,key,value); return; } newindex(luan,h,key,value); } }