equal
deleted
inserted
replaced
2041 |
2041 |
2042 |newStr c bitsPerCharacter |
2042 |newStr c bitsPerCharacter |
2043 mySize "{ Class: SmallInteger }" | |
2043 mySize "{ Class: SmallInteger }" | |
2044 |
2044 |
2045 mySize := self size. |
2045 mySize := self size. |
|
2046 mySize == 0 ifTrue:[^ self]. |
2046 newStr := self species new:mySize. |
2047 newStr := self species new:mySize. |
2047 bitsPerCharacter := newStr bitsPerCharacter. |
2048 bitsPerCharacter := newStr bitsPerCharacter. |
2048 |
2049 |
2049 1 to:mySize do:[:i | |
2050 1 to:mySize do:[:i | |
2050 c := (self at:i) asLowercase. |
2051 c := (self at:i) asLowercase. |
2051 c bitsPerCharacter > bitsPerCharacter ifTrue:[ |
2052 c bitsPerCharacter > bitsPerCharacter ifTrue:[ |
2052 newStr := c stringSpecies fromString:newStr. |
2053 newStr := c stringSpecies fromString:newStr. |
2053 ]. |
2054 ]. |
2054 newStr at:i put:c |
2055 newStr at:i put:c |
2055 ]. |
2056 ]. |
2056 ^ newStr |
2057 ^ newStr |
2057 |
2058 |
2058 " |
2059 " |
2059 'HelloWorld' asLowercase |
2060 'HelloWorld' asLowercase |
2432 |
2433 |
2433 |newStr c bitsPerCharacter |
2434 |newStr c bitsPerCharacter |
2434 mySize "{ Class: SmallInteger }" | |
2435 mySize "{ Class: SmallInteger }" | |
2435 |
2436 |
2436 mySize := self size. |
2437 mySize := self size. |
|
2438 mySize == 0 ifTrue:[^ self]. |
2437 newStr := self species new:mySize. |
2439 newStr := self species new:mySize. |
2438 bitsPerCharacter := newStr bitsPerCharacter. |
2440 bitsPerCharacter := newStr bitsPerCharacter. |
2439 |
2441 |
2440 1 to:mySize do:[:i | |
2442 1 to:mySize do:[:i | |
2441 c := (self at:i) asUppercase. |
2443 c := (self at:i) asUppercase. |
2442 c bitsPerCharacter > bitsPerCharacter ifTrue:[ |
2444 c bitsPerCharacter > bitsPerCharacter ifTrue:[ |
2443 newStr := c stringSpecies fromString:newStr. |
2445 newStr := c stringSpecies fromString:newStr. |
2444 ]. |
2446 ]. |
2445 newStr at:i put:c |
2447 newStr at:i put:c |
2446 ]. |
2448 ]. |
2447 ^ newStr |
2449 ^ newStr |
2448 |
2450 |
2449 " |
2451 " |
2450 'helloWorld' asUppercase |
2452 'helloWorld' asUppercase |
4989 ! ! |
4991 ! ! |
4990 |
4992 |
4991 !CharacterArray class methodsFor:'documentation'! |
4993 !CharacterArray class methodsFor:'documentation'! |
4992 |
4994 |
4993 version |
4995 version |
4994 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.321 2005-08-16 15:46:12 stefan Exp $' |
4996 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.322 2005-10-04 14:10:22 cg Exp $' |
4995 ! ! |
4997 ! ! |
4996 |
4998 |
4997 CharacterArray initialize! |
4999 CharacterArray initialize! |