X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=build.xml;h=e3617bf19cca0fb92f4dafa4fd8009bb472946d0;hp=c97de4092b4bde20bf12dbcc5a85c71070821c0b;hb=a2b31532a5ab77cf13fc50ddc28c303949ad1207;hpb=641ca94291e6f1f59b517b16e43f7e0ac71ead2c

diff --git a/build.xml b/build.xml
index c97de40..e3617bf 100644
--- a/build.xml
+++ b/build.xml
@@ -1,82 +1,221 @@
 <project name="mjc2wsl" default="all">
+    <property file="custom.properties"/>
+    
+     <condition property="fermat.dir" value="C:\fermat3">
+       <os family="windows" />
+     </condition>
+
+     <condition property="fermat.dir" value="${user.home}/fermat3">
+       <not><os family="windows" /></not>
+     </condition>
+
+    
+    <property name="java.encoding" value="utf-8" />
+    <taskdef resource="net/sf/antcontrib/antlib.xml"/>
+    
+    <property name="mjc2wsl.class.dir" value="bin" />
+    <property name="mjc2wsl.src.dir" value="src" />
+    <property name="mjc2wsl.options" value="" />
+
+    <property name="res.dir" value="res" />
+    
+    <property name="compiler.class.dir" value="compiler-bin" />
+    <property name="compiler.src.dir" value="compiler" />
+    <property name="compiler.classname.compiler" value="Compiler" />
+    <property name="compiler.classname.interpreter" value="Run" />
+
+    <property name="samples.main.dir" value="samples" />
+    <property name="samples.temp.dir" value="samples-temp" />
+
+    <property name="transf.wsl.file" value="src-wsl/transf-min.wsl" />
+    <property name="transf.wsl.ini" value="transf.ini" />
+
+    <description>
+        Builder script for mjc2wsl and related tools, runs test
+        on given samples.
+        
+        Also gives options to chain the tools on individual files.
+    </description>
+
+    <!-- general tasks -->
 
-	<property name="mjc2wsl.class.dir" value="bin" />
-	<property name="mjc2wsl.src.dir" value="src" />
-	<property name="mjc2wsl.options" value="" />
-	
-	<property name="compiler.class.dir" value="compiler-bin" />
-	<property name="compiler.src.dir" value="compiler" />
-
-	<target name="help">
-		<echo>Possible options:
-		all - build the tool and the compiler and test on the samples
-		build - build the mjc2wsl tool
-		mj-build - build the mj compiler
-		mj-samples - run the mj compiler on the samples (build if needed)
-		</echo>
-	</target>
-	
     <target name="init">
         <mkdir dir="${mjc2wsl.class.dir}"/>
         <mkdir dir="${compiler.class.dir}"/>
+        <mkdir dir="${samples.temp.dir}"/>
+        <copy todir="${samples.temp.dir}">
+            <fileset dir="${samples.main.dir}">
+                <include name="*.mj"/>
+            </fileset>
+        </copy>
     </target>
-
-	<target name="build" depends="init">
-		<javac srcdir="${mjc2wsl.src.dir}" destdir="${mjc2wsl.class.dir}" includeAntRuntime='no' />
-	</target>
-
-	<target name="mj-build" depends="init">
-		<javac srcdir="${compiler.src.dir}" destdir="${compiler.class.dir}" includeAntRuntime='no' />
-	</target>
-	
-	<target name="mj-compile">
-		<echo message="${filename}" />
-		<java classpath="${compiler.class.dir}" classname="Compiler">
-			<arg value="${filename}" />
-		</java>
-	</target>
-	
-	<target name="mj-samples" depends="mj-build">
-		<antcall target="mj-compile">
-			<param name="filename" value="samples/sample.mj" />
-		</antcall>
-		<antcall target="mj-compile">
-			<param name="filename" value="samples/sample1.mj" />
-		</antcall>
-		<antcall target="mj-compile">
-			<param name="filename" value="samples/sample0.mj" />
-		</antcall>
-	</target>
-	
-	<target name="mjc2wsl">
-		<echo message="${filename}" />
-		<java classpath="${mjc2wsl.class.dir}" classname="mjc2wsl">
-			<arg line="${mjc2wsl.options}" />
-			<arg value="${filename}" />
-		</java>
-	</target>
-	
-	<target name="mjc2wsl-samples" depends="build">
-		<antcall target="mjc2wsl">
-			<param name="filename" value="samples/sample0.obj" />
-		</antcall>
-	</target>
-	
-	<target name="all" depends='mj-samples,mjc2wsl-samples'>
-	
-	</target>
-	
-	<target name="clean" >
-		<delete includeemptydirs="true">
+    
+    <target name="all" depends='mj-samples,mjc2wsl-samples,wsl-transf-samples'
+        description="build the tools, run them on the samples to check">
+    
+    </target>
+    
+    <target name="clean" description="clean up all the generated content">
+        <delete includeemptydirs="true">
             <fileset dir=".">
                 <include name="${mjc2wsl.class.dir}/*.class"/>
                 <include name="${compiler.class.dir}/*.class"/>
+                <include name="${samples.temp.dir}/*"/>
             </fileset>
             <dirset dir=".">
                 <include name="${mjc2wsl.class.dir}"/>
                 <include name="${compiler.class.dir}"/>
+                <include name="${samples.temp.dir}"/>
             </dirset>
         </delete>
