collects/net/uri-codec.rkt

42 ;; The module provides functions to encode and decode strings using
43 ;; the URI encoding rules given in RFC 2396, and to encode and decode
48 ;; The URI encoding uses allows a few characters to be represented `as
55 ;; The encoding, inline with RFC 2396's recommendation, represents a
63 ;;   1. Control names and values are escaped. Space characters are
64 ;;   replaced by `+', and then reserved characters are escaped as
76 ;; This differs slightly from the straight encoding in RFC 2396 in
78 ;; convention, encoding a space as `+' and decoding `+' as a space.
80 ;; encode `!', `~', `'', `(' and ')' using their hex representation.
83 ;; Draws inspiration from encode-decode.scm by Kurt Normark and a code
88 (provide uri-encode                         uri-decode
89          uri-path-segment-encode            uri-path-segment-decode
90          uri-userinfo-encode                uri-userinfo-decode
91          uri-unreserved-encode              uri-unreserved-decode
92          uri-path-segment-unreserved-encode uri-path-segment-unreserved-decode
93          form-urlencoded-encode             form-urlencoded-decode
141   (define encoding-table (build-vector ascii-size number->hex-string))
144     (vector-set! encoding-table
150   (values encoding-table decoding-table))
153 (define (encode table str)  function
207              (define (encoder str) (encode v:en str))
214   [uri-encode uri-decode uri-mapping]
215   [uri-path-segment-encode uri-path-segment-decode uri-path-segment-mapping]
216   [uri-userinfo-encode uri-userinfo-decode uri-userinfo-mapping]
217   [uri-unreserved-encode uri-unreserved-decode unreserved-mapping]
218   [uri-path-segment-unreserved-encode uri-path-segment-unreserved-decode
220   [form-urlencoded-encode form-urlencoded-decode form-urlencoded-mapping])
228      (define name  (form-urlencoded-encode (symbol->string (car arg))))
229      (define value (and (cdr arg) (form-urlencoded-encode (cdr arg))))