;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.56 2003/08/06 10:03:21 kevin Exp $
+;;;; $Id: package.lisp,v 1.57 2003/08/09 21:42:43 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#:count-string-char
#:count-string-char-if
#:hexchar
- #:escape-uri-field
- #:unescape-uri-field
+ #:uriencode-string
+ #:uridecode-string
#:non-alphanumericp
#:random-string
#:first-char
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.50 2003/07/21 00:52:56 kevin Exp $
+;;;; $Id: strings.lisp,v 1.51 2003/08/09 21:42:43 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(+ 10 (- code +char-code-upper-a+))
(- code +char-code-0+))))
-(defun escape-uri-field (query)
+(defun uriencode-string (query)
"Escape non-alphanumeric characters for URI fields"
(declare (simple-string query)
(optimize (speed 3) (safety 0) (space 0)))
(setf (schar str dpos) (hexchar (logand c 15))))
(setf (schar str dpos) ch)))))
-(defun unescape-uri-field (query)
+(defun uridecode-string (query)
"Unescape non-alphanumeric characters for URI fields"
(declare (simple-string query)
(optimize (speed 3) (safety 0) (space 0)))