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

fixing args

Browse Source
This commit is contained in:
Danny Yoo 2011-06-17 17:39:09 -04:00
parent cafd001f9b
commit 0ea5ca064a
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
whalesong.rkt
View File

@ -35,8 +35,8 @@
"The Whalesong command-line tool for compiling Racket to JavaScript" "The Whalesong command-line tool for compiling Racket to JavaScript"
["build" "build a standalone xhtml package" ["build" "build a standalone xhtml package"
"Builds a Racket program and its required dependencies into a standalone .xhtml file." "Builds a Racket program and its required dependencies into a standalone .xhtml file."
#:args paths #:args (path)
(do-the-build paths)] (do-the-build 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."
#:args () #:args ()
@ -50,19 +50,18 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (do-the-build filenames) (define (do-the-build f)
(for ([f filenames]) (let-values ([(base filename dir?)
(let-values ([(base filename dir?) (split-path f)])
(split-path f)]) (let ([output-filename
(let ([output-filename (build-path
(build-path (regexp-replace #rx"[.](rkt|ss)$" (path->string filename) ".xhtml"))])
(regexp-replace #rx"[.](rkt|ss)$" (path->string filename) ".xhtml"))]) (call-with-output-file* output-filename
(call-with-output-file* output-filename (lambda (op)
(lambda (op) (package-standalone-xhtml
(package-standalone-xhtml (make-ModuleSource (build-path f))
(make-ModuleSource (build-path f)) op))
op)) #:exists 'replace))))
#:exists 'replace)))))