hg/stx-libbasic: comparison CharacterArray.st

equal deleted inserted replaced

-:4b35f99afefb
+:cf2301210c47
 CharacterArray comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.20 1995-05-10 02:17:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.21 1995-05-16 17:06:01 claus Exp $
 '!
 !CharacterArray class methodsFor:'documentation'!
 copyright
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.20 1995-05-10 02:17:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.21 1995-05-16 17:06:01 claus Exp $
 "
 !
 documentation
 "
 asUppercaseFirst
 "return a copy of myself where the first character is
 converted to uppercase."
-|newString|
+|newString sz|
-newString := self copy.
+sz := self size.
-newString size > 0 ifTrue:[
+newString := self copyFrom:1 to:sz.
+sz > 0 ifTrue:[
 	newString at:1 put:(newString at:1) asUppercase
 ].
 ^ newString
 "
 asLowercaseFirst
 "return a copy of myself where the first character is
 converted to lowercase."
-|newString|
+|newString sz|
-newString := self copy.
+sz := self size.
-newString size > 0 ifTrue:[
+newString := self copyFrom:1 to:sz.
+sz > 0 ifTrue:[
 	newString at:1 put:(newString at:1) asLowercase
 ].
 ^ newString
 "
 ^ ComposedText fromString:self
 !
 asNumber
 "read a number from the receiver.
-Notice, that errors may occur during the read, so you better
+Notice, that (in contrast to ST-80) errors may occur during the read,
-setup some signal handler when using this method."
+so you better setup some signal handler when using this method.
+This may change if ANSI specifies it."
+"/ ST-80 behavior:
+"/  ^ Number readFromString:self onError:0
 ^ Number readFromString:self
 "
 '123'     asNumber
 '123.567' asNumber
 '(5/6)'   asNumber
 'foo'     asNumber
 Object errorSignal handle:[:ex | ex returnWith:0] do:['foo' asNumber]
+"
+!
+asNumberFromFormatString:ignored
+"read a number from the receiver, ignoring any nonDigit characters.
+This is typically used to convert from strings which include
+dollar-signs or millenium digits. However, this method also ignores
+the decimal point (if any) and therefore should be used with care."
+|tempString|
+tempString := self collect:[:char | char isDigit].
+^ Number readFromString:tempString onError:0
+"
+'USD 123' asNumberFromFormatString:'foo'
+'DM 123'  asNumberFromFormatString:'foo'
+'123'     asNumberFromFormatString:'foo'
+'123.567' asNumberFromFormatString:'foo'
+'(5/6)'   asNumberFromFormatString:'foo'
+'foo'     asNumberFromFormatString:'foo'
 "
 !
 asInteger
 "read an integer from the receiver.
 "
 'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:#($:)
 'hello:world:isnt:this nice' asCollectionOfSubstringsSeparatedByAny:(Array with:$: with:Character space)
 'h1e2l3l4o' asCollectionOfSubstringsSeparatedByAny:($1 to: $9)
 "
+!
+tokensBasedOn:aCharacter
+"this is an ST-80 alias for the ST/X method
+	asCollectionOfSubstringsSeparatedBy:"
+^ self asCollectionOfSubstringsSeparatedBy:aCharacter
+"
+'hello:world:isnt:this nice' tokensBasedOn:$:
+'foo,bar,baz' tokensBasedOn:$,
+'/etc/passwd' asFilename readStream nextLine tokensBasedOn:$:
+"
 ! !
 !CharacterArray methodsFor:'special string converting'!
+chopTo:maxLen
+"if the receivers size is less or equal to maxLen, return it.
+Otherwise, return a copy of the receiver, where some characters
+in the middle have been removed for a total string length
+of maxLen."
+|sz n1 n2|
+(sz := self size) > maxLen ifTrue:[
+	n1 := n2 := maxLen // 2.
+	maxLen odd ifTrue:[
+	    n2 := n1 + 1
+	].
+	^ (self copyFrom:1 to:n1) , (self copyFrom:sz - n2 + 1)
+]
+"
+'12345678901234'   chopTo:15
+'123456789012345'  chopTo:15
+'1234567890123456' chopTo:15
+'aShortString' chopTo:15
+'aVeryLongNameForAStringThatShouldBeShortened' chopTo:15
+"
+!
 contractTo:maxLen
 "if the receivers size is less or equal to maxLen, return it.
 Otherwise, return a copy of the receiver, where some characters
 in the middle have been replaced by '...' for a total string length
 ]
 "
 '12345678901234' contractTo:15
 '123456789012345' contractTo:15
 '1234567890123456' contractTo:15
 'aShortString' contractTo:15
 'aVeryLongNameForAStringThatShouldBeShortened' contractTo:15
 "
 !
 > aString
 "Compare the receiver with the argument and return true if the
 receiver is greater than the argument. Otherwise return false.
 In contrast to ST-80, case differences are NOT ignored, thus
-'foo' > 'Foo' will return true.
+'foo' > 'Foo' will return true; use #sameAs: to compare ignoring cases..
 Since this is incompatible to ST-80, this may change."
 |mySize    "{ Class: SmallInteger }"
 otherSize "{ Class: SmallInteger }"
 n         "{ Class: SmallInteger }"
 = aString
 "Compare the receiver with the argument and return true if the
 receiver is equal to the argument. Otherwise return false.
 This compare does NOT ignore case differences,
 therefore 'foo' = 'Foo' will return false.
-Since this is incompatible to ST-80, this may change."
+Since this is incompatible to ST-80 (at least, V2.x) , this may change."
 |mySize    "{ Class: SmallInteger }"
 otherSize |
 aString species == self species ifFalse:[^ false].
 'foo' = 'bar'
 'foo' = 'foo'
 "
 !
-trueCompare:aString
+compareWith:aString
 "Compare the receiver with the argument and return 1 if the receiver is
 greater, 0 if equal and -1 if less than the argument.
 Case differences are NOT ignored, thus
-'foo' trueCompare: 'Foo' will return 1."
+'foo' compareWith: 'Foo' will return 1."
 |mySize    "{ Class: SmallInteger }"
 otherSize "{ Class: SmallInteger }"
 n         "{ Class: SmallInteger }"
 c1 c2|
 "
 'foo' sameAs: 'Foo'
 'foo' sameAs: 'bar'
 'foo' sameAs: 'foo'
+"
+!
+sameCharacters:aString
+"count & return the number of characters which are the same
+(ignoring case) in the receiver and the argument, aString."
+|n "{ Class: SmallInteger }"
+otherSize c1 c2 cnt|
+n := self size.
+n := n min:(aString size).
+cnt := 0.
+1 to:n do:[:index |
+	c1 := self at:index.
+	c2 := aString at:index.
+	((c1 == c2)
+	or:[c1 asLowercase = c2 asLowercase]) ifTrue:[
+	    cnt := cnt + 1
+	]
+].
+^ cnt
+"
+'foobarbaz' sameCharacters: 'foo'
+'foobarbaz' sameCharacters: 'Foo'
+'foobarbaz' sameCharacters: 'baz'
 "
 ! !
 !CharacterArray methodsFor:'character searching'!
 match:aString
 "return true if aString matches self, where self may contain meta-match
 characters $* (to match any string) or $# (to match any character).
 or [...] to match a set of characters.
-Lower/uppercase are considered different."
+Lower/uppercase are considered different.
+NOTICE: match-meta character interpretation is like in unix-matching,
+	     NOT the ST-80 meaning."
 ^ self match:aString from:1 to:aString size ignoreCase:false
 "
 '*ute*' match:'computer'
 match:aString ignoreCase:ignoreCase
 "return true if aString matches self, where self may contain meta-match
 characters $* (to match any string) or $# (to match any character)
 or [...] to match a set of characters.
-If ignoreCase is true, lower/uppercase are considered the same."
+If ignoreCase is true, lower/uppercase are considered the same.
+NOTICE: match-meta character interpretation is like in unix-matching,
+	     NOT the ST-80 meaning."
 ^ self match:aString from:1 to:aString size ignoreCase:ignoreCase
 "
 '*ute*' match:'COMPUTER' ignoreCase:true
 match:aString from:start to:stop ignoreCase:ignoreCase
 "return true if part of aString matches myself,
 where self may contain meta-match
 characters $* (to match any string) or $# (to match any character)
 or [...] to match a set of characters.
-If ignoreCase is true, lower/uppercase are considered the same."
+If ignoreCase is true, lower/uppercase are considered the same.
+NOTICE: match-meta character interpretation is like in unix-matching,
+	     NOT the ST-80 meaning."
 |matchScanArray|
 "
 keep the matchScanArray from the most recent match -

changeset 345	cf2301210c47
parent 343	1cf554ea3773
child 350	54d513b45f51