st/ByteString.st

   1
   2
   3 "accessing"
   4
   5 ByteString method!
   6 at: anInteger
   7         <primitive: 'ByteString_at'>
   8         anInteger isInteger
   9                 ifTrue: [ self error: 'index out of bounds' ].
  10         anInteger isNumber
  11                 ifTrue: [ ^ self at: anInteger asInteger ]
  12                 ifFalse: [ self error: 'index is not an integer']!
  13
  14 ByteString method!
  15 at: anInteger put: aCharacter
  16         <primitive: 'ByteString_at_put'>
  17         aCharacter isCharacter
  18                 ifFalse: [self error: 'object is not a character'].
  19         anInteger isInteger
  20                 ifTrue: [self error: 'index out of bounds'].
  21         anInteger isNumber
  22                 ifTrue: [^ self at: anInteger asInteger]
  23                 ifFalse: [self error: 'index is not an integer']!
  24
  25
  26 ByteString method!
  27 size
  28         <primitive: 'ByteString_size'>
  29         self primitiveFailed!
  30
  31 "comparing"
  32
  33 ByteString method!
  34 compare: aString
  35         <primitive: 'ByteString_compare'>
  36         self error: 'argument is not a ByteString'!
  37
  38 ByteString method!
  39 hash
  40         <primitive: 'ByteArray_hash'>
  41         self primitiveFailed!
  42
  43 "testing"
  44
  45 ByteString method!
  46 isByteString
  47         ^ true!