39 lines
1.2 KiB
Scheme
39 lines
1.2 KiB
Scheme
(module internal-hp mzscheme
|
|
(require (lib "dirs.ss" "setup"))
|
|
(provide internal-port internal-host
|
|
collects-hosts collects-dirs
|
|
doc-hosts doc-dirs)
|
|
|
|
;; Hostnames defined here should not exist as real machines
|
|
|
|
;; The general idea is that there's one virtual host for
|
|
;; every filesystem tree that we need to access.
|
|
;; The "get-help-url.ss" library provides a function to
|
|
;; convert a path into a suitable URL (i.e., a URL using
|
|
;; the right virtual host).
|
|
;; The "gui.ss" library performs a bit of extra URL
|
|
;; processing at the last minute, sometimes switching
|
|
;; a URL for a manual to a different host. (That's needed
|
|
;; when cross-manual references are implemented as relative
|
|
;; URLs.)
|
|
|
|
(define internal-host "helpdesk.plt-scheme.org")
|
|
(define internal-port 8000)
|
|
|
|
(define (generate-hosts prefix dirs)
|
|
(let loop ([dirs dirs][n 0])
|
|
(if (null? dirs)
|
|
null
|
|
(cons (format "~a~a.helpdesk.plt-scheme.org" prefix n)
|
|
(loop (cdr dirs) (add1 n))))))
|
|
|
|
(define collects-dirs
|
|
(get-collects-search-dirs))
|
|
(define collects-hosts
|
|
(generate-hosts "collects" collects-dirs))
|
|
|
|
(define doc-dirs
|
|
(get-doc-search-dirs))
|
|
(define doc-hosts
|
|
(generate-hosts "doc" doc-dirs)))
|