config/libbid/bid64_string.c

36 bid64_to_string (char *ps, UINT64 * px
42 bid64_to_string (char *ps, UINT64 x
45 // the destination string (pointed to by ps) must be pre-allocated
67     ps[0] = (sign_x) ? '-' : '+';
68     ps[1] = ((x & MASK_SNAN) == MASK_SNAN)? 'S':'Q';
69 	ps[2] = 'N';
70 	ps[3] = 'a';
71 	ps[4] = 'N';
72 	ps[5] = 0;
76       ps[0] = (sign_x) ? '-' : '+';
77       ps[1] = 'I';
78       ps[2] = 'n';
79       ps[3] = 'f';
80       ps[4] = 0;
86       ps[istart++] = '-';
89     ps[istart++] = '0';
90     ps[istart++] = 'E';
94       ps[istart++] = '-';
97       ps[istart++] = '+';
118 	ps[j--] = '0' + (char) exponent_x;
121       ps[j] = '0' + (char) exponent_x;
123       ps[istart++] = '0';
126     ps[istart] = 0;
137     ps[0] = '-';
144     ps[istart++] = '0';
188     c_ptr_start = &(ps[istart]);
199   ps[istart++] = 'E';
202     ps[istart++] = '-';
205     ps[istart++] = '+';
226       ps[j--] = '0' + (char) exponent_x;
229     ps[j] = '0' + (char) exponent_x;
231     ps[istart++] = '0';
234   ps[istart] = 0;
243 bid64_from_string (UINT64 * pres, char *ps
248 bid64_from_string (char *ps
269   while (((*ps == ' ') || (*ps == '\t')) && (*ps))
270     ps++;
273   c = *ps;
278     if ((tolower_macro (ps[0]) == 'i' && tolower_macro (ps[1]) == 'n' &&
279         tolower_macro (ps[2]) == 'f') && (!ps[3] ||
280         (tolower_macro (ps[3]) == 'i' &&
281         tolower_macro (ps[4]) == 'n' && tolower_macro (ps[5]) == 'i' &&
282         tolower_macro (ps[6]) == 't' && tolower_macro (ps[7]) == 'y' &&
283         !ps[8]))) {
288     if (tolower_macro (ps[0]) == 's' && tolower_macro (ps[1]) == 'n' &&
289         tolower_macro (ps[2]) == 'a' && tolower_macro (ps[3]) == 'n') {
300   if ((tolower_macro (ps[1]) == 'i' && tolower_macro (ps[2]) == 'n' &&
301       tolower_macro (ps[3]) == 'f') && (!ps[4] ||
302       (tolower_macro (ps[4]) == 'i' && tolower_macro (ps[5]) == 'n' &&
303       tolower_macro (ps[6]) == 'i' && tolower_macro (ps[7]) == 't' &&
304       tolower_macro (ps[8]) == 'y' && !ps[9]))) {
314   if (tolower_macro (ps[1]) == 's' && tolower_macro (ps[2]) == 'n'
315       && tolower_macro (ps[3]) == 'a' && tolower_macro (ps[4]) == 'n') {
330     ps++;
331     c = *ps;
343   if (*(ps) == '0' || *(ps) == '.') {
345     if (*(ps) == '.') {
347       ps++;
351     while (*ps == '0') {
352       ps++;
360       if (*(ps) == '.') {
365 	  if (!*(ps + 1)) {
371 	  ps = ps + 1;
377       } else if (!*(ps)) {
386   c = *ps;
397       ps++;
398       c = *ps;
449     ps++;
450     c = *ps;
468   ps++;
469   c = *ps;
472     ps++;
473     c = *ps;
485     ps++;
486     c = *ps;