lasercutter: src/clojure/lang/LazilyPersistentVector.java annotate

added clojure source goodness

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 14, 2008 */
rlm@10	12
rlm@10	13 package clojure.lang;
rlm@10	14
rlm@10	15 import java.util.Collection;
rlm@10	16
rlm@10	17 public class LazilyPersistentVector{
rlm@10	18
rlm@10	19
rlm@10	20 static public IPersistentVector createOwning(Object... items){
rlm@10	21 if(items.length == 0)
rlm@10	22 return PersistentVector.EMPTY;
rlm@10	23 else if(items.length <= 32)
rlm@10	24 return new PersistentVector(items.length, 5, PersistentVector.EMPTY_NODE,items);
rlm@10	25 return PersistentVector.create(items);
rlm@10	26 }
rlm@10	27
rlm@10	28 static public IPersistentVector create(Collection coll){
rlm@10	29 if(!(coll instanceof ISeq) && coll.size() <= 32)
rlm@10	30 return createOwning(coll.toArray());
rlm@10	31 return PersistentVector.create(RT.seq(coll));
rlm@10	32 }
rlm@10	33
rlm@10	34 }

Mercurial > lasercutter