Mercurial Hosting > luan
view core/src/luan/impl/LuanCompiler.java @ 675:d95caff8ba8c
minor
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Tue, 12 Apr 2016 19:41:26 -0600 |
parents | d3e5414bdf4c |
children | 49f3d290bebd |
line wrap: on
line source
package luan.impl; import java.util.Map; import java.lang.reflect.InvocationTargetException; import luan.LuanFunction; import luan.LuanState; import luan.LuanException; import luan.LuanTable; import luan.LuanJava; import luan.modules.JavaLuan; import luan.modules.PackageLuan; public final class LuanCompiler { private LuanCompiler() {} // never public static LuanFunction compile(String sourceName,String sourceText,LuanTable env,boolean allowExpr) throws LuanException { LuanParser parser = new LuanParser(sourceName,sourceText); parser.addVar( "java" ); parser.addVar( "require" ); if( env != null ) parser.addVar( "_ENV" ); Class fnClass = parse(parser,allowExpr); LuanJava java; if( env == null ) { java = new LuanJava(); } else { java = env.java; if( java == null ) { java = new LuanJava(); env.java = java; } } Closure closure; try { closure = (Closure)fnClass.getConstructor(LuanJava.class).newInstance(java); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } catch(InstantiationException e) { throw new RuntimeException(e); } catch(IllegalAccessException e) { throw new RuntimeException(e); } catch(InvocationTargetException e) { throw new RuntimeException(e); } closure.upValues[0].o = JavaLuan.javaFn; closure.upValues[1].o = PackageLuan.requireFn; if( env != null ) closure.upValues[2].o = env; return closure; } private static Class parse(LuanParser parser,boolean allowExpr) throws LuanException { try { if( allowExpr ) { Class fnClass = parser.Expression(); if( fnClass != null ) return fnClass; } return parser.RequiredModule(); } catch(ParseException e) { e.printStackTrace(); throw new LuanException( e.getFancyMessage() ); } } }