hg/stx-libbasic: comparison LargeInteger.st

equal deleted inserted replaced

-:905b98a07798
+:796dcc9903cf
 For positive receivers, this is the same as #digitAt:;
 for negative ones, the actual bit representation is returned."
 |t digits|
 sign < 0 ifFalse:[
-	index > digitByteArray size ifTrue:[
+index > digitByteArray size ifTrue:[
-	    ^ 0
+^ 0
-	].
+].
-	^ digitByteArray at:index.
+^ digitByteArray at:index.
 ].
 "/ negative int - do 2's complement here
 t := self bitInvert + 1.
 t sign:1.
-digits := t digits.
+digits := t digitBytes.
 index > digits size ifTrue:[
-	^ 16rFF
+^ 16rFF
 ].
 ^ digits at:index.
 "
 16r11111111111111111111 negated digitByteAt:1
 "
 "Created: / 25.10.1998 / 14:12:21 / cg"
+!
+digitBytes
+"return a byteArray filled with the receivers bits
+(8 bits of the absolute value per element).
+Least significant byte is first!!"
+^ digitByteArray
+"Modified: / 5.5.1999 / 14:57:03 / stefan"
+!
+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:[
+^ digitByteArray copyReverse.
+].
+^ digitByteArray
+"Modified: / 5.5.1999 / 14:57:03 / stefan"
 !
 digitLength
 "return the number bytes used by this Integer.
 For negative receivers, the digitLength of its absolute value
 "Modified: 31.7.1997 / 13:18:28 / cg"
 !
 digits
