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

some obvious-ness

Browse Source 
svn: r16595

original commit: bac7b6318b
This commit is contained in:
Eli Barzilay 2009-11-07 02:39:10 +00:00
parent 1d0a044921
commit 11341711ff
1 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -88,17 +88,11 @@
;; Only trims left and right spaces:
(define (trim-spaces str)
(trim-right (trim-left str)))
(regexp-replace #rx"[ \t\r\n\v]+$"
(regexp-replace #rx"^[ \t\r\n\v]+" str "")
""))
(define re:left-spaces (regexp "^[ \t\r\n\v]+"))
(define (trim-left str)
(regexp-replace re:left-spaces str ""))
(define re:right-spaces (regexp "[ \t\r\n\v]+$"))
(define (trim-right str)
(regexp-replace re:right-spaces str ""))
(define re:comments (regexp "^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))"))
(define re:comments #rx"^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))")
(define (trim-comments str)
(let ([positions (regexp-match-positions re:comments str)])
(if positions
@ -106,15 +100,7 @@
(substring str (cdaddr positions) (string-length str)))
str)))
(define (lowercase str)
(let loop ([out ""] [rest str] [size (string-length str)])
(cond [(zero? size) out]
[else
(loop (string-append out (string
(char-downcase
(string-ref rest 0))))
(substring rest 1 size)
(sub1 size))])))
(define (lowercase str) (string-downcase str))
(define warning
void