hg/stx-libbasic: CharacterArray.st@e3423079cee1 (annotated)

8083 e3423079cee1 checkin from browser Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	1	"{ Encoding: utf8 }"
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	2
64 af7aeb79b25e Initial revision claus parents: diff changeset	3	"
af7aeb79b25e Initial revision claus parents: diff changeset	4	COPYRIGHT (c) 1994 by Claus Gittinger
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	5	All Rights Reserved
64 af7aeb79b25e Initial revision claus parents: diff changeset	6
af7aeb79b25e Initial revision claus parents: diff changeset	7	This software is furnished under a license and may be used
af7aeb79b25e Initial revision claus parents: diff changeset	8	only in accordance with the terms of that license and with the
af7aeb79b25e Initial revision claus parents: diff changeset	9	inclusion of the above copyright notice. This software may not
af7aeb79b25e Initial revision claus parents: diff changeset	10	be provided or otherwise made available to, or used by, any
af7aeb79b25e Initial revision claus parents: diff changeset	11	other person. No title to or ownership of the software is
af7aeb79b25e Initial revision claus parents: diff changeset	12	hereby transferred.
af7aeb79b25e Initial revision claus parents: diff changeset	13	"
af7aeb79b25e Initial revision claus parents: diff changeset	14
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	15	"{ Package: 'stx:libbasic' }"
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	16
3926 4cc33691696a checkin from browser Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	17	ByteArray variableByteSubclass:#CharacterArray
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	18	instanceVariableNames:''
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	19	classVariableNames:'PreviousMatch DecoderTables EncoderTables DecodingFailedSignal
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	20	EncodingFailedSignal'
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	21	poolDictionaries:''
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	22	category:'Collections-Text'
64 af7aeb79b25e Initial revision claus parents: diff changeset	23	!
af7aeb79b25e Initial revision claus parents: diff changeset	24
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	25	!CharacterArray class methodsFor:'documentation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	26
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	27	copyright
0147b4f725ae * empty log message * claus parents: 77 diff changeset	28	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	29	COPYRIGHT (c) 1994 by Claus Gittinger
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	30	All Rights Reserved
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	31
0147b4f725ae * empty log message * claus parents: 77 diff changeset	32	This software is furnished under a license and may be used
0147b4f725ae * empty log message * claus parents: 77 diff changeset	33	only in accordance with the terms of that license and with the
0147b4f725ae * empty log message * claus parents: 77 diff changeset	34	inclusion of the above copyright notice. This software may not
0147b4f725ae * empty log message * claus parents: 77 diff changeset	35	be provided or otherwise made available to, or used by, any
0147b4f725ae * empty log message * claus parents: 77 diff changeset	36	other person. No title to or ownership of the software is
0147b4f725ae * empty log message * claus parents: 77 diff changeset	37	hereby transferred.
0147b4f725ae * empty log message * claus parents: 77 diff changeset	38	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	39	!
0147b4f725ae * empty log message * claus parents: 77 diff changeset	40
64 af7aeb79b25e Initial revision claus parents: diff changeset	41	documentation
af7aeb79b25e Initial revision claus parents: diff changeset	42	"
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	43	CharacterArray is a superclass for all kinds of Strings (i.e.
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	44	(singleByte-)Strings, TwoByteStrings and whatever comes in the future.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	45
2537 9398b135cec4 comment Claus Gittinger <cg@exept.de> parents: 2520 diff changeset	46	This class is abstract, meaning that there are no instances of it.
9398b135cec4 comment Claus Gittinger <cg@exept.de> parents: 2520 diff changeset	47	All this class does is provide common protocol for concrete subclasses.
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	48
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	49	[author:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	50	Claus Gittinger
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	51
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	52	[see also:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	53	String TwoByteString
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	54	StringCollection
64 af7aeb79b25e Initial revision claus parents: diff changeset	55	"
af7aeb79b25e Initial revision claus parents: diff changeset	56	! !
af7aeb79b25e Initial revision claus parents: diff changeset	57
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	58	!CharacterArray class methodsFor:'initialization'!
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	59
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	60	initialize
5440 ba9207f592c9 only init once Claus Gittinger <cg@exept.de> parents: 5352 diff changeset	61	DecodingFailedSignal isNil ifTrue:[
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	62	DecodingFailedSignal := DecodingError.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	63	DecodingFailedSignal notifierString:'error during decode'.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	64
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	65	EncodingFailedSignal :=EncodingError.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	66	EncodingFailedSignal notifierString:'error during encode'.
5440 ba9207f592c9 only init once Claus Gittinger <cg@exept.de> parents: 5352 diff changeset	67	]
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	68
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	69	"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	70	CharacterArray initialize
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	71	"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	72
2833 f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	73	"Modified: 3.8.1997 / 18:15:59 / cg"
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	74	! !
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	75
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	76	!CharacterArray class methodsFor:'instance creation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	77
af7aeb79b25e Initial revision claus parents: diff changeset	78	basicNew
af7aeb79b25e Initial revision claus parents: diff changeset	79	"return a new empty string"
af7aeb79b25e Initial revision claus parents: diff changeset	80
af7aeb79b25e Initial revision claus parents: diff changeset	81	^ self basicNew:0
af7aeb79b25e Initial revision claus parents: diff changeset	82	!
af7aeb79b25e Initial revision claus parents: diff changeset	83
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	84	fromBytes:aByteCollection
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	85	"return an instance of the receiver class,
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	86	taking untranslated bytes from the argument, aByteCollection.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	87	Only useful, when reading twoByteStrings from external sources."
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	88
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	89	\|mySize nBytes newString dstIdx\|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	90
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	91	nBytes := aByteCollection size.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	92	mySize := self basicNew bitsPerCharacter.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	93	mySize == 16 ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	94	newString := self basicNew:(nBytes // 2).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	95	dstIdx := 1.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	96	aByteCollection pairWiseDo:[:hi :lo \|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	97	newString at:dstIdx put:(Character value:(hi bitShift:8)+lo).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	98	dstIdx := dstIdx + 1
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	99	].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	100	^ newString.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	101	].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	102
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	103	^ (self basicNew:nBytes) replaceFrom:1 with:aByteCollection
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	104
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	105	"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	106	TwoByteString fromBytes:#[16r21 16r21]
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	107	"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	108
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	109	"Modified: 30.6.1997 / 20:08:37 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	110	!
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	111
64 af7aeb79b25e Initial revision claus parents: diff changeset	112	fromString:aString
af7aeb79b25e Initial revision claus parents: diff changeset	113	"return a copy of the argument, aString"
af7aeb79b25e Initial revision claus parents: diff changeset	114
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	115	^ (self basicNew:(aString size)) replaceFrom:1 with:aString
59faa75185ba * empty log message * claus parents: 64 diff changeset	116
59faa75185ba * empty log message * claus parents: 64 diff changeset	117	"TwoByteString fromString:'hello'"
581 8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	118	!
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	119
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	120	fromStringCollection:aCollectionOfStrings
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	121	"return new string formed by concatenating a copy of the argument, aString"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	122
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	123	^ self fromStringCollection:aCollectionOfStrings separatedBy:''
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	124
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	125	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	126	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this')
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	127	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	128
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	129	"Created: 20.11.1995 / 15:26:59 / cg"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	130	!
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	131
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	132	fromStringCollection:aCollectionOfStrings separatedBy:aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	133	"return new string formed by concatenating a copy of the argument, aString"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	134
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	135	\|newString first\|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	136
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	137	newString := ''.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	138	first := true.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	139	aCollectionOfStrings do:[:s \|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	140	first ifFalse:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	141	newString := newString , aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	142	] ifTrue:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	143	first := false
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	144	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	145	newString := newString , s
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	146	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	147	^ newString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	148
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	149	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	150	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this') separatedBy:' '
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	151	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	152
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	153	"Created: 20.11.1995 / 15:32:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	154	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	155
5757 2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	156	fromUTF8Bytes:aByteCollection
5758 30e0cc2213ac utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5757 diff changeset	157	"return a new string which represents the characters as decoded
30e0cc2213ac utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5757 diff changeset	158	from the utf8 encoded bytes, aByteCollection.
30e0cc2213ac utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5757 diff changeset	159	Returns either a normal String, or a TwoByteString instance.
6810 a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	160	Only useful, when reading twoByteStrings from external sources.
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	161	This only handles up-to 16bit characters"
5757 2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	162
7876 56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	163	^ self decodeFromUTF8:aByteCollection.
5757 2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	164
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	165	"
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	166	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	167	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	168	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
6810 a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	169	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	170
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	171	rfc2279 examples:
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	172	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	173	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	174	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	175
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	176	invalid:
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	177	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
a055eb19e9d3 caych invalid encodings Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	178	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
5757 2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	179	"
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	180	!
2511dcddce73 utf8 string decoding Claus Gittinger <cg@exept.de> parents: 5741 diff changeset	181
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	182	new
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	183	"return a new empty string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	184
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	185	^ self basicNew:0
64 af7aeb79b25e Initial revision claus parents: diff changeset	186	! !
af7aeb79b25e Initial revision claus parents: diff changeset	187
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	188	!CharacterArray class methodsFor:'Signal constants'!
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	189
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	190	decodingFailedSignal
2833 f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	191	"return the signal, raised when decoding of a string is not possible
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	192	due to invalid characters contained in the source.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	193	This may happen for example, if a non EUC coded 8-bit string
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	194	is attempted to be decoded into a JIS string."
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	195
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	196	^ DecodingFailedSignal
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	197
2833 f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	198	"Created: 28.6.1997 / 20:09:55 / cg"
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	199	"Modified: 3.8.1997 / 18:16:47 / cg"
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	200	!
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	201
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	202	encodingFailedSignal
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	203	"return the (query-) signal, raised when encoding of a string is not possible
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	204	due to invalid characters contained in the source."
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	205
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	206	^ EncodingFailedSignal
f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	207
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	208	"Modified: 28.6.1997 / 20:09:35 / cg"
2833 f8600b7cb86d provide access to signals Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	209	"Created: 3.8.1997 / 18:16:40 / cg"
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	210	! !
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	211
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	212	!CharacterArray class methodsFor:'cleanup'!
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	213
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	214	lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	215	"cleanup in low-memory situations"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	216
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	217	DecoderTables := EncoderTables := nil
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	218
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	219	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	220	CharacterArray lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	221	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	222
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	223	"Created: 22.2.1996 / 16:30:30 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	224	"Modified: 22.2.1996 / 17:58:05 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	225	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	226
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	227	!CharacterArray class methodsFor:'code tables'!
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	228
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	229	classForEncoding:encodingSymbol
7950 1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	230	"return a class capable of representing text encoded by encodingSymbol"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	231
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	232	encodingSymbol == #jis ifTrue:[^ JISEncodedString].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	233	encodingSymbol == #big5 ifTrue:[^ BIG5EncodedString].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	234	encodingSymbol == #gb ifTrue:[^ GBEncodedString].
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	235	encodingSymbol == #ksc ifTrue:[^ KSCEncodedString].
7950 1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	236	encodingSymbol == #unicode ifTrue:[^ Unicode32String].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	237
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	238	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	239	"/ assume its an 8-bit code
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	240	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	241	^ String
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	242
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	243	"Modified: 30.6.1997 / 19:48:05 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	244	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	245
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	246	decoderTableFor:encoding
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	247	"return a table to decode from an alien encoding into
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	248	the internal (iso8859, ansi) format.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	249	This is an experimental interface - unfinished"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	250
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	251	\|table unrepresentableCharacterCode x80Table\|
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	252
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	253	DecoderTables notNil ifTrue:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	254	table := DecoderTables at:encoding ifAbsent:nil.
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	255	table notNil ifTrue:[
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	256	table == #identity ifTrue:[^ nil].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	257	^ table
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	258	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	259	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	260	DecoderTables := IdentityDictionary new
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	261	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	262
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	263	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	264
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	265	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	266	"/ setup as identityTranslation
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	267	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	268	table := (0 to:255) asByteArray.
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	269
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	270	"/
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	271	"/ hp -> iso8859
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	272	"/
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	273	"/ hp uses a funny encoding of the A1 .. FF characters
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	274	"/
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	275	"/
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	276	encoding == #hp ifTrue:[
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	277	unrepresentableCharacterCode := 16rA0.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	278
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	279	x80Table :=
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	280	#(
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	281	16r0080 16r0081 16r0082 16r0083 16r0084 16r0085 16r0086 16r0087 "/ 80
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	282	16r0088 16r0089 16r008a 16r008b 16r008c 16r008d 16r008e 16r008f
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	283
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	284	16r0090 16r0091 16r0092 16r0093 16r0094 16r0095 16r0096 16r0097 "/ 90
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	285	16r0098 16r0099 16r009a 16r009b 16r009c 16r009d 16r009e 16r009f
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	286
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	287	16r00a0 16r00c0 16r00c2 16r00c8 16r00c9 16r00cb 16r00ce 16r00cf "/ a0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	288	16r00b4 16rFFFF 16rFFFF 16r00a8 16rFFFF 16r00d9 16r00da 16r00a3
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	289
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	290	16rFFFF 16r00dd 16r00fd 16r00b0 16r00c7 16r00e7 16r00d1 16r00f1 "/ b0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	291	16r00a1 16r00bf 16r00a4 16r00a3 16r00a5 16r00a7 16rFFFF 16rFFFF
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	292
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	293	16r00e2 16r00ea 16r00f4 16r00fb 16r00e1 16r00e9 16r00f3 16r00fa "/ c0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	294	16r00e0 16r00e8 16r00f2 16r00f9 16r00e4 16r00eb 16r00f6 16r00fc
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	295
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	296	16r00c5 16r00ee 16r00d8 16r00c6 16r00e5 16r00ed 16r00f8 16r00e6 "/ d0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	297	16r00c4 16r00ec 16r00d6 16r00dc 16r00c9 16r00ef 16r00df 16r00d4
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	298
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	299	16r00c1 16r00c3 16r00e3 16r00d0 16r00f0 16r00cd 16r00cc 16r00d3 "/ e0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	300	"/ S ? s ? Y ?
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	301	16r00d2 16r00d5 16r00f5 16rFFFF 16rFFFF 16r00da 16rFFFF 16r00ff
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	302
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	303	16r00de 16r00fe 16r00b7 16r00b5 16r00b6 16r00be 16r00ad 16r00bc "/ f0
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	304	16r00bd 16r00aa 16r00ba 16r00ab 16rFFFF 16r00bb 16r00b1 16rFFFF
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	305	).
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	306	].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	307
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	308	"/
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	309	"/ mac -> iso8859
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	310	"/
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	311	"/ You will loose the following characters:
1440 7a38f09abf92 no 8-bit chars in comments (7-bit lexes dont like that) Claus Gittinger <cg@exept.de> parents: 1435 diff changeset	312	"/ - all of them will be replaced by 8F
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	313	"/
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	314	"/ A0 (dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	315	"/ A5 (dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	316	"/ AA (tm - trademark)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	317	"/ AD (not equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	318	"/ B0 (infinity)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	319	"/ B3 (less-double-equal <=)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	320	"/ B4 (greater-equal >-)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	321	"/ B6 (math lowercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	322	"/ B7 (math sum)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	323	"/ B8 (math uppercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	324	"/ B9 (math lowercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	325	"/ BA (math integral)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	326	"/ BD (math omega)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	327	"/ C3 (math union)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	328	"/ C4 (ext latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	329	"/ C5 (math almost equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	330	"/ C6 (math uppercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	331	"/ C9 (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	332	"/ CE (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	333	"/ CF (oe ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	334	"/ D1 (hyphen)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	335	"/ D2 (opening top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	336	"/ D3 (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	337	"/ D4 (opening top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	338	"/ D5 (closing top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	339	"/ D7 (geometric: )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	340	"/ D9 (uppercase Y diacrit )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	341	"/ DA (slash2 )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	342	"/ DC (single oldStyle opening quote (<) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	343	"/ DD (single oldStyle closing quote (>) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	344	"/ DE (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	345	"/ DF (? )
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	346	"/ E0 (double dagger )
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	347	"/ E2 (opening bottom quote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	348	"/ E3 (opening bottom dquote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	349	"/ F0 (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	350	"/ F5 (latin l )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	351	"/ F6 (diacrit circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	352	"/ F7 (diacrit tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	353	"/ F8 (diacrit top line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	354	"/ F9 (diacrit inverse circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	355	"/ FA (diacrit dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	356	"/ FB (diacrit ring)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	357	"/ FC (diacrit cedille left)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	358	"/ FD (diacrit dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	359	"/ FE (diacrit cedille right)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	360	"/ FF (diacrit circumflex2 ?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	361	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	362	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	363	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	364	#( 16r00c4 16r00c5 16r00c7 16r00c9 16r00d1 16r00d6 16r00dc 16r00e1 "/ 80
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	365	16r00e0 16r00e2 16r00e4 16r00e3 16r00e5 16r00e7 16r00e9 16r00e8
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	366
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	367	16r00ea 16r00eb 16r00ed 16r00ec 16r00ee 16r00ef 16r00f1 16r00f3 "/ 90
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	368	16r00f2 16r00f4 16r00f6 16r00f5 16r00fa 16r00f9 16r00fb 16r00fc
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	369
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	370	16rFFFF 16r00b0 16r00a2 16r00a3 16r00a7 16rFFFF 16r00b6 16r00df "/ a0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	371	16r00ae 16r00a9 16rFFFF 16r00b4 16r00a8 16rFFFF 16r00c6 16r00d8
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	372
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	373	16rFFFF 16r00b1 16rFFFF 16rFFFF 16r00a5 16r00b5 16rFFFF 16rFFFF "/ b0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	374	16rFFFF 16rFFFF 16rFFFF 16r00aa 16r00ba 16rFFFF 16r00e6 16r00f8
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	375
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	376	16r00bf 16r00a1 16r00ac 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00ab "/ c0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	377	16r00bb 16rFFFF 16r00a0 16r00c1 16r00c3 16r00d5 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	378
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	379	16r00ad 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00f7 16rFFFF "/ d0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	380	16rFFFF 16rFFFF 16rFFFF 16r00a4 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	381
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	382	16rFFFF 16r00b7 16rFFFF 16rFFFF 16rFFFF 16r00c2 16r00ca 16r00c1 "/ e0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	383	16r00cb 16r00c8 16r00cd 16r00ce 16r00cf 16r00cc 16r00d3 16r00d4
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	384
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	385	16rFFFF 16r00d2 16r00da 16r00db 16r00d9 16rFFFF 16rFFFF 16rFFFF "/ f0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	386	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	387	).
657 449935f15b9e * empty log message * Claus Gittinger <cg@exept.de> parents: 652 diff changeset	388	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	389
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	390	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	391	"/ next -> iso8859
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	392	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	393	"/ You will loose the following characters:
1440 7a38f09abf92 no 8-bit chars in comments (7-bit lexes dont like that) Claus Gittinger <cg@exept.de> parents: 1435 diff changeset	394	"/ - all of them will be replaced by 8F
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	395	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	396	"/ A4 (diacrit /)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	397	"/ A9 (diacrit quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	398	"/ AA (top opening dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	399	"/ AC (single oldStyle opening quote (<))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	400	"/ AD (single oldStyle closing quote (>))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	401	"/ AE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	402	"/ AF (?)
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	403	"/ B2 (dagger)
b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	404	"/ B3 (double dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	405	"/ B7 (enter dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	406	"/ B8 (opening bottom quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	407	"/ B9 (opening bottom dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	408	"/ BA (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	409	"/ BC (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	410	"/ BD (per-mille)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	411	"/ C0 (subscript 1)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	412	"/ C1 (accent grave)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	413	"/ C2 (accent degu)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	414	"/ C3 (accent circonflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	415	"/ C4 (accent tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	416	"/ C5 (accent line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	417	"/ C6 (accent circonflex reverse)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	418	"/ C7 (accent dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	419	"/ C8 (accent dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	420	"/ D0 (hline)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	421	"/ E8 (engl. pound upper case L)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	422	"/ EA (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	423	"/ F5 (latin l)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	424	"/ F8 (engl. pound lower case l)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	425	"/ FE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	426	"/ FF (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	427	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	428	encoding == #next ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	429	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	430
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	431	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	432	#( 16r0080 16r00c0 16r00c1 16r00c2 16r00c3 16r00c4 16r00c5 16r00c7 "/ 80
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	433	16r00c8 16r00c9 16r00ca 16r00cb 16r00cc 16r00cd 16r00ce 16r00cf
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	434
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	435	16r00d0 16r00d1 16r00d2 16r00d3 16r00d4 16r00d5 16r00d6 16r00d9 "/ 90
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	436	16r00da 16r00db 16r00dc 16r00dd 16r00de 16r00b5 16r00d7 16r00f7
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	437
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	438	16r00a9 16r00a1 16r00a2 16r00a3 16rFFFF 16r00a5 16rFFFF 16r00a7 "/ a0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	439	16r00a4 16rFFFF 16rFFFF 16r00ab 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	440
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	441	16r00ae 16r00ad 16rFFFF 16rFFFF 16r00b7 16r00a6 16r00b6 16rFFFF "/ b0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	442	16rFFFF 16rFFFF 16rFFFF 16r00bb 16rFFFF 16rFFFF 16r00ac 16r00bf
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	443
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	444	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF "/ c0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	445	16rFFFF 16r00b2 16r00b0 16r00b8 16r00b3 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	446
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	447	16rFFFF 16r00b1 16r00bc 16r00bd 16r00be 16r00e0 16r00e1 16r00e2 "/ d0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	448	16r00e3 16r00e4 16r00e5 16r00e7 16r00e8 16r00e9 16r00ea 16r00eb
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	449
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	450	16r00ec 16r00c6 16r00ed 16r00aa 16r00ee 16r00ef 16r00f0 16r00f1 "/ e0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	451	16rFFFF 16r00d8 16rFFFF 16r00ba 16r00f2 16r00f3 16r00f4 16r00f5
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	452
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	453	16r00f6 16r00e6 16r00f9 16r00fa 16r00fb 16rFFFF 16r00fc 16r00fd "/ f0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	454	16rFFFF 16r00f8 16rFFFF 16r00df 16r00fe 16r00ff 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	455	).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	456	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	457
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	458	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	459	"/ msdos (codePage 437 [=US]) -> iso8859
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	460	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	461	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	462	"/ You will loose the following characters:
1440 7a38f09abf92 no 8-bit chars in comments (7-bit lexes dont like that) Claus Gittinger <cg@exept.de> parents: 1435 diff changeset	463	"/ - all of them will be replaced by 8F
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	464	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	465	"/ 9E (pesetas)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	466	"/ 9F (latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	467	"/ A9 (technical not)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	468	"/ B0 - BF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	469	"/ C0 - CF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	470	"/ D0 - DF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	471	"/ E0 (greek alpha)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	472	"/ E2 - E5 (greek)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	473	"/ E7 - EC (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	474	"/ EE - EF (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	475	"/ F0 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	476	"/ F2 - F5 (math & technical)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	477	"/ F7 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	478	"/ F9 (center dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	479	"/ FB (math sqrt)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	480	"/ FC (super n)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	481	"/ FE (block)
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	482	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	483	encoding == #msdos437 ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	484	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	485
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	486	x80Table :=
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	487	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	488	"/ Ccedil uuml eacute acirc auml agrave aring ccedil
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	489	16r00c7 16r00fc 16r00e9 16r00e2 16r00e4 16r00e0 16r00e5 16r00e7 "/ 80
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	490	"/ ecirc euml egrave iuml icirc igrave Auml Aring
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	491	16r00ea 16r00eb 16r00e8 16r00ef 16r00ee 16r00ec 16r00c4 16r00c5
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	492	"/ Eacute ae AE ocirc ouml ograve ucirc ugrave
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	493	16r00c9 16r00e6 16r00c6 16r00f4 16r00f6 16r00f2 16r00fb 16r00f9 "/ 90
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	494	"/ yuml Ouml Uuml cent pound Yen psetas latin-f
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	495	16r00ff 16r00d6 16r00dc 16r00a2 16r00a3 16r00a5 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	496
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	497	"/ aacute iacute oacute uacute ntilde Ntilde asup 0sup
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	498	16r00e1 16r00ed 16r00f3 16r00fa 16r00f1 16r00d1 16r00aa 16r00b0 "/ a0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	499	"/ iquest lognot 1/2 1/4 iexcla << >>
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	500	16r00bf 16rFFFF 16r00ac 16r00bd 16r00bc 16r00a1 16r00ab 16r00bb
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	501
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	502	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	503	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF "/ b0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	504	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	505
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	506	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	507	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF "/ c0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	508	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	509
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	510	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	511	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF "/ d0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	512	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	513
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	514	"/ alpha beta ... mu
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	515	16rFFFF 16r00df 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00b5 16rFFFF "/ e0
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	516	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00f8 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	517
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	518	"/ plusmin gr-eq lt-eq integr integr div
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	519	16rFFFF 16r00b1 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00f7 16rFFFF "/ f0
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	520	"/ 0sup dot dot sqr sup2 space
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	521	16r00b0 16rFFFF 16r00b7 16rFFFF 16rFFFF 16r00b2 16rFFFF 16r00a0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	522	).
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	523	].
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	524
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	525
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	526	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	527	"/ msdos (codePage 850 [=latin1]) -> iso8859
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	528	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	529
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	530	(encoding == #msdos850
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	531	or:[encoding == #msdos]) ifTrue:[
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	532	unrepresentableCharacterCode := 16rBF.
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	533	x80Table :=
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	534	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	535	"/ Ccedil uuml eacute acirc auml agrave aring ccedil
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	536	16r00c7 16r00fc 16r00e9 16r00e2 16r00e4 16r00e0 16r00e5 16r00e7 "/ 80
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	537
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	538	"/ ecirc euml egrave iuml icirc igrave Auml Aring
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	539	16r00ea 16r00eb 16r00e8 16r00ef 16r00ee 16r00ec 16r00c4 16r00c5
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	540
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	541	"/ Eacute ae AE ocirc ouml ograve ucirc ugrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	542	16r00c9 16r00e6 16r00c6 16r00f4 16r00f6 16r00f2 16r00fb 16r00f9 "/ 90
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	543	"/ yuml Ouml Uuml oslash pound Oslash x latin-f
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	544	16r00ff 16r00d6 16r00dc 16r00f8 16r00a3 16r00d8 16rFFFF 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	545
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	546	"/ aacute iacute oacute uacute ntilde Ntilde asup 0sup
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	547	16r00e1 16r00ed 16r00f3 16r00fa 16r00f1 16r00d1 16r00aa 16r00da "/ a0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	548	"/ iquest reg lognot 1/2 1/4 iexcla << >>
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	549	16r00bf 16r00ae 16r00ac 16r00bd 16r00bc 16r00a1 16r00ab 16r00bb
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	550
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	551	"/ Aacute Acirc Agrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	552	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00c1 16r00c2 16r00c0 "/ b0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	553	"/ cpyr cent Yen
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	554	16r00a9 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00a2 16r00a5 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	555
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	556	"/ atilde Atilde
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	557	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r00e3 16r00c3 "/ c0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	558	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	559	16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	560
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	561
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	562	"/ Ecirc Euml Egrave Iacute Icirc
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	563	16rFFFF 16rFFFF 16r00ca 16r00cb 16r00c8 16rFFFF 16r00dc 16r00ce "/ d0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	564	"/ Iuml Igrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	565	16r00cf 16rFFFF 16rFFFF 16rFFFF 16rFFFF 16r007c 16r00cc 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	566
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	567	"/ Oacute sz Ocirc Ograve otilde Otilde mu
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	568	16r00d3 16r00df 16r00d4 16r00d2 16rFFFF 16r00f5 16r00b5 16rFFFF "/ e0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	569	"/ Uacute Ucirc Ugrav yacute Yacute '
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	570	16rFFFF 16r00da 16r00db 16r00d9 16r00fd 16r00dd 16rFFFF 16r0027
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	571
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	572	"/ plusmin = 3/4 para sect div "/ f0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	573	16rFFFF 16r00b1 16r003d 16r00be 16r00b6 16r00a7 16r00f7 16rFFFF
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	574
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	575	"/ sup0 sup3 sup2
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	576	16r00b0 16rFFFF 16rFFFF 16rFFFF 16r00b3 16r00b2 16rFFFF 16r00a0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	577	).
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	578	].
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	579	"/ more encodings needed here ....
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	580
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	581
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	582	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	583	"/ x80Table should contain the translation for
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	584	"/ 0x80..0xFF characters
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	585	"/
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	586	x80Table isNil ifTrue:[
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	587	table := #identity.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	588	] ifFalse:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	589	x80Table keysAndValuesDo:[:idx :repl \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	590	\|ch\|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	591
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	592	repl == 16rFFFF ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	593	ch := unrepresentableCharacterCode
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	594	] ifFalse:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	595	ch := repl
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	596	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	597	table at:(16r80 + idx) put:ch
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	598	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	599	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	600
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	601	DecoderTables at:encoding put:table.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	602	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	603
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	604	"
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	605	EncoderTables := nil.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	606	DecoderTables := nil
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	607	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	608
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	609	"Created: 20.10.1995 / 23:04:43 / cg"
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	610	"Modified: 1.7.1997 / 17:24:49 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	611	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	612
7959 0276f0a46dd1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7958 diff changeset	613	defaultEncoding
0276f0a46dd1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7958 diff changeset	614	^ #'iso8859-1'
0276f0a46dd1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7958 diff changeset	615	!
0276f0a46dd1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7958 diff changeset	616
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	617	defaultRomanCharacterValue
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	618	"return the characterValue for unmappable roman characters
7921 47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	619	(only applies to jis, gb, ksc etc.)
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	620
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	621	WARNING: this is a temporary kludge for CJK characterSets and will be removed,
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	622	when the textViews always use unicode."
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	623
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	624	\|romans\|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	625
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	626	romans := self romanTable.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	627	romans isNil ifTrue:[^ 16r20].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	628	^ romans at:1. "/ space characters xlation
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	629
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	630	"Created: 30.6.1997 / 18:13:24 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	631	"Modified: 30.6.1997 / 18:19:26 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	632	!
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	633
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	634	encoderTableFor:encoding
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	635	"return a table to encode from the internal (iso8859, ansi) format
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	636	into an alien encoding.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	637	This is an experimental interface - unfinished"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	638
2751 1899bf26e438 * empty log message * Claus Gittinger <cg@exept.de> parents: 2750 diff changeset	639	\|table decoderTable unrepresentableCharacterCode\|
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	640
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	641	EncoderTables notNil ifTrue:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	642	table := EncoderTables at:encoding ifAbsent:nil.
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	643	table notNil ifTrue:[
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	644	table == #identity ifTrue:[^ nil].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	645	^ table
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	646	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	647	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	648	EncoderTables := IdentityDictionary new
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	649	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	650
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	651	"/
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	652	"/ iso8859 -> hp
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	653	"/
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	654	encoding == #hp ifTrue:[
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	655	decoderTable := self decoderTableFor:encoding.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	656	unrepresentableCharacterCode := 16rFF.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	657	].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	658
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	659	"/
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	660	"/ iso8859 -> mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	661	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	662	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	663	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	664	unrepresentableCharacterCode := 16rFF.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	665	].
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	666
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	667	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	668	"/ iso8859 -> msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	669	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	670	encoding == #msdos ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	671	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	672	unrepresentableCharacterCode := 16rFF.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	673	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	674
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	675	"/ more encodings needed here ....
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	676
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	677	decoderTable notNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	678	table := Array new:256 withAll:unrepresentableCharacterCode.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	679
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	680	0 to:16rFF do:[:code \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	681	\|isoCode destIdex\|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	682
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	683	isoCode := decoderTable at:(code+1).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	684	table at:isoCode+1 put:code.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	685	]
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	686	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	687
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	688	table isNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	689	"/
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	690	"/ cannot put a nil into an Id-Dict;
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	691	"/ use special #identity
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	692	"/
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	693	table := #identity.
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	694	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	695
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	696	EncoderTables at:encoding put:table.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	697	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	698
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	699	"
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	700	EncoderTables := nil.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	701	DecoderTables := nil.
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	702	CharacterArray decoderTableFor:#mac
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	703	CharacterArray encoderTableFor:#mac
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	704	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	705
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	706	"Created: 22.2.1996 / 16:17:58 / cg"
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	707	"Modified: 1.7.1997 / 17:26:28 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	708	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	709
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	710	romanTable
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	711	^ nil
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	712
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	713	"Created: 30.6.1997 / 15:13:52 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	714	! !
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	715
7421 4e6c6edb90d9 category rename Claus Gittinger <cg@exept.de> parents: 7349 diff changeset	716	!CharacterArray class methodsFor:'encoding & decoding'!
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	717
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	718	decodeFromBIG5:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	719	"return a new string containing the characters from aString,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	720	which is interpreted as a BIG5 encoded singleByte string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	721
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	722	The result is a Big5EncodedString (you need a BIG5 font to display that ...)."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	723
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	724	\|newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	725
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	726	newString := BIG5EncodedString new:aString size.
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	727	^ self decodeFromBIG5_or_GB:aString into:newString.
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	728
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	729	"Modified: 17.4.1996 / 18:58:29 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	730	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	731
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	732	decodeFromBIG5_or_GB:aString into:a16BitString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	733	"return a new string containing the characters from aString,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	734	which is interpreted as a BIG5 encoded singleByte string.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	735	The result is a Big5EncodedString (you need a BIG5 font to display that ...).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	736
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	737	This is a first-class candidate for a primitive"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	738
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	739	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	740	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	741	srcIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	742	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	743	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	744	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	745	c\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	746
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	747	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	748	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	749	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	750	srcIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	751
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	752	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	753	c := aString at:srcIdx.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	754	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	755	"/ characters below 16rA1 are left untranslated
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	756	"/ (romans).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	757	"/ Translation into roman-row is done at display time.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	758	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	759	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	760	b1 >= 16rA1 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	761	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	762	srcIdx <= sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	763	b2 := (aString at:srcIdx) asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	764	val := (b1 bitShift:8) bitOr:b2.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	765	c := Character value:val.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	766	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	767	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	768
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	769	a16BitString at:dstIdx put:c.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	770	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	771	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	772
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	773	srcIdx > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	774	^ a16BitString copyFrom:1 to:dstIdx-1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	775	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	776	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	777	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	778	^ a16BitString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	779
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	780	"Created: 17.4.1996 / 16:55:54 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	781	"Modified: 4.7.1997 / 11:01:38 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	782	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	783
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	784	decodeFromEUC:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	785	"return a new string containing the characters from aString,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	786	which is interpreted as an EUC encoded singleByte string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	787
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	788	There are various JIS encodings around (New-JIS, Old-JIS and NEC-JIS);
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	789	this one only understands New-JIS.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	790	The result is a JISEncodedString (you need a JIS font to display that ...).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	791
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	792	This is a first-class candidate for a primitive"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	793
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	794	\|newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	795	sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	796	dstIdx "{ Class: SmallInteger }"
2750 65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	797	srcIdx "{ Class: SmallInteger }"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	798	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	799	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	800	val "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	801	c c2\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	802
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	803	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	804	newString := JISEncodedString new:sz.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	805	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	806	dstIdx := 1.
2750 65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	807	srcIdx := 1.
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	808
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	809	%{
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	810	if (__isString(aString)
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	811	&& (__Class(newString) == @global(JISEncodedString))) {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	812	int _dstIdx = 1, _srcIdx = 1;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	813	int _sz = __intVal(sz);
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	814	unsigned char *_cp = __stringVal(aString);
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	815	unsigned char _c1;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	816	unsigned short _jcp = (unsigned short )__stringVal(newString);
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	817
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	818	while (_srcIdx <= _sz) {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	819	_c1 = _cp[_srcIdx-1];
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	820	if (_c1 < 161) {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	821	_jcp[_dstIdx-1] = _c1;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	822	} else {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	823	_srcIdx++;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	824	if (_srcIdx <= _sz) {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	825	unsigned char _c2;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	826	int _val;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	827	int _b1, _b2;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	828
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	829	_b1 = _c1 - 128;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	830	_c2 = _cp[_srcIdx-1];
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	831	_b2 = _c2 - 128;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	832	_val = (_b1<<8) + _b2;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	833	if (_val < 0) {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	834	/* decoder errors are handled in smalltalk */
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	835	_srcIdx--;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	836	goto getOutOfHere;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	837	}
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	838	_jcp[_dstIdx-1] = _val;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	839	} else {
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	840	_jcp[_dstIdx-1] = _c1;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	841	}
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	842	}
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	843	_dstIdx++;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	844	_srcIdx++;
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	845	}
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	846	getOutOfHere:
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	847	srcIdx = __MKSMALLINT(_srcIdx);
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	848	dstIdx = __MKSMALLINT(_dstIdx);
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	849	}
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	850	%}.
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	851
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	852	[srcIdx <= sz] whileTrue:[
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	853	c := aString at:srcIdx.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	854	b1 := c asciiValue.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	855	b1 < 161 ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	856	"/ characters below 16rA1 are left untranslated
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	857	"/ (control character or roman).
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	858	newString at:dstIdx put:c.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	859	] ifFalse:[
2750 65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	860	srcIdx := srcIdx + 1.
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	861	srcIdx <= sz ifTrue:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	862	b1 := b1 - 128.
2750 65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	863	b2 := (c2 := aString at:srcIdx) asciiValue.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	864	b2 := b2 - 128.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	865	val := (b1 bitShift:8) bitOr:b2.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	866	val <= 0 ifTrue:[
7918 7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	867	self decodingFailedSignal
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	868	raiseWith:aString
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	869	errorString:'EUC decoding failed (not EUC encoded ?)'.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	870	newString at:dstIdx put:c.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	871	dstIdx := dstIdx + 1.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	872	newString at:dstIdx put:c2.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	873	] ifFalse:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	874	newString at:dstIdx put:(Character value:val).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	875	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	876	] ifFalse:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	877	newString at:dstIdx put:c.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	878	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	879	].
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	880	dstIdx := dstIdx + 1.
2750 65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	881	srcIdx := srcIdx + 1.
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	882	].
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	883
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	884	(dstIdx-1) ~~ sz ifTrue:[
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	885	newString := newString copyFrom:1 to:dstIdx-1.
65927af4fe5b tuned EUC decoding Claus Gittinger <cg@exept.de> parents: 2749 diff changeset	886	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	887	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	888	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	889
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	890	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	891
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	892	'hello' decodeFrom:#euc
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	893	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	894
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	895	"Created: 17.4.1996 / 16:10:22 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	896	"Modified: 4.7.1997 / 11:06:05 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	897	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	898
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	899	decodeFromGB:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	900	"return a new string containing the characters from aString,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	901	which is interpreted as a GB encoded singleByte string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	902
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	903	The result is a Big5EncodedString (you need a GB font to display that ...)."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	904
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	905	\|newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	906
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	907	newString := GBEncodedString new:aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	908	^ self decodeFromBIG5_or_GB:aString into:newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	909
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	910	"Created: 17.4.1996 / 16:56:33 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	911	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	912
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	913	decodeFromJIS7:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	914	"return a new string containing the aStrings characters,
2758 31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	915	which are interpreted as a JIS7 or ISO2022-JP encoded singleByte string.
31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	916	There are various JIS encodings around (New-JIS, Old-JIS, NEC-JIS and ISO2022);
31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	917	this one understands New-JIS, ISO2022 and treats Old-JIS just the same.
7918 7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	918	The result is a JISEncodedString (you need a JIS font to display that ...)."
7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	919
7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	920	^ CharacterEncoder::JIS0208_to_JIS7 decodeString:aString
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	921
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	922	"Created: 17.4.1996 / 16:11:57 / cg"
2758 31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	923	"Modified: 16.7.1997 / 12:50:55 / cg"
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	924	!
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	925
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	926	decodeFromSJIS:aString
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	927	"return a new string containing the aStrings characters,
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	928	which are interpreted as a Shift-JIS encoded singleByte string.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	929	The result is a JISEncodedString (you need a JIS font to display that ...).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	930
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	931	This is a first-class candidate for a primitive"
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	932
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	933	\|newString char1 char2
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	934	sz "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	935	dstIdx "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	936	srcIdx "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	937	b1 "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	938	b2 "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	939	val "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	940	\|
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	941
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	942	sz := aString size.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	943	newString := JISEncodedString new:sz.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	944	sz ~~ 0 ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	945	dstIdx := 1.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	946	srcIdx := 1.
2749 62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	947	%{
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	948	if (1 && __isString(aString)
2749 62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	949	&& (__Class(newString) == @global(JISEncodedString))) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	950	int _dstIdx = 1, _srcIdx = 1;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	951	int _sz = __intVal(sz);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	952	unsigned char *_cp = __stringVal(aString);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	953	unsigned char _c1, _c2;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	954	unsigned short _jcp = (unsigned short )__stringVal(newString);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	955
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	956	while (_srcIdx <= _sz) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	957	int _val;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	958
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	959	_c1 = _cp[_srcIdx-1];
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	960	_srcIdx++;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	961
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	962	if ((_srcIdx <= _sz)
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	963	&& (((_c1 >= 129) && (_c1 <= 159))
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	964	\|\| ((_c1 >= 224) && (_c1 <= 239)))) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	965	_c2 = _cp[_srcIdx-1];
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	966	_srcIdx++;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	967	if ((_c2 >= 64) && (_c2 <= 252)) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	968	int _adjust, _rowOffs, _cellOffs;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	969	int _b1, _b2;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	970
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	971	_adjust = (_c2 < 159) ? 1 : 0;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	972	_rowOffs = (_c1 < 160) ? 112 : 176;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	973	if (_adjust) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	974	_cellOffs = 31 + ((_c2 > 127) ? 1 : 0);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	975	} else {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	976	_cellOffs = 126;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	977	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	978	_b1 = ((_c1 - _rowOffs) << 1) - _adjust;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	979	_b2 = (_c2 - _cellOffs);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	980	_val = (_b1<<8) + _b2;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	981	if (_val <= 0) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	982	/* decoder error - let smalltalk handle that */
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	983	_srcIdx -= 2;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	984	goto getOutOfHere;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	985	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	986	_jcp[_dstIdx-1] = _val;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	987	} else {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	988	/* mhmh - append untranslated */
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	989
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	990	_jcp[_dstIdx-1] = _c1;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	991	_dstIdx++;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	992	_jcp[_dstIdx-1] = _c2;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	993	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	994	} else {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	995	if ((_c1 >= 0xA1 /* 161 /) && (_c1 <= 0xDF / 223 */)) {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	996	/* HALFWIDTH KATAKANA
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	997	* map half-width katakana to 8E:xx
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	998	*/
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	999	_val = _c1 - 128;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1000	_val = _val + 0x8E00;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1001	_jcp[_dstIdx-1] = _val;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1002	} else {
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1003	/* roman characters left untranslated */
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1004	_jcp[_dstIdx-1] = _c1;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1005	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1006	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1007	_dstIdx++;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1008	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1009	getOutOfHere: ;
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1010	dstIdx = __MKSMALLINT(_dstIdx);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1011	srcIdx = __MKSMALLINT(_srcIdx);
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1012	}
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1013	%}.
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1014
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1015	[srcIdx <= sz] whileTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1016	"/
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1017	"/ scan for next character in 129..159 or 224..239
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1018	"/
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1019	char1 := aString at:srcIdx.
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1020	srcIdx := srcIdx + 1.
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1021	b1 := char1 asciiValue.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1022
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1023	((srcIdx <= sz)
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1024	and:[(b1 >= 129 and:[b1 <= 159]) "/ SJIS1 81 .. 9F
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1025	or:[b1 >= 224 and:[b1 <= 239]]]) ifTrue:[ "/ E0 .. EF
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1026	char2 := aString at:srcIdx.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1027	srcIdx := srcIdx + 1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1028	b2 := char2 asciiValue.
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1029	(b2 >= 64 and:[b2 <= 252]) ifTrue:[ "/ SJIS2 40 .. FC
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1030	\|adjust rowOffs cellOffs\|
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1031
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1032	adjust := (b2 < 159) ifTrue:[1] ifFalse:[0].
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1033	rowOffs := b1 < 160 ifTrue:[112] ifFalse:[176].
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1034	adjust == 1 ifTrue:[
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1035	cellOffs := 31 + (b2 > 127 ifTrue:[1] ifFalse:[0]).
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1036	] ifFalse:[
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1037	cellOffs := 126.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1038	].
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1039	b1 := ((b1 - rowOffs) bitShift:1) - adjust.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1040	b2 := (b2 - cellOffs).
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1041	val := (b1 bitShift:8) + b2.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1042	val <= 0 ifTrue:[
7918 7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	1043	self decodingFailedSignal
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1044	raiseWith:aString
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1045	errorString:'SJIS decoding failed (not SJIS encoded ?)'.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1046	newString at:dstIdx put:char1.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1047	dstIdx := dstIdx + 1.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1048	newString at:dstIdx put:char2.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1049	] ifFalse:[
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1050	newString at:dstIdx put:(Character value:val).
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1051	]
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1052	] ifFalse:[
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1053	"/ mhmh - append untranslated
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1054
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1055	newString at:dstIdx put:char1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1056	dstIdx := dstIdx + 1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1057	newString at:dstIdx put:char2.
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1058	]
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	1059	] ifFalse:[
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	1060	(b1 >= 16rA1 "161" and:[b1 <= 16rDF "223"]) ifTrue:[ "/ HALFWIDTH KATAKANA
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	1061	"/ map half-width katakan to 8E:xx
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1062	val := b1 - 128.
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	1063	val := val + (16r8E bitShift:8).
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1064	newString at:dstIdx put:(Character value:val).
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1065	] ifFalse:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1066	"/ roman characters left untranslated
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1067	newString at:dstIdx put:char1
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1068	]
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1069	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1070	dstIdx := dstIdx + 1.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1071	].
2749 62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1072	(dstIdx-1) ~~ sz ifTrue:[
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1073	newString := newString copyTo:dstIdx - 1.
62552ae3b004 tuned SJIS decoding Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	1074	]
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1075	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1076
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1077	^ newString
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1078
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1079	"simple:
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1080
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1081	'hello' decodeFrom:#sjis
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1082
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1083	'../../doc/online/japanese/TOP.html' asFilename contents asString
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1084	decodeFrom:#sjis
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1085	"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1086
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1087	"Created: 28.6.1997 / 19:19:23 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1088	"Modified: 4.7.1997 / 11:01:22 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1089	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1090
7876 56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1091	decodeFromUTF8:aStringOrByteCollection
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1092	"return a string which represents the characters as decoded
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1093	from the utf8 encoded bytes, aByteCollection.
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1094	Returns either a normal String, or a TwoByteString instance.
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1095	Only useful, when reading twoByteStrings from external sources.
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1096	This only handles up-to 16bit characters."
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1097
7932 ee233bf44df5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	1098	^ CharacterEncoder::ISO10646_to_UTF8 decodeString:aStringOrByteCollection
7876 56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1099
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1100	"
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1101	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1102	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1103	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1104	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1105
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1106	rfc2279 examples:
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1107	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1108	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1109	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1110
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1111	invalid:
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1112	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1113	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1114	"
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1115	!
56ab739f1843 +decodeUTF8 Claus Gittinger <cg@exept.de> parents: 7797 diff changeset	1116
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1117	encodeIntoBIG5:aBIG5String
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1118	"return a new string with aBIG5Strings characters as BIG5 encoded 16bit string,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1119	The argument must be a BIG5String.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1120	This is used translate 16bit BIG5 strings into the external BIG5 encoded
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1121	representation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1122	The resulting string is only useful to be stored on some external file,
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1123	not for being displayed in an ST/X view.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1124
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1125	This is a first-class candidate for a primitive"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1126
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1127	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1128	b "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1129	c out\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1130
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1131	sz := aBIG5String size.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1132	out := WriteStream on:(String new:(sz * 2)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1133
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1134	1 to:sz do:[:index \|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1135	c := aBIG5String at:index.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1136	b := c asciiValue.
1203 a43528048cb8 code tables moved to BIG5/JISEncodedString classes Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1137
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1138	b > 255 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1139	"/ big5 character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1140
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1141	out nextPut:(Character value:(b bitShift:-8)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1142	out nextPut:(Character value:(b bitAnd:16rFF)).
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1143	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1144	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1145	"/ control or roman character
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1146	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1147	out nextPut:c
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1148	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1149	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1150	^ out contents
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1151
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1152	"Created: 17.4.1996 / 17:17:50 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1153	"Modified: 4.7.1997 / 11:01:57 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1154	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1155
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1156	encodeIntoEUC:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1157	"return a new string with aJISStrings characters as EUC encoded 8bit string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1158	The argument must be a JIS 16 bit character string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1159	The resulting string is only useful to be stored on some external file,
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1160	not for being displayed in an ST/X view.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1161
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1162	This is a first-class candidate for a primitive"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1163
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1164	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1165	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1166	val "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1167	c romans out\|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1168
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1169	romans := JISEncodedString romanTable.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1170
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1171	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1172	sz == 0 ifTrue:[^ ''].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1173
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1174	out := WriteStream on:(String new:(sz * 2)).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1175
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1176	1 to:sz do:[:srcIndex \|
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1177	b1 := (c := aJISString at:srcIndex) asciiValue.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1178	b1 < 161 ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1179	"/ a control or roman character
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1180	out nextPut:c.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1181	] ifFalse:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1182	"/
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1183	"/ check for a roman character
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1184	"/ the two numbers below are romanTable min and romanTable max
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1185	"/
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1186	(b1 between:16r2121 and:16r2573) ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1187	val := romans indexOf:b1.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1188	(val ~~ 0 and:[val <= 127]) ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1189	out nextPut:(Character value:(val - 1 + 32))
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1190	] ifFalse:[
2747 0a95a87bcefa fixed euc encoding Claus Gittinger <cg@exept.de> parents: 2742 diff changeset	1191	out nextPut:(Character value:(b1 bitShift:-8) + 128).
0a95a87bcefa fixed euc encoding Claus Gittinger <cg@exept.de> parents: 2742 diff changeset	1192	out nextPut:(Character value:(b1 bitAnd:16rFF) + 128).
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1193	].
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1194	] ifFalse:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1195	out nextPut:(Character value:(b1 bitShift:-8) + 128).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1196	out nextPut:(Character value:(b1 bitAnd:16rFF) + 128).
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1197	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1198	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1199	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1200	^ out contents
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1201
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1202	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1203
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1204	('hello' decodeFrom:#euc) encodeInto:#euc
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1205	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1206
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1207	"Created: 17.4.1996 / 16:13:33 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1208	"Modified: 4.7.1997 / 11:03:43 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1209	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1210
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1211	encodeIntoGB:aGBString
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1212	"return a new string with aGBStrings characters as GB encoded 8bit string.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1213	The argument must be a GBString.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1214	This is used translate 16bit GB strings into the external GB encoded
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1215	representation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1216	The resulting string is only useful to be stored on some external file,
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1217	not for being displayed in an ST/X view.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1218
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1219	This is a first-class candidate for a primitive"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1220
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1221	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1222	b "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1223	c out\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1224
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1225	sz := aGBString size.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1226	out := WriteStream on:(String new:(sz * 2)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1227
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1228	1 to:sz do:[:index \|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1229	c := aGBString at:index.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1230	b := c asciiValue.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1231	b > 255 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1232	"/ big5 character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1233
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1234	out nextPut:(Character value:(b bitShift:-8)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1235	out nextPut:(Character value:(b bitAnd:16rFF)).
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1236	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1237	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1238	"/ control or roman character
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1239	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1240	out nextPut:c
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1241	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1242	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1243	^ out contents
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1244
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1245	"Created: 30.6.1997 / 15:48:35 / cg"
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1246	"Modified: 4.7.1997 / 11:02:13 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1247	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1248
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1249	encodeIntoJIS7:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1250	"return a new string with aJISStrings characters as JIS7 encoded 7bit string,
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1251	The receiver must be a JIS encoded character string.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1252
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1253	The resulting string is only useful to be stored on some external file,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1254	not for being displayed in an ST/X view."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1255
7918 7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	1256	^ CharacterEncoder::JIS0208_to_JIS7 encodeString:aJISString
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1257	!
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1258
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1259	encodeIntoSJIS:aJISString
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1260	"return a new string with aJISStrings characters as SJIS encoded 8bit string.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1261	The receiver must be a JIS encoded character string.
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1262
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1263	The resulting string is only useful to be stored on some external file,
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1264	not for being displayed in an ST/X view."
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1265
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1266	\|sz "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1267	rval "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1268	val "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1269	romans c out isSJIS\|
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1270
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1271	romans := JISEncodedString romanTable.
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1272
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1273	sz := aJISString size.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1274	sz == 0 ifTrue:[^ ''].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1275
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1276	out := WriteStream on:(String new:(sz * 2)).
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1277
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1278	1 to:sz do:[:srcIndex \|
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1279	val := (c := aJISString at:srcIndex) asciiValue.
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1280	val <= 128 ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1281	"/ a control or ascii character
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1282	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1283	] ifFalse:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1284	(val > 150 and:[val < 224]) ifTrue:[
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1285	"/ ascii subset
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1286	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1287	] ifFalse:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1288	"/ should not happen ...
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1289	val <= 255 ifTrue:[
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1290	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1291	] ifFalse:[
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1292	isSJIS := true.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1293
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1294	"/ check for HALFWIDTH KATAKANA
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1295	"/ 8E:xx
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1296	"/ NO: halfwidth katakana no longer generated
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1297	"/ remains there as full-width katakana
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1298
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1299	"/ (val bitAnd:16rFF00) == 16r8E00 ifTrue:[
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1300	"/ \|b\|
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1301	"/
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1302	"/ b := (val bitAnd:16rFF) + 128.
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1303	"/ (b >= 16rA1 "161" and:[b <= 16rDF "223"]) ifTrue:[
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1304	"/ out nextPut:(Character value:b).
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1305	"/ isSJIS := false.
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1306	"/ ].
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1307	"/ ].
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1308
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1309	isSJIS ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1310
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1311	"/ check for a roman character
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1312	"/ the two numbers below are romanTable min and romanTable max
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1313	"/
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1314	(val between:16r2121 and:16r2573) ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1315	rval := romans indexOf:val.
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1316	rval ~~ 0 ifTrue:[
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1317	rval := rval - 1 + 32.
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1318	rval <= 16r7F ifTrue:[ "/ do not translate halfwidth katakana
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1319	out nextPut:(Character value:rval).
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1320	isSJIS := false.
3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1321	]
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1322	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1323	].
2748 3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1324	].
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1325
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1326	isSJIS ifTrue:[
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1327	\|b1 b2 rowOffset cellOffset\|
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1328
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1329	b1 := (val bitShift:-8).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1330	b2 := (val bitAnd:16rFF).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1331	rowOffset := (b1 < 95) ifTrue:[112] ifFalse:[176].
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1332	cellOffset := b1 odd ifTrue:[(b2 > 95) ifTrue:[32] ifFalse:[31]]
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1333	ifFalse:[126].
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1334
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1335	out nextPut:(Character value:(((b1 + 1) bitShift:-1) + rowOffset)).
3002ca130a92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	1336	out nextPut:(Character value:b2 + cellOffset).
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1337	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1338	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1339	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1340	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1341	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1342	^ out contents
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1343
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1344	"simple:
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1345
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1346	'hello' decodeFromEUC encodeIntoEUC
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1347	"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1348
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1349	"Created: 28.6.1997 / 21:13:27 / cg"
2757 3585df53a2c5 fixed sjis / jis7 encoding Claus Gittinger <cg@exept.de> parents: 2751 diff changeset	1350	"Modified: 16.7.1997 / 11:30:45 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1351	!
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1352
7879 a7a0a7fe9b54 encoding stuff Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1353	encodeIntoUTF8:aString
7932 ee233bf44df5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	1354	^ CharacterEncoder::ISO10646_to_UTF8 encodeString:aString
7879 a7a0a7fe9b54 encoding stuff Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1355	!
a7a0a7fe9b54 encoding stuff Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	1356
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1357	encodeRomans:aTwoByteString
7921 47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1358	"return a new (usually 2-byte) string with roman characters encoded.
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1359	The position of roman characters are encoding specific.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1360	(see romanTable of concrete 16-bit string classes).
7921 47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1361	Used when displaying strings.
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1362
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1363	WARNING: this is a temporary kludge for CJK characterSets and will be removed,
47729c91f5f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7918 diff changeset	1364	when the textViews always use unicode."
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1365
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1366	\|sz "{ Class: SmallInteger }"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1367	b "{ Class: SmallInteger }"
4294 9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1368	c i nCode romans newString\|
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1369
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1370	romans := self romanTable.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1371	romans isNil ifTrue:[^ aTwoByteString].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1372
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1373	sz := aTwoByteString size.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1374	newString := self fromString:aTwoByteString.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1375
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1376	1 to:sz do:[:index \|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1377	c := aTwoByteString at:index.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1378	b := c asciiValue.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1379
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1380	(b > 32 and:[b <= 255]) ifTrue:[
4294 9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1381	(i := b - 32 + 1) <= romans size ifTrue:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1382	"/
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1383	"/ a roman character
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1384	"/ map to corresponding row
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1385	"/
4294 9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1386	nCode := romans at:i.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1387	] ifFalse:[
4294 9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1388	nCode := self defaultRomanCharacterValue
9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1389	].
9742a8b53d50 checkin from browser Claus Gittinger <cg@exept.de> parents: 4244 diff changeset	1390	newString at:index put:(Character value:nCode).
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1391	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1392	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1393	^ newString
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1394
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1395	"Created: 30.6.1997 / 15:43:56 / cg"
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1396	"Modified: 30.6.1997 / 21:16:20 / cg"
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1397	!
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1398
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1399	guessEncodingFrom:aString
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1400	"try to guess some 8-bit strings encoding by
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1401	searching for certain escape sequences.
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1402	Returns a string or nil.
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1403	This may not find the strings real encoding."
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1404
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1405	"/ look for JIS7 / EUC encoding ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1406
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1407	(aString findString:(JISEncodedString jisISO2022EscapeSequence)) ~~ 0 ifTrue:[
2760 715d662449ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	1408	^ #'iso2020-jp'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1409	].
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1410	(aString findString:(JISEncodedString jis7KanjiEscapeSequence)) ~~ 0 ifTrue:[
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1411	^ #jis7
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1412	].
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1413	(aString findString:(JISEncodedString oldJis7KanjiEscapeSequence)) ~~ 0 ifTrue:[
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1414	^ #jis7
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1415	].
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1416
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1417	"/ TODO:
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1418
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1419	"/ "/ look for EUC
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1420	"/ idx := aString findFirst:[:char \| \|ascii\|
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1421	"/ ((ascii := char asciiValue) >= 16rA1)
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1422	"/ and:[ascii <= 16rFE]].
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1423	"/ idx ~~ 0 ifTrue:[
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1424	"/ ascii := (aString at:(idx + 1)) asciiValue.
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1425	"/ (ascii >= 16rA1 and:[ascii <= 16rFE]) ifTrue:[
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1426	"/ ^ #euc
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1427	"/ ]
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1428	"/ ].
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1429
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1430	"/ look for SJIS ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1431
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1432	"/ look for UTS ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1433
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1434	^ nil
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1435
2760 715d662449ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	1436	"Modified: 16.7.1997 / 13:54:59 / cg"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1437	! !
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1438
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	1439	!CharacterArray class methodsFor:'pattern matching'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	1440
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1441	matchEscapeCharacter
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1442	"return the character used to escape a matchCharacter
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1443	(i.e. make it a regular character in a matchPattern)"
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1444
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1445	^ $\
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1446	!
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1447
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1448	matchScan:matchScanArray from:matchStart to:matchStop with:aString from:start to:stop ignoreCase:ignoreCase
183f094cfd72 last with old match code claus parents: 326 diff changeset	1449	"helper for match; return true if the characters from start to stop in
183f094cfd72 last with old match code claus parents: 326 diff changeset	1450	aString are matching the scan in matchScan from matchStart to matchStop.
328 7b542c0bf1dd . claus parents: 327 diff changeset	1451	The matchScan is as created by asMatchScanArray.
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1452
328 7b542c0bf1dd . claus parents: 327 diff changeset	1453	This algorithm is not at all the most efficient;
7b542c0bf1dd . claus parents: 327 diff changeset	1454	for heavy duty pattern matching, an interface (primitive) to the regex
7b542c0bf1dd . claus parents: 327 diff changeset	1455	pattern matching package should be added."
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1456
183f094cfd72 last with old match code claus parents: 326 diff changeset	1457	\|matchEntry
183f094cfd72 last with old match code claus parents: 326 diff changeset	1458	mStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1459	mStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1460	sStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1461	sStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1462	mSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1463	sSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1464	index "{ Class: SmallInteger }"
2561 205ee33decf9 removed unused var Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1465	quickCheck matchLast nextMatchEntry
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	1466	checkChar included\|
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1467
183f094cfd72 last with old match code claus parents: 326 diff changeset	1468	mStart := matchStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1469	mStop := matchStop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1470	sStart := start.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1471	sStop := stop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1472
183f094cfd72 last with old match code claus parents: 326 diff changeset	1473	[true] whileTrue:[
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1474	"/ Transcript showCR:('match: ''' , (aString copyFrom:sStart to:sStop) ,
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1475	"/ ''' against:' , (matchScanArray copyFrom:mStart to:mStop) printString).
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1476
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1477	mSize := mStop - mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1478	sSize := sStop - sStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1479
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1480	"empty strings match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1481	(mSize == 0) ifTrue:[^ (sSize == 0)].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1482
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1483	matchEntry := matchScanArray at:mStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1484
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1485	"/ the most common case first:
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1486	(sSize ~~ 0
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	1487	and:[(checkChar := (aString at:sStart)) = matchEntry]) ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1488	"advance by one and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1489	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1490	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1491	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1492	(matchEntry == #any) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1493	"restString empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1494	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1495	"# matches single character"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1496	((sSize == 1) and:[mSize == 1]) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1497	"advance by one and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1498	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1499	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1500	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1501	(matchEntry == #anyString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1502	"* alone matches anything"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1503	(mSize == 1) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1504	"restString empty & matchString not empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1505	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1506
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1507	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1508	try to avoid some of the recursion by checking last
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1509	character and continue with shortened strings if possible
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1510	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1511	quickCheck := false.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1512	(mStop >= mStart) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1513	matchLast := matchScanArray at:mStop.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1514	(matchLast ~~ #anyString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1515	(matchLast == #any) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1516	quickCheck := true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1517	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1518	matchLast == (aString at:sStop) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1519	quickCheck := true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1520	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1521	matchLast isString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1522	quickCheck := matchLast includes:(aString at:sStop)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1523	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1524	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1525	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1526	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1527	].
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1528	quickCheck ifTrue:[
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1529	"
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1530	quickCheck ok, advance from the right
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1531	"
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1532	mStop := mStop - 1.
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1533	sStop := sStop - 1
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1534	] ifFalse:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1535	"/ no quick check;
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1536	"/ look for the next character(s)
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1537	"/ and try matching there
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1538	"/ (to avoid recursion)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1539
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1540	mStart < mStop ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1541	nextMatchEntry := matchScanArray at:mStart+1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1542	nextMatchEntry isCharacter ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1543	sStart <= sStop ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1544	[true] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1545	ignoreCase ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1546	index := aString indexOf:nextMatchEntry startingAt:sStart
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1547	] ifTrue:[
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	1548	index := aString findFirst:[:c \| c asLowercase = nextMatchEntry asLowercase]
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1549	startingAt:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1550	].
3879 d586b598394b checkin from browser Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	1551	(index == 0 or:[index > sStop]) ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1552	^ false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1553	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1554	(self matchScan:matchScanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1555	from:(mStart + 1)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1556	to:mStop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1557	with:aString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1558	from:index
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1559	to:sStop
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1560	ignoreCase:ignoreCase
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1561	) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1562	^ true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1563	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1564	sStart := index + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1565	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1566	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1567	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1568	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1569
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1570	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1571	no quick check possible;
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1572	loop over all possible substrings
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1573	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1574	index := sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1575	[index <= sStop] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1576	(self matchScan:matchScanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1577	from:(mStart + 1)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1578	to:mStop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1579	with:aString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1580	from:index
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	1581	to:sStop
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1582	ignoreCase:ignoreCase
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1583	) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1584	^ true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1585	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1586	index := index + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1587	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1588	^ false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1589	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1590	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1591	(matchEntry isString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1592	"testString empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1593	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1594
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1595	included := false.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1596	"/ checkChar := aString at:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1597	included := matchEntry includes:checkChar.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1598	included ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1599	ignoreCase ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1600	checkChar isUppercase ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1601	included := matchEntry includes:checkChar asLowercase.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1602	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1603	included := matchEntry includes:checkChar asUppercase.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1604	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1605	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1606	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1607	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1608	mSize := mSize - 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1609	included ifFalse:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1610
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1611	((sSize == 1) and:[mSize == 0]) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1612	"cut off 1st char and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1613	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1614	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1615	"/ must be single character
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1616
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1617	"testString empty ?"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1618	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1619
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1620	"first characters equal ?"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1621	"/ checkChar := aString at:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1622	ignoreCase ifFalse:[^ false].
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	1623	(checkChar asUppercase ~= matchEntry asUppercase) ifTrue:[^ false].
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1624
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1625	"advance and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1626	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1627	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1628	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1629	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1630	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1631	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1632	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1633
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1634	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1635	\|scanArray s\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1636
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1637	scanArray := self matchScanArrayFrom:'*hello'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1638	s := 'foo bar hello world'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1639	CharacterArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1640	matchScan:scanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1641	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1642	to:scanArray size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1643	with:s
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1644	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1645	to:s size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1646	ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1647	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1648	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1649	\|scanArray s\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1650
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1651	scanArray := self matchScanArrayFrom:'hello'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1652	s := 'foo bar hello world'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1653	CharacterArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1654	matchScan:scanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1655	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1656	to:scanArray size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1657	with:s
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1658	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1659	to:s size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1660	ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1661	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1662
3879 d586b598394b checkin from browser Claus Gittinger <cg@exept.de> parents: 3668 diff changeset	1663	"Modified: / 15.10.1998 / 13:39:25 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1664	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1665
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1666	matchScanArrayFrom:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1667	"scan a pattern string and decompose it into a scanArray.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1668	This is processed faster (especially with character ranges), and
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1669	can also be reused later. (if the same pattern is to be searched again)"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1670
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1671	\|coll
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1672	idx "{ Class: SmallInteger }"
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1673	end c1 c2 matchSet previous escape\|
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1674
5487 cb4c5ae75c63 * empty log message * Claus Gittinger <cg@exept.de> parents: 5469 diff changeset	1675	previous := nil.
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1676	escape := self matchEscapeCharacter.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1677
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1678	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1679	idx := 1. end := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1680	[idx <= end] whileTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1681	\|char this\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1682
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1683	char := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1684	char == $* ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1685	previous ~~ #anyString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1686	this := #anyString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1687	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1688	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1689	char == $# ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1690	previous ~~ #anyString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1691	this := #any
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1692	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1693	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1694	char == $[ ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1695	matchSet := IdentitySet new.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1696	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1697	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1698	char := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1699	c1 := nil.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1700	[char ~~ $]] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1701	((char == $-) and:[c1 notNil]) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1702	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1703	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1704	c2 := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1705	c1 to:c2 do:[:c \| matchSet add:c].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1706	c1 := nil.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1707	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1708	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1709	(char ~~ $]) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1710	matchSet add:char.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1711	c1 := char.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1712	idx := idx + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1713	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1714	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1715	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1716	char := aString at:idx
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1717	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1718	this := matchSet asString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1719	] ifFalse:[
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	1720	char == escape ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1721	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1722	idx > end ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1723	"/ mhmh - what should we do here ?
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1724	this := char
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1725	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1726	this := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1727	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1728	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1729	this := char
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1730	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1731	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1732	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1733	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1734	this notNil ifTrue:[coll add:this. previous := this].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1735	idx := idx + 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1736	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1737
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1738	^ coll asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1739
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1740	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1741	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1742	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1743	String matchScanArrayFrom:'*uter'
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1744	String matchScanArrayFrom:'\*uter'
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1745	String matchScanArrayFrom:'[cC]#mpute[rR]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1746	String matchScanArrayFrom:'[abcd]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1747	String matchScanArrayFrom:'[a-k]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1748	String matchScanArrayFrom:'somecomplern'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1749	String matchScanArrayFrom:'[a-'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1750	String matchScanArrayFrom:'[a-zA-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1751	String matchScanArrayFrom:'[a-z01234A-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1752	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1753
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1754	"Modified: 2.4.1997 / 16:20:29 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1755	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1756
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	1757	!CharacterArray methodsFor:'Compatibility-ANSI'!
5301 7bef885c778a compatibility stuff: <s> in #expandMacros Claus Gittinger <cg@exept.de> parents: 5242 diff changeset	1758
7bef885c778a compatibility stuff: <s> in #expandMacros Claus Gittinger <cg@exept.de> parents: 5242 diff changeset	1759	addLineDelimiters
6184 9ab957b61c52 comment Claus Gittinger <cg@exept.de> parents: 6148 diff changeset	1760	"Ansi compatibility - same as withCRs"
9ab957b61c52 comment Claus Gittinger <cg@exept.de> parents: 6148 diff changeset	1761
5301 7bef885c778a compatibility stuff: <s> in #expandMacros Claus Gittinger <cg@exept.de> parents: 5242 diff changeset	1762	^ self withCRs
6184 9ab957b61c52 comment Claus Gittinger <cg@exept.de> parents: 6148 diff changeset	1763
9ab957b61c52 comment Claus Gittinger <cg@exept.de> parents: 6148 diff changeset	1764	"Modified: / 13.11.2001 / 19:16:25 / cg"
5301 7bef885c778a compatibility stuff: <s> in #expandMacros Claus Gittinger <cg@exept.de> parents: 5242 diff changeset	1765	! !
7bef885c778a compatibility stuff: <s> in #expandMacros Claus Gittinger <cg@exept.de> parents: 5242 diff changeset	1766
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	1767	!CharacterArray methodsFor:'Compatibility-Dolphin'!
6391 ff9f6df9ec4e * empty log message * Claus Gittinger <cg@exept.de> parents: 6228 diff changeset	1768
ff9f6df9ec4e * empty log message * Claus Gittinger <cg@exept.de> parents: 6228 diff changeset	1769	argumentCount
6870 d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1770	"same as #numArgs - return the number of arguments a message with myself
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1771	as selector would take."
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1772
6391 ff9f6df9ec4e * empty log message * Claus Gittinger <cg@exept.de> parents: 6228 diff changeset	1773	^ self numArgs
6870 d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1774	!
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1775
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1776	copyExpanding:expandTable
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1777	"return a copy of myself, with translations from the expandTable sliced in.
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1778	The argument is supposed to map from characters to either characters or strings."
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1779
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1780	\|ds\|
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1781
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1782	ds := WriteStream on:(self species new).
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1783	self do:[:eachChar \|
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1784	\|repl\|
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1785
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1786	repl := expandTable at:eachChar ifAbsent:nil.
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1787	repl isNil ifTrue:[
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1788	ds nextPut:eachChar
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1789	] ifFalse:[
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1790	repl size == 0 ifTrue:[
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1791	ds nextPut:repl
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1792	] ifFalse:[
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1793	ds nextPutAll:repl
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1794	]
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1795	].
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1796	].
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1797	^ ds contents.
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1798	!
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1799
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1800	formatWith:aString
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1801	"same as #bindWith: for dolphin compatibility"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1802
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1803	^ self bindWith:aString
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1804
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1805	"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1806	'hello%1world' formatWith:'123'
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1807	"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1808	!
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1809
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1810	formatWith:arg1 with:arg2
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1811	"same as #bindWith: for dolphin compatibility"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1812
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1813	^ self bindWith:arg1 with:arg2
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1814
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1815	"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1816	'hello%1 %2world' formatWith:'123' with:234
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1817	"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1818	!
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1819
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1820	formatWith:arg1 with:arg2 with:arg3
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1821	"same as #bindWith: for dolphin compatibility"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1822
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1823	^ self bindWith:arg1 with:arg2 with:arg3
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1824
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1825	"
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1826	'hello%1 %2 %3world' formatWith:'123' with:234 with:345
d71264ee7a9a dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6835 diff changeset	1827	"
6391 ff9f6df9ec4e * empty log message * Claus Gittinger <cg@exept.de> parents: 6228 diff changeset	1828	! !
ff9f6df9ec4e * empty log message * Claus Gittinger <cg@exept.de> parents: 6228 diff changeset	1829
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	1830	!CharacterArray methodsFor:'Compatibility-ST/V'!
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1831
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1832	byteAt:index put:aByte
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1833	"store a byte at given index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1834	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1835
1333 d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1836	"/ (aByte == 0) ifTrue:[
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1837	"/ "store a space instead"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1838	"/ ^ super basicAt:index put:(Character space)
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1839	"/ ].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1840	^ super at:index put:(Character value:aByte)
1333 d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1841
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1842	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1843	'hello' copy at:1 put:$H asciiValue; yourself
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1844	'hello' copy byteAt:1 put:72; yourself
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1845	'hello' copy byteAt:1 put:0; yourself
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1846	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1847
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1848	"Modified: 6.5.1996 / 10:35:26 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1849	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1850
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1851	replChar:oldChar with:newChar
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1852	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1853	by newChar.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1854	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1855
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	1856	^ self copyReplaceAll:oldChar with:newChar
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1857
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1858	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1859	'12345678901234567890' replChar:$0 with:$*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1860	"
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	1861
347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	1862	"Modified: / 18.7.1998 / 22:52:57 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1863	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1864
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1865	replChar:oldChar withString:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1866	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1867	by newString (i.e. slice in the newString in place of the oldChar).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1868	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1869
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1870	\|tmpStream\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1871
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1872	tmpStream := WriteStream on:(self class new).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1873	self do:[:element \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1874	element = oldChar ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1875	tmpStream nextPutAll:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1876	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1877	tmpStream nextPut:element
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1878	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1879	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1880	^ tmpStream contents
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1881
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1882	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1883	'12345678901234567890' replChar:$0 withString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1884	'a string with spaces' replChar:$ withString:' foo '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1885	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1886	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1887
4244 5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1888	replString:subString withString:newString
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1889	"return a copy of the receiver, with all sequences of subString replaced
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1890	by newString (i.e. slice in the newString in place of the oldString)."
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1891
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1892	\|tmpStream idx idx1\|
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1893
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1894	tmpStream := WriteStream on:(self class new).
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1895	idx := 1.
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1896	[idx ~~ 0] whileTrue:[
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1897	idx1 := idx.
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1898	idx := self indexOfSubCollection:subString startingAt:idx.
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1899	idx ~~ 0 ifTrue:[
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1900	tmpStream nextPutAll:(self copyFrom:idx1 to:idx-1).
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1901	tmpStream nextPutAll:newString.
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1902	idx := idx + subString size
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1903	]
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1904	].
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1905	tmpStream nextPutAll:(self copyFrom:idx1).
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1906	^ tmpStream contents
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1907
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1908	"
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1909	'12345678901234567890' replString:'123' withString:'OneTwoThree'
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1910	'12345678901234567890' replString:'123' withString:'*'
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1911	'12345678901234567890' replString:'234' withString:'foo'
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1912
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1913	('a string with spaces' replChar:$ withString:' foo ')
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1914	replString:'foo' withString:'bar'
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1915	"
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1916
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1917	"Modified: / 31.5.1999 / 12:33:59 / cg"
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1918	!
5deefa3144fb added #replString:withString: Claus Gittinger <cg@exept.de> parents: 4156 diff changeset	1919
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1920	trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1921	"return a copy of the receiver without leading
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1922	and trailing spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1923	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1924
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1925	^ self withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1926
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1927	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1928	' spaces at beginning' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1929	'spaces at end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1930	' spaces at beginning and end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1931	'no spaces' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1932	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1933	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1934
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	1935	!CharacterArray methodsFor:'Compatibility-Squeak'!
4409 86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	1936
6148 3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1937	asDate
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1938	"Many allowed forms, see Date.readFrom:"
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1939
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1940	^ Date readFrom: (ReadStream on: self)
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1941
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1942	"
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1943	'30 Apr 1999' asDate dayName capitalized
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1944	"
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1945	!
3230f949237c asDate (for squeak) james parents: 6139 diff changeset	1946
4989 d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1947	capitalized
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1948	^ self asUppercaseFirst
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1949
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1950	"
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1951	'hello' capitalized
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1952	"
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1953	!
d35f323b446c checkin from browser Claus Gittinger <cg@exept.de> parents: 4981 diff changeset	1954
5632 e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1955	displayProgressAt:aPointOrNil from:start to:stop during:aBlock
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1956	ProgressIndicator
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1957	displayProgress:self
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1958	at:aPointOrNil
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1959	from:start
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1960	to:stop
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1961	during:aBlock.
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1962
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1963	"
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1964	'dobedobedoobedoo'
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1965	displayProgressAt:(Screen current center)
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1966	from:0 to:100
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1967	during:[:val \|
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1968	0 to:100 do:[:i \|
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1969	val value:i.
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1970	Delay waitForSeconds:0.05.
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1971	]
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1972	]
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1973	"
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1974	!
e680dafe4b0d * empty log message * Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	1975
5794 9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1976	endsWithDigit
9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1977	"Answer whether the receiver's final character represents a digit. 3/11/96 sw"
9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1978
9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1979	^ self size > 0 and: [self last isDigit]
9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1980	!
9fc321e3906a added #endsWithDigit Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	1981
4981 2ee8cd2c4c8e squeak compatibility ps parents: 4974 diff changeset	1982	findTokens:delimiters
7270 37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1983	"cg: I am not sure, if this is really the squeak semantics (w.r.t. empty fields)"
37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1984
4981 2ee8cd2c4c8e squeak compatibility ps parents: 4974 diff changeset	1985	^ self asCollectionOfSubstringsSeparatedByAny:delimiters
7270 37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1986
37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1987	"
37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1988	'a\|b#c\|\|e' findTokens:#($# $\|)
37248a67718a * empty log message * Claus Gittinger <cg@exept.de> parents: 7265 diff changeset	1989	"
4981 2ee8cd2c4c8e squeak compatibility ps parents: 4974 diff changeset	1990	!
2ee8cd2c4c8e squeak compatibility ps parents: 4974 diff changeset	1991
4974 cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1992	includesSubString:aString
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1993	"return true, if a substring is contained in the receiver.
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1994	The compare is case sensitive."
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1995
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1996	^ self includesString:aString
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1997
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1998	"
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	1999	'hello world' includesSubString:'Hel'
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2000	'hello world' includesSubString:'hel'
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2001	'hello world' includesSubString:'llo'
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2002	"
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2003
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2004
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2005
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2006	!
cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	2007
4409 86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2008	includesSubstring:aString caseSensitive:caseSensitive
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2009	"return true, if a substring is contained in the receiver.
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2010	The argument, caseSensitive controls if case is ignored in the compare."
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2011
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2012	"/ for now, a q&d hack ...
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2013
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2014	caseSensitive ifFalse:[
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2015	^ self asLowercase includesString:aString asLowercase
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2016	].
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2017	^ self includesString:aString
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2018
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2019	"
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2020	'hello world' includesSubstring:'Hel' caseSensitive:true
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2021	'hello world' includesSubstring:'Hel' caseSensitive:false
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2022	"
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2023
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2024
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2025
4890 fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2026	!
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2027
6979 128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2028	isAllDigits
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2029	"Answer whether the receiver's characters are all digits"
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2030
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2031	^ self conform:[:eachChar \| eachChar isDigit]
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2032
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2033	"
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2034	'hello world' isAllDigits
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2035	'12344' isAllDigits
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2036	"
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2037	!
128a928d5dac isAllDigits - Squeak compatibility penk parents: 6969 diff changeset	2038
4890 fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2039	lastSpacePosition
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2040	^ self lastIndexOfSeparator
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2041	!
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2042
7022 0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2043	padded:leftOrRight to:paddedSize with:padCharacter
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2044	leftOrRight == #left ifTrue:[
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2045	^ self leftPaddedTo:paddedSize with:padCharacter
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2046	].
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2047	^ self paddedTo:paddedSize with:padCharacter
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2048
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2049	"
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2050	'hello' padded:#right to:10 with:$.
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2051	'hello' padded:#left to:10 with:$.
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2052	"
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2053	!
0c3c73f83b7f padded:to:with: - for squeak penk parents: 7020 diff changeset	2054
7691 54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2055	skipDelimiters:delimiters startingAt:start
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2056	"Answer the index of the character within the receiver, starting at start,
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2057	that does NOT match one of the delimiters.
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2058	If the receiver does not contain any of the delimiters, answer size + 1.
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2059	Assumes the delimiters to be a non-empty string."
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2060
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2061	start to:self size do:[:i \|
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2062	delimiters detect:[:delim \| delim = (self at:i) ] ifNone:[ ^ i ]
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2063	].
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2064	^ self size + 1
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2065
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2066	"
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2067	'123**7890' skipDelimiters:'' startingAt:4
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2068	'123**7890' skipDelimiters:'' startingAt:3
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2069	'123**7890' skipDelimiters:'' startingAt:10
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2070	'123******' skipDelimiters:'' startingAt:10
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2071	"
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2072	!
54f25687802d compatibility Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2073
6948 92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2074	substrings
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2075	^ self asCollectionOfWords
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2076
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2077	"
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2078	'foo bar baz' substrings
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2079	"
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2080	!
92c7b54e8890 squeak compatibility Claus Gittinger <cg@exept.de> parents: 6892 diff changeset	2081
5795 d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2082	truncateTo:smallSize
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2083	"return myself or a copy shortened to smallSize. 1/18/96 sw"
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2084
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2085	self size <= smallSize ifTrue:[^ self].
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2086	^ self copyFrom: 1 to: smallSize
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2087
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2088	"
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2089	'hello world' truncateTo:5
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2090	'hello' truncateTo:10
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2091
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2092	'hello world' copyTo:5
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2093	'hello' copyTo:10
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2094	"
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2095	!
d67a8ff4d98e added #truncateTo: Claus Gittinger <cg@exept.de> parents: 5794 diff changeset	2096
4890 fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2097	withBlanksTrimmed
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2098	"Return a copy of the receiver from which leading and trailing blanks have been trimmed."
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2099
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2100	^ self withoutSpaces
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2101
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2102	"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2103	' hello world ' withBlanksTrimmed
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2104	"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2105
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2106
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2107
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2108	!
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2109
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2110	withNoLineLongerThan: aNumber
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2111	"Answer a string with the same content as receiver, but rewrapped so that no line has more characters than the given number"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2112
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2113	\| listOfLines currentLast currentStart resultString putativeLast putativeLine crPosition \|
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2114
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2115	aNumber isNumber not \| (aNumber < 1) ifTrue: [self error: 'too narrow'].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2116	listOfLines _ OrderedCollection new.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2117	currentLast _ 0.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2118	[currentLast < self size] whileTrue:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2119	[currentStart _ currentLast + 1.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2120	putativeLast _ (currentStart + aNumber - 1) min: self size.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2121	putativeLine _ self copyFrom: currentStart to: putativeLast.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2122	(crPosition _ putativeLine indexOf: Character cr) > 0 ifTrue:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2123	[putativeLast _ currentStart + crPosition - 1.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2124	putativeLine _ self copyFrom: currentStart to: putativeLast].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2125	currentLast _ putativeLast == self size
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2126	ifTrue:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2127	[putativeLast]
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2128	ifFalse:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2129	[currentStart + putativeLine lastSpacePosition - 1].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2130	currentLast <= currentStart ifTrue:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2131	["line has NO spaces; baleout!!"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2132	currentLast _ putativeLast].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2133	listOfLines add: (self copyFrom: currentStart to: currentLast) withBlanksTrimmed].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2134
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2135	listOfLines size > 0 ifFalse: [^ ''].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2136	resultString _ listOfLines first.
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2137	2 to: listOfLines size do:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2138	[:i \| resultString _ resultString, Character cr asString, (listOfLines at: i)].
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2139	^ resultString
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2140
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2141	"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2142	#(5 7 20) collect:
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2143	[:i \| 'Fred the bear went down to the brook to read his book in silence' withNoLineLongerThan: i]
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2144	"
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2145
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2146
fa9abaa225ef checkin from browser Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	2147
4409 86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2148	! !
86e049b21f8d added #includesSubstring:caseSensitive: Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	2149
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	2150	!CharacterArray methodsFor:'Compatibility-V''Age'!
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2151
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2152	addLineDelimiter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2153	"replace all '\'-characters by line delimiter (cr) - characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2154	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2155
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2156	^ self withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2157	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2158
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2159	bindWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2160	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2161	replaced by aString.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2162	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2163
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2164	^ self expandPlaceholdersWith:(Array with:aString)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2165
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2166	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2167	'do you like %1 ?' bindWith:'smalltalk'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2168	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2169	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2170
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2171	bindWith:string1 with:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2172	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2173	replaced by string1 and '%2' is replaced by string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2174	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2175
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2176	^ self expandPlaceholdersWith:(Array with:string1 with:string2)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2177
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2178	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2179	'do you prefer %1 or rather %2 ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2180	bindWith:'smalltalk' with:'c++'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2181	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2182	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2183
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2184	bindWith:str1 with:str2 with:str3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2185	"return a copy of the receiver, where a '%1', '%2' and '%3' escapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2186	are replaced by str1, str2 and str3 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2187	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2188
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2189	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2190
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2191	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2192	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2193	bindWith:'smalltalk' with:'c++' with:'c'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2194	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2195	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2196
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2197	bindWith:str1 with:str2 with:str3 with:str4
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2198	"return a copy of the receiver, where a '%1', '%2', '%3' and '%4' escapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2199	are replaced by str1, str2, str3 and str4 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2200	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2201
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2202	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2203
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2204	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2205	'do you prefer %1 or rather %2 (not talking about %3 or even %4) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2206	bindWith:'smalltalk' with:'c++' with:'c' with:'assembler'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2207	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2208	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2209
2344 b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2210	bindWith:str1 with:str2 with:str3 with:str4 with:str5
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2211	"return a copy of the receiver, where a '%1' .. '%5' escapes
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2212	are replaced by str1 .. str5 respectively.
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2213	This has been added for VisualAge compatibility."
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2214
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2215	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4 with:str5)
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2216
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2217	"Created: 31.1.1997 / 16:25:42 / cg"
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2218	!
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	2219
5343 bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2220	bindWith:str1 with:str2 with:str3 with:str4 with:str5 with:str6
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2221	"return a copy of the receiver, where a '%1' .. '%6' escapes
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2222	are replaced by str1 .. str5 respectively.
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2223	This has been added for VisualAge compatibility."
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2224
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2225	^ self expandPlaceholdersWith:(Array with:str1 with:str2
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2226	with:str3 with:str4
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2227	with:str5 with:str6)
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2228
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2229	!
bac9bc59a698 * empty log message * Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	2230
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2231	bindWithArguments:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2232	"return a copy of the receiver, where a '%i' escape
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2233	is replaced by the coresponding string from the argument array.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2234	'i' may be between 1 and 9 (i.e. a maximum of 9 placeholders is allowed).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2235	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2236
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2237	^ self expandPlaceholdersWith:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2238
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2239	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2240	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2241	bindWithArguments:#('smalltalk' 'c++' 'c')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2242	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2243	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2244
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2245	subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2246	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2247	Words are separated by whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2248	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2249
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2250	^ self asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2251
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2252	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2253	'hello world, this is smalltalk' subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2254	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2255	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2256
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2257	subStrings:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2258	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2259	Words are separated by separatorCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2260	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2261
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2262	^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2263
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2264	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2265	'foo:bar:baz:smalltalk' subStrings:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2266	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2267	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2268
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2269	trimSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2270	"return a copy of the receiver without leading and trailing whiteSpace"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2271
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2272	^ self withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2273	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2274
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7247 diff changeset	2275	!CharacterArray methodsFor:'Compatibility-VW'!
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2276
6139 1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2277	asLogicalFileSpecification
1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2278	^ self asFilename
1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2279
1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2280	"Created: / 30.10.2001 / 17:29:53 / cg"
1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2281	!
1b86d43f8eb7 VW compatibility Claus Gittinger <cg@exept.de> parents: 6122 diff changeset	2282
6119 b6cee2c2b2ea +asQualifiedReference Claus Gittinger <cg@exept.de> parents: 5964 diff changeset	2283	asQualifiedReference
b6cee2c2b2ea +asQualifiedReference Claus Gittinger <cg@exept.de> parents: 5964 diff changeset	2284	^ BindingReference pathString:(self string)
b6cee2c2b2ea +asQualifiedReference Claus Gittinger <cg@exept.de> parents: 5964 diff changeset	2285
b6cee2c2b2ea +asQualifiedReference Claus Gittinger <cg@exept.de> parents: 5964 diff changeset	2286	!
b6cee2c2b2ea +asQualifiedReference Claus Gittinger <cg@exept.de> parents: 5964 diff changeset	2287
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2288	expandMacros
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2289	"ST80 compatibility - expand '<..>' macros with
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2290	argument strings. Similar to #bindWith:.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2291	Read the comment in #expandMacrosWithArguments: about
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2292	limited compatibility issues."
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2293
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2294	^ self expandMacrosWithArguments:#()
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2295
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2296	"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2297	'hello<n>foo' expandMacros
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2298	"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2299
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2300	"Modified: / 18.6.1998 / 16:03:02 / cg"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2301	!
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2302
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2303	expandMacrosWith:arg
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2304	"ST80 compatibility - expand '<..>' macros with
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2305	argument strings. Similar to #bindWith:.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2306	Read the comment in #expandMacrosWithArguments: about
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2307	limited compatibility issues."
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2308
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2309	^ self expandMacrosWithArguments:(Array with:arg)
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2310
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2311	"Created: / 1.11.1997 / 13:01:28 / cg"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2312	"Modified: / 1.11.1997 / 13:30:50 / cg"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2313	!
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2314
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2315	expandMacrosWith:arg1 with:arg2
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2316	"ST80 compatibility - expand '<..>' macros with
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2317	argument strings. Similar to #bindWith:.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2318	Read the comment in #expandMacrosWithArguments: about
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2319	limited compatibility issues."
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2320
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2321	^ self expandMacrosWithArguments:(Array with:arg1 with:arg2)
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2322
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2323	"Modified: / 6.7.1998 / 21:58:14 / cg"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2324	!
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2325
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2326	expandMacrosWith:arg1 with:arg2 with:arg3
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2327	"ST80 compatibility - expand '<..>' macros with
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2328	argument strings. Similar to #bindWith:.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2329	Read the comment in #expandMacrosWithArguments: about
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2330	limited compatibility issues."
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2331
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2332	^ self expandMacrosWithArguments:(Array with:arg1 with:arg2 with:arg3)
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2333	!
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2334
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2335	expandMacrosWithArguments:argArray
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2336	"ST80 compatibility - expand '<..>' macros with
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2337	argument strings. Similar to #bindWith:.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2338	WARNING: possibly not all ST80 expansions are supported here."
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2339
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2340	"/ supported expansions:
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2341	"/
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2342	"/ <#p> # is arg Number; slice in the args printString
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2343	"/ <#s> # is arg Number; slice in the arg itself (must be a String)
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2344	"/ <#?s1:s2> # is arg Number; slice in s1 if the arg is true, s2 otherwise
7643 53536a53dcbc comment Claus Gittinger <cg@exept.de> parents: 7641 diff changeset	2345	"/ use first arg if # is not given (i.e. no number before s,p ...)
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2346	"/ <n> replace by a newLine character
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2347	"/ <t> replace by a tab character
6834 eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2348	"/ %X the X character itself
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2349
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2350	\|in out c fmt nr arg s1 s2\|
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2351
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2352	in := self readStream.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2353	out := '' writeStream.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2354
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2355	[in atEnd] whileFalse:[
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2356	c := in next.
6834 eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2357	c == $% ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2358	c := in next.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2359	out nextPut:c
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2360	] ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2361	c == $< ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2362	[in peek == $<] whileTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2363	out nextPut:$<.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2364	in next.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2365	].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2366	in peek == $n ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2367	out nextPut:Character cr.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2368	in next
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2369	] ifFalse:[in peek == $t ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2370	out nextPut:Character tab.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2371	in next
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2372	] ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2373	in peek isDigit ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2374	nr := 1
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2375	] ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2376	"/ start an argument expansion ...
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2377	nr := Integer readFrom:in onError:nil.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2378	nr isNil ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2379	"/ what does VW do here ?
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2380	self error:'invalid format' mayProceed:true.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2381	^ self
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2382	].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2383	(nr between:1 and:argArray size) ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2384	"/ what does VW do here ?
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2385	self error:'invalid format - bad argNr' mayProceed:true.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2386	^ self
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2387	].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2388	].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2389	arg := argArray at:nr.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2390
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2391	fmt := in next.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2392	(fmt == $p) ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2393	"/ expand with args printString
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2394	out nextPutAll:arg printString.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2395	] ifFalse:[ (fmt == $s) ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2396	"/ expand with arg itself
7569 a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2397	arg isText ifTrue:[
a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2398	out := (WriteStream on:(Text new)) nextPutAll:(out contents); yourself.
a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2399	out nextPutAll:arg asText.
a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2400	] ifFalse:[
a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2401	out nextPutAll:arg asString.
a90fffe48d5e handle text arguments (bold...) Claus Gittinger <cg@exept.de> parents: 7555 diff changeset	2402	]
6834 eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2403	] ifFalse:[ (fmt == $?) ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2404	s1 := in upTo:$:.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2405	s2 := in nextUpTo:$>.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2406	arg ifTrue:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2407	out nextPutAll:s1
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2408	] ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2409	out nextPutAll:s2
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2410	].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2411	] ifFalse:[
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2412	"/ what does VW do here ?
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2413	self error:'invalid format' mayProceed:true.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2414	^ self
6834 eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2415	]]].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2416	]].
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2417	c := in next.
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2418	c ~~ $> ifTrue:[
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2419	"/ what does VW do here ?
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2420	self error:'invalid format' mayProceed:true.
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2421	^ self
6834 eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2422	]
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2423	] ifFalse:[
eba4b58b8692 fixed expandMacros (%-escape) Claus Gittinger <cg@exept.de> parents: 6810 diff changeset	2424	out nextPut:c
5964 0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2425	]
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2426	].
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2427	].
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2428	^ out contents
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2429
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2430	"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2431	'hello <1p> how are you' expandMacrosWith:(OperatingSystem getLoginName)
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2432	"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2433
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2434	"Modified: / 18.6.1998 / 16:04:46 / cg"
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2435	! !
0f748abc0c17 protocol rename Claus Gittinger <cg@exept.de> parents: 5963 diff changeset	2436
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2437	!CharacterArray methodsFor:'character searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2438
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2439	includesMatchCharacters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2440	"return true if the receiver includes any meta characters (i.e. $* or $#)
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2441	for match operations; false if not.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2442	Here, do not care for $\ escapes"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2443
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2444	^ self includesAny:'*#['
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2445
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2446	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2447	'*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2448	'\*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2449	'\*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2450	'*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2451	'\\*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2452	'foo*' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2453	'foo\*' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2454	'foo\' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2455	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2456
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2457	"Modified: 2.4.1997 / 18:12:34 / cg"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2458	!
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2459
6998 d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2460	includesSeparator
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2461	"return true, if the receiver contains any whitespace characters"
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2462
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2463	^ (self indexOfSeparator ~~ 0)
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2464
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2465	"
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2466	'hello world' includesSeparator
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2467	'helloworld' includesSeparator
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2468	"
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2469	!
d76249d7995a + includesSeparator Claus Gittinger <cg@exept.de> parents: 6979 diff changeset	2470
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2471	includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2472	"return true if the receiver really includes any meta characters (i.e. $* or $#)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2473	for match operations; false if not.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2474	Here, care for $\ escapes"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2475
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2476	\|idx sz specialChars escape\|
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2477
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2478	idx := 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2479	sz := self size.
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2480	specialChars := '*#[\'.
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2481	(escape := self class matchEscapeCharacter) ~~ $\ ifTrue:[
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2482	specialChars := specialChars copy.
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2483	specialChars at:specialChars size put:escape
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2484	].
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2485
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2486	[true] whileTrue:[
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2487	idx := self indexOfAny:specialChars startingAt:idx.
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2488	idx == 0 ifTrue:[^ false].
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2489	(self at:idx) == escape ifFalse:[^ true].
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2490	idx := idx + 2.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2491	idx > sz ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2492	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2493
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2494	"
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2495	'*foo' includesUnescapedMatchCharacters
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2496	'\*foo' includesUnescapedMatchCharacters
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2497	'\\foo' includesUnescapedMatchCharacters
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	2498	'\\\$foo' includesUnescapedMatchCharacters
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2499	'*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2500	'\\*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2501	'foo*' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2502	'foo\*' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2503	'foo\' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2504	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2505
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2506	"Modified: 2.4.1997 / 17:08:52 / cg"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2507	"Created: 2.4.1997 / 17:23:26 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2508	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2509
3668 76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2510	indexOfControlCharacterStartingAt:startIndex
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2511	"return the index of the next control character;
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2512	starting the search at startIndex, searching forward;
3668 76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2513	that is a character with asciiValue < 32.
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2514	Return 0 if none is found."
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2515
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2516	\|start "{ Class: SmallInteger }"
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2517	mySize "{ Class: SmallInteger }"\|
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2518
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2519	start := startIndex.
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2520	mySize := self size.
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2521
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2522	start to:mySize do:[:index \|
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2523	(self at:index) isControlCharacter ifTrue:[^ index]
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2524	].
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2525	^ 0
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2526
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2527	"
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2528	'hello world' asTwoByteString indexOfControlCharacterStartingAt:1
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2529	'hello world\foo' withCRsasTwoByteString indexOfControlCharacterStartingAt:1
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2530	"
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2531
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2532	"Modified: / 21.7.1998 / 17:25:07 / cg"
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2533	!
76271941f044 added #indexOfControlCharacterStartingAt: Claus Gittinger <cg@exept.de> parents: 3656 diff changeset	2534
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2535	indexOfNonSeparatorStartingAt:startIndex
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2536	"return the index of the next non-whitespace character,
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2537	starting the search at startIndex, searching forward;
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2538	return 0 if no non-separator was found"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2539
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2540	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2541	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2542
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2543	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2544	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2545
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2546	start to:mySize do:[:index \|
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2547	(self at:index) isSeparator ifFalse:[^ index]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2548	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2549	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2550
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2551	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2552	' hello world' indexOfNonSeparatorStartingAt:1
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2553	' ' indexOfNonSeparatorStartingAt:1
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2554	'a ' indexOfNonSeparatorStartingAt:2
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2555	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2556
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2557	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2558	\|s index1 index2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2559	s := ' foo bar baz'.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2560	index1 := s indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2561	index2 := s indexOfSeparatorStartingAt:index1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2562	s copyFrom:index1 to:index2 - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2563	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2564	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2565
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2566	indexOfSeparator
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2567	"return the index of the first whitespace character;
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2568	starting the search at the beginning, searching forward;
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2569	return 0 if no separator was found"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2570
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2571	^ self indexOfSeparatorStartingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2572
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2573	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2574	'hello world' indexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2575	'helloworld' indexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2576	'hello ' indexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2577	' hello' indexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2578	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2579	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2580
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2581	indexOfSeparatorStartingAt:startIndex
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2582	"return the index of the next whitespace character,
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2583	starting the search at startIndex, searching forward;
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2584	return 0 if no separator was found"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2585
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2586	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2587	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2588
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2589	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2590	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2591
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2592	start to:mySize do:[:index \|
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2593	(self at:index) isSeparator ifTrue:[^ index]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2594	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2595	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2596
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2597	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2598	'hello world' indexOfSeparatorStartingAt:3
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2599	' hello world' indexOfSeparatorStartingAt:3
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2600	'hello world ' indexOfSeparatorStartingAt:3
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2601	'hello world ' indexOfSeparatorStartingAt:6
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2602	'hello world ' indexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2603	'helloworld ' indexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2604	'helloworld' indexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2605	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2606	!
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2607
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2608	lastIndexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2609	"return the last index of the whitespace character.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2610	(i.e. start the search at the end and search backwards);
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2611	Returns 0 if no separator is found."
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2612
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2613	^ self lastIndexOfSeparatorStartingAt:(self size)
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2614
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2615	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2616	'hello world' lastIndexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2617	'helloworld' lastIndexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2618	'hel lo wor ld' lastIndexOfSeparator
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2619	'hel ' lastIndexOfSeparator 6
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2620	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2621	!
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2622
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2623	lastIndexOfSeparatorStartingAt:startIndex
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2624	"return the index of the previous whitespace character,
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2625	starting the search at startIndex (and searching backwards);
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2626	returns 0 if no separator was found"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2627
5487 cb4c5ae75c63 * empty log message * Claus Gittinger <cg@exept.de> parents: 5469 diff changeset	2628	\|start "{ Class: SmallInteger }"\|
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2629
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2630	start := startIndex.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2631
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2632	start to:1 by:-1 do:[:index \|
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2633	(self at:index) isSeparator ifTrue:[^ index]
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2634	].
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2635	^ 0
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2636
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2637	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2638	'hello world' lastIndexOfSeparatorStartingAt:3
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2639	'hello world' lastIndexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2640	'helloworld' lastIndexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2641	' helloworld' lastIndexOfSeparatorStartingAt:7
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	2642	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2643	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2644
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2645	!CharacterArray methodsFor:'comparing'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2646
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2647	< aString
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2648	"Compare the receiver with the argument and return true if the
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2649	receiver is greater than the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2650	This comparison is based on the elements ascii code -
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2651	i.e. upper/lowercase & upper/lowercase & national characters are NOT treated specially."
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2652
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2653	\|mySize "{ Class: SmallInteger }"
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2654	otherSize "{ Class: SmallInteger }"
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2655	n "{ Class: SmallInteger }"
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2656	c1 c2\|
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2657
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2658	mySize := self size.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2659	otherSize := aString string size.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2660	n := mySize min:otherSize.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2661
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2662	1 to:n do:[:index \|
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2663	c1 := self at:index.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2664	c2 := aString at:index.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2665	c1 < c2 ifTrue:[^ true].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2666	c1 > c2 ifTrue:[^ false].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2667	].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	2668	^ mySize < otherSize
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2669	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2670
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2671	<= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2672	"Compare the receiver with the argument and return true if the
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2673	receiver is less than or equal to the argument. Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2674	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2675	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2676
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2677	^ (self > something) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2678
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2679	"Modified: 22.4.1996 / 15:54:56 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2680	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2681
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2682	= aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2683	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2684	receiver is equal to the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2685
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2686	This compare does NOT ignore case differences,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2687	therefore 'foo' = 'Foo' will return false.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2688	Since this is incompatible to ST-80 (at least, V2.x) , this may change."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2689
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2690	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2691	otherSize \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2692
5963 23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2693	(aString isString or:[aString species == self species]) ifFalse:[
23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2694	^ false
23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2695	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2696	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2697	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2698	mySize == otherSize ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2699
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2700	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2701	(self at:index) = (aString at:index) ifFalse:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2702	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2703	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2704
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2705	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2706	'foo' = 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2707	'foo' = 'bar'
5963 23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2708	'foo' = 'foo'
23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2709	'foo' = 'foo' asText
23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2710	'foo' asText = 'foo'
23462e06dcff compare with Texts fixed (should compare equal if strings are) Claus Gittinger <cg@exept.de> parents: 5946 diff changeset	2711	'foo' asText = 'foo' asText
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2712	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2713
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2714	"Modified: 22.4.1996 / 15:53:58 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2715	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2716
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2717	> aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2718	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2719	receiver is greater than the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2720	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2721	i.e. upper/lowercase & upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2722
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2723	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2724	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2725	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2726	c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2727
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2728	mySize := self size.
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2729	otherSize := aString string size.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2730	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2731
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2732	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2733	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2734	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2735	c1 > c2 ifTrue:[^ true].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2736	c1 < c2 ifTrue:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2737	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2738	^ mySize > otherSize
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2739
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2740	"Modified: 22.4.1996 / 15:55:00 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2741	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2742
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2743	>= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2744	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2745	receiver is greater than or equal to the argument.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2746	Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2747	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2748	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2749
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2750	^ (something > self) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2751
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2752	"Modified: 22.4.1996 / 15:55:03 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2753	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2754
5929 a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2755	compareCaselessWith:aString
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2756	"Compare the receiver against the argument, ignoreing case.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2757	Return 1 if the receiver is greater, 0 if equal and -1 if less than the argument.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2758
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2759	This comparison is based on the elements ascii code -
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2760	i.e. national characters are NOT treated specially.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2761	'foo' compareWith: 'Foo' will return 0"
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2762
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2763	\|mySize "{ Class: SmallInteger }"
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2764	otherSize "{ Class: SmallInteger }"
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2765	n "{ Class: SmallInteger }"
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2766	c1 c2\|
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2767
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2768	mySize := self size.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2769	otherSize := aString string size.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2770	n := mySize min:otherSize.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2771
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2772	1 to:n do:[:index \|
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2773	c1 := (self at:index) asLowercase.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2774	c2 := (aString at:index) asLowercase.
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2775	c1 > c2 ifTrue:[^ 1].
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2776	c1 < c2 ifTrue:[^ -1].
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2777	].
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2778	mySize > otherSize ifTrue:[^ 1].
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2779	mySize < otherSize ifTrue:[^ -1].
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2780	^ 0
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2781
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2782	"Modified: 22.4.1996 / 15:56:07 / cg"
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2783	!
a3d2e7aaa3a3 added #compareCaselessWith: Claus Gittinger <cg@exept.de> parents: 5898 diff changeset	2784
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2785	compareWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2786	"Compare the receiver with the argument and return 1 if the receiver is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2787	greater, 0 if equal and -1 if less than the argument.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2788	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2789	i.e. upper/lowercase & national characters are NOT treated specially.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2790	'foo' compareWith: 'Foo' will return 1.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2791	while 'foo' sameAs:'Foo' will return true"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2792
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2793	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2794	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2795	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2796	c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2797
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2798	mySize := self size.
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2799	otherSize := aString string size.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2800	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2801
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2802	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2803	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2804	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2805	c1 > c2 ifTrue:[^ 1].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2806	c1 < c2 ifTrue:[^ -1].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2807	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2808	mySize > otherSize ifTrue:[^ 1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2809	mySize < otherSize ifTrue:[^ -1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2810	^ 0
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2811
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2812	"Modified: 22.4.1996 / 15:56:07 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2813	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2814
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2815	hash
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2816	"return an integer useful as a hash-key"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2817
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2818	%{ /* NOCONTEXT */
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2819
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2820	REGISTER unsigned g, val;
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2821	REGISTER unsigned char cp, cp0;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2822	int l;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2823
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2824	cp = __stringVal(self);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2825	l = __stringSize(self);
3987 b3a2a7377640 * empty log message * Claus Gittinger <cg@exept.de> parents: 3985 diff changeset	2826	if (__qClass(self) != @global(String)) {
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2827	int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2828
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2829	cp += n;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2830	l -= n;
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2831	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2832
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2833	/*
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2834	* this is the dragon-book algorithm
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2835	*/
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2836
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2837	val = 0;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2838	switch (l) {
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2839	default:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2840	for (cp0 = cp, cp += l - 1; cp >= cp0; cp--) {
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2841	val = (val << 4) + *cp;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2842	if (g = (val & 0xF0000000)) {
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2843	val ^= g >> 24;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2844	val ^= g;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2845	}
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2846	}
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2847	break;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2848	case 7:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2849	val = cp[6] << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2850	case 6:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2851	val = (val + cp[5]) << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2852	case 5:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2853	val = (val + cp[4]) << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2854	case 4:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2855	val = (val + cp[3]) << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2856	case 3:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2857	val = (val + cp[2]) << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2858	case 2:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2859	val = (val + cp[1]) << 4;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2860	case 1:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2861	val = val + cp[0];
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2862	case 0:
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2863	break;
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2864	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2865
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2866	/*
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2867	* multiply by large prime to spread values
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2868	* This speeds up Set and Dictionary by a factor of 10!
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2869	*/
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2870	val *= 31415821;
087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2871	RETURN ( __MKSMALLINT(val & 0x3fffffff));
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2872	%}
3985 087595c7629b Tune hash resp. identityHash. Stefan Vogel <sv@exept.de> parents: 3926 diff changeset	2873
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2874	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2875
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2876	sameAs:aString
7991 4e8a30e846f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7986 diff changeset	2877	"Compare the receiver with the argument like =, but ignore case differences.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2878	Return true or false."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2879
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2880	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2881	otherSize c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2882
3195 0a1a7a4c6184 oops- sameAs returned self instead of true Claus Gittinger <cg@exept.de> parents: 3073 diff changeset	2883	self == aString ifTrue:[^ true].
2581 d06e3bbfc294 faster #sameAs: if string is identical Claus Gittinger <cg@exept.de> parents: 2561 diff changeset	2884
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2885	mySize := self size.
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2886	otherSize := aString string size.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2887	mySize == otherSize ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2888
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2889	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2890	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2891	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2892	c1 == c2 ifFalse:[
7991 4e8a30e846f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 7986 diff changeset	2893	(c1 sameAs:c2) ifFalse:[^ false].
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2894	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2895	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2896	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2897
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2898	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2899	'foo' sameAs: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2900	'foo' sameAs: 'bar'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2901	'foo' sameAs: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2902	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2903
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2904	"Modified: 22.4.1996 / 15:56:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2905	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2906
5242 0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2907	sameAs:aString ignoreCase:ignoreCase
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2908	"Compare the receiver with the argument.
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2909	If ignoreCase is true, this is the same as #sameAs:,
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2910	if false, this is the same as #=."
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2911
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2912	ignoreCase ifTrue:[
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2913	^ self sameAs:aString
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2914	].
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2915	^ self = aString
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2916
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2917	"
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2918	'foo' sameAs:'Foo' ignoreCase:false
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2919	'foo' sameAs:'foo' ignoreCase:true
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2920	"
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2921
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2922	!
0da078635576 * empty log message * Claus Gittinger <cg@exept.de> parents: 5230 diff changeset	2923
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2924	sameCharacters:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2925	"count & return the number of characters which are the same
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2926	(ignoring case and emphasis) in the receiver and the argument, aString."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2927
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2928	\|n "{ Class: SmallInteger }"
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2929	c1 c2 cnt\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2930
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2931	n := self size.
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2932	n := n min:(aString string size).
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2933
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2934	cnt := 0.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2935	1 to:n do:[:index \|
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2936	c1 := self at:index.
4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2937	c2 := aString at:index.
4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2938	((c1 == c2)
4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2939	or:[c1 asLowercase = c2 asLowercase]) ifTrue:[
4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2940	cnt := cnt + 1
4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2941	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2942	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2943	^ cnt
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2944
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2945	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2946	'foobarbaz' sameCharacters: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2947	'foobarbaz' sameCharacters: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2948	'foobarbaz' sameCharacters: 'baz'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2949	"
5510 a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2950	!
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2951
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2952	sameEmphasisAs:aStringOrText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2953	"compare the receivers and the arguments emphasis"
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2954
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2955	^ self emphasis = aStringOrText emphasis
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2956
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2957	"
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2958	'hello' asText sameEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2959	'hello' asText sameEmphasisAs: 'hello' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2960	'hello' asText allBold sameEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2961	'hello' asText allBold sameEmphasisAs: 'fooba' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2962	'hello' asText allBold sameEmphasisAs: 'fooba' asText allItalic
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2963	"
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2964
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2965
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2966	!
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2967
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2968	sameStringAndEmphasisAs:aStringOrText
5739 4fd3be7ccc75 oops some relational ops did accept a non-string arg Claus Gittinger <cg@exept.de> parents: 5732 diff changeset	2969	"compare both emphasis and string of the receiver and the argument"
5510 a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2970
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2971	aStringOrText isString ifFalse:[^ false].
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2972	(self string = aStringOrText string) ifFalse:[^ false].
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2973	self hasChangeOfEmphasis = aStringOrText hasChangeOfEmphasis ifFalse:[^ false].
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2974	^ self emphasis = aStringOrText emphasis
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2975
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2976	"
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2977	'hello' asText sameEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2978	'hello' asText sameEmphasisAs: 'hello' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2979	'hello' asText allBold sameEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2980	'hello' asText allBold sameEmphasisAs: 'fooba' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2981	'hello' asText allBold sameEmphasisAs: 'fooba' asText allItalic
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2982
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2983	'hello' sameEmphasisAs: 'hello' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2984	'hello' sameEmphasisAs: 'hello' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2985	'hello' sameEmphasisAs: 'fooba'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2986	'hello' sameEmphasisAs: 'fooba' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2987	'hello' sameEmphasisAs: 'fooba' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2988	'hello' sameEmphasisAs: 'fooba' asText allItalic
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2989
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2990	'hello' asText sameStringAndEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2991	'hello' asText sameStringAndEmphasisAs: 'hello' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2992	'hello' asText allBold sameStringAndEmphasisAs: 'hello'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2993	'hello' asText allBold sameStringAndEmphasisAs: 'fooba' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2994	'hello' asText allBold sameStringAndEmphasisAs: 'fooba' asText allItalic
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2995
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2996	'hello' sameStringAndEmphasisAs: 'hello' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2997	'hello' sameStringAndEmphasisAs: 'hello' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2998	'hello' sameStringAndEmphasisAs: 'fooba'
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	2999	'hello' sameStringAndEmphasisAs: 'fooba' asText
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	3000	'hello' sameStringAndEmphasisAs: 'fooba' asText allBold
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	3001	'hello' sameStringAndEmphasisAs: 'fooba' asText allItalic
a261b8f5d66f moved #sameEmphasisAs: and #sameStringAndEmphasisAs: Claus Gittinger <cg@exept.de> parents: 5487 diff changeset	3002	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3003	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3004
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3005	!CharacterArray methodsFor:'converting'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3006
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3007	asArrayOfSubstrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3008	"return an array of substrings from the receiver, interpreting
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3009	separators (i.e. spaces & newlines) as word-delimiters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3010	This is a compatibility method - the actual work is done in
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3011	asCollectionOfWords."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3012
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3013	^ self asCollectionOfWords asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3014
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3015	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3016	'1 one two three four 5 five' asArrayOfSubstrings
6892 f25449fa7a84 comment Claus Gittinger <cg@exept.de> parents: 6870 diff changeset	3017	'1
f25449fa7a84 comment Claus Gittinger <cg@exept.de> parents: 6870 diff changeset	3018	one
f25449fa7a84 comment Claus Gittinger <cg@exept.de> parents: 6870 diff changeset	3019	two three four 5 five' asArrayOfSubstrings
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3020	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3021	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3022
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3023	asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3024	"return a collection containing the lines (separated by cr)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3025	of the receiver. If multiple cr's occur in a row, the result will
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3026	contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3027
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3028	^ self asCollectionOfSubstringsSeparatedBy:Character cr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3029
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3030	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3031	'1 one\2 two\3 three\4 four\5 five' withCRs asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3032	'1 one\\\\2 two\3 three' withCRs asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3033	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3034	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3035
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3036	asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3037	"return a collection containing the lines (separated by aCharacter)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3038	of the receiver. If aCharacter occurs multiple times in a row,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3039	the result will contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3040
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3041	\|lines myClass
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3042	numberOfLines "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3043	startIndex "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3044	stopIndex "{ Class:SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3045
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3046	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3047	count first, to avoid regrowing of the OC
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3048	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3049	numberOfLines := (self occurrencesOf:aCharacter) + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3050	lines := OrderedCollection new:numberOfLines.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3051	myClass := self species.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3052
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3053	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3054	1 to:numberOfLines do:[:lineNr \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3055	stopIndex := self indexOf:aCharacter startingAt:startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3056	stopIndex == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3057	stopIndex := self size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3058	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3059	stopIndex := stopIndex - 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3060	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3061
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3062	(stopIndex < startIndex) ifTrue: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3063	lines add:(myClass new:0)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3064	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3065	lines add:(self copyFrom:startIndex to:stopIndex)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3066	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3067	startIndex := stopIndex + 2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3068	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3069	^ lines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3070
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3071	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3072	'1 one:2 two:3 three:4 four:5 five' withCRs asCollectionOfSubstringsSeparatedBy:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3073	'1 one 2 two 3 three 4 four 5 five' withCRs asCollectionOfSubstringsSeparatedBy:Character space
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3074	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3075	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3076
7339 20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3077	asCollectionOfSubstringsSeparatedByAll:aSeparatorString
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3078	"return a collection containing the lines (separated by aSeparatorString)
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3079	of the receiver. If aSeparatorString occurs multiple times in a row,
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3080	the result will contain empty strings."
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3081
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3082	\|items done myClass
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3083	startIndex "{ Class:SmallInteger }"
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3084	stopIndex "{ Class:SmallInteger }" \|
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3085
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3086	items := OrderedCollection new.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3087	myClass := self species.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3088
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3089	startIndex := 1.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3090	done := false.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3091	[done] whileFalse:[
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3092	stopIndex := self indexOfSubCollection:aSeparatorString startingAt:startIndex.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3093	stopIndex == 0 ifTrue:[
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3094	stopIndex := self size.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3095	done := true.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3096	] ifFalse: [
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3097	stopIndex := stopIndex - 1.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3098	].
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3099
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3100	(stopIndex < startIndex) ifTrue: [
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3101	items add:(myClass new:0)
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3102	] ifFalse: [
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3103	items add:(self copyFrom:startIndex to:stopIndex)
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3104	].
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3105	startIndex := stopIndex + (aSeparatorString size) + 1.
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3106	].
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3107	^ items
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3108
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3109	"
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3110	'1::2::3::4::5::' withCRs asCollectionOfSubstringsSeparatedByAll:'::'
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3111	"
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3112	!
20969b5770c9 asCollectionOfSubstringsSeparatedByAll: Claus Gittinger <cg@exept.de> parents: 7318 diff changeset	3113
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3114	asCollectionOfSubstringsSeparatedByAny:aCollectionOfSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3115	"return a collection containing the words (separated by any character
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3116	from aCollectionOfSeparators) of the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3117	This allows breaking up strings using any character as separator."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3118
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3119	\|words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3120	start "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3121	stop "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3122	mySize "{ Class:SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3123
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3124	words := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3125	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3126	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3127	[start <= mySize] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3128	"skip multiple separators"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3129	[aCollectionOfSeparators includes:(self at:start)] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3130	start := start + 1 .
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3131	start > mySize ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3132	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3133	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3134	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3135
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3136	stop := self indexOfAny:aCollectionOfSeparators startingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3137	stop == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3138	words add:(self copyFrom:start to:mySize).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3139	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3140	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3141	words add:(self copyFrom:start to:(stop - 1)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3142	start := stop
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3143	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3144	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3145
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3146	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3147	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:#($:)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3148	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:':'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3149	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:(Array with:$: with:Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3150	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:': '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3151	'h1e2l3l4o' asCollectionOfSubstringsSeparatedByAny:($1 to: $9)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3152	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3153	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3154
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3155	asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3156	"return a collection containing the words (separated by whitespace)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3157	of the receiver. Multiple occurences of whitespace characters will
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3158	be treated like one - i.e. whitespace is skipped."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3159
7797 49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3160	\|words\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3161
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3162	words := OrderedCollection new.
7797 49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3163	self asCollectionOfWordsDo:[:w \| words add:w].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3164	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3165
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3166	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3167	'hello world isnt this nice' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3168	' hello world isnt this nice ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3169	'hello' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3170	'' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3171	' ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3172	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3173	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3174
7797 49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3175	asCollectionOfWordsDo:aBlock
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3176	"evaluate aBlock for each word (separated by whitespace) of the receiver.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3177	Multiple occurences of whitespace characters will be treated like one
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3178	- i.e. whitespace is skipped.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3179	Returns the number of words (i.e. the number of invocations of aBlock)."
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3180
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3181	\|count "{ Class:SmallInteger }"
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3182	start "{ Class:SmallInteger }"
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3183	stop "{ Class:SmallInteger }"
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3184	mySize "{ Class:SmallInteger }"\|
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3185
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3186	count := 0.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3187	start := 1.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3188	mySize := self size.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3189	[start <= mySize] whileTrue:[
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3190	start := self indexOfNonSeparatorStartingAt:start.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3191	start == 0 ifTrue:[
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3192	^ count
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3193	].
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3194	stop := self indexOfSeparatorStartingAt:start.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3195	stop == 0 ifTrue:[
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3196	aBlock value:(self copyFrom:start to:mySize).
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3197	^ count + 1
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3198	].
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3199	aBlock value:(self copyFrom:start to:(stop - 1)).
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3200	start := stop.
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3201	count := count + 1
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3202	].
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3203	^ count
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3204
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3205	"
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3206	'hello world isnt this nice' asCollectionOfWordsDo:[:w \| Transcript showCR:w]
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3207	' hello world isnt this nice ' asCollectionOfWordsDo:[:w \| Transcript showCR:w]
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3208	'hello' asCollectionOfWordsDo:[:w \| Transcript showCR:w]
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3209	'' asCollectionOfWordsDo:[:w \| Transcript showCR:w]
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3210	' ' asCollectionOfWordsDo:[:w \| Transcript showCR:w]
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3211	"
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3212	!
49e53638191f +asCollectionOfWordsDo: Claus Gittinger <cg@exept.de> parents: 7780 diff changeset	3213
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3214	asComposedText
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3215	"ST-80 compatibility
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3216	- ST/X does not (as today) support composedTexts."
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3217
7555 9eaf0819e9c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7482 diff changeset	3218	^ ComposedText fromString:self string
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3219
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3220	"Modified: 27.4.1996 / 13:30:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3221	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3222
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3223	asFilename
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3224	"return a Filename with pathname taken from the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3225
7879 a7a0a7fe9b54 encoding stuff Claus Gittinger <cg@exept.de> parents: 7877 diff changeset	3226	^ Filename named:self "(self asSingleByteStringReplaceInvalidWith:$?)"
1423 d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	3227
d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	3228	"Modified: 20.5.1996 / 09:38:15 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3229	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3230
3060 0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3231	asFixedPoint
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3232	"read a fixedPoint number from the receiver.
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3233	Notice, that errors may occur during the read,
5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3234	so you better setup some signal handler when using this method."
3060 0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3235
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3236	^ FixedPoint readFromString:self
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3237
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3238	"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3239	'0.123' asFixedPoint
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3240	'12345' asFixedPoint
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3241	'(1/5)' asFixedPoint
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3242	'foo' asFixedPoint
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3243	Object errorSignal handle:[:ex \| ex return:0] do:['foo' asFixedPoint]
3060 0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3244	"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3245
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3246	"Modified: / 25.10.1997 / 15:19:00 / cg"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3247	!
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3248
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3249	asFixedPoint:scale
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3250	"read a fixedPoint number with scale number of post-decimal digits
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3251	from the receiver. Scale controls the number of displayed digits,
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3252	not the number of actually valid digits.
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3253	Notice, that errors may occur during the read,
5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3254	so you better setup some signal handler when using this method."
3060 0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3255
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3256	^ (FixedPoint readFromString:self) scale:scale
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3257
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3258	"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3259	'0.123' asFixedPoint:2
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3260	'123456' asFixedPoint:2
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3261	('3.14157' asFixedPoint:1) asFixedPoint:5
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3262	'3.14157' asFixedPoint:2
5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3263	'foo' asFixedPoint:2
3060 0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3264	"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3265
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3266	"Modified: / 25.10.1997 / 15:21:57 / cg"
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3267	!
0faf242e1142 * empty log message * Claus Gittinger <cg@exept.de> parents: 3024 diff changeset	3268
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3269	asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3270	"read a float number from the receiver.
7422 200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3271	Notice, that errors may occur during the read,
200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3272	so you better setup some exception handler when using this method."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3273
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3274	^ (Number readFromString:self) asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3275
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3276	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3277	'0.123' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3278	'12345' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3279	'(1/5)' asFloat
7422 200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3280	Object errorSignal handle:[:ex \| ex return:0] do:['foo' asFloat]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3281	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3282	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3283
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3284	asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3285	"read an integer from the receiver.
7422 200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3286	Notice, that errors may occur during the read,
200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3287	so you better setup some exception handler when using this method."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3288
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3289	^ Integer readFromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3290
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3291	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3292	'12345678901234567890' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3293	'-1234' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3294	'0.123' asInteger <- reader stops at ., returning 0 here
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3295	'0.123' asNumber <- returns what you expect
7422 200486204923 comments Claus Gittinger <cg@exept.de> parents: 7421 diff changeset	3296	Object errorSignal handle:[:ex \| ex return:0] do:['foo' asInteger]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3297	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3298	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3299
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3300	asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3301	"return a copy of myself in lowercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3302
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3303	\|newStr c bitsPerCharacter
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3304	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3305
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3306	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3307	newStr := self species new:mySize.
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3308	bitsPerCharacter := newStr bitsPerCharacter.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3309
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3310	1 to:mySize do:[:i \|
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3311	c := (self at:i) asLowercase.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3312	c bitsPerCharacter > bitsPerCharacter ifTrue:[
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3313	newStr := c stringSpecies fromString:newStr.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3314	].
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3315	newStr at:i put:c
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3316	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3317	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3318
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3319	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3320	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3321	'HelloWorld' asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3322	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3323	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3324
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3325	asLowercaseFirst
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3326	"return a copy of myself where the first character is converted to lowercase."
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3327
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3328	\|newString firstChar firstCharAsLowercase\|
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3329
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3330	firstChar := (self at:1).
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3331	firstCharAsLowercase := firstChar asLowercase.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3332	firstChar == firstCharAsLowercase ifTrue:[ ^ self].
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3333
8037 8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3334	firstCharAsLowercase bitsPerCharacter > self bitsPerCharacter ifTrue:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3335	newString := firstCharAsLowercase stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3336	] ifFalse:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3337	newString := self stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3338	].
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3339	newString at:1 put:firstCharAsLowercase.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3340	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3341
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3342	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3343	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3344	'HelloWorld' asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3345	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3346	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3347
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3348	asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3349	"read a number from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3350	Notice, that (in contrast to ST-80) errors may occur during the read,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3351	so you better setup some signal handler when using this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3352	This may change if ANSI specifies it."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3353
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3354	"/ ST-80 behavior:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3355	"/ ^ Number readFromString:self onError:0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3356
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3357	^ Number readFromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3358
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3359	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3360	'123' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3361	'123.567' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3362	'(5/6)' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3363	'foo' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3364	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asNumber]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3365	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3366	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3367
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3368	asNumberFromFormatString:ignored
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3369	"read a number from the receiver, ignoring any nonDigit characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3370	This is typically used to convert from strings which include
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3371	dollar-signs or millenium digits. However, this method also ignores
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3372	the decimal point (if any) and therefore should be used with care."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3373
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3374	\|tempString\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3375
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3376	tempString := self collect:[:char \| char isDigit].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3377	^ Number readFromString:tempString onError:0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3378
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3379	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3380	'USD 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3381	'DM 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3382	'123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3383	'123.567' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3384	'(5/6)' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3385	'foo' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3386	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3387	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3388
7877 bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3389	asOneByteString
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3390	"return the receiver converted to a 'normal' string.
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3391	Same as asSingleByteString - for compatibility."
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3392
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3393	^ self asSingleByteString
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3394	!
bef56f06d2f8 asOneByteString -> asSingleByteString Claus Gittinger <cg@exept.de> parents: 7876 diff changeset	3395
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3396	asSingleByteString
7940 c5544afea151 comment Claus Gittinger <cg@exept.de> parents: 7932 diff changeset	3397	"return the receiver converted to a 'normal' string.
c5544afea151 comment Claus Gittinger <cg@exept.de> parents: 7932 diff changeset	3398	Raises an error if unrepresentable characters are encountered."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3399
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3400	^ String fromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3401	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3402
7977 d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3403	asSingleByteStringIfPossible
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3404	"if possible, return the receiver converted to a 'normal' string.
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3405	It is only possible, if there are no characters with codePoints above 255 in the receiver."
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3406
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3407	self bitsPerCharacter == 8 ifTrue:[^ self].
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3408	(self contains:[:char \| char asciiValue > 255]) ifFalse:[^ self asSingleByteString].
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3409	^ self
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3410
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3411	"
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3412	'hello' asSingleByteStringIfPossible
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3413	'hello' asUnicodeString asSingleByteStringIfPossible
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3414	"
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3415	!
d6f3255accdd * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	3416
2732 79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3417	asSingleByteStringReplaceInvalidWith:replacementCharacter
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3418	"return the receiver converted to a 'normal' string,
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3419	with invalid characters replaced by replacementCharacter.
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3420	Can be used to convert from 16-bit strings to 8-bit strings
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3421	and replace characters above code-255 with some replacement."
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3422
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3423	\|newString\|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3424
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3425	newString := String new:(self size).
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3426	1 to:self size do:[:idx \|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3427	\|char\|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3428
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3429	char := self at:idx.
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3430	char asciiValue <= 16rFF ifTrue:[
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3431	newString at:idx put:char
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3432	] ifFalse:[
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3433	newString at:idx put:replacementCharacter
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3434	].
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3435	].
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3436	^ newString
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3437
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3438	"Created: 30.6.1997 / 13:02:14 / cg"
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3439	!
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	3440
5843 9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3441	asSoundexCode
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3442	"return a soundex string or nil.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3443	Soundex returns similar codes for similar sounding words, making it a useful
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3444	tool when searching for words where the correct spelling is unknown.
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3445	(read Knuth or search the web if you dont know what a soundex code is)"
5843 9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3446
6643 b2e335f8a863 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 6642 diff changeset	3447	\|s d ch last lch n codes sc\|
5843 9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3448
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3449	s := self readStream.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3450	s skipSeparators.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3451	s atEnd ifTrue:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3452	^ nil
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3453	].
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3454	ch := s next.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3455	ch isLetter ifFalse:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3456	^ nil
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3457	].
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3458	n := 0.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3459
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3460	codes := Dictionary new.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3461	codes at:$b put:$1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3462	codes at:$p put:$1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3463	codes at:$f put:$1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3464	codes at:$v put:$1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3465	codes at:$c put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3466	codes at:$s put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3467	codes at:$k put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3468	codes at:$g put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3469	codes at:$j put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3470	codes at:$q put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3471	codes at:$x put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3472	codes at:$z put:$2.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3473	codes at:$d put:$3.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3474	codes at:$t put:$3.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3475	codes at:$l put:$4.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3476	codes at:$m put:$5.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3477	codes at:$n put:$5.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3478	codes at:$r put:$6.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3479
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3480	d := '' writeStream.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3481	d nextPut:(ch asUppercase).
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3482
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3483	[s atEnd] whileFalse:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3484	ch := s next.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3485	lch := ch asLowercase.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3486	lch = last ifFalse:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3487	last := lch.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3488
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3489	sc := codes at:ch ifAbsent:nil.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3490	sc notNil ifTrue:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3491	n < 3 ifTrue:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3492	d nextPut:sc.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3493	n := n + 1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3494	]
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3495	] ifFalse:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3496	"/ ch isLetter ifFalse:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3497	"/ "/ something else - ignore it
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3498	"/ ] ifTrue:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3499	"/ "/ else its a vowel and we ignore it
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3500	"/ ]
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3501	].
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3502	]
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3503	].
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3504	[ n < 3 ] whileTrue:[
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3505	d nextPut:$0.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3506	n := n + 1.
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3507	].
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3508
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3509	^ d contents
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3510
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3511	"
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3512	'claus' asSoundexCode
5843 9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3513	'clause' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3514	'close' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3515	'smalltalk' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3516	'smaltalk' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3517	'smaltak' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3518	'smaltok' asSoundexCode
7423 5b25b8e82453 comments Claus Gittinger <cg@exept.de> parents: 7422 diff changeset	3519	'smoltok' asSoundexCode
5843 9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3520	'aa' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3521	'by' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3522	'bab' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3523	'bob' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3524	'bop' asSoundexCode
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3525	"
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3526	!
9fe653bcf3e1 soundex added Claus Gittinger <cg@exept.de> parents: 5815 diff changeset	3527
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3528	asString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3529	"return myself - I am a string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3530
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3531	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3532	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3533
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3534	asStringCollection
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3535	"return a collection of lines from myself."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3536
1393 7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3537	^ StringCollection from:self "string"
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3538
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3539	"Modified: 13.5.1996 / 20:36:59 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3540	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3541
1434 a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	3542	asSymbol
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	3543	"return a unique symbol with the name taken from my characters.
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3544	The receiver must be a singleByte-String.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3545	TwoByte- and FourByteSymbols are (currently ?) not allowed."
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3546
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3547	\|str\|
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3548
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3549	str := self string.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3550	str ~~ self ifTrue:[ ^ str asSymbol ].
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3551	^ self asSingleByteString asSymbol
1434 a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	3552	!
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	3553
1435 3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3554	asSymbolIfInterned
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3555	"if a symbol with the receivers characters is already known, return it.
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3556	Otherwise, return nil. This can be used to query for an existing
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3557	symbol and is the same as
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3558	self knownAsSymbol ifTrue:[self asSymbol] ifFalse:[nil]
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3559	but slightly faster, since the symbol lookup operation is only performed once.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3560	The receiver must be a singleByte-String.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	3561	TwoByte- and FourByteSymbols are (currently ?) not allowed."
1435 3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3562
6642 4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3563	\|s\|
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3564
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3565
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3566	s := self string.
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3567	s ~~ self ifTrue:[
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3568	^ s asSymbolIfInterned
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3569	].
4ce854094c6f asSymbolIfInterned avoid recursion failure penk parents: 6528 diff changeset	3570	^ nil.
1435 3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3571
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3572	"Created: 22.5.1996 / 16:37:04 / cg"
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3573	!
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	3574
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3575	asText
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3576	"return a Text-object (collection of lines) from myself."
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3577
7780 ffaeccf9e075 comment Claus Gittinger <cg@exept.de> parents: 7691 diff changeset	3578	"this test allows for small non-gui apps to be built without libbasic2 (where Text is)"
4974 cde2ee5adeb0 checkin from browser Claus Gittinger <cg@exept.de> parents: 4890 diff changeset	3579	Text isNil ifTrue:[^ self].
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3580	^ Text fromString:self
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3581
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3582	"Created: 12.5.1996 / 10:41:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3583	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3584
8027 4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3585	asTitlecase
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3586	"return a version of the receiver, where the first character is converted to titlecase,
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3587	and everything else to lowercase.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3588	See the comment in Character on what titlecase is."
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3589
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3590	\|newStr c bitsPerCharacter
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3591	mySize "{ Class: SmallInteger }" \|
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3592
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3593	mySize := self size.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3594	newStr := self species new:mySize.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3595	bitsPerCharacter := newStr bitsPerCharacter.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3596
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3597	1 to:mySize do:[:i \|
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3598	i == 1 ifTrue:[
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3599	c := (self at:i) asTitlecase.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3600	] ifFalse:[
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3601	c := (self at:i) asLowercase.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3602	].
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3603	c bitsPerCharacter > bitsPerCharacter ifTrue:[
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3604	newStr := c stringSpecies fromString:newStr.
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3605	].
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3606	newStr at:i put:c
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3607	].
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3608	^ newStr
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3609
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3610	"
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3611	'helloWorld' asTitlecase
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3612	'HelloWorld' asTitlecase
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3613	'HELLOWORLD' asTitlecase
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3614	'helloworld' asTitlecase
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3615	"
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3616	!
4536f92bdbb4 asTitlecase Claus Gittinger <cg@exept.de> parents: 8026 diff changeset	3617
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3618	asTitlecaseFirst
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3619	"return a version of the receiver, where the first character is converted to titlecase.
8024 93db40068fba comment Claus Gittinger <cg@exept.de> parents: 8023 diff changeset	3620	Titlecase is much like uppercase for most characters, with the exception of some combined
93db40068fba comment Claus Gittinger <cg@exept.de> parents: 8023 diff changeset	3621	(2-character glyphs), which consist of an upper- and lower-case characters.
93db40068fba comment Claus Gittinger <cg@exept.de> parents: 8023 diff changeset	3622	If the first character is already titlecase, or there is no titlecasepercase for it, return the
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3623	receiver."
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3624
8026 96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3625	"
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3626	For example, in Unicode, character U+01F3 is LATIN SMALL LETTER DZ.
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3627	(Let us write this compound character using ASCII as 'dz'.)
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3628	This character uppercases to character U+01F1, LATIN CAPITAL LETTER DZ.
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3629	(Which is basically 'DZ'.)
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3630	But it titlecases to to character U+01F2, LATIN CAPITAL LETTER D WITH SMALL LETTER Z.
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3631	(Which we can write 'Dz'.)
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3632
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3633	character uppercase titlecase
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3634	--------- --------- ---------
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3635	dz DZ Dz
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3636	"
96cc838078ba comment Claus Gittinger <cg@exept.de> parents: 8025 diff changeset	3637
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3638	\|newString firstChar firstCharAsTitlecase\|
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3639
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3640	firstChar := (self at:1).
8025 04d9b6ef3012 comments Claus Gittinger <cg@exept.de> parents: 8024 diff changeset	3641	firstCharAsTitlecase := firstChar asTitlecase.
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3642	firstChar == firstCharAsTitlecase ifTrue:[ ^ self].
8037 8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3643
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3644	firstCharAsTitlecase bitsPerCharacter > self bitsPerCharacter ifTrue:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3645	newString := firstCharAsTitlecase stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3646	] ifFalse:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3647	newString := self stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3648	].
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3649	newString at:1 put:firstCharAsTitlecase.
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3650	^ newString
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3651
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3652	"
8025 04d9b6ef3012 comments Claus Gittinger <cg@exept.de> parents: 8024 diff changeset	3653	'helloWorld' asTitlecaseFirst
8023 c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3654	'HelloWorld' asTitlecaseFirst
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3655	"
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3656	!
c991d56bbaec +asTitlecaseFirst Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	3657
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3658	asTwoByteString
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3659	"return the receiver converted to a two-byte string.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3660	Will be obsolete soon."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3661
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3662	^ TwoByteString fromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3663	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3664
5776 7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3665	asURL
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3666	"return an URL-object from myself."
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3667
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3668	^ URL fromString:self
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3669
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3670	"
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3671	'http://www.exept.de:80/index.html' asURL host
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3672	'http://www.exept.de:80/index.html' asURL port
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3673	'http://www.exept.de:80/index.html' asURL method
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3674	'http://www.exept.de:80/index.html' asURL path
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3675	"
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3676	!
7169165b44f2 added #asURL Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	3677
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3678	asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3679	"return a copy of myself in uppercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3680
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3681	\|newStr c bitsPerCharacter
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3682	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3683
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3684	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3685	newStr := self species new:mySize.
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3686	bitsPerCharacter := newStr bitsPerCharacter.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3687
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3688	1 to:mySize do:[:i \|
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3689	c := (self at:i) asUppercase.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3690	c bitsPerCharacter > bitsPerCharacter ifTrue:[
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3691	newStr := c stringSpecies fromString:newStr.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3692	].
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3693	newStr at:i put:c
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3694	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3695	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3696
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3697	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3698	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3699	'helloWorld' asUppercaseFirst
8083 e3423079cee1 checkin from browser Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	3700	(Character value:16rB5) asString asUppercase -- needs 16 bits !!
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3701	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3702	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3703
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3704	asUppercaseFirst
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3705	"return a version of the receiver, where the first character is converted to uppercase.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3706	If the first character is already uppercase, or there is no uppercase for it, return the
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3707	receiver."
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3708
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3709	\|newString firstChar firstCharAsUppercase\|
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3710
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3711	firstChar := (self at:1).
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3712	firstCharAsUppercase := firstChar asUppercase.
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3713	firstChar == firstCharAsUppercase ifTrue:[ ^ self].
6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3714
8037 8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3715	firstCharAsUppercase bitsPerCharacter > self bitsPerCharacter ifTrue:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3716	newString := firstCharAsUppercase stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3717	] ifFalse:[
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3718	newString := self stringSpecies fromString:self.
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	3719	].
8003 6e690f4b79f1 asLowercase/asUppercase and friends care for 16-bit chars Claus Gittinger <cg@exept.de> parents: 7995 diff changeset	3720	newString at:1 put:firstCharAsUppercase.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3721	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3722
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3723	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3724	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3725	'helloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3726	'HelloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3727	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3728	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3729
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3730	string
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3731	"return the receiver - for ST-80 compatibility"
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3732
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3733	^ self
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3734
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	3735	"Modified: 27.4.1996 / 13:29:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3736	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3737
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3738	tokensBasedOn:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3739	"this is an ST-80 alias for the ST/X method
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3740	asCollectionOfSubstringsSeparatedBy:"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3741
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3742	^ self asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3743
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3744	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3745	'hello:world:isnt:this nice' tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3746	'foo,bar,baz' tokensBasedOn:$,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3747	'/etc/passwd' asFilename readStream nextLine tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3748	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3749	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3750
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3751	!CharacterArray methodsFor:'copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3752
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3753	, aStringOrCharacter
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3754	"redefined to allow characters and mixed strings to be appended.
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3755	This is nonStandard, but convenient"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3756
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3757	\|myWidth otherWidth\|
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3758
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3759	aStringOrCharacter isCharacter ifTrue:[
6965 c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3760	^ self copyWith:aStringOrCharacter
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3761	].
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3762	aStringOrCharacter isText ifTrue:[
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3763	^ aStringOrCharacter concatenateFromString:self
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3764	].
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3765	aStringOrCharacter isString ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3766	(otherWidth := aStringOrCharacter bitsPerCharacter) ~~ (myWidth := self bitsPerCharacter) ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3767	otherWidth > myWidth ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3768	^ (aStringOrCharacter species fromString:self) , aStringOrCharacter
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3769	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3770	^ self , (self species fromString:aStringOrCharacter)
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3771	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3772	].
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3773	^ super , aStringOrCharacter
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3774
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3775	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3776	'hello' , $1
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3777	'hello' , '1'
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	3778	'hello' , (' world' asText allBold)
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3779	'hello' , (JISEncodedString fromString:' world')
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3780	(JISEncodedString fromString:'hello') , ' world'
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	3781
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	3782	Transcript showCR:
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	3783	(Text string:'hello' emphasis:#italic) , (Text string:' world' emphasis:#bold)
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3784	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3785
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3786	"Modified: 28.6.1997 / 00:13:17 / cg"
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3787	!
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	3788
6965 c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3789	,, aString
7020 f51001115a54 comment penk parents: 6998 diff changeset	3790	"concatenate with a newLine in between"
6965 c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3791
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3792	^ (self copyWith:Character cr) , aString
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3793
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3794	"
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3795	hello ,, world
7020 f51001115a54 comment penk parents: 6998 diff changeset	3796	'hello' ,, 'world'
6965 c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3797	"
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3798	!
c40f18fdb4bb New; #,, Stefan Vogel <sv@exept.de> parents: 6948 diff changeset	3799
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3800	concatenate:string1 and:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3801	"return the concatenation of myself and the arguments, string1 and string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3802	This is equivalent to self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3803	- generated by compiler when such a construct is detected and the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3804	is known to be a string."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3805
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3806	^ self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3807	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3808
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3809	concatenate:string1 and:string2 and:string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3810	"return the concatenation of myself and the string arguments.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3811	This is equivalent to self , string1 , string2 , string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3812	- generated by compiler when such a construct is detected and the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3813	is known to be a string."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3814
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3815	^ self , string1 , string2 , string3
8040 f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3816	!
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3817
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3818	copyWith:aCharacter
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3819	"return a new string containing the receivers characters
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3820	and the single new character, aCharacter.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3821	This is different from concatentation, which expects another string
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3822	as argument, but equivalent to copy-and-addLast.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3823	The code below cares for different width characters
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3824	(i.e. when appending a 16bit char to an 8bit string)"
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3825
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3826	\|sz newString\|
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3827
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3828	aCharacter bitsPerCharacter > self bitsPerCharacter ifTrue:[
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3829	sz := self size.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3830	newString := aCharacter stringSpecies new:sz + 1.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3831	newString replaceFrom:1 to:sz with:self startingAt:1.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3832	newString at:sz+1 put:aCharacter.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3833	^ newString.
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3834	].
f10cca439066 copyWith for mixed-width string/character Claus Gittinger <cg@exept.de> parents: 8037 diff changeset	3835	^ super copyWith:aCharacter
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3836	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3837
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3838	!CharacterArray methodsFor:'displaying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3839
2762 59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3840	displayOn:aGC x:x y:y from:start to:stop
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3841	"display the receiver on a GC"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3842
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3843	"q&d hack"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3844
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3845	(self copyFrom:start to:stop) displayOn:aGC x:x y:y opaque:false
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3846
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3847	"Modified: 12.5.1996 / 12:49:33 / cg"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3848	!
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3849
7082 675482728016 * empty log message * Claus Gittinger <cg@exept.de> parents: 7022 diff changeset	3850	displayOn:aGc x:x y:y opaque:opaque
2762 59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3851	"display the receiver in a graphicsContext - this method allows
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3852	strings to be used like DisplayObjects."
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3853
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3854	\|s\|
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3855
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3856	s := self string.
7082 675482728016 * empty log message * Claus Gittinger <cg@exept.de> parents: 7022 diff changeset	3857	opaque ifTrue:[
2762 59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3858	aGc displayOpaqueString:s x:x y:y.
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3859	] ifFalse:[
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3860	aGc displayString:s x:x y:y.
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3861	].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3862
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3863	"Modified: 11.5.1996 / 14:42:48 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3864	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3865
2762 59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3866	displayOpaqueOn:aGC x:x y:y from:start to:stop
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3867	"display the receiver on a GC"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3868
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3869	"q&d hack"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3870
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3871	(self copyFrom:start to:stop) displayOn:aGC x:x y:y opaque:true
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3872
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3873	"Created: 12.5.1996 / 12:29:37 / cg"
59c71fa02ba2 displayOn / displayOpaqueOn fixed ca parents: 2760 diff changeset	3874	"Modified: 12.5.1996 / 12:49:19 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3875	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3876
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3877	!CharacterArray methodsFor:'emphasis'!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3878
5732 7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3879	allBold
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3880	"return a test object representing the receiver, but all boldified"
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3881
7780 ffaeccf9e075 comment Claus Gittinger <cg@exept.de> parents: 7691 diff changeset	3882	"this test allows for small non-gui apps to be built without libbasic2 (where Text is)"
6187 d4788adb7a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 6184 diff changeset	3883	Text isNil ifTrue:[^ self].
5732 7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3884	^ self asText allBold
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3885
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3886	"
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3887	Transcript showCR:'hello' asText allBold
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3888	Transcript showCR:'hello' allBold
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3889	"
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3890	!
7b5effa6816e allBold added Claus Gittinger <cg@exept.de> parents: 5714 diff changeset	3891
5898 7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3892	allItalic
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3893	"return a test object representing the receiver, but all in italic"
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3894
7780 ffaeccf9e075 comment Claus Gittinger <cg@exept.de> parents: 7691 diff changeset	3895	"this test allows for small non-gui apps to be built without libbasic2 (where Text is)"
6187 d4788adb7a8e * empty log message * Claus Gittinger <cg@exept.de> parents: 6184 diff changeset	3896	Text isNil ifTrue:[^ self].
5898 7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3897	^ self asText allItalic
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3898
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3899	"
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3900	Transcript showCR:'hello' asText allItalic
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3901	Transcript showCR:'hello' allItalic
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3902	"
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3903	!
7bc4f1593b4e allItalic now understood by CharacterArray Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	3904
6228 3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3905	colorizeAllWith:aColor
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3906	^ self asText colorizeAllWith:aColor
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3907
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3908	"
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3909	Transcript showCR:('hello' colorizeAllWith:Color red)
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3910	Transcript showCR:('world' colorizeAllWith:Color green darkened)
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3911	"
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3912	!
3b39832651c9 added #colorizeAllWith: Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	3913
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3914	emphasis
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3915	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3916	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3917	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3918
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3919	^ RunArray new:self size withAll:nil
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3920
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3921	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3922	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3923
6655 08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3924	emphasis:emphasisCollection
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3925	^ self asText emphasis:emphasisCollection
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3926
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3927	"
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3928	Transcript showCR:('hello' emphasis:#(bold bold bold bold bold))
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3929	"
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3930	!
08e098ce6534 +emphasis: Michael Beyl <mb@exept.de> parents: 6653 diff changeset	3931
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3932	emphasisAt:characterIndex
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3933	"return the emphasis at some index.
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3934	Since characterArrays do not hold any emphasis information,
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3935	nil (no emphasis) is returned here."
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3936
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3937	^ nil
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3938
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3939	"Created: 11.5.1996 / 14:13:27 / cg"
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3940	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3941
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3942	emphasisCollection
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3943	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3944	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3945	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3946
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3947	^ RunArray new:(self size)
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3948
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3949	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	3950	"Modified: 14.5.1996 / 15:02:29 / cg"
3404 5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3951	!
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3952
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3953	emphasizeAllWith:emphasis
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3954	^ self asText emphasizeAllWith:emphasis
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3955
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3956	"
5a9ab54bcbd5 checkin from browser Claus Gittinger <cg@exept.de> parents: 3337 diff changeset	3957	Transcript showCR:('hello' emphasizeAllWith:#bold)
3599 fea09a812f55 comment Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	3958	Transcript showCR:('hello' emphasizeAllWith:(#color -> Color red))
fea09a812f55 comment Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	3959	Transcript showCR:('hello' emphasizeAllWith:(#color -> Color red))
fea09a812f55 comment Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	3960	"
fea09a812f55 comment Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	3961
fea09a812f55 comment Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	3962	"Modified: / 17.6.1998 / 12:51:44 / cg"
5097 4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3963	!
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3964
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3965	makeSelectorBoldIn:aClass
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3966	"the receiver represents some source code for
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3967	a method in aClass.
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3968	Change myself to boldify the selector.
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3969	Not yet implemented (could easily use the syntaxHighlighter
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3970	for this ...)"
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3971
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3972	^ self
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3973
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3974	"Modified: / 13.12.1999 / 21:49:11 / cg"
4aa597a8a724 * empty log message * Claus Gittinger <cg@exept.de> parents: 4989 diff changeset	3975	"Created: / 13.12.1999 / 21:49:24 / cg"
6653 2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	3976	!
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	3977
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	3978	withoutEmphasis:emphasisToRemove
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	3979	^ self
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3980	! !
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3981
7265 3b007758ff5b method category rename Claus Gittinger <cg@exept.de> parents: 7261 diff changeset	3982	!CharacterArray methodsFor:'encoding & decoding'!
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3983
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3984	decodeFrom:encodingSymbol
7899 7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	3985	"SOON OBSOLETED by CharacterEncoder
7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	3986	given the receiver encoded as described by encodingSymbol,
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3987	convert it into internal ST/X encoding and return a corresponding CharacterArray.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3988	Currently, only a few encodings are supported
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3989	(and those are untested/incomplete):
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3990	#euc
997 6c7f1815ed02 more encoding & decoding support Claus Gittinger <cg@exept.de> parents: 991 diff changeset	3991	#jis7
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	3992	#sjis
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3993	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3994	#msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3995	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3996
7950 1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	3997	\|newString table myEncoding encoder\|
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	3998
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	3999	encodingSymbol isNil ifTrue:[^ self].
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4000	myEncoding := self encoding.
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4001	encodingSymbol == myEncoding ifTrue:[^ self].
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4002
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4003	"/ all of the following is soon obsoleted by...
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4004	encoder := CharacterEncoder encoderToEncodeFrom:(self encoding) into:encodingSymbol.
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4005	encoder notNil ifTrue:[
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4006	^ encoder decodeString:self.
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4007	].
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4008
1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4009	"/ the following is going to be obsoleted..
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4010	encodingSymbol == #'x-jis7' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4011	^ JISEncodedString decodeFromJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4012	].
2758 31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	4013	encodingSymbol == #'x-iso2022-jp' ifTrue:[
31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	4014	^ JISEncodedString decodeFromJIS7:self
31e822490f77 checkin from browser Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	4015	].
2759 1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4016	encodingSymbol == #'iso2022-jp' ifTrue:[
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4017	^ JISEncodedString decodeFromJIS7:self
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4018	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4019	encodingSymbol == #'x-sjis' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4020	^ JISEncodedString decodeFromSJIS:self
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4021	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4022	encodingSymbol == #'x-shift-jis' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4023	^ JISEncodedString decodeFromSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4024	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4025	encodingSymbol == #'x-euc-jp' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4026	^ JISEncodedString decodeFromEUC:self
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4027	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4028	encodingSymbol == #big5 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4029	^ BIG5EncodedString decodeFromBIG5:self
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4030	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4031	encodingSymbol == #gb2312 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4032	^ GBEncodedString decodeFromGB:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4033	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4034	encodingSymbol == #'x-euc-gb' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4035	^ GBEncodedString decodeFromEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4036	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4037	encodingSymbol == #'x-euc-kr' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4038	^ KSCEncodedString decodeFromEUC:self
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4039	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4040
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4041	"/ soon obsolete ...
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4042	encodingSymbol == #jis7 ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4043	^ JISEncodedString decodeFromJIS7:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4044	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4045	encodingSymbol == #sjis ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4046	^ JISEncodedString decodeFromSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4047	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4048	encodingSymbol == #euc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4049	^ JISEncodedString decodeFromEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4050	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4051	encodingSymbol == #gb ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4052	^ GBEncodedString decodeFromGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4053	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4054	encodingSymbol == #ksc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4055	^ KSCEncodedString decodeFromKSC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4056	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4057
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4058	table := self class decoderTableFor:encodingSymbol.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4059	table isNil ifTrue:[^ self].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4060
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4061	newString := self class new:self size.
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4062	newString replaceFrom:self translateBy:table.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4063	newString = self ifTrue:[^ self].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4064	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4065
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4066	"Created: 22.2.1996 / 15:06:49 / cg"
2759 1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4067	"Modified: 16.7.1997 / 13:45:33 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4068	!
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4069
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4070	encodeForDisplayInto:encodingSymbol
7899 7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4071	"SOON OBSOLETED by CharacterEncoder
7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4072	given the receiver in internal ST/X encoding,
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4073	convert it into the format as described by encodingSymbol
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4074	for display.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4075	The receiver may contain roman characters in 0..255, which
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4076	are translated according to the encodings roman translation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4077	For example: in JIS, roman $a is found at 16r2361.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4078	"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4079
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4080	\|newString table\|
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4081
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4082	encodingSymbol isNil ifTrue:[^ self].
7968 e3b657ad9ddf * empty log message * Claus Gittinger <cg@exept.de> parents: 7959 diff changeset	4083	encodingSymbol = #'iso10646-1' ifTrue:[^ self].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4084
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4085	"/ notice: this method may not be moved to
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4086	"/ concrete TwoByte classes; it is also invoked
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4087	"/ to convert singleByte strings ...
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4088
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4089	(encodingSymbol startsWith:'jis') ifTrue:[
7918 7cf890e71c24 some encoding stuff moved to CharacterEncoder Claus Gittinger <cg@exept.de> parents: 7899 diff changeset	4090	(encodingSymbol startsWith:'jisx0201') ifTrue:[^ self].
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4091	newString := JISEncodedString encodeRomans:self.
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4092
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4093	"/ jisx0208.1983 has no half-width katakana
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4094	(encodingSymbol startsWith:'jisx0208.1983') ifTrue:[
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4095	newString := JISEncodedString encodeHalfWidthKatakana:newString.
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4096	].
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4097	^ newString
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4098	].
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4099
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4100	(encodingSymbol startsWith:'big5') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4101	^ BIG5EncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4102	].
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4103
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4104	(encodingSymbol startsWith:'gb') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4105	^ GBEncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4106	].
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4107
3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4108	(encodingSymbol startsWith:'ksc') ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4109	^ KSCEncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4110	].
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4111
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4112	(encodingSymbol startsWith:'uni') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4113	^ UnicodeString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4114	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4115
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4116	table := self class encoderTableFor:encodingSymbol.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4117	table isNil ifTrue:[^ self].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4118
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4119	newString := self class new:self size.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4120	newString replaceFrom:self translateBy:table.
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4121	newString = self ifTrue:[^ self].
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4122	^ newString
8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4123
2742 3add77872fea care for halfWidth kanakana characters Claus Gittinger <cg@exept.de> parents: 2740 diff changeset	4124	"Modified: 2.7.1997 / 15:02:56 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4125	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4126
7899 7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4127	encodeFrom:oldEncoding into:newEncoding
7968 e3b657ad9ddf * empty log message * Claus Gittinger <cg@exept.de> parents: 7959 diff changeset	4128	^ CharacterEncoder encodeString:self from:oldEncoding into:newEncoding
7899 7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4129	!
7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4130
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4131	encodeInto:encodingSymbol
7899 7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4132	"SOON OBSOLETED by CharacterEncoder
7577df77ba95 character encodings - first attempt Claus Gittinger <cg@exept.de> parents: 7882 diff changeset	4133	given the receiver in internal ST/X encoding,
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4134	convert it into the format as described by encodingSymbol
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4135	and return a corresponding CharacterArray.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4136	Currently, only a few encodings are supported
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4137	(and those are untested/incomplete):
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4138	#x-euc-jp
2760 715d662449ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4139	#x-jis7 (== iso2022-jp)
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4140	#x-sjis
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4141	#x-shift-jis
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4142	#big5
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4143	#gb
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4144	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4145	#msdos
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4146	#next
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4147	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4148
7945 d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4149	\|newString table myEncoding encoder\|
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4150
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	4151	"/ self encoding storeString print. ' -> ' print. encodingSymbol storeString printNL.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4152
1028 234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	4153	encodingSymbol isNil ifTrue:[^ self].
7945 d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4154	myEncoding := self encoding.
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4155	encodingSymbol == myEncoding ifTrue:[^ self].
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4156
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4157	"/ all of the following is soon obsoleted by...
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4158	encoder := CharacterEncoder encoderToEncodeFrom:(self encoding) into:encodingSymbol.
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4159	encoder notNil ifTrue:[
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4160	^ encoder encodeString:self.
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4161	].
1028 234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	4162
7950 1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4163	"/ the following is going to be obsoleted..
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4164	encodingSymbol == #'x-jis7' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4165	^ JISEncodedString encodeIntoJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4166	].
2759 1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4167	encodingSymbol == #'x-iso2022-jp' ifTrue:[
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4168	^ JISEncodedString encodeIntoJIS7:self
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4169	].
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4170	encodingSymbol == #'iso2022-jp' ifTrue:[
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4171	^ JISEncodedString encodeIntoJIS7:self
1fbcf236b4ff checkin from browser Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	4172	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4173	encodingSymbol == #'x-sjis' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4174	^ JISEncodedString encodeIntoSJIS:self
1013 0e54ddc990cb more 16bit & encoding support Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	4175	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4176	encodingSymbol == #'x-shift-jis' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4177	^ JISEncodedString encodeIntoSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4178	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4179	encodingSymbol == #'x-euc-jp' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4180	^ JISEncodedString encodeIntoEUC:self
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4181	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4182	encodingSymbol == #big5 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4183	^ BIG5EncodedString encodeIntoBIG5:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4184	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4185	encodingSymbol == #gb2312 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4186	^ GBEncodedString encodeIntoGB:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4187	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4188	encodingSymbol == #'x-euc-gb' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4189	^ GBEncodedString encodeIntoGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4190	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4191	encodingSymbol == #'x-euc-kr' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4192	^ KSCEncodedString encodeIntoKSC:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4193	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	4194
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4195	"/ to be obsoleted ...
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4196	encodingSymbol == #jis7 ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4197	^ JISEncodedString encodeIntoJIS7:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4198	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4199	encodingSymbol == #sjis ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4200	^ JISEncodedString encodeIntoSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4201	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4202	encodingSymbol == #euc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4203	^ JISEncodedString encodeIntoEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4204	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4205	encodingSymbol == #gb ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4206	^ GBEncodedString encodeIntoGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4207	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4208	encodingSymbol == #ksc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4209	^ KSCEncodedString encodeIntoKSC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4210	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	4211
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4212	table := self class encoderTableFor:encodingSymbol.
7945 d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4213	table isNil ifTrue:[
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4214	^ self
d5df0089605f * empty log message * Claus Gittinger <cg@exept.de> parents: 7940 diff changeset	4215	].
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4216
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4217	newString := self class new:self size.
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4218	newString replaceFrom:self translateBy:table.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4219	newString = self ifTrue:[^ self].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4220	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4221
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4222	"Created: 22.2.1996 / 15:07:31 / cg"
2760 715d662449ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4223	"Modified: 16.7.1997 / 13:56:21 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4224	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4225
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4226	encodeOn:anEncoder with:aParameter
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4227
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4228	anEncoder encodeString:self with:aParameter
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4229
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4230	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4231
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4232	replaceFrom:aString decode:encoding
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4233	"this is an experimental interface - unfinished"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4234
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4235	^ self replaceFrom:aString translateBy:(self class decoderTableFor:encoding)
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4236
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4237	"Created: 20.10.1995 / 23:00:09 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4238	"Modified: 22.2.1996 / 16:08:26 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4239	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4240
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4241	replaceFrom:aString encode:encoding
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4242	"this is an experimental interface - unfinished"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4243
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4244	^ self replaceFrom:aString translateBy:(self class encoderTableFor:encoding)
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4245
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4246	"Modified: 20.10.1995 / 23:08:16 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4247	"Created: 22.2.1996 / 16:08:34 / cg"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4248	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4249
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4250	replaceFrom:aString translateBy:encodingTable
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4251	"replace the receivers characters by translations coming from
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	4252	an encoding table."
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4253
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4254	\|mySize "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4255	maxCode "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4256	char
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4257	oldCode "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4258	newCode\|
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	4259
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4260	self replaceFrom:1 with:aString.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4261	encodingTable isNil ifTrue:[^ self].
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4262
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4263	maxCode := encodingTable size.
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4264	mySize := self size.
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4265
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4266	1 to:mySize do:[:index \|
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4267	char := aString at:index.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4268	oldCode := char asciiValue.
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	4269	oldCode >= maxCode ifFalse:[
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	4270	newCode := encodingTable at:(oldCode + 1).
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	4271	newCode ~~ oldCode ifTrue:[
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	4272	self at:index put:(Character value:newCode)
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	4273	]
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4274	]
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4275	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4276
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4277	"Created: 22.2.1996 / 16:07:26 / cg"
2740 8649f17f9148 added support for hp's non-iso font encodings Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	4278	"Modified: 1.7.1997 / 17:18:06 / cg"
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4279	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4280
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4281	rot13
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4282	"Usenet: from `rotate alphabet 13 places']
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4283	The simple Caesar-cypher encryption that replaces each English
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4284	letter with the one 13 places forward or back along the alphabet,
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4285	so that 'The butler did it!!' becomes 'Gur ohgyre qvq vg!!'
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4286	Most Usenet news reading and posting programs include a rot13 feature.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4287	It is used to enclose the text in a sealed wrapper that the reader must choose
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4288	to open -- e.g., for posting things that might offend some readers, or spoilers.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4289	A major advantage of rot13 over rot(N) for other N is that it
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4290	is self-inverse, so the same code can be used for encoding and decoding."
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4291
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4292	^ self species
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4293	streamContents:[:aStream \|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4294	self do:[:char \|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4295	aStream nextPut:char rot13 ]]
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4296
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4297	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4298	'hello world' rot13
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4299	'hello world' rot13 rot13
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4300	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4301	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4302
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4303	utf8Decoded
7950 1a64875be502 * empty log message * Claus Gittinger <cg@exept.de> parents: 7945 diff changeset	4304	"Interpreting myself as an UTF-8 representation, decode and return the decoded string."
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4305
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4306	\|in out is16Bit c\|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4307
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4308	is16Bit := false.
7685 535a69a7cd69 String new -> uninitializedNew: / basicNew: Claus Gittinger <cg@exept.de> parents: 7643 diff changeset	4309	out := (String uninitializedNew:self size) writeStream.
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4310	in := self readStream.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4311	[in atEnd] whileFalse:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4312	c := Character utf8DecodeFrom:in.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4313	is16Bit ifFalse:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4314	c asciiValue > 16rFF ifTrue:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4315	out := WriteStream with:(UnicodeString fromString:out contents).
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4316	is16Bit := true.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4317	].
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4318	].
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4319	out nextPut:c.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4320	].
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4321	^ out contents
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4322
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4323	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4324	#[16rC8 16rA0] asString utf8Decoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4325	(Character value:16r220) utf8Encoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4326	(Character value:16r220) utf8Encoded utf8Decoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4327
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4328	(Character value:16r800) utf8Encoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4329	(Character value:16r220) utf8Encoded utf8Decoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4330	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4331
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4332	"test:
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4333
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4334	\|utf8Encoding original readBack\|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4335
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4336	1 to:16rFFFF do:[:ascii \|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4337	original := (Character value:ascii) asString.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4338	utf8Encoding := original utf8Encoded.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4339	readBack := utf8Encoding utf8Decoded.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4340	readBack = original ifFalse:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4341	self halt
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4342	]
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4343	]
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4344	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4345	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4346
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4347	utf8DecodedWithTwoByteCharactersReplacedBy:replacementCharacter
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4348	"Interpreting myself as an UTF-8 representation, decode and return
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4349	the decoded string. Suppress all 2-byte (above 16rFF) characters,
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4350	and replace them with replacementCharacter"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4351
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4352	\|in out c\|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4353
7685 535a69a7cd69 String new -> uninitializedNew: / basicNew: Claus Gittinger <cg@exept.de> parents: 7643 diff changeset	4354	out := (String uninitializedNew:self size) writeStream.
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4355	in := self readStream.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4356	[in atEnd] whileFalse:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4357	c := Character utf8DecodeFrom:in.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4358	c asciiValue > 16rFF ifTrue:[
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4359	c := replacementCharacter
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4360	].
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4361	out nextPut:c.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4362	].
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4363	^ out contents
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4364
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4365	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4366	(Character value:16r220) utf8Encoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4367	utf8DecodedWithTwoByteCharactersReplacedBy:(Character space)
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4368	"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4369	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4370
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4371	utf8Encoded
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4372	"Return my UTF-8 representation as a new String"
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4373
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4374	\|s\|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4375
7685 535a69a7cd69 String new -> uninitializedNew: / basicNew: Claus Gittinger <cg@exept.de> parents: 7643 diff changeset	4376	s := (String uninitializedNew:self size) writeStream.
6835 bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4377	self utf8EncodedOn:s.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4378	^ s contents
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4379	!
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4380
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4381	utf8EncodedOn:aStream
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4382	"append my UTF-8 representation to the argument, aStream."
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4383
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4384
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4385	self do:[:c\|
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4386	c utf8EncodedOn:aStream.
bdb2cb03200c added utf8Decode with 8-bit chars only Claus Gittinger <cg@exept.de> parents: 6834 diff changeset	4387	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4388	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	4389
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4390	!CharacterArray methodsFor:'padded copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4391
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4392	centerPaddedTo:newSize
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4393	"return a new string consisting of the receivers characters,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4394	plus spaces up to length and center the receivers characters in
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4395	the resulting string.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4396	If the receivers size is equal or greater than the length argument,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4397	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4398
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4399	^ self centerPaddedTo:newSize with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4400
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4401	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4402	'foo' centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4403	123 printString centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4404	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4405
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4406	"Created: 25.11.1995 / 10:53:57 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4407	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4408
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4409	centerPaddedTo:size with:padCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4410	"return a new string of length size, which contains the receiver
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4411	centered (i.e. padded on both sides).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4412	Characters are filled with padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4413	If the receivers size is equal or greater than the length argument,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4414	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4415
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4416	\|len s\|
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4417
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4418	len := self size.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4419	(len < size) ifTrue:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4420	s := self species new:size withAll:padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4421	s replaceFrom:(size - len) // 2 + 1 with:self.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4422	^ s
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4423	]
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4424
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4425	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4426	'foo' centerPaddedTo:11 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4427	'fooBar' centerPaddedTo:5 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4428	123 printString centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4429	(' ' , 123 printString) centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4430	(Float pi printString) centerPaddedTo:15 with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4431	(Float pi printString) centerPaddedTo:15 with:$-
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4432	(' ' , Float pi class name) centerPaddedTo:15 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4433	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4434	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4435
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4436	decimalPaddedTo:size and:afterPeriod at:decimalCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4437	"return a new string of overall length size, which contains the receiver
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4438	aligned at the decimal-period column and afterPeriod characters to the right
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4439	of the period. The periodCharacter is passed as arguments (allowing for US and European formats
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4440	to be padded).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4441	If the receivers size is equal or greater than the length argument,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4442	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4443	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4444
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4445	^ self
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4446	decimalPaddedTo:size
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4447	and:afterPeriod
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4448	at:decimalCharacter
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4449	withLeft:(Character space)
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4450	right:$0
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4451
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4452	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4453	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4454	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4455	'123.' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4456	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.100'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4457	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.1 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4458	'123.123' decimalPaddedTo:10 and:3 at:$. -> ' 123.123'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4459	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4460
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4461	"Created: 23.12.1995 / 13:11:52 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4462	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4463
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4464	decimalPaddedTo:size and:afterPeriod at:decimalCharacter withLeft:leftPadChar right:rightPadChar
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4465	"return a new string of overall length size, which contains the receiver
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4466	aligned at the decimal-period column and afterPeriod characters to the right
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4467	of the period.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4468	Characters on the left are filled with leftPadChar.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4469	If rightPadChar is nil, characters on the right are filled with leftPadCharacter too;
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4470	otherwise, if missing, a decimal point is added and right characters filled with this.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4471	If the receivers size is equal or greater than the length argument,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4472	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4473	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4474
5230 655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4475	\|s idx n rest\|
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4476
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4477	idx := self indexOf:decimalCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4478	idx == 0 ifTrue:[
5230 655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4479	"/
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4480	"/ no decimal point found; adjust string to the left of the period column
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4481	"/
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4482	rightPadChar isNil ifTrue:[
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4483	s := self , (self species new:afterPeriod + 1 withAll:leftPadChar)
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4484	] ifFalse:[
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4485	s:= self , decimalCharacter asString , (self species new:afterPeriod withAll:rightPadChar).
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4486	].
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4487	] ifFalse:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4488
5230 655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4489	"/ the number of after-decimalPoint characters
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4490	n := self size - idx.
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4491	rest := afterPeriod - n.
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4492	rest > 0 ifTrue:[
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4493	s := (self species new:rest withAll:(rightPadChar ? leftPadChar)).
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4494	] ifFalse:[
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4495	s := ''
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4496	].
655c21ffe6cc care for negative size of rest-string when decimalPadding Claus Gittinger <cg@exept.de> parents: 5221 diff changeset	4497	s := self , s.
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4498	].
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4499
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4500	^ s leftPaddedTo:size with:leftPadChar
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4501
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4502	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4503	'123' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:nil -> ' 123 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4504	'123' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:$0 -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4505	'123.' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:$0 -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4506	'123.1' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:$0 -> ' 123.100'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4507	'123.1' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:nil -> ' 123.1 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4508	'123.123' decimalPaddedTo:10 and:3 at:$. withLeft:(Character space) right:$0 -> ' 123.123'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4509	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4510
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4511	"Modified: 23.12.1995 / 13:08:18 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4512	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	4513
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4514	leftPaddedTo:size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4515	"return a new string of length size, which contains the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4516	right-adjusted (i.e. padded on the left).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4517	Characters on the left are filled with spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4518	If the receivers size is equal or greater than the length argument,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4519	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4520
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4521	^ self leftPaddedTo:size with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4522
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4523	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4524	'foo' leftPaddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4525	'fooBar' leftPaddedTo:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4526	123 printString leftPaddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4527	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4528	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4529
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4530	paddedTo:newSize
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4531	"return a new string consisting of the receivers characters,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4532	plus spaces up to length.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4533	If the receivers size is equal or greater than the length argument,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4534	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4535
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4536	^ self paddedTo:newSize with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4537
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4538	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4539	'foo' paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4540	123 printString paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4541	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4542	! !
af7aeb79b25e Initial revision claus parents: diff changeset	4543
328 7b542c0bf1dd . claus parents: 327 diff changeset	4544	!CharacterArray methodsFor:'pattern matching'!
7b542c0bf1dd . claus parents: 327 diff changeset	4545
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4546	compoundMatch:aString
3253 735ed6008eef Fix typo Stefan Vogel <sv@exept.de> parents: 3195 diff changeset	4547	"like match, but the receiver may be a compound match pattern,
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4548	consisting of multiple simple patterns, separated by semicolons.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4549	This is usable with fileName pattern fields."
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4550
5124 727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4551	^self compoundMatch:aString ignoreCase:false
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4552
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4553	"
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4554	'f*' match:'foo'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4555	'b*' match:'foo'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4556	'f;b' match:'foo'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4557	'f;b' match:'bar'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4558	'f;b' compoundMatch:'foo'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4559	'f;b' compoundMatch:'bar'
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4560	"
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4561
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4562	"Modified: / 30.1.1998 / 11:40:18 / stefan"
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4563	"Modified: / 16.12.1999 / 01:22:08 / cg"
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4564	!
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4565
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4566	compoundMatch:aString ignoreCase:ignoreCase
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4567	"like match, but the receiver may be a compound match pattern,
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4568	consisting of multiple simple patterns, separated by semicolons.
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4569	This is usable with fileName pattern fields."
727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4570
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4571	\|matchers\|
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4572
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4573	matchers := self asCollectionOfSubstringsSeparatedBy:$;.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4574	matchers do:[:aPattern \|
5124 727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4575	(aPattern match:aString ignoreCase:ignoreCase) ifTrue:[^ true].
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4576	].
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4577	^ false.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4578
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4579	"
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4580	'f*' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4581	'b*' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4582	'f;b' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4583	'f;b' match:'bar'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4584	'f;b' compoundMatch:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4585	'f;b' compoundMatch:'bar'
5124 727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4586	'f;b' compoundMatch:'Foo' ignoreCase:true
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4587	"
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4588
3253 735ed6008eef Fix typo Stefan Vogel <sv@exept.de> parents: 3195 diff changeset	4589	"Modified: / 15.4.1997 / 15:50:33 / cg"
735ed6008eef Fix typo Stefan Vogel <sv@exept.de> parents: 3195 diff changeset	4590	"Modified: / 30.1.1998 / 11:40:18 / stefan"
5124 727f88b16fb3 case-insensitive version of compoundMatch: added Claus Gittinger <cg@exept.de> parents: 5097 diff changeset	4591	"Created: / 16.12.1999 / 01:21:35 / cg"
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4592	!
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	4593
328 7b542c0bf1dd . claus parents: 327 diff changeset	4594	findMatchString:matchString
368 a3c21a89ec37 * empty log message * claus parents: 360 diff changeset	4595	"like findString/indexOfSubCollection, but allowing match patterns.
328 7b542c0bf1dd . claus parents: 327 diff changeset	4596	find matchstring; if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	4597	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	4598
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	4599	^ self findMatchString:matchString startingAt:1 ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	4600	!
7b542c0bf1dd . claus parents: 327 diff changeset	4601
7b542c0bf1dd . claus parents: 327 diff changeset	4602	findMatchString:matchString startingAt:index
7b542c0bf1dd . claus parents: 327 diff changeset	4603	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	4604	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	4605	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	4606
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	4607	^ self findMatchString:matchString startingAt:index ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	4608	!
7b542c0bf1dd . claus parents: 327 diff changeset	4609
7b542c0bf1dd . claus parents: 327 diff changeset	4610	findMatchString:matchString startingAt:index ignoreCase:ignoreCase ifAbsent:exceptionBlock
7b542c0bf1dd . claus parents: 327 diff changeset	4611	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	4612	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	4613	if not found, return the result of evaluating exceptionBlock.
7b542c0bf1dd . claus parents: 327 diff changeset	4614	This is a q&d hack - not very efficient"
7b542c0bf1dd . claus parents: 327 diff changeset	4615
2916 dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4616	\|firstChar firstSet
328 7b542c0bf1dd . claus parents: 327 diff changeset	4617	startIndex "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	4618	matchSize "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	4619	mySize "{ Class: SmallInteger }"
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4620	realMatchString lcChar ucChar\|
328 7b542c0bf1dd . claus parents: 327 diff changeset	4621
7b542c0bf1dd . claus parents: 327 diff changeset	4622	matchSize := matchString size.
7b542c0bf1dd . claus parents: 327 diff changeset	4623	matchSize == 0 ifTrue:[^ index]. "empty string matches"
7b542c0bf1dd . claus parents: 327 diff changeset	4624
7b542c0bf1dd . claus parents: 327 diff changeset	4625	realMatchString := matchString.
7b542c0bf1dd . claus parents: 327 diff changeset	4626	(realMatchString endsWith:$*) ifFalse:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4627	realMatchString := realMatchString , '*'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4628	matchSize := matchSize + 1
328 7b542c0bf1dd . claus parents: 327 diff changeset	4629	].
7b542c0bf1dd . claus parents: 327 diff changeset	4630
7b542c0bf1dd . claus parents: 327 diff changeset	4631	mySize := self size.
7b542c0bf1dd . claus parents: 327 diff changeset	4632	firstChar := realMatchString at:1.
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	4633	firstChar == self class matchEscapeCharacter ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4634	firstChar := realMatchString at:2.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4635	].
328 7b542c0bf1dd . claus parents: 327 diff changeset	4636
7b542c0bf1dd . claus parents: 327 diff changeset	4637	firstChar asString includesMatchCharacters ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4638	index to:mySize do:[:col \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4639	(realMatchString match:self from:col to:mySize ignoreCase:ignoreCase)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4640	ifTrue:[^ col]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4641	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4642	^ exceptionBlock value.
328 7b542c0bf1dd . claus parents: 327 diff changeset	4643	].
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4644
af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4645	lcChar := firstChar asLowercase.
af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4646	ucChar := firstChar asUppercase.
af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4647	(ignoreCase and:[ lcChar ~= ucChar]) ifTrue:[
af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4648	firstSet := Array with:ucChar with:lcChar.
2916 dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4649	startIndex := self indexOfAny:firstSet startingAt:index.
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4650	] ifFalse:[
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4651	startIndex := self indexOf:firstChar startingAt:index.
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4652	].
328 7b542c0bf1dd . claus parents: 327 diff changeset	4653	[startIndex == 0] whileFalse:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4654	(realMatchString match:self from:startIndex to:mySize ignoreCase:ignoreCase)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4655	ifTrue:[^ startIndex].
8032 af9606171d86 string match for 16bit characters (do not use #== to compare characters) Claus Gittinger <cg@exept.de> parents: 8027 diff changeset	4656	firstSet notNil ifTrue:[
2916 dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4657	startIndex := self indexOfAny:firstSet startingAt:(startIndex + 1).
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4658	] ifFalse:[
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4659	startIndex := self indexOf:firstChar startingAt:(startIndex + 1).
dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4660	].
328 7b542c0bf1dd . claus parents: 327 diff changeset	4661	].
7b542c0bf1dd . claus parents: 327 diff changeset	4662	^ exceptionBlock value
7b542c0bf1dd . claus parents: 327 diff changeset	4663
7b542c0bf1dd . claus parents: 327 diff changeset	4664	"
7b542c0bf1dd . claus parents: 327 diff changeset	4665	'one two three four' findMatchString:'o[nu]'
7b542c0bf1dd . claus parents: 327 diff changeset	4666	'one two three four' findMatchString:'o[nu]' startingAt:3
2916 dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4667	'one two three four one' findMatchString:'ONE' startingAt:3 ignoreCase:true ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	4668	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4669
2916 dd8672addeca * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	4670	"Modified: 13.9.1997 / 06:31:22 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	4671	!
7b542c0bf1dd . claus parents: 327 diff changeset	4672
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4673	includesMatchString:matchString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4674	"like includesString, but allowing match patterns.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4675	find matchstring; if found, return true, otherwise return false"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4676
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4677	^ (self findMatchString:matchString) ~~ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4678
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4679	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4680	'hello world' includesMatchString:'h*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4681	'hello world' includesMatchString:'h[aeiou]llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4682	'hello world' includesMatchString:'wor*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4683	'hello world' includesMatchString:'woR*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4684	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4685	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4686
328 7b542c0bf1dd . claus parents: 327 diff changeset	4687	match:aString
7b542c0bf1dd . claus parents: 327 diff changeset	4688	"return true if aString matches self, where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	4689	characters $* (to match any string) or $# (to match any character).
7b542c0bf1dd . claus parents: 327 diff changeset	4690	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	4691	Lower/uppercase are considered different.
cf2301210c47 . claus parents: 343 diff changeset	4692	NOTICE: match-meta character interpretation is like in unix-matching,
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4693	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	4694
7b542c0bf1dd . claus parents: 327 diff changeset	4695	^ self match:aString from:1 to:aString size ignoreCase:false
7b542c0bf1dd . claus parents: 327 diff changeset	4696
7b542c0bf1dd . claus parents: 327 diff changeset	4697	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4698	'\f' match:'f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4699	'\f' match:'*f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4700	'\f' match:'f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4701	'f' match:'*f'
328 7b542c0bf1dd . claus parents: 327 diff changeset	4702	'ute' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	4703	'*uter' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	4704	'uter*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	4705	'ute' match:''
7b542c0bf1dd . claus parents: 327 diff changeset	4706	'[abcd]*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	4707	'[abcd]*' match:'komputer'
7b542c0bf1dd . claus parents: 327 diff changeset	4708	'somecomplern' match:'this is some more complicated pattern match'
7b542c0bf1dd . claus parents: 327 diff changeset	4709	'somecomplern' match:'this is another complicated pattern match'
3537 916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	4710	'*-hh' match:'anton-h'
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	4711	"
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	4712
916534e86f0c fixed match Claus Gittinger <cg@exept.de> parents: 3527 diff changeset	4713	"Modified: / 9.6.1998 / 18:50:00 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	4714	!
7b542c0bf1dd . claus parents: 327 diff changeset	4715
7b542c0bf1dd . claus parents: 327 diff changeset	4716	match:aString from:start to:stop ignoreCase:ignoreCase
7b542c0bf1dd . claus parents: 327 diff changeset	4717	"return true if part of aString matches myself,
7b542c0bf1dd . claus parents: 327 diff changeset	4718	where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	4719	characters $* (to match any string) or $# (to match any character)
7b542c0bf1dd . claus parents: 327 diff changeset	4720	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	4721	If ignoreCase is true, lower/uppercase are considered the same.
cf2301210c47 . claus parents: 343 diff changeset	4722	NOTICE: match-meta character interpretation is like in unix-matching,
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4723	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	4724
7b542c0bf1dd . claus parents: 327 diff changeset	4725	\|matchScanArray\|
7b542c0bf1dd . claus parents: 327 diff changeset	4726
7b542c0bf1dd . claus parents: 327 diff changeset	4727	"
7b542c0bf1dd . claus parents: 327 diff changeset	4728	keep the matchScanArray from the most recent match -
7b542c0bf1dd . claus parents: 327 diff changeset	4729	avoids parsing the pattern over-and over if multiple searches
7b542c0bf1dd . claus parents: 327 diff changeset	4730	are done with the same pattern.
7b542c0bf1dd . claus parents: 327 diff changeset	4731	"
7b542c0bf1dd . claus parents: 327 diff changeset	4732	(PreviousMatch notNil
7b542c0bf1dd . claus parents: 327 diff changeset	4733	and:[PreviousMatch key = self]) ifTrue:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4734	matchScanArray := PreviousMatch value
328 7b542c0bf1dd . claus parents: 327 diff changeset	4735	] ifFalse:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4736	matchScanArray := self class matchScanArrayFrom:self.
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4737	matchScanArray isNil ifTrue:[
3926 4cc33691696a checkin from browser Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	4738	'CharacterArray [info]: invalid matchpattern:''' infoPrint. self infoPrint. ''' comparing for equality.' infoPrintCR.
4cc33691696a checkin from browser Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	4739	^ self = aString
4cc33691696a checkin from browser Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	4740	"/ ^ false
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4741	].
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4742	PreviousMatch := self -> matchScanArray.
328 7b542c0bf1dd . claus parents: 327 diff changeset	4743	].
7b542c0bf1dd . claus parents: 327 diff changeset	4744
7b542c0bf1dd . claus parents: 327 diff changeset	4745	^ self class
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4746	matchScan:matchScanArray
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4747	from:1 to:matchScanArray size
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4748	with:aString
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4749	from:start to:stop
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4750	ignoreCase:ignoreCase
328 7b542c0bf1dd . claus parents: 327 diff changeset	4751
7b542c0bf1dd . claus parents: 327 diff changeset	4752	"
7b542c0bf1dd . claus parents: 327 diff changeset	4753	'ute' match:'12345COMPUTER' from:1 to:5 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	4754	'ute' match:'12345COMPUTER' from:6 to:13 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	4755	"
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	4756
3926 4cc33691696a checkin from browser Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	4757	"Modified: / 10.11.1998 / 21:43:46 / cg"
359 b8df66983eff . claus parents: 357 diff changeset	4758	!
b8df66983eff . claus parents: 357 diff changeset	4759
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4760	match:aString ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4761	"return true if aString matches self, where self may contain meta-match
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4762	characters $* (to match any string) or $# (to match any character)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4763	or [...] to match a set of characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4764	If ignoreCase is true, lower/uppercase are considered the same.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4765	NOTICE: match-meta character interpretation is like in unix-matching,
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4766	NOT the ST-80 meaning."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4767
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4768	^ self match:aString from:1 to:aString size ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4769
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4770	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4771	'ute' match:'COMPUTER' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4772	'*uter' match:'COMPUTER' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4773	'[abcd]*' match:'computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4774	'[abcd]*' match:'Computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4775	'[a-k]*' match:'komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4776	'[a-k]*' match:'zomputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4777	'[a-k]*' match:'Komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4778	'[a-k]*' match:'Komputer' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4779	'somecomplern' match:'this is some more complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4780	'somecomplern' match:'this is another complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4781
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4782	Time millisecondsToRun:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4783	Symbol allInstancesDo:[:sym \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4784	'[ab]*' match:sym ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4785	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4786	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4787	Time millisecondsToRun:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4788	Symbol allInstancesDo:[:sym \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4789	'at:' match:sym ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4790	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4791	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4792	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4793
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	4794	"Modified: 2.4.1997 / 17:28:58 / cg"
5609 7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4795	!
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4796
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4797	matches:aPatternString
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4798	"return true if the receiver matches aString, where aPatternString may contain meta-match
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4799	characters $* (to match any string) or $# (to match any character).
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4800	or [...] to match a set of characters.
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4801	Lower/uppercase are considered different.
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4802	NOTICE: match-meta character interpretation is like in unix-matching,
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4803	NOT the ST-80 meaning."
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4804
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4805	^ aPatternString match:self
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4806
7ecaa8d824fe added #matches: Claus Gittinger <cg@exept.de> parents: 5510 diff changeset	4807
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4808	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4809
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4810	!CharacterArray methodsFor:'printing & storing'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4811
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4812	article
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4813	"return an article string for the receiver."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4814
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4815	\|firstChar\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4816
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4817	firstChar := (self at:1) asLowercase.
5848 ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4818	((firstChar isVowel and:[firstChar ~~ $u]) or:[firstChar == $x]) ifTrue:[
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4819	^ 'an'
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4820	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4821	^ 'a'
5848 ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4822
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4823	"
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4824	'uboot' article.
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4825	'xmas' article.
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4826	'alarm' article.
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4827	'baby' article.
ef81d77ca1ad UTF-8 Stuff Stefan Vogel <sv@exept.de> parents: 5843 diff changeset	4828	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4829	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4830
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4831	basicStoreString
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4832	"return a String for storing myself"
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4833
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4834	\|s n index\|
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4835
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4836	n := self occurrencesOf:$'.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4837	n == 0 ifFalse:[
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4838	s := String new:(n + 2 + self size).
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4839	s at:1 put:$'.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4840	index := 2.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4841	self do:[:thisChar \|
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4842	(thisChar == $') ifTrue:[
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4843	s at:index put:thisChar.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4844	index := index + 1.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4845	].
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4846	s at:index put:thisChar.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4847	index := index + 1.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4848	].
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4849	s at:index put:$'.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4850	^ s
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4851	].
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4852	^ '''' , self , ''''
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4853	!
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4854
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4855	displayString
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	4856	"return a string to display the receiver - use storeString to have quotes around."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4857
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4858	^ self storeString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4859	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4860
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4861	printOn:aStream
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4862	"print the receiver on aStream"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4863
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4864	aStream nextPutAll:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4865	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4866
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4867	printString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4868	"return a string for printing - thats myself"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4869
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4870	^ self
3578 46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4871	!
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4872
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4873	printWithQuotesDoubledOn:aStream
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4874	"put the raw storeString of myself on aStream"
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4875
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4876	self do:[:thisChar \|
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4877	(thisChar == $') ifTrue:[aStream nextPut:thisChar].
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4878	aStream nextPut:thisChar
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4879	]
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4880
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4881	"Modified: / 15.6.1998 / 17:21:17 / cg"
46dc8399fdf8 checkin from browser Claus Gittinger <cg@exept.de> parents: 3537 diff changeset	4882	"Created: / 15.6.1998 / 17:22:13 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4883	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4884
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4885	!CharacterArray methodsFor:'queries'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4886
4429 564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4887	bitsPerCharacter
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4888	"return the underlying strings bitsPerCharacter
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4889	(i.e. is it a regular String or a TwoByteString)"
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4890
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4891	^ self string bitsPerCharacter
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4892
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4893	"
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4894	'hello' bitsPerCharacter
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4895	'hello' asText allBold bitsPerCharacter
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4896	"
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4897	!
564b0fd9168e checkin from browser Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	4898
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4899	encoding
1311 367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	4900	"return the strings encoding, as a symbol.
7982 0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4901	Here, by default, we assume unicode-encoding.
0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4902	Notice, that iso8859-1 is a true subset of unicode,
0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4903	and that singleByteStrings are therefore both unicode AND
0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4904	8859-1 encoded."
0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4905
0412a26c4621 encoding now unicode Claus Gittinger <cg@exept.de> parents: 7977 diff changeset	4906	^ #'unicode'
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4907	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4908
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	4909	hasChangeOfEmphasis
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	4910	^ false
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	4911
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4912	"Created: 12.5.1996 / 12:31:39 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	4913	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	4914
7995 8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4915	hasIcon
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4916	"for LabelAndIcon compatibility"
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4917
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4918	^ false
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4919	!
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4920
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4921	hasImage
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4922	"for LabelAndIcon compatibility"
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4923
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4924	^ false
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4925	!
8ddbb403d67b +hasIcon and hasImage for LabelAndIcon compatibility Claus Gittinger <cg@exept.de> parents: 7991 diff changeset	4926
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4927	heightOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4928	"return the size of the recevier in device units if displayed on aGC"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4929
6528 cf4e93b8104b #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 6523 diff changeset	4930	^ (aGC font onDevice:aGC device) heightOf:self
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4931
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4932	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4933	'hello world' heightOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4934	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4935
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4936	"Created: 12.5.1996 / 20:09:29 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4937	"Modified: 12.5.1996 / 20:32:05 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4938	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4939
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4940	isString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4941	"return true, if the receiver is some kind of string;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4942	true is returned here - redefinition of Object>>isString."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4943
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4944	^ true
1235 2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4945	!
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4946
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4947	leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4948	"if the receiver starts with spaces, return the number of spaces
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4949	at the left - otherwise, return 0.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4950	If the receiver consists of spaces only, return the receivers size."
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4951
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4952	\|index "{Class: SmallInteger }"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4953	end "{Class: SmallInteger }"\|
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4954
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4955	index := 1.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4956	end := self size.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4957	[index <= end] whileTrue:[
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4958	(self at:index) isSeparator ifFalse:[^ index - 1].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4959	index := index + 1
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4960	].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4961	^ end
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4962
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4963	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4964	' hello' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4965	'foo ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4966	' ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4967	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4968
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	4969	"Modified: 20.4.1996 / 19:28:43 / cg"
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4970	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4971
8037 8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4972	stringSpecies
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4973	"return the underlying strings bitsPerCharacter
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4974	(i.e. is it a regular String or a TwoByteString)"
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4975
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4976	\|string\|
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4977
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4978	(string := self string) == self ifTrue:[^ self class].
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4979	^ string stringSpecies
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4980
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4981	"
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4982	'hello' stringSpecies
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4983	'hello' asText allBold stringSpecies
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4984	"
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4985	!
8cce25b1059c care for wide chars in asXXXFirst Claus Gittinger <cg@exept.de> parents: 8032 diff changeset	4986
6653 2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4987	widthFrom:startIndex to:endIndex on:aGC
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4988	"return ths size of part of the recevier in device units if displayed on aGC"
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4989
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4990	^ (aGC font onDevice:aGC device) widthOf:self from:startIndex to:endIndex
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4991
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4992	"
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4993	'hello world' widthFrom:1 to:5 on:(View new)
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4994	'hello' widthOn:(View new)
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4995	"
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4996	!
2e77e6bd99a1 +withoutEmphasis: Michael Beyl <mb@exept.de> parents: 6643 diff changeset	4997
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4998	widthOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	4999	"return ths size of the recevier in device units if displayed on aGC"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5000
6528 cf4e93b8104b #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 6523 diff changeset	5001	^ (aGC font onDevice:aGC device) widthOf:self
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5002
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5003	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5004	'hello world' widthOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5005	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5006
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	5007	"Created: 12.5.1996 / 20:09:29 / cg"
2554 309ee6707322 checkin from browser Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	5008	"Modified: 17.4.1997 / 12:50:23 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5009	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5010
7349 7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5011	!CharacterArray methodsFor:'regular expressions'!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5012
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5013	allRegexMatches: rxString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5014	"return a collection of substrings in the receiver, which match the regular expression in rxString"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5015
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5016	^ rxString asRegex matchesIn: self
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5017
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5018	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5019	'1234 abcd 3456 defg' allRegexMatches:'[0-9]+'
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5020
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5021	'[0-9]+' asRegex matchesIn:'1234 abcd 3456 defg'
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5022	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5023	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5024
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5025	asRegex
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5026	"Compile the receiver as a regex matcher.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5027	May raise RxParser>>syntaxErrorSignal or RxParser>>compilationErrorSignal.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5028	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5029	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5030	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5031
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5032	^ Regex::RxParser preferredMatcherClass
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5033	for: (Regex::RxParser new parse: self)
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5034	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5035
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5036	asRegexIgnoringCase
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5037	"Compile the receiver as a regex matcher.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5038	May raise RxParser>>syntaxErrorSignal or RxParser>>compilationErrorSignal.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5039	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5040	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5041	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5042
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5043	^ Regex::RxParser preferredMatcherClass
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5044	for: (Regex::RxParser new parse: self)
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5045	ignoreCase: true
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5046	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5047
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5048	copyWithRegex: rxString matchesReplacedWith: aString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5049	^ rxString asRegex copy: self replacingMatchesWith: aString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5050	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5051
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5052	copyWithRegex: rxString matchesTranslatedUsing: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5053	^ rxString asRegex copy: self translatingMatchesUsing: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5054	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5055
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5056	matchesRegex: regexString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5057	"Test if the receiver matches a regex.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5058	May raise RxParser>>regexErrorSignal or child signals.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5059	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5060	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5061	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5062
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5063	^regexString asRegex matches: self
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5064
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5065	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5066	'hello world' matchesRegex:'h.*d'.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5067	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5068	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5069
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5070	matchesRegexIgnoringCase: regexString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5071	"Test if the receiver matches a regex.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5072	May raise RxParser>>regexErrorSignal or child signals.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5073	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5074	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5075	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5076
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5077	^regexString asRegexIgnoringCase matches: self
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5078
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5079	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5080	'hElLo wOrld' matchesRegexIgnoringCase:'h.*d'.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5081	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5082	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5083
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5084	prefixMatchesRegex: regexString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5085	"Test if the receiver's prefix matches a regex.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5086	May raise RxParser class>>regexErrorSignal or child signals.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5087	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5088	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5089	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5090
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5091	^regexString asRegex matchesPrefix: self
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5092	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5093
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5094	prefixMatchesRegexIgnoringCase: regexString
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5095	"Test if the receiver's prefix matches a regex.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5096	May raise RxParser class>>regexErrorSignal or child signals.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5097	This is a part of the Regular Expression Matcher package,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5098	(c) 1996, 1999 Vassili Bykov.
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5099	Refer to `documentation' protocol of RxParser class for details."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5100
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5101	^regexString asRegexIgnoringCase matchesPrefix: self
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5102	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5103
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5104	regex: rxString matchesCollect: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5105	"for all substrings in the receiver which match the regular expression in rxString, evaluate aBlock,
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5106	and collect the returned values."
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5107
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5108	^ rxString asRegex matchesIn: self collect: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5109
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5110	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5111	'hello world' regex:'\w+' matchesCollect:[:each \| each asUppercase ].
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5112	'1234 hello 456 world' regex:'\d+' matchesCollect:[:each \| Number readFrom:each ].
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5113	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5114	!
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5115
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5116	regex:rxString matchesDo: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5117	"for all substrings in the receiver which match the regular expression in rxString, evaluate aBlock"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5118
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5119	^ rxString asRegex matchesIn: self do: aBlock
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5120
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5121	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5122	'hello world' regex:'\w+' matchesDo:[:each \| Transcript showCR:each ].
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5123	"
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5124	! !
7aa85b872967 category & comments Claus Gittinger <cg@exept.de> parents: 7346 diff changeset	5125
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5126	!CharacterArray methodsFor:'special string converting'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5127
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5128	chopTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5129	"if the receivers size is less or equal to maxLen, return it.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5130	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5131	in the middle have been removed for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5132	of maxLen."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5133
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5134	\|sz n1 n2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5135
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5136	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5137	n1 := n2 := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5138	maxLen odd ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5139	n2 := n1 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5140	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5141	^ (self copyFrom:1 to:n1) , (self copyFrom:sz - n2 + 1)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5142	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5143
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5144	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5145	'12345678901234' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5146	'123456789012345' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5147	'1234567890123456' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5148	'aShortString' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5149	'aVeryLongNameForAStringThatShouldBeShortened' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5150	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5151	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5152
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5153	contractAtBeginningTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5154	"if the receivers size is less or equal to maxLen, return it.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5155	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5156	at the beginning have been replaced by '...' for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5157	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5158
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5159	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5160
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5161	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5162	^ '...' , (self copyFrom:(sz - (maxLen - 4)))
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5163	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5164
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5165	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5166	'12345678901234' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5167	'123456789012345' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5168	'1234567890123456' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5169	'aShortString' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5170	'aVeryLongNameForAStringThatShouldBeShortened' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5171	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5172	!
359 b8df66983eff . claus parents: 357 diff changeset	5173
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5174	contractAtEndTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5175	"if the receivers size is less or equal to maxLen, return it.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5176	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5177	at the end have been replaced by '...' for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5178	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5179
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5180	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5181
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5182	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5183	^ self copyReplaceFrom:maxLen - 3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5184	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5185	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5186
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5187	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5188	'12345678901234' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5189	'123456789012345' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5190	'1234567890123456' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5191	'aShortString' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5192	'aVeryLongNameForAStringThatShouldBeShortened' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5193	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5194	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5195
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5196	contractTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5197	"if the receivers size is less or equal to maxLen, return it.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5198	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5199	in the middle have been replaced by '...' for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5200	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5201
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5202	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5203	halfSize "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5204
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5205	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5206	halfSize := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5207	^ self copyReplaceFrom:halfSize - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5208	to:sz - maxLen + halfSize + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5209	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5210	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5211
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5212	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5213	'12345678901234' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5214	'123456789012345' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5215	'1234567890123456' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5216	'aShortString' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5217	'aVeryLongNameForAStringThatShouldBeShortened' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5218	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5219	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5220
4410 2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5221	expandPlaceholdersWith:argArrayOrDictionary
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5222	"return a copy of the receiver, where all %i escapes are
4410 2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5223	replaced by corresponding arguments' printStrings from the argArrayOrDictionary.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5224	I.e. 'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this') results
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5225	in the new string 'hello world; how is this'.
4410 2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5226	As an extension, the argument may also be a dictionary, providing
7313 9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5227	values for symbolic keys.
4842 0086acd80497 * empty log message * Claus Gittinger <cg@exept.de> parents: 4682 diff changeset	5228	In this case, %a .. %z and %(...) are also allowed.
4410 2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5229	(%1..%9 require a numeric key in the dictionary, however)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5230	To get a '%' character, use a '%%'-escape.
7313 9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5231	To get an integer-indexed placeHolder followed by another digit,
9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5232	or an index > 9, you must use %(digit).
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5233	See also bindWith:... for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5234
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	5235	\|expandedString next v key keyAsSymbol
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5236	idx "{ SmallInteger }"
4842 0086acd80497 * empty log message * Claus Gittinger <cg@exept.de> parents: 4682 diff changeset	5237	idx2 "{ SmallInteger }"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5238	start "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5239	stop "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5240
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	5241	expandedString := self species new:0.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5242	stop := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5243	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5244	[start <= stop] whileTrue:[
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5245	idx := self indexOf:$% startingAt:start.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5246	(idx == 0 or:[idx == stop]) ifTrue:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5247	^ expandedString , (self copyFrom:start to:stop)
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5248	].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5249	"found a %"
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5250	expandedString := expandedString , (self copyFrom:start to:(idx - 1)).
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5251	next := self at:(idx + 1).
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5252	(next == $%) ifTrue:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5253	expandedString := expandedString , '%'
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5254	] ifFalse:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5255	(next between:$1 and:$9) ifTrue:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5256	v := argArrayOrDictionary at:(next digitValue) ifAbsent:nil
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5257	] ifFalse:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5258	next == $( ifTrue:[
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5259	idx2 := self indexOf:$) startingAt:idx+2.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5260	key := self copyFrom:idx+2 to:idx2-1.
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5261	idx := idx2 - 1.
8049 ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	5262	keyAsSymbol := key asSymbolIfInterned.
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	5263	(keyAsSymbol notNil and:[ argArrayOrDictionary includesKey:keyAsSymbol ]) ifTrue:[
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code Claus Gittinger <cg@exept.de> parents: 8040 diff changeset	5264	v := argArrayOrDictionary at:keyAsSymbol
7312 d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5265	] ifFalse:[
d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5266	(key conform:[:each \| each isDigit]) ifTrue:[
d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5267	key := Number readFrom:key onError:nil.
d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5268	].
d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5269	v := argArrayOrDictionary at:key ifAbsent:nil
d84ad62592c3 oops - care for %(digit) to allow embedded string followed Claus Gittinger <cg@exept.de> parents: 7270 diff changeset	5270	].
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5271	] ifFalse:[
7189 9dcb619c1610 fix from claus penk parents: 7082 diff changeset	5272	v := argArrayOrDictionary at:next ifAbsent:nil.
6743 1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5273	v isNil ifTrue:[
1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5274	(argArrayOrDictionary includesKey:next asString) ifTrue:[
1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5275	v := argArrayOrDictionary at:next asString asSymbol ifAbsent:nil.
1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5276	] ifFalse:[
7189 9dcb619c1610 fix from claus penk parents: 7082 diff changeset	5277	v := String with:$% with:next. "/ next asString.
6743 1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5278	]
1ee6a789faed oops - expandPlaceHolders must handle characters and strings Claus Gittinger <cg@exept.de> parents: 6742 diff changeset	5279	].
6742 292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5280	]
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5281	].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5282	v isNil ifTrue:[v := ''].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5283	expandedString := expandedString , v printString
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5284	].
292775fda600 avoid endless recursion when comparing int < string Claus Gittinger <cg@exept.de> parents: 6655 diff changeset	5285	start := idx + 2
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5286	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5287	^ expandedString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5288
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5289	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5290	'hello %1' expandPlaceholdersWith:#('world')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5291	'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5292	'hello %2; how is %1' expandPlaceholdersWith:#('world' 'this')
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	5293	'%1 plus %2 gives %3 ' expandPlaceholdersWith:#(4 5 9)
7313 9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5294	'%%(1)0 gives %(1)0' expandPlaceholdersWith:#(123)
9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5295	'%%10 gives %10' expandPlaceholdersWith:#(123)
9be9b35f5370 comment Claus Gittinger <cg@exept.de> parents: 7312 diff changeset	5296	'%%(10) gives %(10)' expandPlaceholdersWith:#(123)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5297	"
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	5298
4410 2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5299	"
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5300	\|dict\|
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5301
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5302	dict := Dictionary new.
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5303	dict at:1 put:'one'.
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5304	dict at:$a put:'AAAAA'.
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5305	'hello %1 %a' expandPlaceholdersWith:dict
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5306	"
2bdc0c89a42e enhanced #exapndPlaceHolders, to allow for a dictionary arg Claus Gittinger <cg@exept.de> parents: 4409 diff changeset	5307
2737 9f29aecea39d care for % at end in expandPlaceHolders. Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	5308	"Modified: 1.7.1997 / 00:53:24 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5309	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5310
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5311	withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5312	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5313	with all \-characters replaced by cr-characters."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5314
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5315	^ self copyReplaceAll:$\ with:(Character cr)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5316
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5317	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5318	'hello\world' withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5319	"
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5320
347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5321	"Modified: / 18.7.1998 / 22:53:02 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5322	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5323
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5324	withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5325	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5326	with all \X-character escapes replaced by corresponding-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5327	(similar to the way C-language Strings are converted).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5328	The following escapes are supported:
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5329	\r return character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5330	\n newline character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5331	\b backspace character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5332	\f formfeed character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5333	\t tab character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5334	\e escape character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5335	\\ the \ character itself
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5336	\nnn three digit octal number defining the characters ascii value
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5337	\other other
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5338
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5339	Notice, that \' is NOT a valid escape, since the general syntax of
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5340	string constants is not affected by this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5341
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5342	Although easily implementable, this is NOT done automatically
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5343	by the compiler (due to a lack of a language standard for this).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5344	However, the compiler may detect sends ot #withEscapes to string literals
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5345	and place a modified string constant into the binary/byte-code.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5346	Therefore, no runtime penalty will be payed for using these escapes.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5347	(not in pre 2.11 versions)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5348	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5349
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5350	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5351	newSize "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5352	srcIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5353	dstIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5354	val "{ SmallInteger }"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5355	newString next hasEmphasis e\|
359 b8df66983eff . claus parents: 357 diff changeset	5356
b8df66983eff . claus parents: 357 diff changeset	5357	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5358	first, count the number of escapes, to allow preallocation
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5359	of the new string ...
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5360	(it is faster to scan the string twice than to reallocate it multiple
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5361	times in a WriteStream)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5362	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5363	sz := newSize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5364	srcIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5365	[(srcIdx := self indexOf:$\ startingAt:srcIdx) ~~ 0] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5366	srcIdx == sz ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5367	newSize := newSize - 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5368	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5369	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5370	next == $0 ifTrue:[
3527 55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5371	[srcIdx < sz and:[next isDigit]] whileTrue:[
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5372	newSize := newSize - 1. srcIdx := srcIdx + 1. next := self at:srcIdx.
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5373	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5374	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5375	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5376	srcIdx := srcIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5377	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5378
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5379	newSize == sz ifTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5380	^ self
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5381	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5382
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5383	newString := self species new:newSize.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5384
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5385	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5386
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5387	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5388	copy over, replace escapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5389	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5390	srcIdx := dstIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5391	[srcIdx <= sz] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5392	next := self at:srcIdx.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5393	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5394	e := self emphasisAt:srcIdx
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5395	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5396	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5397	next == $\ ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5398	srcIdx <= sz ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5399	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5400	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5401	next == $r ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5402	next := Character return
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5403	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5404	next == $n ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5405	next := Character nl
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5406	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5407	next == $b ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5408	next := Character backspace
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5409	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5410	next == $f ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5411	next := Character newPage
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5412	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5413	next == $t ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5414	next := Character tab
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5415	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5416	next == $e ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5417	next := Character esc
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5418	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5419	next == $0 ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5420	val := 0.
3527 55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5421	[next notNil and:[next isDigit]] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5422	val := val * 8 + next digitValue.
3527 55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5423	srcIdx <= sz ifTrue:[
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5424	next := self at:srcIdx.
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5425	srcIdx := srcIdx + 1.
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5426	] ifFalse:[
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5427	next := nil
55b61fce23f0 oops - fixed withEscapes of octal character at the end Claus Gittinger <cg@exept.de> parents: 3404 diff changeset	5428	]
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5429	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5430	next := Character value:val.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5431	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5432	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5433	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5434	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5435	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5436	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5437	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5438	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5439	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5440	newString at:dstIdx put:next.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5441	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5442	newString emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5443	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5444	dstIdx := dstIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5445	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5446	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5447
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5448	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5449	'hello world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5450	'hello\world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5451	'hello\world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5452	'hello world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5453	'hello\tworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5454	'hello\nworld\na\n\tnice\n\t\tstring' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5455	'hello\tworld\n' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5456	'hello\010world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5457	'hello\r\nworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5458	"
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	5459
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5460	"Modified: 12.5.1996 / 12:53:34 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5461	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5462
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5463	withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5464	"return a copy of the receiver with all match characters escaped
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5465	by $\ characters (to be usable as a match string).
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5466	Return the receiver, if there are none."
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5467
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5468	\|in out c escape\|
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5469
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5470	escape := self class matchEscapeCharacter.
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5471
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5472	in := self readStream.
7986 715c72e62d58 * empty log message * Claus Gittinger <cg@exept.de> parents: 7982 diff changeset	5473	out := WriteStream on:(self species new:self size).
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5474	[in atEnd] whileFalse:[
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5475	c := in next.
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5476	(c == escape or:['*[#' includes:c]) ifTrue:[
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5477	out nextPut:$\.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5478	].
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5479	out nextPut:c.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5480	].
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5481	^ out contents.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5482
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5483	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5484	'*foo' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5485	'\*foo' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5486	'*foo' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5487	'\\*foo' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5488	'foo*' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5489	'foo\*' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5490	'foo\' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5491	'foo' withMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5492	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5493
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5494	"Modified: 2.4.1997 / 18:13:04 / cg"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5495	!
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5496
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5497	withTabs
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5498	"return a string consisting of the receivers characters
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5499	where leading spaces are replaced by tabulator characters (assuming 8-col tabs).
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5500	Notice: if the receiver does not contain any tabs, it is returned unchanged;
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5501	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5502	Limitation: only the very first spaces are replaced
5815 4acdd87a77d4 // can return negative numbers. Stefan Vogel <sv@exept.de> parents: 5795 diff changeset	5503	(i.e. if the receiver contains newLine characters,
4acdd87a77d4 // can return negative numbers. Stefan Vogel <sv@exept.de> parents: 5795 diff changeset	5504	no tabs are inserted after those lineBreaks)"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5505
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5506	\|idx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5507	nTabs "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5508	newString\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5509
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5510	idx := self findFirst:[:c \| (c ~~ Character space)].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5511	nTabs := (idx-1) // 8.
5815 4acdd87a77d4 // can return negative numbers. Stefan Vogel <sv@exept.de> parents: 5795 diff changeset	5512	nTabs <= 0 ifTrue:[^ self].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5513
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5514	"any tabs"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5515	newString := self class new:(self size - (nTabs * 7)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5516	newString atAll:(1 to:nTabs) put:(Character tab).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5517	newString replaceFrom:(nTabs + 1) with:self startingAt:(nTabs * 8 + 1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5518	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5519
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5520	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5521	'12345678901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5522	' 8901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5523	' 901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5524	' 67890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5525	' 7890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5526	' 890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5527	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5528	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5529
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5530	withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5531	"return a string consisting of the receivers characters,
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5532	where all tabulator characters are expanded into spaces (assuming 8-col tabs).
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5533	Notice: if the receiver does not contain any tabs, it is returned unchanged;
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5534	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5535	This does handle multiline strings."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5536
5741 3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5537	^ self withTabsExpanded:8
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5538
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5539	"
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5540	('1' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5541	('12345' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5542	('123456' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5543	('1234567' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5544	('12345678' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5545	('123456789' , Character tab asString , 'x') withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5546
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5547	(String with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5548	with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5549	with:$1) withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5550
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5551	(String with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5552	with:$1
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5553	with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5554	with:$2) withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5555
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5556	(String with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5557	with:$1
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5558	with:Character cr
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5559	with:Character tab
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5560	with:$2) withTabsExpanded
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5561	"
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5562
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5563	"Modified: 12.5.1996 / 13:05:10 / cg"
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5564	!
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5565
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5566	withTabsExpanded:numSpaces
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5567	"return a string consisting of the receivers characters,
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5568	where all tabulator characters are expanded into spaces (assuming numSpaces-col tabs).
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5569	Notice: if the receiver does not contain any tabs, it is returned unchanged;
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5570	otherwise a new string is returned.
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5571	This does handle multiline strings."
3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5572
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5573	\|col "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5574	str ch
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5575	dstIdx "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5576	newSz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5577	sz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5578	hasEmphasis e\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5579
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5580	(self includes:(Character tab)) ifFalse:[^ self].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5581
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5582	sz := self size.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5583
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5584	"/ count the new size first, instead of
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5585	"/ multiple resizing (better for large strings)
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5586
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5587	col := 1. newSz := 0.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5588	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5589	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5590	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5591	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5592	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5593	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5594	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5595	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5596	] ifTrue:[
5741 3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5597	(col \\ numSpaces) to:numSpaces do:[:ii \|
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5598	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5599	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5600	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5601	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5602	].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5603
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5604	str := self species new:newSz.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5605
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5606	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5607
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5608	col := 1. dstIdx := 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5609	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5610	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5611
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5612	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5613	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5614	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5615	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5616	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5617	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5618	e := self emphasisAt:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5619	str emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5620	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5621	str at:dstIdx put:ch.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5622	dstIdx := dstIdx + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5623	] ifTrue:[
5741 3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5624	(col \\ numSpaces) to:numSpaces do:[:ii \|
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5625	str at:dstIdx put:Character space.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5626	dstIdx := dstIdx + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5627	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5628	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5629	]
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5630	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5631	^ str
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5632
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5633	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5634	('1' , Character tab asString , 'x') withTabsExpanded
5741 3a6086774d38 added #withTabsExpanded: (i.e. arg to specify tab-column width) Claus Gittinger <cg@exept.de> parents: 5739 diff changeset	5635	('1' , Character tab asString , 'x') withTabsExpanded:4
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5636	('12345' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5637	('123456' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5638	('1234567' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5639	('12345678' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5640	('123456789' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5641
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5642	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5643	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5644	with:$1) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5645
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5646	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5647	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5648	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5649	with:$2) withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5650
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5651	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5652	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5653	with:Character cr
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5654	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5655	with:$2) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5656	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	5657
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	5658	"Modified: 12.5.1996 / 13:05:10 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5659	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5660
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5661	withoutCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5662	"return a new collection consisting of receivers elements
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5663	with all cr-characters replaced by \-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5664	This is the reverse operation of withCRs."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5665
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5666	^ self copyReplaceAll:(Character cr) with:$\
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5667	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5668	'hello
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5669	world' withoutCRs
359 b8df66983eff . claus parents: 357 diff changeset	5670	"
3656 347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5671
347ea0413b68 use #copyReplaceAll:with: Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	5672	"Modified: / 18.7.1998 / 22:53:08 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5673	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5674
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5675	withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5676	"return a copy of myself without leading separators.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5677	Notice: this does remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5678	Returns an empty string, if the receiver consist only of whitespace."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5679
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5680	\|index\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5681
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5682	index := self indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5683	index ~~ 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5684	index == 1 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5685	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5686	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5687	^ self copyFrom:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5688	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5689	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5690
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5691	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5692	' foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5693	'foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5694	' foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5695	' ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5696	'foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5697	(' ' , Character tab asString , ' foo ') withoutLeadingSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5698	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5699	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5700
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5701	withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5702	"return a copy of the receiver with all $\ removed or
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5703	the receiver, if there are none."
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5704
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5705	\|in out c escape\|
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5706
5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5707	escape := self class matchEscapeCharacter.
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5708
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5709	in := self readStream.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5710	out := self species new writeStream.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5711	[in atEnd] whileFalse:[
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5712	c := in next.
5342 5010cea0ffd4 match-escape character definition in one place Claus Gittinger <cg@exept.de> parents: 5316 diff changeset	5713	c == escape ifTrue:[
4117 1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5714	in atEnd ifFalse:[
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5715	c := in next.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5716	]
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5717	].
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5718	out nextPut:c.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5719	].
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5720	^ out contents.
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5721
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5722	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5723	'*foo' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5724	'\*foo' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5725	'*foo' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5726	'\\*foo' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5727	'foo*' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5728	'foo\*' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5729	'foo\' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5730	'f\o\o' withoutMatchEscapes
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5731	"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5732
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5733	"Modified: 30.6.1997 / 13:40:23 / cg"
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5734	!
1b98af571a04 comments; Claus Gittinger <cg@exept.de> parents: 3987 diff changeset	5735
7247 1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5736	withoutPrefix:aString
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5737	"if the receiver startsWith aPrefix, return a copy without it.
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5738	Otherwise return the receiver"
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5739
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5740	(self startsWith:aString) ifTrue:[
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5741	^ self copyFrom:aString size + 1
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5742	].
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5743	^ self
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5744
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5745	"
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5746	'helloworld' withoutPrefix:'hello'
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5747	'helloworld' withoutPrefix:'foo'
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5748	"
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5749	!
1071f4c1fb75 +withoutPrefix: Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	5750
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5751	withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5752	"return a copy of myself without leading and trailing whitespace.
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5753	(but whiteSpace in-between is preserved)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5754	Whitespace is space, tab, newline, formfeed.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5755	Use withoutSpaces, if you want to remove spaces only."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5756
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5757	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5758	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5759	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5760
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5761	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5762	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5763	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5764
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5765	[(startIndex < endIndex) and:[(self at:startIndex) isSeparator]] whileTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5766	startIndex := startIndex + 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5767	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5768	[(endIndex > 1) and:[(self at:endIndex) isSeparator]] whileTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5769	endIndex := endIndex - 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5770	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5771	startIndex > endIndex ifTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5772	^ ''
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5773	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5774	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5775	^ self
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5776	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5777	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5778
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5779	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5780	' foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5781	' foo' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5782	'foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5783	' ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5784	(' foo' , Character tab asString , ' ') withoutSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5785	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5786	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5787
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5788	withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5789	"return a copy of myself without leading and trailing spaces.
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5790	(but spaces in-between are preserved)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5791	Notice: this does NOT remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5792	Use withoutSeparators for this."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5793
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5794	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5795	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5796	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5797
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5798	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5799	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5800	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5801
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5802	[(startIndex < endIndex) and:[(self at:startIndex) == Character space]] whileTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5803	startIndex := startIndex + 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5804	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5805	[(endIndex > 1) and:[(self at:endIndex) == Character space]] whileTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5806	endIndex := endIndex - 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5807	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5808	startIndex > endIndex ifTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5809	^ ''
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5810	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5811	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5812	^ self
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5813	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5814	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5815
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5816	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5817	' foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5818	'foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5819	' foo' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5820	' ' withoutSpaces
4156 3079a5a94617 comments Claus Gittinger <cg@exept.de> parents: 4117 diff changeset	5821	'a b' withoutSpaces
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5822	(' foo' , Character tab asString , ' ') withoutSpaces inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5823	"
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5824	!
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5825
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5826	withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5827	"return a copy of myself without trailing separators.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5828	Notice: this does remove tabs, newline or any other whitespace.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5829	Returns an empty string, if the receiver consist only of whitespace."
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5830
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5831	\|index\|
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5832
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5833	index := self size.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5834	[index ~~ 0] whileTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5835	(self at:index) isSeparator ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5836	^ self copyTo:index
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5837	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5838	index := index - 1
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5839	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5840	^ ''
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5841
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5842	"
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5843	' foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5844	'foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5845	' foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5846	' ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5847	'foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5848	(' ' , Character tab asString , ' foo ') withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5849	(' foo' , Character tab asString) withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	5850	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5851	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5852
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5853	!CharacterArray methodsFor:'substring searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5854
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5855	findString:subString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5856	"find a substring. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5857	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5858
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	5859	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5860
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5861	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5862	'hello world' findString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5863	'hello world' findString:'ole'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5864	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5865	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5866
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5867	findString:subString ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5868	"find a substring. If found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5869	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5870
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5871	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5872	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5873
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5874	findString:subString startingAt:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5875	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5876	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5877
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	5878	^ self indexOfSubCollection:subString startingAt:index ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5879
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5880	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5881	'hello yello' findString:'llo' startingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5882	'hello yello' findString:'llo' startingAt:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5883	'hello yello' findString:'llo' startingAt:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5884	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5885	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5886
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5887	findString:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5888	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5889	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5890
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5891	^ self indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5892	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5893
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5894	includesString:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5895	"return true, if a substring is contained in the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5896
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	5897	^ (self indexOfSubCollection:aString startingAt:1 ifAbsent:0) ~~ 0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5898
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5899	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5900	'hello world' includesString:'hel'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5901	'hello world' includesString:'rld'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5902	'hello world' includesString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5903	'hello world' includesString:'LLO'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5904	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5905	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5906
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5907	indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5908	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5909	if not found, return the result of evaluating exceptionBlock.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5910	This is a q&d hack - not very efficient"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5911
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5912	\|firstChar found
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5913	startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5914	subSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5915	mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5916	runIdx "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5917
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5918	subSize := subString size.
6122 a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5919	subSize == 0 ifTrue:[ "empty string matches"
a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5920	subString isString ifFalse:[
a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5921	self error:'non string argument' mayProceed:true.
a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5922	].
a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5923	^ index
a98958f1c85f handle non-string arg to indexOfSubString: Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	5924	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5925	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5926	firstChar := subString at:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5927	startIndex := self indexOf:firstChar startingAt:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5928	[startIndex == 0] whileFalse:[
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5929	runIdx := startIndex.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5930	found := true.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5931	1 to:subSize do:[:i \|
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5932	runIdx > mySize ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5933	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5934	] ifFalse:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5935	(subString at:i) ~= (self at:runIdx) ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5936	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5937	]
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5938	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5939	runIdx := runIdx + 1
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5940	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5941	found ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5942	^ startIndex
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5943	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5944	startIndex := self indexOf:firstChar startingAt:(startIndex + 1)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5945	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	5946	^ exceptionBlock value
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5947
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	5948	"Modified: 23.2.1996 / 15:35:15 / cg"
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5949	!
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5950
652 b2212c748f24 typo Claus Gittinger <cg@exept.de> parents: 651 diff changeset	5951	restAfter:keyword withoutSeparators:strip
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5952	"compare the left of the receiver with keyword,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5953	if it matches return the right.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5954	Finally, if strip is true, remove whiteSpace.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5955	This method is used to match and extract lines of the form:
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5956	something: rest
759 908363ce8a32 interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 735 diff changeset	5957	where we are interested in rest, but only if the receiver string
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5958	begins with something.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5959
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5960	You may wonder why such a specialized method exists here
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5961	- this is so common when processing mailboxes,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5962	rcs files, nntp/pop3 responses, that is was considered worth
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5963	a special method here to avoid having the code below a hundred
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5964	times in variuos places."
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5965
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5966	\|rest\|
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5967
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5968	(self startsWith:keyword) ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5969	rest := self copyFrom:(keyword size + 1).
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5970	strip ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5971	rest := rest withoutSeparators
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5972	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5973	^ rest
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5974	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5975	^ nil
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5976
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5977	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5978	'foo: hello world' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5979	'funny: something' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5980
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5981	'foo: hello world ' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5982	'foo: hello world ' restAfter:'foo:' withoutSeparators:false
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5983	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5984
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	5985	"Created: 25.11.1995 / 11:04:18 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	5986	! !
7b542c0bf1dd . claus parents: 327 diff changeset	5987
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	5988	!CharacterArray methodsFor:'testing'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	5989
1613 cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5990	continuesWith:aString startingAt:startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5991	"return true, if the receiver beginning at startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5992	contains the characters in aString."
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5993
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5994	\|sz "{Class: SmallInteger }"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5995	idx "{Class: SmallInteger }"\|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5996
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5997	sz := aString size.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5998	idx := startIndex.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	5999
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6000	1 to:sz do:[:i \|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6001	(self at:idx) ~~ (aString at:i) ifTrue:[^ false].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6002	idx := idx + 1
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6003	].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6004	^ true
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6005
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6006	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6007	'hello world' continuesWith:'world' startingAt:6
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6008	'hello world' continuesWith:'world' startingAt:7
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6009	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6010
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6011	"Created: 12.5.1996 / 15:46:40 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6012	"Modified: 26.7.1996 / 19:08:36 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6013	!
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	6014
64 af7aeb79b25e Initial revision claus parents: diff changeset	6015	countWords
af7aeb79b25e Initial revision claus parents: diff changeset	6016	"return the number of words, which are separated by separators"
af7aeb79b25e Initial revision claus parents: diff changeset	6017
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	6018	\|tally "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	6019	start "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	6020	mySize "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	6021	stop ch\|
64 af7aeb79b25e Initial revision claus parents: diff changeset	6022
af7aeb79b25e Initial revision claus parents: diff changeset	6023	tally := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	6024	start := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	6025	mySize := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	6026	[start <= mySize] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6027	ch := self at:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6028	ch isSeparator ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6029	start := start + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6030	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6031	stop := self indexOfSeparatorStartingAt:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6032	(stop == 0) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6033	stop := mySize + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6034	].
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6035	tally := tally + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6036	start := stop
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6037	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	6038	].
af7aeb79b25e Initial revision claus parents: diff changeset	6039	^ tally
af7aeb79b25e Initial revision claus parents: diff changeset	6040
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	6041	"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	6042	'hello world isnt this nice' countWords'
0c73b48551ac * empty log message * claus parents: 82 diff changeset	6043	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6044	!
af7aeb79b25e Initial revision claus parents: diff changeset	6045
7958 fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6046	endsWith:aStringOrCharacter
fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6047	"return true, if the receiver ends with something, aStringOrCharacter."
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6048
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6049	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6050
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6051	(s := self string) ~~ self ifTrue:[
7958 fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6052	^ s endsWith:aStringOrCharacter
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6053	].
7958 fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6054	aStringOrCharacter isCharacter ifTrue:[
fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6055	^ self last = aStringOrCharacter
fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6056	].
fba655ee2aa2 endsWith: fixed for character argument Claus Gittinger <cg@exept.de> parents: 7950 diff changeset	6057	^ super endsWith:aStringOrCharacter
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6058
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6059	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6060	'hello world' endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6061	'hello world' asText allBold endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6062	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6063
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6064	"Modified: 12.5.1996 / 15:49:18 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6065	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6066
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6067	isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6068	"return true, if the receiver is some alphanumeric word;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6069	i.e. consists of a letter followed by letters or digits."
64 af7aeb79b25e Initial revision claus parents: diff changeset	6070
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6071	self size == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6072	"mhmh what is this ?"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6073	^ false
64 af7aeb79b25e Initial revision claus parents: diff changeset	6074	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6075	(self at:1) isLetter ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6076	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6077	char isLetterOrDigit ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6078	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6079	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	6080
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	6081	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6082	'helloWorld' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6083	'foo1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6084	'f1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6085	'1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6086	'+' isAlphaNumeric
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	6087	"
6c38ca59927f * empty log message * claus parents: 68 diff changeset	6088	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	6089
7482 e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6090	isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6091	"treating the receiver as a message selector, return true if its a binary selector"
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6092
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6093	\|binopChars\|
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6094
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6095	(self size > 3) ifTrue:[^ false].
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6096
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6097	binopChars := Scanner binarySelectorCharacters.
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6098	^ (self conform:[:char \| (binopChars includes:char)])
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6099
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6100	"
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6101	'foo:bar:' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6102	#foo:bar: isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6103	'hello' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6104	'+' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6105	'\|' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6106	'?' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6107	':' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6108	'a:' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6109	'->' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6110	'<->' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6111	'::' isBinarySelector
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6112	"
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6113
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6114	"Modified: 4.1.1997 / 14:16:14 / cg"
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6115	!
e73c296fa7dc + isBinarySelector Claus Gittinger <cg@exept.de> parents: 7423 diff changeset	6116
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6117	isBlank
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6118	"return true, if the receiver contains spaces only"
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	6119
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6120	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6121	char ~~ Character space ifTrue:[^ false].
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	6122	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6123	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	6124	!
af7aeb79b25e Initial revision claus parents: diff changeset	6125
af7aeb79b25e Initial revision claus parents: diff changeset	6126	levenshteinTo:aString
af7aeb79b25e Initial revision claus parents: diff changeset	6127	"return the levenshtein distance to the argument, aString;
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6128	this value corresponds to the number of replacements that have to be
64 af7aeb79b25e Initial revision claus parents: diff changeset	6129	made to get aString from the receiver.
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6130	See IEEE transactions on Computers 1976 Pg 172 ff."
64 af7aeb79b25e Initial revision claus parents: diff changeset	6131
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	6132	"
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6133	in the following, we assume that ommiting a character
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	6134	is less of an error than inserting an extra character.
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6135	Therefore the different insertion (i) and deletion (d) values.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6136	s: substitution weight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6137	c: case weight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6138	i: insertion of extra character weight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6139	d: delete of a character weight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6140	"
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6141
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6142	^ self levenshteinTo:aString s:4 k:2 c:1 i:2 d:6
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6143
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6144	"
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6145	'computer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6146	'cOmputer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6147	'cOmpuTer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6148	'cimputer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6149	'cumputer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6150
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6151	'cmputer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6152	'coomputer' levenshteinTo:'computer'
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6153
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6154	'ocmprt' levenshteinTo:'computer'
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6155	'computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6156	'ocmputer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6157	'cmputer' levenshteinTo:'computer'
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	6158	'computer' levenshteinTo:'cmputer'
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6159	'Computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6160	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6161	!
af7aeb79b25e Initial revision claus parents: diff changeset	6162
af7aeb79b25e Initial revision claus parents: diff changeset	6163	levenshteinTo:aString s:substWeight c:caseWeight i:insrtWeight d:deleteWeight
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6164	"parametrized levenshtein.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6165	return the levenshtein distance to the argument, aString;
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6166	this value corrensponds to the number of replacements that have to be
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6167	made to get aString from the receiver.
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6168	The arguments are the costs for
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6169	substitution, case-change, insertion and deletion of a character.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6170	See IEEE transactions on Computers 1976 Pg 172 ff"
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6171
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6172	^ self
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6173	levenshteinTo:aString
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6174	s:substWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6175	k:substWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6176	c:caseWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6177	i:insrtWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6178	d:deleteWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6179	!
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6180
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6181	levenshteinTo:aString s:substWeight k:kbdTypoWeight c:caseWeight i:insrtWeight d:deleteWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6182	"parametrized levenshtein.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6183	return the levenshtein distance to the argument, aString;
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6184	this value corrensponds to the number of replacements that have to be
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6185	made to get aString from the receiver.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6186	The arguments are the costs for
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6187	s:substitution,
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6188	k:keyboard type (substitution),
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6189	c:case-change,
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6190	i:insertion
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6191	d:deletion
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6192	of a character.
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6193	See IEEE transactions on Computers 1976 Pg 172 ff"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6194
af7aeb79b25e Initial revision claus parents: diff changeset	6195	\|d "delta matrix"
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6196	len1 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6197	len2 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6198	dim "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6199	prevRow row col
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	6200	dimPlus1 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6201	min pp c1 c2\|
af7aeb79b25e Initial revision claus parents: diff changeset	6202
af7aeb79b25e Initial revision claus parents: diff changeset	6203	len1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	6204	len2 := aString size.
af7aeb79b25e Initial revision claus parents: diff changeset	6205
af7aeb79b25e Initial revision claus parents: diff changeset	6206	"create the help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	6207
af7aeb79b25e Initial revision claus parents: diff changeset	6208	dim := len1 max:len2.
af7aeb79b25e Initial revision claus parents: diff changeset	6209	dimPlus1 := dim + 1.
af7aeb79b25e Initial revision claus parents: diff changeset	6210
af7aeb79b25e Initial revision claus parents: diff changeset	6211	d := Array new:dimPlus1.
af7aeb79b25e Initial revision claus parents: diff changeset	6212	1 to:dimPlus1 do:[:i \|
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6213	d at:i put:(Array new:dimPlus1)
64 af7aeb79b25e Initial revision claus parents: diff changeset	6214	].
af7aeb79b25e Initial revision claus parents: diff changeset	6215
af7aeb79b25e Initial revision claus parents: diff changeset	6216	"init help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	6217
af7aeb79b25e Initial revision claus parents: diff changeset	6218	(d at:1) at:1 put:0.
af7aeb79b25e Initial revision claus parents: diff changeset	6219	row := d at:1.
af7aeb79b25e Initial revision claus parents: diff changeset	6220	1 to:dim do:[:j \|
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6221	row at:(j + 1) put:( (row at:j) + insrtWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	6222	].
af7aeb79b25e Initial revision claus parents: diff changeset	6223
af7aeb79b25e Initial revision claus parents: diff changeset	6224	1 to:dim do:[:i \|
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6225	(d at:(i + 1)) at:1 put:( ((d at:i) at:1) + deleteWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	6226	].
af7aeb79b25e Initial revision claus parents: diff changeset	6227
af7aeb79b25e Initial revision claus parents: diff changeset	6228	1 to:len1 do:[:i \|
7318 cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6229	c1 := self at:i.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6230	1 to:len2 do:[:j \|
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6231	c2 := aString at:j.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6232	(c1 == c2) ifTrue:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6233	pp := 0
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6234	] ifFalse:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6235	(c1 asLowercase == c2 asLowercase) ifTrue:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6236	pp := caseWeight
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6237	] ifFalse:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6238	pp := substWeight.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6239	substWeight ~~ kbdTypoWeight ifTrue:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6240	(DoWhatIMeanSupport isKey:c1 asLowercase nextTo:c2 asLowercase) ifTrue:[
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6241	pp := kbdTypoWeight.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6242	].
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6243	].
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6244	]
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6245	].
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6246	prevRow := d at:i.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6247	row := d at:(i + 1).
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6248	col := j + 1.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6249	min := (prevRow at:j) + pp.
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6250	min := min min:( (row at:j) + insrtWeight).
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6251	min := min min:( (prevRow at:col) + deleteWeight).
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6252	row at:col put: min
cc7a8f38f696 better levenshtein Claus Gittinger <cg@exept.de> parents: 7313 diff changeset	6253	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	6254	].
af7aeb79b25e Initial revision claus parents: diff changeset	6255
af7aeb79b25e Initial revision claus parents: diff changeset	6256	^ (d at:(len1 + 1)) at:(len2 + 1)
af7aeb79b25e Initial revision claus parents: diff changeset	6257	!
af7aeb79b25e Initial revision claus parents: diff changeset	6258
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6259	numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6260	"treating the receiver as a message selector, return how many arguments would it take"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6261
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6262	\|binopChars firstChar\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6263
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6264	(self size > 2) ifFalse:[
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6265	binopChars := Scanner binarySelectorCharacters.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6266	firstChar := self at:1.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6267
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6268	(self size == 1) ifTrue:[
7641 074649f9fe9e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 7569 diff changeset	6269	(binopChars includes:firstChar) ifFalse:[^ 0].
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6270	^ 1
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6271	].
7641 074649f9fe9e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 7569 diff changeset	6272	(binopChars includes:firstChar) ifTrue:[
074649f9fe9e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 7569 diff changeset	6273	(binopChars includes:(self at:2)) ifTrue:[^ 1]
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6274	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6275	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6276	^ self occurrencesOf:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6277
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6278	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6279	'foo:bar:' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6280	#foo:bar: numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6281	'hello' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6282	'+' numArgs
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6283	'\|' numArgs
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6284	'?' numArgs
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6285	"
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6286
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	6287	"Modified: 4.1.1997 / 14:16:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6288	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6289
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6290	partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6291	"treat the receiver as a message selector, return a collection of parts."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6292
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6293	\|idx1 "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6294	coll idx2 sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6295
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6296	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6297	idx1 := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6298	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6299	[true] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6300	idx2 := self indexOf:$: startingAt:idx1 + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6301	(idx2 == 0 or:[idx2 == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6302	coll add:(self copyFrom:idx1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6303	^ coll
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6304	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6305	coll add:(self copyFrom:idx1 to:idx2).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6306	idx1 := idx2 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6307	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6308
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6309	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6310	'foo:bar:' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6311	#foo:bar: partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6312	'hello' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6313	'+' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6314	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6315	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	6316
64 af7aeb79b25e Initial revision claus parents: diff changeset	6317	spellAgainst: aString
af7aeb79b25e Initial revision claus parents: diff changeset	6318	"return an integer between 0 and 100 indicating how similar
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6319	the argument is to the receiver. No case conversion is done.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6320	This algorithm is much simpler (but also less exact) than the
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6321	levenshtein distance. Experiment which is better for your
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6322	application."
64 af7aeb79b25e Initial revision claus parents: diff changeset	6323
af7aeb79b25e Initial revision claus parents: diff changeset	6324	\| i1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	6325	i2 "{ Class: SmallInteger }"
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6326	next1 "{ Class: SmallInteger }"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6327	next2 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6328	size1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	6329	size2 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	6330	score "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	6331	maxLen "{ Class: SmallInteger }" \|
af7aeb79b25e Initial revision claus parents: diff changeset	6332
af7aeb79b25e Initial revision claus parents: diff changeset	6333	size1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	6334	size2 := aString size.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6335	maxLen := size1 max:size2.
64 af7aeb79b25e Initial revision claus parents: diff changeset	6336	score := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	6337	i1 := i2 := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	6338	[i1 <= size1 and: [i2 <= size2]] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6339	next1 := i1 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6340	next2 := i2 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6341	(self at:i1) == (aString at:i2) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6342	score := score+1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6343	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6344	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6345	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6346	(i2 < size2 and: [(self at:i1) == (aString at:next2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6347	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6348	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6349	(i1 < size1 and: [(self at:next1) == (aString at:i2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6350	i1 := next1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6351	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6352	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6353	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6354	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6355	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6356	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	6357	].
af7aeb79b25e Initial revision claus parents: diff changeset	6358
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	6359	score == maxLen ifTrue: [^ 100].
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6360	^ 100 * score // maxLen
64 af7aeb79b25e Initial revision claus parents: diff changeset	6361
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6362	"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6363	'Smalltalk' spellAgainst: 'Smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6364	'Smalltalk' spellAgainst: 'smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6365	'Smalltalk' spellAgainst: 'smalltalk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6366	'Smalltalk' spellAgainst: 'smalltlk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6367	'Smalltalk' spellAgainst: 'Smalltolk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	6368	"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6369	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6370
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6371	startsWith:aString
4389 3655a0fea430 definite (true) return for zero-length arg in #startsWith: Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	6372	"return true, if the receiver starts with something, aString.
3655a0fea430 definite (true) return for zero-length arg in #startsWith: Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	6373	If the argument is empty, true is returned."
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6374
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6375	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6376
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6377	(s := self string) ~~ self ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6378	^ s startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6379	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6380	^ super startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6381
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6382	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6383	'hello world' startsWith:'hello'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6384	'hello world' asText allBold startsWith:'hello'
4389 3655a0fea430 definite (true) return for zero-length arg in #startsWith: Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	6385	'hello world' asText allBold startsWith:''
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6386	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6387
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6388	"Created: 12.5.1996 / 15:46:40 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	6389	"Modified: 12.5.1996 / 15:49:24 / cg"
64 af7aeb79b25e Initial revision claus parents: diff changeset	6390	! !
af7aeb79b25e Initial revision claus parents: diff changeset	6391
4662 bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6392	!CharacterArray methodsFor:'tracing'!
bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6393
4682 4158042a9c8c * empty log message * Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	6394	traceInto:aRequestor level:level from:referrer
4662 bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6395	"double dispatch into tracer, passing my type implicitely in the selector"
bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6396
4682 4158042a9c8c * empty log message * Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	6397	^ aRequestor traceCharacterArray:self level:level from:referrer
4662 bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6398
bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6399
bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6400	! !
bbddd04872e1 Added tracing support. Claus Gittinger <cg@exept.de> parents: 4429 diff changeset	6401
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	6402	!CharacterArray class methodsFor:'documentation'!
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	6403
2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	6404	version
8083 e3423079cee1 checkin from browser Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	6405	^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.296 2004-03-05 17:33:42 cg Exp $'
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	6406	! !
6809 72fee17c14b1 utf8 encoding fixed; Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	6407
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6408	CharacterArray initialize!

author	Claus Gittinger <cg@exept.de>
	Fri, 05 Mar 2004 18:33:42 +0100
changeset 8083	e3423079cee1
parent 8049	ccd0e8f26439
child 8102	e0537422e2d3
permissions	-rw-r--r--