Mercurial Hosting > luan
view src/luan/interp/ConcatExpr.java @ 40:e3624b7cd603
implement stack trace
git-svn-id: https://luan-java.googlecode.com/svn/trunk@41 21e917c8-12df-6dd8-5cb6-c86387c605b9
author | fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9> |
---|---|
date | Fri, 21 Dec 2012 10:45:54 +0000 |
parents | 8a57ebfdfd78 |
children | 64ecb7a3aad7 |
line wrap: on
line source
package luan.interp; import luan.Lua; import luan.LuaFunction; import luan.LuaException; import luan.LuaSource; final class ConcatExpr extends BinaryOpExpr { ConcatExpr(LuaSource.Element se,Expr op1,Expr op2) { super(se,op1,op2); } @Override public Object eval(LuaStateImpl lua) throws LuaException { Object o1 = op1.eval(lua); Object o2 = op2.eval(lua); String s1 = Lua.asString(o1); String s2 = Lua.asString(o2); if( s1 != null && s2 != null ) return s1 + s2; LuaFunction fn = lua.getBinHandler(se,"__concat",o1,o2); if( fn != null ) return Lua.first(lua.call(fn,se,"__concat",o1,o2)); String type = s1==null ? Lua.type(o1) : Lua.type(o2); throw new LuaException( lua, se, "attempt to concatenate a " + type + " value" ); } }