Doxygen Perl

<<<<<<  Programa Doxigen  Perl  [[[   Filtro   ]]]]   >>>>>>>>>


#include
#include
#include

using namespace std;
#define TAM 170

//definimos variables globales
    char cad[TAM];
    int cont_esp;
    bool flag_coment=false,flag_pal=false,flag_pre=false,flag_class;
int cont=0;


//funcion principal
int main(int  argc, char** argv)
{
  
  
    ifstream entrada;
if(argc>=2)
{
            entrada.open(argv[1], ios::in);
        //    cout<<"parametros"<
    }
    else
    {
        entrada.open("Perl.txt");
      //  cout<<"sin parametros"<
    }
    fstream a;
a.open("Perl2.txt",ios::out);
  
   // ofstream salida("procesado.h");
  //  salida.close();
    flag_class=false;
  
    //primero vemos si existe nuestro archivo
    if(!entrada.fail())
    {
a<<"class "<<"doxygen"<<<"{"<
a<<"public:"<
        while(!entrada.eof())
        {
             entrada.getline(cad,TAM);
if(cad[0]=='#')
{
            int o=1;
a<<"///";
while(cad[o]!=0)
{
            a<
o++;
}
a<
}
else
{
if(cad[0]=='d' && cad[1]=='e' && cad[2]=='f' && cad[3]==' ')
{

                 cont=1;
int o=4;
                 a<<"int ";
while(cad[o]!='(')
{
                 a<
o++;
}
a<
o++;
a<<"int ";
while(cad[o]!=0)
{
                 a<
o++;
}
a<<";"<
o=0;


}
}

        }//while
a<<"};"<
    }
    //sino existe
    else
    cout<<"El archivo no fue encontrado"<
    entrada.close();
   // salida.close();
    system("pause");
    return 0;
}

Entrada y salida del Programa Perl, leeido por el filtro

<<<<<<<  Programa ya en Perl  >>>>>>>>>>