st/ByteString.st

   1
   2 "instance creation"
   3 ByteString classMethod!
   4 newFromBytes: aByteArray
   5         ^ (self basicNew: aByteArray size) initializeWithBytes: aByteArray!
   6
   7 "accessing"
   8
   9 ByteString method!
  10 at: anInteger
  11         <primitive: 'ByteString_at'>
  12         anInteger isInteger
  13                 ifTrue: [ self error: 'index out of bounds' ].
  14         anInteger isNumber
  15                 ifTrue: [ ^ self at: anInteger asInteger ]
  16                 ifFalse: [ self error: 'index is not an integer']!
  17
  18 ByteString method!
  19 size
  20         <primitive: 'ByteString_size'>
  21         self primitiveFailed!
  22
  23 ByteString method!
  24 byteAt: anInteger
  25         <primitive: 'ByteArray_at'>
  26         self primitiveFailed!
  27
  28 ByteString method!
  29 byteAt: anInteger put: anObject
  30         <primitive: 'ByteArray_at_put'>
  31         self primitiveFailed!
  32
  33 ByteString method!
  34 byteSize
  35         <primitive: 'ByteArray_size'>
  36         self primitiveFailed!
  37
  38 ByteString method!
  39 bytes
  40         | bytes index |
  41
  42         bytes := ByteArray new: self byteSize.
  43
  44         index := 1.
  45         [ index <= bytes size ]
  46                 whileTrue: [ bytes at: index put: (self byteAt: index).
  47                                          index := index + 1].
  48
  49         ^ bytes!
  50
  51
  52 "comparing"
  53
  54 ByteString method!
  55 compare: aString
  56         <primitive: 'ByteString_compare'>
  57         self error: 'argument is not a ByteString'!
  58
  59 ByteString method!
  60 compareOrdinal: aString
  61         "compare the individual Unicode code points in the string irrespective of locale"
  62         <primitive: 'ByteString_compareOrdinal'>
  63         self error: 'argument is not a ByteString'!
  64
  65 ByteString method!
  66 hash
  67         <primitive: 'ByteString_hash'>
  68         self primitiveFailed!
  69
  70 "reversing"
  71
  72 ByteString method!
  73 reversed
  74         <primitive: 'ByteString_reversed'>
  75         self primitiveFailed!
  76
  77
  78 "testing"
  79
  80 ByteString method!
  81 isByteString
  82         ^ true!
  83
  84
  85 "private"
  86
  87 ByteString method!
  88 initializeWithBytes: aByteArray
  89         | index |
  90
  91         index := 1.
  92
  93         [ index <= aByteArray size ]
  94                 whileTrue: [ self byteAt: index put: (aByteArray at: index).
  95                                          index := index + 1]!
  96