Examples of clojure.asm.commons.GeneratorAdapter

clojure.asm.commons.GeneratorAdapter

A {@link clojure.asm.MethodVisitor} with convenient methods to generatecode. For example, using this adapter, the class below

 public class Example { public static void main(String[] args) { System.out.println("Hello world!"); } }

can be generated as follows:

 ClassWriter cw = new ClassWriter(true); cw.visit(V1_1, ACC_PUBLIC, "Example", null, "java/lang/Object", null); Method m = Method.getMethod("void <init> ()"); GeneratorAdapter mg = new GeneratorAdapter(ACC_PUBLIC, m, null, null, cw); mg.loadThis(); mg.invokeConstructor(Type.getType(Object.class), m); mg.returnValue(); mg.endMethod(); m = Method.getMethod("void main (String[])"); mg = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC, m, null, null, cw); mg.getStatic(Type.getType(System.class), "out", Type.getType(PrintStream.class)); mg.push("Hello world!"); mg.invokeVirtual(Type.getType(PrintStream.class), Method.getMethod("void println (String)")); mg.returnValue(); mg.endMethod(); cw.visitEnd();

@author Juozas Baliuka @author Chris Nokleberg @author Eric Bruneton @author Prashant Deva

  }


  public void doEmitPrim(ObjExpr fn, ClassVisitor cv){
    Method ms = new Method("invokePrim", getReturnType(), argtypes);


    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC + ACC_FINAL,
                                                ms,
                                                null,
                                                //todo don't hardwire this
                                                EXCEPTION_TYPES,
                                                cv);
    gen.visitCode();


    Label loopLabel = gen.mark();
    gen.visitLineNumber(line, loopLabel);
    try
      {
      Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel, METHOD, this));
      emitBody(objx, gen, retClass, body);


      Label end = gen.mark();
      gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0);
      for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.next())
        {
        LocalBinding lb = (LocalBinding) lbs.first();
        gen.visitLocalVariable(lb.name, argtypes[lb.idx-1].getDescriptor(), null, loopLabel, end, lb.idx);
        }
      }
    catch(Exception e)
      {
      throw Util.sneakyThrow(e);
      }
    finally
      {
      Var.popThreadBindings();
      }


    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();


  //generate the regular invoke, calling the prim method
    Method m = new Method(getMethodName(), OBJECT_TYPE, getArgTypes());


    gen = new GeneratorAdapter(ACC_PUBLIC,
                               m,
                               null,
                               //todo don't hardwire this
                               EXCEPTION_TYPES,
                               cv);
    gen.visitCode();
    gen.loadThis();
    for(int i = 0; i < argtypes.length; i++)
      {
      gen.loadArg(i);
      HostExpr.emitUnboxArg(fn, gen, argclasses[i]);
      }
    gen.invokeInterface(Type.getType("L"+prim+";"), ms);
    gen.box(getReturnType());




    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();


  }

View Full Code Here


  }
  public void doEmit(ObjExpr fn, ClassVisitor cv){
    Method m = new Method(getMethodName(), getReturnType(), getArgTypes());


    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                                                m,
                                                null,
                                                //todo don't hardwire this
                                                EXCEPTION_TYPES,
                                                cv);
    gen.visitCode();


    Label loopLabel = gen.mark();
    gen.visitLineNumber(line, loopLabel);
    try
      {
      Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel, METHOD, this));


      body.emit(C.RETURN, fn, gen);
      Label end = gen.mark();


      gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0);
      for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.next())
        {
        LocalBinding lb = (LocalBinding) lbs.first();
        gen.visitLocalVariable(lb.name, "Ljava/lang/Object;", null, loopLabel, end, lb.idx);
        }
      }
    finally
      {
      Var.popThreadBindings();
      }


    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();
  }

