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

.

Browse Source 
original commit: a8096f4985da40684712583aa6ed49c974a1d41f
This commit is contained in:
Robby Findler 2004-08-20 20:21:41 +00:00
parent 38ad8e3b79
commit 2a9bb5235d
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
collects/net/uri-codec-unit.ss
View File

@ -73,6 +73,7 @@
(require (lib "unitsig.ss")
(lib "match.ss")
(lib "string.ss")
"uri-codec-sig.ss")
(provide uri-codec@)
@ -199,20 +200,25 @@
(define (form-urlencoded-decode str)
(decode form-urlencoded-decoding-vector str))
;; listof (cons string string) -> string
;; listof (cons symbol string) -> string
(define alist->form-urlencoded
(match-lambda
[() ""]
[((name . value))
(string-append (form-urlencoded-encode name)
"="
(form-urlencoded-encode value))]
[((name . value) . rest)
(string-append (form-urlencoded-encode name)
"="
(form-urlencoded-encode value)
"&"
(alist->form-urlencoded rest))]))
(lambda (args)
(let* ([format-one
(lambda (arg)
(let* ([name (car arg)]
[value (cdr arg)])
(string-append
(form-urlencoded-encode (symbol->string name))
"="
(form-urlencoded-encode value))))]
[strs (let loop ([args args])
(cond
[(null? args) null]
[(null? (cdr args)) (list (format-one (car args)))]
[else (list* (format-one (car args))
"&"
(loop (cdr args)))]))])
(apply string-append strs))))
;; string -> listof (cons string string)
(define (form-urlencoded->alist str)
@ -223,7 +229,9 @@
#f
(match (regexp-match-positions key-regexp str start)
[((start . end))
(vector (form-urlencoded-decode (substring str start end))
(vector (let ([s (form-urlencoded-decode (substring str start end))])
(string-lowercase! s)
(string->symbol s))
(add1 end))]
[#f #f])))
(define (next-value str start)