![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to t-locale.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / tests / misc|
Return to t-locale.c CVS log | Up to [local] / OpenXM_contrib / gmp / tests / misc |
1.1 ohara 1: /* Test locale support, or attempt to do so.
2:
3: Copyright 2001 Free Software Foundation, Inc.
4:
5: This file is part of the GNU MP Library.
6:
7: The GNU MP Library is free software; you can redistribute it and/or modify
8: it under the terms of the GNU Lesser General Public License as published by
9: the Free Software Foundation; either version 2.1 of the License, or (at your
10: option) any later version.
11:
12: The GNU MP Library is distributed in the hope that it will be useful, but
13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
15: License for more details.
16:
17: You should have received a copy of the GNU Lesser General Public License
18: along with the GNU MP Library; see the file COPYING.LIB. If not, write to
19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20: MA 02111-1307, USA. */
21:
22: #include "config.h"
23:
24: #include <stdio.h>
25: #include <stdlib.h>
26: #include <string.h>
27:
28: #if HAVE_LOCALE_H
29: #include <locale.h> /* for lconv */
30: #endif
31:
32: #include "gmp.h"
33: #include "gmp-impl.h"
34: #include "tests.h"
35:
36:
37: #if HAVE_LOCALECONV
38:
39: char *decimal_point;
40:
41: /* Replace the libc localeconv with one we can manipulate. */
42: struct lconv *
43: localeconv (void)
44: {
45: static struct lconv l;
46: l.decimal_point = decimal_point;
47: return &l;
48: }
49:
50:
51: void
52: check_input (void)
53: {
54: static char *point[] = {
55: ".", ",", "xy", "xyz", "xyz***"
56: };
57:
58: static const struct {
59: const char *str;
60: double d;
61: } data[] = {
62:
63: { "1%s", 1.0 },
64: { "1%s0", 1.0 },
65: { "1%s00", 1.0 },
66:
67: { "%s5", 0.5 },
68: { "0%s5", 0.5 },
69: { "00%s5", 0.5 },
70: { "00%s50", 0.5 },
71:
72: { "1%s5", 1.5 },
73: { "1%s5e1", 15.0 },
74: };
75:
76: int i, j, neg;
77: char str[128];
78: mpf_t f;
79: double d;
80:
81: mpf_init (f);
82:
83: for (i = 0; i < numberof (point); i++)
84: {
85: decimal_point = point[i];
86:
87: for (neg = 0; neg <= 1; neg++)
88: {
89: for (j = 0; j < numberof (data); j++)
90: {
91: strcpy (str, neg ? "-" : "");
92: sprintf (str+strlen(str), data[j].str, decimal_point);
93:
94: d = data[j].d;
95: if (neg)
96: d = -d;
97:
98: mpf_set_d (f, 123.0);
99: if (mpf_set_str (f, str, 10) != 0)
100: {
101: printf ("mpf_set_str error\n");
102: printf (" point %s\n", decimal_point);
103: printf (" str %s\n", str);
104: abort ();
105: }
106: if (mpf_cmp_d (f, d) != 0)
107: {
108: printf ("mpf_set_str wrong result\n");
109: printf (" point %s\n", decimal_point);
110: printf (" str %s\n", str);
111: mpf_trace (" f", f);
112: printf (" d=%g\n", d);
113: abort ();
114: }
115:
116: mpf_set_d (f, 123.0);
117: if (gmp_sscanf (str, "%Ff", f) != 1)
118: {
119: printf ("gmp_sscanf wrong return value\n");
120: printf (" point %s\n", decimal_point);
121: printf (" str %s\n", str);
122: abort ();
123: }
124: if (mpf_cmp_d (f, d) != 0)
125: {
126: printf ("gmp_sscanf wrong result\n");
127: printf (" point %s\n", decimal_point);
128: printf (" str %s\n", str);
129: mpf_trace (" f", f);
130: printf (" d=%g\n", d);
131: abort ();
132: }
133: }
134: }
135: }
136: mpf_clear (f);
137: }
138:
139: int
140: main (void)
141: {
142: /* The localeconv replacement breaks printf "%lu" on SunOS 4, so we can't
143: print the seed in tests_rand_start(). Nothing random is used in this
144: program though, so just use the memory tests alone. */
145: tests_memory_start ();
146:
147: {
148: mpf_t f;
149: char buf[128];
150: mpf_init (f);
151: decimal_point = ",";
152: mpf_set_d (f, 1.5);
153: gmp_snprintf (buf, sizeof(buf), "%.1Ff", f);
154: mpf_clear (f);
155: if (strcmp (buf, "1,5") != 0)
156: {
157: printf ("Test skipped, replacing localeconv doesn't work\n");
158: goto done;
159: }
160: }
161:
162: check_input ();
163:
164: done:
165: tests_memory_end ();
166: exit (0);
167: }
168:
169:
170: #else
171:
172: int
173: main (void)
174: {
175: printf ("Test skipped, no locale support\n");
176: exit (0);
177: }
178:
179: #endif