View Full Code Here

  abstract Type[] getArgTypes();


  public void emit(ObjExpr fn, ClassVisitor cv){
    Method m = new Method(getMethodName(), getReturnType(), getArgTypes());


    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                                                m,
                                                null,
                                                //todo don't hardwire this
                                                EXCEPTION_TYPES,
                                                cv);
    gen.visitCode();


    Label loopLabel = gen.mark();
    gen.visitLineNumber(line, loopLabel);
    try
      {
      Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel, METHOD, this));


      body.emit(C.RETURN, fn, gen);
      Label end = gen.mark();
      gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0);
      for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.next())
        {
        LocalBinding lb = (LocalBinding) lbs.first();
        gen.visitLocalVariable(lb.name, "Ljava/lang/Object;", null, loopLabel, end, lb.idx);
        }
      }
    finally
      {
      Var.popThreadBindings();
      }


    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();
  }

View Full Code Here

      method.emit(this, cv);
      }


    if(isVariadic())
      {
      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                                                  Method.getMethod("int getRequiredArity()"),
                                                  null,
                                                  null,
                                                  cv);
      gen.visitCode();
      gen.push(variadicMethod.reqParms.count());
      gen.returnValue();
      gen.endMethod();
      }
  }

View Full Code Here

//      cv.visitField(ACC_PRIVATE + ACC_STATIC + ACC_FINAL
//          , varCallsiteName(i), IFN_TYPE.getDescriptor(), null, null);
//      }


    //static init for constants, keywords and vars
    GeneratorAdapter clinitgen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
                                                      Method.getMethod("void <clinit> ()"),
                                                      null,
                                                      null,
                                                      cv);
    clinitgen.visitCode();
    clinitgen.visitLineNumber(line, clinitgen.mark());


    if(constants.count() > 0)
      {
      emitConstants(clinitgen);
      }


    if(keywordCallsites.count() > 0)
      emitKeywordCallsites(clinitgen);


    /*
    for(int i=0;i<varCallsites.count();i++)
      {
      Label skipLabel = clinitgen.newLabel();
      Label endLabel = clinitgen.newLabel();
      Var var = (Var) varCallsites.nth(i);
      clinitgen.push(var.ns.name.toString());
      clinitgen.push(var.sym.toString());
      clinitgen.invokeStatic(RT_TYPE, Method.getMethod("clojure.lang.Var var(String,String)"));
      clinitgen.dup();
      clinitgen.invokeVirtual(VAR_TYPE,Method.getMethod("boolean hasRoot()"));
      clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);


      clinitgen.invokeVirtual(VAR_TYPE,Method.getMethod("Object getRoot()"));
            clinitgen.dup();
            clinitgen.instanceOf(AFUNCTION_TYPE);
            clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);
      clinitgen.checkCast(IFN_TYPE);
      clinitgen.putStatic(objtype, varCallsiteName(i), IFN_TYPE);
      clinitgen.goTo(endLabel);


      clinitgen.mark(skipLabel);
      clinitgen.pop();


      clinitgen.mark(endLabel);
      }
        */
    clinitgen.returnValue();


    clinitgen.endMethod();
    if(supportsMeta())
      {
      cv.visitField(ACC_FINAL, "__meta", IPERSISTENTMAP_TYPE.getDescriptor(), null, null);
      }
    //instance fields for closed-overs
    for(ISeq s = RT.keys(closes); s != null; s = s.next())
      {
      LocalBinding lb = (LocalBinding) s.first();
      if(isDeftype())
        {
        int access = isVolatile(lb) ? ACC_VOLATILE :
                     isMutable(lb) ? 0 :
                     (ACC_PUBLIC + ACC_FINAL);
        FieldVisitor fv;
        if(lb.getPrimitiveType() != null)
          fv = cv.visitField(access
              , lb.name, Type.getType(lb.getPrimitiveType()).getDescriptor(),
                  null, null);
        else
        //todo - when closed-overs are fields, use more specific types here and in ctor and emitLocal?
          fv = cv.visitField(access
              , lb.name, OBJECT_TYPE.getDescriptor(), null, null);
        addAnnotation(fv, RT.meta(lb.sym));
        }
      else
        {
        //todo - only enable this non-private+writability for letfns where we need it
        if(lb.getPrimitiveType() != null)
          cv.visitField(0 + (isVolatile(lb) ? ACC_VOLATILE : 0)
              , lb.name, Type.getType(lb.getPrimitiveType()).getDescriptor(),
                  null, null);
        else
          cv.visitField(0 //+ (oneTimeUse ? 0 : ACC_FINAL)
              , lb.name, OBJECT_TYPE.getDescriptor(), null, null);
        }
      }


    //instance fields for callsites and thunks
    for(int i=0;i<protocolCallsites.count();i++)
      {
      cv.visitField(ACC_PRIVATE, cachedClassName(i), CLASS_TYPE.getDescriptor(), null, null);
      cv.visitField(ACC_PRIVATE, cachedProtoFnName(i), AFUNCTION_TYPE.getDescriptor(), null, null);
      cv.visitField(ACC_PRIVATE, cachedProtoImplName(i), IFN_TYPE.getDescriptor(), null, null);      
      }


     //ctor that takes closed-overs and inits base + fields
    Method m = new Method("<init>", Type.VOID_TYPE, ctorTypes());
    GeneratorAdapter ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                                                    m,
                                                    null,
                                                    null,
                                                    cv);
    Label start = ctorgen.newLabel();
    Label end = ctorgen.newLabel();
    ctorgen.visitCode();
    ctorgen.visitLineNumber(line, ctorgen.mark());
    ctorgen.visitLabel(start);
    ctorgen.loadThis();
