home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / string.st < prev    next >
Text File  |  1986-10-19  |  2KB  |  75 lines
  1. Class String :ArrayedCollection
  2. [
  3.     , aString
  4.         ^ <primitive 103 self 
  5.             (<primitive 6 self aString>
  6.                 ifTrue:  [aString]
  7.                 ifFalse: [aString printString])>
  8. |
  9.     = aString
  10.         ^ <primitive 6 self aString>
  11.             ifTrue:  [<primitive 101 self aString> = 0]
  12.             ifFalse: [self compareError]
  13. |
  14.     < aString
  15.         ^ <primitive 6 self aString>
  16.             ifTrue:  [<primitive 101 self aString> < 0]
  17.             ifFalse: [self compareError]
  18. |
  19.     <=  aString
  20.         ^ <primitive 6 self aString>
  21.             ifTrue:  [<primitive 101 self aString> <= 0]
  22.             ifFalse: [self compareError]
  23. |
  24.     >=  aString
  25.         ^ <primitive 6 self aString>
  26.             ifTrue:  [<primitive 101 self aString> >= 0]
  27.             ifFalse: [self compareError]
  28. |
  29.     >  aString
  30.         ^ <primitive 6 self aString>
  31.             ifTrue:  [<primitive 101 self aString> > 0]
  32.             ifFalse: [self compareError]
  33. |
  34.     asSymbol
  35.         ^ <primitive 108 self>
  36. |
  37.     at: aNumber
  38.         ^ <primitive 104 self aNumber>
  39. |
  40.     at: aNumber put: aChar
  41.         <primitive 105 self aNumber aChar>
  42. |
  43.     compareError
  44.         ^ self error: 'strings can only be compared to strings'
  45. |
  46.     copyFrom: start to: stop
  47.         ^ <primitive 106 self start (stop - start + 1) >
  48. |
  49.     copyFrom: start length: len
  50.         ^ <primitive 106 self start len >
  51. |
  52.     deepCopy
  53.         ^ <primitive 107 self >
  54. |
  55.     new: size
  56.         ^ <primitive 115 size>
  57. |
  58.     printAt: aPoint
  59.         <primitive 126 self (aPoint x) (aPoint y)>
  60. |
  61.     printString
  62.         ^ <primitive 109 self>
  63. |
  64.     print
  65.         <primitive 121 self>
  66. |
  67.     size
  68.         ^ <primitive 100 self>
  69. |
  70.     sameAs: aString
  71.         ^ <primitive 6 self aString>
  72.             ifTrue:  [<primitive 102 self aString>]
  73.             ifFalse: [self compareError]
  74. ]
  75.