1*61e56760Schristos /* $NetBSD: strtorf.c,v 1.3 2011/03/20 23:15:35 christos Exp $ */
27684d5e0Skleink
37684d5e0Skleink /****************************************************************
47684d5e0Skleink
57684d5e0Skleink The author of this software is David M. Gay.
67684d5e0Skleink
77684d5e0Skleink Copyright (C) 1998, 2000 by Lucent Technologies
87684d5e0Skleink All Rights Reserved
97684d5e0Skleink
107684d5e0Skleink Permission to use, copy, modify, and distribute this software and
117684d5e0Skleink its documentation for any purpose and without fee is hereby
127684d5e0Skleink granted, provided that the above copyright notice appear in all
137684d5e0Skleink copies and that both that the copyright notice and this
147684d5e0Skleink permission notice and warranty disclaimer appear in supporting
157684d5e0Skleink documentation, and that the name of Lucent or any of its entities
167684d5e0Skleink not be used in advertising or publicity pertaining to
177684d5e0Skleink distribution of the software without specific, written prior
187684d5e0Skleink permission.
197684d5e0Skleink
207684d5e0Skleink LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
217684d5e0Skleink INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
227684d5e0Skleink IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
237684d5e0Skleink SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
247684d5e0Skleink WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
257684d5e0Skleink IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
267684d5e0Skleink ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
277684d5e0Skleink THIS SOFTWARE.
287684d5e0Skleink
297684d5e0Skleink ****************************************************************/
307684d5e0Skleink
317684d5e0Skleink /* Please send bug reports to David M. Gay (dmg at acm dot org,
327684d5e0Skleink * with " at " changed at "@" and " dot " changed to "."). */
337684d5e0Skleink
347684d5e0Skleink #include "gdtoaimp.h"
357684d5e0Skleink
367684d5e0Skleink void
377684d5e0Skleink #ifdef KR_headers
ULtof(L,bits,expt,k)38*61e56760Schristos ULtof(L, bits, expt, k) ULong *L; ULong *bits; Long expt; int k;
397684d5e0Skleink #else
40*61e56760Schristos ULtof(ULong *L, ULong *bits, Long expt, int k)
417684d5e0Skleink #endif
427684d5e0Skleink {
437684d5e0Skleink switch(k & STRTOG_Retmask) {
447684d5e0Skleink case STRTOG_NoNumber:
457684d5e0Skleink case STRTOG_Zero:
467684d5e0Skleink *L = 0;
477684d5e0Skleink break;
487684d5e0Skleink
497684d5e0Skleink case STRTOG_Normal:
507684d5e0Skleink case STRTOG_NaNbits:
51*61e56760Schristos L[0] = (bits[0] & 0x7fffff) | ((expt + 0x7f + 23) << 23);
527684d5e0Skleink break;
537684d5e0Skleink
547684d5e0Skleink case STRTOG_Denormal:
557684d5e0Skleink L[0] = bits[0];
567684d5e0Skleink break;
577684d5e0Skleink
587684d5e0Skleink case STRTOG_Infinite:
597684d5e0Skleink L[0] = 0x7f800000;
607684d5e0Skleink break;
617684d5e0Skleink
627684d5e0Skleink case STRTOG_NaN:
637684d5e0Skleink L[0] = f_QNAN;
647684d5e0Skleink }
657684d5e0Skleink if (k & STRTOG_Neg)
667684d5e0Skleink L[0] |= 0x80000000L;
677684d5e0Skleink }
687684d5e0Skleink
697684d5e0Skleink int
707684d5e0Skleink #ifdef KR_headers
strtorf(s,sp,rounding,f)717684d5e0Skleink strtorf(s, sp, rounding, f) CONST char *s; char **sp; int rounding; float *f;
727684d5e0Skleink #else
737684d5e0Skleink strtorf(CONST char *s, char **sp, int rounding, float *f)
747684d5e0Skleink #endif
757684d5e0Skleink {
76*61e56760Schristos static CONST FPI fpi0 = { 24, 1-127-24+1, 254-127-24+1, 1, SI };
77*61e56760Schristos CONST FPI *fpi;
78*61e56760Schristos FPI fpi1;
797684d5e0Skleink ULong bits[1];
80*61e56760Schristos Long expt;
817684d5e0Skleink int k;
827684d5e0Skleink
837684d5e0Skleink fpi = &fpi0;
847684d5e0Skleink if (rounding != FPI_Round_near) {
857684d5e0Skleink fpi1 = fpi0;
867684d5e0Skleink fpi1.rounding = rounding;
877684d5e0Skleink fpi = &fpi1;
887684d5e0Skleink }
89*61e56760Schristos k = strtodg(s, sp, fpi, &expt, bits);
90ab625449Schristos if (k == STRTOG_NoMemory)
91ab625449Schristos return k;
92*61e56760Schristos ULtof((ULong*)f, bits, expt, k);
937684d5e0Skleink return k;
947684d5e0Skleink }
95