1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/lang/ArrayChunk.java	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,63 @@
     1.4 +/**
     1.5 + *   Copyright (c) Rich Hickey. All rights reserved.
     1.6 + *   The use and distribution terms for this software are covered by the
     1.7 + *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
     1.8 + *   which can be found in the file epl-v10.html at the root of this distribution.
     1.9 + *   By using this software in any fashion, you are agreeing to be bound by
    1.10 + * 	 the terms of this license.
    1.11 + *   You must not remove this notice, or any other, from this software.
    1.12 + **/
    1.13 +
    1.14 +/* rich May 24, 2009 */
    1.15 +
    1.16 +package clojure.lang;
    1.17 +
    1.18 +import java.io.Serializable;
    1.19 +
    1.20 +public final class ArrayChunk implements IChunk, Serializable {
    1.21 +
    1.22 +final Object[] array;
    1.23 +final int off;
    1.24 +final int end;
    1.25 +
    1.26 +public ArrayChunk(Object[] array){
    1.27 +	this(array, 0, array.length);
    1.28 +}
    1.29 +
    1.30 +public ArrayChunk(Object[] array, int off){
    1.31 +	this(array, off, array.length);
    1.32 +}
    1.33 +
    1.34 +public ArrayChunk(Object[] array, int off, int end){
    1.35 +	this.array = array;
    1.36 +	this.off = off;
    1.37 +	this.end = end;
    1.38 +}
    1.39 +
    1.40 +public Object nth(int i){
    1.41 +	return array[off + i];
    1.42 +}
    1.43 +
    1.44 +public Object nth(int i, Object notFound){
    1.45 +	if(i >= 0 && i < count())
    1.46 +		return nth(i);
    1.47 +	return notFound;
    1.48 +}
    1.49 +
    1.50 +public int count(){
    1.51 +	return end - off;
    1.52 +}
    1.53 +
    1.54 +public IChunk dropFirst(){
    1.55 +	if(off==end)
    1.56 +		throw new IllegalStateException("dropFirst of empty chunk");
    1.57 +	return new ArrayChunk(array, off + 1, end);
    1.58 +}
    1.59 +
    1.60 +public Object reduce(IFn f, Object start) throws Exception{
    1.61 +		Object ret = f.invoke(start, array[off]);
    1.62 +		for(int x = off + 1; x < end; x++)
    1.63 +			ret = f.invoke(ret, array[x]);
    1.64 +		return ret;
    1.65 +}
    1.66 +}