28 lines
892 B
Scheme
28 lines
892 B
Scheme
|
;; utilities for surflets
|
||
|
|
;; Copyright 2002, 2003 Andreas Bernauer
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;;; from parse-html-forms (cgi-script)
|
||
|
|
;;; Return the form data as an alist of decoded strings.
|
||
|
|
;;; So a query string like "button=on&reply=Oh,%20yes" becomes alist
|
||
|
|
;;; (("button" . "on") ("reply" . "Oh, yes"))
|
||
|
|
;;; This works only for GET and POST methods.
|
||
|
|
|
||
|
|
(define (form-query-list q)
|
||
|
|
(if q
|
||
|
|
(parse-html-form-query q)
|
||
|
|
'()))
|
||
|
|
|
||
|
|
;; from uri.scm
|
||
|
|
(define (rev-append a b) ; (append (reverse a) b)
|
||
|
|
(let rev-app ((a a) (b b)) ; Should be defined in a list-proc
|
||
|
|
(if (pair? a) ; package, not here.
|
||
|
|
(rev-app (cdr a) (cons (car a) b))
|
||
|
|
b)))
|
||
|
|
|
||
|
|
;; FIXME: consider creating small names
|
||
|
|
(define generate-unique-name
|
||
|
|
(let ((id 0))
|
||
|
|
(lambda (type-string)
|
||
|
|
(set! id (+ 1 id))
|
||
|
|
(string-append type-string (number->string id)))))
|