/src/util/query-string.lisp

 1
 2(in-package :oauth)
 3
 4(defun alist->query-string (alist &key (include-leading-ampersand t) url-encode)
 5  (let* ((plist (splice-alist alist))
 6	 (plist* (if url-encode
 7                     (loop for (key value) on plist by #'cddr
 8                           collect (url-encode (string key))
 9                           collect (url-encode value))
10                     plist))
11	 (result (format nil "~{&~A=~A~}" plist*)))
12    (subseq ; TODO: nsubseq http://darcs.informatimago.com/lisp/common-lisp/utility.lisp
13      result
14      (if (or (zerop (length result)) include-leading-ampersand)
15        0
16        1))))
17
18(defun query-string->alist (query-string)
19  ;; TODO: doesn't handle leading ?
20  (check-type query-string string)
21  (let* ((kv-pairs (remove "" (split-sequence #\& query-string) :test #'equal))
22         (alist (mapcar (lambda (kv-pair)
23                          (let ((kv (split-sequence #\= kv-pair)))
24                            (cons (first kv) (second kv))))
25                        kv-pairs)))
26    alist))
27