completed tasklist example

bin/reader-tasklist.bat

@@ -0,0 +1 @@
+java -cp classes;lib/clojure.jar;lib/clojure-contrib.jar reader.tasklist %1 %2 %3 %4 %5 %6 %7 %8 %9

bin/reader-tasklist.sh

@@ -0,0 +1 @@
+java -cp classes:lib/clojure.jar:lib/clojure-contrib.jar reader.tasklist $@

examples/tasklist.clj

@@ -1,29 +1,37 @@
 (ns examples.tasklist
+  (:gen-class 
+   :extends org.xml.sax.helpers.DefaultHandler
+   :init init
+   :state state)
   (:use [clojure.contrib.duck-streams :only (reader)])
   (:import [java.io File]
            [org.xml.sax InputSource]
 	   [org.xml.sax.helpers DefaultHandler]
-	   [javax.xml.parsers SAXParserFactory])
-  (:gen-class
-   :extends org.xml.sax.helpers.DefaultHandler
-   :init init
-   :state state))
+	   [javax.xml.parsers SAXParserFactory]))
 
+; START: task-list
 (defn task-list [arg]
-  (let [handler (new examples.tasklist)]
+  (let [handler (new examples.tasklist)] ; <label id="code.tasklist.classname"/>
     (.. SAXParserFactory newInstance newSAXParser
 	(parse (InputSource. (reader (File. arg)))
 	       handler))
-    @(.state handler)))
+    @(.state handler))) ; <label id="code.tasklist.statename"/>
+; END: task-list
 
+; START: init
 (defn -init []
   [[] (atom [])])
+; END: init
 
+; START: startElement
 (defn -startElement
   [this uri local qname atts]
   (when (= qname "target")
-    (swap! (.state this) conj (.getValue atts "name"))))
+    (swap! (.state this) conj (.getValue atts "name")))) ; <label id="code.tasklist.update"/>
+; END: startElement
 
+; START: main
 (defn -main [& args]
   (doseq [arg args]
-    (println (task-list arg))))
+    (println (task-list arg))))
+; END: main

reader/tasklist.clj

@@ -0,0 +1,10 @@
+(ns reader.tasklist
+  (:gen-class ; <label id="code.tasklist.genclass"/>
+   :extends org.xml.sax.helpers.DefaultHandler ; <label id="code.tasklist.extends"/>
+   :state state ; <label id="code.tasklist.state"/>
+   :init init) ; <label id="code.tasklist.init"/>
+  (:use [clojure.contrib.duck-streams :only (reader)])
+  (:import [java.io File]
+           [org.xml.sax InputSource]
+	   [org.xml.sax.helpers DefaultHandler]
+	   [javax.xml.parsers SAXParserFactory]))

snippets/example-build.xml

@@ -17,9 +17,11 @@
     <tstamp/>
     <mkdir dir="${build}"/>
   </target>
-
+
+  <!-- START: target -->
   <target name="compile-java" depends="init"
           description="Compile Java sources.">
+  <!-- END: target -->
     <javac srcdir="${jsrc}" destdir="${build}" includeJavaRuntime="yes"
            debug="true" target="1.5"/>
   </target>
@@ -49,20 +51,6 @@
     </jar>
   </target>
 
-  <target name="clojure-slim" depends="compile-java"
-          description="Create clojure-slim jar file (omits compiled Clojure code)">
-    <jar jarfile="${slim_jar}">
-      <fileset dir="${build}" includes="clojure/asm/**"/>
-      <fileset dir="${build}" includes="clojure/lang/**"/>
-      <fileset dir="${build}" includes="clojure/main.class"/>
-      <fileset dir="${cljsrc}" includes="**/*.clj"/>
-      <manifest>
-        <attribute name="Main-Class" value="clojure.main"/>
-        <attribute name="Class-Path" value="."/>
-      </manifest>
-    </jar>
-  </target>
-
   <target name="jar" depends="clojure"/>
 
   <target name="all" depends="clojure,clojure-slim"/>