Mercurial > lasercutter

annotate src/clojure/lang/Cons.java @ 10:ef7dbbd6452c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 Mar 25, 2006 11:01:29 AM */
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 final public class Cons extends ASeq implements Serializable {
rlm@10 18
rlm@10 19 private final Object _first;
rlm@10 20 private final ISeq _more;
rlm@10 21
rlm@10 22 public Cons(Object first, ISeq _more){
rlm@10 23 this._first = first;
rlm@10 24 this._more = _more;
rlm@10 25 }
rlm@10 26
rlm@10 27
rlm@10 28 public Cons(IPersistentMap meta, Object _first, ISeq _more){
rlm@10 29 super(meta);
rlm@10 30 this._first = _first;
rlm@10 31 this._more = _more;
rlm@10 32 }
rlm@10 33
rlm@10 34 public Object first(){
rlm@10 35 return _first;
rlm@10 36 }
rlm@10 37
rlm@10 38 public ISeq next(){
rlm@10 39 return more().seq();
rlm@10 40 }
rlm@10 41
rlm@10 42 public ISeq more(){
rlm@10 43 if(_more == null)
rlm@10 44 return PersistentList.EMPTY;
rlm@10 45 return _more;
rlm@10 46 }
rlm@10 47
rlm@10 48 public int count(){
rlm@10 49 return 1 + RT.count(_more);
rlm@10 50 }
rlm@10 51
rlm@10 52 public Cons withMeta(IPersistentMap meta){
rlm@10 53 return new Cons(meta, _first, _more);
rlm@10 54 }
rlm@10 55 }