/*
* $Id: InlinedCallNode.java,v 1.6 2002/09/16 08:05:04 jkl Exp $
*
* Copyright (c) 2002 Njet Communications Ltd. All Rights Reserved.
*
* Use is subject to license terms, as defined in
* Anvil Sofware License, Version 1.1. See LICENSE
* file, or http://njet.org/license-1.1.txt
*/
package anvil.script.expression;
import anvil.core.Any;
import anvil.ErrorListener;
import anvil.script.CompilableFunction;
import anvil.codec.Code;
import anvil.codec.ConstantPool;
import anvil.script.Grammar;
import anvil.script.compiler.ByteCompiler;
import anvil.script.Context;
import anvil.script.Type;
import anvil.script.statements.FunctionStatement;
import java.io.IOException;
/**
* class InlinedCallNode
*
* @author: Jani Lehtim�ki
*/
public class InlinedCallNode extends MultiParent
{
protected FunctionStatement _context;
protected FunctionStatement _function;
public InlinedCallNode(FunctionStatement context, FunctionStatement function, Parent parameters)
{
super(parameters);
_context = context;
_function = function;
}
public int typeOf()
{
return Node.EXPR_CALL;
}
public boolean isConstant()
{
return false;
}
public Node optimize()
{
optimizeChilds();
return this;
}
private static final String[] SIGNATURES_SELF = {
"(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;)Lanvil/core/Any;",
"(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;"
};
private static final String[] SIGNATURES_NO_SELF = {
"(Lanvil/script/Function;Lanvil/script/StackFrame;)Lanvil/core/Any;",
"(Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;",
"(Lanvil/script/Function;Lanvil/script/StackFrame;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;Lanvil/core/Any;)Lanvil/core/Any;"
};
public void compile(ByteCompiler context, int operation)
{
Code code = context.getCode();
ConstantPool pool = code.getPool();
boolean inClass = (_function.getType() != Type.FUNCTION);
code.aload_first();
if (inClass) {
code.self();
}
int parent = _function.getParent().getTypeRef(pool);
String name = (inClass ? "m_" : "f_")+_function.getName();
int field = pool.addFieldRef(parent, name, "Lanvil/script/Function;");
code.getstatic(field);
int depth = Grammar.countEscapeDepth(_context, _function);
code.aload(_context.getFrameIndex());
if (depth >= 0) {
code.iconst(depth+1);
code.invokevirtual(pool.addMethodRef("anvil/script/StackFrame", "getEscape",
"(I)Lanvil/script/StackFrame;"));
}
int n = childs();
if (!hasSplices() && n<=4) {
for(int i=0; i<n; i++) {
getChild(i).compile(context, GET);
}
code.invokevirtual(pool.addMethodRef(context.TYPE_CONTEXT, "exec",
inClass ? SIGNATURES_SELF[n] : SIGNATURES_NO_SELF[n]));
} else {
context.compileArgumentList(getChilds(0));
code.invokevirtual(pool.addMethodRef(context.TYPE_CONTEXT, "exec",
inClass ? "(Lanvil/core/Any;Lanvil/script/Function;Lanvil/script/StackFrame;[Lanvil/core/Any;)Lanvil/core/Any;" :
"(Lanvil/script/Function;Lanvil/script/StackFrame;[Lanvil/core/Any;)Lanvil/core/Any;"));
}
if (operation == GET_BOOLEAN) {
context.any2boolean();
}
}
}