Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more types
authorClaus Gittinger <cg@exept.de>
Sat, 01 Aug 1998 17:28:54 +0200
changeset 1022 bd0b1d58acba
parent 1021 004c324dc31a
child 1023 1b8b88f00530
more types
MIMETypes.st file | annotate | diff | comparison | revisions 
--- a/MIMETypes.st	Sat Aug 01 17:05:00 1998 +0200
+++ b/MIMETypes.st	Sat Aug 01 17:28:54 1998 +0200
@@ -59,61 +59,112 @@
 initialize
     "initialize wellKnown facts"
 
-    |t|
+    |typeToImageReaderClassMapping fileSuffixToTypeMapping
+     fileSuffixToImageReaderClassMapping charSetToFontMapping|
 
-    (t := TypeToImageReaderClassMapping) isNil ifTrue:[
-	TypeToImageReaderClassMapping := t := Dictionary new
-    ].
-    t at:'image/jpeg' put:JPEGReader.
-    t at:'image/gif'  put:GIFReader.
-    t at:'image/tiff' put:TIFFReader.
+    "/ image formats.
 
-    (t := FileSuffixToTypeMapping) isNil ifTrue:[
-	FileSuffixToTypeMapping := t := Dictionary new
+    (typeToImageReaderClassMapping := TypeToImageReaderClassMapping) isNil ifTrue:[
+        TypeToImageReaderClassMapping := typeToImageReaderClassMapping := Dictionary new
     ].
-    t at:'jpg' put:'image/jpeg'.
-    t at:'gif' put:'image/gif'.
-    t at:'tif' put:'image/tiff'.
+    typeToImageReaderClassMapping at:'image/jpeg' put:JPEGReader.
+    typeToImageReaderClassMapping at:'image/gif'  put:GIFReader.
+    typeToImageReaderClassMapping at:'image/tiff' put:TIFFReader.
 
-    t at:'htm'  put:'text/html'.
-    t at:'html' put:'text/html'.
-    t at:'ps'   put:'application/postscript'.
-
-    (t := FileSuffixToImageReaderClassMapping) isNil ifTrue:[
-	FileSuffixToImageReaderClassMapping := t := Dictionary new
+    (fileSuffixToTypeMapping := FileSuffixToTypeMapping) isNil ifTrue:[
+        FileSuffixToTypeMapping := fileSuffixToTypeMapping := Dictionary new
     ].
-    t at:'jpg'  put:JPEGReader.
-    t at:'gif'  put:GIFReader.
-    t at:'tif'  put:TIFFReader.
+    fileSuffixToTypeMapping at:'jpg' put:'image/jpeg'.
+    fileSuffixToTypeMapping at:'gif' put:'image/gif'.
+    fileSuffixToTypeMapping at:'tif' put:'image/tiff'.
+    fileSuffixToTypeMapping at:'xbm' put:'image/x-xbitmap'.
+    fileSuffixToTypeMapping at:'xpm' put:'image/x-xpixmap'.
+    fileSuffixToTypeMapping at:'png' put:'image/x-png'.
+    fileSuffixToTypeMapping at:'pcd' put:'image/x-photo-cd'.
+    fileSuffixToTypeMapping at:'bmp' put:'image/x-MS-bmp'.
+    fileSuffixToTypeMapping at:'rgb' put:'image/x-rgb'.
+    fileSuffixToTypeMapping at:'ppm' put:'image/x-portable-pixmap'.
+    fileSuffixToTypeMapping at:'pgm' put:'image/x-portable-graymap'.
+    fileSuffixToTypeMapping at:'pbm' put:'image/x-portable-bitmap'.
+    fileSuffixToTypeMapping at:'pnm' put:'image/x-portable-anymap'.
+    fileSuffixToTypeMapping at:'xwd' put:'image/x-xwindowdump'.
+    fileSuffixToTypeMapping at:'ras' put:'image/x-cmu-raster'.
+
+    fileSuffixToTypeMapping at:'htm'  put:'text/html'.
+    fileSuffixToTypeMapping at:'html' put:'text/html'.
+    fileSuffixToTypeMapping at:'ps'   put:'application/postscript'.
+    fileSuffixToTypeMapping at:'pdf'  put:'application/pdf'.
+    fileSuffixToTypeMapping at:'rtf'  put:'application/rtf'.
 
-    (t := CharSetToFontMapping) isNil ifTrue:[
-	CharSetToFontMapping := t := Dictionary new
+    fileSuffixToTypeMapping at:'htm'  put:'text/html'.
+    fileSuffixToTypeMapping at:'html' put:'text/html'.
+    fileSuffixToTypeMapping at:'txt'  put:'text/plain'.
+    fileSuffixToTypeMapping at:'text' put:'text/plain'.
+
+    fileSuffixToTypeMapping at:'movie' put:'video/x-sgi-movie'.
+    fileSuffixToTypeMapping at:'avi'   put:'video/x-msvideo'.
+    fileSuffixToTypeMapping at:'qt'    put:'video/quicktime'.
+    fileSuffixToTypeMapping at:'mov'   put:'video/quicktime'.
+    fileSuffixToTypeMapping at:'moov'  put:'video/quicktime'.
+    fileSuffixToTypeMapping at:'mpv2'  put:'video/x-mpeg2'.
+    fileSuffixToTypeMapping at:'mpv'   put:'video/mpeg'.
+    fileSuffixToTypeMapping at:'mpegv' put:'video/mpeg'.
+    fileSuffixToTypeMapping at:'mpg'   put:'video/mpeg'.
+    fileSuffixToTypeMapping at:'mpeg'  put:'video/mpeg'.
+
+    fileSuffixToTypeMapping at:'ra'    put:'audio/x-pn-realaudio'.
+    fileSuffixToTypeMapping at:'mpa'   put:'audio/x-mpeg'.
+    fileSuffixToTypeMapping at:'mpega' put:'audio/x-mpeg'.
+    fileSuffixToTypeMapping at:'wav'   put:'audio/x-wav'.
+    fileSuffixToTypeMapping at:'aif'   put:'audio/x-aiff'.
+    fileSuffixToTypeMapping at:'aiff'  put:'audio/x-aiff'.
+    fileSuffixToTypeMapping at:'aifc'  put:'audio/x-aiff'.
+    fileSuffixToTypeMapping at:'au'    put:'audio/basic'.
+    fileSuffixToTypeMapping at:'snd'   put:'audio/basic'.
+
+    (fileSuffixToImageReaderClassMapping := FileSuffixToImageReaderClassMapping) isNil ifTrue:[
+        FileSuffixToImageReaderClassMapping := fileSuffixToImageReaderClassMapping := Dictionary new
     ].
-    t at:'iso2022-jp'   put:'jis*0208*'.
-    t at:'x-iso2022-jp' put:'jis*0208*'.
-    t at:'x-euc-jp'     put:'jis*0208*'.
-    t at:'x-shift-jis'  put:'jis*0208*'.
-    t at:'x-sjis'       put:'jis*0208*'.
-    t at:'x-jis7'       put:'jis*0208*'.
-    t at:'jis7'         put:'jis*0208*'.
-    t at:'euc'          put:'jis*0208*'.
-    t at:'euc-jp'       put:'jis*0208*'.
-    t at:'sjis'         put:'jis*0208*'.
+    fileSuffixToImageReaderClassMapping at:'jpg'  put:JPEGReader.
+    fileSuffixToImageReaderClassMapping at:'gif'  put:GIFReader.
+    fileSuffixToImageReaderClassMapping at:'tif'  put:TIFFReader.
+
+    "/ misc stuff
+
+    fileSuffixToTypeMapping at:'st'   put:'application/x-smalltalk-source'.
+    fileSuffixToTypeMapping at:'tar'  put:'application/x-tar'.
+    fileSuffixToTypeMapping at:'zip'  put:'application/x-zip-compressed'.
+
+    "/ character sets (not really mime stuff, but also placed here)
 
-    t at:'big5'        put:'big5*'.
+    (charSetToFontMapping := CharSetToFontMapping) isNil ifTrue:[
+        CharSetToFontMapping := charSetToFontMapping := Dictionary new
+    ].
+    charSetToFontMapping at:'iso2022-jp'   put:'jis*0208*'.
+    charSetToFontMapping at:'x-iso2022-jp' put:'jis*0208*'.
+    charSetToFontMapping at:'x-euc-jp'     put:'jis*0208*'.
+    charSetToFontMapping at:'x-shift-jis'  put:'jis*0208*'.
+    charSetToFontMapping at:'x-sjis'       put:'jis*0208*'.
+    charSetToFontMapping at:'x-jis7'       put:'jis*0208*'.
+    charSetToFontMapping at:'jis7'         put:'jis*0208*'.
+    charSetToFontMapping at:'euc'          put:'jis*0208*'.
+    charSetToFontMapping at:'euc-jp'       put:'jis*0208*'.
+    charSetToFontMapping at:'sjis'         put:'jis*0208*'.
 
-    t at:'gb2312'      put:'gb*'.
-    t at:'hz-gb-2312'  put:'gb*'.
-    t at:'x-gbk'       put:'gb*'.
+    charSetToFontMapping at:'big5'        put:'big5*'.
 
-    t at:'iso2022-kr'  put:'ksc*'.
-    t at:'x-euc-kr'    put:'ksc*'.
+    charSetToFontMapping at:'gb2312'      put:'gb*'.
+    charSetToFontMapping at:'hz-gb-2312'  put:'gb*'.
+    charSetToFontMapping at:'x-gbk'       put:'gb*'.
+
+    charSetToFontMapping at:'iso2022-kr'  put:'ksc*'.
+    charSetToFontMapping at:'x-euc-kr'    put:'ksc*'.
 
     "
      self initialize
     "
 
-    "Modified: 16.7.1997 / 13:52:50 / cg"
+    "Modified: / 1.8.1998 / 17:28:38 / cg"
 ! !
 
 !MIMETypes class methodsFor:'accessing'!
@@ -255,6 +306,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.11 1998-08-01 15:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.12 1998-08-01 15:28:54 cg Exp $'
 ! !
 MIMETypes initialize!
hg/stx-libview2