sl@0: /* Portion Copyright © 2008-09 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.*/
sl@0: #undef G_DISABLE_ASSERT
sl@0: #undef G_LOG_DOMAIN
sl@0: 
sl@0: /* for NAN and INFINITY */
sl@0: #define _ISOC99_SOURCE
sl@0: 
sl@0: #include <glib.h>
sl@0: #include <locale.h>
sl@0: #include <string.h>
sl@0: #include <stdlib.h>
sl@0: #include <math.h>
sl@0: #include <stdio.h>
sl@0: 
sl@0: #ifdef SYMBIAN
sl@0: #include "mrt2_glib2_test.h"
sl@0: #endif /*SYMBIAN*/
sl@0: 
sl@0: 
sl@0: void
sl@0: test_string (char *number, double res, gboolean check_end, int correct_len)
sl@0: {
sl@0:   double d;
sl@0:   char *locales[] = {"sv_SE", "en_US", "fa_IR", "C", "ru_RU"};
sl@0:   int l;
sl@0:   char *dummy;
sl@0:   
sl@0:   /* we try a copy of number, with some free space for malloc before that. 
sl@0:    * This is supposed to smash the some wrong pointer calculations. */
sl@0: 
sl@0:   dummy = g_malloc (100000);
sl@0:   number = g_strdup (number);
sl@0:   g_free (dummy);
sl@0: 
sl@0:   for (l = 0; l < G_N_ELEMENTS (locales); l++)
sl@0:     {
sl@0:       gboolean ok;
sl@0:       char *end = "(unset)";
sl@0: 
sl@0:       setlocale (LC_NUMERIC, locales[l]);
sl@0:       d = g_ascii_strtod (number, &end);
sl@0:       ok = isnan (res) ? isnan (d) : (d == res);
sl@0:       if (!ok)
sl@0: 	{
sl@0: 	  g_print ("g_ascii_strtod on \"%s\" for locale %s failed\n", number, locales[l]);
sl@0: 	  g_print ("expected %f (nan %d) actual %f (nan %d)\n", 
sl@0: 		   res, isnan (res),
sl@0: 		   d, isnan (d));
sl@0: 	  assert_failed = TRUE;
sl@0: 	}
sl@0: 
sl@0:       ok = (end - number) == (check_end ? correct_len : strlen (number));
sl@0:       if (!ok) {
sl@0:       assert_failed = TRUE;
sl@0: 	if (end == NULL)
sl@0: 	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was NULL\n",
sl@0: 		   number, locales[l]);
sl@0: 	else if (end >= number && end <= number + strlen (number))
sl@0: 	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was wrong, leftover: \"%s\"\n",
sl@0: 		   number, locales[l], end);
sl@0: 	else
sl@0: 	  g_print ("g_ascii_strtod on \"%s\" for locale %s endptr was REALLY wrong (number=%p, end=%p)\n",
sl@0: 		   number, locales[l], number, end);
sl@0:       }
sl@0:     }
sl@0: 
sl@0:   g_free (number);
sl@0: }
sl@0: 
sl@0: 
sl@0: int 
sl@0: main ()
sl@0: {
sl@0:   gdouble d, our_nan, our_inf;
sl@0:   char buffer[G_ASCII_DTOSTR_BUF_SIZE];
sl@0: 
sl@0: #ifdef SYMBIAN
sl@0:   gdouble gd;
sl@0:   gchar* gstr1; 
sl@0:   gchar* gstr2; 	
sl@0:   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);
sl@0:   g_set_print_handler(mrtPrintHandler);
sl@0: #endif /*SYMBIAN*/
sl@0: 	  
sl@0: 
sl@0: #ifdef NAN
sl@0:   our_nan = NAN;
sl@0: #else
sl@0:   /* Do this before any call to setlocale.  */
sl@0:   our_nan = atof ("NaN");
sl@0: #endif
sl@0:   g_assert (isnan (our_nan));
sl@0: 
sl@0: #ifdef INFINITY
sl@0:   our_inf = INFINITY;
sl@0: #else
sl@0:   our_inf = atof ("Infinity");
sl@0: #endif
sl@0:   g_assert (our_inf > 1 && our_inf == our_inf / 2);
sl@0: 
sl@0:   test_string ("123.123", 123.123, FALSE, 0);
sl@0:   test_string ("123.123e2", 123.123e2, FALSE, 0);
sl@0:   test_string ("123.123e-2", 123.123e-2, FALSE, 0);
sl@0:   test_string ("-123.123", -123.123, FALSE, 0);
sl@0:   test_string ("-123.123e2", -123.123e2, FALSE, 0);
sl@0:   test_string ("-123.123e-2", -123.123e-2, FALSE, 0);
sl@0:   test_string ("5.4", 5.4, TRUE, 3);
sl@0:   test_string ("5.4,5.5", 5.4, TRUE, 3);
sl@0:   test_string ("5,4", 5.0, TRUE, 1);
sl@0:   /* the following are for #156421 */
sl@0:   test_string ("1e1", 1e1, FALSE, 0); 
sl@0:   test_string ("NAN", our_nan, FALSE, 0);
sl@0:   test_string ("-nan", -our_nan, FALSE, 0);
sl@0:   test_string ("INF", our_inf, FALSE, 0);
sl@0:   test_string ("-infinity", -our_inf, FALSE, 0);
sl@0:   test_string ("-.75,0", -0.75, TRUE, 4);
sl@0:   
sl@0:   
sl@0:   d = 179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0;
sl@0:   g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));
sl@0: 
sl@0:   d = -179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0;
sl@0:   g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));
sl@0:   
sl@0:   
sl@0:   
sl@0:   d = pow (2.0, -1021.1);
sl@0:   g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));
sl@0:   
sl@0:   d = -pow (2.0, -1021.1);
sl@0:   g_assert (d == g_ascii_strtod (g_ascii_dtostr (buffer, sizeof (buffer), d), NULL));
sl@0: #ifdef SYMBIAN
sl@0:   testResultXml("strtod-test");
sl@0: #endif /* EMULATOR */
sl@0: 
sl@0:   return 0;
sl@0: }