"

 COPYRIGHT (c) 1997 by eXept Software AG 

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libview2' }"

Object subclass:#MIMETypes

	instanceVariableNames:''

	classVariableNames:'TypeToImageReaderClassMapping FileSuffixToTypeMapping

		FilenameToTypeMapping FileSuffixToImageReaderClassMapping

		CharSetToFontMapping LastSuffix LastType

		DefaultCommandPerMIMEPerOS'

	poolDictionaries:''

	category:'System-Documentation'

!

String variableByteSubclass:#MIMEType

	instanceVariableNames:''

	classVariableNames:'CachedTypes'

	poolDictionaries:''

	privateIn:MIMETypes

!

!MIMETypes class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG 

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    just a place to keep MIME information

    (avoid spreading things at many places)

    MIMETypes is abstract and functional.

    Actually, in some OperatingSystems, this information may

    be found in some config files (or registries).

    Therefore, this class may have to be extended to support this

    and fetch the information from there eventually.

    [author:]

        Claus Gittinger

"

!

knownTypes

"

    simply a reminder for me ...

    application         mime                            file extentsions

        powerpoint      application/ms-powerpoint       .pot, .ppz, .ppt, .pps, 

                        application/mspowerpoint        

                        application/vnd.ms-powerpoint   

                        application/x-mspowerpoint

        shockwave       application/x-shockwave-flash   .swf     

        futuresplash    application/futuresplash        .spl

"

! !

!MIMETypes class methodsFor:'initialization'!

applicationComprAndArchiveTypeList

    "compressors and archivers"

    ^ #(

        'tar'                   'application/x-tar'

        'gtar'                  'application/x-gtar'

        'tgz'                   'application/x-tar-compressed'

        'zip'                   'application/x-zip-compressed'

        ('gz' 'z')              'application/x-gzip-compressed'

        'cpio'                  'application/x-cpio'

        'shar'                  'application/x-shar'

        'jar'                   'application/java-archive'

    )

!

applicationMiscTypeList

    "misc applications"

    ^ #(

        ('a' 'o' 'obj' )                        'application/binary'

        'a'                                     'application/library'

        ('dll' 'so')                            'application/shared-library'

    )

!

applicationProgLangTypeList

    "applications for programm languages"

    ^ #(

        ('st' 'cls' 'rc')            'application/x-smalltalk-source'

        'sif'                        'application/x-smalltalk-source-sif'

        'pac'                        'application/x-smalltalk-dolphin-package'

        'c'                          'application/x-c-source'

        ('cc' 'cpp')                 'application/x-cpp-source'

        ('h' 'hi')                   'application/x-c-header'

        ('js' 'mocha')               'application/x-javascript'

        ('java' 'jav')               'application/x-java-source'

        'sh'                         'application/x-sh'

        'csh'                        'application/x-csh'

        'tcl'                        'application/x-tcl'

        'pl'                         'application/x-perl'

        'mak'                        'application/x-make'

        'bat'                        'application/x-batch-script'

        ('asn1' 'x409' 'gdmo' 'gdm') 'application/x-asn1-source'

    )

!

applicationTextTypeList

    "text applications"

    ^ #(

        ('ps' 'eps')                 'application/postscript'

        'pdf'                        'application/pdf'

        'rtf'                        'application/rtf'

        'doc'                        'application/winword'

    )

!

applicationTypeList

    "applications"

    |typeStrings|                            

    typeStrings := OrderedCollection new.

    typeStrings addAll:self applicationProgLangTypeList.

    typeStrings addAll:self applicationTextTypeList.

    typeStrings addAll:self applicationComprAndArchiveTypeList.

    typeStrings addAll:self applicationMiscTypeList.

    ^ typeStrings

!

audioTypeList

    "audio formats ..."

    ^ #(

        ('ra' 'ram')            'audio/x-pn-realaudio'

        'rpm'                   'audio/x-pn-realaudio-plugin'

        ('mpa' 'mpega')         'audio/x-mpeg'

        'mp3'                   'audio/x-mp3'

        'wav'                   'audio/x-wav'

        ('aif' 'aiff' 'aifc')   'audio/x-aiff'

        ('au' 'snd')            'audio/basic'

    )

!

imageTypeList

    ^ #(

        "/ image formats ...

        ('jpg' 'jpeg')  'image/jpeg'

        'gif'           'image/gif'

        ('tif' 'tiff')  'image/tiff'

        'xbm'           'image/x-xbitmap'

        'xpm'           'image/x-xpixmap'

        'png'           'image/x-png'

        'pcd'           'image/x-photo-cd'

        'bmp'           'image/x-MS-bmp'

        'rgb'           'image/x-rgb'

        'ppm'           'image/x-portable-pixmap'

        'pgm'           'image/x-portable-graymap'

        'pbm'           'image/x-portable-bitmap'

        'pnm'           'image/x-portable-anymap'

        'xwd'           'image/x-xwindowdump'

        'ras'           'image/x-cmu-raster'

        'tga'           'image/x-targa'

    ) 

!

