sinclar a écrit :


Guimauve2:
Mon premier but est de retirer simplement les #ifdef et leur contenu.
Cependant si dans un deuxième temps l'outil peut devenir un peu plus intelligent... pourquoi pas! En effet dans la majorité des cas je rencontre des 'XXX' définis. Ainsi je me disais qu'il serait bien avant de supprimer du code de vérifier que tel #ifdef XXX correspond bien à tel #endif //XXX (voire meme vérifier qu'un #endif correspondant existe)

tamiel:
Je suis d'accord avec toi sur les risques.
Cependant ce n'est pas vraiment la situation que je rencontre, mes #ifdef sont ici un bricolage qui permet d'utiliser le code avec un vieux compilateur et je n'en ai plus besoin par la suite. Cette manip a pour but de me simplifier la vie temporairement et son résultat n'est pas sauvegardé en base.

#!/usr/bin/perl -w



use strict;



my %definitions;

my $nomFichier = "fichierC.txt";

my $ligne;

my @tAffichage;

my $onEntreDansLeIf = 1;

my $niveauDeIf = 0;

my $ifPresent = 0;

my $ifAncien = 0;

my @tIfEntree; 

my $element;

my $pasOK = 0;

my $niveauPasOK = 99999;



open(FP, $nomFichier) || die("Erreur");

while($ligne = <FP>) {

  chomp($ligne);

  

  if($ligne =~ /^#define ([^\s]+) ([^\s+])$/) {

    $definitions{$1} = $2;

    push @tAffichage, $ligne;

  } elsif($ligne =~ /^#ifdef ([^\s]+)$/) {

  		 $niveauDeIf++;

		 if(exists($definitions{$1})) {

			# La définition existe

			$tIfEntree[$niveauDeIf] = 1;

		 } else {

		 	# La définition n'existe pas

			$tIfEntree[$niveauDeIf] = 0;

			$pasOK = 1;

			$niveauPasOK = $niveauDeIf;

		 }

   } elsif($ligne =~ /^#endif/) {

			if($niveauDeIf == $niveauPasOK) {

				$pasOK = 0;

			}

			$niveauDeIf--;	

			

	} else {

		if(($tIfEntree[$niveauDeIf] && !$pasOK) || $niveauDeIf == 0) {

			push @tAffichage, $ligne;

		}

	}

}



foreach $element (@tAffichage) {

   print $element."\n";

}



close(FP);

#!/usr/bin/gawk -f



BEGIN {

    niveau_imbrication = 0

}





/^#ifdef/ {

    niveau_imbrication += 1

}



  !/^#ifdef.*$/ && !/^#endif.*$/ && niveau_imbrication == 0 {

    print $0

}



/^#endif/ {

    niveau_imbrication -= 1

}

Guimauve2 a écrit :


Peut-être, mais que faire si le macro n'est pas défini? Mon code le gère, ça!

sinclar a écrit :


Merci à tous!

Je teste tout ça demain!!

ps:
J'avais pensé à sed, mais je l'avais vu en tant que traitement ligne/ligne ce qui ne convenait pas. Mais si effectivement on lui fait absorber les fins de ligne ça peut le faire!!

Kangourou a écrit :




Attend t'en va pas, j'ai dis que j'avais pas tout compris et je vais pas en dormir

Enfin sinon awk fais du traitement ligne par ligne et ça a l'air de convenir, en seulement 8 lignes (je compte pas les } qui ferment les blocs comme du code).
Le code de guimauve fait egalement du traitement ligne par ligne (while($ligne = <FP>))
En fait je vois mal comment faire autrement