2226 !CharacterArray methodsFor:'Compatibility - ST80'!

  2226 !CharacterArray methodsFor:'Compatibility - Squeak'!

  2227 

  2228 capitalized

  2229     ^ self asUppercaseFirst

  2230 

  2231     "

  2232      'hello' capitalized

  2233     "

  2234 !

  2235 

  2236 displayProgressAt:aPointOrNil from:start to:stop during:aBlock

  2237      ProgressIndicator

  2238         displayProgress:self

  2239         at:aPointOrNil

  2240         from:start

  2241         to:stop

  2242         during:aBlock.

  2243 

  2244     "

  2245      'dobedobedoobedoo'

  2246         displayProgressAt:(Screen current center)

  2247         from:0 to:100

  2248         during:[:val |

  2249                 0 to:100 do:[:i |

  2250                     val value:i.

  2251                     Delay waitForSeconds:0.05.

  2252                 ]

  2253                ]

  2254     "

  2255 !

  2256 

  2257 endsWithDigit

  2258     "Answer whether the receiver's final character represents a digit.  3/11/96 sw"

  2259 

  2260     ^ self size > 0 and: [self last isDigit]

  2261 !

  2262 

  2263 findTokens:delimiters

  2264     ^ self asCollectionOfSubstringsSeparatedByAny:delimiters

  2265 !

  2266 

  2267 includesSubString:aString

  2268     "return true, if a substring is contained in the receiver.

  2269      The compare is case sensitive."

  2270 

  2271     ^ self includesString:aString

  2272 

  2273     "

  2274      'hello world' includesSubString:'Hel'  

  2275      'hello world' includesSubString:'hel'  

  2276      'hello world' includesSubString:'llo'  

  2277     "

  2278 

  2279 

  2280 

  2281 !

  2282 

  2283 includesSubstring:aString caseSensitive:caseSensitive

  2284     "return true, if a substring is contained in the receiver.

  2285      The argument, caseSensitive controls if case is ignored in the compare."

  2286 

  2287     "/ for now,  a q&d hack ...

  2288 

  2289     caseSensitive ifFalse:[

  2290         ^ self asLowercase includesString:aString asLowercase

  2291     ].

  2292     ^ self includesString:aString

  2293 

  2294     "

  2295      'hello world' includesSubstring:'Hel' caseSensitive:true  

  2296      'hello world' includesSubstring:'Hel' caseSensitive:false 

  2297     "

  2298 

  2299 

  2300 

  2301 !

  2302 

  2303 lastSpacePosition

  2304     ^ self lastIndexOfSeparator

  2305 !

  2306 

  2307 truncateTo:smallSize

  2308     "return myself or a copy shortened to smallSize.  1/18/96 sw"

  2309 

  2310     self size <= smallSize ifTrue:[^ self].

  2311     ^ self copyFrom: 1 to: smallSize

  2312 

  2313     "

  2314      'hello world' truncateTo:5 

  2315      'hello' truncateTo:10      

  2316 

  2317      'hello world' copyTo:5       

  2318      'hello' copyTo:10

  2319     "

  2320 !

  2321 

  2322 withBlanksTrimmed

  2323     "Return a copy of the receiver from which leading and trailing blanks have been trimmed."

  2324 

  2325     ^ self withoutSpaces

  2326 

  2327     "

  2328      '  hello    world    ' withBlanksTrimmed  

  2329     "

  2330 

  2331 

  2332 

  2333 !

  2334 

  2335 withNoLineLongerThan: aNumber

  2336     "Answer a string with the same content as receiver, but rewrapped so that no line has more characters than the given number"

  2337 

  2338     | listOfLines currentLast currentStart resultString putativeLast putativeLine crPosition |

  2339 

  2340     aNumber isNumber not | (aNumber < 1) ifTrue: [self error: 'too narrow'].

  2341     listOfLines _ OrderedCollection new.

  2342     currentLast _ 0.

  2343     [currentLast < self size] whileTrue:

  2344             [currentStart _ currentLast + 1.

  2345             putativeLast _ (currentStart + aNumber - 1) min: self size.

  2346             putativeLine _ self copyFrom: currentStart to: putativeLast.

  2347             (crPosition _ putativeLine indexOf: Character cr) > 0 ifTrue:

  2348                     [putativeLast _ currentStart + crPosition - 1.

  2349                     putativeLine _ self copyFrom: currentStart to: putativeLast].

  2350             currentLast _ putativeLast == self size

  2351                     ifTrue:

  2352                             [putativeLast]

  2353                     ifFalse:

  2354                             [currentStart + putativeLine lastSpacePosition - 1].

  2355             currentLast <= currentStart ifTrue:

  2356                     ["line has NO spaces; baleout!!"

  2357                     currentLast _ putativeLast].

  2358             listOfLines add: (self copyFrom: currentStart to: currentLast) withBlanksTrimmed].

  2359 

  2360     listOfLines size > 0 ifFalse: [^ ''].

  2361     resultString _ listOfLines first.

  2362     2 to: listOfLines size do:

  2363             [:i | resultString _ resultString, Character cr asString, (listOfLines at: i)].

  2364     ^ resultString

  2365 

  2366     "

  2367      #(5 7 20) collect:

  2368         [:i | 'Fred the bear went down to the brook to read his book in silence' withNoLineLongerThan: i]

  2369     "

  2370 

  2371 

  2372 

  2373 ! !

  2374 

  2375 !CharacterArray methodsFor:'Compatibility - V''Age'!

  2376 

  2377 addLineDelimiter

  2378     "replace all '\'-characters by line delimiter (cr) - characters.

  2379      This has been added for VisualAge compatibility."

  2380 

  2381     ^ self withCRs

  2382 !

  2383 

  2384 bindWith:aString

  2385     "return a copy of the receiver, where a '%1' escape is

  2386      replaced by aString.

  2387      This has been added for VisualAge compatibility."

  2388 

  2389     ^ self expandPlaceholdersWith:(Array with:aString)

  2390 

  2391     "

  2392      'do you like %1 ?' bindWith:'smalltalk'

  2393     "

  2394 !

  2395 

  2396 bindWith:string1 with:string2

  2397     "return a copy of the receiver, where a '%1' escape is

  2398      replaced by string1 and '%2' is replaced by string2.

  2399      This has been added for VisualAge compatibility."

  2400 

  2401     ^ self expandPlaceholdersWith:(Array with:string1 with:string2)

  2402 

  2403     "

  2404      'do you prefer %1 or rather %2 ?'

  2405 	bindWith:'smalltalk' with:'c++'

  2406     "

  2407 !

  2408 

  2409 bindWith:str1 with:str2 with:str3

  2410     "return a copy of the receiver, where a '%1', '%2' and '%3' escapes

  2411      are replaced by str1, str2 and str3 respectively.

  2412      This has been added for VisualAge compatibility."

  2413 

  2414     ^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3)

  2415 

  2416     "

  2417      'do you prefer %1 or rather %2 (not talking about %3) ?'

  2418 	bindWith:'smalltalk' with:'c++' with:'c'

  2419     "

  2420 !

  2421 

  2422 bindWith:str1 with:str2 with:str3 with:str4

  2423     "return a copy of the receiver, where a '%1', '%2', '%3' and '%4' escapes

  2424      are replaced by str1, str2, str3 and str4 respectively.

  2425      This has been added for VisualAge compatibility."

  2426 

  2427     ^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4)

  2428 

  2429     "

  2430      'do you prefer %1 or rather %2 (not talking about %3 or even %4) ?'

  2431 	bindWith:'smalltalk' with:'c++' with:'c' with:'assembler'

  2432     "

  2433 !

  2434 

  2435 bindWith:str1 with:str2 with:str3 with:str4 with:str5

  2436     "return a copy of the receiver, where a '%1' .. '%5' escapes

  2437      are replaced by str1 .. str5 respectively.

  2438      This has been added for VisualAge compatibility."

  2439 

  2440     ^ self expandPlaceholdersWith:(Array with:str1 with:str2 with:str3 with:str4 with:str5)

  2441 

  2442     "Created: 31.1.1997 / 16:25:42 / cg"

  2443 !

  2444 

  2445 bindWith:str1 with:str2 with:str3 with:str4 with:str5 with:str6

  2446     "return a copy of the receiver, where a '%1' .. '%6' escapes

  2447      are replaced by str1 .. str5 respectively.

  2448      This has been added for VisualAge compatibility."

  2449 

  2450     ^ self expandPlaceholdersWith:(Array with:str1 with:str2 

  2451                                          with:str3 with:str4 

  2452                                          with:str5 with:str6)

  2453 

  2454 !

  2455 

  2456 bindWithArguments:anArrayOfStrings

  2457     "return a copy of the receiver, where a '%i' escape

  2458      is replaced by the coresponding string from the argument array.

  2459      'i' may be between 1 and 9 (i.e. a maximum of 9 placeholders is allowed).

  2460      This has been added for VisualAge compatibility."

  2461 

  2462     ^ self expandPlaceholdersWith:anArrayOfStrings

  2463 

  2464     "

  2465      'do you prefer %1 or rather %2 (not talking about %3) ?'

  2466 	bindWithArguments:#('smalltalk' 'c++' 'c')

  2467     "

  2468 !

  2469 

  2470 subStrings

  2471     "return an array consisting of all words contained in the receiver.

  2472      Words are separated by whitespace.

  2473      This has been added for VisualAge compatibility."

  2474 

  2475     ^ self asCollectionOfWords

  2476 

  2477     "

  2478      'hello world, this is smalltalk' subStrings

  2479     "

  2480 !

  2481 

  2482 subStrings:separatorCharacter

  2483     "return an array consisting of all words contained in the receiver.

  2484      Words are separated by separatorCharacter.

  2485      This has been added for VisualAge compatibility."

  2486 

  2487     ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter

  2488 

  2489     "

  2490      'foo:bar:baz:smalltalk' subStrings:$:

  2491     "

  2492 !

  2493 

  2494 trimSeparators

  2495     "return a copy of the receiver without leading and trailing whiteSpace"

  2496 

  2497     ^ self withoutSeparators

  2498 ! !

  2499 

  2500 !CharacterArray methodsFor:'Compatibility - VW'!

  5971     ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.208 2001-09-04 18:48:06 cg Exp $'

  5971     ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.209 2001-09-04 18:57:13 cg Exp $'