clojure 1.0.0

data/src/jvm/clojure/asm/Attribute.java

@@ -0,0 +1,253 @@
+/***
+ * ASM: a very small and fast Java bytecode manipulation framework
+ * Copyright (c) 2000-2005 INRIA, France Telecom
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the copyright holders nor the names of its
+ *    contributors may be used to endorse or promote products derived from
+ *    this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+ * THE POSSIBILITY OF SUCH DAMAGE.
+ */
+package clojure.asm;
+
+/**
+ * A non standard class, field, method or code attribute.
+ *
+ * @author Eric Bruneton
+ * @author Eugene Kuleshov
+ */
+public class Attribute{
+
+/**
+ * The type of this attribute.
+ */
+public final String type;
+
+/**
+ * The raw value of this attribute, used only for unknown attributes.
+ */
+byte[] value;
+
+/**
+ * The next attribute in this attribute list. May be <tt>null</tt>.
+ */
+Attribute next;
+
+/**
+ * Constructs a new empty attribute.
+ *
+ * @param type the type of the attribute.
+ */
+protected Attribute(final String type){
+	this.type = type;
+}
+
+/**
+ * Returns <tt>true</tt> if this type of attribute is unknown. The default
+ * implementation of this method always returns <tt>true</tt>.
+ *
+ * @return <tt>true</tt> if this type of attribute is unknown.
+ */
+public boolean isUnknown(){
+	return true;
+}
+
+/**
+ * Returns <tt>true</tt> if this type of attribute is a code attribute.
+ *
+ * @return <tt>true</tt> if this type of attribute is a code attribute.
+ */
+public boolean isCodeAttribute(){
+	return false;
+}
+
+/**
+ * Returns the labels corresponding to this attribute.
+ *
+ * @return the labels corresponding to this attribute, or <tt>null</tt> if
+ *         this attribute is not a code attribute that contains labels.
+ */
+protected Label[] getLabels(){
+	return null;
+}
+
+/**
+ * Reads a {@link #type type} attribute. This method must return a <i>new</i>
+ * {@link Attribute} object, of type {@link #type type}, corresponding to
+ * the <tt>len</tt> bytes starting at the given offset, in the given class
+ * reader.
+ *
+ * @param cr      the class that contains the attribute to be read.
+ * @param off     index of the first byte of the attribute's content in {@link
+ *                ClassReader#b cr.b}. The 6 attribute header bytes, containing the
+ *                type and the length of the attribute, are not taken into account
+ *                here.
+ * @param len     the length of the attribute's content.
+ * @param buf     buffer to be used to call
+ *                {@link ClassReader#readUTF8 readUTF8},
+ *                {@link ClassReader#readClass(int,char[]) readClass} or
+ *                {@link ClassReader#readConst readConst}.
+ * @param codeOff index of the first byte of code's attribute content in
+ *                {@link ClassReader#b cr.b}, or -1 if the attribute to be read is
+ *                not a code attribute. The 6 attribute header bytes, containing the
+ *                type and the length of the attribute, are not taken into account
+ *                here.
+ * @param labels  the labels of the method's code, or <tt>null</tt> if the
+ *                attribute to be read is not a code attribute.
+ * @return a <i>new</i> {@link Attribute} object corresponding to the given
+ *         bytes.
+ */
+protected Attribute read(
+		final ClassReader cr,
+		final int off,
+		final int len,
+		final char[] buf,
+		final int codeOff,
+		final Label[] labels){
+	Attribute attr = new Attribute(type);
+	attr.value = new byte[len];
+	System.arraycopy(cr.b, off, attr.value, 0, len);
+	return attr;
+}
+
+/**
+ * Returns the byte array form of this attribute.
+ *
+ * @param cw        the class to which this attribute must be added. This parameter
+ *                  can be used to add to the constant pool of this class the items
+ *                  that corresponds to this attribute.
+ * @param code      the bytecode of the method corresponding to this code
+ *                  attribute, or <tt>null</tt> if this attribute is not a code
+ *                  attributes.
+ * @param len       the length of the bytecode of the method corresponding to this
+ *                  code attribute, or <tt>null</tt> if this attribute is not a code
+ *                  attribute.
+ * @param maxStack  the maximum stack size of the method corresponding to
+ *                  this code attribute, or -1 if this attribute is not a code
+ *                  attribute.
+ * @param maxLocals the maximum number of local variables of the method
+ *                  corresponding to this code attribute, or -1 if this attribute is
+ *                  not a code attribute.
+ * @return the byte array form of this attribute.
+ */
+protected ByteVector write(
+		final ClassWriter cw,
+		final byte[] code,
+		final int len,
+		final int maxStack,
+		final int maxLocals){
+	ByteVector v = new ByteVector();
+	v.data = value;
+	v.length = value.length;
+	return v;
+}
+
+/**
+ * Returns the length of the attribute list that begins with this attribute.
+ *
+ * @return the length of the attribute list that begins with this attribute.
+ */
+final int getCount(){
+	int count = 0;
+	Attribute attr = this;
+	while(attr != null)
+		{
+		count += 1;
+		attr = attr.next;
+		}
+	return count;
+}
+
+/**
+ * Returns the size of all the attributes in this attribute list.
+ *
+ * @param cw        the class writer to be used to convert the attributes into byte
+ *                  arrays, with the {@link #write write} method.
+ * @param code      the bytecode of the method corresponding to these code
+ *                  attributes, or <tt>null</tt> if these attributes are not code
+ *                  attributes.
+ * @param len       the length of the bytecode of the method corresponding to
+ *                  these code attributes, or <tt>null</tt> if these attributes are
+ *                  not code attributes.
+ * @param maxStack  the maximum stack size of the method corresponding to
+ *                  these code attributes, or -1 if these attributes are not code
+ *                  attributes.
+ * @param maxLocals the maximum number of local variables of the method
+ *                  corresponding to these code attributes, or -1 if these attributes
+ *                  are not code attributes.
+ * @return the size of all the attributes in this attribute list. This size
+ *         includes the size of the attribute headers.
+ */
+final int getSize(
+		final ClassWriter cw,
+		final byte[] code,
+		final int len,
+		final int maxStack,
+		final int maxLocals){
+	Attribute attr = this;
+	int size = 0;
+	while(attr != null)
+		{
+		cw.newUTF8(attr.type);
+		size += attr.write(cw, code, len, maxStack, maxLocals).length + 6;
+		attr = attr.next;
+		}
+	return size;
+}
+
+/**
+ * Writes all the attributes of this attribute list in the given byte
+ * vector.
+ *
+ * @param cw        the class writer to be used to convert the attributes into byte
+ *                  arrays, with the {@link #write write} method.
+ * @param code      the bytecode of the method corresponding to these code
+ *                  attributes, or <tt>null</tt> if these attributes are not code
+ *                  attributes.
+ * @param len       the length of the bytecode of the method corresponding to
+ *                  these code attributes, or <tt>null</tt> if these attributes are
+ *                  not code attributes.
+ * @param maxStack  the maximum stack size of the method corresponding to
+ *                  these code attributes, or -1 if these attributes are not code
+ *                  attributes.
+ * @param maxLocals the maximum number of local variables of the method
+ *                  corresponding to these code attributes, or -1 if these attributes
+ *                  are not code attributes.
+ * @param out       where the attributes must be written.
+ */
+final void put(
+		final ClassWriter cw,
+		final byte[] code,
+		final int len,
+		final int maxStack,
+		final int maxLocals,
+		final ByteVector out){
+	Attribute attr = this;
+	while(attr != null)
+		{
+		ByteVector b = attr.write(cw, code, len, maxStack, maxLocals);
+		out.putShort(cw.newUTF8(attr.type)).putInt(b.length);
+		out.putByteArray(b.data, 0, b.length);
+		attr = attr.next;
+		}
+}
+}

