Mercurial Hosting > luan
view src/luan/impl/Closure.java @ 785:d69d3c51c44e
more work on incremental cloning
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Thu, 01 Sep 2016 21:32:28 -0600 |
parents | 6a7c6879158d |
children | c49980cdece6 |
line wrap: on
line source
package luan.impl; import luan.Luan; import luan.LuanFunction; import luan.LuanState; import luan.LuanException; import luan.LuanCloner; import luan.LuanCloneable; import luan.LuanJava; public abstract class Closure extends LuanFunction implements LuanCloneable, Cloneable { public Pointer[] upValues; public LuanJava ljava; private LuanCloner cloner; public Closure(int nUpValues,LuanJava java) throws LuanException { this.upValues = new Pointer[nUpValues]; this.ljava = java; } @Override public Closure shallowClone() { try { return (Closure)clone(); } catch(CloneNotSupportedException e) { throw new RuntimeException(e); } } @Override public void deepenClone(LuanCloneable dc,LuanCloner cloner) { check(); Closure clone = (Closure)dc; switch( cloner.type ) { case COMPLETE: clone.upValues = (Pointer[])cloner.clone(upValues); clone.ljava = (LuanJava)cloner.clone(ljava); return; case INCREMENTAL: clone.cloner = cloner; clone.upValues = upValues; clone.ljava = ljava; return; } } private void check() { if( cloner != null ) { upValues = (Pointer[])cloner.clone(upValues); ljava = (LuanJava)cloner.clone(ljava); cloner = null; } } @Override public final Object call(LuanState luan,Object[] args) throws LuanException { check(); LuanJava old = luan.java; luan.java = ljava; try { return doCall(luan,args); } catch(StackOverflowError e) { throw new LuanException( "stack overflow" ); } finally { luan.java = old; } } public abstract Object doCall(LuanState luan,Object[] args) throws LuanException; }