42 * Some readers are optional and therefore, only installed if the |
42 * Some readers are optional and therefore, only installed if the |
43 * corresponding Smalltalk class is nonNil; not accessing it as global, |
43 * corresponding Smalltalk class is nonNil; not accessing it as global, |
44 * but via a SMalltalk>>at: message - this avoids warning messages |
44 * but via a SMalltalk>>at: message - this avoids warning messages |
45 * during startup, if classes are missing and the globals are undefined. |
45 * during startup, if classes are missing and the globals are undefined. |
46 *" |
46 *" |
47 |formats rdr| |
47 |rdr| |
48 |
48 |
49 formats := Image fileFormats. |
49 MIMETypes notNil ifTrue:[ |
50 rdr := Smalltalk at:#XBMReader ifAbsent:nil. |
50 |
51 rdr notNil ifTrue:[ |
51 rdr := Smalltalk at:#XBMReader ifAbsent:nil. |
52 MIMETypes defineImageType:'image/x-xbitmap' suffix:'xbm' reader:rdr. |
52 rdr notNil ifTrue:[ |
53 MIMETypes defineImageType:nil suffix:'bm' reader:rdr. |
53 MIMETypes defineImageType:'image/x-xbitmap' suffix:'xbm' reader:rdr. |
54 ]. |
54 MIMETypes defineImageType:nil suffix:'bm' reader:rdr. |
55 rdr := Smalltalk at:#TIFFReader ifAbsent:nil. |
55 ]. |
56 rdr notNil ifTrue:[ |
56 rdr := Smalltalk at:#TIFFReader ifAbsent:nil. |
57 MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. |
57 rdr notNil ifTrue:[ |
58 MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. |
58 MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. |
59 ]. |
59 MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. |
60 rdr := Smalltalk at:#GIFReader ifAbsent:nil. |
60 ]. |
61 rdr notNil ifTrue:[ |
61 rdr := Smalltalk at:#GIFReader ifAbsent:nil. |
62 MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr |
62 rdr notNil ifTrue:[ |
63 ]. |
63 MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr |
64 |
64 ]. |
65 "/ still to come ... |
65 |
66 "/ formats at:'.img' put:IMGReader. |
66 "/ still to come ... |
67 "/ formats at:'.IMG' put:IMGReader. |
67 "/ '.img' put:IMGReader. |
68 "/ formats at:'.mac' put:MacPaintReader. |
68 "/ '.IMG' put:IMGReader. |
69 |
69 "/ '.mac' put:MacPaintReader. |
70 rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. |
70 |
71 rdr notNil ifTrue:[ |
71 rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. |
72 MIMETypes defineImageType:nil suffix:'im8' reader:rdr |
72 rdr notNil ifTrue:[ |
73 MIMETypes defineImageType:nil suffix:'icon' reader:rdr |
73 MIMETypes defineImageType:nil suffix:'im8' reader:rdr |
74 ]. |
74 MIMETypes defineImageType:nil suffix:'icon' reader:rdr |
75 |
75 ]. |
76 "/ still to come ... |
76 |
77 "/ formats at:'.g3' put:G3FileReader. |
77 "/ still to come ... |
78 |
78 "/ '.g3' put:G3FileReader. |
79 rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil. |
79 |
80 rdr notNil ifTrue:[ |
80 rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil. |
81 MIMETypes defineImageType:'image/x-MS-bmp' suffix:'bmp' reader:rdr. |
81 rdr notNil ifTrue:[ |
82 MIMETypes defineImageType:nil suffix:'ico' reader:rdr. |
82 MIMETypes defineImageType:'image/x-MS-bmp' suffix:'bmp' reader:rdr. |
83 ]. |
83 MIMETypes defineImageType:nil suffix:'ico' reader:rdr. |
84 |
84 ]. |
85 rdr := Smalltalk at:#JPEGReader ifAbsent:nil. |
85 |
86 rdr notNil ifTrue:[ |
86 rdr := Smalltalk at:#JPEGReader ifAbsent:nil. |
87 MIMETypes defineImageType:'image/jpeg' suffix:'jpg' reader:rdr. |
87 rdr notNil ifTrue:[ |
88 MIMETypes defineImageType:nil suffix:'jpeg' reader:rdr. |
88 MIMETypes defineImageType:'image/jpeg' suffix:'jpg' reader:rdr. |
89 ]. |
89 MIMETypes defineImageType:nil suffix:'jpeg' reader:rdr. |
90 |
90 ]. |
91 rdr := Smalltalk at:#PBMReader ifAbsent:nil. |
91 |
92 rdr notNil ifTrue:[ |
92 rdr := Smalltalk at:#PBMReader ifAbsent:nil. |
93 MIMETypes defineImageType:'image/x-portable-pixmap' suffix:'ppm' reader:rdr. |
93 rdr notNil ifTrue:[ |
94 MIMETypes defineImageType:'image/x-portable-bitmap' suffix:'pbm' reader:rdr. |
94 MIMETypes defineImageType:'image/x-portable-pixmap' suffix:'ppm' reader:rdr. |
95 MIMETypes defineImageType:'image/x-portable-graymap' suffix:'pgm' reader:rdr. |
95 MIMETypes defineImageType:'image/x-portable-bitmap' suffix:'pbm' reader:rdr. |
96 MIMETypes defineImageType:'image/x-portable-anymap' suffix:'pnm' reader:rdr. |
96 MIMETypes defineImageType:'image/x-portable-graymap' suffix:'pgm' reader:rdr. |
97 ]. |
97 MIMETypes defineImageType:'image/x-portable-anymap' suffix:'pnm' reader:rdr. |
98 |
98 ]. |
99 rdr := Smalltalk at:#ST80FormReader ifAbsent:nil. |
99 |
100 rdr notNil ifTrue:[ |
100 rdr := Smalltalk at:#ST80FormReader ifAbsent:nil. |
101 MIMETypes defineImageType:nil suffix:'form' reader:rdr. |
101 rdr notNil ifTrue:[ |
102 ]. |
102 MIMETypes defineImageType:nil suffix:'form' reader:rdr. |
103 |
103 ]. |
104 rdr := Smalltalk at:#FaceReader ifAbsent:nil. |
104 |
105 rdr notNil ifTrue:[ |
105 rdr := Smalltalk at:#FaceReader ifAbsent:nil. |
106 MIMETypes defineImageType:nil suffix:'face' reader:rdr. |
106 rdr notNil ifTrue:[ |
107 ]. |
107 MIMETypes defineImageType:nil suffix:'face' reader:rdr. |
108 |
108 ]. |
109 rdr := Smalltalk at:#XPMReader ifAbsent:nil. |
109 |
110 rdr notNil ifTrue:[ |
110 rdr := Smalltalk at:#XPMReader ifAbsent:nil. |
111 MIMETypes defineImageType:'image/x-xpixmap' suffix:'xpm' reader:rdr. |
111 rdr notNil ifTrue:[ |
112 MIMETypes defineImageType:nil suffix:'pm' reader:rdr. |
112 MIMETypes defineImageType:'image/x-xpixmap' suffix:'xpm' reader:rdr. |
113 ]. |
113 MIMETypes defineImageType:nil suffix:'pm' reader:rdr. |
114 |
114 ]. |
115 rdr := Smalltalk at:#PCXReader ifAbsent:nil. |
115 |
116 rdr notNil ifTrue:[ |
116 rdr := Smalltalk at:#PCXReader ifAbsent:nil. |
117 MIMETypes defineImageType:'image/x-pcx' suffix:'pcx' reader:rdr. |
117 rdr notNil ifTrue:[ |
118 ]. |
118 MIMETypes defineImageType:'image/x-pcx' suffix:'pcx' reader:rdr. |
119 |
119 ]. |
120 rdr := Smalltalk at:#TargaReader ifAbsent:nil. |
120 |
121 rdr notNil ifTrue:[ |
121 rdr := Smalltalk at:#TargaReader ifAbsent:nil. |
122 MIMETypes defineImageType:'image/x-targa' suffix:'tga' reader:rdr. |
122 rdr notNil ifTrue:[ |
123 ]. |
123 MIMETypes defineImageType:'image/x-targa' suffix:'tga' reader:rdr. |
124 |
124 ]. |
125 rdr := Smalltalk at:#XWDReader ifAbsent:nil. |
125 |
126 rdr notNil ifTrue:[ |
126 rdr := Smalltalk at:#XWDReader ifAbsent:nil. |
127 MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:rdr. |
127 rdr notNil ifTrue:[ |
128 ]. |
128 MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:rdr. |
129 |
129 ]. |
130 rdr := Smalltalk at:#BlitImageReader ifAbsent:nil. |
130 |
131 rdr notNil ifTrue:[ |
131 rdr := Smalltalk at:#BlitImageReader ifAbsent:nil. |
132 MIMETypes defineImageType:nil suffix:'48x48x1' reader:rdr. |
132 rdr notNil ifTrue:[ |
133 ]. |
133 MIMETypes defineImageType:nil suffix:'48x48x1' reader:rdr. |
134 |
134 ]. |
135 rdr := Smalltalk at:#IrisRGBReader ifAbsent:nil. |
135 |
136 rdr notNil ifTrue:[ |
136 rdr := Smalltalk at:#IrisRGBReader ifAbsent:nil. |
137 MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr. |
137 rdr notNil ifTrue:[ |
138 ]. |
138 MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr. |
139 |
139 ]. |
140 "/ experimanetal and not yet delivered |
140 |
141 |
141 "/ experimanetal and not yet delivered |
142 "/ rdr := Smalltalk at:#PNGReader ifAbsent:nil. |
142 |
143 "/ rdr notNil ifTrue:[ |
143 "/ rdr := Smalltalk at:#PNGReader ifAbsent:nil. |
144 "/ MIMETypes defineImageType:'image/x-png' suffix:'png' reader:rdr. |
144 "/ rdr notNil ifTrue:[ |
145 "/ ]. |
145 "/ MIMETypes defineImageType:'image/x-png' suffix:'png' reader:rdr. |
146 |
146 "/ ]. |
147 "/ rdr := Smalltalk at:#PCDReader ifAbsent:nil. |
147 |
148 "/ rdr notNil ifTrue:[ |
148 "/ rdr := Smalltalk at:#PCDReader ifAbsent:nil. |
149 "/ MIMETypes defineImageType:'image/x-photo-cd' suffix:'pcd' reader:rdr. |
149 "/ rdr notNil ifTrue:[ |
150 "/ ]. |
150 "/ MIMETypes defineImageType:'image/x-photo-cd' suffix:'pcd' reader:rdr. |
151 |
151 "/ ]. |
152 "/ rdr := Smalltalk at:#CMURasterReader ifAbsent:nil. |
152 |
153 "/ rdr notNil ifTrue:[ |
153 "/ rdr := Smalltalk at:#CMURasterReader ifAbsent:nil. |
154 "/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr. |
154 "/ rdr notNil ifTrue:[ |
155 "/ ]. |
155 "/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr. |
156 |
156 "/ ]. |
157 "/ movie formats - experimanetal and not yet complete |
157 |
158 |
158 "/ movie formats - experimanetal and not yet complete |
159 "/ rdr := Smalltalk at:#FLIReader ifAbsent:nil. |
159 |
160 "/ rdr notNil ifTrue:[ |
160 "/ rdr := Smalltalk at:#FLIReader ifAbsent:nil. |
161 "/ MIMETypes defineImageType:'video/x-fli' suffix:'fli' reader:rdr. |
161 "/ rdr notNil ifTrue:[ |
162 "/ ]. |
162 "/ MIMETypes defineImageType:'video/x-fli' suffix:'fli' reader:rdr. |
163 |
163 "/ ]. |
164 "/ rdr := Smalltalk at:#AVIReader ifAbsent:nil. |
164 |
165 "/ rdr notNil ifTrue:[ |
165 "/ rdr := Smalltalk at:#AVIReader ifAbsent:nil. |
166 "/ MIMETypes defineImageType:'video/x-msvideo' suffix:'avi' reader:rdr. |
166 "/ rdr notNil ifTrue:[ |
167 "/ ]. |
167 "/ MIMETypes defineImageType:'video/x-msvideo' suffix:'avi' reader:rdr. |
168 |
168 "/ ]. |
169 "/ rdr := Smalltalk at:#QuickTimeReader ifAbsent:nil. |
169 |
170 "/ rdr notNil ifTrue:[ |
170 "/ rdr := Smalltalk at:#QuickTimeReader ifAbsent:nil. |
171 "/ MIMETypes defineImageType:'video/quicktime' suffix:'qt' reader:rdr. |
171 "/ rdr notNil ifTrue:[ |
172 "/ MIMETypes defineImageType:nil suffix:'mov' reader:rdr. |
172 "/ MIMETypes defineImageType:'video/quicktime' suffix:'qt' reader:rdr. |
173 "/ MIMETypes defineImageType:nil suffix:'moov' reader:rdr. |
173 "/ MIMETypes defineImageType:nil suffix:'mov' reader:rdr. |
174 "/ ]. |
174 "/ MIMETypes defineImageType:nil suffix:'moov' reader:rdr. |
175 |
175 "/ ]. |
176 "/ rdr := Smalltalk at:#MPEG2Reader ifAbsent:nil. |
176 |
177 "/ rdr notNil ifTrue:[ |
177 "/ rdr := Smalltalk at:#MPEG2Reader ifAbsent:nil. |
178 "/ MIMETypes defineImageType:'video/x-mpeg2' suffix:'mpg2' reader:rdr. |
178 "/ rdr notNil ifTrue:[ |
179 "/ MIMETypes defineImageType:nil suffix:'mpv2' reader:rdr. |
179 "/ MIMETypes defineImageType:'video/x-mpeg2' suffix:'mpg2' reader:rdr. |
180 "/ MIMETypes defineImageType:nil suffix:'mp2v' reader:rdr. |
180 "/ MIMETypes defineImageType:nil suffix:'mpv2' reader:rdr. |
181 "/ MIMETypes defineImageType:nil suffix:'mp2' reader:rdr. |
181 "/ MIMETypes defineImageType:nil suffix:'mp2v' reader:rdr. |
182 "/ ]. |
182 "/ MIMETypes defineImageType:nil suffix:'mp2' reader:rdr. |
183 |
183 "/ ]. |
184 "/ rdr := Smalltalk at:#MPEGReader ifAbsent:nil. |
184 |
185 "/ rdr notNil ifTrue:[ |
185 "/ rdr := Smalltalk at:#MPEGReader ifAbsent:nil. |
186 "/ MIMETypes defineImageType:'video/mpeg' suffix:'mpg' reader:rdr. |
186 "/ rdr notNil ifTrue:[ |
187 "/ MIMETypes defineImageType:nil suffix:'mpeg' reader:rdr. |
187 "/ MIMETypes defineImageType:'video/mpeg' suffix:'mpg' reader:rdr. |
188 "/ MIMETypes defineImageType:nil suffix:'mpe' reader:rdr. |
188 "/ MIMETypes defineImageType:nil suffix:'mpeg' reader:rdr. |
189 "/ MIMETypes defineImageType:nil suffix:'mpv' reader:rdr. |
189 "/ MIMETypes defineImageType:nil suffix:'mpe' reader:rdr. |
190 "/ MIMETypes defineImageType:nil suffix:'vbs' reader:rdr. |
190 "/ MIMETypes defineImageType:nil suffix:'mpv' reader:rdr. |
191 "/ MIMETypes defineImageType:nil suffix:'mpegv' reader:rdr. |
191 "/ MIMETypes defineImageType:nil suffix:'vbs' reader:rdr. |
192 "/ ]. |
192 "/ MIMETypes defineImageType:nil suffix:'mpegv' reader:rdr. |
193 |
193 "/ ]. |
194 "/ rdr := Smalltalk at:#SGIMovieReader ifAbsent:nil. |
194 |
195 "/ rdr notNil ifTrue:[ |
195 "/ rdr := Smalltalk at:#SGIMovieReader ifAbsent:nil. |
196 "/ MIMETypes defineImageType:'video/x-sgi-movie' suffix:'movie' reader:rdr. |
196 "/ rdr notNil ifTrue:[ |
197 "/ ]. |
197 "/ MIMETypes defineImageType:'video/x-sgi-movie' suffix:'movie' reader:rdr. |
198 |
198 "/ ]. |
|
199 ] |
199 ! |
200 ! |
200 |
201 |
201 "* |
202 "* |
202 * find out, on what type of display we run |
203 * find out, on what type of display we run |
203 * (boy, they should have added this to the x-protocol) |
204 * (boy, they should have added this to the x-protocol) |