//    if(superName != null)
      ctorgen.invokeConstructor(Type.getObjectType(superName), voidctor);
//    else if(isVariadic()) //RestFn ctor takes reqArity arg
//      {
//      ctorgen.push(variadicMethod.reqParms.count());
//      ctorgen.invokeConstructor(restFnType, restfnctor);
//      }
//    else
//      ctorgen.invokeConstructor(aFnType, voidctor);


//    if(vars.count() > 0)
//      {
//      ctorgen.loadThis();
//      ctorgen.getStatic(VAR_TYPE,"rev",Type.INT_TYPE);
//      ctorgen.push(-1);
//      ctorgen.visitInsn(Opcodes.IADD);
//      ctorgen.putField(objtype, "__varrev__", Type.INT_TYPE);
//      }


    if(supportsMeta())
      {
      ctorgen.loadThis();
      ctorgen.visitVarInsn(IPERSISTENTMAP_TYPE.getOpcode(Opcodes.ILOAD), 1);
      ctorgen.putField(objtype, "__meta", IPERSISTENTMAP_TYPE);
      }


    int a = supportsMeta()?2:1;
    for(ISeq s = RT.keys(closes); s != null; s = s.next(), ++a)
      {
      LocalBinding lb = (LocalBinding) s.first();
      ctorgen.loadThis();
      Class primc = lb.getPrimitiveType();
      if(primc != null)
        {
        ctorgen.visitVarInsn(Type.getType(primc).getOpcode(Opcodes.ILOAD), a);
        ctorgen.putField(objtype, lb.name, Type.getType(primc));
        if(primc == Long.TYPE || primc == Double.TYPE)
          ++a;
        }
      else
        {
        ctorgen.visitVarInsn(OBJECT_TYPE.getOpcode(Opcodes.ILOAD), a);
        ctorgen.putField(objtype, lb.name, OBJECT_TYPE);
        }
            closesExprs = closesExprs.cons(new LocalBindingExpr(lb, null));
      }




    ctorgen.visitLabel(end);


    ctorgen.returnValue();


    ctorgen.endMethod();


    if(altCtorDrops > 0)
      {
          //ctor that takes closed-overs and inits base + fields
      Type[] ctorTypes = ctorTypes();
      Type[] altCtorTypes = new Type[ctorTypes.length-altCtorDrops];
      for(int i=0;i<altCtorTypes.length;i++)
        altCtorTypes[i] = ctorTypes[i];
      Method alt = new Method("<init>", Type.VOID_TYPE, altCtorTypes);
      ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                              alt,
                              null,
                              null,
                              cv);
      ctorgen.visitCode();
      ctorgen.loadThis();
      ctorgen.loadArgs();
      for(int i=0;i<altCtorDrops;i++)
        ctorgen.visitInsn(Opcodes.ACONST_NULL);


      ctorgen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));


      ctorgen.returnValue();
      ctorgen.endMethod();
      }


    if(supportsMeta())
      {
      //ctor that takes closed-overs but not meta
      Type[] ctorTypes = ctorTypes();
      Type[] noMetaCtorTypes = new Type[ctorTypes.length-1];
      for(int i=1;i<ctorTypes.length;i++)
        noMetaCtorTypes[i-1] = ctorTypes[i];
      Method alt = new Method("<init>", Type.VOID_TYPE, noMetaCtorTypes);
      ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                              alt,
                              null,
                              null,
                              cv);
      ctorgen.visitCode();
      ctorgen.loadThis();
      ctorgen.visitInsn(Opcodes.ACONST_NULL);  //null meta
      ctorgen.loadArgs();
      ctorgen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));


      ctorgen.returnValue();
      ctorgen.endMethod();


      //meta()
      Method meth = Method.getMethod("clojure.lang.IPersistentMap meta()");


      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      gen.loadThis();
      gen.getField(objtype,"__meta",IPERSISTENTMAP_TYPE);


      gen.returnValue();
      gen.endMethod();


      //withMeta()
      meth = Method.getMethod("clojure.lang.IObj withMeta(clojure.lang.IPersistentMap)");


      gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      gen.newInstance(objtype);
      gen.dup();
      gen.loadArg(0);


      for(ISeq s = RT.keys(closes); s != null; s = s.next(), ++a)
        {
        LocalBinding lb = (LocalBinding) s.first();
        gen.loadThis();
        Class primc = lb.getPrimitiveType();
        if(primc != null)
          {
          gen.getField(objtype, lb.name, Type.getType(primc));
          }
        else
          {
          gen.getField(objtype, lb.name, OBJECT_TYPE);
          }
        }


      gen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));
      gen.returnValue();
      gen.endMethod();
      }


    emitStatics(cv);
    emitMethods(cv);


    if(keywordCallsites.count() > 0)
      {
      Method meth = Method.getMethod("void swapThunk(int,clojure.lang.ILookupThunk)");


      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      Label endLabel = gen.newLabel();


      Label[] labels = new Label[keywordCallsites.count()];
      for(int i = 0; i < keywordCallsites.count();i++)
        {
        labels[i] = gen.newLabel();
        }
      gen.loadArg(0);
      gen.visitTableSwitchInsn(0,keywordCallsites.count()-1,endLabel,labels);


      for(int i = 0; i < keywordCallsites.count();i++)
        {
        gen.mark(labels[i]);
//        gen.loadThis();
        gen.loadArg(1);
        gen.putStatic(objtype, thunkNameStatic(i),ILOOKUP_THUNK_TYPE);
        gen.goTo(endLabel);
        }


      gen.mark(endLabel);


      gen.returnValue();
      gen.endMethod();
      }
    
    //end of class
    cv.visitEnd();

