home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / GPMsym / frexp.def < prev    next >
Text File  |  1996-10-10  |  2KB  |  51 lines
  1. (*
  2.  * =========== macro processed output from MPP  ==========
  3.  *
  4.  * input file  : frexp.dpp
  5.  * time stamp  : 1996 Aug 29 11:51:27
  6.  *
  7.  * output file : frexp.def
  8.  * created at  : 1996 Oct 10 16:21:31
  9.  *
  10.  * options ... :  -Dos2
  11.  *
  12.  * =======================================================
  13.  *)
  14.  
  15. (****************************************************************)
  16. (*                                                              *)
  17. (*         Gardens Point Modula-2 Library Definition            *)
  18. (*                                                              *)
  19. (*                                                              *)
  20. (*     (c) Copyright 1996 Faculty of Information Technology     *)
  21. (*              Queensland University of Technology             *)
  22. (*                                                              *)
  23. (*     Permission is granted to use, copy and change this       *)
  24. (*     program as long as the copyright message is left intact  *)
  25. (*                                                              *)
  26. (****************************************************************)
  27.  
  28. INTERFACE DEFINITION MODULE FREXP;
  29.  
  30. (* ************************************************************* *)
  31. (*                                                               *)
  32. (* Interface to the standard C functions which manipulate REALs  *)
  33. (* there is no need to specify that the implementation is in -lc *)
  34. (*                                                               *)
  35. (* ************************************************************* *)
  36.  
  37.   FROM Types IMPORT Int32;
  38.   (*  Required for exponents of Real Numbers, as 64 bit exponents not
  39.       allowed on DEC Alpha *)
  40.  
  41.   PROCEDURE frexp(val : REAL; VAR exp : Int32) : REAL;
  42.   (* returns the mantissa, and the exponent in exp *)
  43.  
  44.   PROCEDURE ldexp(val : REAL; exp : Int32) : REAL;
  45.   (* returns val * 2^exp *)
  46.  
  47.   PROCEDURE modf(val : REAL; VAR iPart : REAL) : REAL;
  48.   (* returns signed fraction part, and integer part in iPart *)
  49.  
  50. END FREXP.
  51.