home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d059 / browser.lha / Browser / change.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-04-01  |  644 b   |  36 lines
  1. /******  ChangeToString()   Mark E. Schretlen  87-01-17
  2.  
  3.            - converts a variable of type long
  4.                to a string suitable for Amiga Text() subroutines for
  5.                   window output.
  6.  
  7. *******/
  8.  
  9. #include <math.h>
  10. #include <string.h>
  11.  
  12. char *ChangeToString(x)
  13.  
  14. long x;
  15.  
  16. {
  17.    double fi;
  18.    int dummy,sign;
  19.    static char buffer[70] = "\0";
  20.    char *p;
  21.  
  22.    sign = dummy = 0;
  23.    fi = (double)x;
  24.  
  25.  
  26.    strcpy(buffer,"");
  27.    p = &buffer[0];
  28.  
  29.                  /* Convert long to string with unix "fcvt" */
  30.  
  31.    strins(p,fcvt(fi,0,&dummy,&sign));
  32.    if (sign) strins(p,"-");      /*  insert neg. sign if necessary */
  33.  
  34.    return(p);
  35. }
  36.