home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / GPMsym / dtoa.def < prev    next >
Text File  |  1996-08-29  |  1KB  |  37 lines

  1. (****************************************************************)
  2. (*                                                              *)
  3. (*         Gardens Point Modula-2 Library Definition            *)
  4. (*                                                              *)
  5. (*                                                              *)
  6. (*     (c) Copyright 1996 Faculty of Information Technology     *)
  7. (*              Queensland University of Technology             *)
  8. (*                                                              *)
  9. (*     Permission is granted to use, copy and change this       *)
  10. (*     program as long as the copyright message is left intact  *)
  11. (*                                                              *)
  12. (****************************************************************)
  13.  
  14. INTERFACE DEFINITION MODULE DtoA;
  15.   IMPORT IMPLEMENTATION FROM "dtoa.o";
  16. (*
  17.  * Provides an interface to David Gay's dtoa software implemented in C
  18.  *
  19.  * double strtod(const char *s00);
  20.  * char   *dtoa(double d, int mode, int ndigits, int *decpt, char *sign);
  21.  *)
  22.  
  23.   FROM Types  IMPORT Int32;
  24.   FROM SYSTEM IMPORT ADDRESS;
  25.  
  26.   VAR errno : Int32;
  27.   CONST ERANGE = 34;   (* Result too large *)
  28.  
  29.   PROCEDURE strtod(VAR s00 : ARRAY OF CHAR) : REAL;
  30.  
  31.   PROCEDURE dtoa(d       : REAL;
  32.          mode    : Int32;
  33.          ndigits : Int32;
  34.            VAR decpt : Int32;
  35.            VAR sign  : BOOLEAN) : ADDRESS;
  36. END DtoA.
  37.