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: 332033f93ffde00270ba318d2680d55d5dfb26f6
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified html-filter.scm from [a71b1244d8] to [11f89f1bff].

︙︙
164
165
166
167
168
169
170

171
172
173
174
175
176
177
178

	  (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 (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)








>
|








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)
︙︙