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

Query pairs should be separated by ;

Browse Source 
original commit: a89baab2f308c1c2232719723ab779a6e468b101
This commit is contained in:
Michael Burns 2004-08-26 19:06:38 +00:00
parent 933b8ac7c7
commit 86d03e750a
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -200,8 +200,21 @@
(define (form-urlencoded-decode str)
(decode form-urlencoded-decoding-vector str))
;; listof (cons symbol string) -> string
;; listof (cons string string) -> string
;; http://www.w3.org/TR/html401/appendix/notes.html#ampersands-in-uris
(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)
@ -216,14 +229,15 @@
[(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)
;; string -> listof (cons string string)
;; http://www.w3.org/TR/html401/appendix/notes.html#ampersands-in-uris
(define (form-urlencoded->alist str)
(define key-regexp (regexp "[^=]*"))
(define value-regexp (regexp "[^&]*"))
(define value-regexp (regexp "[^&;]*"))
(define (next-key str start)
(if (>= start (string-length str))
#f