suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

port num

Browse Source 
original commit: 719596d05304d61bb48561a63944cea9fae29713
This commit is contained in:
Paul Steckler 2002-07-11 21:07:14 +00:00
parent 304cfbf60c
commit 6697e45655
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/help/help.ss
View File

@ -11,6 +11,7 @@
(define launch-browser? #t) (define launch-browser? #t)
(define external-connections? #f) (define external-connections? #f)
(define port #f)
(command-line (command-line
"help-desk" "help-desk"
@ -19,9 +20,17 @@
[("-n" "--no-browser") "Do not launch browser" [("-n" "--no-browser") "Do not launch browser"
(set! launch-browser? #f)] (set! launch-browser? #f)]
[("-x" "--external-connections") "Allow external connections" [("-x" "--external-connections") "Allow external connections"
(set! external-connections? #t)])) (set! external-connections? #t)]
[("-p" "--port") number "Use given port number"
(with-handlers
((void (lambda _
(error "Help Desk: expected exact integer for port"))))
(let ([port-val (string->number number)])
(unless (and (integer? port-val) (exact? port-val))
(raise 'not-exact-integer))
(set! port port-val)))]))
(define hd-cookie (start-help-server external-connections?)) (define hd-cookie (start-help-server port external-connections?))
(define help-desk-port (hd-cookie->port hd-cookie)) (define help-desk-port (hd-cookie->port hd-cookie))
(define exit-sem (make-semaphore 0)) (define exit-sem (make-semaphore 0))