X Bitmap support for Scamper
lex at cc.gatech.edu
Mon Feb 1 14:57:37 UTC 1999
Here's a change to hook your code in for file: and ftp: accesses.
'From Squeak 2.3 of January 14, 1999 on 1 February 1999 at 8:57:33 am'!
!MIMEDocument class methodsFor: 'content-types' stamp: 'ls 2/1/1999
"guesses a content type from the url"
| extension |
extension _ url asString.
(extension includes: $.) ifFalse: [ ^self defaultContentType].
extension _ (extension findTokens: '.') last asLowercase.
extension = 'html' ifTrue: [ ^'text/html' ].
extension = 'htm' ifTrue:[ ^'text/html' ].
extension = 'txt' ifTrue: [ ^'text/plain' ].
extension = 'gif' ifTrue: [ ^'image/gif' ].
extension = 'jpg' ifTrue: [ ^'image/jpeg' ].
extension = 'jpeg' ifTrue: [ ^'image/jpeg' ].
extension = 'xbm' ifTrue: [ ^'image/x-xbitmap' ].
extension = 'mid' ifTrue: [ ^'audio/midi' ].
^self defaultContentType! !
William Cattey <wdc at mit.edu> wrote:
> This is a multi-part message in MIME format.
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
> I hope I'm not gonna embarass myself too much publicly circulating my
> first real Smalltalk subclass.
> This subclass teaches ImageReadWriter to read X bitmaps.
> This would be useful, for example, if you used Scamper to look at
> an MIT home directory through our school-wide web.mit.edu.
> For Example: http://web.mit.edu/wdc/www/.
> The MIT web server pushes back a bunch of pretty file icons
> that are in X bitmap format that Scamper, until now, just
> complained about.
> Here is the class definition. I'd welcome any off-list replies
> telling me style things I should do differently, or code
> Special thanks to Paul Boutin who wrote the X Bitmap Parser
> in C for the Andrew Toolkit when he worked for me ~5 years ago.
> I used his most excellent code as the basis for this work,
> and to show me how to do X Bitmap parsing.
More information about the Squeak-dev