/*  Copyright (c) MediaArea.net SARL. All Rights Reserved.
 *
 *  Use of this source code is governed by a zlib-style license that can
 *  be found in the License.txt file in the root of the source tree.
 */

//---------------------------------------------------------------------------
#include "ZenLib/PreComp.h"
#ifdef __BORLANDC__
    #pragma hdrstop
#endif
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include "ZenLib/Conf_Internal.h"
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include "ZenLib/Utils.h"
#include <cmath>
#include <complex>
//---------------------------------------------------------------------------

namespace ZenLib
{

//***************************************************************************
// Transformations - Little Endian to something
//***************************************************************************

//---------------------------------------------------------------------------
// Little Endian - 8 bits
int8s  LittleEndian2int8s  (const char* Liste)
{
    return             (int8s)Liste[0];
}

int8u  LittleEndian2int8u  (const char* Liste)
{
    return             (int8u)Liste[0];
}

//---------------------------------------------------------------------------
// Little Endian - 16 bits
int16s LittleEndian2int16s (const char* Liste)
{
    int16s Retour=     (int8s)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int16u LittleEndian2int16u (const char* Liste)
{
    int16u Retour=     (int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 24 bits
int32s LittleEndian2int24s (const char* Liste)
{
    int32s Retour=     (int8s)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int32u LittleEndian2int24u (const char* Liste)
{
    int32u Retour=     (int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 32 bits
int32s LittleEndian2int32s (const char* Liste)
{
    int32s Retour=     (int8s)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int32u LittleEndian2int32u (const char* Liste)
{
    int32u Retour=     (int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 40 bits
int64s LittleEndian2int40s (const char* Liste)
{
    int64s Retour=     (int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int64u LittleEndian2int40u (const char* Liste)
{
    int64u Retour=     (int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 48 bits
int64s LittleEndian2int48s (const char* Liste)
{
    int64s Retour=     (int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int64u LittleEndian2int48u (const char* Liste)
{
    int64u Retour=     (int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 56 bits
int64s LittleEndian2int56s (const char* Liste)
{
    int64s Retour=     (int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int64u LittleEndian2int56u (const char* Liste)
{
    int64u Retour=     (int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 64 bits
int64s LittleEndian2int64s (const char* Liste)
{
    int64s Retour=     (int8s)Liste[7];
    Retour=(Retour<<8)|(int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

int64u LittleEndian2int64u (const char* Liste)
{
    int64u Retour=     (int8u)Liste[7];
    Retour=(Retour<<8)|(int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[0];
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - 128 bits
int128u LittleEndian2int128u(const char* Liste)
{
    int128u Retour;
    Retour.lo=LittleEndian2int64u(Liste);
    Retour.hi=LittleEndian2int64u(Liste+8);
    return Retour;
}

//---------------------------------------------------------------------------
// Little Endian - float 16 bits
float32 LittleEndian2float16(const char* Liste)
{
    //sign          1 bit
    //exponent      5 bit
    //significand  10 bit

    //Retrieving data
    int32u Integer=LittleEndian2int32u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x8000)?true:false;
    int32u Exponent=(Integer>>10)&0xFF;
    int32u Mantissa= Integer&0x03FF;

    //Some computing
    if (Exponent==0 || Exponent==0xFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x7F; //Bias
    float64 Answer=(((float64)Mantissa)/8388608+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float32)Answer;
}

//---------------------------------------------------------------------------
// Little Endian - float 32 bits
float32 LittleEndian2float32(const char* Liste)
{
    //sign          1 bit
    //exponent      8 bit
    //significand  23 bit

    //Retrieving data
    int32u Integer=LittleEndian2int32u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x80000000)?true:false;
    int32u Exponent=(Integer>>23)&0xFF;
    int32u Mantissa= Integer&0x007FFFFF;

    //Some computing
    if (Exponent==0 || Exponent==0xFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x7F; //Bias
    float64 Answer=(((float64)Mantissa)/8388608+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float32)Answer;
}

//---------------------------------------------------------------------------
// Little Endian - float 64 bits
float64 LittleEndian2float64(const char* Liste)
{
    //sign          1 bit
    //exponent     11 bit
    //significand  52 bit

    //Retrieving data
    int64u Integer=LittleEndian2int64u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x8000000000000000LL)?true:false;
    int64u Exponent=(Integer>>52)&0x7FF;
    int64u Mantissa= Integer&0xFFFFFFFFFFFFFLL;

    //Some computing
    if (Exponent==0 || Exponent==0x7FF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x3FF; //Bias
    float64 Answer=(((float64)Mantissa)/4503599627370496.0+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float64)Answer;
}

//---------------------------------------------------------------------------
// Little Endian - float 80 bits
float80 LittleEndian2float80(const char* Liste)
{
    //sign          1 bit
    //exponent     15 bit
    //integer?      1 bit
    //significand  63 bit

    //Retrieving data
    int16u Integer1=LittleEndian2int16u(Liste);
    int64u Integer2=LittleEndian2int64u(Liste+2);

    //Retrieving elements
    bool   Sign    =(Integer1&0x8000)?true:false;
    int16u Exponent= Integer1&0x7FFF;
    int64u Mantissa= Integer2&0x7FFFFFFFFFFFFFFFLL; //Only 63 bits, 1 most significant bit is explicit
    //Some computing
    if (Exponent==0 || Exponent==0x7FFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x3FFF; //Bias
    float80 Answer=(((float80)Mantissa)/9223372036854775808.0+1.0)*std::pow((float)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float80)Answer;
}

//***************************************************************************
// Transformations - Something to Little Endian
//***************************************************************************

//---------------------------------------------------------------------------
// Little Endian - 8 bits
void int8s2LittleEndian     (char* List, int8s Value)
{
    List[0]=(char)Value;
}

void int8u2LittleEndian     (char* List, int8u Value)
{
    List[0]=(char)Value;
}

//---------------------------------------------------------------------------
// Little Endian - 16 bits
void int16s2LittleEndian    (char* List, int16s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
}

void int16u2LittleEndian    (char* List, int16u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
}

//---------------------------------------------------------------------------
// Little Endian - 24 bits
void int24s2LittleEndian    (char* List, int32s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
}

void int24u2LittleEndian    (char* List, int32u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
}

//---------------------------------------------------------------------------
// Little Endian - 32 bits
void int32s2LittleEndian    (char* List, int32s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
}

void int32u2LittleEndian    (char* List, int32u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
}

//---------------------------------------------------------------------------
// Little Endian - 40 bits
void int40s2LittleEndian    (char* List, int64s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
}

void int40u2LittleEndian    (char* List, int64u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
}

//---------------------------------------------------------------------------
// Little Endian - 48 bits
void int48s2LittleEndian    (char* List, int64s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
}

void int48u2LittleEndian    (char* List, int64u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
}

//---------------------------------------------------------------------------
// Little Endian - 56 bits
void int56s2LittleEndian    (char* List, int64s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
    List[6]=(char)(Value>>48);
}

void int56u2LittleEndian    (char* List, int64u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
    List[6]=(char)(Value>>48);
}

//---------------------------------------------------------------------------
// Little Endian - 64 bits
void int64s2LittleEndian    (char* List, int64s Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
    List[6]=(char)(Value>>48);
    List[7]=(char)(Value>>56);
}

void int64u2LittleEndian    (char* List, int64u Value)
{
    List[0]=(char) Value;
    List[1]=(char)(Value>> 8);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>32);
    List[5]=(char)(Value>>40);
    List[6]=(char)(Value>>48);
    List[7]=(char)(Value>>56);
}

//---------------------------------------------------------------------------
// Little Endian - 128 bits
void int128u2LittleEndian(char* List, int128u Value)
{
    int64u2LittleEndian(List+8, Value.lo);
    int64u2LittleEndian(List  , Value.hi);
}

//***************************************************************************
// Transformations - Big Endian to something
//***************************************************************************

//---------------------------------------------------------------------------
// Big Endian - 8 bits
int8s  BigEndian2int8s     (const char* Liste)
{
    return             (int8s)Liste[0];
}

int8u  BigEndian2int8u     (const char* Liste)
{
    return             (int8u)Liste[0];
}

//---------------------------------------------------------------------------
// Big Endian - 16 bits
int16s BigEndian2int16s    (const char* Liste)
{
    int16s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    return Retour;
}

int16u BigEndian2int16u    (const char* Liste)
{
    int16u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 24 bits
int32s BigEndian2int24s    (const char* Liste)
{
    int32s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    return Retour;
}

int32u BigEndian2int24u    (const char* Liste)
{
    int32u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 32 bits
int32s BigEndian2int32s    (const char* Liste)
{
    int32s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    return Retour;
}

int32u BigEndian2int32u    (const char* Liste)
{
    int32u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 40 bits
int64s  BigEndian2int40s    (const char* Liste)
{
    int64s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    return Retour;
}

int64u BigEndian2int40u    (const char* Liste)
{
    int64u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 48 bits
int64s  BigEndian2int48s    (const char* Liste)
{
    int64s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    return Retour;
}

int64u BigEndian2int48u    (const char* Liste)
{
    int64u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 56 bits
int64s  BigEndian2int56s    (const char* Liste)
{
    int64s Retour=     (int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[6];
    return Retour;
}

int64u BigEndian2int56u    (const char* Liste)
{
    int64u Retour=     (int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[6];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 64 bits
int64s  BigEndian2int64s    (const char* Liste)
{
    int64s Retour=(int8s)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[7];
    return Retour;
}

int64u BigEndian2int64u    (const char* Liste)
{
    int64u Retour=(int8u)Liste[0];
    Retour=(Retour<<8)|(int8u)Liste[1];
    Retour=(Retour<<8)|(int8u)Liste[2];
    Retour=(Retour<<8)|(int8u)Liste[3];
    Retour=(Retour<<8)|(int8u)Liste[4];
    Retour=(Retour<<8)|(int8u)Liste[5];
    Retour=(Retour<<8)|(int8u)Liste[6];
    Retour=(Retour<<8)|(int8u)Liste[7];
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - 128 bits
int128u BigEndian2int128u(const char* Liste)
{
    int128u Retour;
    Retour.hi=BigEndian2int64u(Liste);
    Retour.lo=BigEndian2int64u(Liste+8);
    return Retour;
}

//---------------------------------------------------------------------------
// Big Endian - float 16 bits
float32 BigEndian2float16(const char* Liste)
{
    //sign          1 bit
    //exponent      5 bit
    //significand  10 bit

    //Retrieving data
    int16u Integer=BigEndian2int16u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x8000)?true:false;
    int32u Exponent=(Integer>>10)&0xFF;
    int32u Mantissa= Integer&0x03FF;

    //Some computing
    if (Exponent==0 || Exponent==0xFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x0F; //Bias
    float64 Answer=(((float64)Mantissa)/8388608+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float32)Answer;
}

//---------------------------------------------------------------------------
// Big Endian - float 32 bits
float32 BigEndian2float32(const char* Liste)
{
    //sign          1 bit
    //exponent      8 bit
    //significand  23 bit

    //Retrieving data
    int32u Integer=BigEndian2int32u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x80000000)?true:false;
    int32u Exponent=(Integer>>23)&0xFF;
    int32u Mantissa= Integer&0x007FFFFF;

    //Some computing
    if (Exponent==0 || Exponent==0xFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x7F; //Bias
    float64 Answer=(((float64)Mantissa)/8388608+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float32)Answer;
}

//---------------------------------------------------------------------------
// Big Endian - float 64 bits
float64 BigEndian2float64(const char* Liste)
{
    //sign          1 bit
    //exponent     11 bit
    //significand  52 bit

    //Retrieving data
    int64u Integer=BigEndian2int64u(Liste);

    //Retrieving elements
    bool   Sign    =(Integer&0x8000000000000000LL)?true:false;
    int64u Exponent=(Integer>>52)&0x7FF;
    int64u Mantissa= Integer&0xFFFFFFFFFFFFFLL;

    //Some computing
    if (Exponent==0 || Exponent==0x7FF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x3FF; //Bias
    float64 Answer=(((float64)Mantissa)/4503599627370496.0+1.0)*std::pow((float64)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float64)Answer;
}

//---------------------------------------------------------------------------
// Big Endian - float 80 bits
float80 BigEndian2float80(const char* Liste)
{
    //sign          1 bit
    //exponent     15 bit
    //integer?      1 bit
    //significand  63 bit

    //Retrieving data
    int16u Integer1=BigEndian2int16u(Liste);
    int64u Integer2=BigEndian2int64u(Liste+2);

    //Retrieving elements
    bool   Sign    =(Integer1&0x8000)?true:false;
    int16u Exponent= Integer1&0x7FFF;
    int64u Mantissa= Integer2&0x7FFFFFFFFFFFFFFFLL; //Only 63 bits, 1 most significant bit is explicit
    //Some computing
    if (Exponent==0 || Exponent==0x7FFF)
        return 0; //These are denormalised numbers, NANs, and other horrible things
    Exponent-=0x3FFF; //Bias
    float80 Answer=(((float80)Mantissa)/9223372036854775808.0+1.0)*std::pow((float)2, (int)Exponent); //(1+Mantissa) * 2^Exponent
    if (Sign)
        Answer=-Answer;

    return (float80)Answer;
}

//***************************************************************************
// Transformations - Something to Big Endian
//***************************************************************************

//---------------------------------------------------------------------------
// Big Endian - 8 bits
void int8s2BigEndian     (char* List, int8s Value)
{
    List[0]=(char)Value;
}

void int8u2BigEndian     (char* List, int8u Value)
{
    List[0]=(char)Value;
}

//---------------------------------------------------------------------------
// Big Endian - 16 bits
void int16s2BigEndian    (char* List, int16s Value)
{
    List[0]=(char)(Value>> 8);
    List[1]=(char) Value;
}

void int16u2BigEndian    (char* List, int16u Value)
{
    List[0]=(char)(Value>> 8);
    List[1]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 24 bits
void int24s2BigEndian    (char* List, int32s Value)
{
    List[0]=(char)(Value>>16);
    List[1]=(char)(Value>> 8);
    List[2]=(char) Value;
}

void int24u2BigEndian    (char* List, int32u Value)
{
    List[0]=(char)(Value>>16);
    List[1]=(char)(Value>> 8);
    List[2]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 32 bits
void int32s2BigEndian    (char* List, int32s Value)
{
    List[0]=(char)(Value>>24);
    List[1]=(char)(Value>>16);
    List[2]=(char)(Value>> 8);
    List[3]=(char) Value;
}

void int32u2BigEndian    (char* List, int32u Value)
{
    List[0]=(char)(Value>>24);
    List[1]=(char)(Value>>16);
    List[2]=(char)(Value>> 8);
    List[3]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 40 bits
void int40s2BigEndian    (char* List, int64s Value)
{
    List[0]=(char)(Value>>32);
    List[1]=(char)(Value>>24);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>> 8);
    List[4]=(char) Value;
}

void int40u2BigEndian    (char* List, int64u Value)
{
    List[0]=(char)(Value>>32);
    List[1]=(char)(Value>>24);
    List[2]=(char)(Value>>16);
    List[3]=(char)(Value>> 8);
    List[4]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 48 bits
void int48s2BigEndian    (char* List, int64s Value)
{
    List[0]=(char)(Value>>40);
    List[1]=(char)(Value>>32);
    List[2]=(char)(Value>>24);
    List[3]=(char)(Value>>16);
    List[4]=(char)(Value>> 8);
    List[5]=(char) Value;
}

void int48u2BigEndian    (char* List, int64u Value)
{
    List[0]=(char)(Value>>40);
    List[1]=(char)(Value>>32);
    List[2]=(char)(Value>>24);
    List[3]=(char)(Value>>16);
    List[4]=(char)(Value>> 8);
    List[5]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 56 bits
void int56s2BigEndian    (char* List, int64s Value)
{
    List[0]=(char)(Value>>48);
    List[1]=(char)(Value>>40);
    List[2]=(char)(Value>>32);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>16);
    List[5]=(char)(Value>> 8);
    List[6]=(char) Value;
}

void int56u2BigEndian    (char* List, int64u Value)
{
    List[0]=(char)(Value>>48);
    List[1]=(char)(Value>>40);
    List[2]=(char)(Value>>32);
    List[3]=(char)(Value>>24);
    List[4]=(char)(Value>>16);
    List[5]=(char)(Value>> 8);
    List[6]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 64 bits
void int64s2BigEndian    (char* List, int64s Value)
{
    List[0]=(char)(Value>>56);
    List[1]=(char)(Value>>48);
    List[2]=(char)(Value>>40);
    List[3]=(char)(Value>>32);
    List[4]=(char)(Value>>24);
    List[5]=(char)(Value>>16);
    List[6]=(char)(Value>> 8);
    List[7]=(char) Value;
}

void int64u2BigEndian    (char* List, int64u Value)
{
    List[0]=(char)(Value>>56);
    List[1]=(char)(Value>>48);
    List[2]=(char)(Value>>40);
    List[3]=(char)(Value>>32);
    List[4]=(char)(Value>>24);
    List[5]=(char)(Value>>16);
    List[6]=(char)(Value>> 8);
    List[7]=(char) Value;
}

//---------------------------------------------------------------------------
// Big Endian - 128 bits
void int128u2BigEndian(char* List, int128u Value)
{
    int64u2BigEndian(List, Value.hi);
    int64u2BigEndian(List+8, Value.lo);
}

//***************************************************************************
// Int to Int
//***************************************************************************

//---------------------------------------------------------------------------
// int32 - int64
int64s int32s_int64s (int32s High, int32u Low)
{
    return ((((int64s)High)<<32) | Low);
}

int64u int32u_int64u (int32u High, int32u Low)
{
    return ((((int64s)High)<<32) | Low);
}

void   int32s_int64s (int64s &BigInt, int32s High, int32u Low)
{
    BigInt= ((((int64s)High)<<32) | Low);
}
void   int32u_int64u (int64s &BigInt, int32u High, int32u Low)
{
    BigInt= ((((int64s)High)<<32) | Low);
}

void   int64s_int32s (int64s BigInt, int32s &High, int32u &Low)
{
    High = (int32s) ((BigInt & 0xFFFFFFFF00000000LL)>>32);
    Low  = (int32u) ( BigInt & 0x00000000FFFFFFFF);
}

void   int64u_int32u (int64u BigInt, int32u &High, int32u &Low)
{
    High = (int32u) ((BigInt & 0xFFFFFFFF00000000LL)>>32);
    Low  = (int32u) ( BigInt & 0x00000000FFFFFFFF);
}

//---------------------------------------------------------------------------
// Floats and ints
int32s float32_int32s (float32 F, bool Rounded)
{
    //Out of boundaries
    if (F>=(int32s)0x7FFFFFFF)
        return (int32s)0x7FFFFFFF;
    if (F<=(int32s)0x80000000)
        return (int32s)0x80000000;

    //Not rounded
    if (!Rounded)
        return (int32s)F;
    //Rounded
    int I1=(int)F;
    if (F-I1>=0.5f)
        return I1+1;
    else
        return I1;
}

int64s float32_int64s (float32 F, bool Rounded)
{
    //Out of boundaries
    if (F>=(int64s)0x7FFFFFFFFFFFFFFFLL)
        return (int64s)0x7FFFFFFFFFFFFFFFLL;
    if (F<=(int64s)0x8000000000000000LL)
        return (int64s)0x8000000000000000LL;

    //Not rounded
    if (!Rounded)
        return (int64s)F;
    //Rounded
    int I1=(int)F;
    if (F-I1>=0.5f)
        return I1+1;
    else
        return I1;
}

int32s float64_int32s (float64 F, bool Rounded)
{
    //Out of boundaries
    if (F>=(int32s)0x7FFFFFFF)
        return (int32s)0x7FFFFFFF;
    if (F<=(int32s)0x80000000)
        return (int32s)0x80000000;

    //Not rounded
    if (!Rounded)
        return (int32s)F;
    //Rounded
    int32s I1=(int32s)F;
    if (F-I1>=0.5)
        return I1+1;
    else
        return I1;
}

int64s float64_int64s (float64 F, bool Rounded)
{
    //Out of boundaries
    if (F>=(int64s)0x7FFFFFFFFFFFFFFFLL)
        return (int64s)0x7FFFFFFFFFFFFFFFLL;
    if (F<=(int64s)0x8000000000000000LL)
        return (int64s)0x8000000000000000LL;

    //Not rounded
    if (!Rounded)
        return (int64s)F;
    //Rounded
    int64s I1=(int64s)F;
    if (F-I1>=0.5)
        return I1+1;
    else
        return I1;
}

} //namespace ZenLib