home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / SYSTEM / FLT.C < prev    next >
C/C++ Source or Header  |  1994-10-25  |  465b  |  28 lines
  1. #include "header.h"
  2. #include <string.h>
  3.  
  4. FLT c_flt_aset(FLT f, INT bit, BOOL val)
  5. {
  6.     sbi_aset(&f, bit, val, 32);
  7.     return f;
  8. }
  9.  
  10. BOOL c_flt_aget(FLT f, INT bit)
  11. {
  12.     return sbi_aget(&f, bit, 32);
  13. }
  14.  
  15. INT c_flt_str_in(FLT f, char *store_in)
  16. {
  17.   sprintf(store_in,"%g",f);
  18.   return(strlen(store_in));
  19. }
  20.  
  21. INT c_flt_str_in_prec(FLT f, INT prec, char *store_in)
  22. {
  23.   char buf[20];
  24.   sprintf(buf,"%%.%dg",prec);
  25.   sprintf(store_in,buf,f);
  26.   return(strlen(store_in));
  27. }
  28.