clojure 1.0.0

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

@@ -0,0 +1,53 @@
+/**
+ *   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:01:29 AM */
+
+package clojure.lang;
+
+final public class Cons extends ASeq{
+
+private final Object _first;
+private final ISeq _more;
+
+public Cons(Object first, ISeq _more){
+	this._first = first;
+	this._more = _more;
+}
+
+
+public Cons(IPersistentMap meta, Object _first, ISeq _more){
+	super(meta);
+	this._first = _first;
+	this._more = _more;
+}
+
+public Object first(){
+	return _first;
+}
+
+public ISeq next(){
+	return more().seq();
+}
+
+public ISeq more(){
+	if(_more == null)
+		return PersistentList.EMPTY;
+	return _more;
+}
+
+public int count(){
+	return 1 + RT.count(_more);
+}
+
+public Cons withMeta(IPersistentMap meta){
+	return new Cons(meta, _first, _more);
+}
+}

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

@@ -0,0 +1,18 @@
+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.
+ */
+
+/* A class that implements Counted promises that it is a collection
+ * that implement a constant-time count() */
+
+public interface Counted {
+    int count();
+}

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

@@ -0,0 +1,38 @@
+/**
+ *   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 28, 2007 */
+
+package clojure.lang;
+
+public class Delay implements IDeref{
+Object val;
+IFn fn;
+
+public Delay(IFn fn){
+	this.fn = fn;
+	this.val = null;
+}
+
+static public Object force(Object x) throws Exception{
+	return (x instanceof Delay) ?
+	       ((Delay) x).deref()
+	       : x;
+}
+
+synchronized public Object deref() throws Exception{
+	if(fn != null)
+		{
+		val = fn.invoke();
+		fn = null;
+		}
+	return val;
+}
+}

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

@@ -0,0 +1,71 @@
+/**
+ *   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 Aug 21, 2007 */
+
+package clojure.lang;
+
+import java.util.HashMap;
+import java.util.Enumeration;
+import java.util.Vector;
+import java.net.URLClassLoader;
+import java.net.URL;
+import java.io.IOException;
+
+//todo: possibly extend URLClassLoader?
+
+public class DynamicClassLoader extends URLClassLoader{
+HashMap<Integer, Object[]> constantVals = new HashMap<Integer, Object[]>();
+HashMap<String, byte[]> map = new HashMap<String, byte[]>();
+static final URL[] EMPTY_URLS = new URL[]{};
+
+public DynamicClassLoader(){
+    //pseudo test in lieu of hasContextClassLoader()
+	super(EMPTY_URLS,(Thread.currentThread().getContextClassLoader() == null ||
+                Thread.currentThread().getContextClassLoader() == ClassLoader.getSystemClassLoader())?
+                Compiler.class.getClassLoader():Thread.currentThread().getContextClassLoader());
+//	super(EMPTY_URLS,Compiler.class.getClassLoader());
+}
+
+public DynamicClassLoader(ClassLoader parent){
+	super(EMPTY_URLS,parent);
+}
+
+public Class defineClass(String name, byte[] bytes){
+	return defineClass(name, bytes, 0, bytes.length);
+}
+
+public void addBytecode(String className, byte[] bytes){
+	if(map.containsKey(className))
+		throw new IllegalStateException(String.format("Class %s already present", className));
+	map.put(className, bytes);
+}
+
+protected Class<?> findClass(String name) throws ClassNotFoundException{
+	byte[] bytes = map.get(name);
+	if(bytes != null)
+		return defineClass(name, bytes, 0, bytes.length);
+	return super.findClass(name);
+	//throw new ClassNotFoundException(name);
+}
+
+public void registerConstants(int id, Object[] val){
+	constantVals.put(id, val);
+}
+
+public Object[] getConstants(int id){
+	return constantVals.get(id);
+}
+
+public void addURL(URL url){
+	super.addURL(url);
+}
+
+}

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

@@ -0,0 +1,71 @@
+/**
+ *   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 EnumerationSeq extends ASeq{
+final Enumeration iter;
+final State state;
+
+    static class State{
+	volatile Object val;
+	volatile Object _rest;
+}
+
+public static EnumerationSeq create(Enumeration iter){
+	if(iter.hasMoreElements())
+		return new EnumerationSeq(iter);
+	return null;
+}
+
+EnumerationSeq(Enumeration iter){
+	this.iter = iter;
+	state = new State();
+	this.state.val = state;
+	this.state._rest = state;
+}
+
+EnumerationSeq(IPersistentMap meta, Enumeration 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.nextElement();
+			}
+	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 EnumerationSeq withMeta(IPersistentMap meta){
+	return new EnumerationSeq(meta, iter, state);
+}
+}

data/src/jvm/clojure/lang/Fn.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.
+ **/
+
+/* rich Nov 25, 2008 */
+
+package clojure.lang;
+
+public interface Fn{
+}

data/src/jvm/clojure/lang/IDeref.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 Feb 9, 2009 */
+
+package clojure.lang;
+
+public interface IDeref{
+Object deref() throws Exception;
+}

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

@@ -0,0 +1,90 @@
+/**
+ *   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 3:54:03 PM */
+
+package clojure.lang;
+
+import java.util.concurrent.Callable;
+
+public interface IFn extends Callable, Runnable{
+
+public Object invoke() throws Exception;
+
+public Object invoke(Object arg1) throws Exception;
+
+public Object invoke(Object arg1, Object arg2) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7)
+		throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8) throws Exception;
+
+public Object invoke(Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Object arg6, Object arg7,
+                     Object arg8, Object arg9) throws Exception;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+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;
+
+public Object applyTo(ISeq arglist) throws Exception;
+}

data/src/jvm/clojure/lang/IMapEntry.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.
+ */
+
+package clojure.lang;
+
+import java.util.Map;
+
+public interface IMapEntry extends Map.Entry{
+Object key();
+
+Object val();
+}

data/src/jvm/clojure/lang/IMeta.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 31, 2008 */
+
+package clojure.lang;
+
+public interface IMeta {
+    IPersistentMap meta();
+}

data/src/jvm/clojure/lang/IObj.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.
+ **/
+
+package clojure.lang;
+
+
+public interface IObj extends IMeta {
+
+    public IObj withMeta(IPersistentMap meta);
+
+}

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

@@ -0,0 +1,23 @@
+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 IPersistentCollection extends Seqable {
+
+int count();
+
+IPersistentCollection cons(Object o);
+
+IPersistentCollection empty();
+
+boolean equiv(Object o);
+}