// test basic arithmetic operations

#ifdef CONIO
#include <conio.h>
#define WAIT()  cgetc()
#else
#define WAIT()
#endif

#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>

#include <_float.h>

float fp1 = 12.34f;
float fp2;  // non initialized
float fp3, fp4 = 55.55f;

char buf[0x20];
char buf2[0x20];
char buf3[0x20];

unsigned long l1,l2;

signed char var_schar;
unsigned char var_uchar;
signed int var_sint;
unsigned int var_uint;
signed long var_slong;
unsigned long var_ulong;

int result = 0;

#if 1
// returns 1 if value in f matches the string
// the string is a hex value without leading "0x"
int compare(float f, char *str)
{
    char temp[12];
    sprintf(temp, "%08lx", *((uint32_t*)&f));
    printf("[%s:%s]",temp,str);
    return (strcmp(temp, str) == 0) ? 1 : 0;
}

void test1(float f, char *str)
{
    if (compare(f, str)) {
//        printf(" (ok)");
        printf("\n");
    } else {
        printf(" (failed) !!!\n");
        result++;
    }
}

#if 1
void varconst(void)
{
    printf("\n*** variable vs constant\n\n");
    /* addition, variable + constant */
    fp1 = 64.75f;
    fp3 = fp1 + 2.25f;
    printf("addition: %s+%s=%s\n", _ftostr(buf, fp3), _ftostr(buf3, 0.05f), _ftostr(buf2, fp1));
    printf(" fp3:0x%08lx [0x42860000] %s (exp:67.0)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "42860000");

    /* subtraction, variable - constant */
    fp1 = 16.25f;
    fp3 = fp1 - 8.5f;
    printf("substraction: %s-%s=%s\n", _ftostr(buf, fp1), _ftostr(buf2, 8.5f), _ftostr(buf3, fp3));
    printf(" fp3:0x%08lx [0x40f80000] %s (exp:7.75)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "40f80000");

    fp1 = 0.1f;
    fp2 = 0.3f;
    fp3 = fp2 - 0.1f;
    printf("fp3:0x%08lx [0x3e4cccce] %s (0.2)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "3e4cccce");
    fp3 = fp1 - 0.3f;
    printf("fp3:0x%08lx [0xbe4cccce] %s (-0.2)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "be4cccce");

    /* multiplication, variable * constant */
    fp1 = 16.25f;
    fp3 = fp1 * 2.5f;
    printf("multiplication: %s*%s=%s\n", _ftostr(buf, fp1), _ftostr(buf2, 2.3f), _ftostr(buf3, fp3));
    printf(" fp3:0x%08lx [0x42228000] %s (exp:40.625)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "42228000");

    /* division, variable / constant */
    fp1 = 32.5f;
    fp3 = fp1 / 2.5f;
    printf("division: %s/%s=%s\n", _ftostr(buf, fp1), _ftostr(buf2, 2.3f), _ftostr(buf3, fp3));
    printf(" fp3:0x%08lx [0x41500000] %s (exp:13.0)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    test1(fp3, "41500000");
}

void varconst2(void)
{
    printf("\n*** variable vs constant\n\n");

    /* addition, variable + constant */
    fp1 = 64.75f;
    fp1 += 2.25f;
    printf("addition: %s+%s=%s\n", _ftostr(buf, 64.75f), _ftostr(buf3, 2.25f), _ftostr(buf2, fp1));
    printf(" fp1:0x%08lx [0x42860000] %s (exp:67.0)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "42860000");

    /* subtraction, variable - constant */
    fp1 = 16.25f;
    fp1 -= 8.5f;
    printf("substraction: %s-%s=%s\n", _ftostr(buf, 16.25f), _ftostr(buf2, 8.5f), _ftostr(buf3, fp1));
    printf(" fp1:0x%08lx [0x40f80000] %s (exp:7.75)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "40f80000");

    fp1 = 0.3f;
    fp1 -= 0.1f;
    printf("fp1:0x%08lx [0x3e4cccce] %s (0.2)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "3e4cccce");

    fp1 = 0.1f;
    fp1 -= 0.3f;
    printf("fp1:0x%08lx [0xbe4cccce] %s (-0.2)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "be4cccce");

    /* multiplication, variable * constant */
    fp1 = 16.25f;
    fp1 *= 2.5f;
    printf("multiplication: %s*%s=%s\n", _ftostr(buf, 16.25f), _ftostr(buf2, 2.5f), _ftostr(buf3, fp1));
    printf(" fp1:0x%08lx [0x42228000] %s (exp:40.625)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "42228000");

    /* division, variable / constant */
    fp1 = 32.5f;
    fp1 /= 2.5f;
    printf("division: %s/%s=%s\n", _ftostr(buf, 32.5f), _ftostr(buf2, 2.5f), _ftostr(buf3, fp1));
    printf(" fp1:0x%08lx [0x41500000] %s (exp:13.0)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    test1(fp1, "41500000");
}
#endif

void varconst3(void)
{
    float localfp3;
    float localfp2;
    float localfp1;
    float localfp4;
    float localfp5;
    printf("\n*** local variable vs constant\n\n");
#if 1 // compiles, wrong result
    /* addition, variable + constant */
    localfp1 = 64.75f;
    localfp1 += 2.25f;
    printf("addition: %s+%s=%s\n", _ftostr(buf, 64.75f), _ftostr(buf3, 2.25f), _ftostr(buf2, localfp1));
    printf(" localfp1:0x%08lx [0x42860000] %s (exp:67.0)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "42860000");
#endif
#if 1 // compiles, wrong result
    /* subtraction, variable - constant */
    localfp1 = 16.25f;
    localfp1 -= 8.5f;
    printf("substraction: %s-%s=%s\n", _ftostr(buf, 16.25f), _ftostr(buf2, 8.5f), _ftostr(buf3, localfp1));
    printf(" localfp1:0x%08lx [0x40f80000] %s (exp:7.75)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "40f80000");

    localfp1 = 0.3f;
    localfp1 -= 0.1f;
    printf("localfp1:0x%08lx [0x3e4cccce] %s (0.2)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "3e4cccce");

    localfp1 = 0.1f;
    localfp1 -= 0.3f;
    printf("localfp1:0x%08lx [0xbe4cccce] %s (-0.2)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "be4cccce");
#endif
#if 1
    /* multiplication, variable * constant */
    localfp1 = 16.25f;
    localfp1 *= 2.5f;
    printf("multiplication: %s*%s=%s\n", _ftostr(buf, 16.25f), _ftostr(buf2, 2.5f), _ftostr(buf3, localfp1));
    printf(" localfp1:0x%08lx [0x42228000] %s (exp:40.625)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "42228000");

    /* division, variable / constant */
    localfp1 = 32.5f;
    localfp1 /= 2.5f;
    printf("division: %s/%s=%s\n", _ftostr(buf, 32.5f), _ftostr(buf2, 2.5f), _ftostr(buf3, localfp1));
    printf(" localfp1:0x%08lx [0x41500000] %s (exp:13.0)", *((uint32_t*)&localfp1), _ftostr(buf, localfp1));
    test1(localfp1, "41500000");
#endif
}

int main(void)
{
    float fp2 = 43.21f;

    printf("float-basic-var-const\n");

    printf("fp1:0x%08lx [0x414570a4] %s (12.340000)\n", *((uint32_t*)&fp1), _ftostr(buf, fp1));
    printf("fp2:0x%08lx [0x422cd70a] %s (43.209999)\n", *((uint32_t*)&fp2), _ftostr(buf, fp2));

    varconst();
    varconst2();
    varconst3();
    WAIT();

    printf("\nfloat-basic-var-const (res:%d)\n", result);
    return result;
}
#else
int main(void)
{
    fp1 = 16.25f;
    fp3 = fp1 - 8.5f;
    printf("substraction: %s-%s=%s\n", _ftostr(buf, fp1), _ftostr(buf2, 8.5f), _ftostr(buf3, fp3));
    printf(" fp3:0x%08lx [0x40f80000] %s (exp:7.75)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
    return result;
}
#endif