View Full Code Here

    ClassWriter cw = new ClassWriter(ClassWriter.COMPUTE_MAXS);
    ClassVisitor cv = cw;
    cv.visit(V1_5, ACC_PUBLIC + ACC_SUPER, objx.internalName, null, "java/lang/Object", null);


    //static load method
    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
                                                Method.getMethod("void load ()"),
                                                null,
                                                null,
                                                cv);
    gen.visitCode();


    for(Object r = LispReader.read(pushbackReader, false, EOF, false); r != EOF;
        r = LispReader.read(pushbackReader, false, EOF, false))
      {
        LINE_AFTER.set(pushbackReader.getLineNumber());
        COLUMN_AFTER.set(pushbackReader.getColumnNumber());
        compile1(gen, objx, r);
        LINE_BEFORE.set(pushbackReader.getLineNumber());
        COLUMN_BEFORE.set(pushbackReader.getColumnNumber());
      }
    //end of load
    gen.returnValue();
    gen.endMethod();


    //static fields for constants
    for(int i = 0; i < objx.constants.count(); i++)
      {
      cv.visitField(ACC_PUBLIC + ACC_FINAL + ACC_STATIC, objx.constantName(i), objx.constantType(i).getDescriptor(),
                    null, null);
      }


    final int INITS_PER = 100;
    int numInits =  objx.constants.count() / INITS_PER;
    if(objx.constants.count() % INITS_PER != 0)
      ++numInits;


    for(int n = 0;n<numInits;n++)
      {
      GeneratorAdapter clinitgen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
                                                        Method.getMethod("void __init" + n + "()"),
                                                        null,
                                                        null,
                                                        cv);
      clinitgen.visitCode();
      try
        {
        Var.pushThreadBindings(RT.map(RT.PRINT_DUP, RT.T));


        for(int i = n*INITS_PER; i < objx.constants.count() && i < (n+1)*INITS_PER; i++)
          {
          objx.emitValue(objx.constants.nth(i), clinitgen);
          clinitgen.checkCast(objx.constantType(i));
          clinitgen.putStatic(objx.objtype, objx.constantName(i), objx.constantType(i));
          }
        }
      finally
        {
        Var.popThreadBindings();
        }
      clinitgen.returnValue();
      clinitgen.endMethod();
      }


    //static init for constants, keywords and vars
    GeneratorAdapter clinitgen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
                                                      Method.getMethod("void <clinit> ()"),
                                                      null,
                                                      null,
                                                      cv);
    clinitgen.visitCode();
    Label startTry = clinitgen.newLabel();
    Label endTry = clinitgen.newLabel();
    Label end = clinitgen.newLabel();
    Label finallyLabel = clinitgen.newLabel();


