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

.

Browse Source 
original commit: f93afffdc888a77312b57435956c5ec3014f024c
This commit is contained in:
Matthew Flatt 2002-02-13 21:39:24 +00:00
parent 37a0969025
commit f577617b2d
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/net/mime-util.ss
View File

@ -75,8 +75,7 @@
(cond ((string=? str "") out) (cond ((string=? str "") out)
(else (else
(let ((c (string-ref str 0))) (let ((c (string-ref str 0)))
(cond ((or (char=? c #\space) (cond ((memq c '(#\space #\tab #\newline #\return))
(char=? c #\tab))
(loop out (substring str 1 (string-length str)))) (loop out (substring str 1 (string-length str))))
((char=? c #\");; Begin of quoted string ((char=? c #\");; Begin of quoted string
(let-values ([(quoted rest) (let-values ([(quoted rest)
@ -93,13 +92,13 @@
(define trim-left (define trim-left
(lambda (str) (lambda (str)
(let* ((r (regexp "^[ ]*(.*)")) (let* ((r (regexp "^[ \t\r\n]*(.*)"))
(ans (regexp-match r str))) (ans (regexp-match r str)))
(and ans (regexp-replace r str "\\1"))))) (cadr ans))))
(define trim-right (define trim-right
(lambda (str) (lambda (str)
(let* ((r (regexp "[ ]*$")) (let* ((r (regexp "[ \t\r\n]*$"))
(pos (regexp-match-positions r str))) (pos (regexp-match-positions r str)))
(substring str 0 (caar pos))))) (substring str 0 (caar pos)))))

6
collects/net/mime.ss
View File

@ -33,12 +33,14 @@
"qp-sig.ss" "qp-sig.ss"
"qp.ss" "qp.ss"
"base64-sig.ss" "base64-sig.ss"
"base64.ss") "base64.ss"
"head-sig.ss"
"head.ss")
(define-values/invoke-unit/sig net:mime^ (define-values/invoke-unit/sig net:mime^
net:mime@ net:mime@
#f #f
net:base64^ net:qp^) net:base64^ net:qp^ net:head^)
(provide-signature-elements net:mime^)) (provide-signature-elements net:mime^))