-"return a byteArray filled with the receivers bits
+"obsolete,use #digitBytes"
-(8 bits of the absolute value per element)"
 ^ digitByteArray
 "Modified: / 5.5.1999 / 14:57:03 / stefan"
 ! !
 ] ifFalse:[
 divisor := anInteger bitShift:shift.
 ].
 quo := self class basicNew numberOfDigits:((shift // 8) + 1).
-digits := quo digits.
+digits := quo digitBytes.
 shift := shift + 1.
 [shift > 0] whileTrue:[
 (dividend absLess:divisor) ifFalse:[
 digits bitSetAt:shift.
 d1   "{ Class: SmallInteger }"
 d2   "{ Class: SmallInteger }"
 otherDigitByteArray |
 len1 := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 len2 := otherDigitByteArray size.
 "/ the highest digit(s) should not be zero
 "/ when properly normalized;
 "/ but we are tolerant here, to allow for unnormalized
 "/ numbers to be compared ...
 [(digitByteArray basicAt:len1) == 0] whileTrue:[
-	len1 := len1 - 1
+len1 := len1 - 1
 ].
 [(otherDigitByteArray basicAt:len2) == 0] whileTrue:[
-	len2 := len2 - 1
+len2 := len2 - 1
 ].
 (len1 ~~ len2) ifTrue:[^ false].
 [len1 > 0] whileTrue:[
-	d1 := digitByteArray basicAt:len1.
+d1 := digitByteArray basicAt:len1.
-	d2 := otherDigitByteArray basicAt:len1.
+d2 := otherDigitByteArray basicAt:len1.
-	(d1 ~~ d2) ifTrue:[^ false].
+(d1 ~~ d2) ifTrue:[^ false].
-	len1 := len1 - 1
+len1 := len1 - 1
 ].
 ^ true
 "Modified: / 8.5.1999 / 18:37:02 / cg"
 !
 ^ Array with:0 with:self
 ].
 "
 count := digitByteArray size.
 result := self class basicNew numberOfDigits:count.
-newDigitByteArray := result digits.
+newDigitByteArray := result digitBytes.
 ok := false.
 %{
 OBJ __digits;
 __digits = __INST(digitByteArray);
 len := digitByteArray size.
 rsltLen := len "+ 1".
 result := self class basicNew numberOfDigits:rsltLen.
 result sign:newSign.
-resultDigitByteArray := result digits.
+resultDigitByteArray := result digitBytes.
 borrow := aSmallInteger abs.
 %{
 if (__isByteArray(__INST(digitByteArray))
 rsltLen := len + 1.
 ].
 result := self class basicNew numberOfDigits:rsltLen.
 result sign:newSign.
-resultDigitByteArray := result digits.
+resultDigitByteArray := result digitBytes.
 %{
 if (__isByteArray(__INST(digitByteArray))
 && __isByteArray(resultDigitByteArray)
 && __isSmallInteger(aSmallInteger)) {
 unsigned char *__srcLastX;
 __srcLastX = __srcLast - 3 - 4;
 while (__src <= __srcLastX) {
 unsigned int __sum, __sum2;
-		unsigned __digit1, __digit2;
+unsigned __digit1, __digit2;
 __digit1 = ((unsigned *)__src)[0];
 __digit2 = ((unsigned *)__src)[1];
 asm ("addl %%edx,%%ecx
 adcl $0, %%eax
 d1   "{ Class: SmallInteger }"
 d2   "{ Class: SmallInteger }"
 otherDigitByteArray |
 myLen := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 otherLen := otherDigitByteArray size.
 "/ the highest digit(s) should not be zero
 "/ when properly normalized;
 "/ but we are tolerant here, to allow for unnormalized
 "/ numbers to be compared ...
 [myLen > 0 and:[(digitByteArray basicAt:myLen) == 0]] whileTrue:[
-	myLen := myLen - 1
+myLen := myLen - 1
 ].
 [otherLen > 0 and:[(otherDigitByteArray basicAt:otherLen) == 0]] whileTrue:[
-	otherLen := otherLen - 1
+otherLen := otherLen - 1
 ].
 (myLen < otherLen) ifTrue:[^ true].
 (myLen > otherLen) ifTrue:[^ false].
 [myLen > 0] whileTrue:[
-	d1 := digitByteArray basicAt:myLen.
+d1 := digitByteArray basicAt:myLen.
-	d2 := otherDigitByteArray basicAt:myLen.
+d2 := otherDigitByteArray basicAt:myLen.
-	d1 == d2 ifFalse:[
+d1 == d2 ifFalse:[
-	    (d1 < d2) ifTrue:[^ true].
+(d1 < d2) ifTrue:[^ true].
-	    ^ false
+^ false
-	].
+].
-	myLen := myLen - 1
+myLen := myLen - 1
 ].
 ^ false
 "Modified: / 3.5.1999 / 08:06:28 / stefan"
 "Modified: / 8.5.1999 / 18:37:11 / cg"
 d1   "{ Class: SmallInteger }"
 d2   "{ Class: SmallInteger }"
 otherDigitByteArray |
 myLen := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 otherLen := otherDigitByteArray size.
 "/ the highest digit(s) should not be zero
 "/ when properly normalized;
 "/ but we are tolerant here, to allow for unnormalized
 "/ numbers to be compared ...
 [(digitByteArray basicAt:myLen) == 0] whileTrue:[
-	myLen := myLen - 1
+myLen := myLen - 1
 ].
 [(otherDigitByteArray basicAt:otherLen) == 0] whileTrue:[
-	otherLen := otherLen - 1
+otherLen := otherLen - 1
 ].
 (myLen < otherLen) ifTrue:[^ true].
 (myLen > otherLen) ifTrue:[^ false].
 [myLen > 0] whileTrue:[
-	d1 := digitByteArray basicAt:myLen.
+d1 := digitByteArray basicAt:myLen.
-	d2 := otherDigitByteArray basicAt:myLen.
+d2 := otherDigitByteArray basicAt:myLen.
-	d1 == d2 ifFalse:[
+d1 == d2 ifFalse:[
-	    (d1 < d2) ifTrue:[^ true].
+(d1 < d2) ifTrue:[^ true].
-	    ^ false.
+^ false.
-	].
+].
-	myLen := myLen - 1
+myLen := myLen - 1
 ].
 ^ true
 "Created: / 13.2.1998 / 12:19:45 / stefan"
 "Modified: / 30.4.1999 / 12:46:31 / stefan"
 carry  "{ Class: SmallInteger }"
 lastDigit
 lResult ok|
 len1 := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 len2 := otherDigitByteArray size.
 len1 > len2 ifTrue:[
 lResult := len1
 ] ifFalse:[
 lResult := (len1 max: len2) + 1.
 ].
 result := self class basicNew numberOfDigits:lResult.
 result sign:newSign.
-resultDigitByteArray := result digits.
+resultDigitByteArray := result digitBytes.
 lastDigit := 0.
 %{
 OBJ _digitByteArray = __INST(digitByteArray);
 dstIndex "{ Class: SmallInteger }"
 prod     "{ Class: SmallInteger }"
 v        "{ Class: SmallInteger }"|
 len1 := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 len2 := otherDigitByteArray size.
 result := LargeInteger basicNew numberOfDigits:(len1 + len2).
-resultDigitByteArray := result digits.
+resultDigitByteArray := result digitBytes.
 ok := false.
 %{
 if (__isByteArray(__INST(digitByteArray))
 && __isByteArray(otherDigitByteArray)
 && __isByteArray(resultDigitByteArray)
 newLen "{ Class: SmallInteger }"
 index  "{ Class: SmallInteger }"
 carry  "{ Class: SmallInteger }"
 sum    "{ Class: SmallInteger }" |
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 %{
 OBJ _digitByteArray = __INST(digitByteArray);
 if (__isByteArray(_digitByteArray)
 int _comLen3;
 _comLen3 = _comLen - 3 - 4;
 while (_index <= _comLen3) {
 unsigned int _sum, _sum2;
-		unsigned int __in1A, __in1B, __in2A, __in2B;
+unsigned int __in1A, __in1B, __in2A, __in2B;
 __in1A = ((unsigned int *)(&(_myDigits[_index - 1])))[0];
 __in2A = ((unsigned int *)(&(_myDigits[_index - 1])))[1];
 __in1B = ((unsigned int *)(&(_otherDigits[_index - 1])))[0];
 __in2B = ((unsigned int *)(&(_otherDigits[_index - 1])))[1];
 * accessing bytes at: [index-1][index][index+1][index+2]
 */
 _comLen3 = _comLen3 + 4;
 if (_index <= _comLen3) {
 unsigned int _sum;
-		unsigned int __inA, __inB;
+unsigned int __inA, __inB;
 __inA = ((unsigned int *)(&(_myDigits[_index - 1])))[0];
 __inB = ((unsigned int *)(&(_otherDigits[_index - 1])))[0];
 asm ("addl %%edx,%%eax      \n
 ]
 ].
 result := self class basicNew numberOfDigits:newLen.
 result sign:newSign.
-resultDigitByteArray := result digits.
+resultDigitByteArray := result digitBytes.
 index := 1.
 carry := 0.
 done := false.
 notZero
 |
 notZero := false.
 len1 := digitByteArray size.
-otherDigitByteArray := aLargeInteger digits.
+otherDigitByteArray := aLargeInteger digitBytes.
 len2 := otherDigitByteArray size.
 len2 > len1 ifTrue:[
 [(otherDigitByteArray at:len2) == 0] whileTrue:[
 len2 := len2 - 1
 ].
 ! !
 !LargeInteger class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.138 1999-09-24 12:27:25 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.139 1999-10-03 08:43:25 cg Exp $'
 ! !

changeset 4828	796dcc9903cf
parent 4806	1b48e7420cfe
child 4831	98113bc11cdd