"

 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 TypeToCommentStringMapping

		TypeToFileSuffixMapping TypeToViewerApplicationMapping

		SuffixToCommentStringMapping FileSuffixToTypeMapping

		FilenameToTypeMapping FileSuffixToImageReaderClassMapping

		CharSetToFontMapping LastSuffix LastType

		DefaultCommandPerMIMEPerOS DefaultPrintCommandPerMIMEPerOS

		TypeToParentesisSpecMapping SuffixToParentesisSpecMapping'

	poolDictionaries:''

	category:'Net-Communication-Support'

!

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'!

initialize

    "initialize wellKnown facts"

    MIMEType initialize.   "must be initialized first"

    LastSuffix := LastType := nil.

    self initializeFileNameToMimeTypeMapping.

    self initializeImageReaderMappings.

    self initializeCommentStringMappings.

    self initializeParentesisSpecMappings.

    "

     self initialize

    "

    "Modified: / 10-04-2007 / 15:16:44 / cg"

!

initializeCommentStringMappings

    TypeToCommentStringMapping := Dictionary new.

    SuffixToCommentStringMapping := Dictionary new.

    TypeToCommentStringMapping 

        at:'application/x-make'

        put:#('#' (nil nil)).           "/ '#' for EOL comments only

    TypeToCommentStringMapping 

        at:'application/x-sh'

        put:#('#' (nil nil)).           "/ '#' for EOL comments only

    #('text/html' 'text/xml' 'application/xml')

    do:[:eachXMLType |

        TypeToCommentStringMapping 

            at:eachXMLType

            put:#(nil ('<!!-- ' ' -->')). "/ '<!!-- ... -->' delimited comments only

    ].

    TypeToCommentStringMapping 

        at:'text/css'

        put:#('//' ('/*' '*/')).          

    TypeToCommentStringMapping 

        at:'application/x-batch-script'

        put:#('rem ' (nil nil)).         "/ 'rem ' for EOL comments only

    "/ the following is ST/X specific

    TypeToCommentStringMapping 

        at:'application/x-smalltalk-source'

        put:#('"/' ('"' '"')).           "/ '"/ ' for EOL; ".." for delimited comments

    "/ this is for standard smalltalk

"/    TypeToCommentStringMapping 

"/        at:'application/x-smalltalk-source'

"/        put:#(nil ('"' '"')).            "/ ".." for delimited comments only

    TypeToCommentStringMapping 

        at:'application/x-pascal-source'

        put:#(nil ('{' '}')).           "/ '{'..'}' for delimited comments

"/    "/ the following is k&r

"/    TypeToCommentStringMapping 

"/        at:'application/x-c-source'

"/        put:#(nil ('/*' '*/')).          "/ '/*'..'*/' for delimited comments

    "/ this is ANSI-c

    TypeToCommentStringMapping 

        at:'application/x-c-source'

        put:#('//' ('/*' '*/')).          

    TypeToCommentStringMapping 

        at:'application/x-cpp-source'

        put:#('//' ('/*' '*/')).          

    TypeToCommentStringMapping 

        at:'application/x-java-source'

        put:#('//' ('/*' '*/')).          

    TypeToCommentStringMapping 

        at:'application/x-javascript'

        put:#('//' ('/*' '*/')).          

    TypeToCommentStringMapping 

        at:'application/x-lisp-source'

        put:#(';' (nil nil)).           "/ '#' for EOL comments only

    TypeToCommentStringMapping 

        at:'application/x-asn1-source'

        put:#('--' ('--' '--')).          

    "/ st/x support files

    SuffixToCommentStringMapping 

        at:'style'

        put:#(';' (nil nil)).          

    SuffixToCommentStringMapping 

        at:'rs'

        put:#(';' (nil nil)).

    "Modified: / 07-04-2007 / 16:12:05 / cg"

!

initializeDefaultCommands

    "TODO: move this to OS"

    |unixCommands win32Commands unixPrintCommands win32PrintCommands|

    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'.

    OperatingSystem isMSWINDOWSlike ifFalse:[ |cmd|

        cmd := #( firefox konqueror mozilla netscape opera )

                detect:[:aCmd| (OperatingSystem pathOfCommand:aCmd) notEmptyOrNil ]

                ifNone:nil.

        cmd notNil ifTrue:[

            unixCommands at:'text/html' put:(cmd, ' "%1"')       

        ].

    ].

    DefaultPrintCommandPerMIMEPerOS := Dictionary new.

    DefaultPrintCommandPerMIMEPerOS at:#unix  put:(unixPrintCommands := Dictionary new).

    DefaultPrintCommandPerMIMEPerOS at:#win32 put:(win32PrintCommands := Dictionary new).

    "/ if you have a good (intelligent) spooler ;-)

    unixPrintCommands at:'application/pdf'         put:'lpr %1'.

    "/ if not, you may need more...

    "/ unixPrintCommands at:'application/pdf'         put:'pdfToPS %1 | lpr'.

    "/ WIN32 setup is now obsolete - now read through the registry

"/    OperatingSystem isMSWINDOWSlike ifTrue:[

"/        #(

"/            "suffix"    "default"       "mime"

"/            ( 'pdf'     'acrord32 %1'   'application/pdf' )

"/        ) triplesDo:[:suffix :default :mime|

"/            |cmd|

"/

"/            cmd := Win32OperatingSystem::RegistryEntry executableForSuffix:suffix.

"/            cmd isNil ifTrue:[

"/                "assume its in the path"

"/                cmd := default.

"/            ].

"/            win32Commands at:mime put:cmd.

"/        ].

"/    ].

    "

     self initializeDefaultCommands

    "

    "Modified: / 12-05-2004 / 11:43:23 / cg"

