Class SubVector

src/jvm/clojure/lang/APersistentVector.java:610–698

}

public static class SubVector extends APersistentVector implements IObj, IKVReduce{
	public final IPersistentVector v;
	public final int start;
	public final int end;
	final IPersistentMap _meta;



	public SubVector(IPersistentMap meta, IPersistentVector v, int start, int end){
		this._meta = meta;

		if(v instanceof APersistentVector.SubVector)
			{
			APersistentVector.SubVector sv = (APersistentVector.SubVector) v;
			start += sv.start;
			end += sv.start;
			v = sv.v;
			}
		this.v = v;
		this.start = start;
		this.end = end;
	}

	public Iterator iterator(){
		if (v instanceof APersistentVector) {
			return ((APersistentVector)v).rangedIterator(start,end);
		}
		return super.iterator();
	}

	@Override
	public Spliterator spliterator(){
		return ((APersistentVector)v).rangedSpliterator(start,end);
	}

	public Object kvreduce(IFn f, Object init){
		int cnt = count();
		for (int i=0; i<cnt; i++){
			init = f.invoke(init, i, v.nth(start + i));
			if (RT.isReduced(init))
				return ((IDeref)init).deref();
		}
		return init;
	}

	public Object nth(int i){
		if((start + i >= end) || (i < 0))
			throw new IndexOutOfBoundsException();
		return v.nth(start + i);
	}

	public IPersistentVector assocN(int i, Object val){
		if(start + i > end)
			throw new IndexOutOfBoundsException();
		else if(start + i == end)
			return cons(val);
		return new SubVector(_meta, v.assocN(start + i, val), start, end);
	}