Mercurial Hosting > luan
view src/luan/interp/LuanCompiler.java @ 150:f35c50027985
make load() more consistent
git-svn-id: https://luan-java.googlecode.com/svn/trunk@151 21e917c8-12df-6dd8-5cb6-c86387c605b9
author | fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9> |
---|---|
date | Mon, 16 Jun 2014 10:11:48 +0000 |
parents | f99fd64291b3 |
children | cced1c4d3575 |
line wrap: on
line source
package luan.interp; import luan.LuanFunction; import luan.LuanState; import luan.LuanException; import luan.LuanSource; import luan.LuanElement; import luan.LuanTable; import luan.parser.ParseException; import java.util.Map; public final class LuanCompiler { private LuanCompiler() {} // never public static LuanFunction compile(LuanState luan,LuanSource src,LuanTable env,boolean allowExpr) throws LuanException { UpValue.Getter envGetter = env!=null ? new UpValue.ValueGetter(env) : new UpValue.EnvGetter(); LuanParser parser = new LuanParser(src,envGetter); for( Map.Entry<Object,Object> entry : luan.global() ) { Object key = entry.getKey(); if( key instanceof String ) parser.addVar( (String)key, entry.getValue() ); } FnDef fnDef = parse(luan,parser,allowExpr); if( env != null ) return new Closure((LuanStateImpl)luan,fnDef); final Closure c = new Closure((LuanStateImpl)luan,fnDef); return new LuanFunction() { @Override public Object call(LuanState luan,Object[] args) throws LuanException { Object rtn = c.call(luan,args); if( rtn instanceof Object[] && ((Object[])rtn).length==0 ) rtn = c.upValues()[0].get(); return rtn; } }; } private static FnDef parse(LuanState luan,LuanParser parser,boolean allowExpr) throws LuanException { try { if( allowExpr ) { FnDef fnDef = parser.Expressions(); if( fnDef != null ) return fnDef; } return parser.RequiredModule(); } catch(ParseException e) { //e.printStackTrace(); LuanElement le = new LuanSource.CompilerElement(parser.source); throw luan.bit(le).exception( e.getFancyMessage() ); } } public static LuanState newLuanState() { return new LuanStateImpl(); } }