Subversion Repositories 1664

#include "tipodef.h"

nN nN__desimal_cadena(n1 *cadena, nN cuantia)

{

 nN valua=0;

 nN i;

 n1 negativa=0;

 if (*cadena=='-')

 {

  negativa=1;

  cadena++;

 }

 if(cuantia>0)

 {

  valua=(*cadena++)&0x0f; cuantia--;

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

  {

   valua=(valua<<3)+(valua<<1)+((*cadena++)&0x0f);

  }

 }

 if(negativa!=0)

 {

  valua=(valua^(-1))+1;

 }

 return valua;

}