mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

uri-encode fast path

Browse source 
* module/web/uri.scm (uri-encode): Add a fast-path for the common case
  in which the string does not contain any reserved characters.
This commit is contained in:
Andy Wingo 2011-01-02 10:07:54 -05:00
parent 7d6b8b75fc
commit 91b320fe16
1 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/web/uri.scm
View file

@ -330,12 +330,13 @@ bytes are not valid for the given encoding. Pass @code{#f} for
;; ;;
(define* (uri-encode str #:key (encoding "utf-8") (define* (uri-encode str #:key (encoding "utf-8")
(unescaped-chars unreserved-chars)) (unescaped-chars unreserved-chars))
"Percent-encode any character not in @var{unescaped-chars}. "Percent-encode any character not in the character set, @var{unescaped-chars}.
Percent-encoding first writes out the given character to a bytevector Percent-encoding first writes out the given character to a bytevector
within the given @var{encoding}, then encodes each byte as within the given @var{encoding}, then encodes each byte as
@code{%@var{HH}}, where @var{HH} is the hexadecimal representation of @code{%@var{HH}}, where @var{HH} is the hexadecimal representation of
the byte." the byte."
(if (string-index str unescaped-chars)
(call-with-output-string (call-with-output-string
(lambda (port) (lambda (port)
(string-for-each (string-for-each
@ -350,7 +351,8 @@ the byte."
(display #\% port) (display #\% port)
(display (number->string byte 16) port) (display (number->string byte 16) port)
(lp (1+ i)))))))) (lp (1+ i))))))))
str)))) str)))
str))
(define (split-and-decode-uri-path path) (define (split-and-decode-uri-path path)
"Split @var{path} into its components, and decode each "Split @var{path} into its components, and decode each