Cosmos/source/Cosmos.System.Plugs/System/DoubleImpl.cs
2016-04-14 13:26:54 -05:00

105 lines
2.9 KiB
C#

using System;
using Cosmos.IL2CPU.Plugs;
namespace Cosmos.System.Plugs.System
{
[Plug(Target = typeof (double))]
public static class DoubleImpl
{
public static string ToString(ref double aThis)
{
if (aThis == 0.0)
{
return "0";
}
double val = aThis;
long hexVal = BitConverter.DoubleToInt64Bits(val);
long mantissa = (hexVal & 0x1FFFFFFFFFFFFF) | 0x10000000000000;
int exp2 = (int) (((hexVal >> 52) & 0x07FF) - 1023);
long intPart = 0, fracPart = 0;
if (exp2 >= 63)
{
return "Double Overrange";
}
if (exp2 < -52)
{
return "Double Underrange";
}
if (exp2 >= 52)
{
intPart = mantissa << (exp2 - 52);
}
else if (exp2 >= 0)
{
intPart = mantissa >> (52 - exp2);
fracPart = (mantissa << (exp2 + 1)) & 0x1FFFFFFFFFFFFF;
}
else
{
fracPart = (mantissa & 0x1FFFFFFFFFFFFF) >> (-(exp2 + 1));
}
string result = "";
if (hexVal < 0)
{
result += "-";
}
result += intPart.ToString();
int usedDigits = result.Length;
if (fracPart == 0)
{
return result;
}
result += ".";
if (usedDigits >= 15)
{
usedDigits = 14;
}
for (int m = usedDigits; m < 15; m++)
{
fracPart = (fracPart << 3) + (fracPart << 1);
char p = (char) (((fracPart >> 53) & 0xFF) + '0');
result += p;
fracPart &= 0x1FFFFFFFFFFFFF;
}
fracPart = (fracPart << 3) + (fracPart << 1);
char remain = (char) ((fracPart >> 53) + '0');
if ((remain > '5') && (result[result.Length - 1] > '0'))
{
char[] answer = result.ToCharArray();
int digitPos = answer.Length - 1;
char digit = result[digitPos];
answer[digitPos] = (char) (digit + 1);
while (answer[digitPos] > '9')
{
answer[digitPos] = '0';
digitPos--;
digit = result[digitPos];
if (digit == '.')
{
digitPos--;
digit = result[digitPos];
}
answer[digitPos] = (char) (digit + 1);
}
result = new string(answer);
}
while (result[result.Length - 1] == '0')
{
result = result.Substring(0, result.Length - 1);
}
return result;
}
}
}