2005-03-18 21:41:13 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: httpd
|
2005-06-19 17:50:35 -04:00
|
|
|
USING: io hashtables kernel lists namespaces ;
|
2005-03-18 21:41:13 -05:00
|
|
|
|
|
|
|
|
: set-mime-types ( assoc -- )
|
|
|
|
|
"mime-types" global set-hash ;
|
|
|
|
|
|
|
|
|
|
: mime-types ( -- assoc )
|
|
|
|
|
"mime-types" global hash ;
|
|
|
|
|
|
|
|
|
|
: mime-type ( filename -- mime-type )
|
|
|
|
|
file-extension mime-types assoc [ "text/plain" ] unless* ;
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
[[ "html" "text/html" ]]
|
|
|
|
|
[[ "txt" "text/plain" ]]
|
2005-05-23 19:27:36 -04:00
|
|
|
[[ "xml" "text/xml" ]]
|
2005-03-18 21:41:13 -05:00
|
|
|
|
|
|
|
|
[[ "gif" "image/gif" ]]
|
|
|
|
|
[[ "png" "image/png" ]]
|
|
|
|
|
[[ "jpg" "image/jpeg" ]]
|
|
|
|
|
[[ "jpeg" "image/jpeg" ]]
|
|
|
|
|
|
|
|
|
|
[[ "jar" "application/octet-stream" ]]
|
|
|
|
|
[[ "zip" "application/octet-stream" ]]
|
|
|
|
|
[[ "tgz" "application/octet-stream" ]]
|
|
|
|
|
[[ "tar.gz" "application/octet-stream" ]]
|
|
|
|
|
[[ "gz" "application/octet-stream" ]]
|
|
|
|
|
|
|
|
|
|
[[ "factor" "application/x-factor" ]]
|
|
|
|
|
[[ "factsp" "application/x-factor-server-page" ]]
|
|
|
|
|
] set-mime-types
|
