com.pivotal.gemfirexd.internal.client.am.Decimal Maven / Gradle / Ivy
Go to download
Show more of this group Show more artifacts with this name
Show all versions of snappydata-store-client Show documentation
Show all versions of snappydata-store-client Show documentation
SnappyData store based off Pivotal GemFireXD
/*
Derby - Class com.pivotal.gemfirexd.internal.client.am.Decimal
Licensed to the Apache Software Foundation (ASF) under one or more
contributor license agreements. See the NOTICE file distributed with
this work for additional information regarding copyright ownership.
The ASF licenses this file to You under the Apache License, Version 2.0
(the "License"); you may not use this file except in compliance with
the License. You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
*/
/*
* Changes for GemFireXD distributed data platform (some marked by "GemStone changes")
*
* Portions Copyright (c) 2010-2015 Pivotal Software, Inc. All rights reserved.
*
* Licensed under the Apache License, Version 2.0 (the "License"); you
* may not use this file except in compliance with the License. You
* may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
* implied. See the License for the specific language governing
* permissions and limitations under the License. See accompanying
* LICENSE file.
*/
package com.pivotal.gemfirexd.internal.client.am;
import java.math.BigInteger;
import com.pivotal.gemfirexd.internal.client.net.FdocaConstants;
import com.pivotal.gemfirexd.internal.shared.common.ResolverUtils;
import com.pivotal.gemfirexd.internal.shared.common.i18n.MessageUtil;
import com.pivotal.gemfirexd.internal.shared.common.reference.SQLState;
/**
* Converters from fixed point decimal bytes to java.math.BigDecimal, double, or
* long.
*/
public class Decimal {
/**
* Packed Decimal representation
*/
public final static int PACKED_DECIMAL = 0x30;
private static MessageUtil msgutil = SqlException.getMessageUtil();
//--------------------------private constants---------------------------------
private static final int[][] tenRadixMagnitude = {
{0x3b9aca00}, // 10^9
{0x0de0b6b3, 0xa7640000}, // 10^18
{0x033b2e3c, 0x9fd0803c, 0xe8000000}, // 10^27
// GemStone changes BEGIN
{ 0x00c097ce, 0x7bc90715, 0xb34b9f10, 0x00000000 }, // 10^36
{ 0x002cd76f, 0xe086b93c, 0xe2f768a0, 0x0b22a000, 0x00000000 }, // 10^45
{ 0x000a70c3, 0xc40a64e6, 0xc5199909, 0x0b65f67d, 0x92400000, 0x00000000 }, // 10^54
{ 0x00026e4d, 0x30eccc32, 0x15dd8f31, 0x57d27e23, 0xacbdcfe6, 0x80000000,
0x00000000 }, // 10^63
{ 0x000090e4, 0x0fbeea1d, 0x3a4abc89, 0x55e946fe, 0x31cdcf66, 0xf634e100,
0x00000000, 0x00000000 }, // 10^72
{ 0x000021bc, 0x2b266d3a, 0x36bf5a68, 0x0a2ecf7b, 0x5c68f7e7, 0xe45589f0,
0x138a0000, 0x00000000, 0x00000000 }, // 10^81
{ 0x000007da, 0xc3c24a56, 0x71d2f825, 0x5a450203, 0x2e391f32, 0x66bc0c6a,
0xcdc3fe6e, 0xe4000000, 0x00000000, 0x00000000 }, // 10^90
{ 0x000001d4, 0x2aea2879, 0xf2e44dea, 0x5a13ae34, 0x65277b06, 0x749ce90c,
0x777839e7, 0x4404a7e8, 0x00000000, 0x00000000, 0x00000000 }, // 10^99
{ 0x0000006d, 0x00f7320d, 0x3846f4f4, 0x0737a410, 0x664a4aeb, 0xa5d5681d,
0xe0ec69ef, 0xff7c792b, 0x260d1000, 0x00000000, 0x00000000,
0x00000000 }, // 10^108
{ 0x00000019, 0x61219000, 0x356aa38b, 0x95beb7fa, 0x60e598ac, 0x0017e239,
0xe8f75e1c, 0x95d8c066, 0x0d55f291, 0xeea00000, 0x00000000,
0x00000000, 0x00000000 }, // 10^117
{ 0x00000005, 0xe8bb3105, 0x280fdffd, 0xb2872d49, 0xde1ec4c2, 0xa5f54794,
0x4808d952, 0x63fda6f8, 0x4a475b21, 0x5f2f928a, 0x40000000,
0x00000000, 0x00000000, 0x00000000 }, // 10^126
{ 0x00000001, 0x6035ce8b, 0x6203d3c8, 0xbd80bb9f, 0xee5cff1f, 0x8098f3ff,
0xc648603f, 0xb4169ef7, 0xd03b0b89, 0xd0eb8e7f, 0x8d8b9680,
0x00000000, 0x00000000, 0x00000000, 0x00000000 }, // 10^135
// GemStone changes END
};
//--------------------------constructors--------------------------------------
// Hide the default constructor, this is a static class.
private Decimal() {
}
//--------------------------private helper methods----------------------------
/**
* Convert a range of packed nybbles (up to 9 digits without overflow) to an int. Note that for performance purpose,
* it does not do array-out-of-bound checking.
*/
private static final int packedNybblesToInt(byte[] buffer,
int offset,
int startNybble,
int numberOfNybbles) {
int value = 0;
int i = startNybble / 2;
if ((startNybble % 2) != 0) {
// process low nybble of the first byte if necessary.
value += buffer[offset + i] & 0x0F;
i++;
}
int endNybble = startNybble + numberOfNybbles - 1;
for (; i < (endNybble + 1) / 2; i++) {
value = value * 10 + ((buffer[offset + i] & 0xF0) >>> 4); // high nybble.
value = value * 10 + (buffer[offset + i] & 0x0F); // low nybble.
}
if ((endNybble % 2) == 0) {
// process high nybble of the last byte if necessary.
value = value * 10 + ((buffer[offset + i] & 0xF0) >>> 4);
}
return value;
}
/**
* Convert a range of packed nybbles (up to 18 digits without overflow) to a long. Note that for performance
* purpose, it does not do array-out-of-bound checking.
*/
private static final long packedNybblesToLong(byte[] buffer,
int offset,
int startNybble,
int numberOfNybbles) {
long value = 0;
int i = startNybble / 2;
if ((startNybble % 2) != 0) {
// process low nybble of the first byte if necessary.
value += buffer[offset + i] & 0x0F;
i++;
}
int endNybble = startNybble + numberOfNybbles - 1;
for (; i < (endNybble + 1) / 2; i++) {
value = value * 10 + ((buffer[offset + i] & 0xF0) >>> 4); // high nybble.
value = value * 10 + (buffer[offset + i] & 0x0F); // low nybble.
}
if ((endNybble % 2) == 0) {
// process high nybble of the last byte if necessary.
value = value * 10 + ((buffer[offset + i] & 0xF0) >>> 4);
}
return value;
}
/**
* Compute the int array of magnitude from input value segments.
*/
private static final int[] computeMagnitude(int[] input) {
int length = input.length;
int[] mag = new int[length];
mag[length - 1] = input[length - 1];
for (int i = 0; i < length - 1; i++) {
int carry = 0;
int j = tenRadixMagnitude[i].length - 1;
int k = length - 1;
for (; j >= 0; j--, k--) {
long product = (input[length - 2 - i] & 0xFFFFFFFFL) * (tenRadixMagnitude[i][j] & 0xFFFFFFFFL)
+ (mag[k] & 0xFFFFFFFFL) // add previous value
+ (carry & 0xFFFFFFFFL); // add carry
carry = (int) (product >>> 32);
mag[k] = (int) (product & 0xFFFFFFFFL);
}
mag[k] = (int) carry;
}
return mag;
}
//--------------entry points for runtime representation-----------------------
/**
* Build a java.math.BigDecimal from a fixed point decimal byte representation.
*
* @throws IllegalArgumentException if the specified representation is not recognized.
*/
public static final java.math.BigDecimal getBigDecimal(byte[] buffer,
int offset,
int precision,
int scale) throws java.io.UnsupportedEncodingException {
// The byte-length of a packed decimal with precision p is always p/2 + 1
int length = precision / 2 + 1;
// check for sign.
int signum;
if ((buffer[offset + length - 1] & 0x0F) == 0x0D) {
signum = -1;
} else {
signum = 1;
}
if (precision <= 9) {
// can be handled by int without overflow.
int value = packedNybblesToInt(buffer, offset, 0, length * 2 - 1);
// convert value to a byte array of magnitude.
byte[] magnitude = new byte[4];
magnitude[0] = (byte) (value >>> 24);
magnitude[1] = (byte) (value >>> 16);
magnitude[2] = (byte) (value >>> 8);
magnitude[3] = (byte) (value);
return new java.math.BigDecimal(new java.math.BigInteger(signum, magnitude), scale);
} else if (precision <= 18) {
// can be handled by long without overflow.
long value = packedNybblesToLong(buffer, offset, 0, length * 2 - 1);
// convert value to a byte array of magnitude.
byte[] magnitude = new byte[8];
magnitude[0] = (byte) (value >>> 56);
magnitude[1] = (byte) (value >>> 48);
magnitude[2] = (byte) (value >>> 40);
magnitude[3] = (byte) (value >>> 32);
magnitude[4] = (byte) (value >>> 24);
magnitude[5] = (byte) (value >>> 16);
magnitude[6] = (byte) (value >>> 8);
magnitude[7] = (byte) (value);
return new java.math.BigDecimal(new java.math.BigInteger(signum, magnitude), scale);
} else if (precision <= 27) {
// get the value of last 9 digits (5 bytes).
int lo = packedNybblesToInt(buffer, offset, (length - 5) * 2, 9);
// get the value of another 9 digits (5 bytes).
int me = packedNybblesToInt(buffer, offset, (length - 10) * 2 + 1, 9);
// get the value of the rest digits.
int hi = packedNybblesToInt(buffer, offset, 0, (length - 10) * 2 + 1);
// compute the int array of magnitude.
int[] value = computeMagnitude(new int[]{hi, me, lo});
// convert value to a byte array of magnitude.
byte[] magnitude = new byte[12];
magnitude[0] = (byte) (value[0] >>> 24);
magnitude[1] = (byte) (value[0] >>> 16);
magnitude[2] = (byte) (value[0] >>> 8);
magnitude[3] = (byte) (value[0]);
magnitude[4] = (byte) (value[1] >>> 24);
magnitude[5] = (byte) (value[1] >>> 16);
magnitude[6] = (byte) (value[1] >>> 8);
magnitude[7] = (byte) (value[1]);
magnitude[8] = (byte) (value[2] >>> 24);
magnitude[9] = (byte) (value[2] >>> 16);
magnitude[10] = (byte) (value[2] >>> 8);
magnitude[11] = (byte) (value[2]);
return new java.math.BigDecimal(new java.math.BigInteger(signum, magnitude), scale);
// GemStone changes BEGIN
}
else if (precision <= FdocaConstants.NUMERIC_MAX_PRECISION) {
// convert value to int[]; this is initialized when the first
// non-zero integer is seen
int[] magnitude = null;
final int end = (length - 5) << 1;
// converting to integers in groups of 9 digits
final int remaining = (end % 9);
final int magLen = (end + 8) / 9 + 1;
int start, index, v;
for (start = 0, index = 0; start <= end; index++) {
if (start == 0 && remaining != 0) {
// first int is the remaining one at the start
v = packedNybblesToInt(buffer, offset, 0, remaining);
start = remaining;
}
else {
// get the value of 9 digits (4.5 bytes).
v = packedNybblesToInt(buffer, offset, start, 9);
start += 9;
}
if (magnitude == null) {
if (v != 0) {
magnitude = new int[magLen - index];
magnitude[0] = v;
index = 0;
}
}
else {
magnitude[index] = v;
}
}
if (magnitude != null) {
magnitude = computeMagnitude(magnitude);
// do the strip of leading zeros only if there is a wrapper
// constructor of BigInteger available in the first place
if (magnitude[0] == 0 &&
ResolverUtils.hasBigIntegerWrapperConstructor()) {
int i = 0;
while (magnitude[++i] == 0);
final int newLen = magnitude.length - i;
int[] newMag = new int[newLen];
System.arraycopy(magnitude, i, newMag, 0, newLen);
magnitude = newMag;
}
// try to convert to BigDecimal without converting to byte[]
// if possible using the internal constructor
return new java.math.BigDecimal(ResolverUtils.newBigInteger(
magnitude, signum), scale);
}
else {
return new java.math.BigDecimal(BigInteger.ZERO, scale);
}
/* (original code)
} else if (precision <= 31) {
// get the value of last 9 digits (5 bytes).
int lo = packedNybblesToInt(buffer, offset, (length - 5) * 2, 9);
// get the value of another 9 digits (5 bytes).
int meLo = packedNybblesToInt(buffer, offset, (length - 10) * 2 + 1, 9);
// get the value of another 9 digits (5 bytes).
int meHi = packedNybblesToInt(buffer, offset, (length - 14) * 2, 9);
// get the value of the rest digits.
int hi = packedNybblesToInt(buffer, offset, 0, (length - 14) * 2);
// compute the int array of magnitude.
int[] value = computeMagnitude(new int[]{hi, meHi, meLo, lo});
// convert value to a byte array of magnitude.
byte[] magnitude = new byte[16];
magnitude[0] = (byte) (value[0] >>> 24);
magnitude[1] = (byte) (value[0] >>> 16);
magnitude[2] = (byte) (value[0] >>> 8);
magnitude[3] = (byte) (value[0]);
magnitude[4] = (byte) (value[1] >>> 24);
magnitude[5] = (byte) (value[1] >>> 16);
magnitude[6] = (byte) (value[1] >>> 8);
magnitude[7] = (byte) (value[1]);
magnitude[8] = (byte) (value[2] >>> 24);
magnitude[9] = (byte) (value[2] >>> 16);
magnitude[10] = (byte) (value[2] >>> 8);
magnitude[11] = (byte) (value[2]);
magnitude[12] = (byte) (value[3] >>> 24);
magnitude[13] = (byte) (value[3] >>> 16);
magnitude[14] = (byte) (value[3] >>> 8);
magnitude[15] = (byte) (value[3]);
return new java.math.BigDecimal(new java.math.BigInteger(signum, magnitude), scale);
*/
// GemStone changes END
} else {
// throw an exception here if nibbles is greater than 31
throw new java.lang.IllegalArgumentException(
msgutil.getTextMessage(SQLState.DECIMAL_TOO_MANY_DIGITS));
}
}
/**
* Build a Java double from a fixed point decimal byte representation.
*
* @throws IllegalArgumentException if the specified representation is not recognized.
*/
public static final double getDouble(byte[] buffer,
int offset,
int precision,
int scale) throws java.io.UnsupportedEncodingException {
// The byte-length of a packed decimal with precision p is always p/2 + 1
int length = precision / 2 + 1;
// check for sign.
int signum;
if ((buffer[offset + length - 1] & 0x0F) == 0x0D) {
signum = -1;
} else {
signum = 1;
}
if (precision <= 9) {
// can be handled by int without overflow.
int value = packedNybblesToInt(buffer, offset, 0, length * 2 - 1);
return signum * value / Math.pow(10, scale);
} else if (precision <= 18) {
// can be handled by long without overflow.
long value = packedNybblesToLong(buffer, offset, 0, length * 2 - 1);
return signum * value / Math.pow(10, scale);
} else if (precision <= 27) {
// get the value of last 9 digits (5 bytes).
int lo = packedNybblesToInt(buffer, offset, (length - 5) * 2, 9);
// get the value of another 9 digits (5 bytes).
int me = packedNybblesToInt(buffer, offset, (length - 10) * 2 + 1, 9);
// get the value of the rest digits.
int hi = packedNybblesToInt(buffer, offset, 0, (length - 10) * 2 + 1);
return signum * (lo / Math.pow(10, scale) +
me * Math.pow(10, 9 - scale) +
hi * Math.pow(10, 18 - scale));
// GemStone changes BEGIN
}
else if (precision <= FdocaConstants.NUMERIC_MAX_PRECISION) {
// converting to integers in groups of 9 digits
int start, v;
double result = 0.0;
int sc = -scale;
for (start = (length - 5) << 1; start >= 10; start -= 9, sc += 9) {
// get the value of 9 digits (4.5 bytes).
v = packedNybblesToInt(buffer, offset, start, 9);
result *= (v * Math.pow(10, sc));
}
v = packedNybblesToInt(buffer, offset, 0, start);
result *= (v * Math.pow(10, sc));
return (signum * result);
/* (original code)
} else if (precision <= 31) {
// get the value of last 9 digits (5 bytes).
int lo = packedNybblesToInt(buffer, offset, (length - 5) * 2, 9);
// get the value of another 9 digits (5 bytes).
int meLo = packedNybblesToInt(buffer, offset, (length - 10) * 2 + 1, 9);
// get the value of another 9 digits (5 bytes).
int meHi = packedNybblesToInt(buffer, offset, (length - 14) * 2, 9);
// get the value of the rest digits.
int hi = packedNybblesToInt(buffer, offset, 0, (length - 14) * 2);
return signum * (lo / Math.pow(10, scale) +
meLo * Math.pow(10, 9 - scale) +
meHi * Math.pow(10, 18 - scale) +
hi * Math.pow(10, 27 - scale));
*/
// GemStone changes END
} else {
// throw an exception here if nibbles is greater than 31
throw new java.lang.IllegalArgumentException(
msgutil.getTextMessage(SQLState.DECIMAL_TOO_MANY_DIGITS));
}
}
/**
* Build a Java long from a fixed point decimal byte representation.
*
* @throws IllegalArgumentException if the specified representation is not recognized.
*/
public static final long getLong(byte[] buffer,
int offset,
int precision,
int scale) throws java.io.UnsupportedEncodingException {
// GemStone changes BEGIN
if (precision > FdocaConstants.NUMERIC_MAX_PRECISION) {
/* (original code)
if (precision > 31) {
*/
// GemStone changes END
// throw an exception here if nibbles is greater than 31
throw new java.lang.IllegalArgumentException(
msgutil.getTextMessage(SQLState.DECIMAL_TOO_MANY_DIGITS));
}
// The byte-length of a packed decimal with precision p is always p/2 + 1
int length = precision / 2 + 1;
// check for sign.
int signum;
if ((buffer[offset + length - 1] & 0x0F) == 0x0D) {
signum = -1;
} else {
signum = 1;
}
// compute the integer part only.
int leftOfDecimalPoint = length * 2 - 1 - scale;
long integer = 0;
if (leftOfDecimalPoint > 0) {
int i = 0;
for (; i < leftOfDecimalPoint / 2; i++) {
integer = integer * 10 + signum * ((buffer[offset + i] & 0xF0) >>> 4); // high nybble.
integer = integer * 10 + signum * (buffer[offset + i] & 0x0F); // low nybble.
}
if ((leftOfDecimalPoint % 2) == 1) {
// process high nybble of the last byte if necessary.
integer = integer * 10 + signum * ((buffer[offset + i] & 0xF0) >>> 4);
}
}
return integer;
}
//--------------entry points for runtime representation-----------------------
/**
* Write a Java java.math.BigDecimal to packed decimal bytes.
*/
public static final int bigDecimalToPackedDecimalBytes(byte[] buffer,
int offset,
java.math.BigDecimal b,
int declaredPrecision,
int declaredScale,
String columnName /* GemStoneAddition */)
throws SqlException {
// packed decimal may only be up to 31 digits.
// GemStone changes BEGIN
if (declaredPrecision > FdocaConstants.NUMERIC_MAX_PRECISION) {
/* (original code)
if (declaredPrecision > 31) {
*/
// GemStone changes END
throw new SqlException(null,
new ClientMessageId(SQLState.DECIMAL_TOO_MANY_DIGITS));
}
// get absolute unscaled value of the BigDecimal as a String.
String unscaledStr = b.unscaledValue().abs().toString();
// get precision of the BigDecimal.
int bigPrecision = unscaledStr.length();
// GemStone changes BEGIN
if (bigPrecision > FdocaConstants.NUMERIC_MAX_PRECISION) {
/* (original code)
if (bigPrecision > 31) {
*/
// GemStone changes END
throw new SqlException(null,
new ClientMessageId(SQLState.LANG_OUTSIDE_RANGE_FOR_DATATYPE),
"packed decimal", columnName /* GemStoneAddition */, new SqlCode(-405));
}
int bigScale = b.scale();
int bigWholeIntegerLength = bigPrecision - bigScale;
if ((bigWholeIntegerLength > 0) && (!unscaledStr.equals("0"))) {
// if whole integer part exists, check if overflow.
int declaredWholeIntegerLength = declaredPrecision - declaredScale;
if (bigWholeIntegerLength > declaredWholeIntegerLength) {
throw new SqlException(null,
new ClientMessageId(SQLState.NUMERIC_OVERFLOW),
b.toString(), "packed decimal", new SqlCode(-413));
}
}
// convert the unscaled value to a packed decimal bytes.
// get unicode '0' value.
int zeroBase = '0';
// start index in target packed decimal.
int packedIndex = declaredPrecision - 1;
// start index in source big decimal.
int bigIndex;
if (bigScale >= declaredScale) {
// If target scale is less than source scale,
// discard excessive fraction.
// set start index in source big decimal to ignore excessive fraction.
bigIndex = bigPrecision - 1 - (bigScale - declaredScale);
if (bigIndex < 0) {
// all digits are discarded, so only process the sign nybble.
buffer[offset + (packedIndex + 1) / 2] =
(byte) ((b.signum() >= 0) ? 12 : 13); // sign nybble
} else {
// process the last nybble together with the sign nybble.
buffer[offset + (packedIndex + 1) / 2] =
(byte) (((unscaledStr.charAt(bigIndex) - zeroBase) << 4) + // last nybble
((b.signum() >= 0) ? 12 : 13)); // sign nybble
}
packedIndex -= 2;
bigIndex -= 2;
} else {
// If target scale is greater than source scale,
// pad the fraction with zero.
// set start index in source big decimal to pad fraction with zero.
bigIndex = declaredScale - bigScale - 1;
// process the sign nybble.
buffer[offset + (packedIndex + 1) / 2] =
(byte) ((b.signum() >= 0) ? 12 : 13); // sign nybble
for (packedIndex -= 2, bigIndex -= 2; bigIndex >= 0; packedIndex -= 2, bigIndex -= 2) {
buffer[offset + (packedIndex + 1) / 2] = (byte) 0;
}
if (bigIndex == -1) {
buffer[offset + (packedIndex + 1) / 2] =
(byte) ((unscaledStr.charAt(bigPrecision - 1) - zeroBase) << 4); // high nybble
packedIndex -= 2;
bigIndex = bigPrecision - 3;
} else {
bigIndex = bigPrecision - 2;
}
}
// process the rest.
for (; bigIndex >= 0; packedIndex -= 2, bigIndex -= 2) {
buffer[offset + (packedIndex + 1) / 2] =
(byte) (((unscaledStr.charAt(bigIndex) - zeroBase) << 4) + // high nybble
(unscaledStr.charAt(bigIndex + 1) - zeroBase)); // low nybble
}
// process the first nybble when there is one left.
if (bigIndex == -1) {
buffer[offset + (packedIndex + 1) / 2] =
(byte) (unscaledStr.charAt(0) - zeroBase);
packedIndex -= 2;
}
// pad zero in front of the big decimal if necessary.
for (; packedIndex >= -1; packedIndex -= 2) {
buffer[offset + (packedIndex + 1) / 2] = (byte) 0;
}
return declaredPrecision / 2 + 1;
}
}