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

.

Browse Source 
original commit: f64490b81c7cb4661eb1f72ebbae059cd07871a4
This commit is contained in:
Matthew Flatt 2001-12-20 17:36:11 +00:00
parent a450ad9490
commit 05b3a0cab1
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
collects/net/sendurl.ss
View File

@ -1,6 +1,7 @@
(module sendurl mzscheme
(require (lib "process.ss"))
(require (lib "process.ss")
(lib "file.ss"))
(provide send-url)
@ -24,28 +25,33 @@
(close-input-port err)))
(error 'send-url "don't know how to open URL in Windows without MrEd")))]
[(unix)
(cond
[(find-executable-path "opera" #f)
=>
(lambda (browser-path)
;; opera may not return -- always open asyncronously
;; opera starts a new browser automatically, if it can't find one
(let-values ([(out in id err status) (apply
values
(process* browser-path "-remote" (format "openURL(~a)" str)))])
(close-output-port in)
(close-input-port out)
(close-input-port err)))]
[(find-executable-path "netscape" #f)
=>
(lambda (browser-path)
;; netscape's -remote returns with an error code, if no
;; netscape is around. start a new netscape in that case.
(or (system* browser-path "-remote" (format "openURL(~a)" str))
(let-values ([(out in id err status) (apply values (process* browser-path str))])
(close-output-port in)
(close-input-port out)
(close-input-port err))))]
[else
(error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)])]
(let ([preferred (get-preference 'external-browser (lambda () #f))])
(cond
[(and (or (not preferred)
(eq? preferred 'opera))
(find-executable-path "opera" #f))
=>
(lambda (browser-path)
;; opera may not return -- always open asyncronously
;; opera starts a new browser automatically, if it can't find one
(let-values ([(out in id err status) (apply
values
(process* browser-path "-remote" (format "openURL(~a)" str)))])
(close-output-port in)
(close-input-port out)
(close-input-port err)))]
[(and (and (or (not preferred)
(eq? preferred 'netscape)))
(find-executable-path "netscape" #f))
=>
(lambda (browser-path)
;; netscape's -remote returns with an error code, if no
;; netscape is around. start a new netscape in that case.
(or (system* browser-path "-remote" (format "openURL(~a)" str))
(let-values ([(out in id err status) (apply values (process* browser-path str))])
(close-output-port in)
(close-input-port out)
(close-input-port err))))]
[else
(error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)]))]
[else (error 'send-url "don't know how to open URL on platform: ~s" (system-type))])))