Differences From Artifact [14891b2741]:
- File html-filter.scm — part of check-in [8b94f6cb84] at 2016-09-21 04:31:57 on branch trunk — Trim \n sillyness from escaped strings (user: matt, size: 7547) [annotate] [blame] [check-ins using]
To Artifact [7dc1b6a3b0]:
- File html-filter.scm — part of check-in [44c407806c] at 2016-09-24 07:07:37 on branch trunk — Added recovery from bad form. but it is broken and I don't know why. Still seems rare ... (user: matt, size: 7621) [annotate] [blame] [check-ins using]
| ︙ | |||
177 178 179 180 181 182 183 184 185 186 187 188 189 190 | 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 | + + + + + |
(string-append result chstr rem)
(string-append result head))))
;; (print "head: " head " num: " num " ch: |" ch "| chstr: " chstr)
(if (null? tail)
newres
(loop (car tail)(cdr tail) newres))))))))
;; probably a bug:
;;
;; (s:process-cgi-input "=bar")
;; => ((bar ""))
;;
(define (s:process-cgi-input instr)
(map (lambda (xy)
(list (string->symbol (s:decode-str (car xy)))
(if (eq? (length xy) 1)
""
(s:decode-str (cadr xy)))))
(s:divy-up-cgi-str instr)))
|
| ︙ |