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

.

Browse Source 
original commit: 71b026d8e69ce6b44e0d9150c90f095ea6f2641e
This commit is contained in:
Robby Findler 2004-04-21 19:20:10 +00:00
parent 491406fe7c
commit 36c485ab40
1 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
collects/help/help.ss
View File

@ -3,18 +3,38 @@
(define install-cm? (getenv cm-env-var)) (define install-cm? (getenv cm-env-var))
(define cm-trace? (and install-cm? (equal? (getenv cm-env-var) "trace"))) (define cm-trace? (and install-cm? (equal? (getenv cm-env-var) "trace")))
(when install-cm? (define et-env-var "PLTHDDEBUG")
(printf "~a: installing compilation manager\n" cm-env-var) (define errortrace? (getenv et-env-var))
(let-values ([(make-compilation-manager-load/use-compiled-handler
manager-trace-handler) (cond
(parameterize ([current-namespace (make-namespace)]) [errortrace?
(values (printf "~a: installing errortrace & compilation manager\n" et-env-var)
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler) (use-compiled-file-paths (list (build-path "compiled" "errortrace")))
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))]) (error-display-handler (dynamic-require '(lib "errortrace-lib.ss" "errortrace")
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)) 'errortrace-error-display-handler))
(when cm-trace? (let-values ([(current-managed-zo-compile
(manager-trace-handler make-compilation-manager-load/use-compiled-handler
(lambda (x) (display x) (newline)))))) manager-trace-handler)
(parameterize ([current-namespace (make-namespace)])
(values
(dynamic-require '(lib "cm.ss") 'current-managed-zo-compile)
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))])
(current-managed-zo-compile
(dynamic-require '(lib "zo-compile.ss" "errortrace") 'zo-compile))
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)))]
[install-cm?
(printf "~a: installing compilation manager\n" cm-env-var)
(let-values ([(make-compilation-manager-load/use-compiled-handler
manager-trace-handler)
(parameterize ([current-namespace (make-namespace)])
(values
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))])
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))
(when cm-trace?
(manager-trace-handler
(lambda (x) (display x) (newline)))))])
;; start help desk for real ;; start help desk for real
(dynamic-require '(lib "help-app-main.ss" "help" "private") #f)) (dynamic-require '(lib "help-app-main.ss" "help" "private") #f))