!

initializeFileNameToMimeTypeMapping

    "initialize wellKnown facts"

    |types|

    FileSuffixToTypeMapping isNil ifTrue:[

        FileSuffixToTypeMapping := Dictionary new

    ].

    TypeToFileSuffixMapping isNil ifTrue:[

        TypeToFileSuffixMapping := Dictionary new

    ].

    FilenameToTypeMapping isNil ifTrue:[

        FilenameToTypeMapping := Dictionary new.

    ].

    types := OrderedCollection new.

    types addAll:self textTypeList.

    types addAll:self imageTypeList.

    types addAll:self videoTypeList.

    types addAll:self audioTypeList.

    types addAll:self applicationTypeList.

    types addAll:self osSpecificTypeList.

    types pairWiseDo:[:suff :typeString|

        |type|

        type := MIMEType fromString:typeString.

        suff isArray ifTrue:[

            suff do:[:s | FileSuffixToTypeMapping at:s put:type].

            TypeToFileSuffixMapping at:type put:suff first.

        ] ifFalse:[

            FileSuffixToTypeMapping at:suff put:type.

            TypeToFileSuffixMapping at:type put:suff.

        ].

    ].

    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

        ]

    ].

    "

     self initializeFileNameToMimeTypeMapping

    "

!

initializeImageReaderMappings

    FileSuffixToImageReaderClassMapping isNil ifTrue:[

        FileSuffixToImageReaderClassMapping := Dictionary new

    ].

    "MIME" TypeToImageReaderClassMapping isNil ifTrue:[

        TypeToImageReaderClassMapping := Dictionary new

    ].

    "/ 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.

!

initializeParentesisSpecMappings

    |spec|

    TypeToParentesisSpecMapping := Dictionary new.

    SuffixToParentesisSpecMapping := Dictionary new.

    "/ ST/X spec

    spec := IdentityDictionary new.       

    spec at:#open        put:#( $( $[ ${ "$> $<") .

    spec at:#close       put:#( $) $] $} "$> $<").

    spec at:#ignore      put:#( $' $" '$[' '$]' '${' '$)' ).

    spec at:#eolComment  put:'"/'.   

    TypeToParentesisSpecMapping

        at:'application/x-smalltalk-source'

        put:spec.           

    spec := IdentityDictionary new.       

    spec at:#open        put:#( $< ) .

    spec at:#ignore      put:#( $' $" '$[' '$]' '${' '$)' ).

    #('text/html' 'text/xml' 'application/xml')

    do:[:eachXMLType |

        TypeToParentesisSpecMapping

            at:eachXMLType

            put:spec

    ].

    spec := IdentityDictionary new.       

    spec at:#open        put:#( $( $[ ${ ) .

    spec at:#close       put:#( $) $] $} ).

    spec at:#ignore      put:#( $' $" ).

    spec at:#eolComment  put:'//'.   

    TypeToParentesisSpecMapping

        at:'application/x-c-source'

        put:spec.           

    TypeToParentesisSpecMapping

        at:'application/x-cpp-source'

        put:spec.          

    TypeToParentesisSpecMapping

        at:'application/x-java-source'

        put:spec.          

    TypeToParentesisSpecMapping

        at:'application/x-javascript'

        put:spec.          

    "/ Lisp

    spec := IdentityDictionary new.       

    spec at:#open        put:#( $(  ) .

    spec at:#close       put:#( $)  ).

    spec at:#ignore      put:#( $" ).

    spec at:#eolComment  put:';'.   

    TypeToParentesisSpecMapping

        at:'application/x-lisp-source'

        put:spec.

    "Created: / 10-04-2007 / 15:16:37 / cg"

! !

!MIMETypes class methodsFor:'initialization-lists'!

applicationCompressorsAndArchiveTypeList

    ^ #(

        'tar'                       'application/x-tar'

        'gtar'                      'application/x-gtar'

        ('tgz' 'tar.gz')            'application/x-tar-gzip-compressed'   "/ 'application/x-tar-compressed'

        ('tar.bz2')                 'application/x-tar-bzip2-compressed'

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

        'bz2'                       'application/x-bzip2-compressed'

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

        'cpio'                      'application/x-cpio'

        'shar'                      'application/x-shar'

        'jar'                       'application/java-archive'

        'sar'                       'application/x-squeak-archive'

        'sit'                       'application/x-stuffit'

        'hqx'                       'application/mac-binhex40'

        'cpt'                       'application/mac-compactpro'

    )

!

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'

        'sts'                        'application/x-squeak-source'

        'pr'                         'application/x-squeak-project'

        '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'

        ('lisp' 'lsp' 'scm' 'ss')    'application/x-lisp-source'

    )

    "Modified: / 09-04-2007 / 09:46:04 / cg"

!

applicationTextTypeList

    "text applications"

    ^ #(

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

        "/ 'ai'                         'application/postscript'

        'pdf'                        'application/pdf'

        'rtf'                        'application/rtf'

        "/ 'rtf'                        'text/rtf'            ????

        "/ 'doc'                        'application/winword'

        'doc'                        'application/ms-word-document'

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

        ('ppt' 'ppz' 'pot' 'pps')    'application/mspowerpoint'

        'xls'                        'application/x-excel'   

        'slk'                        'application/vnd.ms-excel'

    )

!

applicationTypeList

    "applications"

    |typeList|                            

    typeList := OrderedCollection new.

    typeList addAll:self applicationProgLangTypeList.

    typeList addAll:self applicationTextTypeList.

    typeList addAll:self applicationCompressorsAndArchiveTypeList.

    typeList addAll:self applicationMiscTypeList.

    ^ typeList

!

audioTypeList

    "audio formats ..."