--- a/UninterpretedBytes.st Tue Feb 07 22:22:45 2017 +0100
+++ b/UninterpretedBytes.st Tue Feb 07 23:07:42 2017 +0100
@@ -469,193 +469,6 @@
"Modified: / 5.3.1998 / 14:56:22 / stefan"
! !
-!UninterpretedBytes methodsFor:'@ OLE Extensions'!
-
-addressAtOffset: index0Based
- "Answer the bytes starting at index0Based (0 based offset)
- as anExternalAddress. Answer nil if there is no address.
- Notice: Offsets are zero relative."
-
- | address |
-
- address := self pointerValueAt: index0Based + 1.
- ^ address = 0
- ifTrue: [ nil ]
- ifFalse: [ ExternalAddress newAddress: address ]
-
- "Modified: / 30-03-2016 / 11:00:19 / cg"
-!
-
-addressAtOffset: index0Based put: anExternalAddress
- "Set the bytes starting at index0Based (0 based offset)
- from the contents of anExternalAddress.
- Notice: Offsets are zero relative."
-
- |anAddress |
-
- anAddress := anExternalAddress isNil
- ifTrue:[0]
- ifFalse:[anExternalAddress address].
- self pointerAt: index0Based + 1 put: anAddress
-!
-
-addressValueAtOffset: index0Based
- "Answer the pointer-value starting at index0Based (0 based offset)
- as unsigned integer.
- Notice: Offsets are zero relative."
-
- ^ self pointerValueAt: index0Based + 1.
-!
-
-addressValueAtOffset: index0Based put:anAddress
- "Set the pointer-value starting at index0Based (0 based offset)
- as unsigned integer.
- Notice: Offsets are zero relative."
-
- self pointerAt: index0Based + 1 put:anAddress.
-!
-
-byteAtOffset:index0Based
- "return the byte at index0Based.
- For ByteArray, this is the same as basicAt:
- however, for strings or symbols,
- this returns a numeric byteValue instead of a character.
- Notice: Offsets are zero relative."
-
- ^ self byteAt:(index0Based + 1)
-!
-
-byteAtOffset:index0Based put:value
- "set the byte at index. For ByteArray, this is the same as basicAt:put:.
- However, for Strings, this expects a byteValue to be stored.
- Notice: Offsets are zero relative."
-
- ^ self byteAt:(index0Based + 1) put:value
-!
-
-bytesAtOffset: index0Based count: count
- "Answer a ByteArray with count bytes copied
- from the receiver starting at index0Based.
- Notice: Offsets are zero relative."
-
- |newBytes |
-
- newBytes := ByteArray new: count.
- newBytes replaceBytesFrom:1 to:count with:self startingAt:(index0Based + 1).
- ^newBytes
-
- "
- #[83 0 0 0 0 0 0 0 120 237 14 0 4 0 0 ] bytesAtOffset: 9 count: 3
- "
-
- "Modified (comment): / 30-03-2016 / 11:24:41 / cg"
-!
-
-bytesAtOffset: index0Based put: aByteObject
- "Store aByteObject at anInteger in the receiver.
- Notice: Offsets are zero relative."
-
- ^ self
- replaceBytesFrom:(index0Based + 1) to:(index0Based + aByteObject size)
- with:aByteObject startingAt:1.
-!
-
-fillFromAddress: anAddress
- "Fill the receiver by copying mySize bytes from host memory at anAddress.
- Warning: because anAddress might not know, how big it is,
- the size of the receiver must already be correct.
- (i.e. the receiver must have been allocated from a returned size value)"
-
- self
- replaceFrom:1 to:self size
- with:anAddress asExternalBytes
- startingAt:1
-!
-
-longAtOffset: index0Based
- "same as longAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self signedInt32At:(index0Based + 1)
-!
-
-longAtOffset: index0Based put: value
- "same as longAtput::, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self signedInt32At:index0Based +1 put:value
-!
-
-shortAtOffset: index0Based
- "same as shortAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self signedInt16At: index0Based + 1
-!
-
-shortAtOffset: index0Based put: value
- "same as shortAt:put:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self signedInt16At: index0Based + 1 put: value
-!
-
-uLongAtOffset: index0Based
- "same as unsignedLongAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^ self unsignedInt32At:(index0Based + 1)
-!
-
-uLongAtOffset: index0Based put: value
- "same as unsignedLongAt:put:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^ self unsignedInt32At:(index0Based + 1) put: value
-!
-
-uShortAtOffset: index0Based
- "same as unsignedShortAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^ self unsignedInt16At:(index0Based + 1)
-!
-
-uShortAtOffset: index0Based put: value
- "same as unsignedShortAt:put:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^ self unsignedInt16At:(index0Based + 1) put: value
-!
-
-unsignedLongAtOffset: index0Based
- "same as unsignedLongAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self unsignedInt32At: index0Based + 1
-!
-
-unsignedLongAtOffset: index0Based put: value
- "same as unsignedLongAt:put:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self unsignedInt32At: index0Based + 1 put: value
-!
-
-unsignedShortAtOffset: index0Based
- "same as unsignedShortAt:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self unsignedInt16At: index0Based + 1
-!
-
-unsignedShortAtOffset: index0Based put: value
- "same as unsignedShortAt:put:, but with a 0-based offset.
- Notice: Offsets are zero relative."
-
- ^self unsignedInt16At:(index0Based + 1) put: value
-! !
-
!UninterpretedBytes methodsFor:'Compatibility'!
doubleWordAt:index