suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

,

Browse Source 
original commit: 0e287bfe7a6b56812fb89648760086bfcccaf39e
This commit is contained in:
Matthew Flatt 2003-01-14 14:01:32 +00:00
parent 4d2d83b7da
commit fc05c43d6f
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/net/mime-unit.ss
View File

@ -648,20 +648,23 @@
(cdr ans)))))
;; parameter := attribute "=" value
(define re:parameter (regexp "([^=]+)=(.+)"))
(define parameter
(lambda (par)
(let* ((r (regexp "([^=]+)=(.+)"))
(let* ((r re:parameter)
(att (attribute (regexp-replace r par "\\1")))
(val (value (regexp-replace r par "\\2"))))
(and (regexp-match r par)
att val (cons (lowercase att) val)))))
(if (regexp-match r par)
(cons (if att (lowercase att) "???") val)
(cons "???" par)))))
;; value := token / quoted-string
(define value
(lambda (val)
(or (token val)
(quoted-string val))))
(quoted-string val)
val)))
;; token := 1*<any (US-ASCII) CHAR except SPACE, CTLs,
;; or tspecials>
;; tspecials := "(" / ")" / "<" / ">" / "@" /
@ -682,10 +685,10 @@
;; ; is ALWAYS case-insensitive.
(define attribute token)
(define re:quotes (regexp "\"(.+)\""))
(define quoted-string
(lambda (str)
(let* ((quotes (regexp "\"(.+)\""))
(let* ((quotes re:quotes)
(ans (regexp-match quotes str)))
(and ans
(regexp-replace quotes str "\\1")))))