data/src/jvm/clojure/asm/ByteVector.java

@@ -0,0 +1,318 @@
+/***
+ * ASM: a very small and fast Java bytecode manipulation framework
+ * Copyright (c) 2000-2005 INRIA, France Telecom
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the copyright holders nor the names of its
+ *    contributors may be used to endorse or promote products derived from
+ *    this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+ * THE POSSIBILITY OF SUCH DAMAGE.
+ */
+package clojure.asm;
+
+/**
+ * A dynamically extensible vector of bytes. This class is roughly equivalent to
+ * a DataOutputStream on top of a ByteArrayOutputStream, but is more efficient.
+ *
+ * @author Eric Bruneton
+ */
+public class ByteVector{
+
+/**
+ * The content of this vector.
+ */
+byte[] data;
+
+/**
+ * Actual number of bytes in this vector.
+ */
+int length;
+
+/**
+ * Constructs a new {@link ByteVector ByteVector} with a default initial
+ * size.
+ */
+public ByteVector(){
+	data = new byte[64];
+}
+
+/**
+ * Constructs a new {@link ByteVector ByteVector} with the given initial
+ * size.
+ *
+ * @param initialSize the initial size of the byte vector to be constructed.
+ */
+public ByteVector(final int initialSize){
+	data = new byte[initialSize];
+}
+
+/**
+ * Puts a byte into this byte vector. The byte vector is automatically
+ * enlarged if necessary.
+ *
+ * @param b a byte.
+ * @return this byte vector.
+ */
+public ByteVector putByte(final int b){
+	int length = this.length;
+	if(length + 1 > data.length)
+		{
+		enlarge(1);
+		}
+	data[length++] = (byte) b;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts two bytes into this byte vector. The byte vector is automatically
+ * enlarged if necessary.
+ *
+ * @param b1 a byte.
+ * @param b2 another byte.
+ * @return this byte vector.
+ */
+ByteVector put11(final int b1, final int b2){
+	int length = this.length;
+	if(length + 2 > data.length)
+		{
+		enlarge(2);
+		}
+	byte[] data = this.data;
+	data[length++] = (byte) b1;
+	data[length++] = (byte) b2;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts a short into this byte vector. The byte vector is automatically
+ * enlarged if necessary.
+ *
+ * @param s a short.
+ * @return this byte vector.
+ */
+public ByteVector putShort(final int s){
+	int length = this.length;
+	if(length + 2 > data.length)
+		{
+		enlarge(2);
+		}
+	byte[] data = this.data;
+	data[length++] = (byte) (s >>> 8);
+	data[length++] = (byte) s;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts a byte and a short into this byte vector. The byte vector is
+ * automatically enlarged if necessary.
+ *
+ * @param b a byte.
+ * @param s a short.
+ * @return this byte vector.
+ */
+ByteVector put12(final int b, final int s){
+	int length = this.length;
+	if(length + 3 > data.length)
+		{
+		enlarge(3);
+		}
+	byte[] data = this.data;
+	data[length++] = (byte) b;
+	data[length++] = (byte) (s >>> 8);
+	data[length++] = (byte) s;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts an int into this byte vector. The byte vector is automatically
+ * enlarged if necessary.
+ *
+ * @param i an int.
+ * @return this byte vector.
+ */
+public ByteVector putInt(final int i){
+	int length = this.length;
+	if(length + 4 > data.length)
+		{
+		enlarge(4);
+		}
+	byte[] data = this.data;
+	data[length++] = (byte) (i >>> 24);
+	data[length++] = (byte) (i >>> 16);
+	data[length++] = (byte) (i >>> 8);
+	data[length++] = (byte) i;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts a long into this byte vector. The byte vector is automatically
+ * enlarged if necessary.
+ *
+ * @param l a long.
+ * @return this byte vector.
+ */
+public ByteVector putLong(final long l){
+	int length = this.length;
+	if(length + 8 > data.length)
+		{
+		enlarge(8);
+		}
+	byte[] data = this.data;
+	int i = (int) (l >>> 32);
+	data[length++] = (byte) (i >>> 24);
+	data[length++] = (byte) (i >>> 16);
+	data[length++] = (byte) (i >>> 8);
+	data[length++] = (byte) i;
+	i = (int) l;
+	data[length++] = (byte) (i >>> 24);
+	data[length++] = (byte) (i >>> 16);
+	data[length++] = (byte) (i >>> 8);
+	data[length++] = (byte) i;
+	this.length = length;
+	return this;
+}
+
+/**
+ * Puts an UTF8 string into this byte vector. The byte vector is
+ * automatically enlarged if necessary.
+ *
+ * @param s a String.
+ * @return this byte vector.
+ */
+public ByteVector putUTF8(final String s){
+	int charLength = s.length();
+	if(length + 2 + charLength > data.length)
+		{
+		enlarge(2 + charLength);
+		}
+	int len = length;
+	byte[] data = this.data;
+	// optimistic algorithm: instead of computing the byte length and then
+	// serializing the string (which requires two loops), we assume the byte
+	// length is equal to char length (which is the most frequent case), and
+	// we start serializing the string right away. During the serialization,
+	// if we find that this assumption is wrong, we continue with the
+	// general method.
+	data[len++] = (byte) (charLength >>> 8);
+	data[len++] = (byte) charLength;
+	for(int i = 0; i < charLength; ++i)
+		{
+		char c = s.charAt(i);
+		if(c >= '\001' && c <= '\177')
+			{
+			data[len++] = (byte) c;
+			}
+		else
+			{
+			int byteLength = i;
+			for(int j = i; j < charLength; ++j)
+				{
+				c = s.charAt(j);
+				if(c >= '\001' && c <= '\177')
+					{
+					byteLength++;
+					}
+				else if(c > '\u07FF')
+					{
+					byteLength += 3;
+					}
+				else
+					{
+					byteLength += 2;
+					}
+				}
+			data[length] = (byte) (byteLength >>> 8);
+			data[length + 1] = (byte) byteLength;
+			if(length + 2 + byteLength > data.length)
+				{
+				length = len;
+				enlarge(2 + byteLength);
+				data = this.data;
+				}
+			for(int j = i; j < charLength; ++j)
+				{
+				c = s.charAt(j);
+				if(c >= '\001' && c <= '\177')
+					{
+					data[len++] = (byte) c;
+					}
+				else if(c > '\u07FF')
+					{
+					data[len++] = (byte) (0xE0 | c >> 12 & 0xF);
+					data[len++] = (byte) (0x80 | c >> 6 & 0x3F);
+					data[len++] = (byte) (0x80 | c & 0x3F);
+					}
+				else
+					{
+					data[len++] = (byte) (0xC0 | c >> 6 & 0x1F);
+					data[len++] = (byte) (0x80 | c & 0x3F);
+					}
+				}
+			break;
+			}
+		}
+	length = len;
+	return this;
+}
+
+/**
+ * Puts an array of bytes into this byte vector. The byte vector is
+ * automatically enlarged if necessary.
+ *
+ * @param b   an array of bytes. May be <tt>null</tt> to put <tt>len</tt>
+ *            null bytes into this byte vector.
+ * @param off index of the fist byte of b that must be copied.
+ * @param len number of bytes of b that must be copied.
+ * @return this byte vector.
+ */
+public ByteVector putByteArray(final byte[] b, final int off, final int len){
+	if(length + len > data.length)
+		{
+		enlarge(len);
+		}
+	if(b != null)
+		{
+		System.arraycopy(b, off, data, length, len);
+		}
+	length += len;
+	return this;
+}
+
+/**
+ * Enlarge this byte vector so that it can receive n more bytes.
+ *
+ * @param size number of additional bytes that this byte vector should be
+ *             able to receive.
+ */
+private void enlarge(final int size){
+	int length1 = 2 * data.length;
+	int length2 = length + size;
+	byte[] newData = new byte[length1 > length2 ? length1 : length2];
+	System.arraycopy(data, 0, newData, 0, length);
+	data = newData;
+}
+}