String.st
branchjv
changeset 20728 83c74234945e
parent 20727 fb8c5591428b
parent 20688 eb8babbd8d57
child 21024 8734987eb5c7
--- a/String.st	Tue Oct 25 12:31:42 2016 +0100
+++ b/String.st	Tue Oct 25 12:35:02 2016 +0100
@@ -519,6 +519,8 @@
 ! !
 
 
+
+
 !String class methodsFor:'queries'!
 
 defaultPlatformClass
@@ -539,6 +541,11 @@
 ! !
 
 
+
+
+
+
+
 !String methodsFor:'accessing'!
 
 at:index
@@ -2412,30 +2419,6 @@
 
 !String methodsFor:'converting'!
 
-asArrayOfSubstrings
-    "Answer an array with all the substrings of the receiver separated by
-     separator characters (space, cr, tab, linefeed, formfeed, etc).
-     CG: This is ported Squeak code, and I am not sure if it is more efficient than
-	 the inherited one... after all: who added it anyway ?"
-
-    | substrings start end stop |
-
-    substrings := OrderedCollection new.
-    start := 1.
-    stop := self size.
-    [start <= stop] whileTrue: [
-	(self at: start) isSeparator ifFalse: [
-	    end := start + 1.
-	    [end <= stop and: [(self at: end) isSeparator not]]
-		whileTrue: [end := end + 1].
-	    substrings add: (self copyFrom: start to: end - 1).
-	    start := end - 1
-	].
-	start := start + 1
-    ].
-    ^ substrings asArray
-!
-
 asAsciiZ
     "if the receiver does not end with a 0-valued character, return a copy of it,
      with an additional 0-character. Otherwise return the receiver. This is sometimes
@@ -4276,6 +4259,7 @@
     ^ super reverse
 ! !
 
+
 !String methodsFor:'substring searching'!
 
 indexOfSubCollection:aSubString startingAt:startIndex ifAbsent:exceptionValue caseSensitive:caseSensitive
@@ -4952,6 +4936,7 @@
 
 ! !
 
+
 !String class methodsFor:'documentation'!
 
 version