Subversion Repositories 1664

#include "lista.h"

#include <stdarg.h>

void cadena__f(void *scrive(char *, nN), char *cadena, ...)

{

 va_list va_lista;

 va_start(va_lista, cadena);

 nN limite_indise = nN_cuantia__ccadena(cadena);

 n8 cuantia_;

 #define carater_cuantia 32

 char carater[carater_cuantia];

 char *cadena_;

 n8 valua;

 nN alinia;

 n1 bool_esatia;

 char *comensa;

 nN i=0;

 while(i<limite_indise)

 {

  switch(cadena[i])

  {

   default:

    comensa=cadena+i;

    while((cadena[i]!='\\')&&(cadena[i]!='%')&&(i<limite_indise)) { i++; }

    scrive(comensa, (cadena+i)-comensa);

    break;

   case '\\':

    i++;

    switch(cadena[i])

    {

     default:

      comensa=cadena+i++;

      while((cadena[i]!='\\')&&(cadena[i]!='%')&&(i<limite_indise)) { i++; }

      scrive(comensa, (cadena+i)-comensa);

      break;

     case 'n':

      i++;

      carater[0]=0x0a;

      scrive(carater, 1);

      break;

    }

    break;

   case '%':

    i++;

    if(cadena[i]=='.')

    {

     i++;

     bool_esatia=1;

    }

    else

    {

     bool_esatia=0;

    }

    if(cadena[i]=='*')

    {

     i++;

     alinia=va_arg(va_lista, n4); //*__ nN depende de arci

    }

    else

    {

     alinia=0;

    }

    switch(cadena[i])

    {

     case 'x':

      i++;

      valua=va_arg(va_lista, n8);

      cuantia_=asciiexadesimal__n8((n1 *)(carater+(carater_cuantia-1)), valua);

      alinia=(alinia>cuantia_) ? alinia-cuantia_ : 0;

      if(bool_esatia!=0)

      {

       carater[0]='0';

      }

      else

      {

       carater[0]=' ';

      }

      for(; alinia>0; alinia--)

      {

       scrive(carater,1);

      }

      scrive(carater+carater_cuantia-cuantia_, cuantia_);

      break;

     case 'd':

      i++;

      valua=va_arg(va_lista, n8);

      cuantia_=asciidesimal__n8((n1 *)(carater+(carater_cuantia-1)), valua);

      alinia=(alinia>cuantia_) ? alinia-cuantia_ : 0;

      if(bool_esatia!=0)

      {

       carater[0]='0';

      }

      else

      {

       carater[0]=' ';

      }

      for(; alinia>0; alinia--)

      {

       scrive(carater,1);

      }

      scrive(carater+carater_cuantia-cuantia_, cuantia_);

      break;

     case 'c':

      i++;

      carater[1]=(n1)va_arg(va_lista, nN);

      alinia=(alinia>1) ? alinia-1 : 0;

      for(carater[0]=' '; alinia>0; alinia--)

      {

       scrive(carater,1);

      }

      scrive(carater+1, 1);

      break;

     case 's':

      i++;

      cadena_=va_arg(va_lista, char *);

      cuantia_=nN_cuantia__ccadena(cadena_);

      alinia=(alinia!=0) ? alinia : cuantia_;

      cuantia_=(alinia>cuantia_) ? cuantia_ : alinia;

      alinia=(alinia>cuantia_) ? alinia-cuantia_ : 0;

      for(carater[0]=' '; alinia>0; alinia--)

      {

       scrive(carater,1);

      }

      scrive(cadena_, cuantia_);

      break;

    }

    break;

  }

 }

 va_end(va_lista);

}