Mercurial > lasercutter
diff src/clojure/lang/ChunkedCons.java @ 10:ef7dbbd6452c
added clojure source goodness
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 21 Aug 2010 06:25:44 -0400 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/src/clojure/lang/ChunkedCons.java Sat Aug 21 06:25:44 2010 -0400 1.3 @@ -0,0 +1,67 @@ 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 25, 2009 */ 1.15 + 1.16 +package clojure.lang; 1.17 + 1.18 +final public class ChunkedCons extends ASeq implements IChunkedSeq{ 1.19 + 1.20 +final IChunk chunk; 1.21 +final ISeq _more; 1.22 + 1.23 +ChunkedCons(IPersistentMap meta, IChunk chunk, ISeq more){ 1.24 + super(meta); 1.25 + this.chunk = chunk; 1.26 + this._more = more; 1.27 +} 1.28 + 1.29 +public ChunkedCons(IChunk chunk, ISeq more){ 1.30 + this(null,chunk, more); 1.31 +} 1.32 + 1.33 +public Obj withMeta(IPersistentMap meta){ 1.34 + if(meta != _meta) 1.35 + return new ChunkedCons(meta, chunk, _more); 1.36 + return this; 1.37 +} 1.38 + 1.39 +public Object first(){ 1.40 + return chunk.nth(0); 1.41 +} 1.42 + 1.43 +public ISeq next(){ 1.44 + if(chunk.count() > 1) 1.45 + return new ChunkedCons(chunk.dropFirst(), _more); 1.46 + return chunkedNext(); 1.47 +} 1.48 + 1.49 +public ISeq more(){ 1.50 + if(chunk.count() > 1) 1.51 + return new ChunkedCons(chunk.dropFirst(), _more); 1.52 + if(_more == null) 1.53 + return PersistentList.EMPTY; 1.54 + return _more; 1.55 +} 1.56 + 1.57 +public IChunk chunkedFirst(){ 1.58 + return chunk; 1.59 +} 1.60 + 1.61 +public ISeq chunkedNext(){ 1.62 + return chunkedMore().seq(); 1.63 +} 1.64 + 1.65 +public ISeq chunkedMore(){ 1.66 + if(_more == null) 1.67 + return PersistentList.EMPTY; 1.68 + return _more; 1.69 +} 1.70 +}