//    if(objx.constants.count() > 0)
//      {
//      objx.emitConstants(clinitgen);
//      }
    for(int n = 0;n<numInits;n++)
      clinitgen.invokeStatic(objx.objtype, Method.getMethod("void __init" + n + "()"));


    clinitgen.push(objx.internalName.replace('/','.'));
    clinitgen.invokeStatic(CLASS_TYPE, Method.getMethod("Class forName(String)"));
    clinitgen.invokeVirtual(CLASS_TYPE,Method.getMethod("ClassLoader getClassLoader()"));
    clinitgen.invokeStatic(Type.getType(Compiler.class), Method.getMethod("void pushNSandLoader(ClassLoader)"));
    clinitgen.mark(startTry);
    clinitgen.invokeStatic(objx.objtype, Method.getMethod("void load()"));
    clinitgen.mark(endTry);
    clinitgen.invokeStatic(VAR_TYPE, Method.getMethod("void popThreadBindings()"));
    clinitgen.goTo(end);


    clinitgen.mark(finallyLabel);
    //exception should be on stack
    clinitgen.invokeStatic(VAR_TYPE, Method.getMethod("void popThreadBindings()"));
    clinitgen.throwException();
    clinitgen.mark(end);
    clinitgen.visitTryCatchBlock(startTry, endTry, finallyLabel, null);


    //end of static init
    clinitgen.returnValue();
    clinitgen.endMethod();


    //end of class
    cv.visitEnd();


    writeClassFile(objx.internalName, cw.toByteArray());

View Full Code Here

      method.emit(this, cv);
      }


    if(isVariadic())
      {
      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                                                  Method.getMethod("int getRequiredArity()"),
                                                  null,
                                                  null,
                                                  cv);
      gen.visitCode();
      gen.push(variadicMethod.reqParms.count());
      gen.returnValue();
      gen.endMethod();
      }
  }

View Full Code Here

