suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more typos being fixed

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 15:20:05 -04:00
parent 534bb2ad89
commit 3d28faf16f
2 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
whalesong-helpers.rkt
View File

@ -120,7 +120,7 @@
(build-path (current-output-dir) (build-path (current-output-dir)
(resource-key r)))]))]) (resource-key r)))]))])
(fprintf (current-report-port) (fprintf (current-report-port)
(format "Writing program ~s" (build-path (current-output-port) output-js-filename))) (format "Writing program ~s" (build-path (current-output-dir) output-js-filename)))
(call-with-output-file* (build-path (current-output-dir) output-js-filename) (call-with-output-file* (build-path (current-output-dir) output-js-filename)
(lambda (op) (lambda (op)
(display (get-runtime) op) (display (get-runtime) op)
@ -129,7 +129,7 @@
#:exists 'replace) #:exists 'replace)
(fprintf (current-report-port) (fprintf (current-report-port)
(format "Writing html ~s" (build-path (current-output-port) output-html-filename))) (format "Writing html ~s" (build-path (current-output-dir) output-html-filename)))
(call-with-output-file* (build-path (current-output-dir) output-html-filename) (call-with-output-file* (build-path (current-output-dir) output-html-filename)
(lambda (op) (lambda (op)
(display (get-html-template output-js-filename) op)) (display (get-html-template output-js-filename) op))

25
whalesong.rkt
View File

@ -29,7 +29,7 @@
;; ;;
;; $ whalesong get-javascript main-module-name.rkt ;; $ whalesong get-javascript main-module-name.rkt
(define as-standalone-html? (make-parameter #f))
(define (at-toplevel) (define (at-toplevel)
@ -37,21 +37,6 @@
#:program "whalesong" #:program "whalesong"
#:argv (current-command-line-arguments) #:argv (current-command-line-arguments)
"The Whalesong command-line tool for compiling Racket to JavaScript" "The Whalesong command-line tool for compiling Racket to JavaScript"
["build-xhtml" "build a standalone xhtml package"
"Builds a Racket program and its required dependencies into a .xhtml file."
#:once-each
[("-v" "--verbose")
("Display verbose messages.")
(current-verbose? #t)]
[("--compress-javascript")
("Compress JavaScript with Google Closure (requires Java)")
(current-compress-javascript? #t)]
[("--dest-dir")
dest-dir
("Set destination directory (default: current-directory)")
(current-output-dir dest-dir)]
#:args (path)
(build-standalone-xhtml path)]
["build" "build a standalone html and javascript package" ["build" "build a standalone html and javascript package"
"Builds a Racket program and its required dependencies into a .html and .js file." "Builds a Racket program and its required dependencies into a .html and .js file."
#:once-each #:once-each
@ -65,8 +50,14 @@
dest-dir dest-dir
("Set destination directory (default: current-directory)") ("Set destination directory (default: current-directory)")
(current-output-dir dest-dir)] (current-output-dir dest-dir)]
[("--as-standalone-xhtml")
("Write single standalone xhtml file")
(as-standalone-html? #t)]
#:args (path) #:args (path)
(build-html-and-javascript path)]
(if (as-standalone-html?)
(build-standalone-xhtml path)
(build-html-and-javascript path))]
["get-runtime" "print the runtime library to standard output" ["get-runtime" "print the runtime library to standard output"
"Prints the runtime JavaScript library that's used by Whalesong programs." "Prints the runtime JavaScript library that's used by Whalesong programs."