Parsing de fichiers C

Version imprimable

Voir 40 message(s) de cette discussion en une page

Code:

1
2
3
4
5
6
7
my @define = $CodeFichierC =~ m{
  ^\s*            # La ligne commence par un espace ou non
  \#define        # suivi de #define
  \s*             # espace ou non
  ([^\n]+)     # contenu define
  \n              # se termine par un retour chariot
}mgix;

ou simplement d'après Philou67430

Code:

1
2
3
4
5
6
my @define = $CodeFichierC =~ m{
  ^\s*            # La ligne commence par un espace ou non
  \#define        # suivi de #define
  \s*             # espace ou non
  (.*)$     # contenu define
}mgix;

20/05/2009, 14h46
Philou67430

Ceci me laisse penser que le problème se situe en amont...
20/05/2009, 14h49
Fabien25C
J'avais essayé le "+" à la place de "*" mais ca ne fonctionne pas non plus.
Enfin ca fonctionne mais quand j'ouvre le fichier texte au lieu d'avoir
Code:

1 2 ICCIS_CARD_APPLI_FLD = ((DWORD)(1UL << 2))
j'ai
Code:

1 2 ICCIS_CARD_APPLI_FLD = ((DWORD)(1UL
Alors je sais pas du tout de quoi ca peut venir :/ j'ai essayé avec un autre editeur de texte au cas ou (assez improbable mais bon...).

J'ai également essayé la solution de philou, mais toujours pareil 8O
20/05/2009, 15h04
djibril

Citation:

Envoyé par Philou67430

Ceci me laisse penser que le problème se situe en amont...

ouais, c'est possible.

Peux tu nous printer $CodeFichierC ?
20/05/2009, 15h06
Fabien25C

hum le $CodeFichierC est trop gros.

J'ai jeté un oeil, la ligne que je cherche à avoir entière y apparaît correctement.
20/05/2009, 15h19
Philou67430

Peux-tu fournir :
- le code qui parse $CodeFichierC
- les 3 lignes avant et après la ligne à matcher dans $CodeFichierC

bon, je sais d'ou vient ton souci, je viens de tester le script.
1- La regex est OK
Code:

1 2 3 4 5 6 7 my @define = $CodeFichierC =~ m{ ^\s* # La ligne commence par un espace ou non \#define # suivi de #define \s* # espace ou non ([^\n]+)\s* # contenu define \n # se termine par un retour chariot }mgix;
2- Le souci est au niveau du split
Code:

1 2 3 4 5 6 # Dans le hash, la cle sera le nom d'un define et la valeur celle du define. my %VariableDefine; foreach my $Define (@define) { my ( $var, $value ) = split( /\s+/, $Define ); $VariableDefine{$var} = $value || ''; }
On supposait que les define allaient toujours être du style

Citation:

#define NOM_VARIBALE_SANS_ESPACE VALEUR_SANS_ESPACE

Du coup, le split coupait en fonction des espaces et on pouvait donc stocker dans $var NOM_VARIABLE_SANS_ESPACE et dans $value VALEUR_SANS_ESPACE.

Or dans ce cas particulier, VALEUR_SANS_ESPACE a des espaces.

ICCIS_CARD_STATUS_FLD ((DWORD)(1UL << 0))
en rouge, c'est $var et en bleue $value :lol:

Pour éviter ce genre de souci, on va dire à Perl de couper en 2 morceaux maximum et on sera sûr qu'il y ait tout dans $value 8-)

Code:

my ( $var, $value ) = split( /\s+/, $Define, 2 );

Et maintenant, tout est OK :ccool:

20/05/2009, 15h24
Fabien25C

Code qui parse $CodeFicherC:

Code:

my $CodeFichierC = slurp "pub_serv.h";

(ai-je bien compris? :p)

Pour ce qui est de la ligne à matcher, c'est un ensemble de #define qui sont à la suite que je veux récupérer dans le fichier texte mais dont je n'ai qu'une partie.
20/05/2009, 15h26
Fabien25C

haaaa bah super de 1 ca résoud mon problème, et de 2 je comprend enfin cette option du split :D
Merci beaucoup Djibril :) et philou bien sur :)

:ccool:

Salut les gens :)

bon dernier de dernier problème :oops: désolé mais je gallère vraiment avec ce language :$

J'ai de la compilation conditionelle dans certains de mes enums

exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 typedef enum { C_CARD, CK_CARD, SE_SHUTTER, EN_SHUTTER, AP_CARD #ifdef USE_CS , PEND_CARD_ON_ANTEN // 5 , RES_CARD_ON_ANTEN , GET_ACT_ANTEN_MAP = 0x09 // replaces GET_ANTENNA_STATUS , SET_ANTENNA_MAP = 0x0A // replaces SET_ANTENNA_ON/OFF #endif /* USE_CS */ } READ_API_MD;
Dans mon fichier texte je retrouve le #idef juste après le AP_CARD (- AP_CARD#ifdefUSE_CLESS = 4) et le #endif après SET_ANTENNA_MAP (- SET_ANTENNA_MAP = 0x0A#endif)

Merci d'avance :(

10/06/2009, 11h05
djibril

Je ne me souviens pas qu'en C il est possible de mettre des commentaires après un dièse 8O. D'ailleurs le script l'aurais viré si c'était le cas.
Donc que signifie ?

Code:

#ifdef USE_CS
10/06/2009, 11h18
Fabien25C

Je n'en suis pas certain, mais je pense que c'est "si USE_CS => vrai alors on a d'autres constantes qui entrent en jeu"
Après moi au niveau du header c'est pas moi qui l'ai écrit donc je connais pas tout le fonctionnement, moi je veux juste pouvoir analyser ce fichier de bas en haut :P et le dernier rempart est l'affichage de ces #ifdef et #endif dans mon fichier texte :)

Comme on te l'a dit dans les posts précédent, on entre là dans les cas particulier. Alors dit nous ce que tu veux ?
Que le script vire les lignes commençant par #ifdef et #endif et donc au final, tu travaillerais sur un header ressemblant à ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 typedef enum { C_CARD, CK_CARD, SE_SHUTTER, EN_SHUTTER, AP_CARD , PEND_CARD_ON_ANTEN // 5 , RES_CARD_ON_ANTEN , GET_ACT_ANTEN_MAP = 0x09 // replaces GET_ANTENNA_STATUS , SET_ANTENNA_MAP = 0x0A // replaces SET_ANTENNA_ON/OFF } READ_API_MD;
?

10/06/2009, 11h33
Fabien25C

ce que je voudrais c'est que #ifdef et #endif ne s'affiche pas dans mon fichier texte d'extraction.
10/06/2009, 11h38
Philou67430

Mais je suppose qu'il faut que le contenu entre #ifdef et #endif ne s'affiche que si la condition est vraie... de même qu'il faut traiter #else, #elif ...
Ca devient franchement compliqué.

Je crois en fait qu'il existe un module qui wrappe le préprocesseur C... je vais chercher

Edit : voici une piste Text::CPP
10/06/2009, 11h46
djibril

C'est comme tu veux, mais on t'avait prévenu. Quand tu te lances dans ce genre de script, il faut t'attendre à gérer tous les cas particulier. C'est ce que font tous les éditeurs de texte, ou outils de développement.
On commence à réfléchir sur tous les cas à gérer avant de se lancer dans le code ;).
Pour ton cas, s'il suffit de virer tout ce qui commence par un dièse jusqu'à la fin de la ligne, c pas très compliqué.
10/06/2009, 11h57
Fabien25C

Merci beaucoup philou je l'avais vu ce module mais ca m'avait pas frappé :p je vai regarder mieux :)
10/06/2009, 12h09
djibril

Citation:

Envoyé par Fabien25C

ce que je voudrais c'est que #ifdef et #endif ne s'affiche pas dans mon fichier texte d'extraction.

tu ne réponds pas à ma question, donc je me répète :
Ton code donne ceci :
READ_API_MD
- C_CARD = 0
- CK_CARD = 1
- SET_ANTENNA_MAP = 0x0A#endif
- GET_ACT_ANTEN_MAP = 0x09
- AP_CARD#ifdefUSE_CS = 4
- RES_CARD_ON_ANTEN = 6
- SE_SHUTTER = 2
- EN_SHUTTER = 3
- PEND_CARD_ON_ANTEN = 5

que veux tu à la place ??
10/06/2009, 12h10
Fabien25C

Il faudrait que j'obtienne

READ_API_MD
- C_CARD = 0
- CK_CARD = 1
- SET_ANTENNA_MAP = 0x0A
- GET_ACT_ANTEN_MAP = 0x09
- AP_CARD = 4
- RES_CARD_ON_ANTEN = 6
- SE_SHUTTER = 2
- EN_SHUTTER = 3
- PEND_CARD_ON_ANTEN = 5

Tout ca sauf #ifdef et #endif :)

Tous est dans les regex.
Décidément, j'aurais fini par faire ton analyseur en entier :mouarf:. A ce rythme, je vais finir par en faire un module CPAN histoire de le faire partager.

Bon, dans ton script, tu dois avoir ces 2 lignes de codes
Code:

1 2 3 # On enleve les retour chariot et espace $NomEnum =~ s{[\n\s]}{}g; $ContenuBloc =~ s{[\n\s]}{}g;
juste avant, rajoutes ceci :
Code:

1 2 3 4 5 6 # On vire les lignes #ifdef, #endif, etc my @DieseAvirer = qw / #ifdef #endif /; my $RegexDieseAVirer = join ( '|', @DieseAvirer); $ContenuBloc =~ s{(?:$RegexDieseAVirer)\s*[^\n]*$}{}mgi;
ce dernier code te permet de virer toutes les chaines commençant par #ifdef, #endif jusqu'au retour chariot.
Si tu as d'autres cas comme le précisé philou notamment #else, #elif, tu peux les rajouter dans le tableau @DieseAvirer.

Voilà

Voir 40 message(s) de cette discussion en une page