src/lib/wordarray.slate

   1 collections define: #WordArray &parents: {Array}
   2   &slots: {#bytes -> ByteArray new. #wordSize -> bytesPerWord}.
   3
   4 WordArray traits define: #LittleEndian &parents: {WordArray}.
   5 WordArray LittleEndian traitsWindow atSlotNamed: #printName put: 'WordArray LittleEndian'.
   6 WordArray traits define: #BigEndian &parents: {WordArray}.
   7 WordArray BigEndian traitsWindow atSlotNamed: #printName put: 'WordArray BigEndian'.
   8
   9 w@(WordArray traits) new &capacity: size &wordSize: wordSize
  10 "If called on WordArray, create a bigendian WordArray"
  11 "TODO: Change this to use the image startup code to create a platform endian WordArray. Maybe. Would need to be careful about passing them to external code after an image restart (we may be on a different endian platform)"
  12 [
  13   size `defaultsTo: 0.
  14   wordSize `defaultsTo: bytesPerWord.
  15   w traits == WordArray traits
  16     ifTrue: [WordArray BigEndian newSized: size wordSize: wordSize]
  17     ifFalse: [w clone newSized: size wordSize: wordSize]
  18 ].
  19
  20 w@(WordArray traits) newFrom: a &wordSize: wordSize
  21 [ wordSize `defaultsTo: bytesPerWord.
  22   w clone `setting: #{#bytes. #wordSize} to: {a. wordSize}].
  23
  24 w@(WordArray traits) newSized: size wordSize: wordSize
  25 [w clone `setting: #{#bytes. #wordSize} to: {w bytes newSize: (size * wordSize) abs. wordSize}].
  26
  27 w@(WordArray traits) size
  28 [w bytes size / w wordSize].
  29
  30 _@(WordArray traits) elementType [Integer].
  31
  32 _@(WordArray traits) defaultElement [0].
  33
  34 w@(WordArray traits) accepts: i@(Integer traits) "Should be fixed 32bits"
  35 [(0 below: (1 << (w wordSize * 8))) includes: i].
  36
  37 a@(WordArray BigEndian traits) at: offset
  38 [
  39   a wordSize = 8 ifTrue: [a bytes bigEndianInt64At: offset] ifFalse: [a bytes bigEndianInt32At: offset]
  40 ].
  41
  42 a@(WordArray LittleEndian traits) at: offset
  43 [
  44   a wordSize = 8 ifTrue: [a bytes littleEndianInt64At: offset] ifFalse: [a bytes littleEndianInt32At: offset]
  45 ].
  46
  47 a@(WordArray BigEndian traits) at: offset put: word
  48 [
  49   a wordSize = 8 ifTrue: [a bytes bigEndianInt64At: offset put: word] ifFalse: [a bytes bigEndianInt32At: offset put: word]
  50 ].
  51
  52 a@(WordArray LittleEndian traits) at: offset put: word
  53 [
  54   a wordSize = 8 ifTrue: [a bytes littleEndianInt64At: offset put: word] ifFalse: [a bytes littleEndianInt32At: offset put: word]
  55 ].