added class special op

1 files changed, 36 insertions, 1 deletions

diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index b6218e35..d58807a6 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -75,7 +75,7 @@ static IPersistentMap specials = RT.map(
 		MONITOR_EXIT, new MonitorExitExpr.Parser(),
 		INSTANCE, new InstanceExpr.Parser(),
 		THISFN, null,
-		CLASS, null,
+		CLASS, new ClassExpr.Parser(),
 //		UNQUOTE, null,
 //		UNQUOTE_SPLICING, null,
 //		SYNTAX_QUOTE, null,
@@ -857,6 +857,41 @@ static class ThrowExpr implements Expr{
 	}
 }
 
+static class ClassExpr implements Expr{
+	final String className;
+	final static Method forNameMethod = Method.getMethod("Class forName(String)");
+
+
+	public ClassExpr(String className){
+		this.className = className;
+	}
+
+	public Object eval() throws Exception{
+		return Class.forName(className);
+	}
+
+	public void emit(C context, FnExpr fn, GeneratorAdapter gen){
+		if(context != C.STATEMENT)
+			{
+			gen.push(className);
+			gen.invokeStatic(CLASS_TYPE, forNameMethod);
+			}
+	}
+
+	static class Parser implements IParser{
+		public Expr parse(C context, Object frm) throws Exception{
+			ISeq form = (ISeq) frm;
+			//(class Classname)
+			if(form.count() != 2)
+				throw new Exception("wrong number of arguments, expecting: (class Classname)");
+			String className = HostExpr.maybeClassName(RT.second(form));
+			if(className == null)
+				throw new IllegalArgumentException("Unable to resolve classname: " + RT.second(form));
+			return new ClassExpr(className);
+		}
+	}
+}
+
 static class InstanceExpr implements Expr{
 	final Expr expr;
 	final String className;