Subversion Repositories 1664

#include "tipodef.h"

nN nN_cuantia_brasetida__cadena(n1 * cadena, n1 abri, n1 clui)

{

 nN contador=1;

 nN cuantia;

 cadena++;

 if(abri!=clui)

 {

  while((*cadena!=clui)&&(*(cadena-1)!='\\'))

  {

   if (*cadena==abri)

   {

    cuantia=nN_cuantia_brasetida__cadena(cadena, abri, clui);

    cadena+=cuantia;

    contador+=cuantia;

   }

   else

   {

    contador++;

    cadena++;

   }

  }

 }

 else

 {

  while(*cadena++!=clui)

  {

   contador++;

  }

 }

 return contador+1;

}