//      cv.visitField(ACC_PRIVATE + ACC_STATIC + ACC_FINAL
//          , varCallsiteName(i), IFN_TYPE.getDescriptor(), null, null);
//      }


    //static init for constants, keywords and vars
    GeneratorAdapter clinitgen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
                                                      Method.getMethod("void <clinit> ()"),
                                                      null,
                                                      null,
                                                      cv);
    clinitgen.visitCode();
    clinitgen.visitLineNumber(line, clinitgen.mark());


    if(constants.count() > 0)
      {
      emitConstants(clinitgen);
      }


    if(keywordCallsites.count() > 0)
      emitKeywordCallsites(clinitgen);


    /*
    for(int i=0;i<varCallsites.count();i++)
      {
      Label skipLabel = clinitgen.newLabel();
      Label endLabel = clinitgen.newLabel();
      Var var = (Var) varCallsites.nth(i);
      clinitgen.push(var.ns.name.toString());
      clinitgen.push(var.sym.toString());
      clinitgen.invokeStatic(RT_TYPE, Method.getMethod("clojure.lang.Var var(String,String)"));
      clinitgen.dup();
      clinitgen.invokeVirtual(VAR_TYPE,Method.getMethod("boolean hasRoot()"));
      clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);


      clinitgen.invokeVirtual(VAR_TYPE,Method.getMethod("Object getRoot()"));
            clinitgen.dup();
            clinitgen.instanceOf(AFUNCTION_TYPE);
            clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);
      clinitgen.checkCast(IFN_TYPE);
      clinitgen.putStatic(objtype, varCallsiteName(i), IFN_TYPE);
      clinitgen.goTo(endLabel);


      clinitgen.mark(skipLabel);
      clinitgen.pop();


      clinitgen.mark(endLabel);
      }
        */
    clinitgen.returnValue();


    clinitgen.endMethod();
    if(supportsMeta())
      {
      cv.visitField(ACC_FINAL, "__meta", IPERSISTENTMAP_TYPE.getDescriptor(), null, null);
      }
    //instance fields for closed-overs
    for(ISeq s = RT.keys(closes); s != null; s = s.next())
      {
      LocalBinding lb = (LocalBinding) s.first();
      if(isDeftype())
        {
        int access = isVolatile(lb) ? ACC_VOLATILE :
                     isMutable(lb) ? 0 :
                     (ACC_PUBLIC + ACC_FINAL);
        FieldVisitor fv;
        if(lb.getPrimitiveType() != null)
          fv = cv.visitField(access
              , lb.name, Type.getType(lb.getPrimitiveType()).getDescriptor(),
                  null, null);
        else
        //todo - when closed-overs are fields, use more specific types here and in ctor and emitLocal?
          fv = cv.visitField(access
              , lb.name, OBJECT_TYPE.getDescriptor(), null, null);
        addAnnotation(fv, RT.meta(lb.sym));
        }
      else
        {
        //todo - only enable this non-private+writability for letfns where we need it
        if(lb.getPrimitiveType() != null)
          cv.visitField(0 + (isVolatile(lb) ? ACC_VOLATILE : 0)
              , lb.name, Type.getType(lb.getPrimitiveType()).getDescriptor(),
                  null, null);
        else
          cv.visitField(0 //+ (oneTimeUse ? 0 : ACC_FINAL)
              , lb.name, OBJECT_TYPE.getDescriptor(), null, null);
        }
      }


    //static fields for callsites and thunks
    for(int i=0;i<protocolCallsites.count();i++)
      {
      cv.visitField(ACC_PRIVATE + ACC_STATIC, cachedClassName(i), CLASS_TYPE.getDescriptor(), null, null);
      }


     //ctor that takes closed-overs and inits base + fields
    Method m = new Method("<init>", Type.VOID_TYPE, ctorTypes());
    GeneratorAdapter ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                                                    m,
                                                    null,
                                                    null,
                                                    cv);
    Label start = ctorgen.newLabel();
    Label end = ctorgen.newLabel();
    ctorgen.visitCode();
    ctorgen.visitLineNumber(line, ctorgen.mark());
    ctorgen.visitLabel(start);
    ctorgen.loadThis();
//    if(superName != null)
      ctorgen.invokeConstructor(Type.getObjectType(superName), voidctor);
//    else if(isVariadic()) //RestFn ctor takes reqArity arg
//      {
//      ctorgen.push(variadicMethod.reqParms.count());
//      ctorgen.invokeConstructor(restFnType, restfnctor);
//      }
//    else
//      ctorgen.invokeConstructor(aFnType, voidctor);


