40 lines
1.2 KiB
Scheme
40 lines
1.2 KiB
Scheme
(module installer mzscheme
|
|
(require (lib "compile.ss" "profj"))
|
|
(provide installer)
|
|
|
|
(define (installer plthome)
|
|
(let ((draw-path (build-path (collection-path "htdch" "graphics"))))
|
|
(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")
|
|
(javac "Color.java")
|
|
(javac "Image.djava")
|
|
(javac "PictureFactory.djava")
|
|
(javac "Black.java")
|
|
(javac "Blue.java")
|
|
(javac "Brown.java")
|
|
(javac "Green.java")
|
|
(javac "Orange.java")
|
|
(javac "Purple.java")
|
|
(javac "Red.java")
|
|
(javac "White.java")
|
|
(javac "Yellow.java")
|
|
(javac "Command.djava")
|
|
(javac "DrawLine.djava")
|
|
(javac "DrawRectangle.djava")
|
|
(javac "DrawImage.djava")
|
|
(javac "View.djava")
|
|
(javac "CommandSequence.java")
|
|
(javac "LargerSeq.java")
|
|
(javac "EmptySeq.java")
|
|
(javac "World.java")
|
|
(javac "GameWorld.djava")
|
|
)))
|
|
)
|
|
|