clojure 1.0.0

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

@@ -0,0 +1,16 @@
+/**
+ * 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.
+ */
+
+package clojure.lang;
+
+
+public interface IPersistentList extends Sequential, IPersistentStack{
+
+}

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

@@ -0,0 +1,23 @@
+/**
+ * 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.
+ */
+
+package clojure.lang;
+
+
+public interface IPersistentMap extends Iterable, Associative, Counted{
+
+
+IPersistentMap assoc(Object key, Object val);
+
+IPersistentMap assocEx(Object key, Object val) throws Exception;
+
+IPersistentMap without(Object key) throws Exception;
+
+}

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

@@ -0,0 +1,19 @@
+/**
+ *   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;
+
+public interface IPersistentSet extends IPersistentCollection, Counted{
+	public IPersistentSet disjoin(Object key) throws Exception;
+	public boolean contains(Object key);
+	public Object get(Object key);
+}

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

@@ -0,0 +1,19 @@
+/**
+ *   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 Sep 19, 2007 */
+
+package clojure.lang;
+
+public interface IPersistentStack extends IPersistentCollection{
+Object peek();
+
+IPersistentStack pop();
+}

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

@@ -0,0 +1,22 @@
+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 IPersistentVector extends Associative, Sequential, IPersistentStack, Reversible, Counted{
+int length();
+
+Object nth(int i);
+
+IPersistentVector assocN(int i, Object val);
+
+IPersistentVector cons(Object o);
+
+}

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

@@ -0,0 +1,21 @@
+/**
+ *   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 Feb 27, 2008 */
+
+package clojure.lang;
+
+public interface IProxy{
+
+    public void __initClojureFnMappings(IPersistentMap m);
+    public void __updateClojureFnMappings(IPersistentMap m);
+    public IPersistentMap __getClojureFnMappings();
+
+}

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

@@ -0,0 +1,19 @@
+/**
+ *   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 11, 2008 */
+
+package clojure.lang;
+
+public interface IReduce{
+Object reduce(IFn f) throws Exception;
+
+Object reduce(IFn f, Object start) throws Exception;
+}

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

@@ -0,0 +1,27 @@
+/**
+ *   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 Nov 18, 2007 */
+
+package clojure.lang;
+
+public interface IRef extends IDeref{
+
+	void setValidator(IFn vf);
+
+    IFn getValidator();
+
+    IPersistentMap getWatches();
+
+    IRef addWatch(Object key, IFn callback);
+
+    IRef removeWatch(Object key);
+
+}

data/src/jvm/clojure/lang/IReference.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 IReference extends IMeta {
+    IPersistentMap alterMeta(IFn alter, ISeq args) throws Exception;
+    IPersistentMap resetMeta(IPersistentMap m);
+}

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

@@ -0,0 +1,29 @@
+/**
+ * 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.
+ */
+
+package clojure.lang;
+
+/**
+ * A persistent, functional, sequence interface
+ * <p/>
+ * ISeqs are immutable values, i.e. neither first(), nor rest() changes
+ * or invalidates the ISeq
+ */
+public interface ISeq extends IPersistentCollection, Sequential{
+
+Object first();
+
+ISeq next();
+
+ISeq more();
+
+ISeq cons(Object o);
+
+}

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

@@ -0,0 +1,16 @@
+/**
+ * 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.
+ */
+
+package clojure.lang;
+
+public interface IndexedSeq extends ISeq, Counted{
+
+public int index();
+}

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

@@ -0,0 +1,69 @@
+/**
+ *   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.
+ **/
+
+package clojure.lang;
+
+import java.util.Iterator;
+
+public class IteratorSeq extends ASeq{
+final Iterator iter;
+final State state;
+
+    static class State{
+	volatile Object val;
+	volatile Object _rest;
+}
+
+public static IteratorSeq create(Iterator iter){
+	if(iter.hasNext())
+		return new IteratorSeq(iter);
+	return null;
+}
+
+IteratorSeq(Iterator iter){
+	this.iter = iter;
+	state = new State();
+	this.state.val = state;
+	this.state._rest = state;
+}
+
+IteratorSeq(IPersistentMap meta, Iterator iter, State state){
+	super(meta);
+	this.iter = iter;
+	this.state = state;
+}
+
+public Object first(){
+	if(state.val == state)
+		synchronized(state)
+			{
+			if(state.val == state)
+				state.val = iter.next();
+			}
+	return state.val;
+}
+
+public ISeq next(){
+	if(state._rest == state)
+		synchronized(state)
+			{
+			if(state._rest == state)
+				{
+				first();
+				state._rest = create(iter);
+				}
+			}
+	return (ISeq) state._rest;
+}
+
+public IteratorSeq withMeta(IPersistentMap meta){
+	return new IteratorSeq(meta, iter, state);
+}
+}

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

@@ -0,0 +1,29 @@
+/**
+ *   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;
+
+import java.util.Iterator;
+
+public class IteratorStream extends AFn{
+final Iterator iter;
+
+IteratorStream(Iterator iter){
+	this.iter = iter;
+}
+
+public Object invoke() throws Exception{
+	if(iter.hasNext())
+		return iter.next();
+	return RT.EOS;
+}
+}

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

@@ -0,0 +1,199 @@
+/**
+ *   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 29, 2006 10:39:05 AM */
+
+package clojure.lang;
+
+import java.util.concurrent.ConcurrentHashMap;
+
+
+public class Keyword implements IFn, Comparable, Named{
+
+private static ConcurrentHashMap<Symbol, Keyword> table = new ConcurrentHashMap();
+public final Symbol sym;
+
+public static Keyword intern(Symbol sym){
+	Keyword k = new Keyword(sym);
+	Keyword existingk = table.putIfAbsent(sym, k);
+	return existingk == null ? k : existingk;
+}
+
+public static Keyword intern(String ns, String name){
+	return intern(Symbol.intern(ns, name));
+}
+
+private Keyword(Symbol sym){
+	this.sym = sym;
+}
+
+public int hashCode(){
+	return sym.hashCode() + 0x9e3779b9;
+}
+
+public String toString(){
+	return ":" + sym;
+}
+
+public Object throwArity(){
+	throw new IllegalArgumentException("Wrong number of args passed to keyword: "
+	                                   + toString());
+}
+
+public Object call() throws Exception{
+	return throwArity();
+}
+
+public void run(){
+	throw new UnsupportedOperationException();
+}
+
+public Object invoke() throws Exception{
+	return throwArity();
+}
+
+public int compareTo(Object o){
+	return sym.compareTo(((Keyword) o).sym);
+}
+
+
+public String getNamespace(){
+	return sym.getNamespace();
+}
+
+public String getName(){
+	return sym.getName();
+}
+
+/**
+ * Indexer implements IFn for attr access
+ *
+ * @param obj - must be IPersistentMap
+ * @return the value at the key or nil if not found
+ * @throws Exception
+ */
+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);
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7)
+		throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13)
+		throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14)
+		throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16, Object arg17) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16, Object arg17, Object arg18) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16, Object arg17, Object arg18, Object arg19) throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16, Object arg17, Object arg18, Object arg19, Object arg20)
+		throws Exception{
+	return throwArity();
+}
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9, Object arg10, Object arg11, Object arg12, Object arg13, Object arg14,
+                     Object arg15, Object arg16, Object arg17, Object arg18, Object arg19, Object arg20,
+                     Object... args)
+		throws Exception{
+	return throwArity();
+}
+
+
+public Object applyTo(ISeq arglist) throws Exception{
+	return AFn.applyToHelper(this, arglist);
+}
+
+
+}