Subversion Repositories 1664

#include "tipodef.h"

#include <stdio.h>

void debug_out(n1 *cadena,nN cuantia);

fl2 fl2__cadena(n1 *cadena,nN cuantia)

{

 n1 sinia_entero=0,sinia_potia=0;

 if (*cadena=='-') { cadena++; cuantia--; sinia_entero=1; }

 n1 *cadena_frato=0,*cadena_potia=0;

 nN cuantia_cadena_frato,cuantia_cadena_entero,cuantia_cadena_potia;

 nN indise;

 for(indise=0;indise<cuantia;indise++)

 {

  if(cadena[indise]=='.'){cadena_frato=cadena+indise+1; break;}

 }

 if (cadena_frato!=0)

 {

  for(cuantia_cadena_frato=0;cuantia_cadena_frato<(cuantia-(cadena_frato-cadena));cuantia_cadena_frato++)

  {

   if(cadena_frato[cuantia_cadena_frato]=='E')

   {

    cadena_potia=cadena_frato+cuantia_cadena_frato+1;

    if(*cadena_potia=='-') { cadena_potia++; sinia_potia=1; }

    cuantia_cadena_potia=cuantia-(cadena_potia-cadena);

    break;

   }

  }

 }

 cuantia_cadena_entero=-(cadena-cadena_frato)-1;

 cuantia_cadena_entero=3;

 fl2 fl=0.0;

 fl=fl2__cadena_desimal(cadena,cuantia_cadena_entero);

 printf("%f\n",fl);

 return fl;

}

void debug_out(n1 *cadena,nN cuantia)

{

 nN i;

 for(i=0;i<cuantia;i++)

 {

  putchar(cadena[i]);

 }

}