mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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

34
module/web/uri.scm
View file

@ -330,27 +330,29 @@ bytes are not valid for the given encoding. Pass @code{#f} for
;;
(define* (uri-encode str #:key (encoding "utf-8")
(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
within the given @var{encoding}, then encodes each byte as
@code{%@var{HH}}, where @var{HH} is the hexadecimal representation of
the byte."
(call-with-output-string
(lambda (port)
(string-for-each
(lambda (ch)
(if (char-set-contains? unescaped-chars ch)
(display ch port)
(let* ((bv (encode-string (string ch) encoding))
(len (bytevector-length bv)))
(let lp ((i 0))
(if (< i len)
(let ((byte (bytevector-u8-ref bv i)))
(display #\% port)
(display (number->string byte 16) port)
(lp (1+ i))))))))
str))))
(if (string-index str unescaped-chars)
(call-with-output-string
(lambda (port)
(string-for-each
(lambda (ch)
(if (char-set-contains? unescaped-chars ch)
(display ch port)
(let* ((bv (encode-string (string ch) encoding))
(len (bytevector-length bv)))
(let lp ((i 0))
(if (< i len)
(let ((byte (bytevector-u8-ref bv i)))
(display #\% port)
(display (number->string byte 16) port)
(lp (1+ i))))))))
str)))
str))
(define (split-and-decode-uri-path path)
"Split @var{path} into its components, and decode each