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

No need to change anything when using the new launcher

Browse Source 
svn: r7170
This commit is contained in:
Eli Barzilay 2007-08-26 04:35:01 +00:00
parent 295f53b213
commit df22b0cbbd
8 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/help-desk.ss
View File

@ -1,7 +1,7 @@
(module help-desk mzscheme
(require
"bug-report.ss" ;; this is require'd here to get the prefs defaults setup done early.
"servlets/private/platform.ss" ;; same reason
"private/platform.ss" ;; same reason
"private/manuals.ss"
"private/buginfo.ss"

10
collects/help/launch.ss
View File

@ -21,16 +21,18 @@
(require (lib "web-server.ss" "web-server")
(lib "web-config-unit.ss" "web-server")
"private/config.ss"
"private/internal-hp.ss")
"private/internal-hp.ss"
"private/platform.ss")
(current-helpdesk-platform 'external-browser)
;; start the HelpDesk server, and store a shutdown
(define shutdown
(serve/web-config@ config))
(printf "Did you remember to change `current-helpdesk-platform' in \"platform.ss\"?\n\n")
(printf "Start here: http://~a:~a/servlets/home.ss\n\n"
(printf "\nStart here: http://~a:~a/servlets/home.ss\n\n"
internal-host internal-port)
(format "Press enter to shutdown.\n")
(printf "Press enter to shutdown.\n")
(read-line)
;(shutdown)

9
collects/help/private/config.ss
View File

@ -3,7 +3,8 @@
(lib "web-config-unit.ss" "web-server")
(lib "dirs.ss" "setup")
(lib "config.ss" "planet")
"internal-hp.ss")
"internal-hp.ss"
(lib "namespace.ss" "web-server" "configuration"))
(provide config)
@ -54,4 +55,8 @@
`(,virtual-host
,(make-host-config dir)))
(cons planet-host (append doc-hosts collects-hosts))
(cons (PLANET-DIR) (append doc-dirs collects-dirs)))))))))
(cons (PLANET-DIR) (append doc-dirs collects-dirs)))))
#:make-servlet-namespace
(make-make-servlet-namespace
#:to-be-copied-module-specs
'((lib "platform.ss" "help" "private")))))))

0
collects/help/servlets/private/platform.ss → collects/help/private/platform.ss
View File

4
collects/help/servlets/home.ss
View File

@ -10,7 +10,7 @@
"private/url.ss"
"private/html.ss"
"private/split-screen.ss"
"private/platform.ss")
"../private/platform.ss")
(define copyright-year 2007)
@ -464,4 +464,4 @@
(p "A paper that discusses DrScheme in more detail is available in the paper: "
(a ((href "http://www.ccs.neu.edu/scheme/pubs/#jfp01-fcffksf"))
"DrScheme: A Programming Environment for Scheme."))))
)))
)))

4
collects/help/servlets/private/split-screen.ss
View File

@ -3,7 +3,7 @@
(only (lib "misc.ss" "swindle") mappend)
"html.ss"
"url.ss"
"platform.ss")
"../../private/platform.ss")
; These items are common to all split screens
@ -122,4 +122,4 @@
make-split-page/internal-browser
make-simple-page/internal-browser)
)
)

4
collects/help/servlets/results.ss
View File

@ -21,7 +21,7 @@ is stored in a module top-level and that's namespace-specific.
"private/util.ss"
"private/search-util.ss"
"private/html.ss"
"private/platform.ss")
"../private/platform.ss")
(provide interface-version timeout start)
(define interface-version 'v1)
(define timeout +inf.0)
@ -332,4 +332,4 @@ is stored in a module top-level and that's namespace-specific.
[else #t])
lang-name)))])))))))

4
collects/help/servlets/static.ss
View File

@ -12,7 +12,7 @@
(lib "port.ss")
"../private/standard-urls.ss"
"../private/docpos.ss"
"private/platform.ss"
"../private/platform.ss"
"private/html.ss")
(provide interface-version timeout start)
@ -121,4 +121,4 @@
(format "<html><head><title>Not found</title></head><body>File not found: ~a</body></html>"
file-path))]))))))
)
)