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

64 af7aeb79b25e Initial revision claus parents: diff changeset	1	"
af7aeb79b25e Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3	All Rights Reserved
64 af7aeb79b25e Initial revision claus parents: diff changeset	4
af7aeb79b25e Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
af7aeb79b25e Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
af7aeb79b25e Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
af7aeb79b25e Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
af7aeb79b25e Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
af7aeb79b25e Initial revision claus parents: diff changeset	10	hereby transferred.
af7aeb79b25e Initial revision claus parents: diff changeset	11	"
af7aeb79b25e Initial revision claus parents: diff changeset	12
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	13	ByteArray subclass:#CharacterArray
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	14	instanceVariableNames:''
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	15	classVariableNames:'PreviousMatch DecoderTables EncoderTables DecodingFailedSignal
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	16	EncodingFailedSignal'
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	17	poolDictionaries:''
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	18	category:'Collections-Text'
64 af7aeb79b25e Initial revision claus parents: diff changeset	19	!
af7aeb79b25e Initial revision claus parents: diff changeset	20
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	21	!CharacterArray class methodsFor:'documentation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	22
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	23	copyright
0147b4f725ae * empty log message * claus parents: 77 diff changeset	24	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	25	COPYRIGHT (c) 1994 by Claus Gittinger
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	26	All Rights Reserved
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	27
0147b4f725ae * empty log message * claus parents: 77 diff changeset	28	This software is furnished under a license and may be used
0147b4f725ae * empty log message * claus parents: 77 diff changeset	29	only in accordance with the terms of that license and with the
0147b4f725ae * empty log message * claus parents: 77 diff changeset	30	inclusion of the above copyright notice. This software may not
0147b4f725ae * empty log message * claus parents: 77 diff changeset	31	be provided or otherwise made available to, or used by, any
0147b4f725ae * empty log message * claus parents: 77 diff changeset	32	other person. No title to or ownership of the software is
0147b4f725ae * empty log message * claus parents: 77 diff changeset	33	hereby transferred.
0147b4f725ae * empty log message * claus parents: 77 diff changeset	34	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	35	!
0147b4f725ae * empty log message * claus parents: 77 diff changeset	36
64 af7aeb79b25e Initial revision claus parents: diff changeset	37	documentation
af7aeb79b25e Initial revision claus parents: diff changeset	38	"
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	39	CharacterArray is a superclass for all kinds of Strings (i.e.
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	40	(singleByte-)Strings, TwoByteStrings and whatever comes in the future.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	41
2537 9398b135cec4 comment Claus Gittinger <cg@exept.de> parents: 2520 diff changeset	42	This class is abstract, meaning that there are no instances of it.
9398b135cec4 comment Claus Gittinger <cg@exept.de> parents: 2520 diff changeset	43	All this class does is provide common protocol for concrete subclasses.
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	44
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	45	[author:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	46	Claus Gittinger
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	47
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	48	[see also:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	49	String TwoByteString
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	50	StringCollection
64 af7aeb79b25e Initial revision claus parents: diff changeset	51	"
af7aeb79b25e Initial revision claus parents: diff changeset	52	! !
af7aeb79b25e Initial revision claus parents: diff changeset	53
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	54	!CharacterArray class methodsFor:'initialization'!
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	55
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	56	initialize
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	57	DecodingFailedSignal := Signal new mayProceed:true.
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	58	DecodingFailedSignal notifierString:'decoding failure'.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	59	EncodingFailedSignal := QuerySignal new mayProceed:true.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	60	EncodingFailedSignal notifierString:'encoding failure'.
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	61
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	62	"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	63	CharacterArray initialize
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	64	"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	65
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	66	"Modified: 30.6.1997 / 19:18:16 / cg"
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	67	! !
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	68
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	69	!CharacterArray class methodsFor:'instance creation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	70
af7aeb79b25e Initial revision claus parents: diff changeset	71	basicNew
af7aeb79b25e Initial revision claus parents: diff changeset	72	"return a new empty string"
af7aeb79b25e Initial revision claus parents: diff changeset	73
af7aeb79b25e Initial revision claus parents: diff changeset	74	^ self basicNew:0
af7aeb79b25e Initial revision claus parents: diff changeset	75	!
af7aeb79b25e Initial revision claus parents: diff changeset	76
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	77	fromBytes:aByteCollection
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	78	"return an instance of the receiver class,
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	79	taking untranslated bytes from the argument, aByteCollection.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	80	Only useful, when reading twoByteStrings from external sources."
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	81
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	82	\|mySize nBytes newString dstIdx\|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	83
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	84	nBytes := aByteCollection size.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	85	mySize := self basicNew bitsPerCharacter.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	86	mySize == 16 ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	87	newString := self basicNew:(nBytes // 2).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	88	dstIdx := 1.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	89	aByteCollection pairWiseDo:[:hi :lo \|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	90	newString at:dstIdx put:(Character value:(hi bitShift:8)+lo).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	91	dstIdx := dstIdx + 1
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	92	].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	93	^ newString.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	94	].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	95
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	96	^ (self basicNew:nBytes) replaceFrom:1 with:aByteCollection
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	97
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	98	"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	99	TwoByteString fromBytes:#[16r21 16r21]
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	100	"
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	"Modified: 30.6.1997 / 20:08:37 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	103	!
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	104
64 af7aeb79b25e Initial revision claus parents: diff changeset	105	fromString:aString
af7aeb79b25e Initial revision claus parents: diff changeset	106	"return a copy of the argument, aString"
af7aeb79b25e Initial revision claus parents: diff changeset	107
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	108	^ (self basicNew:(aString size)) replaceFrom:1 with:aString
59faa75185ba * empty log message * claus parents: 64 diff changeset	109
59faa75185ba * empty log message * claus parents: 64 diff changeset	110	"TwoByteString fromString:'hello'"
581 8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	111	!
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	112
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	113	fromStringCollection:aCollectionOfStrings
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	114	"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	115
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	116	^ self fromStringCollection:aCollectionOfStrings separatedBy:''
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	117
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	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this')
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	120	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	121
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	122	"Created: 20.11.1995 / 15:26:59 / cg"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	123	!
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	fromStringCollection:aCollectionOfStrings separatedBy:aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	126	"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	127
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	128	\|newString first\|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	129
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	130	newString := ''.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	131	first := true.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	132	aCollectionOfStrings do:[:s \|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	133	first ifFalse:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	134	newString := newString , aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	135	] ifTrue:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	136	first := false
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	137	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	138	newString := newString , s
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	139	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	140	^ newString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	141
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	142	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	143	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this') separatedBy:' '
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
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	146	"Created: 20.11.1995 / 15:32:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	147	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	148
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	149	new
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	150	"return a new empty string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	151
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	152	^ self basicNew:0
64 af7aeb79b25e Initial revision claus parents: diff changeset	153	! !
af7aeb79b25e Initial revision claus parents: diff changeset	154
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	155	!CharacterArray class methodsFor:'Signal constants'!
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	156
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	157	decodingFailedSignal
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	158	"return the signal raise when decoding of a string is not possible
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	159	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	160	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	161	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	162
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	163	^ DecodingFailedSignal
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	164
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	165	"Modified: 28.6.1997 / 20:09:35 / cg"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	166	"Created: 28.6.1997 / 20:09:55 / cg"
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	167	! !
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	168
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	169	!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	170
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	171	lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	172	"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	173
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	174	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	175
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	176	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	177	CharacterArray lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	178	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	179
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	180	"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	181	"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	182	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	183
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	184	!CharacterArray class methodsFor:'code tables'!
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	185
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	186	classForEncoding:encodingSymbol
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	187	"return a class capable of representing text encoded
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	188	by encodingSymbol"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	189
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	190	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	191	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	192	encodingSymbol == #gb ifTrue:[^ GBEncodedString].
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	193	encodingSymbol == #ksc ifTrue:[^ KSCEncodedString].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	194	encodingSymbol == #unicode ifTrue:[^ UnicodeString].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	195
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	196	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	197	"/ 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	198	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	199	^ String
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	200
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	201	"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	202	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	203
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	204	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	205	"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	206	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	207	This is an experimental interface - unfinished"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	208
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	209	\|table unrepresentableCharacterCode x80Table\|
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	210
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	211	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	212	table := DecoderTables at:encoding ifAbsent:nil.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	213	table notNil ifTrue:[^ table].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	214	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	215	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	216	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	217
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	218
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	219	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	220
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	221	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	222	"/ setup as identityTranslation
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	223	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	224	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	225
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	226	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	227	"/ mac -> iso8859
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	228	"/
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	229	"/ 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	230	"/ - 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	231	"/
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	232	"/ A0 (dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	233	"/ A5 (dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	234	"/ AA (tm - trademark)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	235	"/ AD (not equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	236	"/ B0 (infinity)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	237	"/ B3 (less-double-equal <=)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	238	"/ B4 (greater-equal >-)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	239	"/ B6 (math lowercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	240	"/ B7 (math sum)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	241	"/ B8 (math uppercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	242	"/ B9 (math lowercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	243	"/ BA (math integral)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	244	"/ BD (math omega)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	245	"/ C3 (math union)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	246	"/ C4 (ext latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	247	"/ C5 (math almost equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	248	"/ C6 (math uppercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	249	"/ C9 (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	250	"/ CE (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	251	"/ CF (oe ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	252	"/ D1 (hyphen)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	253	"/ D2 (opening top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	254	"/ D3 (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	255	"/ D4 (opening top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	256	"/ D5 (closing top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	257	"/ D7 (geometric: )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	258	"/ D9 (uppercase Y diacrit )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	259	"/ DA (slash2 )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	260	"/ DC (single oldStyle opening quote (<) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	261	"/ DD (single oldStyle closing quote (>) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	262	"/ DE (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	263	"/ DF (? )
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	264	"/ E0 (double dagger )
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	265	"/ E2 (opening bottom quote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	266	"/ E3 (opening bottom dquote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	267	"/ F0 (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	268	"/ F5 (latin l )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	269	"/ F6 (diacrit circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	270	"/ F7 (diacrit tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	271	"/ F8 (diacrit top line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	272	"/ F9 (diacrit inverse circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	273	"/ FA (diacrit dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	274	"/ FB (diacrit ring)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	275	"/ FC (diacrit cedille left)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	276	"/ FD (diacrit dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	277	"/ FE (diacrit cedille right)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	278	"/ FF (diacrit circumflex2 ?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	279	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	280	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	281	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	282	#( 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	283	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	284
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	285	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	286	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	287
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	288	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	289	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	290
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	291	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	292	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	293
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	294	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	295	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	296
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	297	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	298	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	299
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	300	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	301	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	302
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	303	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	304	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	305	).
657 449935f15b9e * empty log message * Claus Gittinger <cg@exept.de> parents: 652 diff changeset	306	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	307
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	308	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	309	"/ next -> iso8859
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	310	"/
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	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	314	"/ A4 (diacrit /)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	315	"/ A9 (diacrit quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	316	"/ AA (top opening dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	317	"/ AC (single oldStyle opening quote (<))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	318	"/ AD (single oldStyle closing quote (>))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	319	"/ AE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	320	"/ AF (?)
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	321	"/ B2 (dagger)
b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	322	"/ B3 (double dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	323	"/ B7 (enter dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	324	"/ B8 (opening bottom quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	325	"/ B9 (opening bottom dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	326	"/ BA (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	327	"/ BC (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	328	"/ BD (per-mille)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	329	"/ C0 (subscript 1)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	330	"/ C1 (accent grave)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	331	"/ C2 (accent degu)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	332	"/ C3 (accent circonflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	333	"/ C4 (accent tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	334	"/ C5 (accent line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	335	"/ C6 (accent circonflex reverse)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	336	"/ C7 (accent dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	337	"/ C8 (accent dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	338	"/ D0 (hline)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	339	"/ 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	340	"/ EA (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	341	"/ F5 (latin l)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	342	"/ 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	343	"/ FE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	344	"/ FF (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	345	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	346	encoding == #next ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	347	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	348
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	349	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	350	#( 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	351	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	352
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	353	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	354	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	355
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	356	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	357	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	358
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	359	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	360	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	361
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	362	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	363	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	364
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	365	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	366	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	367
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	368	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	369	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	370
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	371	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	372	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	373	).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	374	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	375
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	376	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	377	"/ 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	378	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	379	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	380	"/ 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	381	"/ - 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	382	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	383	"/ 9E (pesetas)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	384	"/ 9F (latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	385	"/ A9 (technical not)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	386	"/ B0 - BF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	387	"/ C0 - CF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	388	"/ D0 - DF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	389	"/ E0 (greek alpha)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	390	"/ E2 - E5 (greek)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	391	"/ E7 - EC (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	392	"/ EE - EF (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	393	"/ F0 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	394	"/ F2 - F5 (math & technical)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	395	"/ F7 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	396	"/ F9 (center dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	397	"/ FB (math sqrt)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	398	"/ FC (super n)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	399	"/ 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	400	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	401	encoding == #msdos437 ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	402	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	403
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	404	x80Table :=
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	405	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	406	"/ 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	407	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	408	"/ 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	409	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	410	"/ 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	411	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	412	"/ 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	413	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	414
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	415	"/ 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	416	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	417	"/ 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	418	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	419
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	420	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	421	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	422	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	423
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	424	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	425	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	426	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	427
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	428	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	429	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	430	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	431
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	432	"/ alpha beta ... mu
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	433	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	434	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	435
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	436	"/ 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	437	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	438	"/ 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	439	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	440	).
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	441	].
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	442
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	443
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	444	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	445	"/ msdos (codePage 850 [=latin1]) -> iso8859
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	446	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	447
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	448	(encoding == #msdos850
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	449	or:[encoding == #msdos]) ifTrue:[
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	450	unrepresentableCharacterCode := 16rBF.
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	451	x80Table :=
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	452	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	453	"/ 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	454	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	455
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	456	"/ 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	457	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	458
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	459	"/ 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	460	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	461	"/ 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	462	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	463
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	464	"/ 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	465	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	466	"/ 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	467	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	468
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	469	"/ Aacute Acirc Agrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	470	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	471	"/ cpyr cent Yen
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	472	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	473
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	474	"/ atilde Atilde
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	475	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	476	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	477	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	478
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	479
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	480	"/ Ecirc Euml Egrave Iacute Icirc
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	481	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	482	"/ Iuml Igrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	483	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	484
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	485	"/ Oacute sz Ocirc Ograve otilde Otilde mu
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	486	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	487	"/ Uacute Ucirc Ugrav yacute Yacute '
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	488	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	489
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	490	"/ plusmin = 3/4 para sect div "/ f0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	491	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	492
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	493	"/ sup0 sup3 sup2
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	494	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	495	).
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	496	].
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	497	"/ more encodings needed here ....
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	498
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	499
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	500	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	501	"/ 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	502	"/ 0x80..0xFF characters
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	503	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	504	x80Table notNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	505	x80Table keysAndValuesDo:[:idx :repl \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	506	\|ch\|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	507
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	508	repl == 16rFFFF ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	509	ch := unrepresentableCharacterCode
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	510	] ifFalse:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	511	ch := repl
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	512	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	513	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	514	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	515	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	516
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	517	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	518	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	519
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	520	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	521	DecoderTables := nil
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	522	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	523
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	524	"Created: 20.10.1995 / 23:04:43 / cg"
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	525	"Modified: 31.10.1996 / 16:45:43 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	526	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	527
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	528	defaultRomanCharacterValue
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	529	"return the characterValue for unmappable roman characters
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	530	(only applies to jis, gb, ksc etc.)"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	531
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	532	\|romans\|
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	533
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	534	romans := self romanTable.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	535	romans isNil ifTrue:[^ 16r20].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	536	^ romans at:1. "/ space characters xlation
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	537
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	538	"Created: 30.6.1997 / 18:13:24 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	539	"Modified: 30.6.1997 / 18:19:26 / cg"
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	540	!
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	541
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	542	encoderTableFor:encoding
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	543	"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	544	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	545	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	546
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	547	\|table decoderTable unrepresentableCharacterCode
1669 4951596746f7 comments & code cleanup Claus Gittinger <cg@exept.de> parents: 1613 diff changeset	548	unrepresentableISOCharacterCode\|
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	549
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	550	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	551	table := EncoderTables at:encoding ifAbsent:nil.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	552	table notNil ifTrue:[^ table].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	553	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	554	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	555	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	556
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	557	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	558	"/ iso8859 -> mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	559	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	560	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	561	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	562	unrepresentableCharacterCode := 16rFF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	563	unrepresentableISOCharacterCode := 16rBF.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	564	].
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	565
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	566	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	567	"/ iso8859 -> msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	568	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	569	encoding == #msdos ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	570	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	571	unrepresentableCharacterCode := 16rFF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	572	unrepresentableISOCharacterCode := 16rBF.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	573	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	574
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	575	"/ 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	576
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	577	decoderTable notNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	578	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	579
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	580	0 to:16rFF do:[:code \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	581	\|isoCode destIdex\|
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	isoCode := decoderTable at:(code+1).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	584	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	585	]
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	586	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	587
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	588	table isNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	589	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	590	"/ setup as identityTranslation
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	table := (0 to:255) asByteArray.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	593	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	594
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	595	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	596	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	597
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	598	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	599	EncoderTables := nil
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	600	DecoderTables := nil
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	601	CharacterArray decoderTableFor:#mac
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	602	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	603	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	604
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	605	"Created: 22.2.1996 / 16:17:58 / cg"
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	606	"Modified: 23.4.1996 / 20:20:42 / cg"
991 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
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	609	romanTable
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	610	^ nil
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	611
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	612	"Created: 30.6.1997 / 15:13:52 / cg"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	613	!
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	614
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	615	supportedEncodings
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	616	"return an array containing symbolic names of supported encodings.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	617	These are internally visible supported ones only"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	618
2452 7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	619	^ self supportedExternalEncodings at:2.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	620
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	621	"Modified: 30.6.1997 / 14:38:25 / cg"
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	622	!
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	623
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	624	supportedExternalEncodings
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	625	"return an array of two arrays containing the names of supported
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	626	encodings which are supported for external resources (i.e. files).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	627	The first array contains user-readable strings (descriptions),
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	628	the second contains the internally used symbolic names.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	629	More than one external name may be mapped onto the same symbolic."
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	630
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	631	^ #(
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	632	(
2250 4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	633	'iso8859 (ansi)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	634	'iso8859-1 (latin1)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	635	'iso8859-2 (latin2)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	636	'iso8859-3 (latin3)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	637	'iso8859-4 (latin4)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	638	'iso8859-5 (cyrillic)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	639	'iso8859-6 (arabic)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	640	'iso8859-7 (greek)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	641	'iso8859-8 (hebrew)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	642	'msdos US (codepage 437)'
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	643	'msdos Latin1 (codepage 850)'
2250 4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	644	'macintosh (8 bit)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	645	'NEXT (8 bit)'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	646	nil
2250 4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	647	'EUC (extended unix code japanese)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	648	'JIS7 (jis 7bit escape codes japanese)'
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	649	'SJIS (shift jis 8bit codes japanese)'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	650	nil
2250 4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	651	'GB (mainland china)'
4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	652	'BIG5 (taiwan)'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	653	"/ 'KSC (korean)'
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	654	)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	655	(
2452 7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	656	#'iso8859'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	657	#'iso8859-1' "/ latin1
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	658	#'iso8859-2' "/ latin2
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	659	#'iso8859-3' "/ latin3
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	660	#'iso8859-4' "/ latin4
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	661	#'iso8859-5' "/ cyrillic
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	662	#'iso8859-6' "/ arabic
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	663	#'iso8859-7' "/ greek
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	664	#'iso8859-8' "/ hebrew
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	665	#'msdos437'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	666	#'msdos850'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	667	#'mac'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	668	#'next'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	669	nil
2452 7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	670	#'euc'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	671	#'jis7'
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	672	#'sjis'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	673	nil
2452 7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	674	#'gb'
7262e3b2c20a fixed supportedExternalEncodings Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	675	#'big5'
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	676	"/ #'ksc' "/ korean
2250 4b7a93d96b3f checkin from browser Claus Gittinger <cg@exept.de> parents: 2124 diff changeset	677	)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	678	)
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	"Created: 22.4.1996 / 14:39:39 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	681	"Modified: 30.6.1997 / 14:42:10 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	682	! !
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	683
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	684	!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	685
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	686	decodeFromBIG5:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	687	"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	688	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	689
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	690	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	691
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	692	\|newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	693
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	694	newString := BIG5EncodedString new:aString size.
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	695	^ self decodeFromBIG5_or_GB:aString into:newString.
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	696
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	697	"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	698	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	699
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	700	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	701	"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	702	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	703
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	704	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	705
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	706	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	707	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	708	srcIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	709	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	710	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	711	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	712	c\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	713
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	714	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	715	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	716	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	717	srcIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	718
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	719	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	720	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	721	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	722	"/ characters below 16rA1 are left untranslated
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	723	"/ (romans).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	724	"/ 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	725	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	726	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	727	b1 >= 16rA1 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	728	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	729	srcIdx <= sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	730	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	731	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	732	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	733	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	734	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	735
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	736	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	737	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	738	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	739
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	740	srcIdx > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	741	^ 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	742	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	743	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	744	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	745	^ a16BitString
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	"Created: 17.4.1996 / 16:55:54 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	748	"Modified: 30.6.1997 / 15:44:52 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	749	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	750
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	751	decodeFromEUC:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	752	"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	753	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	754
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	755	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	756	this one only understands New-JIS.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	757	The result is a JISEncodedString (you need a JIS 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	758
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	759	\|newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	760	sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	761	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	762	start "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	763	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	764	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	765	val "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	766	c c2\|
1202 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	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	769	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	770	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	771	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	772	start := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	773
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	774	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	775	c := aString at:start.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	776	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	777	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	778	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	779	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	780	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	781	b1 < 161 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	782	"/ characters below 16rA1 are left untranslated
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	783	"/ (romans).
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	784	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	785	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	786	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	787	start := start + 1.
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	788	start <= sz ifTrue:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	789	b1 := b1 - 128.
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	790	b2 := (c2 := aString at:start) asciiValue.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	791	b2 := b2 - 128.
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	792	val := (b1 bitShift:8) bitOr:b2.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	793	val <= 0 ifTrue:[
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	794	DecodingFailedSignal
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	795	raiseWith:aString
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	796	errorString:'EUC decoding failed (not EUC encoded ?)'.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	797	newString at:dstIdx put:c.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	798	dstIdx := dstIdx + 1.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	799	newString at:dstIdx put:c2.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	800	] ifFalse:[
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	801	newString at:dstIdx put:(Character value:val).
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	802	].
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	803	] ifFalse:[
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	804	newString at:dstIdx put:c.
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	805	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	806	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	807	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	808	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	809	start := start + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	810
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	811	start > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	812	^ newString 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	813	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	814	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	815	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	816	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	817
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	818	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	819
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	820	'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	821	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	822
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	823	"Created: 17.4.1996 / 16:10:22 / cg"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	824	"Modified: 30.6.1997 / 18:25:05 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	825	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	826
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	827	decodeFromGB:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	828	"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	829	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	830
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	831	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	832
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	833	\|newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	834
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	835	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	836	^ 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	837
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	838	"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	839	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	840
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	841	decodeFromJIS7:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	842	"return a new string containing the aStrings characters,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	843	which are interpreted as a JIS7 encoded singleByte string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	844	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	845	this one understands New-JIS and treats Old-JIS just the same.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	846	The result is a JISEncodedString (you need a JIS 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	847
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	848	\|newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	849	sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	850	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	851	start "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	852	stop "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	853	n1 n2 n3
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	854	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	855	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	856	val "{ Class: SmallInteger }"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	857	singleBytes katakana c\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	858
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	859	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	860	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	861	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	862	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	863	start := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	864	singleBytes := true.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	865	katakana := false.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	866
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	867	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	868	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	869	"/ scan for next escape"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	870	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	871	stop := aString indexOf:(Character esc) startingAt:start.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	872	stop == 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	873	stop := sz + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	874	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	875	(stop + 2) > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	876	stop := sz + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	877	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	878	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	879	singleBytes ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	880	start to:(stop - 1) do:[:i \|
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	881	b1 := (c := aString at:i) asciiValue.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	882	b1 >= 16r80 ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	883	"/ mhmh - seems to be JIS8
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	884	"/ (has half-width katakane at A1..DF
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	885	"/ my romanTable also includes xlations for those ...
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	886
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	887	"/ DecodingFailedSignal
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	888	"/ raiseWith:aString
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	889	"/ errorString:'JIS7 decoding failed (seems to be JIS8 encoded ?)'.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	890	"/ (b1 >= 16rA1 and:[b1 <= 16rDF]) ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	891	"/ c := Character value:(self romanTable at:(b1 - 32))
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	892	"/ ] ifFalse:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	893	"/ c := Character value:(self romanTable at:(b1 - 32))
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	894	"/ ]
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	895	].
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	896	newString at:dstIdx put:c.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	897	dstIdx := dstIdx + 1.
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	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	900	start to:(stop - 2) by:2 do:[:i \|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	901	b1 := (aString at:i) asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	902	b2 := (aString at:i+1) asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	903	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	904	newString at:dstIdx put:(Character value:val).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	905	dstIdx := dstIdx + 1.
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	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	908
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	909	stop > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	910	^ newString 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	911	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	912	start := stop.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	913
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	914	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	915	"/ found an escape (at start)
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	916	"/ - check for KI (<ESC> '$' 'B') or OLD-JIS-KI (<ESC> '$' '@')
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	917	"/ and KO(ASCII) (<ESC> '(' 'B') or KO(ROMAN) (<ESC> '(' 'J')
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	918	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	919	n1 := aString at:start.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	920	n2 := aString at:(start + 1).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	921	n3 := aString at:(start + 2).
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	922	katakana := false.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	923
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	924	(n2 == $$ and:[n3 == $B ]) ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	925	singleBytes := false.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	926	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	927	(n2 == $$ and:[n3 == $@ ]) ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	928	singleBytes := false.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	929	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	930	(n2 == $( and:[n3 == $B ]) ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	931	singleBytes := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	932	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	933	(n2 == $( and:[n3 == $J ]) ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	934	singleBytes := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	935	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	936	(n2 == $( and:[n3 == $I ]) ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	937	singleBytes := true.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	938	katakana := true.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	939	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	940	singleBytes ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	941	newString at:dstIdx put:n1.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	942	newString at:(dstIdx + 1) put:n2.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	943	newString at:(dstIdx + 2) put:n3.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	944	dstIdx := dstIdx + 3.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	945	] ifFalse:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	946	DecodingFailedSignal
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	947	raiseWith:aString
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	948	errorString:'JIS7 decoding failed (not JIS7 encoded ?)'.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	949	newString at:dstIdx put:n1.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	950	newString at:(dstIdx + 1) put:n2.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	951	newString at:(dstIdx + 2) put:n3.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	952	dstIdx := dstIdx + 3.
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	953	]
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	954	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	955	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	956	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	957	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	958	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	959	start := start + 3.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	960	start > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	961	^ newString 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	962	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	963	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	964	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	965	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	966
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	967	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	968
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	969	'hello' decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	970
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	971	ending with a crippled escape:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	972
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	973	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	974	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	975	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	976
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	977	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	978	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	979	s := s copyWith:$A.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	980	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	981
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	982	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	983	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	984	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	985	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	986
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	987	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	988	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	989	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	990	s := s copyWith:$A.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	991	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	992
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	993	ending with a KANJI-in, but no more chars:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	994
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	995	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	996	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	997	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	998	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	999	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1000
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1001	ending with a KANJI-in, followed by $3 (KO):
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1002
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1003	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1004	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1005	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1006	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1007	s := s , '$3'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1008	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1009
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1010	ending with a KANJI-in, followed by $3$l$OF\| (KO RE HA NI):
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1011
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1012	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1013	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1014	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1015	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1016	s := s , '$3$l$OF\|'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1017	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1018
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1019	a KO in between:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1020
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1021	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1022	s := 'hello' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1023	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1024	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1025	s := s , '$3'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1026	s := s copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1027	s := s copyWith:$(.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1028	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1029	s := s , 'hello'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1030	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1031
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1032	I dont know what that means ;-):
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1033
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1034	\|s t l\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1035	s := 'kterm ' copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1036	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1037	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1038	s := s , '$N4A;zC<Kv%(%_%e%l!!<%?'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1039	s := s copyWith:Character esc.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1040	s := s copyWith:$(.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1041	s := s copyWith:$B.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1042	s := s , ' kterm'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1043	t := s decodeFromJIS7.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1044	l := Label new.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1045	l label:t.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1046	l font:(Font family:'k14' face:nil style:nil size:nil).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1047	l font:(Font family:'gothic' size:17).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1048	l font:(Font family:'mincho' size:23).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1049	l realize
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1050	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1051
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1052	"Created: 17.4.1996 / 16:11:57 / cg"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1053	"Modified: 30.6.1997 / 20:53:46 / cg"
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1054	!
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1055
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1056	decodeFromSJIS:aString
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1057	"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	1058	which are interpreted as a Shift-JIS encoded singleByte string.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1059	The result is a JISEncodedString (you need a JIS font to display that ...)."
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1060
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1061	\|newString char1 char2
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1062	sz "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1063	dstIdx "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1064	srcIdx "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1065	b1 "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1066	b2 "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1067	val "{ Class: SmallInteger }"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1068	\|
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	sz := aString size.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1071	newString := JISEncodedString new:sz.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1072	sz ~~ 0 ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1073	dstIdx := 1.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1074	srcIdx := 1.
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	[srcIdx <= sz] whileTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1077	"/
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1078	"/ 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	1079	"/
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1080	char1 := aString at:srcIdx.
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1081	srcIdx := srcIdx + 1.
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1082	b1 := char1 asciiValue.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1083
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1084	((srcIdx <= sz)
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1085	and:[(b1 >= 129 and:[b1 <= 159]) "/ SJIS1
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1086	or:[b1 >= 224 and:[b1 <= 239]]]) ifTrue:[
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1087	char2 := aString at:srcIdx.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1088	srcIdx := srcIdx + 1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1089	b2 := char2 asciiValue.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1090	(b2 >= 64 and:[b2 <= 252]) ifTrue:[ "/ SJIS2
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1091	\|adjust rowOffs cellOffs\|
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1092
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1093	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	1094	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	1095	adjust == 1 ifTrue:[
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1096	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	1097	] ifFalse:[
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1098	cellOffs := 126.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1099	].
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1100	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	1101	b2 := (b2 - cellOffs).
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1102	val := (b1 bitShift:8) + b2.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1103	val <= 0 ifTrue:[
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1104	DecodingFailedSignal
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1105	raiseWith:aString
2730 1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1106	errorString:'SJIS decoding failed (not SJIS encoded ?)'.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1107	newString at:dstIdx put:char1.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1108	dstIdx := dstIdx + 1.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1109	newString at:dstIdx put:char2.
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1110	] ifFalse:[
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1111	newString at:dstIdx put:(Character value:val).
1fbfddfa1d3f allow proceeding after a decoder error Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	1112	]
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1113	] ifFalse:[
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1114	"/ mhmh - append untranslated
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1115
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1116	newString at:dstIdx put:char1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1117	dstIdx := dstIdx + 1.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1118	newString at:dstIdx put:char2.
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1119	]
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1120	] ifFalse:[
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1121	(b1 >= 161 and:[b1 <= 223]) ifTrue:[ "/ HALFWIDTH KATAKANA
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1122	val := b1 - 128.
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1123	val := val + (142 bitShift:8).
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1124	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	1125	] ifFalse:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1126	"/ roman characters left untranslated
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1127	newString at:dstIdx put:char1
7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1128	]
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1129	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1130	dstIdx := dstIdx + 1.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1131	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1132	newString := newString copyTo:dstIdx - 1.
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1133	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1134
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1135	^ newString
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1136
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1137	"simple:
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1138
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1139	'hello' decodeFrom:#sjis
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1140
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1141	'../../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	1142	decodeFrom:#sjis
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1143	"
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	1144
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	1145	"Created: 28.6.1997 / 19:19:23 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1146	"Modified: 30.6.1997 / 15:51:41 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1147	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1148
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1149	encodeIntoBIG5:aBIG5String
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1150	"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	1151	The argument must be a BIG5String.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1152	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	1153	representation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1154	The resulting string is only useful to be stored on some external file,
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1155	not for being displayed in an ST/X view."
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1156
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1157	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1158	b "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1159	c out\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1160
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1161	sz := aBIG5String size.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1162	out := WriteStream on:(String new:(sz * 2)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1163
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1164	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	1165	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	1166	b := c asciiValue.
1203 a43528048cb8 code tables moved to BIG5/JISEncodedString classes Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1167
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1168	b > 255 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1169	"/ big5 character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1170
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1171	out nextPut:(Character value:(b bitShift:-8)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1172	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	1173	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1174	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1175	"/ 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	1176	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1177	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	1178	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1179	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1180	^ out contents
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1181
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1182	"Created: 17.4.1996 / 17:17:50 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1183	"Modified: 30.6.1997 / 15:57:42 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1184	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1185
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1186	encodeIntoEUC:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1187	"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	1188	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	1189
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1190	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	1191	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	1192
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1193	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1194	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1195	val "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1196	c romans out\|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1197
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1198	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	1199
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1200	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1201	sz == 0 ifTrue:[^ ''].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1202
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1203	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	1204
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1205	1 to:sz do:[:srcIndex \|
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1206	b1 := (c := aJISString at:srcIndex) asciiValue.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1207	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1208	"/ a control character
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1209	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	1210	] ifFalse:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1211	b1 < 161 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1212	"/ a roman character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1213	out nextPut:c.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1214	] ifFalse:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1215	"/ check for a roman character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1216	"/ the two numbers below are romanTable min and romanTable max
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1217	"/
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1218	(b1 between:16r2121 and:16r2573) ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1219	val := romans indexOf:b1.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1220	val ~~ 0 ifTrue:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1221	out nextPut:(Character value:(val - 1 + 32))
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1222	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1223	out nextPut:(Character value:(val bitShift:-8) + 128).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1224	out nextPut:(Character value:(val bitAnd:16rFF) + 128).
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1225	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1226	] ifFalse:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1227	out nextPut:(Character value:(val bitShift:-8) + 128).
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1228	out nextPut:(Character value:(val bitAnd:16rFF) + 128).
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1229	]
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1230	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1231	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1232	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1233	^ out contents
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1234
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1235	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1236
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1237	('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	1238	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1239
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1240	"Created: 17.4.1996 / 16:13:33 / cg"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1241	"Modified: 30.6.1997 / 18:25:25 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1242	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1243
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1244	encodeIntoGB:aGBString
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1245	"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	1246	The argument must be a GBString.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1247	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	1248	representation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1249	The resulting string is only useful to be stored on some external file,
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1250	not for being displayed in an ST/X view."
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1251
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1252	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1253	b "{ Class: SmallInteger }"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1254	c out\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1255
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1256	sz := aGBString size.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1257	out := WriteStream on:(String new:(sz * 2)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1258
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1259	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	1260	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	1261	b := c asciiValue.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1262	b > 255 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1263	"/ big5 character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1264
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1265	out nextPut:(Character value:(b bitShift:-8)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1266	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	1267	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1268	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1269	"/ 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	1270	"/
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1271	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	1272	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1273	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1274	^ out contents
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1275
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1276	"Created: 30.6.1997 / 15:48:35 / cg"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1277	"Modified: 30.6.1997 / 15:57:49 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1278	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1279
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1280	encodeIntoJIS7:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1281	"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	1282	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	1283
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1284	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	1285	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	1286
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1287	\|sz "{ Class:SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1288	b1 "{ Class:SmallInteger }"
1669 4951596746f7 comments & code cleanup Claus Gittinger <cg@exept.de> parents: 1613 diff changeset	1289	val romans out inSingleByteMode c kanji roman\|
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1290
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1291	inSingleByteMode := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1292	kanji := JISEncodedString jis7KanjiEscapeSequence.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1293	roman := JISEncodedString jis7RomanEscapeSequence.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1294
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1295	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	1296
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1297	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1298	sz == 0 ifTrue:[^ ''].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1299
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1300	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	1301
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1302	1 to:sz do:[:srcIndex \|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1303	c := aJISString at:srcIndex.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1304	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1305	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1306	"/ a control character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1307	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1308	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1309	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1310	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1311	out nextPut:c.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1312	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1313	"/ check for a roman character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1314	"/ the two numbers below are romanTable min and romanTable max
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1315	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1316	(b1 between:16r2121 and:16r2573) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1317	val := romans indexOf:b1.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1318	(val ~~ 0 and:[val <= 16r7F]) ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1319	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1320	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1321	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1322	].
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1323	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	1324	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1325	inSingleByteMode ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1326	out nextPutAll:kanji.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1327	inSingleByteMode := false
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1328	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1329	out nextPut:(Character value:(b1 bitShift:-8)).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1330	out nextPut:(Character value:(b1 bitAnd:16rFF)).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1331	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1332	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1333	b1 <= 255 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1334	"/ mhmh - unrepresentable roman (national chars)
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1335	"/ b1 >= 160 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1336	"/ ('no rep for ' , b1 printString) printNL.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1337	"/ ].
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1338	EncodingFailedSignal
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1339	raiseWith:aJISString
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1340	errorString:'JIS7 encoding failed (contains 8-bit characters ?)'.
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1341
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1342	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1343	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1344	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1345	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1346	out nextPut:c
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1347	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1348	inSingleByteMode ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1349	out nextPutAll:kanji.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1350	inSingleByteMode := false
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1351	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1352	out nextPut:(Character value:(b1 bitShift:-8)).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1353	out nextPut:(Character value:(b1 bitAnd:16rFF)).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1354	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1355	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1356	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1357	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1358	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1359	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1360	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1361	^ out contents
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1362
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1363	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1364
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1365	'hello' decodeFromJIS7 encodeIntoJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1366	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1367
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1368	"Created: 17.4.1996 / 16:17:40 / cg"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1369	"Modified: 30.6.1997 / 19:20:02 / cg"
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1370	!
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1371
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1372	encodeIntoSJIS:aJISString
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1373	"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	1374	The receiver must be a JIS encoded character string.
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1375
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1376	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	1377	not for being displayed in an ST/X view."
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1378
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1379	\|sz "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1380	rval "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1381	val "{ Class: SmallInteger }"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1382	romans c out isSJIS\|
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1383
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1384	romans := JISEncodedString romanTable.
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1385
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1386	sz := aJISString size.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1387	sz == 0 ifTrue:[^ ''].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1388
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1389	out := WriteStream on:(String new:(sz * 2)).
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1390
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1391	1 to:sz do:[:srcIndex \|
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1392	val := (c := aJISString at:srcIndex) asciiValue.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1393	val < 33 ifTrue:[
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1394	"/ a control character
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1395	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1396	] ifFalse:[
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1397	val <= 128 ifTrue:[
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1398	"/ ascii subset
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1399	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1400	] ifFalse:[
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1401	(val > 150 and:[val < 224]) ifTrue:[
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1402	"/ ascii subset
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1403	out nextPut:c.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1404	] ifFalse:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1405	"/ should not happen ...
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1406	val <= 255 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1407	out nextPut:c.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1408	] ifFalse:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1409	isSJIS := true.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1410
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1411	"/ check for HALFWIDTH KATAKANA
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1412	"/ 142:xx
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1413
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1414	(val bitAnd:16rFF00) == 16r8E00 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1415	\|b\|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1416
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1417	b := (val bitAnd:16rFF) + 128.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1418	(b >= 161 and:[b <= 223]) ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1419	out nextPut:(Character value:b).
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1420	isSJIS := false.
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1421	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1422	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1423
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1424	isSJIS ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1425
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1426	"/ check for a roman character
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1427	"/ the two numbers below are romanTable min and romanTable max
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1428	"/
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1429	(val between:16r2121 and:16r2573) ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1430	rval := romans indexOf:val.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1431	rval ~~ 0 ifTrue:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1432	out nextPut:(Character value:(rval - 1 + 32)).
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1433	isSJIS := false.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1434	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1435	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1436	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1437
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1438	isSJIS ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1439	\|b1 b2 rowOffset cellOffset\|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1440
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1441	b1 := (val bitShift:-8).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1442	b2 := (val bitAnd:16rFF).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1443	rowOffset := (b1 < 95) ifTrue:[112] ifFalse:[176].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1444	cellOffset := b1 odd ifTrue:[(b2 > 95) ifTrue:[32] ifFalse:[31]]
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1445	ifFalse:[126].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1446
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1447	out nextPut:(Character value:(((b1 + 1) bitShift:-1) + rowOffset)).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1448	out nextPut:(Character value:b2 + cellOffset).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1449	]
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1450	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1451	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1452	]
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1453	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1454	].
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1455	^ out contents
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1456
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1457	"simple:
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1458
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1459	'hello' decodeFromEUC encodeIntoEUC
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1460	"
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1461
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1462	"Created: 28.6.1997 / 21:13:27 / cg"
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1463	"Modified: 30.6.1997 / 18:16:37 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1464	!
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1465
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1466	encodeRomans:aTwoByteString
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1467	"return a new (usually 2-byte) string with roman characters
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1468	encoded. The position of roman characters are encoding specific.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1469	(see romanTable of concrete 16-bit string classes).
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1470	Used when displaying strings."
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1471
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1472	\|sz "{ Class: SmallInteger }"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1473	b "{ Class: SmallInteger }"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1474	c romans newString\|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1475
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1476	romans := self romanTable.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1477	romans isNil ifTrue:[^ aTwoByteString].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1478
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1479	sz := aTwoByteString size.
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1480	newString := self fromString:aTwoByteString.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1481
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1482	1 to:sz do:[:index \|
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1483	c := aTwoByteString at:index.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1484	b := c asciiValue.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1485
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1486	(b > 32 and:[b <= 255]) ifTrue:[
2734 ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1487	(b-32+1) <= romans size ifTrue:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1488	"/
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1489	"/ a roman character
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1490	"/ map to corresponding row
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1491	"/
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1492	newString at:index put:(Character value:(romans at:b - 32 + 1))
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1493	] ifFalse:[
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1494	newString at:index put:(Character value:self defaultRomanCharacterValue)
ab167dc4c5db checkin from browser Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	1495	]
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1496	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1497	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1498	^ newString
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1499
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1500	"Created: 30.6.1997 / 15:43:56 / cg"
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1501	"Modified: 30.6.1997 / 21:16:20 / cg"
2731 0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1502	!
0ba9228a6677 added encoding into SJIS Claus Gittinger <cg@exept.de> parents: 2730 diff changeset	1503
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1504	guessEncodingFrom:aString
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1505	"try to guess some 8-bit strings encoding by
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1506	searching for certain escape sequences.
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1507	Returns a string or nil.
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1508	This may not find the strings real encoding."
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1509
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1510	\|n "{Class: SmallInteger }"
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1511	binary idx s w ascii\|
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1512
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1513	"/ look for JIS7 / EUC encoding ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1514
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1515	(aString findString:(JISEncodedString jisISO2022EscapeSequence)) ~~ 0 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1516	^ #'jis_iso2020'
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	1517	].
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1518	(aString findString:(JISEncodedString jis7KanjiEscapeSequence)) ~~ 0 ifTrue:[
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1519	^ #jis7
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1520	].
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1521	(aString findString:(JISEncodedString oldJis7KanjiEscapeSequence)) ~~ 0 ifTrue:[
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1522	^ #jis7
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1523	].
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1524
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1525	"/ TODO:
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1526
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1527	"/ "/ look for EUC
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1528	"/ idx := aString findFirst:[:char \| \|ascii\|
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1529	"/ ((ascii := char asciiValue) >= 16rA1)
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1530	"/ and:[ascii <= 16rFE]].
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1531	"/ idx ~~ 0 ifTrue:[
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1532	"/ ascii := (aString at:(idx + 1)) asciiValue.
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1533	"/ (ascii >= 16rA1 and:[ascii <= 16rFE]) ifTrue:[
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1534	"/ ^ #euc
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1535	"/ ]
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1536	"/ ].
72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1537
2721 77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1538	"/ look for SJIS ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1539
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1540	"/ look for UTS ...
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1541
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1542	^ nil
77fedec2357e checkin from browser Claus Gittinger <cg@exept.de> parents: 2720 diff changeset	1543
2735 72469efcec1b checkin from browser Claus Gittinger <cg@exept.de> parents: 2734 diff changeset	1544	"Modified: 30.6.1997 / 21:17:22 / cg"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1545	! !
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1546
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	1547	!CharacterArray class methodsFor:'pattern matching'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	1548
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1549	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	1550	"helper for match; return true if the characters from start to stop in
183f094cfd72 last with old match code claus parents: 326 diff changeset	1551	aString are matching the scan in matchScan from matchStart to matchStop.
328 7b542c0bf1dd . claus parents: 327 diff changeset	1552	The matchScan is as created by asMatchScanArray.
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1553
328 7b542c0bf1dd . claus parents: 327 diff changeset	1554	This algorithm is not at all the most efficient;
7b542c0bf1dd . claus parents: 327 diff changeset	1555	for heavy duty pattern matching, an interface (primitive) to the regex
7b542c0bf1dd . claus parents: 327 diff changeset	1556	pattern matching package should be added."
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1557
183f094cfd72 last with old match code claus parents: 326 diff changeset	1558	\|matchEntry
183f094cfd72 last with old match code claus parents: 326 diff changeset	1559	mStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1560	mStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1561	sStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1562	sStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1563	mSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1564	sSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1565	index "{ Class: SmallInteger }"
2561 205ee33decf9 removed unused var Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1566	quickCheck matchLast nextMatchEntry
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	1567	checkChar included\|
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1568
183f094cfd72 last with old match code claus parents: 326 diff changeset	1569	mStart := matchStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1570	mStop := matchStop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1571	sStart := start.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1572	sStop := stop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1573
183f094cfd72 last with old match code claus parents: 326 diff changeset	1574	[true] whileTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1575	mSize := mStop - mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1576	sSize := sStop - sStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1577
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1578	"empty strings match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1579	(mSize == 0) ifTrue:[^ (sSize == 0)].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1580
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1581	matchEntry := matchScanArray at:mStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1582
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1583	"/ the most common case first:
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1584	(sSize ~~ 0
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1585	and:[(checkChar := (aString at:sStart)) == matchEntry]) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1586	"advance by one and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1587	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1588	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1589	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1590	(matchEntry == #any) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1591	"restString empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1592	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1593	"# matches single character"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1594	((sSize == 1) and:[mSize == 1]) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1595	"advance by one and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1596	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1597	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1598	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1599	(matchEntry == #anyString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1600	"* alone matches anything"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1601	(mSize == 1) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1602	"restString empty & matchString not empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1603	(sSize == 0) ifTrue:[^ false].
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	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	1607	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	1608	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1609	quickCheck := false.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1610	(mStop >= mStart) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1611	matchLast := matchScanArray at:mStop.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1612	(matchLast ~~ #anyString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1613	(matchLast == #any) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1614	quickCheck := true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1615	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1616	matchLast == (aString at:sStop) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1617	quickCheck := true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1618	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1619	matchLast isString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1620	quickCheck := matchLast includes:(aString at:sStop)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1621	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1622	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1623	]
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	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1626	quickCheck ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1627	"/ no quick check;
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1628	"/ look for the next character(s)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1629	"/ and trye matching there
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1630	"/ (to avoid recursion)
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	mStart < mStop ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1633	nextMatchEntry := matchScanArray at:mStart+1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1634	nextMatchEntry isCharacter ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1635	sStart <= sStop ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1636	[true] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1637	ignoreCase ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1638	index := aString indexOf:nextMatchEntry startingAt:sStart
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1639	] ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1640	index := aString findFirst:[:c \| c asLowercase == nextMatchEntry asLowercase]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1641	startingAt:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1642	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1643	index == 0 ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1644	^ false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1645	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1646	(self matchScan:matchScanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1647	from:(mStart + 1)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1648	to:mStop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1649	with:aString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1650	from:index
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1651	to:stop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1652	ignoreCase:ignoreCase
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1653	) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1654	^ true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1655	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1656	sStart := index + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1657	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1658	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1659	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1660	].
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	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1663	no quick check possible;
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1664	loop over all possible substrings
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1665	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1666	index := sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1667	[index <= sStop] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1668	(self matchScan:matchScanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1669	from:(mStart + 1)
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1670	to:mStop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1671	with:aString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1672	from:index
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1673	to:stop
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1674	ignoreCase:ignoreCase
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1675	) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1676	^ true
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1677	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1678	index := index + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1679	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1680	^ false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1681	].
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	quickCheck ok, advance from the right
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1684	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1685	mStop := mStop - 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1686	sStop := sStop - 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1687	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1688	(matchEntry isString) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1689	"testString empty -> no match"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1690	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1691
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1692	included := false.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1693	"/ checkChar := aString at:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1694	included := matchEntry includes:checkChar.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1695	included ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1696	ignoreCase ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1697	checkChar isUppercase ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1698	included := matchEntry includes:checkChar asLowercase.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1699	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1700	included := matchEntry includes:checkChar asUppercase.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1701	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1702	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1703	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1704	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1705	mSize := mSize - 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1706	included ifFalse:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1707
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1708	((sSize == 1) and:[mSize == 0]) ifTrue:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1709	"cut off 1st char and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1710	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1711	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1712	"/ must be single character
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	"testString empty ?"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1715	(sSize == 0) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1716
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1717	"first characters equal ?"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1718	"/ checkChar := aString at:sStart.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1719	ignoreCase ifFalse:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1720	(checkChar asUppercase ~~ matchEntry asUppercase) ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1721
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1722	"advance and continue"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1723	mStart := mStart + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1724	sStart := sStart + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1725	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1726	]
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	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1729	].
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	\|scanArray s\|
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	scanArray := self matchScanArrayFrom:'*hello'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1735	s := 'foo bar hello world'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1736	CharacterArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1737	matchScan:scanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1738	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1739	to:scanArray size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1740	with:s
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1741	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1742	to:s size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1743	ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1744	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1745	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1746	\|scanArray s\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1747
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1748	scanArray := self matchScanArrayFrom:'hello'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1749	s := 'foo bar hello world'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1750	CharacterArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1751	matchScan:scanArray
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1752	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1753	to:scanArray size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1754	with:s
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1755	from:1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1756	to:s size
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1757	ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1758	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1759
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1760	"Modified: 2.4.1997 / 16:35:48 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1761	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1762
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1763	matchScanArrayFrom:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1764	"scan a pattern string and decompose it into a scanArray.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1765	This is processed faster (especially with character ranges), and
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1766	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	1767
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1768	\|coll
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1769	idx "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1770	end c1 c2 matchSet previous\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1771
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1772	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1773	idx := 1. end := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1774	[idx <= end] whileTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1775	\|char this\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1776
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1777	char := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1778	char == $* ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1779	previous ~~ #anyString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1780	this := #anyString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1781	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1782	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1783	char == $# ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1784	previous ~~ #anyString ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1785	this := #any
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1786	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1787	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1788	char == $[ ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1789	matchSet := IdentitySet new.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1790	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1791	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1792	char := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1793	c1 := nil.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1794	[char ~~ $]] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1795	((char == $-) and:[c1 notNil]) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1796	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1797	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1798	c2 := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1799	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	1800	c1 := nil.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1801	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1802	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1803	(char ~~ $]) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1804	matchSet add:char.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1805	c1 := char.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1806	idx := idx + 1
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1807	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1808	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1809	idx > end ifTrue:[^ nil].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1810	char := aString at:idx
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1811	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1812	this := matchSet asString
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1813	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1814	char == $\ ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1815	idx := idx + 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1816	idx > end ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1817	"/ mhmh - what should we do here ?
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1818	this := char
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1819	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1820	this := aString at:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1821	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1822	] ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1823	this := char
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1824	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1825	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1826	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1827	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1828	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	1829	idx := idx + 1
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1830	].
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	^ coll asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1833
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1834	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1835	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1836	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1837	String matchScanArrayFrom:'*uter'
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1838	String matchScanArrayFrom:'\*uter'
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1839	String matchScanArrayFrom:'[cC]#mpute[rR]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1840	String matchScanArrayFrom:'[abcd]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1841	String matchScanArrayFrom:'[a-k]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1842	String matchScanArrayFrom:'somecomplern'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1843	String matchScanArrayFrom:'[a-'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1844	String matchScanArrayFrom:'[a-zA-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1845	String matchScanArrayFrom:'[a-z01234A-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1846	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1847
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	1848	"Modified: 2.4.1997 / 16:20:29 / 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	!CharacterArray methodsFor:'Compatibility - ST/V'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1852
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1853	byteAt:index put:aByte
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1854	"store a byte at given index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1855	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1856
1333 d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1857	"/ (aByte == 0) ifTrue:[
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1858	"/ "store a space instead"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1859	"/ ^ 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	1860	"/ ].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1861	^ 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	1862
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1863	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1864	'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	1865	'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	1866	'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	1867	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1868
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1869	"Modified: 6.5.1996 / 10:35:26 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1870	!
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	replChar:oldChar with:newChar
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1873	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1874	by newChar.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1875	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1876
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1877	^ self copy replaceAll:oldChar by:newChar
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	'12345678901234567890' replChar:$0 with:$*
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1884	replChar:oldChar withString:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1885	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1886	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	1887	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1888
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1889	\|tmpStream\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1890
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1891	tmpStream := WriteStream on:(self class new).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1892	self do:[:element \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1893	element = oldChar ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1894	tmpStream nextPutAll:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1895	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1896	tmpStream nextPut:element
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1897	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1898	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1899	^ tmpStream contents
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1900
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1901	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1902	'12345678901234567890' replChar:$0 withString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1903	'a string with spaces' replChar:$ withString:' foo '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1904	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1905	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1906
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1907	trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1908	"return a copy of the receiver without leading
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1909	and trailing spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1910	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1911
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1912	^ self withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1913
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1914	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1915	' spaces at beginning' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1916	'spaces at end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1917	' spaces at beginning and end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1918	'no spaces' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1919	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1920	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1921
1978 0d49a096cf06 category rename Claus Gittinger <cg@exept.de> parents: 1849 diff changeset	1922	!CharacterArray methodsFor:'Compatibility - V''Age'!
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1923
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1924	addLineDelimiter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1925	"replace all '\'-characters by line delimiter (cr) - characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1926	This has been added for VisualAge compatibility."
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	^ self withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1929	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1930
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1931	bindWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1932	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1933	replaced by aString.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1934	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1935
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1936	^ self expandPlaceholdersWith:(Array with:aString)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1937
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1938	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1939	'do you like %1 ?' bindWith:'smalltalk'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1940	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1941	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1942
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1943	bindWith:string1 with:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1944	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1945	replaced by string1 and '%2' is replaced by string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1946	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1947
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1948	^ self expandPlaceholdersWith:(Array with:string1 with:string2)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1949
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1950	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1951	'do you prefer %1 or rather %2 ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1952	bindWith:'smalltalk' with:'c++'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1953	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1954	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1955
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1956	bindWith:str1 with:str2 with:str3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1957	"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	1958	are replaced by str1, str2 and str3 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1959	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1960
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1961	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1962
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1963	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1964	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1965	bindWith:'smalltalk' with:'c++' with:'c'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1966	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1967	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1968
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1969	bindWith:str1 with:str2 with:str3 with:str4
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1970	"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	1971	are replaced by str1, str2, str3 and str4 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1972	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1973
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1974	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1975
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1976	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1977	'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	1978	bindWith:'smalltalk' with:'c++' with:'c' with:'assembler'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1979	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1980	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1981
2344 b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1982	bindWith:str1 with:str2 with:str3 with:str4 with:str5
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1983	"return a copy of the receiver, where a '%1' .. '%5' escapes
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1984	are replaced by str1 .. str5 respectively.
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1985	This has been added for VisualAge compatibility."
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1986
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1987	^ 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	1988
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1989	"Created: 31.1.1997 / 16:25:42 / cg"
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1990	!
b3788119533f checkin from browser Claus Gittinger <cg@exept.de> parents: 2250 diff changeset	1991
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1992	bindWithArguments:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1993	"return a copy of the receiver, where a '%i' escape
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1994	is replaced by the coresponding string from the argument array.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1995	'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	1996	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1997
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1998	^ self expandPlaceholdersWith:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1999
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2000	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2001	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2002	bindWithArguments:#('smalltalk' 'c++' 'c')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2003	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2004	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2005
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2006	subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2007	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2008	Words are separated by whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2009	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2010
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2011	^ self asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2012
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2013	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2014	'hello world, this is smalltalk' subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2015	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2016	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2017
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2018	subStrings:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2019	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2020	Words are separated by separatorCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2021	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2022
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2023	^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2024
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2025	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2026	'foo:bar:baz:smalltalk' subStrings:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2027	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2028	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2029
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2030	trimSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2031	"return a copy of the receiver without leading and trailing whiteSpace"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2032
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2033	^ self withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2034	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2035
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2036	!CharacterArray methodsFor:'character searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2037
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2038	includesMatchCharacters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2039	"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	2040	for match operations; false if not.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2041	Here, do not care for $\ escapes"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2042
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2043	^ self includesAny:'*#['
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2044
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2045	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2046	'*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2047	'\*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2048	'\*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2049	'*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2050	'\\*foo' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2051	'foo*' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2052	'foo\*' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2053	'foo\' includesMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2054	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2055
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2056	"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	2057	!
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2058
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2059	includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2060	"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	2061	for match operations; false if not.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2062	Here, care for $\ escapes"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2063
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2064	\|idx sz\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2065
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2066	idx := 1.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2067	sz := self size.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2068	[true] whileTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2069	idx := self indexOfAny:'*#[\' startingAt:idx.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2070	idx == 0 ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2071	(self at:idx) == $\ ifFalse:[^ true].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2072	idx := idx + 2.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2073	idx > sz ifTrue:[^ false].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2074	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2075
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2076	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2077	'*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2078	'\*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2079	'*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2080	'\\*foo' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2081	'foo*' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2082	'foo\*' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2083	'foo\' includesUnescapedMatchCharacters
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2084	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2085
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2086	"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	2087	"Created: 2.4.1997 / 17:23:26 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2088	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2089
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2090	indexOfNonSeparatorStartingAt:startIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2091	"return the index of the next non-whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2092
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2093	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2094	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2095
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2096	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2097	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2098
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2099	start to:mySize do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2100	(self at:index) isSeparator ifFalse:[^ index]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2101	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2102	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2103
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2104	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2105	' hello world' indexOfNonSeparatorStartingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2106	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2107	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2108	\|s index1 index2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2109	s := ' foo bar baz'.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2110	index1 := s indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2111	index2 := s indexOfSeparatorStartingAt:index1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2112	s copyFrom:index1 to:index2 - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2113	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2114	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2115
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2116	indexOfSeparator
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2117	"return the index of the first whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2118
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2119	^ self indexOfSeparatorStartingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2120
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2121	"'hello world' indexOfSeparator"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2122	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2123
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2124	indexOfSeparatorStartingAt:startIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2125	"return the index of the next whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2126
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2127	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2128	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2129
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2130	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2131	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2132
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2133	start to:mySize do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2134	(self at:index) isSeparator ifTrue:[^ index]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2135	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2136	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2137
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2138	"'hello world' indexOfSeparatorStartingAt:3"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2139	!
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2140
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2141	withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2142	"return a copy of the receiver with all match characters escaped
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2143	by $\ characters (to be usable as a match string).
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2144	Return the receiver, if there are none."
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2145
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2146	\|in out c\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2147
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2148	in := self readStream.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2149	out := '' writeStream.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2150	[in atEnd] whileFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2151	c := in next.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2152	('*[#\' includes:c) ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2153	out nextPut:$\.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2154	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2155	out nextPut:c.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2156	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2157	^ out contents.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2158
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2159	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2160	'*foo' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2161	'\*foo' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2162	'*foo' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2163	'\\*foo' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2164	'foo*' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2165	'foo\*' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2166	'foo\' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2167	'foo' withMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2168	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2169
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2170	"Modified: 2.4.1997 / 18:13:04 / cg"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2171	!
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2172
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2173	withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2174	"return a copy of the receiver with all $\ removed or
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2175	the receiver, if there are none."
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2176
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2177	\|in out c\|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2178
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2179	in := self readStream.
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2180	out := self species new writeStream.
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2181	[in atEnd] whileFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2182	c := in next.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2183	c == $\ ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2184	in atEnd ifFalse:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2185	c := in next.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2186	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2187	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2188	out nextPut:c.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2189	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2190	^ out contents.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2191
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2192	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2193	'*foo' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2194	'\*foo' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2195	'*foo' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2196	'\\*foo' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2197	'foo*' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2198	'foo\*' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2199	'foo\' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2200	'f\o\o' withoutMatchEscapes
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2201	"
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	2202
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2203	"Modified: 30.6.1997 / 13:40:23 / cg"
608 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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2206	!CharacterArray methodsFor:'comparing'!
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	< something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2209	"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	2210	receiver is less than the argument. Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2211	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2212	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2213
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2214	^ (something > self)
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2215
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2216	"Modified: 22.4.1996 / 15:54:54 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2217	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2218
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2219	<= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2220	"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	2221	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	2222	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2223	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2224
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2225	^ (self > something) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2226
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2227	"Modified: 22.4.1996 / 15:54:56 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2228	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2229
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2230	= aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2231	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2232	receiver is equal to the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2233
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2234	This compare does NOT ignore case differences,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2235	therefore 'foo' = 'Foo' will return false.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2236	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	2237
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2238	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2239	otherSize \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2240
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2241	aString species == self species ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2242	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2243	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2244	mySize == otherSize ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2245
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2246	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2247	(self at:index) = (aString at:index) ifFalse:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2248	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2249	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2250
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	'foo' = 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2253	'foo' = 'bar'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2254	'foo' = 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2255	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2256
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2257	"Modified: 22.4.1996 / 15:53:58 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2258	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2259
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2260	> aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2261	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2262	receiver is greater than the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2263	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2264	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	2265
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2266	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2267	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2268	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2269	c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2270
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2271	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2272	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2273	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2274
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2275	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2276	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2277	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2278	c1 > c2 ifTrue:[^ true].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2279	c1 < c2 ifTrue:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2280	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2281	^ mySize > otherSize
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2282
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2283	"Modified: 22.4.1996 / 15:55:00 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2284	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2285
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2286	>= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2287	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2288	receiver is greater than or equal to the argument.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2289	Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2290	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2291	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2292
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2293	^ (something > self) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2294
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2295	"Modified: 22.4.1996 / 15:55:03 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2296	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2297
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2298	compareWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2299	"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	2300	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	2301	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2302	i.e. upper/lowercase & national characters are NOT treated specially.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2303	'foo' compareWith: 'Foo' will return 1.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2304	while 'foo' sameAs:'Foo' will return true"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2305
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2306	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2307	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2308	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2309	c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2310
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2311	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2312	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2313	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2314
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2315	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2316	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2317	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2318	c1 > c2 ifTrue:[^ 1].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2319	c1 < c2 ifTrue:[^ -1].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2320	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2321	mySize > otherSize ifTrue:[^ 1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2322	mySize < otherSize ifTrue:[^ -1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2323	^ 0
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2324
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2325	"Modified: 22.4.1996 / 15:56:07 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2326	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2327
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2328	hash
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2329	"return an integer useful as a hash-key"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2330
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2331	%{ /* NOCONTEXT */
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2332
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2333	REGISTER int g, val;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2334	REGISTER unsigned char cp, cp0;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2335	int l;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2336
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2337	cp = __stringVal(self);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2338	l = __stringSize(self);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2339	if (__qClass(self) != @global(String)) {
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2340	int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2341
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2342	cp += n;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2343	l -= n;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2344	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2345
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2346	/*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2347	* this is the dragon-book algorithm with a funny start
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2348	* value (to give short strings a number above 8192)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2349	*/
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2350	val = 12345;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2351	for (cp0 = cp, cp += l - 1; cp >= cp0; cp--) {
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2352	val = (val << 5) + (*cp & 0x1F);
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2353	if (g = (val & 0x3E000000))
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2354	val ^= g >> 25 /* 23 / / 25 */;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2355	val &= 0x3FFFFFFF;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2356	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2357
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2358	if (l) {
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2359	l \|= 1;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2360	val = (val * l) & 0x3FFFFFFF;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2361	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2362
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2363	RETURN ( __MKSMALLINT(val) );
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2364	%}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2365	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2366
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2367	sameAs:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2368	"Compare the receiver with the argument like =, but ignore
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2369	case differences.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2370	Return true or false."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2371
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2372	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2373	otherSize c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2374
2581 d06e3bbfc294 faster #sameAs: if string is identical Claus Gittinger <cg@exept.de> parents: 2561 diff changeset	2375	self == aString ifTrue:[^ self].
d06e3bbfc294 faster #sameAs: if string is identical Claus Gittinger <cg@exept.de> parents: 2561 diff changeset	2376
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2377	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2378	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2379	mySize == otherSize ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2380
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2381	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2382	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2383	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2384	c1 == c2 ifFalse:[
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2385	c1 asLowercase = c2 asLowercase ifFalse:[^ false].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2386	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2387	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2388	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2389
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2390	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2391	'foo' sameAs: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2392	'foo' sameAs: 'bar'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2393	'foo' sameAs: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2394	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2395
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2396	"Modified: 22.4.1996 / 15:56:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2397	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2398
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2399	sameCharacters:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2400	"count & return the number of characters which are the same
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2401	(ignoring case) in the receiver and the argument, aString."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2402
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2403	\|n "{ Class: SmallInteger }"
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2404	c1 c2 cnt\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2405
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2406	n := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2407	n := n min:(aString size).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2408
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2409	cnt := 0.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2410	1 to:n do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2411	c1 := self at:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2412	c2 := aString at:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2413	((c1 == c2)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2414	or:[c1 asLowercase = c2 asLowercase]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2415	cnt := cnt + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2416	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2417	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2418	^ cnt
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2419
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2420	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2421	'foobarbaz' sameCharacters: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2422	'foobarbaz' sameCharacters: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2423	'foobarbaz' sameCharacters: 'baz'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2424	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2425	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2426
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2427	!CharacterArray methodsFor:'converting'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2428
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2429	asArrayOfSubstrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2430	"return an array of substrings from the receiver, interpreting
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2431	separators (i.e. spaces & newlines) as word-delimiters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2432	This is a compatibility method - the actual work is done in
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2433	asCollectionOfWords."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2434
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2435	^ self asCollectionOfWords asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2436
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2437	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2438	'1 one two three four 5 five' asArrayOfSubstrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2439	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2440	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2441
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2442	asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2443	"return a collection containing the lines (separated by cr)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2444	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	2445	contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2446
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2447	^ self asCollectionOfSubstringsSeparatedBy:Character cr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2448
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2449	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2450	'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	2451	'1 one\\\\2 two\3 three' withCRs asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2452	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2453	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2454
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2455	asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2456	"return a collection containing the lines (separated by aCharacter)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2457	of the receiver. If aCharacter occurs multiple times in a row,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2458	the result will contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2459
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2460	\|lines myClass
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2461	numberOfLines "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2462	startIndex "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2463	stopIndex "{ Class:SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2464
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2465	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2466	count first, to avoid regrowing of the OC
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2467	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2468	numberOfLines := (self occurrencesOf:aCharacter) + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2469	lines := OrderedCollection new:numberOfLines.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2470	myClass := self species.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2471
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2472	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2473	1 to:numberOfLines do:[:lineNr \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2474	stopIndex := self indexOf:aCharacter startingAt:startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2475	stopIndex == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2476	stopIndex := self size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2477	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2478	stopIndex := stopIndex - 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2479	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2480
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2481	(stopIndex < startIndex) ifTrue: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2482	lines add:(myClass new:0)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2483	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2484	lines add:(self copyFrom:startIndex to:stopIndex)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2485	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2486	startIndex := stopIndex + 2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2487	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2488	^ lines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2489
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2490	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2491	'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	2492	'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	2493	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2494	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2495
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2496	asCollectionOfSubstringsSeparatedByAny:aCollectionOfSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2497	"return a collection containing the words (separated by any character
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2498	from aCollectionOfSeparators) of the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2499	This allows breaking up strings using any character as separator."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2500
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2501	\|words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2502	start "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2503	stop "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2504	mySize "{ Class:SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2505
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2506	words := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2507	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2508	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2509	[start <= mySize] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2510	"skip multiple separators"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2511	[aCollectionOfSeparators includes:(self at:start)] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2512	start := start + 1 .
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2513	start > mySize ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2514	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2515	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2516	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2517
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2518	stop := self indexOfAny:aCollectionOfSeparators startingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2519	stop == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2520	words add:(self copyFrom:start to:mySize).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2521	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2522	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2523	words add:(self copyFrom:start to:(stop - 1)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2524	start := stop
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2525	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2526	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2527
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2528	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2529	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:#($:)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2530	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:':'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2531	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:(Array with:$: with:Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2532	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:': '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2533	'h1e2l3l4o' asCollectionOfSubstringsSeparatedByAny:($1 to: $9)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2534	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2535	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2536
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2537	asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2538	"return a collection containing the words (separated by whitespace)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2539	of the receiver. Multiple occurences of whitespace characters will
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2540	be treated like one - i.e. whitespace is skipped."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2541
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2542	\|words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2543	start "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2544	stop "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2545	mySize "{ Class:SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2546
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2547	words := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2548	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2549	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2550	[start <= mySize] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2551	start := self indexOfNonSeparatorStartingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2552	start == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2553	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2554	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2555	stop := self indexOfSeparatorStartingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2556	stop == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2557	words add:(self copyFrom:start to:mySize).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2558	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2559	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2560	words add:(self copyFrom:start to:(stop - 1)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2561	start := stop
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2562	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2563	^ words
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	'hello world isnt this nice' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2567	' hello world isnt this nice ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2568	'hello' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2569	'' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2570	' ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2571	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2572	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2573
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2574	asComposedText
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2575	"ST-80 compatibility
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2576	- ST/X does not (as today) support composedTexts."
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2577
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2578	^ ComposedText fromString:self
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2579
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2580	"Modified: 27.4.1996 / 13:30:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2581	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2582
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2583	asFilename
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2584	"return a Filename with pathname taken from the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2585
1423 d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2586	^ Filename named:self string
d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2587
d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2588	"Modified: 20.5.1996 / 09:38:15 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2589	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2590
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2591	asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2592	"read a float number from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2593	Notice, that errors may occur during the read, so you better
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2594	setup some signal handler when using this method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2595
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2596	^ (Number readFromString:self) asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2597
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2598	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2599	'0.123' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2600	'12345' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2601	'(1/5)' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2602	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asFloat]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2603	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2604	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2605
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2606	asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2607	"read an integer from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2608	Notice, that errors may occur during the read, so you better
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2609	setup some signal handler when using this method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2610
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2611	^ Integer readFromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2612
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2613	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2614	'12345678901234567890' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2615	'-1234' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2616	'0.123' asInteger <- reader stops at ., returning 0 here
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2617	'0.123' asNumber <- returns what you expect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2618	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asInteger]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2619	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2620	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2621
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2622	asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2623	"return a copy of myself in lowercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2624
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2625	\|newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2626	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2627
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2628	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2629	newStr := self species new:mySize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2630	1 to:mySize do:[:i \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2631	newStr at:i put:(self at:i) asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2632	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2633	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2634
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2635	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2636	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2637	'HelloWorld' asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2638	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2639	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2640
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2641	asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2642	"return a copy of myself where the first character is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2643	converted to lowercase."
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	\|newString sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2646
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2647	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2648	newString := self copyFrom:1 to:sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2649	sz > 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2650	newString at:1 put:(newString at:1) asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2651	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2652	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2653
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2654	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2655	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2656	'HelloWorld' asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2657	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2658	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2659
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2660	asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2661	"read a number from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2662	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	2663	so you better setup some signal handler when using this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2664	This may change if ANSI specifies it."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2665
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2666	"/ ST-80 behavior:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2667	"/ ^ Number readFromString:self onError:0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2668
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2669	^ Number readFromString:self
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	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2672	'123' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2673	'123.567' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2674	'(5/6)' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2675	'foo' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2676	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asNumber]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2677	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2678	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2679
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2680	asNumberFromFormatString:ignored
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2681	"read a number from the receiver, ignoring any nonDigit characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2682	This is typically used to convert from strings which include
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2683	dollar-signs or millenium digits. However, this method also ignores
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2684	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	2685
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2686	\|tempString\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2687
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2688	tempString := self collect:[:char \| char isDigit].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2689	^ Number readFromString:tempString onError:0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2690
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2691	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2692	'USD 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2693	'DM 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2694	'123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2695	'123.567' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2696	'(5/6)' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2697	'foo' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2698	"
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2701	asSingleByteString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2702	"return the receiver converted to a 'normal' string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2703
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2704	^ String fromString:self
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
2732 79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2707	asSingleByteStringReplaceInvalidWith:replacementCharacter
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2708	"return the receiver converted to a 'normal' string,
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2709	with invalid characters replaced by replacementCharacter.
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2710	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	2711	and replace characters above code-255 with some replacement."
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2712
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2713	\|newString\|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2714
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2715	newString := String new:(self size).
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2716	1 to:self size do:[:idx \|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2717	\|char\|
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2718
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2719	char := self at:idx.
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2720	char asciiValue <= 16rFF ifTrue:[
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2721	newString at:idx put:char
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2722	] ifFalse:[
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2723	newString at:idx put:replacementCharacter
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2724	].
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2725	].
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2726	^ newString
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2727
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2728	"Created: 30.6.1997 / 13:02:14 / cg"
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2729	!
79d06cdc7428 checkin from browser Claus Gittinger <cg@exept.de> parents: 2731 diff changeset	2730
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2731	asString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2732	"return myself - I am a string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2733
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2734	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2735	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2736
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2737	asStringCollection
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2738	"return a collection of lines from myself."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2739
1393 7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2740	^ StringCollection from:self "string"
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2741
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2742	"Modified: 13.5.1996 / 20:36:59 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2743	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2744
1434 a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2745	asSymbol
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2746	"return a unique symbol with the name taken from my characters.
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2747	The receiver must be a singleByte-String; twoByteSymbols are
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2748	(currently) not allowed."
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2749
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2750	^ self string asSymbol
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2751
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2752	"Created: 22.5.1996 / 15:56:11 / cg"
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2753	!
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2754
1435 3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2755	asSymbolIfInterned
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2756	"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	2757	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	2758	symbol and is the same as
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2759	self knownAsSymbol ifTrue:[self asSymbol] ifFalse:[nil]
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2760	but slightly faster, since the symbol lookup operation is only
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2761	performed once.
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2762	The receiver must be a singleByte-String; twoByteSymbols are
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2763	(currently) not allowed."
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2764
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2765	^ self string asSymbolIfInterned
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2766
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2767	"Created: 22.5.1996 / 16:37:04 / cg"
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2768	!
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2769
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2770	asText
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2771	"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	2772
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2773	^ Text fromString:self
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2774
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2775	"Created: 12.5.1996 / 10:41:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2776	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2777
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2778	asTwoByteString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2779	"return the receiver converted to a two-byte string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2780
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2781	^ TwoByteString fromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2782	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2783
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2784	asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2785	"return a copy of myself in uppercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2786
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2787	\|newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2788	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2789
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2790	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2791	newStr := self species new:mySize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2792	1 to:mySize do:[:i \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2793	newStr at:i put:(self at:i) asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2794	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2795	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2796
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	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2799	'helloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2800	"
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2803	asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2804	"return a copy of myself where the first character is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2805	converted to uppercase."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2806
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2807	\|newString sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2808
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2809	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2810	newString := self copyFrom:1 to:sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2811	sz > 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2812	newString at:1 put:(newString at:1) asUppercase
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	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2815
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2816	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2817	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2818	'helloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2819	'HelloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2820	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2821	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2822
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2823	string
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2824	"return the receiver - for ST-80 compatibility"
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2825
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2826	^ self
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2827
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2828	"Modified: 27.4.1996 / 13:29:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2829	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2830
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2831	tokensBasedOn:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2832	"this is an ST-80 alias for the ST/X method
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2833	asCollectionOfSubstringsSeparatedBy:"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2834
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2835	^ self asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2836
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2837	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2838	'hello:world:isnt:this nice' tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2839	'foo,bar,baz' tokensBasedOn:$,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2840	'/etc/passwd' asFilename readStream nextLine tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2841	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2842	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2843
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2844	!CharacterArray methodsFor:'copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2845
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2846	, aStringOrCharacter
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2847	"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	2848	This is nonStandard, but convenient"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2849
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2850	\|myWidth otherWidth\|
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2851
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2852	aStringOrCharacter isCharacter ifTrue:[
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2853	^ self , aStringOrCharacter asString
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2854	].
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2855	aStringOrCharacter isText ifTrue:[
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2856	^ aStringOrCharacter concatenateFromString:self
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2857	].
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2858	aStringOrCharacter isString ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2859	(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	2860	otherWidth > myWidth ifTrue:[
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2861	^ (aStringOrCharacter species fromString:self) , aStringOrCharacter
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2862	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2863	^ self , (self species fromString:aStringOrCharacter)
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2864	].
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2865	].
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2866	^ super , aStringOrCharacter
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2867
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2868	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2869	'hello' , $1
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2870	'hello' , '1'
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2871	'hello' , (' world' asText allBold)
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2872	'hello' , (JISEncodedString fromString:' world')
98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2873	(JISEncodedString fromString:'hello') , ' world'
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2874
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	2875	Transcript showCR:
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2876	(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	2877	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2878
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2879	"Modified: 28.6.1997 / 00:13:17 / cg"
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2880	!
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2881
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2882	concatenate:string1 and:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2883	"return the concatenation of myself and the arguments, string1 and string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2884	This is equivalent to self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2885	- 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	2886	is known to be a string."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2887
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2888	^ self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2889	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2890
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2891	concatenate:string1 and:string2 and:string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2892	"return the concatenation of myself and the string arguments.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2893	This is equivalent to self , string1 , string2 , string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2894	- 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	2895	is known to be a string."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2896
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2897	^ self , string1 , string2 , string3
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2900	!CharacterArray methodsFor:'displaying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2901
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2902	displayOn:aGc x:x y:y
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2903	"display the receiver in a graphicsContext - this method allows
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2904	strings to be used like DisplayObjects."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2905
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2906	^ aGc displayString:self string x:x y:y.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2907
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2908	"Modified: 11.5.1996 / 14:42:48 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2909	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2910
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2911	displayOpaqueOn:aGc x:x y:y
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2912	"display the receiver in a graphicsContext - this method allows
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2913	strings to be used like DisplayObjects."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2914
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2915	^ aGc displayOpaqueString:self string x:x y:y.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2916
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2917	"Modified: 11.5.1996 / 14:42:48 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2918	"Created: 12.5.1996 / 12:28:40 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2919	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2920
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2921	!CharacterArray methodsFor:'emphasis'!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2922
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2923	emphasis
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2924	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2925	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2926	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2927
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2928	^ RunArray new:self size withAll:nil
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2929
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2930	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2931	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2932
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2933	emphasisAt:characterIndex
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2934	"return the emphasis at some index.
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2935	Since characterArrays do not hold any emphasis information,
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2936	nil (no emphasis) is returned here."
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2937
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2938	^ nil
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2939
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2940	"Created: 11.5.1996 / 14:13:27 / cg"
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2941	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2942
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2943	emphasisCollection
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2944	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2945	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2946	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2947
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2948	^ RunArray new:(self size)
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2949
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2950	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2951	"Modified: 14.5.1996 / 15:02:29 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2952	! !
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2953
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2954	!CharacterArray methodsFor:'encoding/decoding'!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2955
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2956	decodeFrom:encodingSymbol
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2957	"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	2958	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	2959	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	2960	(and those are untested/incomplete):
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2961	#euc
997 6c7f1815ed02 more encoding & decoding support Claus Gittinger <cg@exept.de> parents: 991 diff changeset	2962	#jis7
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	2963	#sjis
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2964	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2965	#msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2966	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2967
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2968	\|newString\|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2969
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2970	encodingSymbol == #'x-jis7' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2971	^ JISEncodedString decodeFromJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2972	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2973	encodingSymbol == #'x-sjis' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2974	^ JISEncodedString decodeFromSJIS:self
2720 98c21d9a07c0 allow mixed strings to be concatenated using comma Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2975	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2976	encodingSymbol == #'x-shift-jis' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2977	^ JISEncodedString decodeFromSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2978	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2979	encodingSymbol == #'x-euc-jp' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2980	^ 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	2981	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2982	encodingSymbol == #big5 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2983	^ 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	2984	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2985	encodingSymbol == #gb2312 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2986	^ GBEncodedString decodeFromGB:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2987	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2988	encodingSymbol == #'x-euc-gb' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2989	^ GBEncodedString decodeFromEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2990	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2991	encodingSymbol == #'x-euc-kr' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	2992	^ KSCEncodedString decodeFromEUC:self
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2993	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2994
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2995	encodingSymbol == #ucs2 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2996	^ UnicodeString decodeFromUCS2:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2997	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2998	encodingSymbol == #ucs4 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	2999	^ UnicodeString decodeFromUCS4:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3000	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3001	encodingSymbol == #utf7 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3002	^ UnicodeString decodeFromUTF7:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3003	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3004	encodingSymbol == #utf8 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3005	^ UnicodeString decodeFromUTF8:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3006	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3007	encodingSymbol == #utf16 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3008	^ UnicodeString decodeFromUTF16:self
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3009	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3010
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3011
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3012	"/ soon obsolete ...
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3013	encodingSymbol == #jis7 ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3014	^ JISEncodedString decodeFromJIS7:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3015	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3016	encodingSymbol == #sjis ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3017	^ JISEncodedString decodeFromSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3018	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3019	encodingSymbol == #euc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3020	^ JISEncodedString decodeFromEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3021	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3022
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3023	encodingSymbol == #gb ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3024	^ GBEncodedString decodeFromGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3025	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3026	encodingSymbol == #ksc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3027	^ KSCEncodedString decodeFromKSC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3028	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3029
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3030
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3031	newString := self class new:self size.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3032	newString replaceFrom:self decode:encodingSymbol.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3033	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	3034	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3035
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3036	"Created: 22.2.1996 / 15:06:49 / cg"
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3037	"Modified: 30.6.1997 / 23:51:42 / cg"
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3038	!
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3039
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3040	encodeForDisplayInto:encodingSymbol
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3041	"given the receiver in internal ST/X encoding,
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3042	convert it into the format as described by encodingSymbol
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3043	for display.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3044	The receiver may contain roman characters in 0..255, which
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3045	are translated according to the encodings roman translation.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3046	For example: in JIS, roman $a is found at 16r2361.
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3047	"
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3048
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3049	encodingSymbol isNil ifTrue:[^ self].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3050
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3051	(encodingSymbol startsWith:'jis') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3052	^ JISEncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3053	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3054	(encodingSymbol startsWith:'big5') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3055	^ BIG5EncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3056	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3057	(encodingSymbol startsWith:'gb') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3058	^ GBEncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3059	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3060	(encodingSymbol startsWith:'ksc') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3061	^ KSCEncodedString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3062	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3063	(encodingSymbol startsWith:'uni') ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3064	^ UnicodeString encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3065	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3066
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3067	^ self class encodeRomans:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3068
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3069	"Modified: 30.6.1997 / 15:43:46 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3070	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3071
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3072	encodeInto:encodingSymbol
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3073	"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	3074	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	3075	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	3076	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	3077	(and those are untested/incomplete):
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3078	#x-euc-jp
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3079	#x-jis7
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3080	#x-sjis
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3081	#x-shift-jis
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3082	#big5
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3083	#gb
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3084	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3085	#msdos
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3086	#next
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3087	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3088
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3089	\|newString\|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3090
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3091	"/ 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	3092
1028 234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	3093	encodingSymbol isNil ifTrue:[^ self].
234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	3094
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3095	encodingSymbol == #'x-jis7' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3096	^ JISEncodedString encodeIntoJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3097	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3098	encodingSymbol == #'x-sjis' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3099	^ JISEncodedString encodeIntoSJIS:self
1013 0e54ddc990cb more 16bit & encoding support Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	3100	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3101	encodingSymbol == #'x-shift-jis' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3102	^ JISEncodedString encodeIntoSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3103	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3104	encodingSymbol == #'x-euc-jp' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3105	^ 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	3106	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3107
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3108	encodingSymbol == #big5 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3109	^ BIG5EncodedString encodeIntoBIG5:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3110	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3111
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3112	encodingSymbol == #gb2312 ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3113	^ GBEncodedString encodeIntoGB:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3114	].
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3115	encodingSymbol == #'x-euc-gb' ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3116	^ GBEncodedString encodeIntoGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3117	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3118
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3119	encodingSymbol == #'x-euc-kr' ifTrue:[
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3120	^ KSCEncodedString encodeIntoKSC:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3121	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3122
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3123	encodingSymbol == #ucs2 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3124	^ UnicodeString encodeIntoUCS2:self
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3125	].
2733 e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3126	encodingSymbol == #ucs4 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3127	^ UnicodeString encodeIntoUCS4:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3128	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3129	encodingSymbol == #utf7 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3130	^ UnicodeString encodeIntoUTF7:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3131	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3132	encodingSymbol == #utf8 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3133	^ UnicodeString encodeIntoUTF8:self
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3134	].
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3135	encodingSymbol == #utf16 ifTrue:[
e8734d3c9415 fixed BIG5 encoding stuff Claus Gittinger <cg@exept.de> parents: 2732 diff changeset	3136	^ UnicodeString encodeIntoUTF16:self
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3137	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	3138
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3139
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3140	"/ to be obsoleted ...
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3141	encodingSymbol == #jis7 ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3142	^ JISEncodedString encodeIntoJIS7:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3143	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3144	encodingSymbol == #sjis ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3145	^ JISEncodedString encodeIntoSJIS:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3146	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3147	encodingSymbol == #euc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3148	^ JISEncodedString encodeIntoEUC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3149	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3150
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3151	encodingSymbol == #gb ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3152	^ GBEncodedString encodeIntoGB:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3153	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3154	encodingSymbol == #ksc ifTrue:[
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3155	^ KSCEncodedString encodeIntoKSC:self
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3156	].
840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3157
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3158	newString := self class new:self size.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3159	newString replaceFrom:self encode:encodingSymbol.
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3160	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	3161	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3162
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3163	"Created: 22.2.1996 / 15:07:31 / cg"
2736 840f97eb7b73 checkin from browser Claus Gittinger <cg@exept.de> parents: 2735 diff changeset	3164	"Modified: 30.6.1997 / 23:50:41 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3165	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3166
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3167	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	3168	"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	3169
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3170	^ 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	3171
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3172	"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	3173	"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	3174	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3175
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3176	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	3177	"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	3178
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3179	^ 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	3180
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3181	"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	3182	"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	3183	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3184
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3185	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	3186	"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	3187	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	3188
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3189	\|mySize "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3190	maxCode "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3191	char
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3192	oldCode "{ Class: SmallInteger }"
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3193	newCode\|
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	3194
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3195	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	3196	encodingTable isNil ifTrue:[^ self].
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3197	maxCode := encodingTable size.
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3198	mySize := self size.
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3199
4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3200	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	3201	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	3202	oldCode := char asciiValue.
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3203	oldCode >= maxCode ifFalse:[
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	3204	newCode := encodingTable at:(oldCode + 1).
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	3205	newCode ~~ oldCode ifTrue:[
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	3206	self at:index put:(Character value:newCode)
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	3207	]
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3208	]
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3209	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3210
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3211	"Created: 22.2.1996 / 16:07:26 / cg"
2520 4a7a2f2f0132 tuned #replaceFrom:translateBy: Claus Gittinger <cg@exept.de> parents: 2519 diff changeset	3212	"Modified: 2.4.1997 / 21:35:41 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3213	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	3214
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3215	!CharacterArray methodsFor:'padded copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3216
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3217	centerPaddedTo:newSize
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3218	"return a new string consisting of the receivers characters,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3219	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	3220	the resulting string.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3221	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	3222	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3223
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3224	^ self centerPaddedTo:newSize with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3225
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3226	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3227	'foo' centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3228	123 printString centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3229	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3230
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3231	"Created: 25.11.1995 / 10:53:57 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3232	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3233
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3234	centerPaddedTo:size with:padCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3235	"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	3236	centered (i.e. padded on both sides).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3237	Characters are filled with padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3238	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	3239	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3240
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3241	\|len s\|
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3242
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3243	len := self size.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3244	(len < size) ifTrue:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3245	s := self species new:size withAll:padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3246	s replaceFrom:(size - len) // 2 + 1 with:self.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3247	^ s
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3248	]
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3249
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3250	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3251	'foo' centerPaddedTo:11 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3252	'fooBar' centerPaddedTo:5 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3253	123 printString centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3254	(' ' , 123 printString) centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3255	(Float pi printString) centerPaddedTo:15 with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3256	(Float pi printString) centerPaddedTo:15 with:$-
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3257	(' ' , Float pi class name) centerPaddedTo:15 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3258	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3259	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3260
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3261	decimalPaddedTo:size and:afterPeriod at:decimalCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3262	"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	3263	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	3264	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	3265	to be padded).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3266	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	3267	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3268	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3269
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3270	^ self
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3271	decimalPaddedTo:size
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3272	and:afterPeriod
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3273	at:decimalCharacter
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3274	withLeft:(Character space)
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3275	right:$0
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3276
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3277	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3278	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3279	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3280	'123.' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3281	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.100'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3282	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.1 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3283	'123.123' decimalPaddedTo:10 and:3 at:$. -> ' 123.123'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3284	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3285
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3286	"Created: 23.12.1995 / 13:11:52 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3287	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3288
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3289	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	3290	"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	3291	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	3292	of the period.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3293	Characters on the left are filled with leftPadChar.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3294	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	3295	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	3296	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	3297	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3298	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3299
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	3300	\|s idx n\|
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3301
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3302	idx := self indexOf:decimalCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3303	idx == 0 ifTrue:[
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3304	"/
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3305	"/ no decimal point found; adjust string to the left of the period column
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3306	"/
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3307	rightPadChar isNil ifTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3308	s := self , (self species new:afterPeriod + 1 withAll:leftPadChar)
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3309	] ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3310	s:= self , decimalCharacter asString , (self species new:afterPeriod withAll:rightPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3311	].
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3312	] ifFalse:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3313
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3314	"/ the number of after-decimalPoint characters
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3315	n := self size - idx.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3316	rightPadChar isNil ifTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3317	s := self , (self species new:afterPeriod - n withAll:leftPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3318	] ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3319	s := self , (self species new:afterPeriod - n withAll:rightPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3320	].
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3321	].
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3322
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3323	^ s leftPaddedTo:size with:leftPadChar
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3324
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3325	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3326	'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	3327	'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	3328	'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	3329	'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	3330	'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	3331	'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	3332	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3333
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3334	"Modified: 23.12.1995 / 13:08:18 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3335	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	3336
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3337	leftPaddedTo:size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3338	"return a new string of length size, which contains the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3339	right-adjusted (i.e. padded on the left).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3340	Characters on the left are filled with spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3341	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	3342	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3343
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3344	^ self leftPaddedTo:size with:(Character space)
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	'foo' leftPaddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3348	'fooBar' leftPaddedTo:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3349	123 printString leftPaddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3350	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3351	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3352
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3353	leftPaddedTo:size with:padCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3354	"return a new string of length size, which contains the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3355	right-adjusted (i.e. padded on the left).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3356	Characters on the left are filled with padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3357	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	3358	the original receiver is returned unchanged."
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	\|len s\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3361
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3362	len := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3363	(len < size) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3364	s := self species new:size withAll:padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3365	s replaceFrom:(size - len + 1) with:self.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3366	^ s
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3369	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3370	'foo' leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3371	'fooBar' leftPaddedTo:5 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3372	123 printString leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3373	(' ' , 123 printString) leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3374	(Float pi printString) leftPaddedTo:15 with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3375	(Float pi printString) leftPaddedTo:15 with:$-
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3376	(' ' , Float pi class name) leftPaddedTo:15 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3377	"
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	paddedTo:newSize
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3381	"return a new string consisting of the receivers characters,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3382	plus spaces up to length.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3383	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	3384	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3385
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3386	^ self paddedTo:newSize with:(Character space)
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	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3389	'foo' paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3390	123 printString paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3391	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3392	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3393
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3394	paddedTo:newSize with:padCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3395	"return a new string consisting of the receivers characters,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3396	plus pad characters up to length.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3397	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	3398	the original receiver is returned unchanged."
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	\|s len\|
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	len := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3403	len < newSize ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3404	s := self species new:newSize withAll:padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3405	s replaceFrom:1 to:len with:self.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3406	^ s
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3407	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3408
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3409	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3410	'foo' paddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3411	123 printString paddedTo:10 with:$*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3412	(Float pi printString) paddedTo:15 with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3413	(Float pi printString) paddedTo:15 with:$-
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3414	(Float pi class name , ' ') paddedTo:15 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3415	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3416	! !
af7aeb79b25e Initial revision claus parents: diff changeset	3417
328 7b542c0bf1dd . claus parents: 327 diff changeset	3418	!CharacterArray methodsFor:'pattern matching'!
7b542c0bf1dd . claus parents: 327 diff changeset	3419
2551 46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3420	compoundMatch:aString
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3421	"like match, but the receiver may be a compount match pattern,
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3422	consisting of multiple simple patterns, separated by semicolons.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3423	This is usable with fileName pattern fields."
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3424
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3425	\|matchers\|
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3426
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3427	matchers := self asCollectionOfSubstringsSeparatedBy:$;.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3428	matchers do:[:aPattern \|
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3429	(aPattern match:aString) ifTrue:[^ true].
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3430	].
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3431	^ false.
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3432
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3433	"
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3434	'f*' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3435	'b*' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3436	'f;b' match:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3437	'f;b' match:'bar'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3438	'f;b' compoundMatch:'foo'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3439	'f;b' compoundMatch:'bar'
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3440	"
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3441
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3442	"Modified: 15.4.1997 / 15:50:33 / cg"
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3443	!
46c18418fb05 added compoundMatch Claus Gittinger <cg@exept.de> parents: 2537 diff changeset	3444
328 7b542c0bf1dd . claus parents: 327 diff changeset	3445	findMatchString:matchString
368 a3c21a89ec37 * empty log message * claus parents: 360 diff changeset	3446	"like findString/indexOfSubCollection, but allowing match patterns.
328 7b542c0bf1dd . claus parents: 327 diff changeset	3447	find matchstring; if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	3448	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	3449
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	3450	^ self findMatchString:matchString startingAt:1 ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	3451	!
7b542c0bf1dd . claus parents: 327 diff changeset	3452
7b542c0bf1dd . claus parents: 327 diff changeset	3453	findMatchString:matchString startingAt:index
7b542c0bf1dd . claus parents: 327 diff changeset	3454	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	3455	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	3456	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	3457
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	3458	^ self findMatchString:matchString startingAt:index ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	3459	!
7b542c0bf1dd . claus parents: 327 diff changeset	3460
7b542c0bf1dd . claus parents: 327 diff changeset	3461	findMatchString:matchString startingAt:index ignoreCase:ignoreCase ifAbsent:exceptionBlock
7b542c0bf1dd . claus parents: 327 diff changeset	3462	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	3463	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	3464	if not found, return the result of evaluating exceptionBlock.
7b542c0bf1dd . claus parents: 327 diff changeset	3465	This is a q&d hack - not very efficient"
7b542c0bf1dd . claus parents: 327 diff changeset	3466
7b542c0bf1dd . claus parents: 327 diff changeset	3467	\|firstChar
7b542c0bf1dd . claus parents: 327 diff changeset	3468	startIndex "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	3469	matchSize "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	3470	mySize "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	3471	realMatchString\|
7b542c0bf1dd . claus parents: 327 diff changeset	3472
7b542c0bf1dd . claus parents: 327 diff changeset	3473	matchSize := matchString size.
7b542c0bf1dd . claus parents: 327 diff changeset	3474	matchSize == 0 ifTrue:[^ index]. "empty string matches"
7b542c0bf1dd . claus parents: 327 diff changeset	3475
7b542c0bf1dd . claus parents: 327 diff changeset	3476	realMatchString := matchString.
7b542c0bf1dd . claus parents: 327 diff changeset	3477	(realMatchString endsWith:$*) ifFalse:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3478	realMatchString := realMatchString , '*'.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3479	matchSize := matchSize + 1
328 7b542c0bf1dd . claus parents: 327 diff changeset	3480	].
7b542c0bf1dd . claus parents: 327 diff changeset	3481
7b542c0bf1dd . claus parents: 327 diff changeset	3482	mySize := self size.
7b542c0bf1dd . claus parents: 327 diff changeset	3483	firstChar := realMatchString at:1.
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3484	firstChar == $\ ifTrue:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3485	firstChar := realMatchString at:2.
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3486	].
328 7b542c0bf1dd . claus parents: 327 diff changeset	3487
7b542c0bf1dd . claus parents: 327 diff changeset	3488	firstChar asString includesMatchCharacters ifTrue:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3489	index to:mySize do:[:col \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3490	(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	3491	ifTrue:[^ col]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3492	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3493	^ exceptionBlock value.
328 7b542c0bf1dd . claus parents: 327 diff changeset	3494	].
7b542c0bf1dd . claus parents: 327 diff changeset	3495	startIndex := self indexOf:firstChar startingAt:index.
7b542c0bf1dd . claus parents: 327 diff changeset	3496	[startIndex == 0] whileFalse:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3497	(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	3498	ifTrue:[^ startIndex].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3499	startIndex := self indexOf:firstChar startingAt:(startIndex + 1)
328 7b542c0bf1dd . claus parents: 327 diff changeset	3500	].
7b542c0bf1dd . claus parents: 327 diff changeset	3501	^ exceptionBlock value
7b542c0bf1dd . claus parents: 327 diff changeset	3502
7b542c0bf1dd . claus parents: 327 diff changeset	3503	"
7b542c0bf1dd . claus parents: 327 diff changeset	3504	'one two three four' findMatchString:'o[nu]'
7b542c0bf1dd . claus parents: 327 diff changeset	3505	'one two three four' findMatchString:'o[nu]' startingAt:3
7b542c0bf1dd . claus parents: 327 diff changeset	3506	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3507
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3508	"Modified: 2.4.1997 / 17:26:39 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	3509	!
7b542c0bf1dd . claus parents: 327 diff changeset	3510
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3511	includesMatchString:matchString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3512	"like includesString, but allowing match patterns.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3513	find matchstring; if found, return true, otherwise return false"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3514
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3515	^ (self findMatchString:matchString) ~~ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3516
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3517	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3518	'hello world' includesMatchString:'h*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3519	'hello world' includesMatchString:'h[aeiou]llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3520	'hello world' includesMatchString:'wor*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3521	'hello world' includesMatchString:'woR*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3522	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3523	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3524
328 7b542c0bf1dd . claus parents: 327 diff changeset	3525	match:aString
7b542c0bf1dd . claus parents: 327 diff changeset	3526	"return true if aString matches self, where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	3527	characters $* (to match any string) or $# (to match any character).
7b542c0bf1dd . claus parents: 327 diff changeset	3528	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	3529	Lower/uppercase are considered different.
cf2301210c47 . claus parents: 343 diff changeset	3530	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	3531	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	3532
7b542c0bf1dd . claus parents: 327 diff changeset	3533	^ self match:aString from:1 to:aString size ignoreCase:false
7b542c0bf1dd . claus parents: 327 diff changeset	3534
7b542c0bf1dd . claus parents: 327 diff changeset	3535	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3536	'\f' match:'f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3537	'\f' match:'*f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3538	'\f' match:'f'
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3539	'f' match:'*f'
328 7b542c0bf1dd . claus parents: 327 diff changeset	3540	'ute' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	3541	'*uter' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	3542	'uter*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	3543	'ute' match:''
7b542c0bf1dd . claus parents: 327 diff changeset	3544	'[abcd]*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	3545	'[abcd]*' match:'komputer'
7b542c0bf1dd . claus parents: 327 diff changeset	3546	'somecomplern' match:'this is some more complicated pattern match'
7b542c0bf1dd . claus parents: 327 diff changeset	3547	'somecomplern' match:'this is another complicated pattern match'
7b542c0bf1dd . claus parents: 327 diff changeset	3548	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3549
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3550	"Modified: 1.4.1997 / 18:38:02 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	3551	!
7b542c0bf1dd . claus parents: 327 diff changeset	3552
7b542c0bf1dd . claus parents: 327 diff changeset	3553	match:aString from:start to:stop ignoreCase:ignoreCase
7b542c0bf1dd . claus parents: 327 diff changeset	3554	"return true if part of aString matches myself,
7b542c0bf1dd . claus parents: 327 diff changeset	3555	where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	3556	characters $* (to match any string) or $# (to match any character)
7b542c0bf1dd . claus parents: 327 diff changeset	3557	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	3558	If ignoreCase is true, lower/uppercase are considered the same.
cf2301210c47 . claus parents: 343 diff changeset	3559	NOTICE: match-meta character interpretation is like in unix-matching,
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3560	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	3561
7b542c0bf1dd . claus parents: 327 diff changeset	3562	\|matchScanArray\|
7b542c0bf1dd . claus parents: 327 diff changeset	3563
7b542c0bf1dd . claus parents: 327 diff changeset	3564	"
7b542c0bf1dd . claus parents: 327 diff changeset	3565	keep the matchScanArray from the most recent match -
7b542c0bf1dd . claus parents: 327 diff changeset	3566	avoids parsing the pattern over-and over if multiple searches
7b542c0bf1dd . claus parents: 327 diff changeset	3567	are done with the same pattern.
7b542c0bf1dd . claus parents: 327 diff changeset	3568	"
7b542c0bf1dd . claus parents: 327 diff changeset	3569	(PreviousMatch notNil
7b542c0bf1dd . claus parents: 327 diff changeset	3570	and:[PreviousMatch key = self]) ifTrue:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3571	matchScanArray := PreviousMatch value
328 7b542c0bf1dd . claus parents: 327 diff changeset	3572	] ifFalse:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3573	matchScanArray := self class matchScanArrayFrom:self.
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3574	matchScanArray isNil ifTrue:[
2124 6238280f6120 new infoMessage scheme Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	3575	'CharacterArray [info]: invalid matchpattern:' infoPrint. self infoPrintCR.
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3576	^ false
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3577	].
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3578	PreviousMatch := self -> matchScanArray.
328 7b542c0bf1dd . claus parents: 327 diff changeset	3579	].
7b542c0bf1dd . claus parents: 327 diff changeset	3580
7b542c0bf1dd . claus parents: 327 diff changeset	3581	^ self class
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3582	matchScan:matchScanArray
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3583	from:1 to:matchScanArray size
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3584	with:aString
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3585	from:start to:stop
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3586	ignoreCase:ignoreCase
328 7b542c0bf1dd . claus parents: 327 diff changeset	3587
7b542c0bf1dd . claus parents: 327 diff changeset	3588	"
7b542c0bf1dd . claus parents: 327 diff changeset	3589	'ute' match:'12345COMPUTER' from:1 to:5 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	3590	'ute' match:'12345COMPUTER' from:6 to:13 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	3591	"
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	3592
2124 6238280f6120 new infoMessage scheme Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	3593	"Modified: 10.1.1997 / 15:36:02 / cg"
359 b8df66983eff . claus parents: 357 diff changeset	3594	!
b8df66983eff . claus parents: 357 diff changeset	3595
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3596	match:aString ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3597	"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	3598	characters $* (to match any string) or $# (to match any character)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3599	or [...] to match a set of characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3600	If ignoreCase is true, lower/uppercase are considered the same.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3601	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	3602	NOT the ST-80 meaning."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3603
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3604	^ self match:aString from:1 to:aString size ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3605
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3606	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3607	'ute' match:'COMPUTER' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3608	'*uter' match:'COMPUTER' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3609	'[abcd]*' match:'computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3610	'[abcd]*' match:'Computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3611	'[a-k]*' match:'komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3612	'[a-k]*' match:'zomputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3613	'[a-k]*' match:'Komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3614	'[a-k]*' match:'Komputer' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3615	'somecomplern' match:'this is some more complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3616	'somecomplern' match:'this is another complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3617
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3618	Time millisecondsToRun:[
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3619	Symbol allInstancesDo:[:sym \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3620	'[ab]*' match:sym ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3621	]
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3622	].
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3623	Time millisecondsToRun:[
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3624	Symbol allInstancesDo:[:sym \|
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3625	'at:' match:sym ignoreCase:false
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3626	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3627	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3628	"
2519 07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3629
07674cea76dd allow escaping a * when doing a match Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	3630	"Modified: 2.4.1997 / 17:28:58 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3631	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3632
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3633	!CharacterArray methodsFor:'printing & storing'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3634
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3635	article
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3636	"return an article string for the receiver."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3637
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3638	\|firstChar\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3639
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3640	firstChar := (self at:1) asLowercase.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3641	(firstChar isVowel or:[firstChar == $x]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3642	firstChar ~~ $u ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3643	^ 'an'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3644	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3645	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3646	^ 'a'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3647	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3648
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3649	displayString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3650	"return a string to display the receiver - use storeString to have
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3651	quotes around."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3652
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3653	^ self storeString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3654	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3655
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3656	printOn:aStream
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3657	"print the receiver on aStream"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3658
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3659	aStream nextPutAll:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3660	!
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	printString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3663	"return a string for printing - thats myself"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3664
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3665	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3666	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3667
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3668	!CharacterArray methodsFor:'queries'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3669
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3670	encoding
1311 367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	3671	"return the strings encoding, as a symbol.
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	3672	Here, by default, we assume #iso8859 encoding.
1241 431675180b54 commentary Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	3673	This has to be redefined in XXXEncodedString subclasses."
1012 19fd2f72269f keep track of encoding of 16bit strings Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	3674
1311 367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	3675	^ #iso8859
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	3676
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	3677	"Modified: 27.4.1996 / 13:23:49 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3678	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3679
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3680	hasChangeOfEmphasis
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3681	^ false
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3682
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3683	"Created: 12.5.1996 / 12:31:39 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3684	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	3685
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3686	heightOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3687	"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	3688
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3689	^ aGC font heightOf:self
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3690
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3691	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3692	'hello world' heightOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3693	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3694
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3695	"Created: 12.5.1996 / 20:09:29 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3696	"Modified: 12.5.1996 / 20:32:05 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3697	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3698
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3699	isString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3700	"return true, if the receiver is some kind of string;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3701	true is returned here - redefinition of Object>>isString."
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	^ true
1235 2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3704	!
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3705
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3706	leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3707	"if the receiver starts with spaces, return the number of spaces
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3708	at the left - otherwise, return 0.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3709	If the receiver consists of spaces only, return the receivers size."
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3710
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3711	\|index "{Class: SmallInteger }"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3712	end "{Class: SmallInteger }"\|
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3713
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3714	index := 1.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3715	end := self size.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3716	[index <= end] whileTrue:[
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3717	(self at:index) isSeparator ifFalse:[^ index - 1].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3718	index := index + 1
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3719	].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3720	^ end
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3721
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3722	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3723	' hello' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3724	'foo ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3725	' ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3726	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3727
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	3728	"Modified: 20.4.1996 / 19:28:43 / cg"
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3729	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3730
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3731	widthOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3732	"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	3733
2554 309ee6707322 checkin from browser Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3734	^ (aGC font on:aGC device) widthOf:self
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3735
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3736	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3737	'hello world' widthOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3738	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3739
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	3740	"Created: 12.5.1996 / 20:09:29 / cg"
2554 309ee6707322 checkin from browser Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3741	"Modified: 17.4.1997 / 12:50:23 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3742	! !
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	!CharacterArray methodsFor:'special string converting'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3745
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3746	chopTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3747	"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	3748	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3749	in the middle have been removed for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3750	of maxLen."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3751
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3752	\|sz n1 n2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3753
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3754	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3755	n1 := n2 := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3756	maxLen odd ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3757	n2 := n1 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3758	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3759	^ (self copyFrom:1 to:n1) , (self copyFrom:sz - n2 + 1)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3760	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3761
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3762	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3763	'12345678901234' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3764	'123456789012345' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3765	'1234567890123456' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3766	'aShortString' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3767	'aVeryLongNameForAStringThatShouldBeShortened' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3768	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3769	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3770
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3771	contractAtBeginningTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3772	"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	3773	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3774	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	3775	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3776
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3777	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3778
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3779	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3780	^ '...' , (self copyFrom:(sz - (maxLen - 4)))
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3781	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3782
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3783	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3784	'12345678901234' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3785	'123456789012345' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3786	'1234567890123456' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3787	'aShortString' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3788	'aVeryLongNameForAStringThatShouldBeShortened' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3789	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3790	!
359 b8df66983eff . claus parents: 357 diff changeset	3791
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3792	contractAtEndTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3793	"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	3794	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3795	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	3796	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3797
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3798	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3799
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3800	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3801	^ self copyReplaceFrom:maxLen - 3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3802	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3803	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3804
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	'12345678901234' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3807	'123456789012345' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3808	'1234567890123456' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3809	'aShortString' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3810	'aVeryLongNameForAStringThatShouldBeShortened' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3811	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3812	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3813
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3814	contractTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3815	"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	3816	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3817	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	3818	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3819
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3820	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3821	halfSize "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3822
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3823	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3824	halfSize := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3825	^ self copyReplaceFrom:halfSize - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3826	to:sz - maxLen + halfSize + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3827	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3828	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3829
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3830	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3831	'12345678901234' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3832	'123456789012345' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3833	'1234567890123456' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3834	'aShortString' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3835	'aVeryLongNameForAStringThatShouldBeShortened' contractTo:15
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3839	expandPlaceholdersWith:argArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3840	"return a copy of the receiver, where all %i escapes are
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	3841	replaced by corresponding arguments' printStrings from the argArray.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3842	I.e. 'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this') results
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3843	in the new string 'hello world; how is this'.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3844	To get a '%' character, use a '%%'-escape.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3845	See also bindWith:... for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3846
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3847	\|expandedString next
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3848	idx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3849	start "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3850	stop "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3851
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3852	expandedString := self species new:0.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3853	stop := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3854	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3855	[start <= stop] whileTrue:[
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3856	idx := self indexOf:$% startingAt:start.
2737 9f29aecea39d care for % at end in expandPlaceHolders. Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	3857	(idx == 0 or:[idx == stop]) ifTrue:[
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3858	^ expandedString , (self copyFrom:start to:stop)
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3859	].
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3860	"found a %"
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3861	expandedString := expandedString , (self copyFrom:start to:(idx - 1)).
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3862	next := self at:(idx + 1).
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3863	(next == $%) ifTrue:[
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3864	expandedString := expandedString , '%'
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3865	] ifFalse:[
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3866	expandedString := expandedString , (argArray at:(next digitValue)) printString
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3867	].
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3868	start := idx + 2
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3869	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3870	^ expandedString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3871
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3872	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3873	'hello %1' expandPlaceholdersWith:#('world')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3874	'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3875	'hello %2; how is %1' expandPlaceholdersWith:#('world' 'this')
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	3876	'%1 plus %2 gives %3 ' expandPlaceholdersWith:#(4 5 9)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3877	"
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3878
2737 9f29aecea39d care for % at end in expandPlaceHolders. Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	3879	"Modified: 1.7.1997 / 00:53:24 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3880	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3881
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3882	withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3883	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3884	with all \-characters replaced by cr-characters."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3885
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3886	^ self copy replaceAll:$\ by:(Character cr)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3887
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3888	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3889	'hello\world' withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3890	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3891	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3892
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3893	withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3894	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3895	with all \X-character escapes replaced by corresponding-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3896	(similar to the way C-language Strings are converted).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3897	The following escapes are supported:
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3898	\r return character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3899	\n newline character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3900	\b backspace character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3901	\f formfeed character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3902	\t tab character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3903	\e escape character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3904	\\ the \ character itself
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3905	\nnn three digit octal number defining the characters ascii value
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3906	\other other
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3907
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3908	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	3909	string constants is not affected by this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3910
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3911	Although easily implementable, this is NOT done automatically
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3912	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	3913	However, the compiler may detect sends ot #withEscapes to string literals
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3914	and place a modified string constant into the binary/byte-code.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3915	Therefore, no runtime penalty will be payed for using these escapes.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3916	(not in pre 2.11 versions)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3917	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3918
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3919	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3920	newSize "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3921	srcIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3922	dstIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3923	val "{ SmallInteger }"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3924	newString next hasEmphasis e\|
359 b8df66983eff . claus parents: 357 diff changeset	3925
b8df66983eff . claus parents: 357 diff changeset	3926	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3927	first, count the number of escapes, to allow preallocation
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3928	of the new string ...
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3929	(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	3930	times in a WriteStream)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3931	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3932	sz := newSize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3933	srcIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3934	[(srcIdx := self indexOf:$\ startingAt:srcIdx) ~~ 0] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3935	srcIdx == sz ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3936	newSize := newSize - 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3937	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3938	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3939	next == $0 ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3940	[(self at:srcIdx) isDigit] whileTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3941	newSize := newSize - 1. srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3942	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3943	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3944	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3945	srcIdx := srcIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3946	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3947
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3948	newSize == sz ifTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3949	^ self
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3950	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3951
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3952	newString := self species new:newSize.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3953
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3954	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3955
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3956	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3957	copy over, replace escapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3958	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3959	srcIdx := dstIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3960	[srcIdx <= sz] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3961	next := self at:srcIdx.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3962	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3963	e := self emphasisAt:srcIdx
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3964	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3965	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3966	next == $\ ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3967	srcIdx <= sz ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3968	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3969	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3970	next == $r ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3971	next := Character return
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3972	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3973	next == $n ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3974	next := Character nl
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3975	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3976	next == $b ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3977	next := Character backspace
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3978	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3979	next == $f ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3980	next := Character newPage
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3981	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3982	next == $t ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3983	next := Character tab
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3984	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3985	next == $e ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3986	next := Character esc
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3987	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3988	next == $0 ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3989	val := 0.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3990	[next isDigit] whileTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3991	val := val * 8 + next digitValue.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3992	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3993	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3994	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3995	next := Character value:val.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3996	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3997	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3998	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3999	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4000	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4001	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4002	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4003	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4004	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4005	newString at:dstIdx put:next.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4006	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4007	newString emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4008	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4009	dstIdx := dstIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4010	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4011	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4012
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4013	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4014	'hello world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4015	'hello\world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4016	'hello\world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4017	'hello world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4018	'hello\tworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4019	'hello\nworld\na\n\tnice\n\t\tstring' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4020	'hello\tworld\n' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4021	'hello\010world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4022	'hello\r\nworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4023	"
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	4024
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4025	"Modified: 12.5.1996 / 12:53:34 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4026	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4027
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4028	withTabs
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4029	"return a string consisting of the receivers characters
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4030	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	4031	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	4032	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4033	Limitation: only the very first spaces are replaced
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4034	(i.e. if the receiver contains newLine characters,
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4035	no tabs are inserted after those lineBreaks)"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4036
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4037	\|idx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4038	nTabs "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4039	newString\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4040
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4041	idx := self findFirst:[:c \| (c ~~ Character space)].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4042	nTabs := (idx-1) // 8.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4043	nTabs == 0 ifTrue:[^ self].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4044
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4045	"any tabs"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4046	newString := self class new:(self size - (nTabs * 7)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4047	newString atAll:(1 to:nTabs) put:(Character tab).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4048	newString replaceFrom:(nTabs + 1) with:self startingAt:(nTabs * 8 + 1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4049	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4050
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4051	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4052	'12345678901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4053	' 8901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4054	' 901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4055	' 67890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4056	' 7890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4057	' 890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4058	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4059	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4060
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4061	withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4062	"return a string consisting of the receivers characters,
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4063	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	4064	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	4065	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4066	This does handle multiline strings."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4067
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4068	\|col "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4069	str ch
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4070	dstIdx "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4071	newSz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4072	sz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4073	hasEmphasis e\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4074
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4075	(self includes:(Character tab)) ifFalse:[^ self].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4076
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4077	sz := self size.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4078
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4079	"/ count the new size first, instead of
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4080	"/ multiple resizing (better for large strings)
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4081
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4082	col := 1. newSz := 0.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4083	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4084	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4085	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4086	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4087	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4088	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4089	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4090	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4091	] ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4092	(col \\ 8) to:8 do:[:ii \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4093	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4094	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4095	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4096	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4097	].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4098
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4099	str := self species new:newSz.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4100
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4101	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4102
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4103	col := 1. dstIdx := 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4104	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4105	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4106
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4107	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4108	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4109	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4110	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4111	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4112	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4113	e := self emphasisAt:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4114	str emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4115	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4116	str at:dstIdx put:ch.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4117	dstIdx := dstIdx + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4118	] ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4119	(col \\ 8) to:8 do:[:ii \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4120	str at:dstIdx put:Character space.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4121	dstIdx := dstIdx + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4122	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4123	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4124	]
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4125	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4126	^ str
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4127
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4128	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4129	('1' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4130	('12345' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4131	('123456' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4132	('1234567' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4133	('12345678' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4134	('123456789' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4135
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4136	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4137	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4138	with:$1) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4139
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4140	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4141	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4142	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4143	with:$2) withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4144
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4145	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4146	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4147	with:Character cr
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4148	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4149	with:$2) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4150	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	4151
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4152	"Modified: 12.5.1996 / 13:05:10 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4153	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4154
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4155	withoutCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4156	"return a new collection consisting of receivers elements
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4157	with all cr-characters replaced by \-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4158	This is the reverse operation of withCRs."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4159
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4160	^ self copy replaceAll:(Character cr) by:$\
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4161	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4162	'hello
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4163	world' withoutCRs
359 b8df66983eff . claus parents: 357 diff changeset	4164	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4165	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4166
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4167	withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4168	"return a copy of myself without leading separators.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4169	Notice: this does remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4170	Returns an empty string, if the receiver consist only of whitespace."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4171
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4172	\|index\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4173
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4174	index := self indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4175	index ~~ 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4176	index == 1 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4177	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4178	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4179	^ self copyFrom:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4180	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4181	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4182
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4183	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4184	' foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4185	'foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4186	' foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4187	' ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4188	'foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4189	(' ' , Character tab asString , ' foo ') withoutLeadingSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4190	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4191	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4192
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4193	withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4194	"return a copy of myself without leading and trailing whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4195	Whitespace is space, tab, newline, formfeed.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4196	Use withoutSpaces, if you want to remove spaces only."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4197
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4198	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4199	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4200	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4201
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4202	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4203	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4204	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4205
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4206	[(startIndex < endIndex) and:[(self at:startIndex) isSeparator]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4207	startIndex := startIndex + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4208	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4209	[(endIndex > 1) and:[(self at:endIndex) isSeparator]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4210	endIndex := endIndex - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4211	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4212	startIndex > endIndex ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4213	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4214	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4215	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4216	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4217	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4218	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4219
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4220	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4221	' foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4222	' foo' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4223	'foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4224	' ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4225	(' foo' , Character tab asString , ' ') withoutSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4226	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4227	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4228
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4229	withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4230	"return a copy of myself without leading and trailing spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4231	Notice: this does NOT remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4232	Use withoutSeparators for this."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4233
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4234	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4235	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4236	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4237
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4238	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4239	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4240	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4241
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4242	[(startIndex < endIndex) and:[(self at:startIndex) == Character space]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4243	startIndex := startIndex + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4244	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4245	[(endIndex > 1) and:[(self at:endIndex) == Character space]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4246	endIndex := endIndex - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4247	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4248	startIndex > endIndex ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4249	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4250	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4251	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4252	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4253	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4254	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4255
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4256	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4257	' foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4258	'foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4259	' foo' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4260	' ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4261	(' foo' , Character tab asString , ' ') withoutSpaces inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4262	"
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4263	!
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4264
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4265	withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4266	"return a copy of myself without trailing separators.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4267	Notice: this does remove tabs, newline or any other whitespace.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4268	Returns an empty string, if the receiver consist only of whitespace."
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4269
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4270	\|index\|
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4271
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4272	index := self size.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4273	[index ~~ 0] whileTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4274	(self at:index) isSeparator ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4275	^ self copyTo:index
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4276	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4277	index := index - 1
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4278	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4279	^ ''
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4280
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4281	"
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4282	' foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4283	'foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4284	' foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4285	' ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4286	'foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4287	(' ' , Character tab asString , ' foo ') withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4288	(' foo' , Character tab asString) withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	4289	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4290	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4291
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4292	!CharacterArray methodsFor:'substring searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4293
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4294	findString:subString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4295	"find a substring. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4296	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4297
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	4298	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4299
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4300	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4301	'hello world' findString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4302	'hello world' findString:'ole'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4303	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4304	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4305
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4306	findString:subString ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4307	"find a substring. If found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4308	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4309
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4310	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4311	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4312
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4313	findString:subString startingAt:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4314	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4315	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4316
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	4317	^ self indexOfSubCollection:subString startingAt:index ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4318
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4319	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4320	'hello yello' findString:'llo' startingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4321	'hello yello' findString:'llo' startingAt:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4322	'hello yello' findString:'llo' startingAt:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4323	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4324	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4325
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4326	findString:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4327	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4328	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4329
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4330	^ self indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4331	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4332
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4333	includesString:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4334	"return true, if a substring is contained in the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4335
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	4336	^ (self indexOfSubCollection:aString startingAt:1 ifAbsent:0) ~~ 0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4337
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4338	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4339	'hello world' includesString:'hel'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4340	'hello world' includesString:'rld'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4341	'hello world' includesString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4342	'hello world' includesString:'LLO'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4343	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4344	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4345
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4346	indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4347	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4348	if not found, return the result of evaluating exceptionBlock.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4349	This is a q&d hack - not very efficient"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4350
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4351	\|firstChar found
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4352	startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4353	subSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4354	mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4355	runIdx "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4356
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4357	subSize := subString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4358	subSize == 0 ifTrue:[^ index]. "empty string matches"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4359	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4360	firstChar := subString at:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4361	startIndex := self indexOf:firstChar startingAt:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4362	[startIndex == 0] whileFalse:[
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4363	runIdx := startIndex.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4364	found := true.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4365	1 to:subSize do:[:i \|
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4366	runIdx > mySize ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4367	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4368	] ifFalse:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4369	(subString at:i) ~= (self at:runIdx) ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4370	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4371	]
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4372	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4373	runIdx := runIdx + 1
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4374	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4375	found ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4376	^ startIndex
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4377	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4378	startIndex := self indexOf:firstChar startingAt:(startIndex + 1)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4379	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4380	^ exceptionBlock value
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4381
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	4382	"Modified: 23.2.1996 / 15:35:15 / cg"
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4383	!
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4384
652 b2212c748f24 typo Claus Gittinger <cg@exept.de> parents: 651 diff changeset	4385	restAfter:keyword withoutSeparators:strip
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4386	"compare the left of the receiver with keyword,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4387	if it matches return the right.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4388	Finally, if strip is true, remove whiteSpace.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4389	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	4390	something: rest
759 908363ce8a32 interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 735 diff changeset	4391	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	4392	begins with something.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4393
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4394	You may wonder why such a specialized method exists here
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4395	- this is so common when processing mailboxes,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4396	rcs files, nntp/pop3 responses, that is was considered worth
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4397	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	4398	times in variuos places."
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4399
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4400	\|rest\|
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4401
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4402	(self startsWith:keyword) ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4403	rest := self copyFrom:(keyword size + 1).
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4404	strip ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4405	rest := rest withoutSeparators
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4406	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4407	^ rest
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4408	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4409	^ nil
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4410
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4411	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4412	'foo: hello world' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4413	'funny: something' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4414
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4415	'foo: hello world ' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4416	'foo: hello world ' restAfter:'foo:' withoutSeparators:false
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4417	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4418
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4419	"Created: 25.11.1995 / 11:04:18 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	4420	! !
7b542c0bf1dd . claus parents: 327 diff changeset	4421
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	4422	!CharacterArray methodsFor:'testing'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	4423
1613 cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4424	continuesWith:aString startingAt:startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4425	"return true, if the receiver beginning at startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4426	contains the characters in aString."
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4427
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4428	\|sz "{Class: SmallInteger }"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4429	idx "{Class: SmallInteger }"\|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4430
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4431	sz := aString size.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4432	idx := startIndex.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4433
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4434	1 to:sz do:[:i \|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4435	(self at:idx) ~~ (aString at:i) ifTrue:[^ false].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4436	idx := idx + 1
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4437	].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4438	^ true
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4439
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4440	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4441	'hello world' continuesWith:'world' startingAt:6
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4442	'hello world' continuesWith:'world' startingAt:7
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4443	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4444
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4445	"Created: 12.5.1996 / 15:46:40 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4446	"Modified: 26.7.1996 / 19:08:36 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4447	!
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	4448
64 af7aeb79b25e Initial revision claus parents: diff changeset	4449	countWords
af7aeb79b25e Initial revision claus parents: diff changeset	4450	"return the number of words, which are separated by separators"
af7aeb79b25e Initial revision claus parents: diff changeset	4451
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	4452	\|tally "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	4453	start "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	4454	mySize "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	4455	stop ch\|
64 af7aeb79b25e Initial revision claus parents: diff changeset	4456
af7aeb79b25e Initial revision claus parents: diff changeset	4457	tally := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	4458	start := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	4459	mySize := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	4460	[start <= mySize] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4461	ch := self at:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4462	ch isSeparator ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4463	start := start + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4464	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4465	stop := self indexOfSeparatorStartingAt:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4466	(stop == 0) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4467	stop := mySize + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4468	].
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4469	tally := tally + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4470	start := stop
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4471	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	4472	].
af7aeb79b25e Initial revision claus parents: diff changeset	4473	^ tally
af7aeb79b25e Initial revision claus parents: diff changeset	4474
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	4475	"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	4476	'hello world isnt this nice' countWords'
0c73b48551ac * empty log message * claus parents: 82 diff changeset	4477	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4478	!
af7aeb79b25e Initial revision claus parents: diff changeset	4479
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4480	endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4481	"return true, if the receiver ends with something, aString."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4482
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4483	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4484
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4485	(s := self string) ~~ self ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4486	^ s endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4487	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4488	^ super endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4489
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4490	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4491	'hello world' endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4492	'hello world' asText allBold endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4493	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4494
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4495	"Modified: 12.5.1996 / 15:49:18 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4496	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4497
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4498	isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4499	"return true, if the receiver is some alphanumeric word;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4500	i.e. consists of a letter followed by letters or digits."
64 af7aeb79b25e Initial revision claus parents: diff changeset	4501
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4502	self size == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4503	"mhmh what is this ?"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4504	^ false
64 af7aeb79b25e Initial revision claus parents: diff changeset	4505	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4506	(self at:1) isLetter ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4507	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4508	char isLetterOrDigit ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4509	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4510	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	4511
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	4512	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4513	'helloWorld' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4514	'foo1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4515	'f1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4516	'1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4517	'+' isAlphaNumeric
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	4518	"
6c38ca59927f * empty log message * claus parents: 68 diff changeset	4519	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	4520
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4521	isBlank
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4522	"return true, if the receiver contains spaces only"
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	4523
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4524	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4525	char ~~ Character space ifTrue:[^ false].
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	4526	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4527	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	4528	!
af7aeb79b25e Initial revision claus parents: diff changeset	4529
af7aeb79b25e Initial revision claus parents: diff changeset	4530	levenshteinTo:aString
af7aeb79b25e Initial revision claus parents: diff changeset	4531	"return the levenshtein distance to the argument, aString;
af7aeb79b25e Initial revision claus parents: diff changeset	4532	this value corrensponds to the number of replacements that have to be
af7aeb79b25e Initial revision claus parents: diff changeset	4533	made to get aString from the receiver.
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4534	See IEEE transactions on Computers 1976 Pg 172 ff."
64 af7aeb79b25e Initial revision claus parents: diff changeset	4535
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	4536	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	4537	in the following, we assum that ommiting a character
183f094cfd72 last with old match code claus parents: 326 diff changeset	4538	is less of an error than inserting an extra character.
183f094cfd72 last with old match code claus parents: 326 diff changeset	4539	Therefore the different insertion (i) and deletion (d)
183f094cfd72 last with old match code claus parents: 326 diff changeset	4540	values.
183f094cfd72 last with old match code claus parents: 326 diff changeset	4541	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	4542
64 af7aeb79b25e Initial revision claus parents: diff changeset	4543	^ self levenshteinTo:aString s:4 c:1 i:2 d:6
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4544
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4545	"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4546	'ocmprt' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4547	'computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4548	'ocmputer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4549	'cmputer' levenshteinTo:'computer'
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	4550	'computer' levenshteinTo:'cmputer'
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4551	'Computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4552	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4553	!
af7aeb79b25e Initial revision claus parents: diff changeset	4554
af7aeb79b25e Initial revision claus parents: diff changeset	4555	levenshteinTo:aString s:substWeight c:caseWeight i:insrtWeight d:deleteWeight
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4556	"parametrized levenshtein.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4557	return the levenshtein distance to the argument, aString;
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4558	this value corrensponds to the number of replacements that have to be
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4559	made to get aString from the receiver.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4560	The arguments are the costs for substitution, case-change, insertion and
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4561	deletion of a character.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4562	See IEEE transactions on Computers 1976 Pg 172 ff"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4563
af7aeb79b25e Initial revision claus parents: diff changeset	4564	\|d "delta matrix"
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4565	len1 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4566	len2 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4567	dim "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4568	prevRow row col
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	4569	dimPlus1 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4570	min pp c1 c2\|
af7aeb79b25e Initial revision claus parents: diff changeset	4571
af7aeb79b25e Initial revision claus parents: diff changeset	4572	len1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	4573	len2 := aString size.
af7aeb79b25e Initial revision claus parents: diff changeset	4574
af7aeb79b25e Initial revision claus parents: diff changeset	4575	"create the help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	4576
af7aeb79b25e Initial revision claus parents: diff changeset	4577	dim := len1 max:len2.
af7aeb79b25e Initial revision claus parents: diff changeset	4578	dimPlus1 := dim + 1.
af7aeb79b25e Initial revision claus parents: diff changeset	4579
af7aeb79b25e Initial revision claus parents: diff changeset	4580	d := Array new:dimPlus1.
af7aeb79b25e Initial revision claus parents: diff changeset	4581	1 to:dimPlus1 do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4582	d at:i put:(Array new:dimPlus1)
64 af7aeb79b25e Initial revision claus parents: diff changeset	4583	].
af7aeb79b25e Initial revision claus parents: diff changeset	4584
af7aeb79b25e Initial revision claus parents: diff changeset	4585	"init help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	4586
af7aeb79b25e Initial revision claus parents: diff changeset	4587	(d at:1) at:1 put:0.
af7aeb79b25e Initial revision claus parents: diff changeset	4588	row := d at:1.
af7aeb79b25e Initial revision claus parents: diff changeset	4589	1 to:dim do:[:j \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4590	row at:(j + 1) put:( (row at:j) + insrtWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	4591	].
af7aeb79b25e Initial revision claus parents: diff changeset	4592
af7aeb79b25e Initial revision claus parents: diff changeset	4593	1 to:dim do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4594	(d at:(i + 1)) at:1 put:( ((d at:i) at:1) + deleteWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	4595	].
af7aeb79b25e Initial revision claus parents: diff changeset	4596
af7aeb79b25e Initial revision claus parents: diff changeset	4597	1 to:len1 do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4598	c1 := self at:i.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4599	1 to:len2 do:[:j \|
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4600	c2 := aString at:j.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4601	(c1 == c2) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4602	pp := 0
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4603	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4604	(c1 asLowercase == c2 asLowercase) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4605	pp := caseWeight
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4606	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4607	pp := substWeight
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4608	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4609	].
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4610	prevRow := d at:i.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4611	row := d at:(i + 1).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4612	col := j + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4613	min := (prevRow at:j) + pp.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4614	min := min min:( (row at:j) + insrtWeight).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4615	min := min min:( (prevRow at:col) + deleteWeight).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4616	row at:col put: min
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4617	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	4618	].
af7aeb79b25e Initial revision claus parents: diff changeset	4619
af7aeb79b25e Initial revision claus parents: diff changeset	4620	^ (d at:(len1 + 1)) at:(len2 + 1)
af7aeb79b25e Initial revision claus parents: diff changeset	4621	!
af7aeb79b25e Initial revision claus parents: diff changeset	4622
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4623	numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4624	"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	4625
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4626	\|binopChars firstChar\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4627
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4628	(self size > 2) ifFalse:[
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4629	binopChars := Scanner binarySelectorCharacters.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4630	firstChar := self at:1.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4631
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4632	(self size == 1) ifTrue:[
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4633	((binopChars occurrencesOf:firstChar) == 0) ifTrue:[^ 0].
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4634	^ 1
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4635	].
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4636	((binopChars occurrencesOf:firstChar) == 0) ifFalse:[
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4637	((binopChars occurrencesOf:(self at:2)) == 0) ifFalse:[^ 1]
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4638	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4639	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4640	^ self occurrencesOf:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4641
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4642	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4643	'foo:bar:' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4644	#foo:bar: numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4645	'hello' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4646	'+' numArgs
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4647	'\|' numArgs
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4648	'?' numArgs
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4649	"
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4650
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	4651	"Modified: 4.1.1997 / 14:16:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4652	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4653
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4654	partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4655	"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	4656
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4657	\|idx1 "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4658	coll idx2 sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4659
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4660	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4661	idx1 := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4662	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4663	[true] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4664	idx2 := self indexOf:$: startingAt:idx1 + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4665	(idx2 == 0 or:[idx2 == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4666	coll add:(self copyFrom:idx1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4667	^ coll
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4668	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4669	coll add:(self copyFrom:idx1 to:idx2).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4670	idx1 := idx2 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4671	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4672
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4673	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4674	'foo:bar:' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4675	#foo:bar: partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4676	'hello' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	4677	'+' partsIfSelector
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
64 af7aeb79b25e Initial revision claus parents: diff changeset	4681	spellAgainst: aString
af7aeb79b25e Initial revision claus parents: diff changeset	4682	"return an integer between 0 and 100 indicating how similar
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4683	the argument is to the receiver. No case conversion is done.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4684	This algorithm is much simpler (but also less exact) than the
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4685	levenshtein distance. Experiment which is better for your
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4686	application."
64 af7aeb79b25e Initial revision claus parents: diff changeset	4687
af7aeb79b25e Initial revision claus parents: diff changeset	4688	\| i1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	4689	i2 "{ Class: SmallInteger }"
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4690	next1 "{ Class: SmallInteger }"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4691	next2 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4692	size1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	4693	size2 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	4694	score "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	4695	maxLen "{ Class: SmallInteger }" \|
af7aeb79b25e Initial revision claus parents: diff changeset	4696
af7aeb79b25e Initial revision claus parents: diff changeset	4697	size1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	4698	size2 := aString size.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4699	maxLen := size1 max:size2.
64 af7aeb79b25e Initial revision claus parents: diff changeset	4700	score := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	4701	i1 := i2 := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	4702	[i1 <= size1 and: [i2 <= size2]] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4703	next1 := i1 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4704	next2 := i2 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4705	(self at:i1) == (aString at:i2) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4706	score := score+1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4707	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4708	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4709	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4710	(i2 < size2 and: [(self at:i1) == (aString at:next2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4711	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4712	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4713	(i1 < size1 and: [(self at:next1) == (aString at:i2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4714	i1 := next1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4715	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4716	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4717	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4718	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4719	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4720	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	4721	].
af7aeb79b25e Initial revision claus parents: diff changeset	4722
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	4723	score == maxLen ifTrue: [^ 100].
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4724	^ 100 * score // maxLen
64 af7aeb79b25e Initial revision claus parents: diff changeset	4725
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4726	"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4727	'Smalltalk' spellAgainst: 'Smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4728	'Smalltalk' spellAgainst: 'smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4729	'Smalltalk' spellAgainst: 'smalltalk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4730	'Smalltalk' spellAgainst: 'smalltlk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4731	'Smalltalk' spellAgainst: 'Smalltolk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	4732	"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4733	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4734
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4735	startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4736	"return true, if the receiver starts with something, aString."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4737
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4738	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4739
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4740	(s := self string) ~~ self ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4741	^ s startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4742	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4743	^ super startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4744
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4745	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4746	'hello world' startsWith:'hello'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4747	'hello world' asText allBold startsWith:'hello'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4748	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4749
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4750	"Created: 12.5.1996 / 15:46:40 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	4751	"Modified: 12.5.1996 / 15:49:24 / cg"
64 af7aeb79b25e Initial revision claus parents: diff changeset	4752	! !
af7aeb79b25e Initial revision claus parents: diff changeset	4753
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	4754	!CharacterArray class methodsFor:'documentation'!
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	4755
2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	4756	version
2737 9f29aecea39d care for % at end in expandPlaceHolders. Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4757	^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.122 1997-06-30 22:54:03 cg Exp $'
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	4758	! !
2728 7569e45a4d15 raise error signal if anything goes wrong while decoding. Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	4759	CharacterArray initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 01 Jul 1997 00:54:03 +0200
changeset 2737	9f29aecea39d
parent 2736	840f97eb7b73
child 2740	8649f17f9148
permissions	-rw-r--r--