annotate src/clojure/asm/commons/StaticInitMerger.java @ 10:ef7dbbd6452c

added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
rev   line source
rlm@10 1 /***
rlm@10 2 * ASM: a very small and fast Java bytecode manipulation framework
rlm@10 3 * Copyright (c) 2000-2005 INRIA, France Telecom
rlm@10 4 * All rights reserved.
rlm@10 5 *
rlm@10 6 * Redistribution and use in source and binary forms, with or without
rlm@10 7 * modification, are permitted provided that the following conditions
rlm@10 8 * are met:
rlm@10 9 * 1. Redistributions of source code must retain the above copyright
rlm@10 10 * notice, this list of conditions and the following disclaimer.
rlm@10 11 * 2. Redistributions in binary form must reproduce the above copyright
rlm@10 12 * notice, this list of conditions and the following disclaimer in the
rlm@10 13 * documentation and/or other materials provided with the distribution.
rlm@10 14 * 3. Neither the name of the copyright holders nor the names of its
rlm@10 15 * contributors may be used to endorse or promote products derived from
rlm@10 16 * this software without specific prior written permission.
rlm@10 17 *
rlm@10 18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
rlm@10 19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
rlm@10 20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
rlm@10 21 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
rlm@10 22 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
rlm@10 23 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
rlm@10 24 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
rlm@10 25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
rlm@10 26 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
rlm@10 27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
rlm@10 28 * THE POSSIBILITY OF SUCH DAMAGE.
rlm@10 29 */
rlm@10 30 package clojure.asm.commons;
rlm@10 31
rlm@10 32 import clojure.asm.ClassAdapter;
rlm@10 33 import clojure.asm.ClassVisitor;
rlm@10 34 import clojure.asm.MethodVisitor;
rlm@10 35 import clojure.asm.Opcodes;
rlm@10 36
rlm@10 37 /**
rlm@10 38 * A {@link ClassAdapter} that merges clinit methods into a single one.
rlm@10 39 *
rlm@10 40 * @author Eric Bruneton
rlm@10 41 */
rlm@10 42 public class StaticInitMerger extends ClassAdapter{
rlm@10 43
rlm@10 44 private String name;
rlm@10 45
rlm@10 46 private MethodVisitor clinit;
rlm@10 47
rlm@10 48 private String prefix;
rlm@10 49
rlm@10 50 private int counter;
rlm@10 51
rlm@10 52 public StaticInitMerger(final String prefix, final ClassVisitor cv){
rlm@10 53 super(cv);
rlm@10 54 this.prefix = prefix;
rlm@10 55 }
rlm@10 56
rlm@10 57 public void visit(
rlm@10 58 final int version,
rlm@10 59 final int access,
rlm@10 60 final String name,
rlm@10 61 final String signature,
rlm@10 62 final String superName,
rlm@10 63 final String[] interfaces){
rlm@10 64 cv.visit(version, access, name, signature, superName, interfaces);
rlm@10 65 this.name = name;
rlm@10 66 }
rlm@10 67
rlm@10 68 public MethodVisitor visitMethod(
rlm@10 69 final int access,
rlm@10 70 final String name,
rlm@10 71 final String desc,
rlm@10 72 final String signature,
rlm@10 73 final String[] exceptions){
rlm@10 74 MethodVisitor mv;
rlm@10 75 if(name.equals("<clinit>"))
rlm@10 76 {
rlm@10 77 int a = Opcodes.ACC_PRIVATE + Opcodes.ACC_STATIC;
rlm@10 78 String n = prefix + counter++;
rlm@10 79 mv = cv.visitMethod(a, n, desc, signature, exceptions);
rlm@10 80
rlm@10 81 if(clinit == null)
rlm@10 82 {
rlm@10 83 clinit = cv.visitMethod(a, name, desc, null, null);
rlm@10 84 }
rlm@10 85 clinit.visitMethodInsn(Opcodes.INVOKESTATIC, this.name, n, desc);
rlm@10 86 }
rlm@10 87 else
rlm@10 88 {
rlm@10 89 mv = cv.visitMethod(access, name, desc, signature, exceptions);
rlm@10 90 }
rlm@10 91 return mv;
rlm@10 92 }
rlm@10 93
rlm@10 94 public void visitEnd(){
rlm@10 95 if(clinit != null)
rlm@10 96 {
rlm@10 97 clinit.visitInsn(Opcodes.RETURN);
rlm@10 98 clinit.visitMaxs(0, 0);
rlm@10 99 }
rlm@10 100 cv.visitEnd();
rlm@10 101 }
rlm@10 102 }