<RefEntry id="url-encode-string"> <!-- This file is generated automatically from the DSSSL source. --> <!-- Do not edit this file! --> <?html-filename url-encode-string.html> <RefMeta> <RefEntryTitle>url-encode-string</RefEntryTitle> <RefMiscInfo Role="file">dblib.dsl</RefMiscInfo> </RefMeta> <RefNameDiv> <RefName>url-encode-string</RefName> <RefPurpose>Returns str with all special characters %-encoded</RefPurpose> </RefNameDiv> <RefSynopsisDiv><Title>Synopsis</Title> <Synopsis> (url-encode-string str) </Synopsis> </RefSynopsisDiv> <RefSect1><Title>Description</Title> <para> Converts <literal>str</literal> to a properly encoded URL string. Returns str unchanged if it is not a string.</para> </RefSect1> <RefSect1><Title>Author</Title> <para> Norman Walsh, <ndw@nwalsh.com> </para> </RefSect1> <RefSect1><Title>Source Code</Title> <ProgramListing> (define (url-encode-string str) ;; Returns str with all special characters %-encoded (if (string? str) (let loop ((charlist (string->list str)) (url "")) (if (null? charlist) url (loop (cdr charlist) (string-append url (url-encode-char (car charlist)))))) str)) </ProgramListing> </RefSect1> </RefEntry>