hg/stx-libview2: MIMETypes.st@78576b7fa8c5 (annotated)

643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	3	All Rights Reserved
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
1410 faf04ef6892b checkin from browser Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	12	"{ Package: 'stx:libview2' }"
faf04ef6892b checkin from browser Claus Gittinger <cg@exept.de> parents: 1364 diff changeset	13
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#MIMETypes
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	15	instanceVariableNames:''
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	16	classVariableNames:'TypeToImageReaderClassMapping TypeToCommentStringMapping
1979 0612875a95c1 acroread command from registry (win32) Claus Gittinger <cg@exept.de> parents: 1925 diff changeset	17	TypeToFileSuffixMapping TypeToViewerApplicationMapping
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	18	SuffixToCommentStringMapping FileSuffixToTypeMapping
1979 0612875a95c1 acroread command from registry (win32) Claus Gittinger <cg@exept.de> parents: 1925 diff changeset	19	FilenameToTypeMapping FileSuffixToImageReaderClassMapping
0612875a95c1 acroread command from registry (win32) Claus Gittinger <cg@exept.de> parents: 1925 diff changeset	20	CharSetToFontMapping LastSuffix LastType
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	21	DefaultCommandPerMIMEPerOS DefaultPrintCommandPerMIMEPerOS
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	22	TypeToParenthesisSpecMapping SuffixToParenthesisSpecMapping'
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	23	poolDictionaries:''
1800 817b8ce39da7 category Claus Gittinger <cg@exept.de> parents: 1783 diff changeset	24	category:'Net-Communication-Support'
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	25	!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	26
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	27	String variableByteSubclass:#MIMEType
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	28	instanceVariableNames:''
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	29	classVariableNames:'CachedTypes'
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	30	poolDictionaries:''
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	31	privateIn:MIMETypes
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	!MIMETypes class methodsFor:'documentation'!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	copyright
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	COPYRIGHT (c) 1997 by eXept Software AG
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	39	All Rights Reserved
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	This software is furnished under a license and may be used
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	only in accordance with the terms of that license and with the
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	inclusion of the above copyright notice. This software may not
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	be provided or otherwise made available to, or used by, any
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	other person. No title to or ownership of the software is
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	hereby transferred.
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	"
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	documentation
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	"
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	just a place to keep MIME information
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	(avoid spreading things at many places)
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	57	MIMETypes is abstract and functional.
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	58	Actually, in some OperatingSystems, this information may
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	59	be found in some config files (or registries).
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	60	Therefore, this class may have to be extended to support this
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	61	and fetch the information from there eventually.
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	62
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	[author:]
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	Claus Gittinger
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	"
1311 2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	66	!
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	67
2486 42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	68	examples
42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	69	"
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	70	[exBegin]
3210 784ada4aa13b class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3187 diff changeset	71	MIMETypes mimeTypeFromString:'text/plain'
784ada4aa13b class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3187 diff changeset	72	[exEnd]
784ada4aa13b class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3187 diff changeset	73	[exBegin]
2487 eaa224da42fa mimeType: x-expecco-testsuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2486 diff changeset	74	MIMETypes mimeTypeFromString:'application/x-expecco-testsuite'
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	75	[exEnd]
2486 42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	76
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	77	[exBegin]
2486 42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	78	MIMETypes mimeTypeForSuffix:'gif'
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	79	MIMETypes mimeTypeForSuffix:'ets'
8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	80	MIMETypes mimeTypeForSuffix:'xlsx'
8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	81	[exEnd]
2486 42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	82	"
42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	83	!
42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	84
1311 2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	85	knownTypes
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	86	"
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	87	simply a reminder for me ...
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	88
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	89	application mime file extentsions
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	90
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	91	powerpoint application/ms-powerpoint .pot, .ppz, .ppt, .pps,
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	92	application/mspowerpoint
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	93	application/vnd.ms-powerpoint
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	94	application/x-mspowerpoint
2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	95
1312 3b540fadf1e7 docu Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	96	shockwave application/x-shockwave-flash .swf
1311 2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	97
1312 3b540fadf1e7 docu Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	98	futuresplash application/futuresplash .spl
1311 2a297e71602c docu Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	99	"
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	! !
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	!MIMETypes class methodsFor:'initialization'!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	104	initialize
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	105	"initialize wellKnown facts"
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	106
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	107	MIMEType initialize. "must be initialized first"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	108	LastSuffix := LastType := nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	109	self initializeFileNameToMimeTypeMapping.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	110	self initializeImageReaderMappings.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	111	self initializeCommentStringMappings.
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	112	self initializeParenthesisSpecMappings.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	113
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	114	"
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	115	self initialize
8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	116	"
8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	117
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	118	"Modified: / 10-04-2007 / 15:16:44 / cg"
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	119	"Modified (comment): / 29-11-2011 / 19:11:51 / cg"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	120	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	121
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	122	initializeCommentStringMappings
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	123	TypeToCommentStringMapping := Dictionary new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	124	SuffixToCommentStringMapping := Dictionary new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	125
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	126	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	127	at:'application/x-make'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	128	put:#('#' (nil nil)). "/ '#' for EOL comments only
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	129
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	130	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	131	at:'application/x-sh'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	132	put:#('#' (nil nil)). "/ '#' for EOL comments only
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	133
2489 b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	134	#('text/html' 'text/xml'
b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	135	'application/xml'
b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	136	'application/x-expecco-testsuite'
b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	137	'application/x-expecco-logfile'
b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	138	)
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	139	do:[:eachXMLType \|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	140	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	141	at:eachXMLType
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	142	put:#(nil ('<!!-- ' ' -->')). "/ '<!!-- ... -->' delimited comments only
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	143	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	144
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	145	TypeToCommentStringMapping
2055 501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	146	at:'text/css'
501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	147	put:#('//' ('/' '/')).
501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	148
501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	149	TypeToCommentStringMapping
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	150	at:'application/x-batch-script'
2937 67ef44218dc0 changed: #initializeCommentStringMappings Claus Gittinger <cg@exept.de> parents: 2924 diff changeset	151	put:#('@REM ' '@rem ' 'REM ' 'rem ' (nil nil)). "/ 'rem ' for EOL comments only
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	152
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	153	"/ the following is ST/X specific
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	154	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	155	at:'application/x-smalltalk-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	156	put:#('"/' ('"' '"')). "/ '"/ ' for EOL; ".." for delimited comments
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	157
2055 501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	158
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	159	"/ this is for standard smalltalk
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	160	"/ TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	161	"/ at:'application/x-smalltalk-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	162	"/ put:#(nil ('"' '"')). "/ ".." for delimited comments only
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	163
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	164
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	165	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	166	at:'application/x-pascal-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	167	put:#(nil ('{' '}')). "/ '{'..'}' for delimited comments
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	168
2055 501740104b75 css-comments Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	169
2048 dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	170	"/ "/ the following is k&r
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	171	"/ TypeToCommentStringMapping
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	172	"/ at:'application/x-c-source'
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	173	"/ put:#(nil ('/' '/')). "/ '/'..'/' for delimited comments
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	174	"/ this is ANSI-c
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	175	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	176	at:'application/x-c-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	177	put:#('//' ('/' '/')).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	178
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	179	TypeToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	180	at:'application/x-cpp-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	181	put:#('//' ('/' '/')).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	182
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	183	TypeToCommentStringMapping
2479 40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	184	at:'application/x-csharp-source'
40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	185	put:#('//' ('/' '/')).
40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	186
40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	187	TypeToCommentStringMapping
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	188	at:'application/x-java-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	189	put:#('//' ('/' '/')).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	190
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	191	TypeToCommentStringMapping
2048 dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	192	at:'application/x-javascript'
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	193	put:#('//' ('/' '/')).
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	194
dbb361dd9c5f comment strings for javascript files Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	195	TypeToCommentStringMapping
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	196	at:'application/x-lisp-source'
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	197	put:#(';' (nil nil)). "/ '#' for EOL comments only
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	198
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	199	TypeToCommentStringMapping
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	200	at:'application/x-asn1-source'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	201	put:#('--' ('--' '--')).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	202
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	203
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	204	"/ st/x support files
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	205	SuffixToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	206	at:'style'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	207	put:#(';' (nil nil)).
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	208
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	209	SuffixToCommentStringMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	210	at:'rs'
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	211	put:#(';' (nil nil)).
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	212
2937 67ef44218dc0 changed: #initializeCommentStringMappings Claus Gittinger <cg@exept.de> parents: 2924 diff changeset	213	"Modified: / 06-09-2011 / 10:46:27 / cg"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	214	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	215
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	216	initializeDefaultCommands
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	217	"TODO: move this to OS"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	218
3253 32a605517d3d class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	219	\|unixCommands win32Commands unixPrintCommands win32PrintCommands listToTry\|
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	220
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	221	DefaultCommandPerMIMEPerOS := Dictionary new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	222	DefaultCommandPerMIMEPerOS at:#unix put:(unixCommands := Dictionary new).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	223	DefaultCommandPerMIMEPerOS at:#win32 put:(win32Commands := Dictionary new).
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	224
3187 6708c6aacc39 class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3113 diff changeset	225	unixCommands at:'application/x-tar-compressed' put:'tar tvf -'.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	226
2141 8decb5cd7766 support html browser under unix ca parents: 2118 diff changeset	227	OperatingSystem isMSWINDOWSlike ifFalse:[ \|cmd\|
3253 32a605517d3d class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	228	OperatingSystem isOSXlike ifTrue:[
3322 78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	229	unixCommands at:'text/html' put:('open -a Safari "%1"').
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	230	unixCommands at:'application/pdf' put:('open -a Preview "%1"').
3253 32a605517d3d class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	231	] ifFalse:[
3322 78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	232	listToTry := #('firefox' 'chrome' 'chromium' 'konqueror' 'opera').
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	233	cmd := listToTry
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	234	detect:[:aCmd\| (OperatingSystem pathOfCommand:aCmd) notEmptyOrNil ]
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	235	ifNone:nil.
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	236	cmd notNil ifTrue:[
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	237	unixCommands at:'text/html' put:(cmd, ' "%1"')
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	238	].
3187 6708c6aacc39 class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3113 diff changeset	239
3322 78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	240	listToTry := #('acroread' 'okular' 'evince' 'kpdf' 'xpdf').
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	241	cmd := listToTry
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	242	detect:[:aCmd\| (OperatingSystem pathOfCommand:aCmd) notEmptyOrNil ]
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	243	ifNone:nil.
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	244	cmd notNil ifTrue:[
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	245	unixCommands at:'application/pdf' put:(cmd, ' "%1"')
78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	246	].
3187 6708c6aacc39 class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3113 diff changeset	247	].
2141 8decb5cd7766 support html browser under unix ca parents: 2118 diff changeset	248	].
8decb5cd7766 support html browser under unix ca parents: 2118 diff changeset	249
8decb5cd7766 support html browser under unix ca parents: 2118 diff changeset	250
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	251	DefaultPrintCommandPerMIMEPerOS := Dictionary new.
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	252	DefaultPrintCommandPerMIMEPerOS at:#unix put:(unixPrintCommands := Dictionary new).
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	253	DefaultPrintCommandPerMIMEPerOS at:#win32 put:(win32PrintCommands := Dictionary new).
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	254
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	255	"/ if you have a good (intelligent) spooler ;-)
2904 bb555534881e changed: #initializeDefaultCommands Stefan Vogel <sv@exept.de> parents: 2892 diff changeset	256	unixPrintCommands at:'application/pdf' put:'lpr "%1"'.
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	257	"/ if not, you may need more...
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	258	"/ unixPrintCommands at:'application/pdf' put:'pdfToPS %1 \| lpr'.
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	259
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	260	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	261	self initializeDefaultCommands
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	262	"
1979 0612875a95c1 acroread command from registry (win32) Claus Gittinger <cg@exept.de> parents: 1925 diff changeset	263
0612875a95c1 acroread command from registry (win32) Claus Gittinger <cg@exept.de> parents: 1925 diff changeset	264	"Modified: / 12-05-2004 / 11:43:23 / cg"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	265	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	266
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	267	initializeFileNameToMimeTypeMapping
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	268	"initialize wellKnown facts"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	269
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	270	\|types\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	271
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	272	FileSuffixToTypeMapping isNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	273	FileSuffixToTypeMapping := Dictionary new
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	274	].
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	275	TypeToFileSuffixMapping isNil ifTrue:[
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	276	TypeToFileSuffixMapping := Dictionary new
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	277	].
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	278	FilenameToTypeMapping isNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	279	FilenameToTypeMapping := Dictionary new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	280	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	281
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	282	types := OrderedCollection new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	283	types addAll:self textTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	284	types addAll:self imageTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	285	types addAll:self videoTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	286	types addAll:self audioTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	287	types addAll:self applicationTypeList.
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	288	types addAll:self osSpecificTypeList.
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	289
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	290	types pairWiseDo:[:suff :typeString\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	291	\|type\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	292
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	293	type := MIMEType fromString:typeString.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	294	suff isArray ifTrue:[
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	295	suff do:[:s \| FileSuffixToTypeMapping at:s put:type].
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	296	TypeToFileSuffixMapping at:type put:suff first.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	297	] ifFalse:[
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	298	FileSuffixToTypeMapping at:suff put:type.
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	299	TypeToFileSuffixMapping at:type put:suff.
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	300	].
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	301	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	302
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	303	self miscFilenameList pairWiseDo:[:nm :typeString\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	304	\|type\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	305
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	306	type := MIMEType fromString:typeString.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	307	nm isArray ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	308	nm do:[:s \| FilenameToTypeMapping at:s put:type]
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	309	] ifFalse:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	310	FilenameToTypeMapping at:nm put:type
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	311	]
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	312	].
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	313
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	314	"
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	315	self initializeFileNameToMimeTypeMapping
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	316	"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	317	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	318
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	319	initializeImageReaderMappings
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	320	\|rdr\|
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	321
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	322	FileSuffixToImageReaderClassMapping isNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	323	FileSuffixToImageReaderClassMapping := Dictionary new
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	324	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	325	"MIME" TypeToImageReaderClassMapping isNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	326	TypeToImageReaderClassMapping := Dictionary new
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	327	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	328
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	329	"/ setup mimeType to image reader class mapping ...
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	330	TypeToImageReaderClassMapping at:'image/jpeg' put:JPEGReader.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	331	TypeToImageReaderClassMapping at:'image/gif' put:GIFReader.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	332	TypeToImageReaderClassMapping at:'image/tiff' put:TIFFReader.
2710 29d76b5bb816 * empty log message * Claus Gittinger <cg@exept.de> parents: 2588 diff changeset	333	TypeToImageReaderClassMapping at:'image/png' put:PNGReader.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	334
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	335	"/ setup suffix to image reader class mapping ...
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	336	FileSuffixToImageReaderClassMapping at:'jpg' put:JPEGReader.
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	337	FileSuffixToImageReaderClassMapping at:'jpeg' put:JPEGReader.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	338	FileSuffixToImageReaderClassMapping at:'gif' put:GIFReader.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	339	FileSuffixToImageReaderClassMapping at:'tif' put:TIFFReader.
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	340	FileSuffixToImageReaderClassMapping at:'tiff' put:TIFFReader.
2710 29d76b5bb816 * empty log message * Claus Gittinger <cg@exept.de> parents: 2588 diff changeset	341	FileSuffixToImageReaderClassMapping at:'png' put:PNGReader.
2570 a089fc8372f1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2535 diff changeset	342
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	343	"/ some 'used-to-be-optional' readers
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	344	(rdr := Smalltalk at:#WindowsIconReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	345	TypeToImageReaderClassMapping at:'image/bmp' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	346	TypeToImageReaderClassMapping at:'image/x-MS-bmp' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	347	TypeToImageReaderClassMapping at:'image/x-MS-ico' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	348	FileSuffixToImageReaderClassMapping at:'bmp' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	349	FileSuffixToImageReaderClassMapping at:'ico' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	350	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	351	(rdr := Smalltalk at:#XBMReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	352	TypeToImageReaderClassMapping at:'image/x-xbitmap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	353	FileSuffixToImageReaderClassMapping at:'xbm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	354	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	355	(rdr := Smalltalk at:#XPMReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	356	TypeToImageReaderClassMapping at:'image/x-xpixmap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	357	FileSuffixToImageReaderClassMapping at:'pm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	358	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	359	(rdr := Smalltalk at:#PBMReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	360	TypeToImageReaderClassMapping at:'image/x-portable-pixmap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	361	TypeToImageReaderClassMapping at:'image/x-portable-bitmap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	362	TypeToImageReaderClassMapping at:'image/x-portable-graymap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	363	TypeToImageReaderClassMapping at:'image/x-portable-anymap' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	364	FileSuffixToImageReaderClassMapping at:'ppm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	365	FileSuffixToImageReaderClassMapping at:'pbm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	366	FileSuffixToImageReaderClassMapping at:'pgm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	367	FileSuffixToImageReaderClassMapping at:'pnm' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	368	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	369	(rdr := Smalltalk at:#PCXReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	370	TypeToImageReaderClassMapping at:'image/x-pcx' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	371	FileSuffixToImageReaderClassMapping at:'pcx' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	372	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	373	(rdr := Smalltalk at:#TargaReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	374	TypeToImageReaderClassMapping at:'image/x-targa' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	375	FileSuffixToImageReaderClassMapping at:'tga' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	376	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	377	(rdr := Smalltalk at:#XWDReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	378	TypeToImageReaderClassMapping at:'image/x-xwindowdump' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	379	TypeToImageReaderClassMapping at:'image/x-windowdump' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	380	FileSuffixToImageReaderClassMapping at:'xwd' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	381	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	382	(rdr := Smalltalk at:#BlitImageReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	383	TypeToImageReaderClassMapping at:'image/x-blitimage' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	384	FileSuffixToImageReaderClassMapping at:'48x48x1' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	385	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	386	(rdr := Smalltalk at:#IrisRGBReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	387	TypeToImageReaderClassMapping at:'image/x-rgb' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	388	FileSuffixToImageReaderClassMapping at:'rgb' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	389	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	390	(rdr := Smalltalk at:#SunRasterReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	391	TypeToImageReaderClassMapping at:'image/x-sunraster' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	392	FileSuffixToImageReaderClassMapping at:'im8' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	393	FileSuffixToImageReaderClassMapping at:'icon' put:rdr.
2570 a089fc8372f1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2535 diff changeset	394	].
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	395	(rdr := Smalltalk at:#ST80FormReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	396	TypeToImageReaderClassMapping at:'image/x-st80-form' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	397	FileSuffixToImageReaderClassMapping at:'form' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	398	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	399	(rdr := Smalltalk at:#FaceReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	400	TypeToImageReaderClassMapping at:'image/x-face' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	401	FileSuffixToImageReaderClassMapping at:'face' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	402	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	403	(rdr := Smalltalk at:#PCDReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	404	TypeToImageReaderClassMapping at:'image/x-photo-cd' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	405	FileSuffixToImageReaderClassMapping at:'pcd' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	406	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	407	(rdr := Smalltalk at:#CMURasterReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	408	TypeToImageReaderClassMapping at:'image/x-cmu-raster' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	409	FileSuffixToImageReaderClassMapping at:'ras' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	410	].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	411
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	412	"/ movie formats - experimantal and not yet complete / finished / delivered
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	413	"/ (rdr := Smalltalk at:#FLIReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	414	"/ TypeToImageReaderClassMapping at:'video/x-fli' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	415	"/ FileSuffixToImageReaderClassMapping at:'fli' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	416	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	417	"/ (rdr := Smalltalk at:#AVIReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	418	"/ TypeToImageReaderClassMapping at:'video/x-msvideo' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	419	"/ FileSuffixToImageReaderClassMapping at:'avi' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	420	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	421	"/ (rdr := Smalltalk at:#AVIReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	422	"/ TypeToImageReaderClassMapping at:'video/x-msvideo' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	423	"/ FileSuffixToImageReaderClassMapping at:'avi' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	424	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	425	"/ (rdr := Smalltalk at:#QuickTimeReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	426	"/ TypeToImageReaderClassMapping at:'video/quicktime' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	427	"/ FileSuffixToImageReaderClassMapping at:'qt' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	428	"/ FileSuffixToImageReaderClassMapping at:'mov' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	429	"/ FileSuffixToImageReaderClassMapping at:'moov' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	430	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	431	"/ (rdr := Smalltalk at:#MPEG2Reader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	432	"/ TypeToImageReaderClassMapping at:'video/x-mpeg2' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	433	"/ FileSuffixToImageReaderClassMapping at:'mpg2' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	434	"/ FileSuffixToImageReaderClassMapping at:'mpv2' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	435	"/ FileSuffixToImageReaderClassMapping at:'mp2v' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	436	"/ FileSuffixToImageReaderClassMapping at:'mp2' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	437	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	438	"/ (rdr := Smalltalk at:#MPEGReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	439	"/ TypeToImageReaderClassMapping at:'video/mpeg' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	440	"/ FileSuffixToImageReaderClassMapping at:'mpg' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	441	"/ FileSuffixToImageReaderClassMapping at:'mpeg' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	442	"/ FileSuffixToImageReaderClassMapping at:'mpe' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	443	"/ FileSuffixToImageReaderClassMapping at:'mpv' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	444	"/ FileSuffixToImageReaderClassMapping at:'vps' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	445	"/ FileSuffixToImageReaderClassMapping at:'mpegv' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	446	"/ ].
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	447	"/ (rdr := Smalltalk at:#SGIMovieReader) notNil ifTrue:[
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	448	"/ TypeToImageReaderClassMapping at:'video/x-sgi-movie' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	449	"/ FileSuffixToImageReaderClassMapping at:'movie' put:rdr.
c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	450	"/ ].
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	451	!
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	452
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	453	initializeParenthesisSpecMappings
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	454	\|spec\|
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	455
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	456	TypeToParenthesisSpecMapping := Dictionary new.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	457	SuffixToParenthesisSpecMapping := Dictionary new.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	458
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	459	"/ ST/X spec
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	460
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	461	spec := IdentityDictionary new.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	462	spec at:#open put:#( $( $[ ${ ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	463	spec at:#close put:#( $) $] $} ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	464	spec at:#ignore put:#( $' $" '$[' '$]' '${' '$)' ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	465	spec at:#eolComment put:'"/'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	466	TypeToParenthesisSpecMapping at:'application/x-smalltalk-source' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	467
2479 40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	468	"/ XML & HTML
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	469
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	470	spec := IdentityDictionary new.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	471	spec at:#open put:#( $< ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	472	spec at:#close put:#( $> ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	473	spec at:#ignore put:#( $' $" '$[' '$]' '${' '$)' ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	474	#( 'text/html' 'text/xml' 'application/xml' ) do:[:eachXMLType \|
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	475	TypeToParenthesisSpecMapping at:eachXMLType put:spec
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	476	].
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	477
2479 40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	478	"/ ANSI-c, Java, C#
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	479
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	480	spec := IdentityDictionary new.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	481	spec at:#open put:#( $( $[ ${ ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	482	spec at:#close put:#( $) $] $} ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	483	spec at:#ignore put:#( $' $" ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	484	spec at:#eolComment put:'//'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	485	TypeToParenthesisSpecMapping at:'application/x-c-source' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	486	TypeToParenthesisSpecMapping at:'application/x-cpp-source' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	487	TypeToParenthesisSpecMapping at:'application/x-csharp-source' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	488	TypeToParenthesisSpecMapping at:'application/x-java-source' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	489	TypeToParenthesisSpecMapping at:'application/x-javascript' put:spec.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	490
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	491	"/ Lisp
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	492
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	493	spec := IdentityDictionary new.
3039 1a8ca229615f class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3020 diff changeset	494	spec at:#open put:#( $( $[ ).
1a8ca229615f class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3020 diff changeset	495	spec at:#close put:#( $) $] ).
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	496	spec at:#ignore put:#( $" ).
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	497	spec at:#eolComment put:';'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	498	TypeToParenthesisSpecMapping at:'application/x-lisp-source' put:spec.
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	499
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	500	"Created: / 10-04-2007 / 15:16:37 / cg"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	501	! !
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	502
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	503	!MIMETypes class methodsFor:'initialization-lists'!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	504
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	505	applicationCompressorsAndArchiveTypeList
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	506	^ #(
1890 ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	507	'tar' 'application/x-tar'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	508	'gtar' 'application/x-gtar'
1891 1b53c21c64c5 tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1890 diff changeset	509	('tgz' 'tar.gz') 'application/x-tar-gzip-compressed' "/ 'application/x-tar-compressed'
1b53c21c64c5 tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1890 diff changeset	510	('tar.bz2') 'application/x-tar-bzip2-compressed'
1890 ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	511	'zip' 'application/x-zip-compressed'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	512	'bz2' 'application/x-bzip2-compressed'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	513	('gz' 'z') 'application/x-gzip-compressed'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	514	'cpio' 'application/x-cpio'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	515	'shar' 'application/x-shar'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	516	'jar' 'application/java-archive'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	517	'sar' 'application/x-squeak-archive'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	518	'sit' 'application/x-stuffit'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	519	'hqx' 'application/mac-binhex40'
ccf118af49ce tar.bz2 suffix Claus Gittinger <cg@exept.de> parents: 1889 diff changeset	520	'cpt' 'application/mac-compactpro'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	521	)
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	522	!
645 97e83ab4d246 * empty log message * Claus Gittinger <cg@exept.de> parents: 643 diff changeset	523
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	524	applicationMiscTypeList
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	525	"misc applications"
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	526
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	527	^ #(
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	528	('a' 'o' 'obj' ) 'application/binary'
2968 bcd13537812b changed: #applicationMiscTypeList sr parents: 2942 diff changeset	529	('lic') 'application/license'
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	530	('dll' 'so') 'application/shared-library'
2486 42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	531
42063a7fc3db mimeType: x-expecco-testSuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2479 diff changeset	532	('ets') 'application/x-expecco-testsuite'
3104 39607bbc7c1d class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3039 diff changeset	533	('etr') 'application/x-expecco-testrepository'
2489 b891d96fd496 elf extension: x-expecco-logfile Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	534	('elf') 'application/x-expecco-logfile'
2886 22b48a4da285 comment/format in: #initializeFileNameToMimeTypeMapping sr parents: 2830 diff changeset	535	('expeccolicense') 'application/x-expecco-license'
2888 a0bd24f746c0 changed: #applicationMiscTypeList sr parents: 2886 diff changeset	536	('expeccopatch') 'application/x-expecco-patch'
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	537	)
2886 22b48a4da285 comment/format in: #initializeFileNameToMimeTypeMapping sr parents: 2830 diff changeset	538
2968 bcd13537812b changed: #applicationMiscTypeList sr parents: 2942 diff changeset	539	"Modified: / 03-11-2011 / 10:42:28 / sr"
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	540	!
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	541
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	542	applicationProgLangTypeList
3020 3f9c74ff0975 changed: #applicationProgLangTypeList Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	543	"applications for programming languages"
713 548898fdd1dc * empty log message * Claus Gittinger <cg@exept.de> parents: 663 diff changeset	544
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	545	^ #(
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	546	('st' 'cls' 'rc') 'application/x-smalltalk-source'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	547	'sif' 'application/x-smalltalk-source-sif'
1668 070264d3a087 added dolphin package Claus Gittinger <cg@exept.de> parents: 1666 diff changeset	548	'pac' 'application/x-smalltalk-dolphin-package'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	549
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	550	'sts' 'application/x-squeak-source'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	551	'pr' 'application/x-squeak-project'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	552
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	553	'c' 'application/x-c-source'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	554	('cc' 'cpp') 'application/x-cpp-source'
2479 40a05c259915 c# mime type Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	555	'cs' 'application/x-csharp-source'
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	556	('h' 'hi') 'application/x-c-header'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	557	('js' 'mocha') 'application/x-javascript'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	558	('java' 'jav') 'application/x-java-source'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	559	'sh' 'application/x-sh'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	560	'csh' 'application/x-csh'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	561	'tcl' 'application/x-tcl'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	562	'pl' 'application/x-perl'
3020 3f9c74ff0975 changed: #applicationProgLangTypeList Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	563	'dart' 'application/x-dart'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	564	'mak' 'application/x-make'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	565	'bat' 'application/x-batch-script'
3008 aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	566	('asn1' 'x409' 'gdmo' 'gdm') 'application/x-asn1-source'
aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	567
2912 f3466ea0810b changed: #applicationProgLangTypeList Claus Gittinger <cg@exept.de> parents: 2911 diff changeset	568	('lisp' 'lsp' 'scm' 'ss'
f3466ea0810b changed: #applicationProgLangTypeList Claus Gittinger <cg@exept.de> parents: 2911 diff changeset	569	'arc' 'cl' 'brg') 'application/x-lisp-source'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	570	)
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	571
3020 3f9c74ff0975 changed: #applicationProgLangTypeList Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	572	"Modified (comment): / 21-08-2012 / 20:55:13 / cg"
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	573	!
1561 942de18a3e3e * empty log message * Claus Gittinger <cg@exept.de> parents: 1560 diff changeset	574
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	575	applicationTextTypeList
1606 158c10a36736 * empty log message * Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	576	"text applications"
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	577
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	578	^ #(
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	579	('ps' 'eps') 'application/postscript'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	580	"/ 'ai' 'application/postscript'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	581	'pdf' 'application/pdf'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	582	'rtf' 'application/rtf'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	583	"/ 'rtf' 'text/rtf' ????
3008 aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	584	'ics' 'text/calendar'
aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	585	'doc' 'application/ms-word-document'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	586	"/ 'doc' 'application/winword'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	587	'swf' 'application/x-shockwave-flash'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	588	('ppt' 'ppz' 'pot' 'pps') 'application/mspowerpoint'
2028 5d67d14ad4a0 slk type added Michael Beyl <mb@exept.de> parents: 2024 diff changeset	589	'xls' 'application/x-excel'
5d67d14ad4a0 slk type added Michael Beyl <mb@exept.de> parents: 2024 diff changeset	590	'slk' 'application/vnd.ms-excel'
2911 7afaf1fdae8b comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	591	'txt' 'text/plain'
2970 8b91ec204044 comment/format in: #initialize Claus Gittinger <cg@exept.de> parents: 2968 diff changeset	592	'xlsx' 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	593	)
2911 7afaf1fdae8b comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	594
3008 aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	595	"Modified: / 26-05-2012 / 15:27:30 / cg"
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	596	!
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	597
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	598	applicationTypeList
1606 158c10a36736 * empty log message * Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	599	"applications"
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	600
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	601	\|typeList\|
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	602
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	603	typeList := OrderedCollection new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	604	typeList addAll:self applicationProgLangTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	605	typeList addAll:self applicationTextTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	606	typeList addAll:self applicationCompressorsAndArchiveTypeList.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	607	typeList addAll:self applicationMiscTypeList.
1616 f07466809515 add binary file extensions penk parents: 1612 diff changeset	608
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	609	^ typeList
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	610	!
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	611
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	612	audioTypeList
1606 158c10a36736 * empty log message * Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	613	"audio formats ..."
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	614
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	615	^ #(
1720 cca50de2e8e4 change x-png to png penk parents: 1716 diff changeset	616	('au' 'snd') 'audio/basic'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	617	('ra') 'audio/x-realaudio'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	618	('ram' 'rm') 'audio/x-pn-realaudio'
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	619	"/ cg: see unixSpecific / windowsSpecific
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	620	"/ 'rpm' 'audio/x-pn-realaudio-plugin'
3008 aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	621	('mpa' 'mpega' 'mpga') 'audio/mpeg'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	622	"/ 'mp3' 'audio/x-mp3'
6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	623	('mp3' 'mp2') 'audio/mpeg'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	624	'wav' 'audio/x-wav'
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	625	('aif' 'aiff' 'aifc') 'audio/x-aiff'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	626	('midi' 'mid') 'audio/midi'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	627	)
3008 aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	628
aadfac4bdc84 changed: Claus Gittinger <cg@exept.de> parents: 2970 diff changeset	629	"Modified: / 26-05-2012 / 15:23:45 / cg"
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	630	!
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	631
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	632	imageTypeList
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	633
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	634	^ #(
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	635	"/ image formats ...
c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	636
1216 26fe79e724d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	637	('jpg' 'jpeg') 'image/jpeg'
1188 bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	638	'gif' 'image/gif'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	639	('tif' 'tiff') 'image/tiff'
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	640	('xbm' 'bm') 'image/x-xbitmap'
1188 bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	641	'xpm' 'image/x-xpixmap'
1720 cca50de2e8e4 change x-png to png penk parents: 1716 diff changeset	642	'png' 'image/png'
1188 bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	643	'pcd' 'image/x-photo-cd'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	644	'bmp' 'image/x-MS-bmp'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	645	'rgb' 'image/x-rgb'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	646	'ppm' 'image/x-portable-pixmap'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	647	'pgm' 'image/x-portable-graymap'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	648	'pbm' 'image/x-portable-bitmap'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	649	'pnm' 'image/x-portable-anymap'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	650	'xwd' 'image/x-xwindowdump'
bea6424548e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	651	'ras' 'image/x-cmu-raster'
1216 26fe79e724d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	652	'tga' 'image/x-targa'
2020 d5c5d7928433 add 'image/x-ico' for .ico files penk* parents: 1981 diff changeset	653	'ico' 'image/x-ico'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	654	)
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	655	!
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	656
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	657	miscFilenameList
3104 39607bbc7c1d class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3039 diff changeset	658	"other formats (not by suffix, but by fileName instead) ..."
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	659
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	660	^ #(
2113 65cbfeee886d * empty log message * Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	661	('makefile' 'make.proto' 'make.spec' 'nt.mak') 'application/x-make'
2830 2945a046a7f5 changed: #miscFilenameList Claus Gittinger <cg@exept.de> parents: 2820 diff changeset	662	('exe' 'bin' 'com') 'application/octet-stream'
2113 65cbfeee886d * empty log message * Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	663	('class') 'application/octet-stream'
2375 723e3325bad1 top file format Claus Gittinger <cg@exept.de> parents: 2298 diff changeset	664	('top') 'application/x-waltop-digital-notepad'
1609 090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	665	)
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	666	!
090ee7aa4cab * empty log message * penk parents: 1606 diff changeset	667
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	668	osSpecificTypeList
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	669	OperatingSystem isMSWINDOWSlike ifTrue:[
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	670	^ self windowsSpecificTypeList
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	671	].
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	672	^ self unixSpecificTypeList
2023 70c535a959be * empty log message * penk parents: 2020 diff changeset	673
70c535a959be * empty log message * penk parents: 2020 diff changeset	674	"
70c535a959be * empty log message * penk parents: 2020 diff changeset	675	self osSpecificTypeList
70c535a959be * empty log message * penk parents: 2020 diff changeset	676	"
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	677	!
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	678
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	679	textTypeList
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	680	"/ misc text ...
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	681
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	682	^ #(
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	683	('html' 'htm' 'shtml') 'text/html'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	684	('txt' 'text') 'text/plain'
1680 d34932ed0e86 checkin from browser Claus Gittinger <cg@exept.de> parents: 1668 diff changeset	685	'xml' 'text/xml'
1777 5879ec563fc1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1775 diff changeset	686	'css' 'text/css'
2432 8dcb56eb1e89 csv icon Claus Gittinger <cg@exept.de> parents: 2375 diff changeset	687	'csv' 'text/csv'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	688	)
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	689	!
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	690
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	691	unixSpecificTypeList
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	692
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	693	^ #(
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	694	"/ cg: RPM is 'audio/x-pn-realaudio-plugin' for WIN32
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	695	"/ and 'application/x-rpm' for Unix
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	696	'rpm' 'application/x-rpm'
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	697	)
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	698	!
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	699
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	700	videoTypeList
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	701	"/ video formats ...
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	702
0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	703	^ #(
1720 cca50de2e8e4 change x-png to png penk parents: 1716 diff changeset	704	('qt' 'mov' 'moov') 'video/quicktime'
cca50de2e8e4 change x-png to png penk parents: 1716 diff changeset	705	('mpv' 'mpegv' 'mpg' 'mpeg' 'mpe') 'video/mpeg'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	706	'movie' 'video/x-sgi-movie'
1820 7817c4809af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1819 diff changeset	707	('avi' 'wmv' 'asf') 'video/x-msvideo'
1604 0c678133dc4b new class for mimeType instances penk parents: 1593 diff changeset	708	('mpv2' 'mp2v' 'mp2' 'mpeg2') 'video/x-mpeg2'
1680 d34932ed0e86 checkin from browser Claus Gittinger <cg@exept.de> parents: 1668 diff changeset	709	'rm' 'application/vnd.rn-realmedia'
d34932ed0e86 checkin from browser Claus Gittinger <cg@exept.de> parents: 1668 diff changeset	710	'rv' 'video/x-pn-realvideo'
3295 c430566c334c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3260 diff changeset	711	'fli' 'video/x-fli'
1778 6a019cc68896 * empty log message * Claus Gittinger <cg@exept.de> parents: 1777 diff changeset	712	)
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	713	!
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	714
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	715	windowsSpecificTypeList
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	716	^ #(
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	717	"/ cg: RPM is 'audio/x-pn-realaudio-plugin' for WIN32
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	718	"/ and 'application/x-rpm' for Unix
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	719	'rpm' 'audio/x-pn-realaudio-plugin'
ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	720	)
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	! !
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	723	!MIMETypes class methodsFor:'obsolete'!
1489 9e339e123bfa commentStrings: added ifUnknown-argument tm parents: 1475 diff changeset	724
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	725	defaultCommandForMimeType:mimeType
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	726	<resource: #obsolete>
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	727	self obsoleteMethodWarning:'use #defaultCommandTemplateToOpenMimeType:'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	728
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	729	^ self defaultCommandTemplateToOpenMimeType:mimeType
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	730
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	731	"
2758 66e62ceecb67 comment/format in: #defaultCommandForMimeType: Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	732	MIMETypes defaultCommandTemplateToOpenMimeType:'application/pdf'
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	733	"
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	734
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	735	"Created: / 12-05-2004 / 11:09:22 / cg"
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	736	"Modified: / 12-05-2004 / 11:16:53 / cg"
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	737	!
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	738
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	739	fontForCharset:aCharSetName
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	740	"return the font-encoding for an iso-charset"
1489 9e339e123bfa commentStrings: added ifUnknown-argument tm parents: 1475 diff changeset	741
1981 52b15b1e90b6 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 1979 diff changeset	742	<resource:#obsolete>
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	743	self obsoleteMethodWarning:'use FontDescription >> fontNamePatternForCharset:'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	744	^ FontDescription fontNamePatternForCharset:aCharSetName.
1489 9e339e123bfa commentStrings: added ifUnknown-argument tm parents: 1475 diff changeset	745
9e339e123bfa commentStrings: added ifUnknown-argument tm parents: 1475 diff changeset	746	"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	747	MIMETypes fontForCharset:'iso2022-jp'
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	748	MIMETypes fontForCharset:'euc-jp'
1472 bef5798d367d comment strings Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	749	"
bef5798d367d comment strings Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	750
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	751	"Modified: / 1.8.1998 / 17:00:57 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	752	! !
1472 bef5798d367d comment strings Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	753
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	754	!MIMETypes class methodsFor:'queries'!
1472 bef5798d367d comment strings Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	755
647 6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	756	defineImageType:mimeType suffix:aSuffix reader:aReaderClass
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	757	"register an image reader."
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	758
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	759	aSuffix notNil ifTrue:[
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	760	self imageReaderForSuffix:aSuffix put:aReaderClass.
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	761	].
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	762
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	763	mimeType notNil ifTrue:[
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	764	self imageReaderForType:mimeType put:aReaderClass
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	765	].
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	766
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	767	(aSuffix notNil and:[mimeType notNil]) ifTrue:[
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	768	self mimeTypeForSuffix:aSuffix put:mimeType
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	769	].
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	770	!
6f26c76aa0c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 646 diff changeset	771
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	fileSuffixToImageReaderMapping
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	773	"return the suffix-to-imageReader mapping"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	774
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775	^ FileSuffixToImageReaderClassMapping ? #()
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	777	"Modified: / 1.8.1998 / 17:00:11 / cg"
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	778	!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780	imageFileSuffixes
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	781	"return a collection with known file suffixes"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	782
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	783	FileSuffixToImageReaderClassMapping isNil ifTrue:[^ #()].
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	^ FileSuffixToImageReaderClassMapping keys
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	786	"Created: / 30.6.1997 / 22:04:48 / cg"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	787	"Modified: / 1.8.1998 / 17:01:26 / cg"
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788	!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789
3014 e6d9a204da08 comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 3012 diff changeset	790	mimeTypeForFilename:filenameOrString
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	791	"given a filename, return the mime-type or nil, if unknown"
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	792
1780 ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	793	\|type filename lcFilename suff suff2\|
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	794
3014 e6d9a204da08 comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 3012 diff changeset	795	filename := filenameOrString asFilename.
1474 bd86cf0c1a84 * empty log message * Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	796
bd86cf0c1a84 * empty log message * Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	797	lcFilename := filename baseName asLowercase.
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	798	type := FilenameToTypeMapping at:lcFilename ifAbsent:nil.
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	799	type isNil ifTrue:[
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	800	"/ allow for fallback ...
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	801	type := OperatingSystem mimeTypeForFilename:lcFilename.
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	802	"/ the special value #unknown is returned as nil;
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	803	"/ this avoids constant retry if a mimeType is not known in
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	804	"/ the OS.
1275 cf421c7dfeec * empty log message * Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	805	"/ type isNil ifTrue:[
cf421c7dfeec * empty log message * Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	806	"/ FilenameToTypeMapping at:lcFilename put:#unknown
cf421c7dfeec * empty log message * Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	807	"/ ].
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	808	].
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	809
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	810	type == #unknown ifTrue:[
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	811	type := nil.
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	812	].
1273 7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	813
7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	814	type isNil ifTrue:[
1473 876caa979b7e checkin from browser Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	815	suff := filename suffix.
1273 7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	816	suff size ~~ 0 ifTrue:[
1780 ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	817	"/ sigh - special code for multiple-suffices...
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	818	"/ .tar.gz -> tgz
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	819	suff2 := filename withoutSuffix suffix.
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	820	suff2 size > 0 ifTrue:[
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	821	type := self mimeTypeForSuffix:(suff2 , '.' , suff).
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	822	].
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	823	type isNil ifTrue:[
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	824	type := self mimeTypeForSuffix:suff
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	825	].
1273 7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	826	]
7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	827	].
7a52d4bcdb10 filenames mime query falls back to suffix query. Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	828
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	829	^ type
1780 ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	830
ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	831	"
2820 98e9403031ad comment/format Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	832	MIMETypes mimeTypeForFilename:'typeinst.dvi'
98e9403031ad comment/format Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	833	MIMETypes mimeTypeForFilename:'foo.tar'
98e9403031ad comment/format Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	834	MIMETypes mimeTypeForFilename:'foo.tgz'
98e9403031ad comment/format Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	835	MIMETypes mimeTypeForFilename:'foo.tar.gz'
2911 7afaf1fdae8b comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	836	MIMETypes mimeTypeForFilename:'foo.txt'
1780 ba94d562efe8 support double-suffix such as '.tar.gz' Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	837	"
2911 7afaf1fdae8b comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	838
7afaf1fdae8b comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	839	"Modified: / 10-05-2011 / 11:55:18 / cg"
3014 e6d9a204da08 comment/format in: #mimeTypeForFilename: Claus Gittinger <cg@exept.de> parents: 3012 diff changeset	840	"Modified (format): / 28-07-2012 / 09:39:15 / cg"
1272 91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	841	!
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	842
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	843	mimeTypeForFilename:filename put:mimeType
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	844	"register a mime type for a filename"
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	845
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	846	FilenameToTypeMapping isNil ifTrue:[
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	847	FilenameToTypeMapping := Dictionary new
91ba4078b690 additional mime table for filenames without suffix. Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	848	].
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	849	FilenameToTypeMapping at:filename put:(MIMEType fromString:mimeType asLowercase)
1611 5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	850	!
5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	851
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	mimeTypeForSuffix:suffix
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	853	"given a file suffix, return the mime-type"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	854
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	855	\|type lcSuffix\|
c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	856
1837 75e19f4e8b05 tuning penk parents: 1820 diff changeset	857	suffix = LastSuffix ifTrue:[
75e19f4e8b05 tuning penk parents: 1820 diff changeset	858	^ LastType
75e19f4e8b05 tuning penk parents: 1820 diff changeset	859	].
75e19f4e8b05 tuning penk parents: 1820 diff changeset	860
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	861	lcSuffix := suffix asLowercase.
1837 75e19f4e8b05 tuning penk parents: 1820 diff changeset	862	type := FileSuffixToTypeMapping at:lcSuffix ifAbsent:nil.
75e19f4e8b05 tuning penk parents: 1820 diff changeset	863	type isNil ifTrue:[
75e19f4e8b05 tuning penk parents: 1820 diff changeset	864	"/ allow for fallback ...
75e19f4e8b05 tuning penk parents: 1820 diff changeset	865	type := OperatingSystem mimeTypeForSuffix:lcSuffix.
75e19f4e8b05 tuning penk parents: 1820 diff changeset	866	"/ the special value #unknown is returned as nil;
75e19f4e8b05 tuning penk parents: 1820 diff changeset	867	"/ this avoids constant retry if a mimeType is not known in the OS.
75e19f4e8b05 tuning penk parents: 1820 diff changeset	868
75e19f4e8b05 tuning penk parents: 1820 diff changeset	869	type := type ? #unknown.
75e19f4e8b05 tuning penk parents: 1820 diff changeset	870	FileSuffixToTypeMapping at:lcSuffix put:type.
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	871	].
1837 75e19f4e8b05 tuning penk parents: 1820 diff changeset	872
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	873	type == #unknown ifTrue:[
1837 75e19f4e8b05 tuning penk parents: 1820 diff changeset	874	type := nil.
1180 c3309b30d14f code cleanup & added mimeType aquire fallBack via OS Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	875	].
1840 19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	876	type notNil ifTrue:[
19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	877	LastSuffix := suffix.
19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	878	LastType := MIMEType fromString:type.
19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	879	^ LastType
19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	880	].
1841 b7ff9829e4b3 return value should be undefined if type isNil penk parents: 1840 diff changeset	881	^ type
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882
1666 2fe4fb7be12c added xml type Claus Gittinger <cg@exept.de> parents: 1616 diff changeset	883	"
1840 19123ded64e3 mime Types have to MIMEType instance penk parents: 1837 diff changeset	884	self mimeTypeForSuffix:'gif'
1888 ef0f346b8f43 rpm suffix is RPM-package under unix (realplayer under windows) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	885	self mimeTypeForSuffix:'rpm'
2891 9aee109c1c1c changed: Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	886	self mimeTypeForSuffix:'zip'
1666 2fe4fb7be12c added xml type Claus Gittinger <cg@exept.de> parents: 1616 diff changeset	887	"
2fe4fb7be12c added xml type Claus Gittinger <cg@exept.de> parents: 1616 diff changeset	888
2891 9aee109c1c1c changed: Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	889	"Created: / 30-06-1997 / 21:55:51 / cg"
9aee109c1c1c changed: Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	890	"Modified: / 14-02-2011 / 17:14:34 / cg"
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	mimeTypeForSuffix:suffix put:mimeType
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	894	"register a mime type for a file suffix"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	895
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	FileSuffixToTypeMapping isNil ifTrue:[
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	FileSuffixToTypeMapping := Dictionary new
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	].
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	FileSuffixToTypeMapping at:suffix put:mimeType asLowercase
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900
1021 004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	901	"Created: / 30.6.1997 / 21:56:20 / cg"
004c324dc31a checkin from browser Claus Gittinger <cg@exept.de> parents: 713 diff changeset	902	"Modified: / 1.8.1998 / 17:03:18 / cg"
1593 4bf2544435a9 add class getter method for FileSuffixToTypemapping penk parents: 1561 diff changeset	903	!
4bf2544435a9 add class getter method for FileSuffixToTypemapping penk parents: 1561 diff changeset	904
4bf2544435a9 add class getter method for FileSuffixToTypemapping penk parents: 1561 diff changeset	905	mimeTypeForSuffixMapping
4bf2544435a9 add class getter method for FileSuffixToTypemapping penk parents: 1561 diff changeset	906
4bf2544435a9 add class getter method for FileSuffixToTypemapping penk parents: 1561 diff changeset	907	^ FileSuffixToTypeMapping
1611 5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	908	!
5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	909
2023 70c535a959be * empty log message * penk parents: 2020 diff changeset	910	mimeTypeFromString:mimeTypeString
70c535a959be * empty log message * penk parents: 2020 diff changeset	911	"given a mime-type for a string"
70c535a959be * empty log message * penk parents: 2020 diff changeset	912
70c535a959be * empty log message * penk parents: 2020 diff changeset	913	^ MIMEType fromString:mimeTypeString
70c535a959be * empty log message * penk parents: 2020 diff changeset	914
70c535a959be * empty log message * penk parents: 2020 diff changeset	915	"
70c535a959be * empty log message * penk parents: 2020 diff changeset	916	self mimeTypeFromString:'image/gif'
2487 eaa224da42fa mimeType: x-expecco-testsuite (extension: ets) Claus Gittinger <cg@exept.de> parents: 2486 diff changeset	917	self mimeTypeFromString:'application/x-expecco-testsuite'
2023 70c535a959be * empty log message * penk parents: 2020 diff changeset	918	"
70c535a959be * empty log message * penk parents: 2020 diff changeset	919	!
70c535a959be * empty log message * penk parents: 2020 diff changeset	920
1611 5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	921	mimeTypeOfContents:filename
5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	922	"given a filename, scan the contents, return the mime-type or nil, if unknown"
5804b7d63ee8 checkin from browser penk parents: 1610 diff changeset	923
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	924	\|typeString\|
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	925
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	926	typeString := filename mimeTypeOfContents.
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	927	typeString isNil ifTrue:[^ nil].
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	928	^ MIMEType fromString:typeString.
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	929	!
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	930
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	931	mimeTypeOfData:someData
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	932	"this tries to guess the mime type of contents of someData.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	933	Returns nil, if unknown.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	934	This is done using some heuristics, and may need some improvement"
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	935
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	936	\|buffer lcBuffer size idx idx2\|
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	937
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	938	someData isEmptyOrNil ifTrue:[^ nil].
c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	939
c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	940	size := 2048 min:someData size.
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	941
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	942	"/ read some data from the file ...
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	943	buffer := (someData copyTo:size) asString.
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	944	lcBuffer := buffer asLowercase.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	945
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	946	(idx := lcBuffer findString:'mimetype:') ~~ 0 ifTrue:[
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	947	idx := idx + 'mimetype:' size.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	948	idx := lcBuffer indexOfNonSeparatorStartingAt:idx.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	949	idx2 := lcBuffer indexOfSeparatorStartingAt:idx.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	950	idx2 > idx ifTrue:[
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	951	^ MIMEType fromString:(lcBuffer copyFrom:idx to:idx2-1)
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	952	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	953	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	954
2924 808feaad1bb3 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2912 diff changeset	955	"/ real starters
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	956	#(
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	957	( #[16r4C 16r00 16r00 16r00 16r01 16r14 16r02 16r00 16r00 16r00 16r00 16r00 16rC0 16r00 16r00 16r00 16r00 16r00 16r00 16r46]
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	958	#'application/x-ms-shortcut' )
2924 808feaad1bb3 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2912 diff changeset	959	( 'ITOLITLS'
808feaad1bb3 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2912 diff changeset	960	#'application/x-ms-reader' )
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	961	( 'WALTOP'
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	962	#'application/x-waltop-digital-notepad' )
2892 3da4b1884487 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2891 diff changeset	963	('PK'
3da4b1884487 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2891 diff changeset	964	#'application/x-zip-compressed')
3113 f05de9a7a26c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3104 diff changeset	965	('<?xml'
f05de9a7a26c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3104 diff changeset	966	#'text/xml')
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	967	) pairsDo:[:pattern :what \|
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	968	\|patternString\|
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	969
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	970	patternString := pattern asString.
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	971	(buffer startsWith:patternString) ifTrue:[
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	972	^ MIMEType fromString:what
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	973	]
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	974	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	975
2924 808feaad1bb3 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2912 diff changeset	976	"/ somewhere near the beginning
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	977	#(
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	978	('<body:' #'text/html')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	979	('%!!ps-adobe' #'application/postscript')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	980	('%PDF-' #'application/pdf')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	981	('#!! /bin/sh' #'application/x-sh')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	982	('#!!/bin/sh' #'application/x-sh')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	983	"/ ('#!! /bin/bash' 'application/x-bash')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	984	"/ ('#!!/bin/bash' 'application/x-bash')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	985
3113 f05de9a7a26c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3104 diff changeset	986	('---- encoding: ' #'application/x-smalltalk-source')
f05de9a7a26c class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3104 diff changeset	987	('---- timestamp ' #'application/x-smalltalk-source')
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	988	('from dolphin' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	989	('from visualworks' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	990	('categoriesforclass' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	991	('methodsfor!!' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	992	('subclass:' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	993	('methodsfor:' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	994	('interchangeversion:' #'application/x-smalltalk-source-sif')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	995	('subclass:' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	996	('methodsfor:' #'application/x-smalltalk-source')
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	997
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	998	) pairsDo:[:pattern :what \|
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	999	(lcBuffer findString:pattern) ~~ 0 ifTrue:[
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	1000	^ MIMEType fromString:what
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1001	]
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1002	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1003
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1004	(idx := lcBuffer findString:'<h') ~~ 0 ifTrue:[
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1005	((lcBuffer continuesWith:'<head' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1006	or:[(lcBuffer continuesWith:'<html' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1007	or:[(lcBuffer continuesWith:'<h1' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1008	or:[(lcBuffer continuesWith:'<h2' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1009	or:[(lcBuffer continuesWith:'<h3' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1010	or:[(lcBuffer continuesWith:'<h4' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1011	or:[(lcBuffer continuesWith:'<h5' startingAt:idx)
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1012	or:[(lcBuffer continuesWith:'<h6' startingAt:idx)]]]]]]])
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1013	ifTrue:[
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	1014	^ MIMEType fromString:'text/html'
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1015	]
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1016	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1017
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1018	[size ~~ 0 and:[(buffer at:size) isPrintable]] whileTrue:[size := size - 1].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1019
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1020	size == 0 ifTrue:[
2583 c33208757c6f oops Claus Gittinger <cg@exept.de> parents: 2582 diff changeset	1021	^ MIMEType fromString:'text/plain'
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1022	].
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1023	^ nil
2891 9aee109c1c1c changed: Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	1024
2924 808feaad1bb3 changed: #mimeTypeOfData: Claus Gittinger <cg@exept.de> parents: 2912 diff changeset	1025	"Modified: / 12-07-2011 / 19:08:17 / cg"
2582 298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1026	!
298203fdb64d mime type detection from conents moved from fileName to here Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	1027
1887 ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1028	suffixForMimeType:mimeType
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1029	"given a file suffix, return the mime-type"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1030
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1031	^ TypeToFileSuffixMapping at:mimeType ifAbsent:nil
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1032
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1033	"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1034	self suffixForMimeType:(MIMEType fromString:'image/gif')
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1035	"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1036
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1037	"Created: / 30.6.1997 / 21:55:51 / cg"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1038	"Modified: / 23.12.1999 / 22:30:55 / cg"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1039	!
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1040
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1041	suffixForMimeTypeString:mimeTypeString
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1042	"given a file suffix, return the mime-type"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1043
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1044	^ self suffixForMimeType:(MIMEType fromString:mimeTypeString)
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1045
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1046	"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1047	self suffixForMimeTypeString:'image/gif'
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1048	"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1049
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1050	"Created: / 30.6.1997 / 21:55:51 / cg"
ae19bd933dbd add suffixForMimeType acces penk parents: 1864 diff changeset	1051	"Modified: / 23.12.1999 / 22:30:55 / cg"
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1052	! !
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1053
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1054	!MIMETypes class methodsFor:'queries-applications'!
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1055
2117 84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1056	defaultCommandPerMIME
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1057	"returns the collection which is used to map MIME-type to command-templates."
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1058
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1059	"TODO: move this to OS/UserPreferences"
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1060
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1061	DefaultCommandPerMIMEPerOS isNil ifTrue:[
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1062	self initializeDefaultCommands
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1063	].
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1064	OperatingSystem isUNIXlike ifTrue:[
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1065	^ DefaultCommandPerMIMEPerOS at:#unix
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1066	].
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1067	^ DefaultCommandPerMIMEPerOS at:#win32
2942 693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1068
693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1069	"
693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1070	MIMETypes defaultCommandPerMIME
693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1071	"
693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1072
693d381bc775 comment/format in: #defaultCommandPerMIME Claus Gittinger <cg@exept.de> parents: 2937 diff changeset	1073	"Modified (comment): / 16-09-2011 / 16:20:12 / cg"
2117 84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1074	!
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1075
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1076	defaultCommandTemplateToOpenMimeType:mimeType
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1077	\|cmd\|
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1078
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1079	cmd := self defaultCommandPerMIME at:mimeType ifAbsent:nil.
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1080	cmd isNil ifTrue:[
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1081	OperatingSystem isMSWINDOWSlike ifTrue:[
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1082	cmd := Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:mimeType
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1083	].
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1084	].
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1085	^ cmd
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1086
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1087	"
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1088	MIMETypes defaultCommandTemplateToOpenMimeType:'application/pdf'
2118 b41112f6c76e commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 2117 diff changeset	1089	MIMETypes defaultCommandTemplateToOpenMimeType:'text/html'
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1090	"
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1091
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1092	"Created: / 12-05-2004 / 11:09:22 / cg"
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1093	"Modified: / 12-05-2004 / 11:16:53 / cg"
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1094	!
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1095
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1096	defaultCommandTemplateToPrintMimeType:mimeType
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1097	\|cmd\|
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1098
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1099	cmd := self defaultPrintCommandPerMIME at:mimeType ifAbsent:nil.
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1100	cmd isNil ifTrue:[
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1101	OperatingSystem isMSWINDOWSlike ifTrue:[
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1102	cmd := Win32OperatingSystem::RegistryEntry commandTemplateToPrintMimeType:mimeType
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1103	].
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1104	].
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1105	^ cmd
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1106
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1107	"
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1108	MIMETypes defaultCommandTemplateToPrintMimeType:'application/pdf'
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1109	"
2117 84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1110	!
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1111
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1112	defaultPrintCommandPerMIME
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1113	"returns the collection which is used to map MIME-type to printing command-templates."
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1114
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1115	"TODO: move this to OS/UserPreferences"
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1116
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1117	DefaultPrintCommandPerMIMEPerOS isNil ifTrue:[
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1118	self initializeDefaultCommands
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1119	].
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1120	OperatingSystem isUNIXlike ifTrue:[
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1121	^ DefaultPrintCommandPerMIMEPerOS at:#unix
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1122	].
84ad717d243e * empty log message * Claus Gittinger <cg@exept.de> parents: 2116 diff changeset	1123	^ DefaultPrintCommandPerMIMEPerOS at:#win32
2116 edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1124	! !
edc0a8f8ff26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	1125
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1126	!MIMETypes class methodsFor:'queries-image formats'!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1127
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1128	imageReaderClasses
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1129	"return a collection of registered image reader classes"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1130
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1131	\|setOfClasses\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1132
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1133	setOfClasses := IdentitySet new.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1134	FileSuffixToImageReaderClassMapping notNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1135	FileSuffixToImageReaderClassMapping keysAndValuesDo:[:suff :cls \|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1136	setOfClasses add:cls
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1137	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1138	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1139	TypeToImageReaderClassMapping notNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1140	TypeToImageReaderClassMapping keysAndValuesDo:[:suff :cls \|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1141	setOfClasses add:cls
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1142	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1143	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1144	^ setOfClasses
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1145
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1146	"Created: / 30.6.1997 / 22:03:42 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1147	"Modified: / 1.8.1998 / 16:59:52 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1148	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1149
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1150	imageReaderForSuffix:aSuffix
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1151	"given a file suffix, return an approriate image reader class"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1152
2724 8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1153	FileSuffixToImageReaderClassMapping isNil ifTrue:[
8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1154	self initializeImageReaderMappings
8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1155	].
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1156	^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1157
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1158	"Created: / 30.6.1997 / 21:59:11 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1159	"Modified: / 1.8.1998 / 17:01:58 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1160	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1161
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1162	imageReaderForSuffix:aSuffix put:aReaderClass
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1163	"register an image reader for a file suffix"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1164
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1165	FileSuffixToImageReaderClassMapping isNil ifTrue:[
2724 8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1166	self initializeImageReaderMappings
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1167	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1168	FileSuffixToImageReaderClassMapping at:aSuffix asLowercase put:aReaderClass
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1169
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1170	"Created: / 30.6.1997 / 21:59:43 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1171	"Modified: / 1.8.1998 / 17:02:14 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1172	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1173
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1174	imageReaderForType:mimeTypeString
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1175	"given a mime-type, return an approriate image reader class"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1176
2724 8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1177	TypeToImageReaderClassMapping isNil ifTrue:[
8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1178	self initializeImageReaderMappings
8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1179	].
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1180	^ TypeToImageReaderClassMapping at:mimeTypeString asLowercase ifAbsent:nil
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1181
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1182	"Created: / 30.6.1997 / 21:56:01 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1183	"Modified: / 1.8.1998 / 17:02:28 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1184	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1185
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1186	imageReaderForType:mimeTypeString put:aReaderClass
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1187	"register an image reader for a mime-type"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1188
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1189	TypeToImageReaderClassMapping isNil ifTrue:[
2724 8e834e62dbbc Initialize when querying for image type and not yet initialized Stefan Vogel <sv@exept.de> parents: 2710 diff changeset	1190	self initializeImageReaderMappings
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1191	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1192	TypeToImageReaderClassMapping at:mimeTypeString asLowercase put:aReaderClass
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1193
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1194	"Created: / 30.6.1997 / 21:56:11 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1195	"Modified: / 1.8.1998 / 17:02:40 / cg"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1196	! !
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1197
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1198	!MIMETypes class methodsFor:'queries-language syntax'!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1199
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1200	commentStringsForFilename:aFilename
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1201	"return a useful comment definition; heuristics for now.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1202	The returned value is an array of 2 elements;
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1203	the first is the end-of-line comment string (or nil);
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1204	the second an array of opening/closing delimiters (or an array of nils)"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1205
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1206	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1207
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1208	mime := MIMETypes mimeTypeForFilename:aFilename.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1209	^ self commentStringsForMimeType:mime suffix:(aFilename asFilename suffix)
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1210
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1211	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1212	MIMETypes commentStringsForFilename:'Makefile'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1213	MIMETypes commentStringsForFilename:'Object.st'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1214	MIMETypes commentStringsForFilename:'Foo.java'.
1925 9f5e4568529f comment Claus Gittinger <cg@exept.de> parents: 1891 diff changeset	1215	MIMETypes commentStringsForFilename:'Foo.html'.
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1216	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1217	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1218
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1219	commentStringsForFilename:aFilename ifUnknown:alternativeBlockReturningCommentString
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1220	"return a useful comment definition; heuristics for now.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1221	The returned value is an array of 2 elements;
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1222	the first is the end-of-line comment string (or nil);
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1223	the second an array of opening/closing delimiters (or an array of nils)"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1224
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1225	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1226
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1227	mime := MIMETypes mimeTypeForFilename:aFilename.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1228	^ self commentStringsForMimeType:mime suffix:(aFilename asFilename suffix) ifUnknown:alternativeBlockReturningCommentString
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1229
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1230	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1231	MIMETypes commentStringsForFilename:'Makefile'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1232	MIMETypes commentStringsForFilename:'Object.st'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1233	MIMETypes commentStringsForFilename:'Foo.java'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1234	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1235	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1236
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1237	commentStringsForMimeType:mime suffix:suff
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1238	"return a useful comment definition; heuristics for now.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1239	The returned value is an array of 2 elements;
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1240	the first is the end-of-line comment string (or nil);
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1241	the second an array of opening/closing delimiters (or an array of nils)"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1242
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1243	^ self
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1244	commentStringsForMimeType:mime suffix:suff
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1245	ifUnknown: #(';' (nil nil))
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1246
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1247	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1248	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1249
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1250	mime := MIMETypes mimeTypeForFilename:'Makefile'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1251	MIMETypes commentStringsForMimeType:mime suffix:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1252	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1253
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1254	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1255	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1256
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1257	mime := MIMETypes mimeTypeForFilename:'Object.st'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1258	MIMETypes commentStringsForMimeType:mime suffix:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1259	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1260	!
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1261
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1262	commentStringsForMimeType:mime suffix:suff ifUnknown:alternativeBlockReturningCommentString
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1263	"return a useful comment definition; heuristics for now.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1264	The returned value is an array of 2 elements;
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1265	the first is the end-of-line comment string (or nil);
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1266	the second an array of opening/closing delimiters (or an array of nils)"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1267
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1268	\|commentSpec\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1269
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1270	commentSpec := TypeToCommentStringMapping at:mime ifAbsent:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1271	commentSpec notNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1272	^ commentSpec
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1273	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1274
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1275	commentSpec := SuffixToCommentStringMapping at:suff ifAbsent:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1276	commentSpec notNil ifTrue:[
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1277	^ commentSpec
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1278	].
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1279
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1280	^ alternativeBlockReturningCommentString value
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1281
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1282	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1283	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1284
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1285	mime := MIMETypes mimeTypeForFilename:'Makefile'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1286	MIMETypes commentStringsForMimeType:mime suffix:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1287	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1288
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1289	"
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1290	\|mime\|
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1291
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1292	mime := MIMETypes mimeTypeForFilename:'Object.st'.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1293	MIMETypes commentStringsForMimeType:mime suffix:nil.
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1294	"
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1295	!
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1296
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1297	parenthesisSpecForFilename:aFilename
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1298	"return a useful parentesis spec; heuristics for now.
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1299	The returned value is a dictionary to be used as parentesis spec in an editor"
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1300
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1301	\|mime\|
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1302
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1303	mime := MIMETypes mimeTypeForFilename:aFilename.
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1304	^ self parenthesisSpecForMimeType:mime suffix:(aFilename asFilename suffix)
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1305
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1306	"
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1307	MIMETypes parenthesisSpecForFilename:'Object.st'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1308	MIMETypes parenthesisSpecForFilename:'Foo.java'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1309	MIMETypes parenthesisSpecForFilename:'Foo.html'.
831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1310	MIMETypes parenthesisSpecForFilename:'Foo.lsp'.
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1311	"
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1312
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1313	"Created: / 10-04-2007 / 15:18:41 / cg"
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1314	!
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1315
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1316	parenthesisSpecForFilename:aFilename ifUnknown:alternative
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1317	\|mime\|
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1318
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1319	mime := MIMETypes mimeTypeForFilename:aFilename.
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1320	^ self parenthesisSpecForMimeType:mime suffix:(aFilename asFilename suffix) ifUnknown:alternative
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1321
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1322	"Created: / 10-04-2007 / 15:26:20 / cg"
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1323	!
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1324
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1325	parenthesisSpecForMimeType:mime suffix:suff
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1326	^ self
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1327	parenthesisSpecForMimeType:mime suffix:suff
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1328	ifUnknown: nil
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1329
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1330	"Created: / 10-04-2007 / 15:19:39 / cg"
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1331	!
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1332
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1333	parenthesisSpecForMimeType:mime suffix:suff ifUnknown:alternativeValue
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1334	\|spec\|
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1335
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1336	spec := TypeToParenthesisSpecMapping at:mime ifAbsent:nil.
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1337	spec notNil ifTrue:[
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1338	^ spec
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1339	].
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1340
2491 831417cc1e5b Change bas spelling: parentesis to good spellinge parenthesis Stefan Vogel <sv@exept.de> parents: 2490 diff changeset	1341	spec := SuffixToParenthesisSpecMapping at:suff ifAbsent:nil.
2298 2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1342	spec notNil ifTrue:[
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1343	^ spec
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1344	].
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1345
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1346	^ alternativeValue value
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1347
2d09f75ee005 parentesis spec Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	1348	"Created: / 10-04-2007 / 15:20:38 / cg"
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1349	! !
5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1350
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1351	!MIMETypes::MIMEType class methodsFor:'documentation'!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1352
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1353	documentation
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1354	"
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1355	like a string, but knows that it represents a mimeType.
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1356	"
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1357	! !
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1358
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1359	!MIMETypes::MIMEType class methodsFor:'instance creation'!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1360
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1361	fromString:aString
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1362	\|cachedType newType\|
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1363
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1364	aString class == self ifTrue:[^ aString].
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1365
3011 f2af94d78383 delay initialization of cachedTypes Claus Gittinger <cg@exept.de> parents: 3008 diff changeset	1366	CachedTypes isNil ifTrue:[
3012 af9c31ac2fc1 make it a real dictionary Claus Gittinger <cg@exept.de> parents: 3011 diff changeset	1367	CachedTypes := Dictionary new:100.
3011 f2af94d78383 delay initialization of cachedTypes Claus Gittinger <cg@exept.de> parents: 3008 diff changeset	1368	].
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1369	cachedType := CachedTypes at:aString ifAbsent:nil.
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1370	cachedType notNil ifTrue:[^ cachedType].
3011 f2af94d78383 delay initialization of cachedTypes Claus Gittinger <cg@exept.de> parents: 3008 diff changeset	1371
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1372	newType := aString copy changeClassTo:self.
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1373	CachedTypes at:aString put:newType.
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1374	^ newType
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1375
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1376	"
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1377	self fromString:'text/html'
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1378	"
3011 f2af94d78383 delay initialization of cachedTypes Claus Gittinger <cg@exept.de> parents: 3008 diff changeset	1379
3012 af9c31ac2fc1 make it a real dictionary Claus Gittinger <cg@exept.de> parents: 3011 diff changeset	1380	"Modified: / 20-07-2012 / 17:36:31 / cg"
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1381	! !
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1382
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1383	!MIMETypes::MIMEType methodsFor:'queries'!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1384
1693 4055b361abe9 isArchiv -> isArchive Claus Gittinger <cg@exept.de> parents: 1691 diff changeset	1385	isArchive
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1386	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1387	"return true, if I represent an archive type (such as zip or tar)"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1388
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1389	^ self isArchiveType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1390	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1391
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1392	isArchiveType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1393	"return true, if I represent an archive type (such as zip or tar)"
c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1394
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1395	\|archivTypes\|
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1396
1729 5d1b74b8d264 refactored Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	1397	archivTypes := MIMETypes applicationCompressorsAndArchiveTypeList.
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1398	archivTypes pairWiseDo:[: ext : type \|
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1399	self = type ifTrue:[ ^ true].
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1400	].
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1401	^ false
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1402	!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1403
2024 eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1404	isBinary
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1405	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1406	"return true, if I represent a binary (non-text) type"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1407
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1408	^ self isBinaryType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1409	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1410
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1411	isBinaryType
2024 eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1412	"return true, if I represent a binary (non-text) type"
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1413
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1414	^ self isTextType not
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1415	!
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1416
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1417	isHtml
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1418	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1419	"return true, if I represent the html text type"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1420
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1421	^ self isHtmlType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1422	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1423
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1424	isHtmlType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1425	"return true, if I represent the html text type"
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1426
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1427	^ (self = 'text/html')
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1428	!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1429
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1430	isImage
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1431	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1432	"return true, if I represent an image type (such as gif or jpg)"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1433
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1434	^ self isImageType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1435	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1436
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1437	isImageType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1438	"return true, if I represent an image type (such as gif or jpg)"
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1439
1693 4055b361abe9 isArchiv -> isArchive Claus Gittinger <cg@exept.de> parents: 1691 diff changeset	1440	^ (self startsWith:'image/')
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1441	!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1442
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1443	isPdf
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1444	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1445	"return true, if I represent the pdf type"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1446
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1447	^ self isPdfType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1448	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1449
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1450	isPdfType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1451	"return true, if I represent the pdf type"
c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1452
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1453	^ (self = 'application/pdf')
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1454	!
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1455
4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1456	isSmalltalkSource
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1457	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1458	"return true, if I represent the smalltalk sourcecode type"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1459
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1460	^ self isSmalltalkSourceType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1461	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1462
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1463	isSmalltalkSourceType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1464	"return true, if I represent the smalltalk sourcecode type"
c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1465
1612 4c7893f943a8 * empty log message * penk parents: 1611 diff changeset	1466	^ (self = 'application/x-smalltalk-source')
1783 faf721f692ae * empty log message * Claus Gittinger <cg@exept.de> parents: 1780 diff changeset	1467	!
faf721f692ae * empty log message * Claus Gittinger <cg@exept.de> parents: 1780 diff changeset	1468
2024 eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1469	isTextType
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1470	"return true, if I represent some text type"
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1471
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1472	^ self startsWith:'text/'
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1473	!
eb5838c72cc7 isBinary added penk parents: 2023 diff changeset	1474
1783 faf721f692ae * empty log message * Claus Gittinger <cg@exept.de> parents: 1780 diff changeset	1475	isXml
3260 cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1476	<resource: #obsolete>
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1477	"return true, if I represent the xml text type"
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1478
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1479	^ self isXmlType
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1480	!
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1481
cefd4c99843e class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3253 diff changeset	1482	isXmlType
1864 c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1483	"return true, if I represent the xml text type"
c21ec6c1635e comments Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1484
1783 faf721f692ae * empty log message * Claus Gittinger <cg@exept.de> parents: 1780 diff changeset	1485	^ (self = 'text/xml')
2490 9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1486	!
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1487
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1488	suffix
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1489	^ MIMETypes suffixForMimeType:self
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1490
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1491	"
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1492	(MIMETypes mimeTypeFromString:'application/x-expecco-testsuite') suffix
9bcc1b3fd7e0 MIMEType>>#suffix Stefan Vogel <sv@exept.de> parents: 2489 diff changeset	1493	"
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494	! !
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	!MIMETypes class methodsFor:'documentation'!
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1497
f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	version
3322 78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1499	^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.133 2014-03-31 09:19:26 cg Exp $'
2758 66e62ceecb67 comment/format in: #defaultCommandForMimeType: Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	1500	!
66e62ceecb67 comment/format in: #defaultCommandForMimeType: Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	1501
66e62ceecb67 comment/format in: #defaultCommandForMimeType: Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	1502	version_CVS
3322 78576b7fa8c5 class: MIMETypes Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1503	^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.133 2014-03-31 09:19:26 cg Exp $'
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1504	! !
1666 2fe4fb7be12c added xml type Claus Gittinger <cg@exept.de> parents: 1616 diff changeset	1505
3104 39607bbc7c1d class: MIMETypes Stefan Vogel <sv@exept.de> parents: 3039 diff changeset	1506
643 f3bd12eb1008 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1507	MIMETypes initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 31 Mar 2014 11:19:26 +0200
changeset 3322	78576b7fa8c5
parent 3295	c430566c334c
child 3332	5ab088e3de36
permissions	-rw-r--r--