home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / spiff / part01 / floatrep.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-10  |  758 b   |  33 lines
  1. /*                        Copyright (c) 1988 Bellcore
  2. **                            All Rights Reserved
  3. **       Permission is granted to copy or use this program, EXCEPT that it
  4. **       may not be sold for profit, the copyright notice must be reproduced
  5. **       on copies, and credit should be given to Bellcore where it is due.
  6. **       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  7. */
  8.  
  9.  
  10. #ifndef lint
  11. static char rcsid[]= "$Header: floatrep.c,v 1.1 88/09/15 11:34:00 daniel Rel $";
  12. #endif
  13.  
  14. #include "misc.h"
  15. #include "floatrep.h"
  16.  
  17. R_float
  18. R_makefloat()
  19. {
  20.     R_float retval;
  21.  
  22.     retval = Z_ALLOC(1,struct R_flstr);
  23.     retval->mantissa = Z_ALLOC(R_MANMAX,char);
  24.     return(retval);
  25. }
  26.  
  27. R_getexp(ptr)
  28. R_float ptr;
  29. {
  30.     return(ptr->exponent);
  31. }
  32.  
  33.