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

started to integrate wxme.ss stuff with the teaching language's executable creation, but there are bugs, so its commented out for now

Browse Source 
svn: r6044
This commit is contained in:
Robby Findler 2007-04-25 19:00:46 +00:00
parent 838b033c57
commit 9cf65661ad
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
collects/lang/htdp-langs.ss
View File

@ -26,7 +26,8 @@ tracing todo:
(lib "moddep.ss" "syntax") (lib "moddep.ss" "syntax")
(lib "cache-image-snip.ss" "mrlib") (lib "cache-image-snip.ss" "mrlib")
(lib "embed.ss" "compiler") (lib "embed.ss" "compiler")
(lib "wxme.ss" "wxme")
;; this module is shared between the drscheme's namespace (so loaded here) ;; this module is shared between the drscheme's namespace (so loaded here)
;; and the user's namespace in the teaching languages ;; and the user's namespace in the teaching languages
@ -335,6 +336,40 @@ tracing todo:
#:modules `((#f ,program-filename)) #:modules `((#f ,program-filename))
#:literal-expression `(require ,(filename->require-symbol program-filename)) #:literal-expression `(require ,(filename->require-symbol program-filename))
#:cmdline '("-Zmvq") #:cmdline '("-Zmvq")
#|
#:src-filter
(λ (path)
(call-with-input-file path
(λ (port)
(and (is-wxme-stream? port)
(let ([special-port (wxme-port->port port #f)])
(let loop ()
(let ([c (read-byte-or-special port)])
(cond
[(eof-object? c)
(close-input-port special-port)
#f]
[(byte? c)
(loop)]
[else
(close-input-port special-port)
#t]))))))))
#:get-extra-imports
(λ (path cm)
(fprintf (current-error-port) "path ~s\n" path)
(call-with-input-file path
(λ (port)
(cond
[(is-wxme-stream? port)
(let-values ([(snip-class-names data-class-names)
(extract-used-classes port)])
(fprintf (current-error-port)
"snip-class-names ~s data-class-names ~s\n"
snip-class-names data-class-names)
'())]
[else
'()]))))
|#
#:mred? #t)))))) #:mred? #t))))))
(define/private (filename->require-symbol fn) (define/private (filename->require-symbol fn)