//    if(vars.count() > 0)
//      {
//      ctorgen.loadThis();
//      ctorgen.getStatic(VAR_TYPE,"rev",Type.INT_TYPE);
//      ctorgen.push(-1);
//      ctorgen.visitInsn(Opcodes.IADD);
//      ctorgen.putField(objtype, "__varrev__", Type.INT_TYPE);
//      }


    if(supportsMeta())
      {
      ctorgen.loadThis();
      ctorgen.visitVarInsn(IPERSISTENTMAP_TYPE.getOpcode(Opcodes.ILOAD), 1);
      ctorgen.putField(objtype, "__meta", IPERSISTENTMAP_TYPE);
      }


    int a = supportsMeta()?2:1;
    for(ISeq s = RT.keys(closes); s != null; s = s.next(), ++a)
      {
      LocalBinding lb = (LocalBinding) s.first();
      ctorgen.loadThis();
      Class primc = lb.getPrimitiveType();
      if(primc != null)
        {
        ctorgen.visitVarInsn(Type.getType(primc).getOpcode(Opcodes.ILOAD), a);
        ctorgen.putField(objtype, lb.name, Type.getType(primc));
        if(primc == Long.TYPE || primc == Double.TYPE)
          ++a;
        }
      else
        {
        ctorgen.visitVarInsn(OBJECT_TYPE.getOpcode(Opcodes.ILOAD), a);
        ctorgen.putField(objtype, lb.name, OBJECT_TYPE);
        }
            closesExprs = closesExprs.cons(new LocalBindingExpr(lb, null));
      }




    ctorgen.visitLabel(end);


    ctorgen.returnValue();


    ctorgen.endMethod();


    if(altCtorDrops > 0)
      {
          //ctor that takes closed-overs and inits base + fields
      Type[] ctorTypes = ctorTypes();
      Type[] altCtorTypes = new Type[ctorTypes.length-altCtorDrops];
      for(int i=0;i<altCtorTypes.length;i++)
        altCtorTypes[i] = ctorTypes[i];
      Method alt = new Method("<init>", Type.VOID_TYPE, altCtorTypes);
      ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                              alt,
                              null,
                              null,
                              cv);
      ctorgen.visitCode();
      ctorgen.loadThis();
      ctorgen.loadArgs();
      for(int i=0;i<altCtorDrops;i++)
        ctorgen.visitInsn(Opcodes.ACONST_NULL);


      ctorgen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));


      ctorgen.returnValue();
      ctorgen.endMethod();
      }


    if(supportsMeta())
      {
      //ctor that takes closed-overs but not meta
      Type[] ctorTypes = ctorTypes();
      Type[] noMetaCtorTypes = new Type[ctorTypes.length-1];
      for(int i=1;i<ctorTypes.length;i++)
        noMetaCtorTypes[i-1] = ctorTypes[i];
      Method alt = new Method("<init>", Type.VOID_TYPE, noMetaCtorTypes);
      ctorgen = new GeneratorAdapter(ACC_PUBLIC,
                              alt,
                              null,
                              null,
                              cv);
      ctorgen.visitCode();
      ctorgen.loadThis();
      ctorgen.visitInsn(Opcodes.ACONST_NULL);  //null meta
      ctorgen.loadArgs();
      ctorgen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));


      ctorgen.returnValue();
      ctorgen.endMethod();


      //meta()
      Method meth = Method.getMethod("clojure.lang.IPersistentMap meta()");


      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      gen.loadThis();
      gen.getField(objtype,"__meta",IPERSISTENTMAP_TYPE);


      gen.returnValue();
      gen.endMethod();


      //withMeta()
      meth = Method.getMethod("clojure.lang.IObj withMeta(clojure.lang.IPersistentMap)");


      gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      gen.newInstance(objtype);
      gen.dup();
      gen.loadArg(0);


      for(ISeq s = RT.keys(closes); s != null; s = s.next(), ++a)
        {
        LocalBinding lb = (LocalBinding) s.first();
        gen.loadThis();
        Class primc = lb.getPrimitiveType();
        if(primc != null)
          {
          gen.getField(objtype, lb.name, Type.getType(primc));
          }
        else
          {
          gen.getField(objtype, lb.name, OBJECT_TYPE);
          }
        }


      gen.invokeConstructor(objtype, new Method("<init>", Type.VOID_TYPE, ctorTypes));
      gen.returnValue();
      gen.endMethod();
      }


    emitStatics(cv);
    emitMethods(cv);


    if(keywordCallsites.count() > 0)
      {
      Method meth = Method.getMethod("void swapThunk(int,clojure.lang.ILookupThunk)");


      GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                        meth,
                        null,
                        null,
                        cv);
      gen.visitCode();
      Label endLabel = gen.newLabel();


      Label[] labels = new Label[keywordCallsites.count()];
      for(int i = 0; i < keywordCallsites.count();i++)
        {
        labels[i] = gen.newLabel();
        }
      gen.loadArg(0);
      gen.visitTableSwitchInsn(0,keywordCallsites.count()-1,endLabel,labels);


      for(int i = 0; i < keywordCallsites.count();i++)
        {
        gen.mark(labels[i]);
//        gen.loadThis();
        gen.loadArg(1);
        gen.putStatic(objtype, thunkNameStatic(i),ILOOKUP_THUNK_TYPE);
        gen.goTo(endLabel);
        }


      gen.mark(endLabel);


      gen.returnValue();
      gen.endMethod();
      }
    
    //end of class
    cv.visitEnd();

