hmph?

svn: r3632

collects/htdch/colors/Black.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class Black extends Color { }

collects/htdch/colors/Blue.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class Blue extends Color { }

collects/htdch/colors/Color.java

@@ -0,0 +1,3 @@
+package colors;
+
+public abstract class Color { }

collects/htdch/colors/Green.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class Green extends Color { }

collects/htdch/colors/Red.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class Red extends Color { }

collects/htdch/colors/White.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class White extends Color { }

collects/htdch/colors/Yellow.java

@@ -0,0 +1,3 @@
+package colors;
+
+public class Yellow extends Color { }

collects/htdch/colors/info.ss

@@ -0,0 +1,4 @@
+(module info (lib "infotab.ss" "setup")
+  (define name "Colors Teachpack")
+  (define install-collection "installer.ss")
+  #;(define pre-install-collection "pre-installer.ss"))

collects/htdch/colors/installer.ss

@@ -0,0 +1,25 @@
+(module installer mzscheme
+  (require (lib "compile.ss" "profj"))
+  (provide installer)
+  
+  (define (mprintf . a)
+    (fprintf a (current-error-port)))
+  
+  (define (installer plthome)
+    (let ((draw-path (build-path (collection-path "htdch" "colors"))))
+      (let ((javac
+             (lambda (file)
+               (parameterize ([current-load-relative-directory draw-path]
+                              [current-directory draw-path] )
+                 (compile-java 'file 'file 'full
+                               (build-path draw-path file)
+                               #f #f)))))
+        (javac "Color.java")
+        (javac "Red.java")
+        (javac "White.java")
+        (javac "Blue.java")
+        (javac "Black.java")
+        (javac "Green.java")
+        (javac "Yellow.java")
+        ))))
+           

collects/htdch/geometry/Posn.java

@@ -0,0 +1,10 @@
+package geometry;
+
+public class Posn {
+  public int x, y;
+
+  public Posn( int x, int y ) {
+    this.x = x;
+    this.y = y;
+  }
+}

collects/htdch/geometry/info.ss

@@ -0,0 +1,4 @@
+(module info (lib "infotab.ss" "setup")
+  (define name "Geometry Teachpack")
+  (define install-collection "installer.ss")
+  #;(define pre-install-collection "pre-installer.ss"))

collects/htdch/geometry/installer.ss

@@ -0,0 +1,18 @@
+(module installer mzscheme
+  (require (lib "compile.ss" "profj"))
+  (provide installer)
+  
+  (define (mprintf . a)
+    (fprintf a (current-error-port)))
+  
+  (define (installer plthome)
+    (let ((draw-path (build-path (collection-path "htdch" "geometry"))))
+      (let ((javac
+             (lambda (file)
+               (parameterize ([current-load-relative-directory draw-path]
+                              [current-directory draw-path] )
+                 (compile-java 'file 'file 'full
+                               (build-path draw-path file)
+                               #f #f)))))
+        (javac "Posn.java")))))
+