36 lines
1.4 KiB
Factor
Executable File
36 lines
1.4 KiB
Factor
Executable File
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: io assocs kernel sequences math namespaces splitting ;
|
|
|
|
IN: http.mime
|
|
|
|
: file-extension ( filename -- extension )
|
|
"." split dup length 1 <= [ drop f ] [ peek ] if ;
|
|
|
|
: mime-type ( filename -- mime-type )
|
|
file-extension "mime-types" get at "application/octet-stream" or ;
|
|
|
|
H{
|
|
{ "html" "text/html" }
|
|
{ "txt" "text/plain" }
|
|
{ "xml" "text/xml" }
|
|
{ "css" "text/css" }
|
|
|
|
{ "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" }
|
|
|
|
{ "pdf" "application/pdf" }
|
|
|
|
{ "factor" "text/plain" }
|
|
{ "cgi" "application/x-cgi-script" }
|
|
{ "fhtml" "application/x-factor-server-page" }
|
|
} "mime-types" set-global
|