View Full Code Here

    if (retClass == double.class || retClass == long.class)
      returnType = getReturnType();
    else returnType = OBJECT_TYPE;
    Method ms = new Method("invokePrim", returnType, argtypes);


    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC + ACC_FINAL,
                                                ms,
                                                null,
                                                //todo don't hardwire this
                                                EXCEPTION_TYPES,
                                                cv);
    gen.visitCode();


    Label loopLabel = gen.mark();
    gen.visitLineNumber(line, loopLabel);
    try
      {
      Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel, METHOD, this));
      emitBody(objx, gen, retClass, body);


      Label end = gen.mark();
      gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0);
      for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.next())
        {
        LocalBinding lb = (LocalBinding) lbs.first();
        gen.visitLocalVariable(lb.name, argtypes[lb.idx-1].getDescriptor(), null, loopLabel, end, lb.idx);
        }
      }
    finally
      {
      Var.popThreadBindings();
      }


    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();


  //generate the regular invoke, calling the prim method
    Method m = new Method(getMethodName(), OBJECT_TYPE, getArgTypes());


    gen = new GeneratorAdapter(ACC_PUBLIC,
                               m,
                               null,
                               //todo don't hardwire this
                               EXCEPTION_TYPES,
                               cv);
    gen.visitCode();
    gen.loadThis();
    for(int i = 0; i < argtypes.length; i++)
      {
      gen.loadArg(i);
      HostExpr.emitUnboxArg(fn, gen, argclasses[i]);
      }
    gen.invokeInterface(Type.getType("L"+prim+";"), ms);
    gen.box(getReturnType());




    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();


  }

View Full Code Here


  }
  public void doEmit(ObjExpr fn, ClassVisitor cv){
    Method m = new Method(getMethodName(), getReturnType(), getArgTypes());


    GeneratorAdapter gen = new GeneratorAdapter(ACC_PUBLIC,
                                                m,
                                                null,
                                                //todo don't hardwire this
                                                EXCEPTION_TYPES,
                                                cv);
    gen.visitCode();


    Label loopLabel = gen.mark();
    gen.visitLineNumber(line, loopLabel);
    try
      {
      Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel, METHOD, this));


      body.emit(C.RETURN, fn, gen);
      Label end = gen.mark();


      gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0);
      for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.next())
        {
        LocalBinding lb = (LocalBinding) lbs.first();
        gen.visitLocalVariable(lb.name, "Ljava/lang/Object;", null, loopLabel, end, lb.idx);
        }
      }
    finally
      {
      Var.popThreadBindings();
      }


    gen.returnValue();
    //gen.visitMaxs(1, 1);
    gen.endMethod();
  }

View Full Code Here

0 1 2 3 4

TOP

Related Classes of clojure.asm.commons.GeneratorAdapter

clojure.asm.Label

clojure.asm.Type

clojure.lang.Compiler

clojure.lang.Compiler$FnExpr

clojure.lang.Compiler$FnMethod

clojure.lang.Compiler$NewInstanceExpr

clojure.lang.Compiler$NewInstanceMethod

clojure.lang.Compiler$ObjExpr

clojure.lang.Compiler$ObjMethod

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.