started work on AOT main() support

1 files changed, 19 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index 0e90565d..4bea5031 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -4530,6 +4530,25 @@ public static Object compile(Reader rdr, String sourcePath, String sourceName) t
 		clinitgen.returnValue();
 		clinitgen.endMethod();
 
+//		//main
+//		GeneratorAdapter maingen = new GeneratorAdapter(ACC_PUBLIC + ACC_STATIC,
+//		                                            Method.getMethod("void main (String[])"),
+//		                                            null,
+//		                                            null,
+//		                                            cv);
+//		maingen.visitCode();
+//		maingen.push(fn.internalName.replace('/', '.'));
+//		maingen.push("main");
+//		maingen.invokeStatic(RT_TYPE, Method.getMethod("clojure.lang.Var var(String,String)"));
+//		maingen.loadArgs();
+//		maingen.invokeStatic(RT_TYPE,Method.getMethod("clojure.lang.ISeq seq(Object)"));
+//        maingen.invokeInterface(IFN_TYPE, new Method("applyTo",OBJECT_TYPE,new Type[]{Type.getType(ISeq.class)}));
+//		maingen.pop();
+//
+//		 //end of main
+//		maingen.returnValue();
+//		maingen.endMethod();
+
 		//end of class
 		cv.visitEnd();