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

author	Claus Gittinger <cg@exept.de>
	Sun, 09 Nov 2014 23:17:21 +0100
changeset 3380	e7a59408d31a
parent 3367	048fc9f61885
child 3400	7c44ae7a6d6b
permissions	-rw-r--r--