From e7a03a3018e221c3e12be521b2570f73850abd45 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 6 Jul 2006 19:52:04 +0000 Subject: [PATCH] hmph? svn: r3632 --- collects/htdch/colors/Black.java | 3 +++ collects/htdch/colors/Blue.java | 3 +++ collects/htdch/colors/Color.java | 3 +++ collects/htdch/colors/Green.java | 3 +++ collects/htdch/colors/Red.java | 3 +++ collects/htdch/colors/White.java | 3 +++ collects/htdch/colors/Yellow.java | 3 +++ collects/htdch/colors/info.ss | 4 ++++ collects/htdch/colors/installer.ss | 25 +++++++++++++++++++++++++ collects/htdch/geometry/Posn.java | 10 ++++++++++ collects/htdch/geometry/info.ss | 4 ++++ collects/htdch/geometry/installer.ss | 18 ++++++++++++++++++ 12 files changed, 82 insertions(+) create mode 100644 collects/htdch/colors/Black.java create mode 100644 collects/htdch/colors/Blue.java create mode 100644 collects/htdch/colors/Color.java create mode 100644 collects/htdch/colors/Green.java create mode 100644 collects/htdch/colors/Red.java create mode 100644 collects/htdch/colors/White.java create mode 100644 collects/htdch/colors/Yellow.java create mode 100644 collects/htdch/colors/info.ss create mode 100644 collects/htdch/colors/installer.ss create mode 100644 collects/htdch/geometry/Posn.java create mode 100644 collects/htdch/geometry/info.ss create mode 100644 collects/htdch/geometry/installer.ss diff --git a/collects/htdch/colors/Black.java b/collects/htdch/colors/Black.java new file mode 100644 index 0000000000..3bfd25a216 --- /dev/null +++ b/collects/htdch/colors/Black.java @@ -0,0 +1,3 @@ +package colors; + +public class Black extends Color { } diff --git a/collects/htdch/colors/Blue.java b/collects/htdch/colors/Blue.java new file mode 100644 index 0000000000..2d3302ba31 --- /dev/null +++ b/collects/htdch/colors/Blue.java @@ -0,0 +1,3 @@ +package colors; + +public class Blue extends Color { } diff --git a/collects/htdch/colors/Color.java b/collects/htdch/colors/Color.java new file mode 100644 index 0000000000..bcb8dbf0cc --- /dev/null +++ b/collects/htdch/colors/Color.java @@ -0,0 +1,3 @@ +package colors; + +public abstract class Color { } diff --git a/collects/htdch/colors/Green.java b/collects/htdch/colors/Green.java new file mode 100644 index 0000000000..4c43747a2d --- /dev/null +++ b/collects/htdch/colors/Green.java @@ -0,0 +1,3 @@ +package colors; + +public class Green extends Color { } diff --git a/collects/htdch/colors/Red.java b/collects/htdch/colors/Red.java new file mode 100644 index 0000000000..f07f33ef9f --- /dev/null +++ b/collects/htdch/colors/Red.java @@ -0,0 +1,3 @@ +package colors; + +public class Red extends Color { } diff --git a/collects/htdch/colors/White.java b/collects/htdch/colors/White.java new file mode 100644 index 0000000000..78723c7d15 --- /dev/null +++ b/collects/htdch/colors/White.java @@ -0,0 +1,3 @@ +package colors; + +public class White extends Color { } diff --git a/collects/htdch/colors/Yellow.java b/collects/htdch/colors/Yellow.java new file mode 100644 index 0000000000..01e0282e3a --- /dev/null +++ b/collects/htdch/colors/Yellow.java @@ -0,0 +1,3 @@ +package colors; + +public class Yellow extends Color { } diff --git a/collects/htdch/colors/info.ss b/collects/htdch/colors/info.ss new file mode 100644 index 0000000000..dafb3d1148 --- /dev/null +++ b/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")) diff --git a/collects/htdch/colors/installer.ss b/collects/htdch/colors/installer.ss new file mode 100644 index 0000000000..f94ef2c8d2 --- /dev/null +++ b/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") + )))) + diff --git a/collects/htdch/geometry/Posn.java b/collects/htdch/geometry/Posn.java new file mode 100644 index 0000000000..2b442c18c9 --- /dev/null +++ b/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; + } +} diff --git a/collects/htdch/geometry/info.ss b/collects/htdch/geometry/info.ss new file mode 100644 index 0000000000..25a7fbeca4 --- /dev/null +++ b/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")) diff --git a/collects/htdch/geometry/installer.ss b/collects/htdch/geometry/installer.ss new file mode 100644 index 0000000000..a4866d19ca --- /dev/null +++ b/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"))))) +