initialize

    "initialize wellKnown facts"

    |typeToImageReaderClassMapping fileSuffixToTypeMapping

     fileSuffixToImageReaderClassMapping charSetToFontMapping types|

    MIMEType initialize.   "must be initialized first"

    LastSuffix := LastType := nil.

    (fileSuffixToImageReaderClassMapping := FileSuffixToImageReaderClassMapping) isNil ifTrue:[

        FileSuffixToImageReaderClassMapping := fileSuffixToImageReaderClassMapping := Dictionary new

    ].

    (typeToImageReaderClassMapping := TypeToImageReaderClassMapping) isNil ifTrue:[

        TypeToImageReaderClassMapping := typeToImageReaderClassMapping := Dictionary new

    ].

    (fileSuffixToTypeMapping := FileSuffixToTypeMapping) isNil ifTrue:[

        FileSuffixToTypeMapping := fileSuffixToTypeMapping := Dictionary new

    ].

    "/ setup file-suffix to mimeType mapping ...

    types := OrderedCollection new.

    types addAll:self textTypeList.

    types addAll:self imageTypeList.

    types addAll:self videoTypeList.

    types addAll:self audioTypeList.

    types addAll:self applicationTypeList.

    types pairWiseDo:[:suff :typeString|

        |type|

        type := MIMEType fromString:typeString.

        suff isArray ifTrue:[

            suff do:[:s | fileSuffixToTypeMapping at:s put:type]

        ] ifFalse:[

            fileSuffixToTypeMapping at:suff put:type

        ]

    ].

    FilenameToTypeMapping := Dictionary new.

    self miscFilenameList pairWiseDo:[:nm :typeString|

        |type|

        type := MIMEType fromString:typeString.

        nm isArray ifTrue:[

            nm do:[:s | FilenameToTypeMapping at:s put:type]

        ] ifFalse:[

            FilenameToTypeMapping at:nm put:type

        ]

    ].

    "/ setup mimeType to image reader class mapping ...

    typeToImageReaderClassMapping at:'image/jpeg' put:JPEGReader.

    typeToImageReaderClassMapping at:'image/gif'  put:GIFReader.

    typeToImageReaderClassMapping at:'image/tiff' put:TIFFReader.

    "/ setup suffix to image reader class mapping ...

    fileSuffixToImageReaderClassMapping at:'jpg'  put:JPEGReader.

    fileSuffixToImageReaderClassMapping at:'gif'  put:GIFReader.

    fileSuffixToImageReaderClassMapping at:'tif'  put:TIFFReader.

    "/ character sets (not really mime stuff, but also placed here)

    (charSetToFontMapping := CharSetToFontMapping) isNil ifTrue:[

        CharSetToFontMapping := charSetToFontMapping := Dictionary new

    ].

    #(

        'iso2022-jp'   'jis*0208*'

        'x-iso2022-jp' 'jis*0208*'

        'x-euc-jp'     'jis*0208*'

        'x-shift-jis'  'jis*0208*'

        'x-sjis'       'jis*0208*'

        'x-jis7'       'jis*0208*'

        'jis7'         'jis*0208*'

        'euc'          'jis*0208*'

        'euc-jp'       'jis*0208*'

        'sjis'         'jis*0208*'

        'big5'         'big5*'

        'gb2312'       'gb*'

        'hz-gb-2312'   'gb*'

        'x-gbk'        'gb*'

        'iso2022-kr'   'ksc*'

        'x-euc-kr'     'ksc*'

    ) pairWiseDo:[:charSet :fontEncoding|

         charSetToFontMapping at:charSet put:fontEncoding

    ].

    "

     self initialize

    "

    "Modified: / 19.11.1999 / 15:01:53 / cg"

!

initializeDefaultCommands

    "TODO: move this to OS"

    |unixCommands win32Commands|

    DefaultCommandPerMIMEPerOS := Dictionary new.

    DefaultCommandPerMIMEPerOS at:#unix  put:(unixCommands := Dictionary new).

    DefaultCommandPerMIMEPerOS at:#win32 put:(win32Commands := Dictionary new).

    unixCommands at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.

    unixCommands at:'application/pdf'              put:'acroread -display %2 %1'.

    "

     self initializeDefaultCommands

    "

!

miscFilenameList

    "other formats (not by suffix, but by fileName isnstead) ..."

    ^ #(

        ('makefile' 'make.proto')  'application/x-make'

        'swf'                      'application/x-shockwave-flash'

    )

!

textTypeList

   "/ misc text ...

    ^ #(

        ('htm' 'html')          'text/html'

        'shtml'                 'text/html'

        ('txt' 'text')          'text/plain'

        'xml'                   'text/xml'

    )

!

videoTypeList

    "/ video formats ...

    ^ #(

        'movie'                            'video/x-sgi-movie'

        'avi'                              'video/x-msvideo'

        ('qt' 'mov' 'moov')                'video/quicktime'

        ('mpv2' 'mp2v' 'mp2' 'mpeg2')      'video/x-mpeg2'

        ('mpv' 'mpegv' 'mpg' 'mpeg' 'mpe') 'video/mpeg'

        'rm'                               'application/vnd.rn-realmedia'

        'rv'                               'video/x-pn-realvideo'

    )