-	</target>
+    </target>
+    
+    
+    <!-- mjc2wsl related tasks -->
+    
+    <target name="build" depends="init" description="build the mjc2wsl tool">
+        <javac srcdir="${mjc2wsl.src.dir}" destdir="${mjc2wsl.class.dir}" includeAntRuntime='no' />
+    </target>
+
+    <target name="mjc2wsl">
+        <echo message="${filename}" />
+        <java classpath="${mjc2wsl.class.dir}:${res.dir}" classname="mjc2wsl">
+            <arg line="${mjc2wsl.options}" />
+            <arg value="${filename}" />
+        </java>
+    </target>
+    
+    <target name="mjc2wsl-samples" depends="build" description="run the mjc2wsl tool on the samples">
+        <foreach param="filename" target="mjc2wsl">
+            <path>
+            <fileset dir='${samples.temp.dir}'>
+                <include name="*.obj"/>
+            </fileset>
+            </path>
+        </foreach>
+    </target>
+    
+    <target name="mjc2wsl-samples1" depends="build">
+    <!-- simplistic version when antlib (foreach) is not available -->
+        <antcall target="mjc2wsl">
+            <param name="filename" value="samples-temp/sample0.obj" />
+        </antcall>
+    </target>
+
+
+    <!-- MicroJava related tasks -->
 
+
+    <target name="mj-build" depends="init" description="build the mj compiler">
+        <javac srcdir="${compiler.src.dir}" destdir="${compiler.class.dir}" includeAntRuntime='no' />
+    </target>
+    
+    <target name="mj-compile" description="compile a MJ into obj file; given ${filename}">
+        <echo message="${filename}" />
+        <java classpath="${compiler.class.dir}" classname="${compiler.classname.compiler}">
+            <arg value="${filename}" />
+        </java>
+    </target>
+    
+    <target name="mj-samples" depends="mj-build" description="run the mj compiler on the samples">
+        <foreach param="filename" target="mj-compile">
+            <path>
+            <fileset dir='${samples.temp.dir}'>
+                <include name="*.mj"/>
+            </fileset>
+            </path>
+        </foreach>
+    </target>
+
+    <target name="mj-run" description="run a MJ obj file given in ${filename} with ${inputstring}">
+        <echo message="${filename}" />
+        <java classpath="${compiler.class.dir}" classname="${compiler.classname.interpreter}" inputstring="${inputstring}">
+            <arg value="${filename}" />
+        </java>
+    </target>
+
+    <target name="mj-samples1" depends="mj-build">
+    <!-- simplistic version when antlib (foreach) is not available -->
+        <antcall target="mj-compile">
+            <param name="filename" value="samples-temp/sample.mj" />
+        </antcall>
+        <antcall target="mj-compile">
+            <param name="filename" value="samples-temp/sample1.mj" />
+        </antcall>
+        <antcall target="mj-compile">
+            <param name="filename" value="samples-temp/sample0.mj" />
+        </antcall>
+    </target>
+
+
+    <!-- wsl related tasks -->
+
+    <target name="wsl-run" >
+        <exec executable="${fermat.dir}/bin/wsl" inputstring="${inputstring}">
+            <env key="PATH" path="${env.PATH}:${fermat.dir}/bin"/>
+            <env key="FermaT" path="${fermat.dir}" />
+            <env key="SCHEME_LIBRARY_PATH" path="${fermat.dir}/slib/" />
+            <env key="SCM_INIT_PATH" path="${fermat.dir}/scm/Init5e5.scm" />
+            <arg value="${filename}"/>
+        </exec>
+    </target>
+    
+    <target name="wsl-transf" 
+        description="transform (simplify) a single wsl file generated by mjc2wsl">
+        <delete file="${transf.wsl.ini}"/>
+        
+        <antcall target="wsl-run">
+            <param name="filename" value="${transf.wsl.file}" />
+            <param name="inputstring" value="${transf.filename}" />
+        </antcall>
+    </target>
+    
+    <target name="wsl-transf-samples" depends="make-transf-ini-samples"
+        description="transform (simplify) the wsl files generated by mjc2wsl">
+        <antcall target="wsl-run">
+            <param name="filename" value="${transf.wsl.file}" />
+        </antcall>
+    </target>
+    
+    <target name="make-transf-ini-samples">
+        <fileset dir="${samples.temp.dir}" casesensitive="no" id="generated-wsl-fileset">
+                <patternset id="non.transformed.sources">
+                    <include name="**/*.wsl"/>
+                    <exclude name="**/*_t.wsl"/>
+                </patternset>
+        </fileset>
+        <pathconvert pathsep="${line.separator}" 
+            property="generated-wsl-files" refid="generated-wsl-fileset" />
+
+        <echo file="${transf.wsl.ini}">${generated-wsl-files}</echo>
+    </target>
+    
+    <!-- Testing tasks -->
+    
+    <target name="test-run" 
+    description="run .obj .wsl _t.wsl, given are ${file.dir}, ${file.name} (no extension) and an ${inputstring}">
+        <antcall target="mj-run">
+            <param name="filename" value="${file.dir}/${file.name}.obj" />
+            <param name="inputstring" value="${inputstring}" />
+        </antcall>
+        <antcall target="wsl-run">
+            <param name="filename" value="${file.dir}/${file.name}.wsl" />
+            <param name="inputstring" value="${inputstring}" />
+        </antcall>
+        <antcall target="wsl-run">
+            <param name="filename" value="${file.dir}/${file.name}_t.wsl" />
+            <param name="inputstring" value="${inputstring}" />
+        </antcall>
+    </target>
+    
+    <target name="test-run-samples-dir"
+    description="run .obj .wsl _t.wsl, in the samples-temp directory; given ${file.name} (no extension) and an ${inputstring}">
+        <antcall target="test-run">
+            <param name="file.dir" value="${samples.temp.dir}"/>
+        </antcall>
+    </target>
+    
+    <!-- jedit specific flags; needs to be the first or the last 10 lines
+    :noTabs=true:
+    -->
 </project>
\ No newline at end of file