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

* revise requires to scheme/*

Browse Source 
* use `for' and better use of regexp patterns in `match'
* use a literal byte-regexp in `make-path->mime-type' and use it
  throught `match'
* delay reading of the mime types table (since there are uses like
  serve/servlet that will never use it anyway)

svn: r12527
This commit is contained in:
Eli Barzilay 2008-11-20 04:55:14 +00:00
parent 9405d57292
commit 8b5b87c807
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/web-server/private/mime-types.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require mzlib/contract
mzlib/plt-match
mzlib/string)
(require scheme/contract
scheme/match
scheme/promise)
(require "util.ss"
web-server/http)
(provide/contract
@ -17,13 +17,9 @@
(match (read-line (current-input-port) 'any)
[(? eof-object?)
(void)]
[(regexp #"^([^\t ]+)[\t ]+(.+)$"
(list s type exts))
(for-each (lambda (ext)
(hash-set! MIME-TYPE-TABLE
(lowercase-symbol! ext)
type))
(regexp-split #" " exts))
[(regexp #rx#"^([^\t ]+)[\t ]+(.+)$" (list _ type exts))
(for ([ext (in-list (regexp-split #" " exts))])
(hash-set! MIME-TYPE-TABLE (lowercase-symbol! ext) type))
(loop)]
[_
(loop)]))))
@ -36,12 +32,11 @@
;; 1. Can we determine the mime type based on file contents?
;; 2. Assuming that 7-bit ASCII is correct for mime-type
(define (make-path->mime-type a-path)
(define MIME-TYPE-TABLE (read-mime-types a-path))
(define file-suffix-regexp (byte-regexp #".*\\.([^\\.]*$)"))
(define MIME-TYPE-TABLE (delay (read-mime-types a-path)))
(lambda (path)
(match (regexp-match file-suffix-regexp (path->bytes path))
[(list path-bytes sffx)
(hash-ref MIME-TYPE-TABLE
(match (path->bytes path)
[(regexp #rx#".*\\.([^\\.]*$)" (list _ sffx))
(hash-ref (force MIME-TYPE-TABLE)
(lowercase-symbol! sffx)
(lambda () TEXT/HTML-MIME-TYPE))]
TEXT/HTML-MIME-TYPE)]
[_ TEXT/HTML-MIME-TYPE])))