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: ;; Only trims left and right spaces:
(define (trim-spaces str) (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 re:comments #rx"^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))")
(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 (trim-comments str) (define (trim-comments str)
(let ([positions (regexp-match-positions re:comments str)]) (let ([positions (regexp-match-positions re:comments str)])
(if positions (if positions
@ -106,15 +100,7 @@
(substring str (cdaddr positions) (string-length str))) (substring str (cdaddr positions) (string-length str)))
str))) str)))
(define (lowercase str) (define (lowercase str) (string-downcase 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 warning (define warning
void void