hg/stx-libbasic: comparison Integer.st

equal deleted inserted replaced

-:cb2cde24d657
+:7f314ee34dfb
 hereby transferred.
 "
 "{ Package: 'stx:libbasic' }"
 Number subclass:#Integer
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'DefaultDisplayRadix BCDConversionErrorSignal PrimeCache'
+	classVariableNames:'DefaultDisplayRadix BCDConversionErrorSignal PrimeCache'
-poolDictionaries:''
+	poolDictionaries:''
-category:'Magnitude-Numbers'
+	category:'Magnitude-Numbers'
 !
 Object subclass:#ModuloNumber
-instanceVariableNames:'modulus reciprocal shift'
+	instanceVariableNames:'modulus reciprocal shift'
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:Integer
+	privateIn:Integer
 !
 !Integer class methodsFor:'documentation'!
 copyright
 ^ BCDConversionErrorSignal
 "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 !Integer class methodsFor:'class initialization'!
 initialize
 BCDConversionErrorSignal isNil ifTrue:[
 BCDConversionErrorSignal := ConversionError newSignal.
 "
 Integer displayRadix:16. 123456 inspect
 Integer displayRadix:10. 123456 inspect
 "
 ! !
 !Integer class methodsFor:'prime numbers'!
 flushPrimeCache
 "cleanup after using a primeCache"
 Abstract subclasses must redefine again."
 ^ self == Integer
 ! !
 !Integer methodsFor:'Compatibility-Dolphin'!
 & aNumber
 "return the bitwise-and of the receiver and the argument, anInteger.
 Same as bitAnd: - added for compatibility with Dolphin Smalltalk.
 !Integer methodsFor:'Compatibility-Squeak'!
 asByteArray
 "return my hexBytes in MSB"
-^ self digitBytesMSB:true
+^ self digitBytesMSB
 !
 asByteArrayOfSize:size
 "return my hexBytes in MSB, optionally padded at the left with zeros"
 repeats := 1000000.
 number := 123456789123456789123456789123456789123456789123456789.
 [repeats timesRepeat: (number asByteArrayOfSize: 1024) ] timeToRun.
 )))"
-| bytes |
+| bytes bytesSize|
-bytes := self digitBytesMSB:true.
+bytes := self digitBytesMSB.
-size < bytes size ifTrue: [
+bytesSize := bytes size.
+size < bytesSize ifTrue: [
 ^ ConversionError raiseRequestWith:self errorString:'number too big for ', size asString
 ].
-^ (ByteArray new: (size - bytes size)), bytes
+^ (ByteArray new:size)
+replaceFrom:size-bytesSize+1 to:size with:bytes startingAt:1.
 "
 123 asByteArrayOfSize:1 #[123]
 123 asByteArrayOfSize:2 #[0 123]
 123 asByteArrayOfSize:4 #[0 0 0 123]
 least significant byte is first"
 ^ self subclassResponsibility
 !
+digitBytesMSB
+"return a byteArray filled with the receivers bits
+(8 bits of the absolute value per element),
+most significant byte is first"
+^ self subclassResponsibility
+!
 digitBytesMSB:msbFlag
 "return a byteArray filled with the receivers bits
 (8 bits of the absolute value per element),
 if msbflag = true, most significant byte is first,
 otherwise least significant byte is first"
 msbFlag ifTrue:[
-^ self digitBytes copyReverse.  "digitBytes may be shared - reverse a copy!!"
+^ self digitBytesMSB.
 ].
 ^ self digitBytes
 "
 16r12 digitBytesMSB:true
 "
 "Created: / 09-01-2012 / 17:18:06 / cg"
 ! !
 !Integer methodsFor:'special modulu arithmetic'!
 add_32:anInteger
 "return a C-semantic 32bit sum of the receiver and the argument.
 Both must be either Small- or LargeIntegers.
 ! !
 !Integer class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.283 2013-07-26 11:58:52 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.284 2013-07-28 19:35:00 stefan Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.283 2013-07-26 11:58:52 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.284 2013-07-28 19:35:00 stefan Exp $'
 ! !
 Integer initialize!

changeset 15567	7f314ee34dfb
parent 15559	ce8f0cd2024d
child 15578	88cefb6e5d94