scm.InsnProcedure Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of jasmin Show documentation

Java Assembler Interface for the Soot framework

There is a newer version: 3.0.3

package scm;

import jas.*;

class InsnProcedure extends Procedure implements Obj, jas.RuntimeConstants
{
  int opc;

  Obj apply(Cell args, Env f)
    throws Exception
  {
    if (args == null) 
      { return new primnode(new Insn(opc)); }
    Obj t = (args.car).eval(f);
    if (t instanceof Selfrep)
      {
                                // Single integer arg
        int val = (int) (((Selfrep)t).num);
        return new primnode(new Insn(opc, val));
      }
    if (t instanceof primnode)
      {
        Object tprime = ((primnode)t).val;
        if (tprime instanceof CP)
          {
                                // Single CP argument
            return new primnode(new Insn(opc, (CP)tprime));
          }
                                // Labels
        if (tprime instanceof Label)
          {
            return new primnode(new Insn(opc, (Label)tprime));
          }
      }
    throw new SchemeError("Sorry, not yet implemented " + this.toString());
  }

  InsnProcedure(int opc) { this.opc = opc; }
  public String toString()
  { return ("<#insn "+opcNames[opc]+"#>"); }
}