clojure 1.0.0

data/src/jvm/clojure/lang/Reversible.java

@@ -0,0 +1,17 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Jan 5, 2008 */
+
+package clojure.lang;
+
+public interface Reversible{
+ISeq rseq() throws Exception;
+}

data/src/jvm/clojure/lang/Script.java

@@ -0,0 +1,22 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Oct 18, 2007 */
+
+package clojure.lang;
+
+import clojure.main;
+
+public class Script {
+
+public static void main(String[] args) throws Exception{
+    main.legacy_script(args);
+}
+}

data/src/jvm/clojure/lang/SeqEnumeration.java

@@ -0,0 +1,33 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Mar 3, 2008 */
+
+package clojure.lang;
+
+import java.util.Enumeration;
+
+public class SeqEnumeration implements Enumeration{
+ISeq seq;
+
+public SeqEnumeration(ISeq seq){
+	this.seq = seq;
+}
+
+public boolean hasMoreElements(){
+	return seq != null;
+}
+
+public Object nextElement(){
+	Object ret = RT.first(seq);
+	seq = RT.next(seq);
+	return ret;
+}
+}

data/src/jvm/clojure/lang/SeqIterator.java

@@ -0,0 +1,41 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Jun 19, 2007 */
+
+package clojure.lang;
+
+import java.util.Iterator;
+import java.util.NoSuchElementException;
+
+public class SeqIterator implements Iterator{
+
+ISeq seq;
+
+public SeqIterator(ISeq seq){
+	this.seq = seq;
+}
+
+public boolean hasNext(){
+	return seq != null;
+}
+
+public Object next() throws NoSuchElementException {
+	if(seq == null)
+		throw new NoSuchElementException();
+	Object ret = RT.first(seq);
+	seq = RT.next(seq);
+	return ret;
+}
+
+public void remove(){
+throw new UnsupportedOperationException();
+}
+}

data/src/jvm/clojure/lang/Seqable.java

@@ -0,0 +1,17 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Jan 28, 2009 */
+
+package clojure.lang;
+
+public interface Seqable {
+    ISeq seq();
+}

data/src/jvm/clojure/lang/Sequential.java

@@ -0,0 +1,13 @@
+package clojure.lang;
+
+/**
+ * Copyright (c) Rich Hickey. All rights reserved.
+ * The use and distribution terms for this software are covered by the
+ * Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ * which can be found in the file epl-v10.html at the root of this distribution.
+ * By using this software in any fashion, you are agreeing to be bound by
+ * the terms of this license.
+ * You must not remove this notice, or any other, from this software.
+ */
+public interface Sequential {
+}

data/src/jvm/clojure/lang/Settable.java

@@ -0,0 +1,18 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Dec 31, 2008 */
+
+package clojure.lang;
+
+public interface Settable {
+    Object doSet(Object val) throws Exception;
+    Object doReset(Object val) throws Exception;
+}

data/src/jvm/clojure/lang/Sorted.java

@@ -0,0 +1,25 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Apr 15, 2008 */
+
+package clojure.lang;
+
+import java.util.Comparator;
+
+public interface Sorted{
+Comparator comparator();
+
+Object entryKey(Object entry);
+
+ISeq seq(boolean ascending);
+
+ISeq seqFrom(Object key, boolean ascending);
+}

data/src/jvm/clojure/lang/Stream.java

@@ -0,0 +1,88 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Mar 5, 2009 */
+
+package clojure.lang;
+
+final public class Stream implements Seqable, Streamable, Sequential {
+
+    static final ISeq NO_SEQ = new Cons(null, null);
+
+    ISeq sequence = NO_SEQ;
+    final IFn src;
+	final IFn xform;
+    IFn tap = null;
+
+	public Stream(IFn src){
+		this.src = src;
+		this.xform = null;
+	}
+
+	public Stream(IFn xform, Stream src) {
+        this.src = src.tap();
+		this.xform = xform;
+    }
+
+	final public ISeq seq(){
+		return sequence().seq();
+	}
+
+	final synchronized public ISeq sequence(){
+		if(sequence == NO_SEQ)
+			{
+			tap();
+			sequence = makeSequence(tap);
+			}
+		return sequence;
+	}
+
+	static ISeq makeSequence(final IFn tap){
+		return new LazySeq(new AFn(){
+				public Object invoke() throws Exception{
+					Object v = tap.invoke();
+					if(v == RT.EOS)
+						return null;
+					return new Cons(v, new LazySeq(this));
+				}
+			});
+	}
+
+    final synchronized public Stream stream() throws Exception {
+            return this;
+    }
+
+    final synchronized public IFn tap() {
+        if (tap != null)
+            throw new IllegalStateException("Stream already tapped");
+
+        return tap = makeTap(xform, src);
+    }
+
+	static IFn makeTap(final IFn xform, final IFn src){
+		return new AFn(){
+			final synchronized public Object invoke() throws Exception{
+				if(xform == null)
+					return src.invoke();
+				Object v;
+				Object xv;
+				do {
+					v = src.invoke();
+					if(v == RT.EOS)
+						return v;
+					xv = xform.invoke(v);
+				} while(xv == RT.SKIP);
+				return xv;
+			}
+		};
+	}
+
+
+}

