2007-06-08 05:11:37 +00:00
|
|
|
package lua.io;
|
|
|
|
|
|
|
|
|
|
import lua.StackState;
|
|
|
|
|
import lua.value.LValue;
|
|
|
|
|
|
|
|
|
|
public class Closure extends LValue {
|
|
|
|
|
public LValue env;
|
|
|
|
|
public Proto p;
|
|
|
|
|
public UpVal[] upVals;
|
|
|
|
|
public Closure(StackState state, Proto p) {
|
|
|
|
|
this.env = state.gt();
|
|
|
|
|
this.p = p;
|
|
|
|
|
upVals = new UpVal[p.nups];
|
|
|
|
|
for ( int i=0; i<p.nups; i++ )
|
|
|
|
|
upVals[i] = new UpVal();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// perform a lua call
|
2007-06-11 05:51:19 +00:00
|
|
|
public void luaStackCall(StackState state, int base) {
|
2007-06-12 06:22:55 +00:00
|
|
|
if ( (! p.is_vararg) || (state.top < base+1+p.numparams) )
|
|
|
|
|
state.adjustTop( base+1+p.numparams );
|
2007-06-11 05:51:19 +00:00
|
|
|
state.vmExecute( this, base+1 );
|
2007-06-08 05:11:37 +00:00
|
|
|
}
|
|
|
|
|
}
|