hg/stx-libbasic: CharacterArray.st@08fd6a693ee3 (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:''
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	15	classVariableNames:'PreviousMatch DecoderTables EncoderTables'
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	16	poolDictionaries:''
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	17	category:'Collections-Text'
64 af7aeb79b25e Initial revision claus parents: diff changeset	18	!
af7aeb79b25e Initial revision claus parents: diff changeset	19
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	20	!CharacterArray class methodsFor:'documentation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	21
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	22	copyright
0147b4f725ae * empty log message * claus parents: 77 diff changeset	23	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	24	COPYRIGHT (c) 1994 by Claus Gittinger
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	25	All Rights Reserved
82 0147b4f725ae * empty log message * claus parents: 77 diff changeset	26
0147b4f725ae * empty log message * claus parents: 77 diff changeset	27	This software is furnished under a license and may be used
0147b4f725ae * empty log message * claus parents: 77 diff changeset	28	only in accordance with the terms of that license and with the
0147b4f725ae * empty log message * claus parents: 77 diff changeset	29	inclusion of the above copyright notice. This software may not
0147b4f725ae * empty log message * claus parents: 77 diff changeset	30	be provided or otherwise made available to, or used by, any
0147b4f725ae * empty log message * claus parents: 77 diff changeset	31	other person. No title to or ownership of the software is
0147b4f725ae * empty log message * claus parents: 77 diff changeset	32	hereby transferred.
0147b4f725ae * empty log message * claus parents: 77 diff changeset	33	"
0147b4f725ae * empty log message * claus parents: 77 diff changeset	34	!
0147b4f725ae * empty log message * claus parents: 77 diff changeset	35
64 af7aeb79b25e Initial revision claus parents: diff changeset	36	documentation
af7aeb79b25e Initial revision claus parents: diff changeset	37	"
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	38	CharacterArray is a superclass for all kinds of Strings (i.e.
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	39	(singleByte-)Strings, TwoByteStrings and whatever comes in the future.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	40
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	41	As the name already implies, this class is abstract, meaning that there are
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	42	no instances of it. All this class does is provide common protocol for
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	43	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
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	54	!CharacterArray class methodsFor:'instance creation'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	55
af7aeb79b25e Initial revision claus parents: diff changeset	56	basicNew
af7aeb79b25e Initial revision claus parents: diff changeset	57	"return a new empty string"
af7aeb79b25e Initial revision claus parents: diff changeset	58
af7aeb79b25e Initial revision claus parents: diff changeset	59	^ self basicNew:0
af7aeb79b25e Initial revision claus parents: diff changeset	60	!
af7aeb79b25e Initial revision claus parents: diff changeset	61
af7aeb79b25e Initial revision claus parents: diff changeset	62	fromString:aString
af7aeb79b25e Initial revision claus parents: diff changeset	63	"return a copy of the argument, aString"
af7aeb79b25e Initial revision claus parents: diff changeset	64
68 59faa75185ba * empty log message * claus parents: 64 diff changeset	65	^ (self basicNew:(aString size)) replaceFrom:1 with:aString
59faa75185ba * empty log message * claus parents: 64 diff changeset	66
59faa75185ba * empty log message * claus parents: 64 diff changeset	67	"TwoByteString fromString:'hello'"
581 8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	68	!
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	69
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	70	fromStringCollection:aCollectionOfStrings
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	71	"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	72
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	73	^ self fromStringCollection:aCollectionOfStrings separatedBy:''
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	74
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	75	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	76	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this')
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	77	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	78
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	79	"Created: 20.11.1995 / 15:26:59 / cg"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	80	!
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	81
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	82	fromStringCollection:aCollectionOfStrings separatedBy:aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	83	"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	84
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	85	\|newString first\|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	86
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	87	newString := ''.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	88	first := true.
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	89	aCollectionOfStrings do:[:s \|
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	90	first ifFalse:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	91	newString := newString , aSeparatorString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	92	] ifTrue:[
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	93	first := false
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	94	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	95	newString := newString , s
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	96	].
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	97	^ newString
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	98
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	99	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	100	String fromStringCollection:#('hello' 'world' 'how' 'about' 'this') separatedBy:' '
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	101	"
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	102
8a991a4cb738 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	103	"Created: 20.11.1995 / 15:32:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	104	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	105
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	106	new
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	107	"return a new empty string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	108
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	109	^ self basicNew:0
64 af7aeb79b25e Initial revision claus parents: diff changeset	110	! !
af7aeb79b25e Initial revision claus parents: diff changeset	111
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	112	!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	113
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	114	lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	115	"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	116
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	117	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	118
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	119	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	120	CharacterArray lowSpaceCleanup
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	121	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	122
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	123	"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	124	"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	125	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	126
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	127	!CharacterArray class methodsFor:'code tables'!
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	128
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	129	classForEncoding:encodingSymbol
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	130	"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	131	by encodingSymbol"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	132
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	133	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	134	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	135	encodingSymbol == #gb ifTrue:[^ GBEncodedString].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	136
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	137	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	138	"/ 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	139	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	140	^ String
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	141
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	142	"Modified: 17.4.1996 / 16:18:53 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	143	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	144
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	145	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	146	"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	147	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	148	This is an experimental interface - unfinished"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	149
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	150	\|table unrepresentableCharacterCode x80Table\|
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	151
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	152	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	153	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	154	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	155	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	156	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	157	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	158
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	159
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	160	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	161
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	162	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	163	"/ setup as identityTranslation
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	164	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	165	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	166
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	167	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	168	"/ mac -> iso8859
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	169	"/
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	170	"/ 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	171	"/ - 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	172	"/
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	173	"/ A0 (dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	174	"/ A5 (dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	175	"/ AA (tm - trademark)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	176	"/ AD (not equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	177	"/ B0 (infinity)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	178	"/ B3 (less-double-equal <=)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	179	"/ B4 (greater-equal >-)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	180	"/ B6 (math lowercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	181	"/ B7 (math sum)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	182	"/ B8 (math uppercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	183	"/ B9 (math lowercase pi)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	184	"/ BA (math integral)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	185	"/ BD (math omega)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	186	"/ C3 (math union)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	187	"/ C4 (ext latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	188	"/ C5 (math almost equal)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	189	"/ C6 (math uppercase delta)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	190	"/ C9 (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	191	"/ CE (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	192	"/ CF (oe ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	193	"/ D1 (hyphen)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	194	"/ D2 (opening top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	195	"/ D3 (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	196	"/ D4 (opening top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	197	"/ D5 (closing top quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	198	"/ D7 (geometric: )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	199	"/ D9 (uppercase Y diacrit )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	200	"/ DA (slash2 )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	201	"/ DC (single oldStyle opening quote (<) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	202	"/ DD (single oldStyle closing quote (>) )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	203	"/ DE (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	204	"/ DF (? )
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	205	"/ E0 (double dagger )
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	206	"/ E2 (opening bottom quote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	207	"/ E3 (opening bottom dquote )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	208	"/ F0 (? )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	209	"/ F5 (latin l )
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	210	"/ F6 (diacrit circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	211	"/ F7 (diacrit tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	212	"/ F8 (diacrit top line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	213	"/ F9 (diacrit inverse circumflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	214	"/ FA (diacrit dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	215	"/ FB (diacrit ring)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	216	"/ FC (diacrit cedille left)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	217	"/ FD (diacrit dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	218	"/ FE (diacrit cedille right)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	219	"/ FF (diacrit circumflex2 ?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	220	"/
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	221	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	222	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	223	#( 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	224	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	225
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	226	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	227	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	228
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	229	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	230	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	231
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	232	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	233	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	234
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	235	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	236	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	237
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	238	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	239	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	240
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	241	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	242	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	243
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	244	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	245	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	246	).
657 449935f15b9e * empty log message * Claus Gittinger <cg@exept.de> parents: 652 diff changeset	247	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	248
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	249	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	250	"/ next -> iso8859
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	251	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	252	"/ 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	253	"/ - 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	254	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	255	"/ A4 (diacrit /)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	256	"/ A9 (diacrit quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	257	"/ AA (top opening dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	258	"/ AC (single oldStyle opening quote (<))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	259	"/ AD (single oldStyle closing quote (>))
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	260	"/ AE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	261	"/ AF (?)
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	262	"/ B2 (dagger)
b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	263	"/ B3 (double dagger)
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	264	"/ B7 (enter dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	265	"/ B8 (opening bottom quote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	266	"/ B9 (opening bottom dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	267	"/ BA (closing top dquote)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	268	"/ BC (dot-dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	269	"/ BD (per-mille)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	270	"/ C0 (subscript 1)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	271	"/ C1 (accent grave)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	272	"/ C2 (accent degu)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	273	"/ C3 (accent circonflex)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	274	"/ C4 (accent tilde)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	275	"/ C5 (accent line)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	276	"/ C6 (accent circonflex reverse)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	277	"/ C7 (accent dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	278	"/ C8 (accent dot-dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	279	"/ D0 (hline)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	280	"/ 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	281	"/ EA (OE ligature)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	282	"/ F5 (latin l)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	283	"/ 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	284	"/ FE (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	285	"/ FF (?)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	286	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	287	encoding == #next ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	288	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	289
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	290	x80Table :=
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	291	#( 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	292	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	293
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	294	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	295	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	296
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	297	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	298	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	299
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	300	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	301	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	302
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	303	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	304	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	305
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	306	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	307	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	308
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	309	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	310	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	311
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	312	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	313	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	314	).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	315	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	316
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	317	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	318	"/ 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	319	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	320	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	321	"/ 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	322	"/ - 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	323	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	324	"/ 9E (pesetas)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	325	"/ 9F (latin f)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	326	"/ A9 (technical not)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	327	"/ B0 - BF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	328	"/ C0 - CF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	329	"/ D0 - DF (block graphic)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	330	"/ E0 (greek alpha)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	331	"/ E2 - E5 (greek)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	332	"/ E7 - EC (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	333	"/ EE - EF (greek & math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	334	"/ F0 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	335	"/ F2 - F5 (math & technical)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	336	"/ F7 (math)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	337	"/ F9 (center dot)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	338	"/ FB (math sqrt)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	339	"/ FC (super n)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	340	"/ 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	341	"/
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	342	encoding == #msdos437 ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	343	unrepresentableCharacterCode := 16rBF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	344
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	345	x80Table :=
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	346	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	347	"/ 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	348	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	349	"/ 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	350	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	351	"/ 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	352	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	353	"/ 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	354	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	355
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	356	"/ 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	357	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	358	"/ 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	359	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	360
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	361	"/ block graphics
1250 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 "/ b0
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	363	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	364
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	365	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	366	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	367	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	368
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	369	"/ block graphics
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	370	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	371	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	372
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	373	"/ alpha beta ... mu
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	374	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	375	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	376
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	377	"/ 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	378	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	379	"/ 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	380	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	381	).
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	382	].
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	383
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	384
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	385	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	386	"/ msdos (codePage 850 [=latin1]) -> iso8859
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	387	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	388
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	389	(encoding == #msdos850
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	390	or:[encoding == #msdos]) ifTrue:[
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	391	unrepresentableCharacterCode := 16rBF.
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	392	x80Table :=
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	393	#(
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	394	"/ 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	395	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	396
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	397	"/ 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	398	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	399
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	400	"/ 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	401	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	402	"/ 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	403	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	404
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	405	"/ 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	406	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	407	"/ 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	408	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	409
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	410	"/ Aacute Acirc Agrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	411	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	412	"/ cpyr cent Yen
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	413	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	414
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	415	"/ atilde Atilde
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	416	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	417	"/
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	418	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	419
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	420
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	421	"/ Ecirc Euml Egrave Iacute Icirc
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	422	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	423	"/ Iuml Igrave
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	424	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	425
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	426	"/ Oacute sz Ocirc Ograve otilde Otilde mu
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	427	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	428	"/ Uacute Ucirc Ugrav yacute Yacute '
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	429	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	430
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	431	"/ plusmin = 3/4 para sect div "/ f0
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	432	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	433
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	434	"/ sup0 sup3 sup2
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	435	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	436	).
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	437	].
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	438	"/ more encodings needed here ....
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	439
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	440
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	441	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	442	"/ 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	443	"/ 0x80..0xFF characters
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	444	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	445	x80Table notNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	446	x80Table keysAndValuesDo:[:idx :repl \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	447	\|ch\|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	448
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	449	repl == 16rFFFF ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	450	ch := unrepresentableCharacterCode
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	451	] ifFalse:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	452	ch := repl
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	453	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	454	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	455	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	456	].
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	457
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	458	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	459	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	460
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	461	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	462	DecoderTables := nil
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	463	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	464
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	465	"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	466	"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	467	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	468
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	469	encoderTableFor:encoding
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	470	"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	471	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	472	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	473
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	474	\|table decoderTable unrepresentableCharacterCode
1669 4951596746f7 comments & code cleanup Claus Gittinger <cg@exept.de> parents: 1613 diff changeset	475	unrepresentableISOCharacterCode\|
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	476
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	477	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	478	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	479	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	480	] ifFalse:[
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	481	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	482	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	483
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	484	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	485	"/ iso8859 -> mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	486	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	487	encoding == #mac ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	488	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	489	unrepresentableCharacterCode := 16rFF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	490	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	491	].
1272 b45ddd6d6ec3 assume printer can handle ISO-latin1 encoded strings (national characters) Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	492
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	493	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	494	"/ iso8859 -> msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	495	"/
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	496	encoding == #msdos ifTrue:[
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	497	decoderTable := self decoderTableFor:encoding.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	498	unrepresentableCharacterCode := 16rFF.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	499	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	500	].
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	501
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	502	"/ 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	503
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	504	decoderTable notNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	505	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	506
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	507	0 to:16rFF do:[:code \|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	508	\|isoCode destIdex\|
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	509
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	510	isoCode := decoderTable at:(code+1).
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	511	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	512	]
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	513	].
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	table isNil ifTrue:[
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	516	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	517	"/ setup as identityTranslation
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	518	"/
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	519	table := (0 to:255) asByteArray.
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	520	].
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	521
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	522	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	523	^ table
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	524
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	525	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	526	EncoderTables := nil
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	527	DecoderTables := nil
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	528	CharacterArray decoderTableFor:#mac
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	529	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	530	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	531
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	532	"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	533	"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	534	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	535
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	536	supportedEncodings
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	537	"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	538	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	539
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	540	^ #(
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	541	(
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	542	iso8859
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	543	ascii
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	544	msdos
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	545	mac
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	546	next
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	547	euc
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	548	jis
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	549	jis7
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	550	gb
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	551	big5)
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	552	)
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	553
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	554	"Created: 22.2.1996 / 16:19:20 / cg"
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	555	"Modified: 22.4.1996 / 14:43:50 / cg"
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	556	!
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	557
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	558	supportedExternalEncodings
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	559	"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	560	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	561	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	562	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	563	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	564
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	565	^ #(
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	566	(
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	567	'iso8859 (ansi)'
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	568	'msdos US (codepage 437)'
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	569	'msdos Latin1 (codepage 850)'
1255 f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	570	'macintosh (8 bit)'
f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	571	'NEXT (8 bit)'
f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	572	'EUC (extended unix code japanese)'
f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	573	'JIS7 (jis 7bit escape codes japanese)'
f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	574	'GB (mainland china)'
f71e6a251e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1252 diff changeset	575	'BIG5 (taiwan)'
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	576	)
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	577	(
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	578	iso8859
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	579	msdos437
9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	580	msdos850
1250 0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	581	mac
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	582	next
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	583	euc
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	584	jis7
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	585	gb
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	586	big5)
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
0f628432aa93 fixed encoding/decoding for msdos & mac; added next decoder Claus Gittinger <cg@exept.de> parents: 1241 diff changeset	589	"Created: 22.4.1996 / 14:39:39 / cg"
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	590	"Modified: 31.10.1996 / 16:47:18 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	591	! !
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	592
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	593	!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	594
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	595	decodeFromBIG5:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	596	"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	597	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	598
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	599	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	600
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	601	\|newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	602
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	603	newString := BIG5EncodedString new:aString size.
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	604	^ self decodeFromBIG5_or_GB:aString into:newString.
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	605
977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	606	"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	607	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	608
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	609	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	610	"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	611	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	612
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	613	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	614
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	615	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	616	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	617	srcIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	618	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	619	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	620	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	621	c\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	622
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	623	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	624	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	625	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	626	srcIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	627
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	628	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	629	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	630	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	631	"/ characters below 16rA1 are left untranslated
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	632	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	633	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	634	b1 >= 16rA1 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	635	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	636	srcIdx <= sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	637	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	638	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	639	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	640	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	641	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	642
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	643	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	644	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	645	srcIdx := srcIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	646
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	647	srcIdx > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	648	^ 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	649	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	650	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	651	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	652	^ a16BitString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	653
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	654	"Created: 17.4.1996 / 16:55:54 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	655	"Modified: 17.4.1996 / 18:28:31 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	656	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	657
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	658	decodeFromEUC:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	659	"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	660	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	661
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	662	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	663	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	664	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	665
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	666	\|newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	667	sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	668	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	669	start "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	670	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	671	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	672	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	673	romans c\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	674
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	675	romans := JISEncodedString romanJISDecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	676
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	677	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	678	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	679	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	680	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	681	start := 1.
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	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	684	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	685	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	686	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	687	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	688	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	689	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	690	b1 < 161 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	691	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	692	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	693	"/ b1 < 127 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	694	"/ newString at:dstIdx put:(Character value:(romans at:(b1 - 32))).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	695	"/ dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	696	"/ ] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	697	"/ self halt:'unsupported codeSet'
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	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	700	start := start + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	701	b1 := b1 - 161 + 33.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	702	b2 := (aString at:start) asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	703	b2 := b2 - 161 + 33.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	704	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	705	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	706	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	707	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	708	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	709	start := start + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	710
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	711	start > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	712	^ 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	713	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	714	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	715	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	716	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	717
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	718	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	719
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	720	'hello' decodeFromEUC
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
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	723	"Created: 17.4.1996 / 16:10:22 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	724	"Modified: 17.4.1996 / 16:48:30 / cg"
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
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	727	decodeFromGB:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	728	"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	729	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	730
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	731	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	732
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	733	\|newString\|
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	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	736	^ 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	737
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	738	"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	739	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	740
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	741	decodeFromJIS7:aString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	742	"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	743	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	744	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	745	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	746	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	747
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	748	\|newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	749	sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	750	dstIdx "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	751	start "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	752	stop "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	753	n1 n2 n3
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	754	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	755	b2 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	756	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	757	singleBytes romans\|
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	romans := JISEncodedString romanJISDecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	760
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	761	sz := aString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	762	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	763	sz ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	764	dstIdx := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	765	start := 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	766	singleBytes := true.
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	[true] whileTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	769	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	770	"/ 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	771	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	772	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	773	stop == 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	774	stop := sz + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	775	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	776	(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	777	stop := sz + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	778	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	779	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	780	singleBytes ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	781	start to:(stop - 1) do:[:i \|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	782	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	783	newString at:dstIdx put:(Character value:b1).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	784	"/ (b1 < 33 or:[b1 > 191]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	785	"/ newString at:dstIdx put:(Character value:b1)
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	"/ newString at:dstIdx put:(Character value:(romans at:(b1 - 32)))
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	788	"/ ].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	789	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	790	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	791	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	792	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	793	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	794	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	795	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	796	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	797	dstIdx := dstIdx + 1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	798	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	799	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	800
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	801	stop > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	802	^ 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	803	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	804	start := stop.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	805
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	806	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	807	"/ 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	808	"/ - 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	809	"/ 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	810	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	811	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	812	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	813	n3 := aString at:(start + 2).
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	(n2 == $$ and:[n3 == $B]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	816	singleBytes := false.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	817	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	818	(n2 == $$ and:[n3 == $@]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	819	singleBytes := false.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	820	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	821	(n2 == $( and:[n3 == $B]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	822	singleBytes := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	823	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	824	(n2 == $( and:[n3 == $J]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	825	singleBytes := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	826	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	827	singleBytes ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	828	newString at:dstIdx put:n1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	829	newString at:(dstIdx + 1) put:n2.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	830	newString at:(dstIdx + 2) put:n3.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	831	dstIdx := dstIdx + 3.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	832	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	833	self halt.
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	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	836	]
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	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	839	start := start + 3.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	840	start > sz ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	841	^ 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	842	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	843	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	844	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	845	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	846
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	847	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	848
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	849	'hello' decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	850
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	851	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	852
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	853	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	854	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	855	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	856
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	857	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	858	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	859	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	860	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	861
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	862	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	863	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	864	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	865	s decodeFromJIS7
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	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	868	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	869	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	870	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	871	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	872
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	873	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	874
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	875	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	876	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	877	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	878	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	879	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	880
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	881	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	882
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	883	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	884	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	885	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	886	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	887	s := s , '$3'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	888	s decodeFromJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	889
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	890	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	891
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	892	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	893	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	894	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	895	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	896	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	897	s decodeFromJIS7
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	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	900
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	901	\|s\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	902	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	903	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	904	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	905	s := s , '$3'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	906	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	907	s := s copyWith:$(.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	908	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	909	s := s , 'hello'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	910	s decodeFromJIS7
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	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	913
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	914	\|s t l\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	915	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	916	s := s copyWith:$$.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	917	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	918	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	919	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	920	s := s copyWith:$(.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	921	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	922	s := s , ' kterm'.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	923	t := s decodeFromJIS7.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	924	l := Label new.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	925	l label:t.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	926	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	927	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	928	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	929	l realize
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	930	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	931
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	932	"Modified: 2.3.1996 / 13:39:08 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	933	"Created: 17.4.1996 / 16:11:57 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	934	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	935
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	936	encodeIntoBIG5withRomans:aBIG5String
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	937	"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	938	The argument must be a BIG5String.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	939
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	940	This is used translate 8bit strings and pseudoBIG5 strings
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	941	(romans are left untranslated) into a real BIG5 encoding for drawing.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	942	Assuming, that the ascii codePage is at 16r2100.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	943	Doing this allows single-byte roman strings to be displayed in a BIG5 font."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	944
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	945	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	946	b "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	947	c romans newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	948
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	949	romans := BIG5EncodedString romanBIG5DecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	950
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	951	sz := aBIG5String size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	952	newString := BIG5EncodedString new:sz.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	953	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	954	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	955	b := c asciiValue.
1203 a43528048cb8 code tables moved to BIG5/JISEncodedString classes Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	956
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	957	(b >= 33 and:[b <= (159+32)]) ifTrue:[
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	"/ a roman character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	960	"/ map to corresponding BIG5 code
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	961	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	962	c := Character value:(romans at:b - 32).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	963	] ifFalse:[
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	"/ control or a big5 character
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	].
1203 a43528048cb8 code tables moved to BIG5/JISEncodedString classes Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	968
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	969	newString at:index put:c
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	^ newString
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	"Created: 17.4.1996 / 17:17:50 / cg"
1203 a43528048cb8 code tables moved to BIG5/JISEncodedString classes Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	974	"Modified: 17.4.1996 / 18:55:40 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	975	!
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	encodeIntoEUC:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	978	"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	979	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	980
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	981	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	982	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	983
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	984	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	985	b1 "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	986	val "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	987	romans out\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	988
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	989	romans := JISEncodedString romanJISDecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	990
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	991	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	992	sz == 0 ifTrue:[^ ''].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	993
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	994	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	995
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	996	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	997	b1 := (aJISString at:srcIndex) asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	998	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	999	"/ a control character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1000	out nextPut:(Character value:b1).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1001	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1002	"/ 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	1003	"/ 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	1004	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1005	(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	1006	val := romans indexOf:b1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1007	val ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1008	out nextPut:(Character value:(val - 1 + 33))
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1009	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1010	out nextPut:(Character value:(val bitShift:-8) - 33 + 161).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1011	out nextPut:(Character value:(val bitAnd:16rFF) - 33 + 161).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1012	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1013	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1014	out nextPut:(Character value:(val bitShift:-8) - 33 + 161).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1015	out nextPut:(Character value:(val bitAnd:16rFF) - 33 + 161).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1016	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1017	].
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	^ out contents
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	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1022
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1023	'hello' decodeFromEUC encodeIntoEUC
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1024	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1025
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1026	"Modified: 2.3.1996 / 13:40:12 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1027	"Created: 17.4.1996 / 16:13:33 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1028	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1029
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1030	encodeIntoGBwithRomans:aGBString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1031	"return a new string with aGBStrings characters as GB encoded 16bit string,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1032	The argument must be a GBString.
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	This is used translate 8bit strings and pseudoGB5 strings
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1035	(romans are left untranslated) into a real GB encoding for drawing.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1036	Assuming, that the ascii codePage is at 16r2100.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1037	Doing this allows single-byte roman strings to be displayed in a GB font."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1038
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1039	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1040	b "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1041	c newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1042
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1043	sz := aGBString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1044	newString := GBEncodedString new:sz.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1045	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	1046	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	1047	b := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1048	(b >= 33 and:[b <= (159+32)]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1049	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1050	"/ a roman character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1051	"/ map to corresponding GB code
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1052	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1053	c := Character value:(16r2100 + b).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1054	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1055	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1056	"/ control or a gb character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1057	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1058	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1059	newString at:index put:c
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1060	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1061	^ newString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1062
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1063	"Modified: 17.4.1996 / 17:30:36 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1064	"Created: 17.4.1996 / 17:31:48 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1065	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1066
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1067	encodeIntoJIS7:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1068	"return a new string with aJISStrings characters as JIS7 encoded 7bit string,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1069	The receiver must be a 16bit JIS character string.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1070
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1071	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	1072	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	1073
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1074	\|sz "{ Class:SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1075	b1 "{ Class:SmallInteger }"
1669 4951596746f7 comments & code cleanup Claus Gittinger <cg@exept.de> parents: 1613 diff changeset	1076	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	1077
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1078	inSingleByteMode := true.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1079	kanji := JISEncodedString jis7KanjiEscapeSequence.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1080	roman := JISEncodedString jis7RomanEscapeSequence.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1081
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1082	romans := JISEncodedString romanJISDecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1083
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1084	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1085	sz == 0 ifTrue:[^ ''].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1086
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1087	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	1088
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1089	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	1090	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	1091	b1 := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1092	b1 < 33 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1093	"/ a control character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1094	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1095	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1096	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1097	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1098	out nextPut:c.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1099	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1100	"/ 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	1101	"/ 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	1102	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1103	(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	1104	val := romans indexOf:b1.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1105	val ~~ 0 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1106	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1107	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1108	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1109	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1110	out nextPut:(Character value:(val - 1 + 33))
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1111	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1112	inSingleByteMode ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1113	out nextPutAll:kanji.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1114	inSingleByteMode := false
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1115	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1116	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	1117	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	1118	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1119	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1120	b1 <= 255 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1121	"/ 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	1122	"/ b1 >= 160 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1123	"/ ('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	1124	"/ ].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1125
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1126	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1127	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1128	inSingleByteMode := true
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1129	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1130	out nextPut:c
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1131	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1132	inSingleByteMode ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1133	out nextPutAll:kanji.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1134	inSingleByteMode := false
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1135	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1136	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	1137	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	1138	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1139	]
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1140	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1141	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1142	inSingleByteMode ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1143	out nextPutAll:roman.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1144	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1145	^ out contents
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1146
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1147	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1148
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1149	'hello' decodeFromJIS7 encodeIntoJIS7
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1150	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1151
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1152	"Modified: 2.3.1996 / 13:40:31 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1153	"Created: 17.4.1996 / 16:17:40 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1154	!
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1155
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1156	encodeIntoJISwithRomans:aJISString
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1157	"return a new string with aJISStrings characters as JIS encoded 16bit string,
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1158	The argument must be a JISString.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1159
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1160	This is used translate 8bit strings and pseudoJIS strings
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1161	(romans are left untranslated) into a real JIS encoding for drawing.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1162	Doing this allows single-byte roman strings to be displayed in a JIS font."
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1163
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1164	\|sz "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1165	b "{ Class: SmallInteger }"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1166	c romans newString\|
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1167
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1168	romans := JISEncodedString romanJISDecoderTable.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1169
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1170	sz := aJISString size.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1171	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	1172	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	1173	c := aJISString at:index.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1174	b := c asciiValue.
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1175	(b >= 33 and:[b <= (159+32)]) ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1176	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1177	"/ a roman character
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1178	"/ map to corresponding JIS code
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1179	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1180	c := Character value:(romans at:b - 32).
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1181	] ifFalse:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1182	"/
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1183	"/ control or a kanji character
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	newString at:index put:c
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1187	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1188	^ newString
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	"simple:
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1191
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1192	'hello' encodeIntoJIS
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1193	"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1194
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1195	"Created: 17.4.1996 / 17:15:23 / cg"
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1196	"Modified: 17.4.1996 / 17:30:59 / cg"
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1197	! !
fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 428 diff changeset	1198
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	1199	!CharacterArray class methodsFor:'pattern matching'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	1200
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1201	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	1202	"helper for match; return true if the characters from start to stop in
183f094cfd72 last with old match code claus parents: 326 diff changeset	1203	aString are matching the scan in matchScan from matchStart to matchStop.
328 7b542c0bf1dd . claus parents: 327 diff changeset	1204	The matchScan is as created by asMatchScanArray.
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1205
328 7b542c0bf1dd . claus parents: 327 diff changeset	1206	This algorithm is not at all the most efficient;
7b542c0bf1dd . claus parents: 327 diff changeset	1207	for heavy duty pattern matching, an interface (primitive) to the regex
7b542c0bf1dd . claus parents: 327 diff changeset	1208	pattern matching package should be added."
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1209
183f094cfd72 last with old match code claus parents: 326 diff changeset	1210	\|matchEntry
183f094cfd72 last with old match code claus parents: 326 diff changeset	1211	mStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1212	mStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1213	sStart "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1214	sStop "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1215	mSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1216	sSize "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1217	index "{ Class: SmallInteger }"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1218	quickCheck matchLast
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	1219	checkChar included\|
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	1220
183f094cfd72 last with old match code claus parents: 326 diff changeset	1221	mStart := matchStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1222	mStop := matchStop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1223	sStart := start.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1224	sStop := stop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1225
183f094cfd72 last with old match code claus parents: 326 diff changeset	1226	[true] whileTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1227	mSize := mStop - mStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1228	sSize := sStop - sStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1229
183f094cfd72 last with old match code claus parents: 326 diff changeset	1230	"empty strings match"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1231	(mSize == 0) ifTrue:[^ (sSize == 0)].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1232
183f094cfd72 last with old match code claus parents: 326 diff changeset	1233	matchEntry := matchScanArray at:mStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1234
183f094cfd72 last with old match code claus parents: 326 diff changeset	1235	"/ the most common case first:
183f094cfd72 last with old match code claus parents: 326 diff changeset	1236	(sSize ~~ 0
183f094cfd72 last with old match code claus parents: 326 diff changeset	1237	and:[(checkChar := (aString at:sStart)) == matchEntry]) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1238	"advance by one and continue"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1239	mStart := mStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1240	sStart := sStart + 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1241	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1242	(matchEntry == #any) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1243	"restString empty -> no match"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1244	(sSize == 0) ifTrue:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1245	"# matches single character"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1246	((sSize == 1) and:[mSize == 1]) ifTrue:[^ true].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1247	"advance by one and continue"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1248	mStart := mStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1249	sStart := sStart + 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1250	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1251	(matchEntry == #anyString) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1252	"* alone matches anything"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1253	(mSize == 1) ifTrue:[^ true].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1254	"restString empty & matchString not empty -> no match"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1255	(sSize == 0) ifTrue:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1256
183f094cfd72 last with old match code claus parents: 326 diff changeset	1257	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1258	try to avoid some of the recursion by checking last
183f094cfd72 last with old match code claus parents: 326 diff changeset	1259	character and continue with shortened strings if possible
183f094cfd72 last with old match code claus parents: 326 diff changeset	1260	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1261	quickCheck := false.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1262	(mStop >= mStart) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1263	matchLast := matchScanArray at:mStop.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1264	(matchLast ~~ #anyString) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1265	(matchLast == #any) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1266	quickCheck := true
183f094cfd72 last with old match code claus parents: 326 diff changeset	1267	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1268	matchLast == (aString at:sStop) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1269	quickCheck := true
183f094cfd72 last with old match code claus parents: 326 diff changeset	1270	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1271	matchLast isString ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1272	quickCheck := matchLast includes:(aString at:sStop)
183f094cfd72 last with old match code claus parents: 326 diff changeset	1273	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1274	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1275	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1276	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1277	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1278	quickCheck ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1279	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1280	no quick check possible;
183f094cfd72 last with old match code claus parents: 326 diff changeset	1281	loop over all possible substrings
183f094cfd72 last with old match code claus parents: 326 diff changeset	1282	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1283	index := sStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1284	[index <= sStop] whileTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1285	(self matchScan:matchScanArray
183f094cfd72 last with old match code claus parents: 326 diff changeset	1286	from:(mStart + 1)
183f094cfd72 last with old match code claus parents: 326 diff changeset	1287	to:mStop
183f094cfd72 last with old match code claus parents: 326 diff changeset	1288	with:aString
183f094cfd72 last with old match code claus parents: 326 diff changeset	1289	from:index
183f094cfd72 last with old match code claus parents: 326 diff changeset	1290	to:stop
183f094cfd72 last with old match code claus parents: 326 diff changeset	1291	ignoreCase:ignoreCase) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1292	^ true
183f094cfd72 last with old match code claus parents: 326 diff changeset	1293	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1294	index := index + 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1295	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1296	^ false
183f094cfd72 last with old match code claus parents: 326 diff changeset	1297	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1298	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1299	quickCheck ok, advance from the right
183f094cfd72 last with old match code claus parents: 326 diff changeset	1300	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1301	mStop := mStop - 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1302	sStop := sStop - 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1303	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1304	(matchEntry isString) ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1305	"testString empty -> no match"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1306	(sSize == 0) ifTrue:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1307
183f094cfd72 last with old match code claus parents: 326 diff changeset	1308	included := false.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1309	"/ checkChar := aString at:sStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1310	included := matchEntry includes:checkChar.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1311	included ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1312	ignoreCase ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1313	checkChar isUppercase ifTrue:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1314	included := matchEntry includes:checkChar asLowercase.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1315	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1316	included := matchEntry includes:checkChar asUppercase.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1317	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1318	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1319	].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1320	mStart := mStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1321	mSize := mSize - 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1322	included ifFalse:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1323
183f094cfd72 last with old match code claus parents: 326 diff changeset	1324	((sSize == 1) and:[mSize == 0]) ifTrue:[^ true].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1325	"cut off 1st char and continue"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1326	sStart := sStart + 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1327	] ifFalse:[
183f094cfd72 last with old match code claus parents: 326 diff changeset	1328	"/ must be single character
183f094cfd72 last with old match code claus parents: 326 diff changeset	1329
183f094cfd72 last with old match code claus parents: 326 diff changeset	1330	"testString empty ?"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1331	(sSize == 0) ifTrue:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1332
183f094cfd72 last with old match code claus parents: 326 diff changeset	1333	"first characters equal ?"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1334	"/ checkChar := aString at:sStart.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1335	ignoreCase ifFalse:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1336	(checkChar asUppercase ~~ matchEntry asUppercase) ifTrue:[^ false].
183f094cfd72 last with old match code claus parents: 326 diff changeset	1337
183f094cfd72 last with old match code claus parents: 326 diff changeset	1338	"advance and continue"
183f094cfd72 last with old match code claus parents: 326 diff changeset	1339	mStart := mStart + 1.
183f094cfd72 last with old match code claus parents: 326 diff changeset	1340	sStart := sStart + 1
183f094cfd72 last with old match code claus parents: 326 diff changeset	1341	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1342	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1343	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1344	]
183f094cfd72 last with old match code claus parents: 326 diff changeset	1345	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1346	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1347
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1348	matchScanArrayFrom:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1349	"scan a pattern string and decompose it into a scanArray.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1350	This is processed faster (especially with character ranges), and
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1351	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	1352
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1353	\|coll
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1354	idx "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1355	end c1 c2 matchSet previous\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1356
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1357	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1358	idx := 1. end := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1359	[idx <= end] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1360	\|char this\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1361
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1362	char := aString at:idx.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1363	char == $* ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1364	previous ~~ #anyString ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1365	this := #anyString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1366	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1367	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1368	char == $# ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1369	previous ~~ #anyString ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1370	this := #any
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1371	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1372	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1373	char == $[ ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1374	matchSet := IdentitySet new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1375	idx := idx + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1376	idx > end ifTrue:[^ nil].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1377	char := aString at:idx.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1378	c1 := nil.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1379	[char ~~ $]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1380	((char == $-) and:[c1 notNil]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1381	idx := idx + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1382	idx > end ifTrue:[^ nil].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1383	c2 := aString at:idx.
828 a1922f7414ff Replace subotimal (to:)do: with to:do:. Stefan Vogel <sv@exept.de> parents: 815 diff changeset	1384	c1 to:c2 do:[:c \| matchSet add:c].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1385	c1 := nil.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1386	idx := idx + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1387	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1388	(char ~~ $]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1389	matchSet add:char.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1390	c1 := char.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1391	idx := idx + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1392	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1393	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1394	idx > end ifTrue:[^ nil].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1395	char := aString at:idx
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1396	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1397	this := matchSet asString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1398	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1399	this := char
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1400	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1401	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1402	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1403	this notNil ifTrue:[coll add:this. previous := this].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1404	idx := idx + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1405	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1406
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1407	^ coll asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1408
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1409	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1410	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1411	String matchScanArrayFrom:'ute'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1412	String matchScanArrayFrom:'*uter'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1413	String matchScanArrayFrom:'[cC]#mpute[rR]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1414	String matchScanArrayFrom:'[abcd]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1415	String matchScanArrayFrom:'[a-k]*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1416	String matchScanArrayFrom:'somecomplern'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1417	String matchScanArrayFrom:'[a-'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1418	String matchScanArrayFrom:'[a-zA-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1419	String matchScanArrayFrom:'[a-z01234A-Z]'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1420	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1421	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1422
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1423	!CharacterArray methodsFor:'Compatibility - ST/V'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1424
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1425	byteAt:index put:aByte
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1426	"store a byte at given index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1427	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1428
1333 d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1429	"/ (aByte == 0) ifTrue:[
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1430	"/ "store a space instead"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1431	"/ ^ 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	1432	"/ ].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1433	^ 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	1434
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1435	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1436	'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	1437	'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	1438	'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	1439	"
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1440
d3fdca956f0d allow storing of 0-bytes (be careful with printing then ...) Claus Gittinger <cg@exept.de> parents: 1312 diff changeset	1441	"Modified: 6.5.1996 / 10:35:26 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1442	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1443
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1444	replChar:oldChar with:newChar
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1445	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1446	by newChar.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1447	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1448
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1449	^ self copy replaceAll:oldChar by:newChar
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1450
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1451	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1452	'12345678901234567890' replChar:$0 with:$*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1453	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1454	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1455
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1456	replChar:oldChar withString:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1457	"return a copy of the receiver, with all oldChars replaced
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1458	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	1459	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1460
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1461	\|tmpStream\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1462
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1463	tmpStream := WriteStream on:(self class new).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1464	self do:[:element \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1465	element = oldChar ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1466	tmpStream nextPutAll:newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1467	] ifFalse:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1468	tmpStream nextPut:element
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1469	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1470	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1471	^ tmpStream contents
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1472
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1473	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1474	'12345678901234567890' replChar:$0 withString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1475	'a string with spaces' replChar:$ withString:' foo '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1476	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1477	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1478
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1479	trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1480	"return a copy of the receiver without leading
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1481	and trailing spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1482	This is an ST/V compatibility method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1483
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1484	^ self withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1485
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1486	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1487	' spaces at beginning' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1488	'spaces at end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1489	' spaces at beginning and end ' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1490	'no spaces' trimBlanks
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1491	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1492	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1493
1978 0d49a096cf06 category rename Claus Gittinger <cg@exept.de> parents: 1849 diff changeset	1494	!CharacterArray methodsFor:'Compatibility - V''Age'!
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1495
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1496	addLineDelimiter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1497	"replace all '\'-characters by line delimiter (cr) - characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1498	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1499
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1500	^ self withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1501	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1502
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1503	bindWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1504	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1505	replaced by aString.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1506	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1507
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1508	^ self expandPlaceholdersWith:(Array with:aString)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1509
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1510	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1511	'do you like %1 ?' bindWith:'smalltalk'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1512	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1513	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1514
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1515	bindWith:string1 with:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1516	"return a copy of the receiver, where a '%1' escape is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1517	replaced by string1 and '%2' is replaced by string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1518	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1519
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1520	^ self expandPlaceholdersWith:(Array with:string1 with:string2)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1521
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1522	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1523	'do you prefer %1 or rather %2 ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1524	bindWith:'smalltalk' with:'c++'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1525	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1526	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1527
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1528	bindWith:str1 with:str2 with:str3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1529	"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	1530	are replaced by str1, str2 and str3 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1531	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1532
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1533	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1534
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1535	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1536	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1537	bindWith:'smalltalk' with:'c++' with:'c'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1538	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1539	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1540
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1541	bindWith:str1 with:str2 with:str3 with:str4
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1542	"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	1543	are replaced by str1, str2, str3 and str4 respectively.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1544	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1545
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1546	^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1547
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1548	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1549	'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	1550	bindWith:'smalltalk' with:'c++' with:'c' with:'assembler'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1551	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1552	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1553
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1554	bindWithArguments:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1555	"return a copy of the receiver, where a '%i' escape
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1556	is replaced by the coresponding string from the argument array.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1557	'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	1558	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1559
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1560	^ self expandPlaceholdersWith:anArrayOfStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1561
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1562	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1563	'do you prefer %1 or rather %2 (not talking about %3) ?'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1564	bindWithArguments:#('smalltalk' 'c++' 'c')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1565	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1566	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1567
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1568	subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1569	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1570	Words are separated by whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1571	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1572
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1573	^ self asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1574
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1575	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1576	'hello world, this is smalltalk' subStrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1577	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1578	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1579
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1580	subStrings:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1581	"return an array consisting of all words contained in the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1582	Words are separated by separatorCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1583	This has been added for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1584
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1585	^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1586
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1587	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1588	'foo:bar:baz:smalltalk' subStrings:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1589	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1590	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1591
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1592	trimSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1593	"return a copy of the receiver without leading and trailing whiteSpace"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1594
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1595	^ self withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1596	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1597
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1598	!CharacterArray methodsFor:'character searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1599
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1600	includesMatchCharacters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1601	"return true if the receiver includes any meta characters (i.e. $* or $#)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1602	for match operations; false if not"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1603
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1604	^ self includesAny:'*#['
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1605	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1606
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1607	indexOfNonSeparatorStartingAt:startIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1608	"return the index of the next non-whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1609
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1610	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1611	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1612
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1613	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1614	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1615
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1616	start to:mySize do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1617	(self at:index) isSeparator ifFalse:[^ index]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1618	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1619	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1620
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1621	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1622	' hello world' indexOfNonSeparatorStartingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1623	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1624	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1625	\|s index1 index2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1626	s := ' foo bar baz'.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1627	index1 := s indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1628	index2 := s indexOfSeparatorStartingAt:index1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1629	s copyFrom:index1 to:index2 - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1630	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1631	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1632
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1633	indexOfSeparator
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1634	"return the index of the first whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1635
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1636	^ self indexOfSeparatorStartingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1637
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1638	"'hello world' indexOfSeparator"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1639	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1640
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1641	indexOfSeparatorStartingAt:startIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1642	"return the index of the next whitespace character"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1643
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1644	\|start "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1645	mySize "{ Class: SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1646
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1647	start := startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1648	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1649
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1650	start to:mySize do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1651	(self at:index) isSeparator ifTrue:[^ index]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1652	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1653	^ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1654
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1655	"'hello world' indexOfSeparatorStartingAt:3"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1656	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1657
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1658	!CharacterArray methodsFor:'comparing'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1659
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1660	< something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1661	"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	1662	receiver is less than the argument. Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1663	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1664	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1665
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1666	^ (something > self)
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1667
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1668	"Modified: 22.4.1996 / 15:54:54 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1669	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1670
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1671	<= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1672	"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	1673	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	1674	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1675	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1676
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1677	^ (self > something) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1678
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1679	"Modified: 22.4.1996 / 15:54:56 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1680	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1681
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1682	= aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1683	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1684	receiver is equal to the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1685
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1686	This compare does NOT ignore case differences,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1687	therefore 'foo' = 'Foo' will return false.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1688	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	1689
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1690	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1691	otherSize \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1692
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1693	aString species == self species ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1694	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1695	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1696	mySize == otherSize ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1697
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1698	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1699	(self at:index) = (aString at:index) ifFalse:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1700	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1701	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1702
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1703	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1704	'foo' = 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1705	'foo' = 'bar'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1706	'foo' = 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1707	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1708
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1709	"Modified: 22.4.1996 / 15:53:58 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1710	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1711
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1712	> aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1713	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1714	receiver is greater than the argument. Otherwise return false.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1715	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1716	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	1717
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1718	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1719	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1720	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1721	c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1722
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1723	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1724	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1725	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1726
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1727	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1728	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1729	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1730	c1 > c2 ifTrue:[^ true].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1731	c1 < c2 ifTrue:[^ false].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1732	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1733	^ mySize > otherSize
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1734
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1735	"Modified: 22.4.1996 / 15:55:00 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1736	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1737
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1738	>= something
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1739	"Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1740	receiver is greater than or equal to the argument.
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1741	Otherwise return false.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1742	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1743	i.e. upper/lowercase & national characters are NOT treated specially."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1744
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1745	^ (something > self) not
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1746
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1747	"Modified: 22.4.1996 / 15:55:03 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1748	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1749
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1750	compareWith:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1751	"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	1752	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	1753	This comparison is based on the elements ascii code -
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1754	i.e. upper/lowercase & national characters are NOT treated specially.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1755	'foo' compareWith: 'Foo' will return 1.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1756	while 'foo' sameAs:'Foo' will return true"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1757
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1758	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1759	otherSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1760	n "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1761	c1 c2\|
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	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1764	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1765	n := mySize min:otherSize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1766
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1767	1 to:n do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1768	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1769	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1770	c1 > c2 ifTrue:[^ 1].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1771	c1 < c2 ifTrue:[^ -1].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1772	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1773	mySize > otherSize ifTrue:[^ 1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1774	mySize < otherSize ifTrue:[^ -1].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1775	^ 0
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1776
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1777	"Modified: 22.4.1996 / 15:56:07 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1778	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1779
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1780	hash
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1781	"return an integer useful as a hash-key"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1782
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1783	%{ /* NOCONTEXT */
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1784
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1785	REGISTER int g, val;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1786	REGISTER unsigned char cp, cp0;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1787	int l;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1788
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	1789	cp = __stringVal(self);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	1790	l = __stringSize(self);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	1791	if (__qClass(self) != @global(String)) {
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	1792	int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1793
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1794	cp += n;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1795	l -= n;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1796	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1797
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1798	/*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1799	* this is the dragon-book algorithm with a funny start
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1800	* value (to give short strings a number above 8192)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1801	*/
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1802	val = 12345;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1803	for (cp0 = cp, cp += l - 1; cp >= cp0; cp--) {
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1804	val = (val << 5) + (*cp & 0x1F);
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1805	if (g = (val & 0x3E000000))
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1806	val ^= g >> 25 /* 23 / / 25 */;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1807	val &= 0x3FFFFFFF;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1808	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1809
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1810	if (l) {
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1811	l \|= 1;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1812	val = (val * l) & 0x3FFFFFFF;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1813	}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1814
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	1815	RETURN ( __MKSMALLINT(val) );
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1816	%}
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1817	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1818
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1819	sameAs:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1820	"Compare the receiver with the argument like =, but ignore
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1821	case differences.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1822	Return true or false."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1823
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1824	\|mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1825	otherSize c1 c2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1826
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1827	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1828	otherSize := aString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1829	mySize == otherSize ifFalse:[^ false].
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	1 to:mySize do:[:index \|
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1832	c1 := self at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1833	c2 := aString at:index.
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1834	c1 == c2 ifFalse:[
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1835	c1 asLowercase = c2 asLowercase ifFalse:[^ false].
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1836	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1837	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1838	^ true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1839
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1840	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1841	'foo' sameAs: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1842	'foo' sameAs: 'bar'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1843	'foo' sameAs: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1844	"
1252 105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1845
105280fd8d72 checkin from browser Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	1846	"Modified: 22.4.1996 / 15:56:17 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1847	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1848
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1849	sameCharacters:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1850	"count & return the number of characters which are the same
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1851	(ignoring case) in the receiver and the argument, aString."
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	\|n "{ Class: SmallInteger }"
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	1854	c1 c2 cnt\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1855
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1856	n := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1857	n := n min:(aString size).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1858
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1859	cnt := 0.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1860	1 to:n do:[:index \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1861	c1 := self at:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1862	c2 := aString at:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1863	((c1 == c2)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1864	or:[c1 asLowercase = c2 asLowercase]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1865	cnt := cnt + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1866	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1867	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1868	^ cnt
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1869
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1870	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1871	'foobarbaz' sameCharacters: 'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1872	'foobarbaz' sameCharacters: 'Foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1873	'foobarbaz' sameCharacters: 'baz'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1874	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1875	! !
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	!CharacterArray methodsFor:'converting'!
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	asArrayOfSubstrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1880	"return an array of substrings from the receiver, interpreting
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1881	separators (i.e. spaces & newlines) as word-delimiters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1882	This is a compatibility method - the actual work is done in
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1883	asCollectionOfWords."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1884
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1885	^ self asCollectionOfWords asArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1886
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1887	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1888	'1 one two three four 5 five' asArrayOfSubstrings
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1889	"
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1892	asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1893	"return a collection containing the lines (separated by cr)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1894	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	1895	contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1896
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1897	^ self asCollectionOfSubstringsSeparatedBy:Character cr
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	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1900	'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	1901	'1 one\\\\2 two\3 three' withCRs asCollectionOfLines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1902	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1903	!
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	asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1906	"return a collection containing the lines (separated by aCharacter)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1907	of the receiver. If aCharacter occurs multiple times in a row,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1908	the result will contain empty strings."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1909
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1910	\|lines myClass
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1911	numberOfLines "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1912	startIndex "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1913	stopIndex "{ Class:SmallInteger }" \|
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	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1916	count first, to avoid regrowing of the OC
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1917	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1918	numberOfLines := (self occurrencesOf:aCharacter) + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1919	lines := OrderedCollection new:numberOfLines.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1920	myClass := self species.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1921
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1922	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1923	1 to:numberOfLines do:[:lineNr \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1924	stopIndex := self indexOf:aCharacter startingAt:startIndex.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1925	stopIndex == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1926	stopIndex := self size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1927	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1928	stopIndex := stopIndex - 1.
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	(stopIndex < startIndex) ifTrue: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1932	lines add:(myClass new:0)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1933	] ifFalse: [
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1934	lines add:(self copyFrom:startIndex to:stopIndex)
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	startIndex := stopIndex + 2
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	^ lines
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1939
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	'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	1942	'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	1943	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1944	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1945
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1946	asCollectionOfSubstringsSeparatedByAny:aCollectionOfSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1947	"return a collection containing the words (separated by any character
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1948	from aCollectionOfSeparators) of the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1949	This allows breaking up strings using any character as separator."
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	\|words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1952	start "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1953	stop "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1954	mySize "{ Class:SmallInteger }"\|
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	words := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1957	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1958	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1959	[start <= mySize] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1960	"skip multiple separators"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1961	[aCollectionOfSeparators includes:(self at:start)] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1962	start := start + 1 .
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1963	start > mySize ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1964	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1965	].
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	stop := self indexOfAny:aCollectionOfSeparators startingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1969	stop == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1970	words add:(self copyFrom:start to:mySize).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1971	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1972	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1973	words add:(self copyFrom:start to:(stop - 1)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1974	start := stop
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	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1977
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1978	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1979	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:#($:)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1980	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:':'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1981	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:(Array with:$: with:Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1982	'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:': '
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1983	'h1e2l3l4o' asCollectionOfSubstringsSeparatedByAny:($1 to: $9)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1984	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1985	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1986
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1987	asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1988	"return a collection containing the words (separated by whitespace)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1989	of the receiver. Multiple occurences of whitespace characters will
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1990	be treated like one - i.e. whitespace is skipped."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1991
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1992	\|words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1993	start "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1994	stop "{ Class:SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1995	mySize "{ Class:SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1996
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1997	words := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1998	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	1999	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2000	[start <= mySize] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2001	start := self indexOfNonSeparatorStartingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2002	start == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2003	^ words
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	stop := self indexOfSeparatorStartingAt:start.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2006	stop == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2007	words add:(self copyFrom:start to:mySize).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2008	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2009	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2010	words add:(self copyFrom:start to:(stop - 1)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2011	start := stop
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	^ words
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2014
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	'hello world isnt this nice' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2017	' hello world isnt this nice ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2018	'hello' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2019	'' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2020	' ' asCollectionOfWords
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2021	"
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2024	asComposedText
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2025	"ST-80 compatibility
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2026	- ST/X does not (as today) support composedTexts."
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2027
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2028	^ ComposedText fromString:self
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2029
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2030	"Modified: 27.4.1996 / 13:30:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2031	!
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	asFilename
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2034	"return a Filename with pathname taken from the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2035
1423 d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2036	^ Filename named:self string
d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2037
d9f177657164 checkin from browser Claus Gittinger <cg@exept.de> parents: 1422 diff changeset	2038	"Modified: 20.5.1996 / 09:38:15 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2039	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2040
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2041	asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2042	"read a float number from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2043	Notice, that errors may occur during the read, so you better
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2044	setup some signal handler when using this method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2045
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2046	^ (Number readFromString:self) asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2047
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2048	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2049	'0.123' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2050	'12345' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2051	'(1/5)' asFloat
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2052	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asFloat]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2053	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2054	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2055
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2056	asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2057	"read an integer from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2058	Notice, that errors may occur during the read, so you better
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2059	setup some signal handler when using this method."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2060
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2061	^ Integer readFromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2062
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2063	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2064	'12345678901234567890' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2065	'-1234' asInteger
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2066	'0.123' asInteger <- reader stops at ., returning 0 here
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2067	'0.123' asNumber <- returns what you expect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2068	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asInteger]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2069	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2070	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2071
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2072	asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2073	"return a copy of myself in lowercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2074
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2075	\|newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2076	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2077
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2078	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2079	newStr := self species new:mySize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2080	1 to:mySize do:[:i \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2081	newStr at:i put:(self at:i) asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2082	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2083	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2084
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2085	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2086	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2087	'HelloWorld' asLowercaseFirst
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2091	asLowercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2092	"return a copy of myself where the first character is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2093	converted to lowercase."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2094
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2095	\|newString sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2096
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2097	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2098	newString := self copyFrom:1 to:sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2099	sz > 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2100	newString at:1 put:(newString at:1) asLowercase
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	^ newString
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	'HelloWorld' asLowercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2106	'HelloWorld' asLowercaseFirst
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	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2109
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2110	asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2111	"read a number from the receiver.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2112	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	2113	so you better setup some signal handler when using this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2114	This may change if ANSI specifies it."
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	"/ ST-80 behavior:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2117	"/ ^ Number readFromString:self onError:0
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	^ Number readFromString:self
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	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2122	'123' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2123	'123.567' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2124	'(5/6)' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2125	'foo' asNumber
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2126	Object errorSignal handle:[:ex \| ex returnWith:0] do:['foo' asNumber]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2127	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2128	!
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	asNumberFromFormatString:ignored
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2131	"read a number from the receiver, ignoring any nonDigit characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2132	This is typically used to convert from strings which include
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2133	dollar-signs or millenium digits. However, this method also ignores
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2134	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	2135
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2136	\|tempString\|
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	tempString := self collect:[:char \| char isDigit].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2139	^ Number readFromString:tempString onError:0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2140
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2141	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2142	'USD 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2143	'DM 123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2144	'123' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2145	'123.567' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2146	'(5/6)' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2147	'foo' asNumberFromFormatString:'foo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2148	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2149	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2150
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2151	asSingleByteString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2152	"return the receiver converted to a 'normal' string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2153
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2154	^ String fromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2155	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2156
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2157	asString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2158	"return myself - I am a string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2159
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2160	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2161	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2162
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2163	asStringCollection
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2164	"return a collection of lines from myself."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2165
1393 7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2166	^ StringCollection from:self "string"
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2167
7afc79a4cc11 checkin from browser Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2168	"Modified: 13.5.1996 / 20:36:59 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2169	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2170
1434 a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2171	asSymbol
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2172	"return a unique symbol with the name taken from my characters.
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2173	The receiver must be a singleByte-String; twoByteSymbols are
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2174	(currently) not allowed."
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2175
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2176	^ self string asSymbol
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2177
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2178	"Created: 22.5.1996 / 15:56:11 / cg"
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2179	!
a317ba02d685 allow aText asSymbol Claus Gittinger <cg@exept.de> parents: 1429 diff changeset	2180
1435 3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2181	asSymbolIfInterned
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2182	"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	2183	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	2184	symbol and is the same as
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2185	self knownAsSymbol ifTrue:[self asSymbol] ifFalse:[nil]
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2186	but slightly faster, since the symbol lookup operation is only
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2187	performed once.
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2188	The receiver must be a singleByte-String; twoByteSymbols are
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2189	(currently) not allowed."
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2190
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2191	^ self string asSymbolIfInterned
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2192
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2193	"Created: 22.5.1996 / 16:37:04 / cg"
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2194	!
3ee1fde2aa58 allow asSymbolIfInterned for Texts Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	2195
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2196	asText
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2197	"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	2198
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2199	^ Text fromString:self
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2200
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2201	"Created: 12.5.1996 / 10:41:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2202	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2203
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2204	asTwoByteString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2205	"return the receiver converted to a two-byte string"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2206
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2207	^ TwoByteString fromString:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2208	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2209
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2210	asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2211	"return a copy of myself in uppercase letters"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2212
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2213	\|newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2214	mySize "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2215
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2216	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2217	newStr := self species new:mySize.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2218	1 to:mySize do:[:i \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2219	newStr at:i put:(self at:i) asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2220	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2221	^ newStr
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2222
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2223	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2224	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2225	'helloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2226	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2227	!
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	asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2230	"return a copy of myself where the first character is
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2231	converted to uppercase."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2232
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2233	\|newString sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2234
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2235	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2236	newString := self copyFrom:1 to:sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2237	sz > 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2238	newString at:1 put:(newString at:1) asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2239	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2240	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2241
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2242	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2243	'helloWorld' asUppercase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2244	'helloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2245	'HelloWorld' asUppercaseFirst
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2246	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2247	!
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	string
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2250	"return the receiver - for ST-80 compatibility"
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2251
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2252	^ self
1312 0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2253
0003988bb066 commentary Claus Gittinger <cg@exept.de> parents: 1311 diff changeset	2254	"Modified: 27.4.1996 / 13:29:30 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2255	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2256
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2257	tokensBasedOn:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2258	"this is an ST-80 alias for the ST/X method
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2259	asCollectionOfSubstringsSeparatedBy:"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2260
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2261	^ self asCollectionOfSubstringsSeparatedBy:aCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2262
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2263	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2264	'hello:world:isnt:this nice' tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2265	'foo,bar,baz' tokensBasedOn:$,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2266	'/etc/passwd' asFilename readStream nextLine tokensBasedOn:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2267	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2268	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2269
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2270	!CharacterArray methodsFor:'copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2271
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2272	, aStringOrCharacter
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2273	"redefined to allow characters to be appended.
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2274	This is nonStandard, but convenient"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2275
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2276	aStringOrCharacter isCharacter ifTrue:[
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2277	^ self , aStringOrCharacter asString
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2278	].
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2279	aStringOrCharacter isText ifTrue:[
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2280	^ aStringOrCharacter concatenateFromString:self
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2281	].
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2282	^ super , aStringOrCharacter
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2283
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2284	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2285	'hello' , $1
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2286	'hello' , '1'
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2287	'hello' , (' world' asText allBold)
a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2288
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	2289	Transcript showCR:
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2290	(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	2291	"
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2292
1411 a3b3ab3044c6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1396 diff changeset	2293	"Modified: 18.5.1996 / 12:29:30 / cg"
1050 2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2294	!
2f14bbd792a9 , now accepts a character-argument Claus Gittinger <cg@exept.de> parents: 1028 diff changeset	2295
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2296	concatenate:string1 and:string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2297	"return the concatenation of myself and the arguments, string1 and string2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2298	This is equivalent to self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2299	- 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	2300	is known to be a string."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2301
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2302	^ self , string1 , string2
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2303	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2304
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2305	concatenate:string1 and:string2 and:string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2306	"return the concatenation of myself and the string arguments.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2307	This is equivalent to self , string1 , string2 , string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2308	- 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	2309	is known to be a string."
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	^ self , string1 , string2 , string3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2312	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2313
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2314	!CharacterArray methodsFor:'displaying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2315
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2316	displayOn:aGc x:x y:y
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2317	"display the receiver in a graphicsContext - this method allows
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2318	strings to be used like DisplayObjects."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2319
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2320	^ aGc displayString:self string x:x y:y.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2321
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2322	"Modified: 11.5.1996 / 14:42:48 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2323	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2324
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2325	displayOpaqueOn:aGc x:x y:y
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2326	"display the receiver in a graphicsContext - this method allows
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2327	strings to be used like DisplayObjects."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2328
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2329	^ aGc displayOpaqueString:self string x:x y:y.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2330
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2331	"Modified: 11.5.1996 / 14:42:48 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2332	"Created: 12.5.1996 / 12:28:40 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2333	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2334
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2335	!CharacterArray methodsFor:'emphasis'!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2336
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2337	emphasis
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2338	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2339	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2340	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2341
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2342	^ RunArray new:self size withAll:nil
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2343
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2344	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2345	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2346
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2347	emphasisAt:characterIndex
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2348	"return the emphasis at some index.
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2349	Since characterArrays do not hold any emphasis information,
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2350	nil (no emphasis) is returned here."
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2351
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2352	^ nil
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2353
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2354	"Created: 11.5.1996 / 14:13:27 / cg"
1396 5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2355	!
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2356
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2357	emphasisCollection
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2358	"return the emphasis.
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2359	Since characterArrays do not hold any emphasis information,
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2360	nil (no emphasis) is returned here."
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2361
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2362	^ RunArray new:(self size)
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2363
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2364	"Created: 14.5.1996 / 13:58:58 / cg"
5b5386311dbd concatenating mixed texts & strings Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	2365	"Modified: 14.5.1996 / 15:02:29 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2366	! !
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2367
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2368	!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	2369
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2370	decodeFrom:encodingSymbol
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2371	"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	2372	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	2373	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	2374	(and those are untested/incomplete):
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2375	#euc
997 6c7f1815ed02 more encoding & decoding support Claus Gittinger <cg@exept.de> parents: 991 diff changeset	2376	#jis7
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2377	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2378	#msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2379	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2380
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2381	\|newString\|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2382
997 6c7f1815ed02 more encoding & decoding support Claus Gittinger <cg@exept.de> parents: 991 diff changeset	2383	encodingSymbol == #jis7 ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2384	^ self class decodeFromJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2385	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2386	encodingSymbol == #euc ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2387	^ self class decodeFromEUC:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2388	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2389	encodingSymbol == #big5 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2390	^ self class 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	2391	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2392	encodingSymbol == #gb ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2393	^ self class decodeFromGB:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2394	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2395
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2396	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	2397	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	2398	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	2399	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2400
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2401	"Created: 22.2.1996 / 15:06:49 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2402	"Modified: 17.4.1996 / 18:25:17 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2403	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2404
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2405	encodeInto:encodingSymbol
997 6c7f1815ed02 more encoding & decoding support Claus Gittinger <cg@exept.de> parents: 991 diff changeset	2406	"given the receiver in internal ST/X (ISO8859) encoding,
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2407	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	2408	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	2409	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	2410	(and those are untested/incomplete):
1006 19aa191ec8e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	2411	#euc
19aa191ec8e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	2412	#jis7
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2413	#mac
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2414	#msdos
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2415	"
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2416
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2417	\|newString\|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2418
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2419	"/ 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	2420
1028 234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	2421	encodingSymbol isNil ifTrue:[^ self].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2422	encodingSymbol == self encoding ifTrue:[^ self].
1028 234d62b7f4fe checkin from browser Claus Gittinger <cg@exept.de> parents: 1027 diff changeset	2423
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2424	encodingSymbol == #jis7 ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2425	^ self class encodeIntoJIS7:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2426	].
1013 0e54ddc990cb more 16bit & encoding support Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	2427	(encodingSymbol startsWith:'jis') ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2428	^ self class encodeIntoJISwithRomans:self
1013 0e54ddc990cb more 16bit & encoding support Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	2429	].
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2430	encodingSymbol == #euc ifTrue:[
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2431	^ self class encodeIntoEUC:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2432	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2433	encodingSymbol == #big5 ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2434	^ self class encodeIntoBIG5:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2435	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2436	(encodingSymbol startsWith:'big5') ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2437	^ self class encodeIntoBIG5withRomans:self
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	2438	].
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2439	encodingSymbol == #gb ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2440	^ self class encodeIntoGB:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2441	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2442	(encodingSymbol startsWith:'gb') ifTrue:[
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2443	^ self class encodeIntoGBwithRomans:self
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2444	].
200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2445
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2446	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	2447	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	2448	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	2449	^ newString
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2450
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2451	"Created: 22.2.1996 / 15:07:31 / cg"
1204 977e83b2c166 oops - leftover prints Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2452	"Modified: 17.4.1996 / 18:59:12 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2453	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2454
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2455	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	2456	"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	2457
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2458	^ 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	2459
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2460	"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	2461	"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	2462	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2463
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2464	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	2465	"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	2466
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2467	^ 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	2468
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2469	"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	2470	"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	2471	!
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2472
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2473	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	2474	"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	2475	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	2476
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2477	\|sz\|
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2478
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2479	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	2480	encodingTable isNil ifTrue:[^ self].
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2481	sz := encodingTable size.
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2482
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2483	1 to:self size do:[:index \|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2484	\|char oldCode newCode\|
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2485
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2486	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	2487	oldCode := char asciiValue.
1023 5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2488	oldCode >= sz ifFalse:[
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2489	newCode := encodingTable at:(oldCode + 1).
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2490	newCode ~~ oldCode ifTrue:[
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2491	self at:index put:(Character value:newCode)
5ee2a2372aca 16bit coding Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2492	]
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2493	]
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2494	].
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2495
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2496	"Created: 22.2.1996 / 16:07:26 / cg"
1202 200f7cd0a457 moved encode/decode stuff into class methods / added big5/gb support Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	2497	"Modified: 17.4.1996 / 16:06:30 / cg"
991 f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2498	! !
f0b45a4b82d2 first attempt in encoding/decoding for different character representations (mac/msdos etc.) Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2499
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2500	!CharacterArray methodsFor:'padded copying'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2501
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2502	centerPaddedTo:newSize
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2503	"return a new string consisting of the receivers characters,
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2504	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	2505	the resulting string.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2506	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	2507	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2508
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2509	^ self centerPaddedTo:newSize with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2510
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2511	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2512	'foo' centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2513	123 printString centerPaddedTo:10
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2514	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2515
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2516	"Created: 25.11.1995 / 10:53:57 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2517	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2518
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2519	centerPaddedTo:size with:padCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2520	"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	2521	centered (i.e. padded on both sides).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2522	Characters are filled with padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2523	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	2524	the original receiver is returned unchanged."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2525
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2526	\|len s\|
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2527
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2528	len := self size.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2529	(len < size) ifTrue:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2530	s := self species new:size withAll:padCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2531	s replaceFrom:(size - len) // 2 + 1 with:self.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2532	^ s
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2533	]
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2534
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2535	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2536	'foo' centerPaddedTo:11 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2537	'fooBar' centerPaddedTo:5 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2538	123 printString centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2539	(' ' , 123 printString) centerPaddedTo:10 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2540	(Float pi printString) centerPaddedTo:15 with:(Character space)
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2541	(Float pi printString) centerPaddedTo:15 with:$-
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2542	(' ' , Float pi class name) centerPaddedTo:15 with:$.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2543	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2544	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2545
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2546	decimalPaddedTo:size and:afterPeriod at:decimalCharacter
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2547	"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	2548	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	2549	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	2550	to be padded).
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2551	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	2552	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2553	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2554
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2555	^ self
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2556	decimalPaddedTo:size
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2557	and:afterPeriod
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2558	at:decimalCharacter
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2559	withLeft:(Character space)
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2560	right:$0
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2561
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2562	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2563	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2564	'123' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2565	'123.' decimalPaddedTo:10 and:3 at:$. -> ' 123.000'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2566	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.100'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2567	'123.1' decimalPaddedTo:10 and:3 at:$. -> ' 123.1 '
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2568	'123.123' decimalPaddedTo:10 and:3 at:$. -> ' 123.123'
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2569	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2570
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2571	"Created: 23.12.1995 / 13:11:52 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2572	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2573
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2574	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	2575	"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	2576	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	2577	of the period.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2578	Characters on the left are filled with leftPadChar.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2579	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	2580	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	2581	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	2582	the original receiver is returned unchanged.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2583	(sounds complicated ? -> see examples below)."
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2584
986 c3a9f590146d removed unused locals Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2585	\|s idx n\|
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2586
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2587	idx := self indexOf:decimalCharacter.
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2588	idx == 0 ifTrue:[
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2589	"/
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2590	"/ 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	2591	"/
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2592	rightPadChar isNil ifTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2593	s := self , (self species new:afterPeriod + 1 withAll:leftPadChar)
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2594	] ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2595	s:= self , decimalCharacter asString , (self species new:afterPeriod withAll:rightPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2596	].
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2597	] ifFalse:[
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2598
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2599	"/ the number of after-decimalPoint characters
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2600	n := self size - idx.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2601	rightPadChar isNil ifTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2602	s := self , (self species new:afterPeriod - n withAll:leftPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2603	] ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2604	s := self , (self species new:afterPeriod - n withAll:rightPadChar).
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	2605	].
815 997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2606	].
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2607
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2608	^ s leftPaddedTo:size with:leftPadChar
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2609
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2610	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2611	'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	2612	'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	2613	'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	2614	'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	2615	'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	2616	'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	2617	"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2618
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2619	"Modified: 23.12.1995 / 13:08:18 / cg"
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2620	!
997a02c135e7 support for decimal padding added Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2621
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2622	leftPaddedTo:size
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2623	"return a new string of length size, which contains the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2624	right-adjusted (i.e. padded on the left).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2625	Characters on the left are filled with spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2626	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	2627	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2628
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2629	^ self leftPaddedTo:size with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2630
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2631	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2632	'foo' leftPaddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2633	'fooBar' leftPaddedTo:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2634	123 printString leftPaddedTo:10
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	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2637
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2638	leftPaddedTo:size with:padCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2639	"return a new string of length size, which contains the receiver
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2640	right-adjusted (i.e. padded on the left).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2641	Characters on the left are filled with padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2642	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	2643	the original receiver is returned unchanged."
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	\|len s\|
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	len := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2648	(len < size) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2649	s := self species new:size withAll:padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2650	s replaceFrom:(size - len + 1) with:self.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2651	^ s
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2652	]
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	'foo' leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2656	'fooBar' leftPaddedTo:5 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2657	123 printString leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2658	(' ' , 123 printString) leftPaddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2659	(Float pi printString) leftPaddedTo:15 with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2660	(Float pi printString) leftPaddedTo:15 with:$-
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2661	(' ' , Float pi class name) leftPaddedTo:15 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2662	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2663	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2664
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2665	paddedTo:newSize
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2666	"return a new string consisting of the receivers characters,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2667	plus spaces up to length.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2668	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	2669	the original receiver is returned unchanged."
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	^ self paddedTo:newSize with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2672
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2673	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2674	'foo' paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2675	123 printString paddedTo:10
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2676	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2677	!
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	paddedTo:newSize with:padCharacter
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2680	"return a new string consisting of the receivers characters,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2681	plus pad characters up to length.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2682	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	2683	the original receiver is returned unchanged."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2684
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2685	\|s len\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2686
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2687	len := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2688	len < newSize ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2689	s := self species new:newSize withAll:padCharacter.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2690	s replaceFrom:1 to:len with:self.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2691	^ s
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2692	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2693
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2694	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2695	'foo' paddedTo:10 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2696	123 printString paddedTo:10 with:$*
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2697	(Float pi printString) paddedTo:15 with:(Character space)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2698	(Float pi printString) paddedTo:15 with:$-
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2699	(Float pi class name , ' ') paddedTo:15 with:$.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2700	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	2701	! !
af7aeb79b25e Initial revision claus parents: diff changeset	2702
328 7b542c0bf1dd . claus parents: 327 diff changeset	2703	!CharacterArray methodsFor:'pattern matching'!
7b542c0bf1dd . claus parents: 327 diff changeset	2704
7b542c0bf1dd . claus parents: 327 diff changeset	2705	findMatchString:matchString
368 a3c21a89ec37 * empty log message * claus parents: 360 diff changeset	2706	"like findString/indexOfSubCollection, but allowing match patterns.
328 7b542c0bf1dd . claus parents: 327 diff changeset	2707	find matchstring; if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	2708	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	2709
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	2710	^ self findMatchString:matchString startingAt:1 ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	2711	!
7b542c0bf1dd . claus parents: 327 diff changeset	2712
7b542c0bf1dd . claus parents: 327 diff changeset	2713	findMatchString:matchString startingAt:index
7b542c0bf1dd . claus parents: 327 diff changeset	2714	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	2715	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	2716	if not found, return 0."
7b542c0bf1dd . claus parents: 327 diff changeset	2717
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	2718	^ self findMatchString:matchString startingAt:index ignoreCase:false ifAbsent:0
328 7b542c0bf1dd . claus parents: 327 diff changeset	2719	!
7b542c0bf1dd . claus parents: 327 diff changeset	2720
7b542c0bf1dd . claus parents: 327 diff changeset	2721	findMatchString:matchString startingAt:index ignoreCase:ignoreCase ifAbsent:exceptionBlock
7b542c0bf1dd . claus parents: 327 diff changeset	2722	"like findString, but allowing match patterns.
7b542c0bf1dd . claus parents: 327 diff changeset	2723	find matchstring, starting at index. if found, return the index;
7b542c0bf1dd . claus parents: 327 diff changeset	2724	if not found, return the result of evaluating exceptionBlock.
7b542c0bf1dd . claus parents: 327 diff changeset	2725	This is a q&d hack - not very efficient"
7b542c0bf1dd . claus parents: 327 diff changeset	2726
7b542c0bf1dd . claus parents: 327 diff changeset	2727	\|firstChar
7b542c0bf1dd . claus parents: 327 diff changeset	2728	startIndex "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	2729	matchSize "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	2730	mySize "{ Class: SmallInteger }"
7b542c0bf1dd . claus parents: 327 diff changeset	2731	realMatchString\|
7b542c0bf1dd . claus parents: 327 diff changeset	2732
7b542c0bf1dd . claus parents: 327 diff changeset	2733	matchSize := matchString size.
7b542c0bf1dd . claus parents: 327 diff changeset	2734	matchSize == 0 ifTrue:[^ index]. "empty string matches"
7b542c0bf1dd . claus parents: 327 diff changeset	2735
7b542c0bf1dd . claus parents: 327 diff changeset	2736	realMatchString := matchString.
7b542c0bf1dd . claus parents: 327 diff changeset	2737	(realMatchString endsWith:$*) ifFalse:[
7b542c0bf1dd . claus parents: 327 diff changeset	2738	realMatchString := realMatchString , '*'.
7b542c0bf1dd . claus parents: 327 diff changeset	2739	matchSize := matchSize + 1
7b542c0bf1dd . claus parents: 327 diff changeset	2740	].
7b542c0bf1dd . claus parents: 327 diff changeset	2741
7b542c0bf1dd . claus parents: 327 diff changeset	2742	mySize := self size.
7b542c0bf1dd . claus parents: 327 diff changeset	2743	firstChar := realMatchString at:1.
7b542c0bf1dd . claus parents: 327 diff changeset	2744
7b542c0bf1dd . claus parents: 327 diff changeset	2745	firstChar asString includesMatchCharacters ifTrue:[
7b542c0bf1dd . claus parents: 327 diff changeset	2746	index to:mySize do:[:col \|
7b542c0bf1dd . claus parents: 327 diff changeset	2747	(realMatchString match:self from:col to:mySize ignoreCase:ignoreCase)
7b542c0bf1dd . claus parents: 327 diff changeset	2748	ifTrue:[^ col]
7b542c0bf1dd . claus parents: 327 diff changeset	2749	].
7b542c0bf1dd . claus parents: 327 diff changeset	2750	^ exceptionBlock value.
7b542c0bf1dd . claus parents: 327 diff changeset	2751	].
7b542c0bf1dd . claus parents: 327 diff changeset	2752	startIndex := self indexOf:firstChar startingAt:index.
7b542c0bf1dd . claus parents: 327 diff changeset	2753	[startIndex == 0] whileFalse:[
7b542c0bf1dd . claus parents: 327 diff changeset	2754	(realMatchString match:self from:startIndex to:mySize ignoreCase:ignoreCase)
7b542c0bf1dd . claus parents: 327 diff changeset	2755	ifTrue:[^ startIndex].
7b542c0bf1dd . claus parents: 327 diff changeset	2756	startIndex := self indexOf:firstChar startingAt:(startIndex + 1)
7b542c0bf1dd . claus parents: 327 diff changeset	2757	].
7b542c0bf1dd . claus parents: 327 diff changeset	2758	^ exceptionBlock value
7b542c0bf1dd . claus parents: 327 diff changeset	2759
7b542c0bf1dd . claus parents: 327 diff changeset	2760	"
7b542c0bf1dd . claus parents: 327 diff changeset	2761	'one two three four' findMatchString:'o[nu]'
7b542c0bf1dd . claus parents: 327 diff changeset	2762	'one two three four' findMatchString:'o[nu]' startingAt:3
7b542c0bf1dd . claus parents: 327 diff changeset	2763	"
7b542c0bf1dd . claus parents: 327 diff changeset	2764	!
7b542c0bf1dd . claus parents: 327 diff changeset	2765
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2766	includesMatchString:matchString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2767	"like includesString, but allowing match patterns.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2768	find matchstring; if found, return true, otherwise return false"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2769
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2770	^ (self findMatchString:matchString) ~~ 0
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2771
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2772	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2773	'hello world' includesMatchString:'h*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2774	'hello world' includesMatchString:'h[aeiou]llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2775	'hello world' includesMatchString:'wor*'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2776	'hello world' includesMatchString:'woR*'
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	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2779
328 7b542c0bf1dd . claus parents: 327 diff changeset	2780	match:aString
7b542c0bf1dd . claus parents: 327 diff changeset	2781	"return true if aString matches self, where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	2782	characters $* (to match any string) or $# (to match any character).
7b542c0bf1dd . claus parents: 327 diff changeset	2783	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	2784	Lower/uppercase are considered different.
cf2301210c47 . claus parents: 343 diff changeset	2785	NOTICE: match-meta character interpretation is like in unix-matching,
cf2301210c47 . claus parents: 343 diff changeset	2786	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	2787
7b542c0bf1dd . claus parents: 327 diff changeset	2788	^ self match:aString from:1 to:aString size ignoreCase:false
7b542c0bf1dd . claus parents: 327 diff changeset	2789
7b542c0bf1dd . claus parents: 327 diff changeset	2790	"
7b542c0bf1dd . claus parents: 327 diff changeset	2791	'ute' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	2792	'*uter' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	2793	'uter*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	2794	'ute' match:''
7b542c0bf1dd . claus parents: 327 diff changeset	2795	'[abcd]*' match:'computer'
7b542c0bf1dd . claus parents: 327 diff changeset	2796	'[abcd]*' match:'komputer'
7b542c0bf1dd . claus parents: 327 diff changeset	2797	'somecomplern' match:'this is some more complicated pattern match'
7b542c0bf1dd . claus parents: 327 diff changeset	2798	'somecomplern' match:'this is another complicated pattern match'
7b542c0bf1dd . claus parents: 327 diff changeset	2799	"
7b542c0bf1dd . claus parents: 327 diff changeset	2800	!
7b542c0bf1dd . claus parents: 327 diff changeset	2801
7b542c0bf1dd . claus parents: 327 diff changeset	2802	match:aString from:start to:stop ignoreCase:ignoreCase
7b542c0bf1dd . claus parents: 327 diff changeset	2803	"return true if part of aString matches myself,
7b542c0bf1dd . claus parents: 327 diff changeset	2804	where self may contain meta-match
7b542c0bf1dd . claus parents: 327 diff changeset	2805	characters $* (to match any string) or $# (to match any character)
7b542c0bf1dd . claus parents: 327 diff changeset	2806	or [...] to match a set of characters.
345 cf2301210c47 . claus parents: 343 diff changeset	2807	If ignoreCase is true, lower/uppercase are considered the same.
cf2301210c47 . claus parents: 343 diff changeset	2808	NOTICE: match-meta character interpretation is like in unix-matching,
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2809	NOT the ST-80 meaning."
328 7b542c0bf1dd . claus parents: 327 diff changeset	2810
7b542c0bf1dd . claus parents: 327 diff changeset	2811	\|matchScanArray\|
7b542c0bf1dd . claus parents: 327 diff changeset	2812
7b542c0bf1dd . claus parents: 327 diff changeset	2813	"
7b542c0bf1dd . claus parents: 327 diff changeset	2814	keep the matchScanArray from the most recent match -
7b542c0bf1dd . claus parents: 327 diff changeset	2815	avoids parsing the pattern over-and over if multiple searches
7b542c0bf1dd . claus parents: 327 diff changeset	2816	are done with the same pattern.
7b542c0bf1dd . claus parents: 327 diff changeset	2817	"
7b542c0bf1dd . claus parents: 327 diff changeset	2818	(PreviousMatch notNil
7b542c0bf1dd . claus parents: 327 diff changeset	2819	and:[PreviousMatch key = self]) ifTrue:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2820	matchScanArray := PreviousMatch value
328 7b542c0bf1dd . claus parents: 327 diff changeset	2821	] ifFalse:[
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2822	matchScanArray := self class matchScanArrayFrom:self.
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2823	matchScanArray isNil ifTrue:[
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2824	'CHARARRAY: invalid matchpattern:' infoPrint. self infoPrintCR.
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2825	^ false
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2826	].
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2827	PreviousMatch := self -> matchScanArray.
328 7b542c0bf1dd . claus parents: 327 diff changeset	2828	].
7b542c0bf1dd . claus parents: 327 diff changeset	2829
7b542c0bf1dd . claus parents: 327 diff changeset	2830	^ self class
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2831	matchScan:matchScanArray
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2832	from:1 to:matchScanArray size
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2833	with:aString
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2834	from:start to:stop
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2835	ignoreCase:ignoreCase
328 7b542c0bf1dd . claus parents: 327 diff changeset	2836
7b542c0bf1dd . claus parents: 327 diff changeset	2837	"
7b542c0bf1dd . claus parents: 327 diff changeset	2838	'ute' match:'12345COMPUTER' from:1 to:5 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	2839	'ute' match:'12345COMPUTER' from:6 to:13 ignoreCase:true
7b542c0bf1dd . claus parents: 327 diff changeset	2840	"
1429 5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2841
5729275971ae printNL -> printCR Claus Gittinger <cg@exept.de> parents: 1423 diff changeset	2842	"Modified: 20.5.1996 / 10:31:46 / cg"
359 b8df66983eff . claus parents: 357 diff changeset	2843	!
b8df66983eff . claus parents: 357 diff changeset	2844
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2845	match:aString ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2846	"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	2847	characters $* (to match any string) or $# (to match any character)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2848	or [...] to match a set of characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2849	If ignoreCase is true, lower/uppercase are considered the same.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2850	NOTICE: match-meta character interpretation is like in unix-matching,
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2851	NOT the ST-80 meaning."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2852
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2853	^ self match:aString from:1 to:aString size ignoreCase:ignoreCase
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2854
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2855	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2856	'ute' match:'COMPUTER' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2857	'*uter' match:'COMPUTER' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2858	'[abcd]*' match:'computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2859	'[abcd]*' match:'Computer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2860	'[a-k]*' match:'komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2861	'[a-k]*' match:'zomputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2862	'[a-k]*' match:'Komputer' ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2863	'[a-k]*' match:'Komputer' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2864	'somecomplern' match:'this is some more complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2865	'somecomplern' match:'this is another complicated pattern match' ignoreCase:true
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2866
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2867	Time millisecondsToRun:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2868	Symbol allInstancesDo:[:sym \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2869	'[ab]*' match:sym ignoreCase:false
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2870	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2871	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2872	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2873	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2874
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2875	!CharacterArray methodsFor:'printing & storing'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2876
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2877	article
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2878	"return an article string for the receiver."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2879
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2880	\|firstChar\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2881
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2882	firstChar := (self at:1) asLowercase.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2883	(firstChar isVowel or:[firstChar == $x]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2884	firstChar ~~ $u ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2885	^ 'an'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2886	]
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	^ 'a'
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	displayString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2892	"return a string to display the receiver - use storeString to have
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2893	quotes around."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2894
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2895	^ self storeString
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
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2898	printOn:aStream
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2899	"print the receiver on aStream"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2900
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2901	aStream nextPutAll:self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2902	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2903
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2904	printString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2905	"return a string for printing - thats myself"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2906
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2907	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2908	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2909
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2910	!CharacterArray methodsFor:'queries'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2911
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2912	encoding
1311 367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2913	"return the strings encoding, as a symbol.
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2914	Here, by default, we assume #iso8859 encoding.
1241 431675180b54 commentary Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	2915	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	2916
1311 367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2917	^ #iso8859
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2918
367f740d21e7 commentary Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2919	"Modified: 27.4.1996 / 13:23:49 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2920	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2921
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2922	hasChangeOfEmphasis
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2923	^ false
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2924
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2925	"Created: 12.5.1996 / 12:31:39 / cg"
1375 f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2926	!
f035bb7468f5 additions for new Text class Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	2927
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2928	heightOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2929	"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	2930
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2931	^ aGC font heightOf:self
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2932
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2933	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2934	'hello world' heightOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2935	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2936
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2937	"Created: 12.5.1996 / 20:09:29 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2938	"Modified: 12.5.1996 / 20:32:05 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2939	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2940
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2941	isString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2942	"return true, if the receiver is some kind of string;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2943	true is returned here - redefinition of Object>>isString."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2944
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2945	^ true
1235 2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2946	!
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2947
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2948	leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2949	"if the receiver starts with spaces, return the number of spaces
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2950	at the left - otherwise, return 0.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2951	If the receiver consists of spaces only, return the receivers size."
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2952
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2953	\|index "{Class: SmallInteger }"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2954	end "{Class: SmallInteger }"\|
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2955
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2956	index := 1.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2957	end := self size.
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2958	[index <= end] whileTrue:[
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2959	(self at:index) isSeparator ifFalse:[^ index - 1].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2960	index := index + 1
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2961	].
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2962	^ end
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2963
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2964	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2965	' hello' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2966	'foo ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2967	' ' leftIndent
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2968	"
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2969
2186eb8a2846 added #leftIndent Claus Gittinger <cg@exept.de> parents: 1204 diff changeset	2970	"Modified: 20.4.1996 / 19:28:43 / cg"
1388 e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2971	!
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2972
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2973	widthOn:aGC
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2974	"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	2975
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2976	^ aGC font widthOf:self
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2977
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2978	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2979	'hello world' widthOn:(View new)
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2980	"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2981
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2982	"Modified: 12.5.1996 / 15:49:18 / cg"
e47b4b894530 checkin from browser Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2983	"Created: 12.5.1996 / 20:09:29 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2984	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2985
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2986	!CharacterArray methodsFor:'special string converting'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2987
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2988	chopTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2989	"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	2990	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2991	in the middle have been removed for a total string length
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2992	of maxLen."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2993
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2994	\|sz n1 n2\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2995
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2996	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2997	n1 := n2 := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2998	maxLen odd ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	2999	n2 := n1 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3000	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3001	^ (self copyFrom:1 to:n1) , (self copyFrom:sz - n2 + 1)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3002	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3003
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3004	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3005	'12345678901234' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3006	'123456789012345' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3007	'1234567890123456' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3008	'aShortString' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3009	'aVeryLongNameForAStringThatShouldBeShortened' chopTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3010	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3011	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3012
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3013	contractAtBeginningTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3014	"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	3015	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3016	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	3017	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3018
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3019	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3020
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3021	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3022	^ '...' , (self copyFrom:(sz - (maxLen - 4)))
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3023	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3024
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3025	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3026	'12345678901234' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3027	'123456789012345' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3028	'1234567890123456' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3029	'aShortString' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3030	'aVeryLongNameForAStringThatShouldBeShortened' contractAtBeginningTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3031	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3032	!
359 b8df66983eff . claus parents: 357 diff changeset	3033
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3034	contractAtEndTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3035	"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	3036	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3037	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	3038	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3039
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3040	\|sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3041
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3042	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3043	^ self copyReplaceFrom:maxLen - 3
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3044	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3045	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3046
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3047	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3048	'12345678901234' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3049	'123456789012345' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3050	'1234567890123456' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3051	'aShortString' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3052	'aVeryLongNameForAStringThatShouldBeShortened' contractAtEndTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3053	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3054	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3055
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3056	contractTo:maxLen
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3057	"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	3058	Otherwise, return a copy of the receiver, where some characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3059	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	3060	of maxLen. Can be used to abbreviate long entries in tables."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3061
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3062	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3063	halfSize "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3064
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3065	(sz := self size) > maxLen ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3066	halfSize := maxLen // 2.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3067	^ self copyReplaceFrom:halfSize - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3068	to:sz - maxLen + halfSize + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3069	with:'...'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3070	]
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3071
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3072	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3073	'12345678901234' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3074	'123456789012345' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3075	'1234567890123456' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3076	'aShortString' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3077	'aVeryLongNameForAStringThatShouldBeShortened' contractTo:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3078	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3079	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3080
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3081	expandPlaceholdersWith:argArray
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3082	"return a copy of the receiver, where all %i escapes are
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	3083	replaced by corresponding arguments' printStrings from the argArray.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3084	I.e. 'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this') results
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3085	in the new string 'hello world; how is this'.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3086	To get a '%' character, use a '%%'-escape.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3087	See also bindWith:... for VisualAge compatibility."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3088
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3089	\|expandedString next
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3090	idx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3091	start "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3092	stop "{ SmallInteger }"\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3093
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3094	expandedString := self species new:0.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3095	stop := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3096	start := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3097	[start <= stop] whileTrue:[
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3098	idx := self indexOf:$% startingAt:start.
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3099	idx == 0 ifTrue:[
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3100	^ expandedString , (self copyFrom:start to:stop)
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3101	].
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3102	"found a %"
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3103	expandedString := expandedString , (self copyFrom:start to:(idx - 1)).
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3104	next := self at:(idx + 1).
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3105	(next == $%) ifTrue:[
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3106	expandedString := expandedString , '%'
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3107	] ifFalse:[
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3108	expandedString := expandedString , (argArray at:(next digitValue)) printString
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3109	].
455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3110	start := idx + 2
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3111	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3112	^ expandedString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3113
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3114	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3115	'hello %1' expandPlaceholdersWith:#('world')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3116	'hello %1; how is %2' expandPlaceholdersWith:#('world' 'this')
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3117	'hello %2; how is %1' expandPlaceholdersWith:#('world' 'this')
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	3118	'%1 plus %2 gives %3 ' expandPlaceholdersWith:#(4 5 9)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3119	"
1026 455c9f609f4d care for 16bit strings in expandPlaceHolders Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	3120
1308 cf41289a7ce2 commentary Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	3121	"Modified: 27.4.1996 / 11:58:36 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3122	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3123
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3124	withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3125	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3126	with all \-characters replaced by cr-characters."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3127
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3128	^ self copy replaceAll:$\ by:(Character cr)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3129
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3130	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3131	'hello\world' withCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3132	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3133	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3134
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3135	withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3136	"return a new string consisting of receivers characters
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3137	with all \X-character escapes replaced by corresponding-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3138	(similar to the way C-language Strings are converted).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3139	The following escapes are supported:
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3140	\r return character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3141	\n newline character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3142	\b backspace character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3143	\f formfeed character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3144	\t tab character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3145	\e escape character
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3146	\\ the \ character itself
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3147	\nnn three digit octal number defining the characters ascii value
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3148	\other other
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3149
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3150	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	3151	string constants is not affected by this method.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3152
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3153	Although easily implementable, this is NOT done automatically
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3154	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	3155	However, the compiler may detect sends ot #withEscapes to string literals
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3156	and place a modified string constant into the binary/byte-code.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3157	Therefore, no runtime penalty will be payed for using these escapes.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3158	(not in pre 2.11 versions)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3159	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3160
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3161	\|sz "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3162	newSize "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3163	srcIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3164	dstIdx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3165	val "{ SmallInteger }"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3166	newString next hasEmphasis e\|
359 b8df66983eff . claus parents: 357 diff changeset	3167
b8df66983eff . claus parents: 357 diff changeset	3168	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3169	first, count the number of escapes, to allow preallocation
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3170	of the new string ...
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3171	(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	3172	times in a WriteStream)
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3173	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3174	sz := newSize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3175	srcIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3176	[(srcIdx := self indexOf:$\ startingAt:srcIdx) ~~ 0] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3177	srcIdx == sz ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3178	newSize := newSize - 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3179	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3180	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3181	next == $0 ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3182	[(self at:srcIdx) isDigit] whileTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3183	newSize := newSize - 1. srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3184	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3185	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3186	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3187	srcIdx := srcIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3188	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3189
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3190	newSize == sz ifTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3191	^ self
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3192	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3193
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3194	newString := self species new:newSize.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3195
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3196	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3197
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3198	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3199	copy over, replace escapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3200	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3201	srcIdx := dstIdx := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3202	[srcIdx <= sz] whileTrue:[
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3203	next := self at:srcIdx.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3204	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3205	e := self emphasisAt:srcIdx
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3206	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3207	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3208	next == $\ ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3209	srcIdx <= sz ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3210	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3211	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3212	next == $r ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3213	next := Character return
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3214	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3215	next == $n ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3216	next := Character nl
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3217	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3218	next == $b ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3219	next := Character backspace
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3220	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3221	next == $f ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3222	next := Character newPage
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3223	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3224	next == $t ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3225	next := Character tab
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3226	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3227	next == $e ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3228	next := Character esc
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3229	] ifFalse:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3230	next == $0 ifTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3231	val := 0.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3232	[next isDigit] whileTrue:[
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3233	val := val * 8 + next digitValue.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3234	next := self at:srcIdx.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3235	srcIdx := srcIdx + 1.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3236	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3237	next := Character value:val.
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3238	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3239	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3240	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3241	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3242	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3243	]
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3244	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3245	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3246	].
1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3247	newString at:dstIdx put:next.
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3248	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3249	newString emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3250	].
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3251	dstIdx := dstIdx + 1.
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3252	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3253	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3254
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3255	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3256	'hello world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3257	'hello\world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3258	'hello\world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3259	'hello world\' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3260	'hello\tworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3261	'hello\nworld\na\n\tnice\n\t\tstring' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3262	'hello\tworld\n' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3263	'hello\010world' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3264	'hello\r\nworld' withEscapes
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3265	"
1008 1bd95ea83cac add \e in #withEscapes Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	3266
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3267	"Modified: 12.5.1996 / 12:53:34 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3268	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3269
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3270	withTabs
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3271	"return a string consisting of the receivers characters
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3272	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	3273	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	3274	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3275	Limitation: only the very first spaces are replaced
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3276	(i.e. if the receiver contains newLine characters,
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3277	no tabs are inserted after those lineBreaks)"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3278
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3279	\|idx "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3280	nTabs "{ SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3281	newString\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3282
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3283	idx := self findFirst:[:c \| (c ~~ Character space)].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3284	nTabs := (idx-1) // 8.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3285	nTabs == 0 ifTrue:[^ self].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3286
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3287	"any tabs"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3288	newString := self class new:(self size - (nTabs * 7)).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3289	newString atAll:(1 to:nTabs) put:(Character tab).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3290	newString replaceFrom:(nTabs + 1) with:self startingAt:(nTabs * 8 + 1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3291	^ newString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3292
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3293	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3294	'12345678901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3295	' 8901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3296	' 901234567890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3297	' 67890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3298	' 7890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3299	' 890' withTabs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3300	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3301	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3302
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3303	withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3304	"return a string consisting of the receivers characters,
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3305	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	3306	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	3307	otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3308	This does handle multiline strings."
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3309
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3310	\|col "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3311	str ch
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3312	dstIdx "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3313	newSz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3314	sz "{ SmallInteger }"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3315	hasEmphasis e\|
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3316
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3317	(self includes:(Character tab)) ifFalse:[^ self].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3318
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3319	sz := self size.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3320
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3321	"/ count the new size first, instead of
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3322	"/ multiple resizing (better for large strings)
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3323
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3324	col := 1. newSz := 0.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3325	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3326	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3327	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3328	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3329	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3330	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3331	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3332	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3333	] ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3334	(col \\ 8) to:8 do:[:ii \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3335	newSz := newSz + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3336	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3337	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3338	]
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3339	].
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3340
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3341	str := self species new:newSz.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3342
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3343	hasEmphasis := self hasChangeOfEmphasis.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3344
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3345	col := 1. dstIdx := 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3346	1 to:sz do:[:srcIdx \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3347	ch := self at:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3348
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3349	ch == Character tab ifFalse:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3350	col := col + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3351	ch == Character cr ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3352	col := 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3353	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3354	hasEmphasis ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3355	e := self emphasisAt:srcIdx.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3356	str emphasisAt:dstIdx put:e
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3357	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3358	str at:dstIdx put:ch.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3359	dstIdx := dstIdx + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3360	] ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3361	(col \\ 8) to:8 do:[:ii \|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3362	str at:dstIdx put:Character space.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3363	dstIdx := dstIdx + 1.
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3364	col := col + 1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3365	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3366	]
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3367	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3368	^ str
608 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	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3371	('1' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3372	('12345' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3373	('123456' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3374	('1234567' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3375	('12345678' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3376	('123456789' , Character tab asString , 'x') withTabsExpanded
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3377
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3378	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3379	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3380	with:$1) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3381
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3382	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3383	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3384	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3385	with:$2) withTabsExpanded
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3386
362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3387	(String with:Character tab
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3388	with:$1
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3389	with:Character cr
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3390	with:Character tab
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3391	with:$2) withTabsExpanded
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3392	"
735 362ce9e28d89 expandTabs now handles multiline strings Claus Gittinger <cg@exept.de> parents: 678 diff changeset	3393
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3394	"Modified: 12.5.1996 / 13:05:10 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3395	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3396
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3397	withoutCRs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3398	"return a new collection consisting of receivers elements
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3399	with all cr-characters replaced by \-characters.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3400	This is the reverse operation of withCRs."
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	^ self copy replaceAll:(Character cr) by:$\
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3403	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3404	'hello
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3405	world' withoutCRs
359 b8df66983eff . claus parents: 357 diff changeset	3406	"
608 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	withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3410	"return a copy of myself without leading separators.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3411	Notice: this does remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3412	Returns an empty string, if the receiver consist only of whitespace."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3413
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3414	\|index\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3415
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3416	index := self indexOfNonSeparatorStartingAt:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3417	index ~~ 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3418	index == 1 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3419	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3420	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3421	^ self copyFrom:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3422	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3423	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3424
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3425	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3426	' foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3427	'foo ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3428	' foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3429	' ' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3430	'foo' withoutLeadingSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3431	(' ' , Character tab asString , ' foo ') withoutLeadingSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3432	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3433	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3434
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3435	withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3436	"return a copy of myself without leading and trailing whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3437	Whitespace is space, tab, newline, formfeed.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3438	Use withoutSpaces, if you want to remove spaces only."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3439
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3440	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3441	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3442	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3443
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3444	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3445	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3446	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3447
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3448	[(startIndex < endIndex) and:[(self at:startIndex) isSeparator]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3449	startIndex := startIndex + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3450	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3451	[(endIndex > 1) and:[(self at:endIndex) isSeparator]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3452	endIndex := endIndex - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3453	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3454	startIndex > endIndex ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3455	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3456	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3457	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3458	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3459	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3460	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3461
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3462	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3463	' foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3464	' foo' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3465	'foo ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3466	' ' withoutSeparators
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3467	(' foo' , Character tab asString , ' ') withoutSeparators inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3468	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3469	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3470
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3471	withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3472	"return a copy of myself without leading and trailing spaces.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3473	Notice: this does NOT remove tabs, newline or any other whitespace.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3474	Use withoutSeparators for this."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3475
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3476	\|startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3477	endIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3478	sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3479
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3480	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3481	startIndex := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3482	endIndex := sz.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3483
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3484	[(startIndex < endIndex) and:[(self at:startIndex) == Character space]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3485	startIndex := startIndex + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3486	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3487	[(endIndex > 1) and:[(self at:endIndex) == Character space]] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3488	endIndex := endIndex - 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3489	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3490	startIndex > endIndex ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3491	^ ''
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3492	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3493	((startIndex == 1) and:[endIndex == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3494	^ self
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3495	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3496	^ self copyFrom:startIndex to:endIndex
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3497
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3498	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3499	' foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3500	'foo ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3501	' foo' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3502	' ' withoutSpaces
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3503	(' foo' , Character tab asString , ' ') withoutSpaces inspect
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3504	"
915 1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3505	!
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3506
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3507	withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3508	"return a copy of myself without trailing separators.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3509	Notice: this does remove tabs, newline or any other whitespace.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3510	Returns an empty string, if the receiver consist only of whitespace."
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3511
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3512	\|index\|
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3513
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3514	index := self size.
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3515	[index ~~ 0] whileTrue:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3516	(self at:index) isSeparator ifFalse:[
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3517	^ self copyTo:index
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3518	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3519	index := index - 1
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3520	].
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3521	^ ''
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3522
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3523	"
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3524	' foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3525	'foo ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3526	' foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3527	' ' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3528	'foo' withoutTrailingSeparators
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3529	(' ' , Character tab asString , ' foo ') withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3530	(' foo' , Character tab asString) withoutTrailingSeparators inspect
1ac1c7e942f4 added withoutTrailingSeparators Claus Gittinger <cg@exept.de> parents: 828 diff changeset	3531	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3532	! !
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3533
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3534	!CharacterArray methodsFor:'substring searching'!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3535
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3536	findString:subString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3537	"find a substring. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3538	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3539
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	3540	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3541
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3542	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3543	'hello world' findString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3544	'hello world' findString:'ole'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3545	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3546	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3547
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3548	findString:subString ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3549	"find a substring. If found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3550	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3551
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3552	^ self indexOfSubCollection:subString startingAt:1 ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3553	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3554
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3555	findString:subString startingAt:index
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3556	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3557	if not found, return 0."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3558
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	3559	^ self indexOfSubCollection:subString startingAt:index ifAbsent:0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3560
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3561	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3562	'hello yello' findString:'llo' startingAt:1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3563	'hello yello' findString:'llo' startingAt:5
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3564	'hello yello' findString:'llo' startingAt:15
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3565	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3566	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3567
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3568	findString:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3569	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3570	if not found, return the result of evaluating exceptionBlock."
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3571
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3572	^ self indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3573	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3574
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3575	includesString:aString
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3576	"return true, if a substring is contained in the receiver"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3577
1145 a094d90e11bf dont use [0] blocks - use 0 constant instead Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	3578	^ (self indexOfSubCollection:aString startingAt:1 ifAbsent:0) ~~ 0
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3579
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3580	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3581	'hello world' includesString:'hel'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3582	'hello world' includesString:'rld'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3583	'hello world' includesString:'llo'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3584	'hello world' includesString:'LLO'
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3585	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3586	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3587
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3588	indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3589	"find a substring, starting at index. if found, return the index;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3590	if not found, return the result of evaluating exceptionBlock.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3591	This is a q&d hack - not very efficient"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3592
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3593	\|firstChar found
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3594	startIndex "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3595	subSize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3596	mySize "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3597	runIdx "{ Class: SmallInteger }" \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3598
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3599	subSize := subString size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3600	subSize == 0 ifTrue:[^ index]. "empty string matches"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3601	mySize := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3602	firstChar := subString at:1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3603	startIndex := self indexOf:firstChar startingAt:index.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3604	[startIndex == 0] whileFalse:[
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3605	runIdx := startIndex.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3606	found := true.
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3607	1 to:subSize do:[:i \|
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3608	runIdx > mySize ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3609	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3610	] ifFalse:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3611	(subString at:i) ~= (self at:runIdx) ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3612	found := false
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3613	]
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3614	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3615	runIdx := runIdx + 1
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3616	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3617	found ifTrue:[
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3618	^ startIndex
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3619	].
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3620	startIndex := self indexOf:firstChar startingAt:(startIndex + 1)
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3621	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3622	^ exceptionBlock value
1005 4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3623
4507487e0be6 more on encoding/decoding (still unfinished) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	3624	"Modified: 23.2.1996 / 15:35:15 / cg"
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3625	!
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3626
652 b2212c748f24 typo Claus Gittinger <cg@exept.de> parents: 651 diff changeset	3627	restAfter:keyword withoutSeparators:strip
651 2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3628	"compare the left of the receiver with keyword,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3629	if it matches return the right.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3630	Finally, if strip is true, remove whiteSpace.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3631	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	3632	something: rest
759 908363ce8a32 interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3633	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	3634	begins with something.
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3635
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3636	You may wonder why such a specialized method exists here
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3637	- this is so common when processing mailboxes,
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3638	rcs files, nntp/pop3 responses, that is was considered worth
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3639	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	3640	times in variuos places."
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3641
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3642	\|rest\|
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3643
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3644	(self startsWith:keyword) ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3645	rest := self copyFrom:(keyword size + 1).
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3646	strip ifTrue:[
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3647	rest := rest withoutSeparators
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3648	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3649	^ rest
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3650	].
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3651	^ nil
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3652
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3653	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3654	'foo: hello world' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3655	'funny: something' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3656
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3657	'foo: hello world ' restAfter:'foo:' withoutSeparators:true
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3658	'foo: hello world ' restAfter:'foo:' withoutSeparators:false
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3659	"
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3660
2093b018dc3a added restAfter:withoutSeparators: Claus Gittinger <cg@exept.de> parents: 650 diff changeset	3661	"Created: 25.11.1995 / 11:04:18 / cg"
328 7b542c0bf1dd . claus parents: 327 diff changeset	3662	! !
7b542c0bf1dd . claus parents: 327 diff changeset	3663
255 2b2c5c0facab * empty log message * claus parents: 247 diff changeset	3664	!CharacterArray methodsFor:'testing'!
64 af7aeb79b25e Initial revision claus parents: diff changeset	3665
1613 cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3666	continuesWith:aString startingAt:startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3667	"return true, if the receiver beginning at startIndex
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3668	contains the characters in aString."
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3669
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3670	\|sz "{Class: SmallInteger }"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3671	idx "{Class: SmallInteger }"\|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3672
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3673	sz := aString size.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3674	idx := startIndex.
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3675
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3676	1 to:sz do:[:i \|
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3677	(self at:idx) ~~ (aString at:i) ifTrue:[^ false].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3678	idx := idx + 1
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3679	].
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3680	^ true
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3681
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3682	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3683	'hello world' continuesWith:'world' startingAt:6
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3684	'hello world' continuesWith:'world' startingAt:7
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3685	"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3686
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3687	"Created: 12.5.1996 / 15:46:40 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3688	"Modified: 26.7.1996 / 19:08:36 / cg"
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3689	!
cf7be5555874 checkin from browser Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	3690
64 af7aeb79b25e Initial revision claus parents: diff changeset	3691	countWords
af7aeb79b25e Initial revision claus parents: diff changeset	3692	"return the number of words, which are separated by separators"
af7aeb79b25e Initial revision claus parents: diff changeset	3693
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	3694	\|tally "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	3695	start "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	3696	mySize "{ Class: SmallInteger }"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	3697	stop ch\|
64 af7aeb79b25e Initial revision claus parents: diff changeset	3698
af7aeb79b25e Initial revision claus parents: diff changeset	3699	tally := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	3700	start := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	3701	mySize := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	3702	[start <= mySize] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3703	ch := self at:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3704	ch isSeparator ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3705	start := start + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3706	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3707	stop := self indexOfSeparatorStartingAt:start.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3708	(stop == 0) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3709	stop := mySize + 1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3710	].
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3711	tally := tally + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3712	start := stop
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3713	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	3714	].
af7aeb79b25e Initial revision claus parents: diff changeset	3715	^ tally
af7aeb79b25e Initial revision claus parents: diff changeset	3716
92 0c73b48551ac * empty log message * claus parents: 82 diff changeset	3717	"
0c73b48551ac * empty log message * claus parents: 82 diff changeset	3718	'hello world isnt this nice' countWords'
0c73b48551ac * empty log message * claus parents: 82 diff changeset	3719	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3720	!
af7aeb79b25e Initial revision claus parents: diff changeset	3721
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3722	endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3723	"return true, if the receiver ends with something, aString."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3724
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3725	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3726
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3727	(s := self string) ~~ self ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3728	^ s endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3729	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3730	^ super endsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3731
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3732	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3733	'hello world' endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3734	'hello world' asText allBold endsWith:'world'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3735	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3736
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3737	"Modified: 12.5.1996 / 15:49:18 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3738	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3739
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3740	isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3741	"return true, if the receiver is some alphanumeric word;
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3742	i.e. consists of a letter followed by letters or digits."
64 af7aeb79b25e Initial revision claus parents: diff changeset	3743
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3744	self size == 0 ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3745	"mhmh what is this ?"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3746	^ false
64 af7aeb79b25e Initial revision claus parents: diff changeset	3747	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3748	(self at:1) isLetter ifFalse:[^ false].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3749	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3750	char isLetterOrDigit ifFalse:[^ false].
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	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	3753
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	3754	"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3755	'helloWorld' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3756	'foo1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3757	'f1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3758	'1234' isAlphaNumeric
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3759	'+' isAlphaNumeric
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	3760	"
6c38ca59927f * empty log message * claus parents: 68 diff changeset	3761	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	3762
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3763	isBlank
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3764	"return true, if the receiver contains spaces only"
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	3765
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3766	self do:[:char \|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3767	char ~~ Character space ifTrue:[^ false].
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	3768	].
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3769	^ true
64 af7aeb79b25e Initial revision claus parents: diff changeset	3770	!
af7aeb79b25e Initial revision claus parents: diff changeset	3771
af7aeb79b25e Initial revision claus parents: diff changeset	3772	levenshteinTo:aString
af7aeb79b25e Initial revision claus parents: diff changeset	3773	"return the levenshtein distance to the argument, aString;
af7aeb79b25e Initial revision claus parents: diff changeset	3774	this value corrensponds to the number of replacements that have to be
af7aeb79b25e Initial revision claus parents: diff changeset	3775	made to get aString from the receiver.
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3776	See IEEE transactions on Computers 1976 Pg 172 ff."
64 af7aeb79b25e Initial revision claus parents: diff changeset	3777
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	3778	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	3779	in the following, we assum that ommiting a character
183f094cfd72 last with old match code claus parents: 326 diff changeset	3780	is less of an error than inserting an extra character.
183f094cfd72 last with old match code claus parents: 326 diff changeset	3781	Therefore the different insertion (i) and deletion (d)
183f094cfd72 last with old match code claus parents: 326 diff changeset	3782	values.
183f094cfd72 last with old match code claus parents: 326 diff changeset	3783	"
183f094cfd72 last with old match code claus parents: 326 diff changeset	3784
64 af7aeb79b25e Initial revision claus parents: diff changeset	3785	^ self levenshteinTo:aString s:4 c:1 i:2 d:6
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3786
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3787	"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3788	'ocmprt' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3789	'computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3790	'ocmputer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3791	'cmputer' levenshteinTo:'computer'
327 183f094cfd72 last with old match code claus parents: 326 diff changeset	3792	'computer' levenshteinTo:'cmputer'
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3793	'Computer' levenshteinTo:'computer'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3794	"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3795	!
af7aeb79b25e Initial revision claus parents: diff changeset	3796
af7aeb79b25e Initial revision claus parents: diff changeset	3797	levenshteinTo:aString s:substWeight c:caseWeight i:insrtWeight d:deleteWeight
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3798	"parametrized levenshtein.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3799	return the levenshtein distance to the argument, aString;
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3800	this value corrensponds to the number of replacements that have to be
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3801	made to get aString from the receiver.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3802	The arguments are the costs for substitution, case-change, insertion and
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3803	deletion of a character.
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3804	See IEEE transactions on Computers 1976 Pg 172 ff"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3805
af7aeb79b25e Initial revision claus parents: diff changeset	3806	\|d "delta matrix"
196 ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3807	len1 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3808	len2 "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3809	dim "{ Class: SmallInteger }"
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3810	prevRow row col
ab5727ae9e38 added asUppercaseFirst / asLowercaseFirst claus parents: 163 diff changeset	3811	dimPlus1 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3812	min pp c1 c2\|
af7aeb79b25e Initial revision claus parents: diff changeset	3813
af7aeb79b25e Initial revision claus parents: diff changeset	3814	len1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	3815	len2 := aString size.
af7aeb79b25e Initial revision claus parents: diff changeset	3816
af7aeb79b25e Initial revision claus parents: diff changeset	3817	"create the help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	3818
af7aeb79b25e Initial revision claus parents: diff changeset	3819	dim := len1 max:len2.
af7aeb79b25e Initial revision claus parents: diff changeset	3820	dimPlus1 := dim + 1.
af7aeb79b25e Initial revision claus parents: diff changeset	3821
af7aeb79b25e Initial revision claus parents: diff changeset	3822	d := Array new:dimPlus1.
af7aeb79b25e Initial revision claus parents: diff changeset	3823	1 to:dimPlus1 do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3824	d at:i put:(Array new:dimPlus1)
64 af7aeb79b25e Initial revision claus parents: diff changeset	3825	].
af7aeb79b25e Initial revision claus parents: diff changeset	3826
af7aeb79b25e Initial revision claus parents: diff changeset	3827	"init help-matrix"
af7aeb79b25e Initial revision claus parents: diff changeset	3828
af7aeb79b25e Initial revision claus parents: diff changeset	3829	(d at:1) at:1 put:0.
af7aeb79b25e Initial revision claus parents: diff changeset	3830	row := d at:1.
af7aeb79b25e Initial revision claus parents: diff changeset	3831	1 to:dim do:[:j \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3832	row at:(j + 1) put:( (row at:j) + insrtWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	3833	].
af7aeb79b25e Initial revision claus parents: diff changeset	3834
af7aeb79b25e Initial revision claus parents: diff changeset	3835	1 to:dim do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3836	(d at:(i + 1)) at:1 put:( ((d at:i) at:1) + deleteWeight )
64 af7aeb79b25e Initial revision claus parents: diff changeset	3837	].
af7aeb79b25e Initial revision claus parents: diff changeset	3838
af7aeb79b25e Initial revision claus parents: diff changeset	3839	1 to:len1 do:[:i \|
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3840	c1 := self at:i.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3841	1 to:len2 do:[:j \|
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3842	c2 := aString at:j.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3843	(c1 == c2) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3844	pp := 0
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3845	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3846	(c1 asLowercase == c2 asLowercase) ifTrue:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3847	pp := caseWeight
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3848	] ifFalse:[
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3849	pp := substWeight
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3850	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3851	].
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3852	prevRow := d at:i.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3853	row := d at:(i + 1).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3854	col := j + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3855	min := (prevRow at:j) + pp.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3856	min := min min:( (row at:j) + insrtWeight).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3857	min := min min:( (prevRow at:col) + deleteWeight).
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3858	row at:col put: min
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3859	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	3860	].
af7aeb79b25e Initial revision claus parents: diff changeset	3861
af7aeb79b25e Initial revision claus parents: diff changeset	3862	^ (d at:(len1 + 1)) at:(len2 + 1)
af7aeb79b25e Initial revision claus parents: diff changeset	3863	!
af7aeb79b25e Initial revision claus parents: diff changeset	3864
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3865	numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3866	"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	3867
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3868	\|binopChars firstChar\|
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	(self size > 2) ifFalse:[
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3871	binopChars := Scanner binarySelectorCharacters.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3872	firstChar := self at:1.
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3873
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3874	(self size == 1) ifTrue:[
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3875	((binopChars occurrencesOf:firstChar) == 0) ifTrue:[^ 0].
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3876	^ 1
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3877	].
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3878	((binopChars occurrencesOf:firstChar) == 0) ifFalse:[
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3879	((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	3880	]
608 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	^ self occurrencesOf:$:
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3883
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3884	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3885	'foo:bar:' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3886	#foo:bar: numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3887	'hello' numArgs
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3888	'+' numArgs
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3889	'\|' numArgs
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3890	'?' numArgs
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3891	"
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3892
08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3893	"Modified: 4.1.1997 / 14:16:14 / cg"
608 cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3894	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3895
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3896	partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3897	"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	3898
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3899	\|idx1 "{ Class: SmallInteger }"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3900	coll idx2 sz\|
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3901
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3902	coll := OrderedCollection new.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3903	idx1 := 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3904	sz := self size.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3905	[true] whileTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3906	idx2 := self indexOf:$: startingAt:idx1 + 1.
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3907	(idx2 == 0 or:[idx2 == sz]) ifTrue:[
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3908	coll add:(self copyFrom:idx1).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3909	^ coll
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	coll add:(self copyFrom:idx1 to:idx2).
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3912	idx1 := idx2 + 1
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3913	].
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3914
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3915	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3916	'foo:bar:' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3917	#foo:bar: partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3918	'hello' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3919	'+' partsIfSelector
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3920	"
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3921	!
cd5ac440fa95 checkin from browser Claus Gittinger <cg@exept.de> parents: 581 diff changeset	3922
64 af7aeb79b25e Initial revision claus parents: diff changeset	3923	spellAgainst: aString
af7aeb79b25e Initial revision claus parents: diff changeset	3924	"return an integer between 0 and 100 indicating how similar
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3925	the argument is to the receiver. No case conversion is done.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3926	This algorithm is much simpler (but also less exact) than the
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3927	levenshtein distance. Experiment which is better for your
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3928	application."
64 af7aeb79b25e Initial revision claus parents: diff changeset	3929
af7aeb79b25e Initial revision claus parents: diff changeset	3930	\| i1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	3931	i2 "{ Class: SmallInteger }"
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3932	next1 "{ Class: SmallInteger }"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3933	next2 "{ Class: SmallInteger }"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3934	size1 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	3935	size2 "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	3936	score "{ Class: SmallInteger }"
af7aeb79b25e Initial revision claus parents: diff changeset	3937	maxLen "{ Class: SmallInteger }" \|
af7aeb79b25e Initial revision claus parents: diff changeset	3938
af7aeb79b25e Initial revision claus parents: diff changeset	3939	size1 := self size.
af7aeb79b25e Initial revision claus parents: diff changeset	3940	size2 := aString size.
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3941	maxLen := size1 max:size2.
64 af7aeb79b25e Initial revision claus parents: diff changeset	3942	score := 0.
af7aeb79b25e Initial revision claus parents: diff changeset	3943	i1 := i2 := 1.
af7aeb79b25e Initial revision claus parents: diff changeset	3944	[i1 <= size1 and: [i2 <= size2]] whileTrue:[
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3945	next1 := i1 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3946	next2 := i2 + 1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3947	(self at:i1) == (aString at:i2) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3948	score := score+1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3949	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3950	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3951	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3952	(i2 < size2 and: [(self at:i1) == (aString at:next2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3953	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3954	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3955	(i1 < size1 and: [(self at:next1) == (aString at:i2)]) ifTrue: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3956	i1 := next1
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3957	] ifFalse: [
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3958	i1 := next1.
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3959	i2 := next2
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3960	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3961	]
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3962	]
64 af7aeb79b25e Initial revision claus parents: diff changeset	3963	].
af7aeb79b25e Initial revision claus parents: diff changeset	3964
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	3965	score == maxLen ifTrue: [^ 100].
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3966	^ 100 * score // maxLen
64 af7aeb79b25e Initial revision claus parents: diff changeset	3967
154 d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3968	"
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3969	'Smalltalk' spellAgainst: 'Smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3970	'Smalltalk' spellAgainst: 'smalltlak'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3971	'Smalltalk' spellAgainst: 'smalltalk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3972	'Smalltalk' spellAgainst: 'smalltlk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3973	'Smalltalk' spellAgainst: 'Smalltolk'
d4236ec280a6 * empty log message * claus parents: 138 diff changeset	3974	"
1381 c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3975	!
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3976
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3977	startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3978	"return true, if the receiver starts with something, aString."
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3979
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3980	\|s\|
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3981
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3982	(s := self string) ~~ self ifTrue:[
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3983	^ s startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3984	].
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3985	^ super startsWith:aString
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3986
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3987	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3988	'hello world' startsWith:'hello'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3989	'hello world' asText allBold startsWith:'hello'
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3990	"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3991
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3992	"Created: 12.5.1996 / 15:46:40 / cg"
c920ec16a98f Text fixes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3993	"Modified: 12.5.1996 / 15:49:24 / cg"
64 af7aeb79b25e Initial revision claus parents: diff changeset	3994	! !
af7aeb79b25e Initial revision claus parents: diff changeset	3995
1849 9f35f5934ec6 added msdos-latin1 en/decoder (code = #msdos850) Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	3996	!CharacterArray class methodsFor:'documentation'!
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	3997
2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	3998	version
2051 08fd6a693ee3 ask Scanner for valid binarySelector characters in numArgs Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	3999	^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.99 1997-01-04 13:17:34 cg Exp $'
629 2ceefe9b5a19 version at the end Claus Gittinger <cg@exept.de> parents: 608 diff changeset	4000	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 04 Jan 1997 14:17:34 +0100
changeset 2051	08fd6a693ee3
parent 1978	0d49a096cf06
child 2124	6238280f6120
permissions	-rw-r--r--