package org.jruby.ir.instructions;
import org.jruby.Ruby;
import org.jruby.RubyClass;
import org.jruby.internal.runtime.methods.InterpretedIRMethod;
import org.jruby.ir.IRVisitor;
import org.jruby.ir.IRModuleBody;
import org.jruby.ir.Operation;
import org.jruby.ir.operands.Operand;
import org.jruby.ir.operands.Variable;
import org.jruby.ir.transformations.inlining.InlinerInfo;
import org.jruby.javasupport.util.RuntimeHelpers;
import org.jruby.runtime.Block;
import org.jruby.runtime.DynamicScope;
import org.jruby.runtime.ThreadContext;
import org.jruby.runtime.Visibility;
import org.jruby.runtime.builtin.IRubyObject;
import java.util.Map;
public class DefineMetaClassInstr extends Instr implements ResultInstr {
private IRModuleBody metaClassBody;
private Operand object;
private Variable result;
public DefineMetaClassInstr(Variable result, Operand object, IRModuleBody metaClassBody) {
super(Operation.DEF_META_CLASS);
assert result != null: "DefineMetaClassInstr result is null";
this.metaClassBody = metaClassBody;
this.object = object;
this.result = result;
}
public Operand[] getOperands() {
return new Operand[]{object};
}
public Variable getResult() {
return result;
}
public void updateResult(Variable v) {
this.result = v;
}
@Override
public void simplifyOperands(Map<Operand, Operand> valueMap, boolean force) {
object = object.getSimplifiedOperand(valueMap, force);
}
@Override
public String toString() {
return super.toString() + "(" + metaClassBody.getName() + ", " + object + ", " + metaClassBody.getFileName() + ")";
}
@Override
public Instr cloneForInlining(InlinerInfo ii) {
// SSS: So, do we clone the meta-class body scope or not?
return new DefineMetaClassInstr(ii.getRenamedVariable(result), object.cloneForInlining(ii), metaClassBody);
}
@Override
public Object interpret(ThreadContext context, DynamicScope currDynScope, IRubyObject self, Object[] temp, Block block) {
Ruby runtime = context.runtime;
IRubyObject obj = (IRubyObject)object.retrieve(context, self, currDynScope, temp);
RubyClass singletonClass = RuntimeHelpers.getSingletonClass(runtime, obj);
metaClassBody.getStaticScope().setModule(singletonClass);
return new InterpretedIRMethod(metaClassBody, Visibility.PUBLIC, singletonClass);
}
@Override
public void visit(IRVisitor visitor) {
visitor.DefineMetaClassInstr(this);
}
public IRModuleBody getMetaClassBody() {
return metaClassBody;
}
public Operand getObject() {
return object;
}
}