hg/stx-libbasic: comparison CharacterArray.st

equal deleted inserted replaced

-:bf7f37b63ea2
+:eb433f2c42b2
 "Modified: 28.6.1997 / 20:09:35 / cg"
 "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 !CharacterArray class methodsFor:'cleanup'!
 lowSpaceCleanup
 "cleanup in low-memory situations"
 invalid:
 CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
 CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
 "
 ! !
 !CharacterArray class methodsFor:'pattern matching'!
 matchEscapeCharacter
 "return the character used to escape a matchCharacter
 Abstract subclasses must redefine again."
 ^ self == CharacterArray
 ! !
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 addLineDelimiters
 "Ansi compatibility - same as withCRs"
 isCharacters
 "added for visual works compatibility"
 ^ true
 ! !
 !CharacterArray methodsFor:'character searching'!
 includesMatchCharacters
 "return true if the receiver includes any GLOB meta-match characters (i.e. $* or $#)
 for match operations; false if not.
 "
 'hello world' indexOfSeparator
 'helloworld' indexOfSeparator
 'hello   ' indexOfSeparator
 '   hello' indexOfSeparator
+"
+!
+indexOfSeparatorOrEndStartingAt:startIndex
+"return the index of the next whitespace character,
+starting the search at startIndex, searching forward;
+return the index of one behond the end of the receiver if no separator was found.
+To extract the word, copy from startIndex to the returned index-1"
+|idx|
+idx := self indexOfSeparatorStartingAt:startIndex.
+idx == 0 ifTrue:[^ self size + 1].
+^ idx.
+"
+'hello world' indexOfSeparatorOrEndStartingAt:3
+' hello world' indexOfSeparatorOrEndStartingAt:3
+'hello world ' indexOfSeparatorOrEndStartingAt:3
+'hello world ' indexOfSeparatorOrEndStartingAt:6
+'hello world ' indexOfSeparatorOrEndStartingAt:7
+'helloworld ' indexOfSeparatorOrEndStartingAt:7
+'helloworld' indexOfSeparatorOrEndStartingAt:7
 "
 !
 indexOfSeparatorStartingAt:startIndex
 "return the index of the next whitespace character,
 encodeFrom:oldEncoding into:newEncoding
 ^ CharacterEncoder encodeString:self from:oldEncoding into:newEncoding
 "
-'���' encodeFrom:#iso8859 into:#utf8
+'' encodeFrom:#iso8859 into:#utf8
-('���' encodeFrom:#iso8859 into:#utf8) encodeFrom:#utf8 into:#unicode
+('' encodeFrom:#iso8859 into:#utf8) encodeFrom:#utf8 into:#unicode
 "
 !
 rot13
 "Usenet: from `rotate alphabet 13 places']
 s nextPutAllUtf16:self.
 ^ s contents
 "
 'abcde1234' utf16Encoded
-'abcde����' utf16Encoded
+'abcde' utf16Encoded
 "
 "Modified: / 11-05-2010 / 19:12:37 / cg"
 !
 s nextPutAllUtf8:self.
 ^ s contents
 "
 'abcde1234' utf8Encoded
-'abcde����' utf8Encoded
+'abcde' utf8Encoded
 "
 "Modified: / 11-05-2010 / 19:12:37 / cg"
 ! !
 !CharacterArray methodsFor:'matching - glob expressions'!
 compoundMatch:aString
 "like match, but the receiver may be a compound match pattern,
 ^ aPatternString match:self caseSensitive:ignoreCase not
 "Created: / 08-03-2012 / 03:11:11 / cg"
 ! !
 !CharacterArray methodsFor:'padded copying'!
 centerPaddedTo:newSize
 "return a new string consisting of the receivers characters,
 "
 "Created: 12.5.1996 / 20:09:29 / cg"
 "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 !CharacterArray methodsFor:'special string converting'!
 expandPlaceholders:escapeCharacter with:argArrayOrDictionary
 "this is the generic version of the old %-escaping method, allowing for an arbitrary
 ('  ' , Character tab asString , ' foo   ') withoutTrailingSeparators inspect
 ('   foo' , Character tab asString) withoutTrailingSeparators inspect
 "
 ! !
 !CharacterArray methodsFor:'substring searching'!
 findRangeOfString:subString
 "find a substring. if found, return the start- and endIndex;
 if not found, return an empty interval."
 ! !
 !CharacterArray class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.520 2014-01-05 12:27:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.521 2014-01-27 22:59:16 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.520 2014-01-05 12:27:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.521 2014-01-27 22:59:16 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 18117	eb433f2c42b2
parent 18115	26ac4840e5d0
parent 15912	13b6b4a8109d
child 18120	e3a375d5f6a8