! !

!MIMETypes class methodsFor:'accessing'!

commentStringsForFilename:aFilename

    "return a useful comment definition; heuristics for now.

     The returned value is an array of 2 elements;

     the first is the end-of-line comment string (or nil);

     the second an array of opening/closing delimiters (or an array of nils)"

     |mime|

     mime := MIMETypes mimeTypeForFilename:aFilename.

     ^ self commentStringsForMimeType:mime suffix:(aFilename asFilename suffix)

    "

     MIMETypes commentStringsForFilename:'Makefile'.

     MIMETypes commentStringsForFilename:'Object.st'. 

     MIMETypes commentStringsForFilename:'Foo.java'. 

    "

!

commentStringsForFilename:aFilename ifUnknown:alternativeBlockReturningCommentString

    "return a useful comment definition; heuristics for now.

     The returned value is an array of 2 elements;

     the first is the end-of-line comment string (or nil);

     the second an array of opening/closing delimiters (or an array of nils)"

     |mime|

     mime := MIMETypes mimeTypeForFilename:aFilename.

     ^ self commentStringsForMimeType:mime suffix:(aFilename asFilename suffix) ifUnknown:alternativeBlockReturningCommentString

    "

     MIMETypes commentStringsForFilename:'Makefile'.

     MIMETypes commentStringsForFilename:'Object.st'. 

     MIMETypes commentStringsForFilename:'Foo.java'. 

    "

!

commentStringsForMimeType:mime suffix:suff

    "return a useful comment definition; heuristics for now.

     The returned value is an array of 2 elements;

     the first is the end-of-line comment string (or nil);

     the second an array of opening/closing delimiters (or an array of nils)"

    ^ self

        commentStringsForMimeType:mime suffix:suff 

        ifUnknown: #(';' (nil nil))  

    "

     |mime|

     mime := MIMETypes mimeTypeForFilename:'Makefile'.

     MIMETypes commentStringsForMimeType:mime suffix:nil.     

    "

    "

     |mime|

     mime := MIMETypes mimeTypeForFilename:'Object.st'.

     MIMETypes commentStringsForMimeType:mime suffix:nil.    

    "

!

commentStringsForMimeType:mime suffix:suff ifUnknown:alternativeBlockReturningCommentString

    "return a useful comment definition; heuristics for now.

     The returned value is an array of 2 elements;

     the first is the end-of-line comment string (or nil);

     the second an array of opening/closing delimiters (or an array of nils)"

    (mime = 'application/x-make') ifTrue:[

        "/ makefile

        ^ #('#' (nil nil)).

    ].

    (mime = 'application/x-sh') ifTrue:[

        "/ shell script

        ^ #('#' (nil nil)).

    ].

    ((mime = 'text/html') 

    or:[(mime = 'text/xml')

    or:[(mime = 'application/xml')]]) ifTrue:[

        ^ #(nil ('<!!-- ' ' -->')).

    ].

    (mime = 'application/x-batch-script') ifTrue:[

        ^ #('rem ' (nil nil)).

    ].

    (mime = 'application/x-smalltalk-source') ifTrue:[

        ^ #('"/' ('"' '"')).

    ].

    (mime = 'application/x-pascal-source') ifTrue:[

        ^ #(nil ('{' '}')).

    ].

    (mime = 'application/x-c-source') ifTrue:[

        ^ #(nil ('/*' '*/')).

    ].

    (mime = 'application/x-cpp-source') ifTrue:[

        ^ #('//' ('/*' '*/')).

    ].

    (mime = 'application/x-java-source') ifTrue:[

        ^ #('//' ('/*' '*/')).

    ].

    (mime = 'application/x-asn1-source') ifTrue:[

        ^ #('--' ('--' '--')).

    ].

    "/ st/x support files

    (suff = 'style') ifTrue:[

        ^ #(';' (nil nil)).

    ].

    (suff = 'rs') ifTrue:[

        ^ #(';' (nil nil)).

    ].

    ^ alternativeBlockReturningCommentString value

    "

     |mime|

     mime := MIMETypes mimeTypeForFilename:'Makefile'.

     MIMETypes commentStringsForMimeType:mime suffix:nil.     

    "

    "

     |mime|

     mime := MIMETypes mimeTypeForFilename:'Object.st'.

     MIMETypes commentStringsForMimeType:mime suffix:nil.    

    "

!

defaultCommandPerMIME

    "TODO: move this to OS"

    DefaultCommandPerMIMEPerOS isNil ifTrue:[

        self initializeDefaultCommands

    ].

    OperatingSystem isUNIXlike ifTrue:[

        ^ DefaultCommandPerMIMEPerOS at:#unix

    ].

    ^ DefaultCommandPerMIMEPerOS at:#win32

!

defineImageType:mimeType suffix:aSuffix reader:aReaderClass

    "register an image reader."