Overview
| Comment: | deal somewhat gracefully with improper %num escaped char in URL |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | selfcontained |
| Files: | files | file ages | folders |
| SHA1: |
332033f93ffde00270ba318d2680d55d |
| User & Date: | matt on 2015-11-15 02:20:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-12-22
| ||
| 03:27 | Merged selfcontained back to trunk check-in: f276a48081 user: matt tags: trunk | |
|
2015-11-15
| ||
| 02:20 | deal somewhat gracefully with improper %num escaped char in URL Leaf check-in: 332033f93f user: matt tags: selfcontained | |
|
2015-10-28
| ||
| 06:17 | Corrected get-path-params from get-page-params check-in: 460f848f5f user: matt tags: selfcontained | |
Changes
Modified html-filter.scm from [a71b1244d8] to [11f89f1bff].
| ︙ | ︙ | |||
164 165 166 167 168 169 170 | (if (string=? head "") (if (null? tail) result (loop (car tail)(cdr tail) result)) (let* ((key (substring head 0 2)) (rem (substring head 2 (string-length head))) (num (string->number key 16)) | > | | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 |
(if (string=? head "")
(if (null? tail)
result
(loop (car tail)(cdr tail) result))
(let* ((key (substring head 0 2))
(rem (substring head 2 (string-length head)))
(num (string->number key 16))
(ch (if (and (number? num)
(exact? num))
(integer->char num)
#f)) ;; this is an error. I will probably regret this some day
(chstr (if ch (make-string 1 ch) ""))
(newres (if ch
(string-append result chstr rem)
(string-append result head))))
;; (print "head: " head " num: " num " ch: |" ch "| chstr: " chstr)
|
| ︙ | ︙ |