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

moved internal-port to options.ss

Browse Source 
svn: r7173
This commit is contained in:
Eli Barzilay 2007-08-26 05:48:55 +00:00
parent 54cec85b45
commit 592be14b81
3 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/launch.ss
View File

@ -17,7 +17,7 @@
(require (lib "web-server.ss" "web-server") (require (lib "web-server.ss" "web-server")
(lib "web-config-unit.ss" "web-server") (lib "web-config-unit.ss" "web-server")
"private/config.ss" "private/config.ss"
"private/internal-hp.ss" (only "private/internal-hp.ss" internal-host)
"private/options.ss") "private/options.ss")
(helpdesk-platform 'external-browser) (helpdesk-platform 'external-browser)
@ -27,7 +27,7 @@
(serve/web-config@ config)) (serve/web-config@ config))
(printf "\nStart here: http://~a:~a/servlets/home.ss\n\n" (printf "\nStart here: http://~a:~a/servlets/home.ss\n\n"
internal-host internal-port) internal-host (internal-port))
(printf "Press enter to shutdown.\n") (printf "Press enter to shutdown.\n")
(read-line) (read-line)

15
collects/help/private/internal-hp.ss
View File

@ -1,7 +1,8 @@
(module internal-hp mzscheme (module internal-hp mzscheme
(require (lib "dirs.ss" "setup") (require (lib "dirs.ss" "setup")
(lib "config.ss" "planet")) (lib "config.ss" "planet")
(provide internal-port "options.ss")
(provide (rename internal-port* internal-port)
is-internal-host? internal-host is-internal-host? internal-host
collects-hosts collects-dirs collects-hosts collects-dirs
doc-hosts doc-dirs doc-hosts doc-dirs
@ -12,8 +13,8 @@
;; The general idea is that there's one "virtual" host for ;; The general idea is that there's one "virtual" host for
;; every filesystem tree that we need to access. ;; every filesystem tree that we need to access.
;; (now we use static.ss/host/yadayda instead of the virtual ;; (now we use static.ss/host/yadayda instead of the virtual
; host docX.localhost, but we still need to keep track of ;; host docX.localhost, but we still need to keep track of
; the file system roots) ;; the file system roots)
;; The "get-help-url.ss" library provides a function to ;; The "get-help-url.ss" library provides a function to
;; convert a path into a suitable URL (i.e., a URL using ;; convert a path into a suitable URL (i.e., a URL using
;; the right virtual host). ;; the right virtual host).
@ -24,7 +25,11 @@
;; URLs.) ;; URLs.)
(define internal-host "localhost") (define internal-host "localhost")
(define internal-port 8012) ;; fake an internal-port binding (actually a parameter in options.ss)
(define-syntax internal-port*
(syntax-id-rules ()
[(x . xs) ((internal-port) . xs)]
[x (internal-port)]))
(define (is-internal-host? str) (define (is-internal-host? str)
(member str all-internal-hosts)) (member str all-internal-hosts))

4
collects/help/private/options.ss
View File

@ -15,4 +15,8 @@
;; 'external-browser ;; 'external-browser
)) ))
;; Port for the server to listen on
;; (relevant only for a standalone server)
(define internal-port (make-parameter 8012))
) )