/*#include "lcd.h"
// putchar est standard C ANSI et n'existe pas sur C18 !
int putchar(char a)
{
    putcLcd(a);
    return 0;
}
*/
// ftoa n'existe pas sur C18

// prec indique la prÈcison (nb de chiffrers aprËs la virgule) 0 pour avoir le maximum
// si format ='s' -> affichage scientifique 1.6666666// ‡ la place de =*E3
// si format ='f' -> affichage classique 1666.6666

unsigned char *ftoa (float x, unsigned char *str,char prec,char format)
{
/* converts a floating point number to an ascii string */
/* x is stored into str, which should be at least 30 chars long */
unsigned char *adpt;
int ie, i, k, ndig, fstyle;
double y;
adpt=str;
//if (nargs() != 7)  IEHzap("ftoa  ");
ndig = ( prec<=0) ? 7 : (prec > 22 ? 23 : prec+1);
if  (format == 'f' || format == 'F')
 fstyle = 1;
else
 fstyle = 0;
/* print in e format unless last arg is 'f' */
ie = 0;
/* if x negative, write minus and reverse */
if ( x < 0)
  {
  *str++ = '-';
  x = -x;
  }

/* put x in range 1 <= x < 10 */
if (x > 0.0) while (x < 1.0)
  {
  x *= 10.0;        // ‡ la place de =*
  ie--;
  }
while (x >= 10.0)
  {
  x = x/10.0;
  ie++;
  }

/* in f format, number of digits is related to size */
if (fstyle) ndig += ie;             // ‡ la place de =+

/* round. x is between 1 and 10 and ndig will be printed to
   right of decimal point so rounding is ... */
for (y = i = 1; i < ndig; i++)
  y = y/10.;
x += y/2.;                          // ‡ la place de =+
if (x >= 10.0) {x = 1.0; ie++;} /* repair rounding disasters */
/* now loop.  put out a digit (obtain by multiplying by
  10, truncating, subtracting) until enough digits out */
/* if fstyle, and leading zeros, they go out special */
if (fstyle && ie<0)
  {
  *str++ = '0'; *str++ = '.';
  if (ndig < 0) ie = ie-ndig; /* limit zeros if underflow */
  for (i = -1; i > ie; i--)
    *str++ = '0';
  }
for (i=0; i < ndig; i++)
  {
  k = x;
  *str++ = k + '0';
  if (i == (fstyle ? ie : 0)) /* where is decimal point */
    *str++ = '.';
  x -= (y=k);               // ‡ la place de =-
  x *= 10.0;                // ‡ la place de =*
  }

/* now, in estyle,  put out exponent if not zero */
if (!fstyle && ie != 0)
  {
  *str++ = 'E';
  if (ie < 0)
    {
    ie = -ie;
    *str++ = '-';
    }
  for (k=100; k > ie; k /=10);  // ‡ la place de =/
  for (; k > 0; k /=10)         // ‡ la place de =/
       {
       *str++ = ie/k + '0';
       ie = ie%k;
       }
  }
*str = '\0';
return (adpt);
}