Mercurial > lasercutter
diff src/clojure/lang/StringSeq.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/StringSeq.java Sat Aug 21 06:25:44 2010 -0400 1.3 @@ -0,0 +1,54 @@ 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 Dec 6, 2007 */ 1.15 + 1.16 +package clojure.lang; 1.17 + 1.18 +public class StringSeq extends ASeq implements IndexedSeq{ 1.19 +public final CharSequence s; 1.20 +public final int i; 1.21 + 1.22 +static public StringSeq create(CharSequence s){ 1.23 + if(s.length() == 0) 1.24 + return null; 1.25 + return new StringSeq(null, s, 0); 1.26 +} 1.27 + 1.28 +StringSeq(IPersistentMap meta, CharSequence s, int i){ 1.29 + super(meta); 1.30 + this.s = s; 1.31 + this.i = i; 1.32 +} 1.33 + 1.34 +public Obj withMeta(IPersistentMap meta){ 1.35 + if(meta == meta()) 1.36 + return this; 1.37 + return new StringSeq(meta, s, i); 1.38 +} 1.39 + 1.40 +public Object first(){ 1.41 + return Character.valueOf(s.charAt(i)); 1.42 +} 1.43 + 1.44 +public ISeq next(){ 1.45 + if(i + 1 < s.length()) 1.46 + return new StringSeq(_meta, s, i + 1); 1.47 + return null; 1.48 +} 1.49 + 1.50 +public int index(){ 1.51 + return i; 1.52 +} 1.53 + 1.54 +public int count(){ 1.55 + return s.length() - i; 1.56 +} 1.57 +}