data/src/jvm/clojure/lang/Streamable.java

@@ -0,0 +1,17 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Dec 7, 2008 */
+
+package clojure.lang;
+
+public interface Streamable {
+    Stream stream() throws Exception;
+}

data/src/jvm/clojure/lang/StringSeq.java

@@ -0,0 +1,50 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Dec 6, 2007 */
+
+package clojure.lang;
+
+public class StringSeq extends ASeq implements IndexedSeq{
+final String s;
+final int i;
+
+static public StringSeq create(String s){
+	if(s.length() == 0)
+		return null;
+	return new StringSeq(null, s, 0);
+}
+
+StringSeq(IPersistentMap meta, String s, int i){
+	super(meta);
+	this.s = s;
+	this.i = i;
+}
+
+public Obj withMeta(IPersistentMap meta){
+	if(meta == meta())
+		return this;
+	return new StringSeq(meta, s, i);
+}
+
+public Object first(){
+	return Character.valueOf(s.charAt(i));
+}
+
+public ISeq next(){
+	if(i + 1 < s.length())
+		return new StringSeq(_meta, s, i + 1);
+	return null;
+}
+
+public int index(){
+	return i;
+}
+}

data/src/jvm/clojure/lang/Symbol.java

@@ -0,0 +1,121 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Mar 25, 2006 11:42:47 AM */
+
+package clojure.lang;
+
+import java.io.Serializable;
+import java.io.ObjectStreamException;
+
+
+public class Symbol extends AFn implements Comparable, Named, Serializable{
+//these must be interned strings!
+final String ns;
+final String name;
+final int hash;
+
+public String toString(){
+	if(ns != null)
+		return ns + "/" + name;
+	return name;
+}
+
+public String getNamespace(){
+	return ns;
+}
+
+public String getName(){
+	return name;
+}
+
+static public Symbol intern(String ns, String name){
+	return new Symbol(ns == null ? null : ns.intern(), name.intern());
+}
+
+static public Symbol intern(String nsname){
+	int i = nsname.lastIndexOf('/');
+	if(i == -1)
+		return new Symbol(null, nsname.intern());
+	else
+		return new Symbol(nsname.substring(0, i).intern(), nsname.substring(i + 1).intern());
+}
+
+static public Symbol create(String name_interned){
+	return new Symbol(null, name_interned);
+}
+
+static public Symbol create(String ns_interned, String name_interned){
+	return new Symbol(ns_interned, name_interned);
+}
+
+private Symbol(String ns_interned, String name_interned){
+	this.name = name_interned;
+	this.ns = ns_interned;
+	this.hash = Util.hashCombine(name.hashCode(), Util.hash(ns));
+}
+
+public boolean equals(Object o){
+	if(this == o)
+		return true;
+	if(!(o instanceof Symbol))
+		return false;
+
+	Symbol symbol = (Symbol) o;
+
+	//identity compares intended, names are interned
+	return name == symbol.name && ns == symbol.ns;
+}
+
+public int hashCode(){
+	return hash;
+}
+
+public Obj withMeta(IPersistentMap meta){
+	return new Symbol(meta, ns, name);
+}
+
+private Symbol(IPersistentMap meta, String ns, String name){
+	super(meta);
+	this.name = name;
+	this.ns = ns;
+	this.hash = Util.hashCombine(name.hashCode(), Util.hash(ns));
+}
+
+public int compareTo(Object o){
+	Symbol s = (Symbol) o;
+	if(this.equals(o))
+		return 0;
+	if(this.ns == null && s.ns != null)
+		return -1;
+	if(this.ns != null)
+		{
+		if(s.ns == null)
+			return 1;
+		int nsc = this.ns.compareTo(s.ns);
+		if(nsc != 0)
+			return nsc;
+		}
+	return this.name.compareTo(s.name);
+}
+
+private Object readResolve() throws ObjectStreamException{
+	return intern(ns, name);
+}
+
+public Object invoke(Object obj) throws Exception{
+	return RT.get(obj, this);
+}
+
+public Object invoke(Object obj, Object notFound) throws Exception{
+	return RT.get(obj, this, notFound);
+}
+
+}