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

removed old macos classic code

Browse Source 
svn: r6188
This commit is contained in:
Eli Barzilay 2007-05-10 16:10:03 +00:00
parent 747c6dca6a
commit b0ead7f2d6
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/net/sendurl.ss
View File

@ -39,9 +39,6 @@
(cond (cond
[(procedure? external) (external url-str)] [(procedure? external) (external url-str)]
[(force osx-browser?) [(force osx-browser?)
;; not sure what changed, but this is wrong now.... -robby
;; (browser-process (format "osascript -e 'open location \"~a\"'"
;; (regexp-replace* "%" url-str "%25")))
(browser-process (format "osascript -e 'open location \"~a\"'" url-str))] (browser-process (format "osascript -e 'open location \"~a\"'" url-str))]
[(eq? stype 'windows) [(eq? stype 'windows)
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
@ -85,29 +82,6 @@
[else [else
(error 'send-url "Couldn't find ~a to open URL: ~e" (error 'send-url "Couldn't find ~a to open URL: ~e"
(orify unix-browser-list) url-str)]))] (orify unix-browser-list) url-str)]))]
#; ; macos is dead -- this code should be removed if nobody shouts
[(eq? stype 'macos)
(if (regexp-match "Blue Box" (system-type 'machine))
;; Classic inside OS X:
(let loop ([l '("MSIE" "NAVG")])
(if (null? l)
(error 'send-url "couldn't start Internet Explorer or Netscape")
(with-handlers ([exn:fail? (lambda (x) (loop (cdr l)))])
(subprocess #f #f #f "by-id" (car l))
(let loop ([retries 2]) ;; <<< Yuck <<<
(if (zero? retries)
(error "enough already") ; caught above
(with-handlers ([exn:fail?
(lambda (x) (loop (sub1 retries)))])
(let ([t (thread
(lambda ()
(send-event (car l) "GURL" "GURL" url-str)))])
(sync/timeout 1 t) ;; <<< Yuck (timeout) <<<
(when (thread-running? t)
(kill-thread t)
(error "timeout")))))))))
;; Normal OS Classic:
(send-event "MACS" "GURL" "GURL" url-str))]
[else (error 'send-url [else (error 'send-url
"don't know how to open URL on platform: ~s" stype)])) "don't know how to open URL on platform: ~s" stype)]))