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

better url quoting

Browse Source 
svn: r8457

original commit: 9b4b838b5f
This commit is contained in:
Eli Barzilay 2008-01-29 02:55:55 +00:00
parent abdb9918fe
commit fdd76454d9
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/net/sendurl.ss
View File

@ -66,18 +66,22 @@
'macosx] 'macosx]
[else t])))) [else t]))))
;; used for quoting characters that will not work well in shell quotes
(define (quote-url url)
(define (escape str)
(apply string-append
(map (lambda (b)
(string-append
"%" (if (< b 16) "0" "") (number->string b 16)))
(bytes->list (string->bytes/utf-8 str)))))
(regexp-replace* #px"(?:[^[:graph:]]|[\"'`\\\\])" url escape))
;; send-url : str [bool] -> void ;; send-url : str [bool] -> void
(define (send-url url-str [separate-window? separate-by-default?]) (define (send-url url-str [separate-window? separate-by-default?])
(define stype (force systype)) (define stype (force systype))
(unless (string? url-str) (unless (string? url-str)
(error 'send-url "expected a string, got ~e" url-str)) (error 'send-url "expected a string, got ~e" url-str))
(let ([url-str (let ([url-str (quote-url url-str)])
;; quote characters that will not work well in shell quotes
(regexp-replace*
#rx"[\"'`$\\]" url-str
(lambda (m)
(string-append "%" (number->string (char->integer (string-ref m 0))
16))))])
(if (procedure? (external-browser)) (if (procedure? (external-browser))
((external-browser) url-str) ((external-browser) url-str)
(case stype (case stype