annotate src/clojure/lang/ArrayChunk.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 * Copyright (c) Rich Hickey. All rights reserved.
rlm@10 3 * The use and distribution terms for this software are covered by the
rlm@10 4 * Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
rlm@10 5 * which can be found in the file epl-v10.html at the root of this distribution.
rlm@10 6 * By using this software in any fashion, you are agreeing to be bound by
rlm@10 7 * the terms of this license.
rlm@10 8 * You must not remove this notice, or any other, from this software.
rlm@10 9 **/
rlm@10 10
rlm@10 11 /* rich May 24, 2009 */
rlm@10 12
rlm@10 13 package clojure.lang;
rlm@10 14
rlm@10 15 import java.io.Serializable;
rlm@10 16
rlm@10 17 public final class ArrayChunk implements IChunk, Serializable {
rlm@10 18
rlm@10 19 final Object[] array;
rlm@10 20 final int off;
rlm@10 21 final int end;
rlm@10 22
rlm@10 23 public ArrayChunk(Object[] array){
rlm@10 24 this(array, 0, array.length);
rlm@10 25 }
rlm@10 26
rlm@10 27 public ArrayChunk(Object[] array, int off){
rlm@10 28 this(array, off, array.length);
rlm@10 29 }
rlm@10 30
rlm@10 31 public ArrayChunk(Object[] array, int off, int end){
rlm@10 32 this.array = array;
rlm@10 33 this.off = off;
rlm@10 34 this.end = end;
rlm@10 35 }
rlm@10 36
rlm@10 37 public Object nth(int i){
rlm@10 38 return array[off + i];
rlm@10 39 }
rlm@10 40
rlm@10 41 public Object nth(int i, Object notFound){
rlm@10 42 if(i >= 0 && i < count())
rlm@10 43 return nth(i);
rlm@10 44 return notFound;
rlm@10 45 }
rlm@10 46
rlm@10 47 public int count(){
rlm@10 48 return end - off;
rlm@10 49 }
rlm@10 50
rlm@10 51 public IChunk dropFirst(){
rlm@10 52 if(off==end)
rlm@10 53 throw new IllegalStateException("dropFirst of empty chunk");
rlm@10 54 return new ArrayChunk(array, off + 1, end);
rlm@10 55 }
rlm@10 56
rlm@10 57 public Object reduce(IFn f, Object start) throws Exception{
rlm@10 58 Object ret = f.invoke(start, array[off]);
rlm@10 59 for(int x = off + 1; x < end; x++)
rlm@10 60 ret = f.invoke(ret, array[x]);
rlm@10 61 return ret;
rlm@10 62 }
rlm@10 63 }