[armedbear-cvs] r12430 - trunk/abcl

[Mark Evenson]

Author: mevenson
Date: Mon Feb  8 02:46:58 2010
New Revision: 12430

Log:
Lisp compilation no longer writes build to temporary file.

The way to not confuse ABCL under Windows that pathnames starting in a
drive letter are not Lisp packages is solved by using the
'inputstring' attribute to the <java> task.





Modified:
   trunk/abcl/build.xml

Modified: trunk/abcl/build.xml
==============================================================================
--- trunk/abcl/build.xml	(original)
+++ trunk/abcl/build.xml	Mon Feb  8 02:46:58 2010
@@ -220,43 +220,19 @@
 
     <path id="abcl.lisp.output.path"
           location="${build.classes.dir}/org/armedbear/lisp/"/>
+    <pathconvert dirsep="/" property="abcl.lisp.output" refid="abcl.lisp.output.path"/>
     
     <target name="abcl.compile.lisp" 
 	    depends="abcl.copy.lisp,abcl.compile.java,abcl.fasls.uptodate"
 	    unless="abcl.fasls.uptodate.p">
-
-      <!-- The following shenanigans are necessary to get something
-           that ABCL under Windows can parse as a pathname with the
-           drive syntax not being interpreted as a Lisp package
-           namespace, and with backslash characters not starting
-           escape sequences.  -->
-      <tempfile property="abcl.compile.lisp.tmp" suffix=".lisp"/>
-
-      <echo file="${abcl.compile.lisp.tmp}">
-      (compile-system :zip nil :quit t 
-          :output-path "${toString:abcl.lisp.output.path}${file.separator}")
-      </echo>
-
-      <tempfile property="abcl.compile.lisp.tmp.2"  suffix=".lisp"/>
-	    
-      <copy file="${abcl.compile.lisp.tmp}"
-            tofile="${abcl.compile.lisp.tmp.2}">
-	 <filterchain>
-	    <replacestring from="\" to="/"/>
-	 </filterchain>
-      </copy>
-
-      <java classpath="${build.classes.dir}"
+      <java classpath="${build.classes.dir}" 
 	    fork="true"
 	    failonerror="true"
+	    inputstring="(compile-system :zip nil :quit t :output-path "${abcl.lisp.output}/")'"
 	    classname="org.armedbear.lisp.Main">
         <jvmarg value="-Dabcl.home=${abcl.home.dir}${file.separator}"/>
 	<arg value="--noinit"/>
-	<arg value="--load"/>
-	<arg value="${abcl.compile.lisp.tmp.2}"/>
       </java>
-            <delete file="${abcl.compile.lisp.tmp}"/> 
-	    <delete file="${abcl.compile.lisp.tmp.2}"/> 
     </target>
 
     <property name="abcl.build.path"
@@ -722,7 +698,7 @@
       <record name="${abcl.test.log.file}" emacsmode="true" action="stop"/>
       <echo>Finished recording test output in ${abcl.test.log.file}.</echo>
     </target>
-
+    
     <target name="abcl.release" 
             depends="abcl.binary.tar,abcl.source.tar,abcl.binary.zip,abcl.source.zip">
       <copy file="${abcl.jar.path}"