/*

* Copyright (c) 2010 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:

*

*/

#undef G_DISABLE_ASSERT

#undef G_LOG_DOMAIN

/* for NAN and INFINITY */

#define _ISOC99_SOURCE

#include <glib.h>

#include <locale.h>

#include <string.h>

#include <stdlib.h>

#include <math.h>

#include <stdio.h>

#ifdef SYMBIAN

#include "mrt2_glib2_test.h"

#endif /*SYMBIAN*/

void

test_string (char *number, double res, gboolean check_end, int correct_len)

{

  double d;

  char *locales[] = {"sv_SE", "en_US", "fa_IR", "C", "ru_RU"};

  int l;

  char *dummy;

  /* we try a copy of number, with some free space for malloc before that. 

   * This is supposed to smash the some wrong pointer calculations. */

  dummy = g_malloc (100000);

  number = g_strdup (number);

  g_free (dummy);

  for (l = 0; l < G_N_ELEMENTS (locales); l++)

    {

      gboolean ok;

      char *end = "(unset)";

      setlocale (LC_NUMERIC, locales[l]);

      d = g_ascii_strtod (number, &end);

      ok = isnan (res) ? isnan (d) : (d == res);

      if (!ok)

	{

	  g_print ("g_ascii_strtod on \"%s\" for locale %s failed\n", number, locales[l]);

	  g_print ("expected %f (nan %d) actual %f (nan %d)\n", 

		   res, isnan (res),

		   d, isnan (d));

	  assert_failed = TRUE;

	}

      ok = (end - number) == (check_end ? correct_len : strlen (number));

      if (!ok) {

      assert_failed = TRUE;

	if (end == NULL)

	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was NULL\n",

		   number, locales[l]);

	else if (end >= number && end <= number + strlen (number))

	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was wrong, leftover: \"%s\"\n",

		   number, locales[l], end);

	else

	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was REALLY wrong (number=%p, end=%p)\n",

		   number, locales[l], number, end);

      }

    }

  g_free (number);

}

int 

main ()

{

  gdouble d, our_nan, our_inf;

  char buffer[G_ASCII_DTOSTR_BUF_SIZE];

#ifdef SYMBIAN

  gdouble gd;

  gchar* gstr1; 

  gchar* gstr2; 	

  g_log_set_handler (NULL,  G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL);

  g_set_print_handler(mrtPrintHandler);

#endif /*SYMBIAN*/

#ifdef NAN

  our_nan = NAN;

#else

  /* Do this before any call to setlocale.  */

  our_nan = atof ("NaN");

#endif

  g_assert (isnan (our_nan));

#ifdef INFINITY

  our_inf = INFINITY;

#else

  our_inf = atof ("Infinity");

#endif

  g_assert (our_inf > 1 && our_inf == our_inf / 2);

  test_string ("123.123", 123.123, FALSE, 0);

  test_string ("123.123e2", 123.123e2, FALSE, 0);

  test_string ("123.123e-2", 123.123e-2, FALSE, 0);

  test_string ("-123.123", -123.123, FALSE, 0);

  test_string ("-123.123e2", -123.123e2, FALSE, 0);

  test_string ("-123.123e-2", -123.123e-2, FALSE, 0);

  test_string ("5.4", 5.4, TRUE, 3);

  test_string ("5.4,5.5", 5.4, TRUE, 3);

  test_string ("5,4", 5.0, TRUE, 1);

  /* the following are for #156421 */

  test_string ("1e1", 1e1, FALSE, 0); 

  test_string ("NAN", our_nan, FALSE, 0);

  test_string ("-nan", -our_nan, FALSE, 0);

  test_string ("INF", our_inf, FALSE, 0);

  test_string ("-infinity", -our_inf, FALSE, 0);

  test_string ("-.75,0", -0.75, TRUE, 4);

#ifndef  SYMBIAN

  d = 179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0;

#else

  d=1.79769313486232e+307;

#endif   

  g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));

#ifndef SYMBIAN

  d = -179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0;

#else

  d = -1.79769313486232e+307;  

#endif

  g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));

  d = pow (2.0, -1024.1);

#ifndef SYMBIAN    

  g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));

#else

  gstr1 = g_ascii_dtostr (buffer, sizeof (buffer),d);

  gstr2 = "5.19016829648363e-309";

  g_assert (gstr1 != gstr2 && strcmp(gstr1, gstr2) == 0);

  gd = g_ascii_strtod (gstr1, NULL);

  g_assert (gd == 5.190168296483632e-309);

#endif

  d = -pow (2.0, -1024.1);

#ifndef SYMBIAN  

  g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));

#else

  gstr1 = g_ascii_dtostr (buffer, sizeof (buffer),d);

  gstr2 = "-5.19016829648363e-309";

  g_assert (gstr1 != gstr2 && strcmp(gstr1, gstr2) == 0);

  gd = g_ascii_strtod (gstr1, NULL);

  g_assert (gd == -5.190168296483632e-309);

#endif

#ifdef SYMBIAN

  testResultXml("strtod-test");

#endif /* EMULATOR */

  return 0;

}