home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / prelude / string < prev    next >
Encoding:
Text File  |  1987-12-30  |  2.1 KB  |  84 lines
  1. Class String :ArrayedCollection
  2. [
  3.      , aString
  4.           ^ <StringCatenation self 
  5.                (<SameTypeOfObject self aString>
  6.                     ifTrue:  [aString]
  7.                     ifFalse: [aString printString])>
  8. |
  9.      = aString
  10.           ^ <SameTypeOfObject self aString>
  11.                ifTrue:  [<StringCompare self aString> = 0]
  12.                ifFalse: [self compareError]
  13. |
  14.      < aString
  15.           ^ <SameTypeOfObject self aString>
  16.                ifTrue:  [<StringCompare self aString> < 0]
  17.                ifFalse: [self compareError]
  18. |
  19.      <=  aString
  20.           ^ <SameTypeOfObject self aString>
  21.                ifTrue:  [<StringCompare self aString> <= 0]
  22.                ifFalse: [self compareError]
  23. |
  24.      >=  aString
  25.           ^ <SameTypeOfObject self aString>
  26.                ifTrue:  [<StringCompare self aString> >= 0]
  27.                ifFalse: [self compareError]
  28. |
  29.      >  aString
  30.           ^ <SameTypeOfObject self aString>
  31.                ifTrue:  [<StringCompare self aString> > 0]
  32.                ifFalse: [self compareError]
  33. |
  34.      asInteger
  35.           ^ <primitive 164 self>
  36. |
  37.      asFloat
  38.           ^ <primitive 165 self>
  39. |
  40.      asSymbol
  41.           ^ <StringAsSymbol self>
  42. |
  43.      at: aNumber
  44.           ^ <StringAt self aNumber>
  45. |
  46.      at: aNumber put: aChar
  47.           <StringAtPut self aNumber aChar>
  48. |
  49.      compareError
  50.           ^ self error: 'strings can only be compared to strings'
  51. |
  52.      copyFrom: start to: stop
  53.           ^ <CopyFromLength self start (stop - start + 1) >
  54. |
  55.      copyFrom: start length: len
  56.           ^ <CopyFromLength self start len >
  57. |
  58.      deepCopy
  59.           ^ <StringCopy self >
  60. |
  61.      new: size
  62.           ^ <NewString size>
  63. |
  64.      printAt: aPoint
  65.           <PrintAt self (aPoint x) (aPoint y)>
  66. |
  67.      printString
  68.           ^ <StringPrintString self>
  69. |
  70.      print
  71.           <PrintWithReturn self>
  72. |
  73.      printNoReturn
  74.           <PrintNoReturn self>
  75. |
  76.      size
  77.           ^ <StringLength self>
  78. |
  79.      sameAs: aString
  80.           ^ <SameTypeOfObject self aString>
  81.                ifTrue:  [<StringCompareWithoutCase self aString>]
  82.                ifFalse: [self compareError]
  83. ]
  84.