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

privacy

Browse Source 
svn: r4374
This commit is contained in:
Jay McCarthy 2006-09-18 23:43:48 +00:00
parent 0dd180af95
commit d565b7eea0
6 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/info.ss
View File

@ -1,9 +1,9 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "Web Server") (define name "Web Server")
(define mzscheme-launcher-libraries (define mzscheme-launcher-libraries
(list "text-launch.ss" "monitor-launch.ss" "setup-launch.ss" )) (list "private/text-launch.ss" "private/monitor-launch.ss" "private/setup-launch.ss" ))
(define mzscheme-launcher-names (define mzscheme-launcher-names
(list "PLT Web Server Text" "PLT Web Server Monitor" "PLT Web Server Setup")) (list "PLT Web Server Text" "PLT Web Server Monitor" "PLT Web Server Setup"))
(define mred-launcher-libraries (list "gui-launch.ss")) (define mred-launcher-libraries (list "private/gui-launch.ss"))
(define mred-launcher-names (list "PLT Web Server"))) (define mred-launcher-names (list "PLT Web Server")))

2
collects/web-server/gui-launch.ss → collects/web-server/private/gui-launch.ss
View File

@ -1,7 +1,7 @@
(module gui-launch mzscheme (module gui-launch mzscheme
(require (lib "class.ss") (require (lib "class.ss")
(lib "mred.ss" "mred")) (lib "mred.ss" "mred"))
(require "private/launch.ss") (require "launch.ss")
(define shutdown (serve)) (define shutdown (serve))

4
collects/web-server/monitor-launch.ss → collects/web-server/private/monitor-launch.ss
View File

@ -1,7 +1,7 @@
; The main program of the "web-server-monitor" launcher. ; The main program of the "web-server-monitor" launcher.
(module monitor-launch mzscheme (module monitor-launch mzscheme
(require "private/monitor-server.ss" (require "monitor-server.ss"
"private/util.ss" "util.ss"
(lib "cmdline.ss")) (lib "cmdline.ss"))
; handle-numeric-flag : sym -> str str -> (cons sym num) ; handle-numeric-flag : sym -> str str -> (cons sym num)

8
collects/web-server/setup-launch.ss → collects/web-server/private/setup-launch.ss
View File

@ -2,10 +2,10 @@
(require (lib "cmdline.ss") (require (lib "cmdline.ss")
(lib "file.ss") (lib "file.ss")
(lib "struct.ss")) (lib "struct.ss"))
(require "configuration.ss" (require "../configuration.ss"
"private/configuration-table-structs.ss" "configuration-table-structs.ss"
"private/util.ss" "util.ss"
"private/configuration-util.ss") "configuration-util.ss")
(parse-command-line (parse-command-line
"web-server-setup" "web-server-setup"

4
collects/web-server/private/text-launch.ss Normal file
View File

@ -0,0 +1,4 @@
(module text-launch mzscheme
(require "launch.ss")
(serve)
(semaphore-wait (make-semaphore)))

4
collects/web-server/text-launch.ss
View File

@ -1,4 +0,0 @@
(module text-launch mzscheme
(require "private/launch.ss")
(serve)
(semaphore-wait (make-semaphore)))