Parsing de fichiers C

**djibril** · 20/05/2009, 14h43

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Philou67430** · 20/05/2009, 14h46

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

**Fabien25C** · 20/05/2009, 14h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ICCIS_CARD_APPLI_FLD = ((DWORD)(1UL << 2))

j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djibril** · 20/05/2009, 15h04

Envoyé par Philou67430

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

ouais, c'est possible.

Peux tu nous printer $CodeFichierC ?

**Fabien25C** · 20/05/2009, 15h06

hum le $CodeFichierC est trop gros.

J'ai jeté un oeil, la ligne que je cherche à avoir entière y apparaît correctement.

**Philou67430** · 20/05/2009, 15h19

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

**djibril** · 20/05/2009, 15h21

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

#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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et maintenant, tout est OK

**Fabien25C** · 20/05/2009, 15h24

Code qui parse $CodeFicherC:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Fabien25C** · 20/05/2009, 15h26

haaaa bah super de 1 ca résoud mon problème, et de 2 je comprend enfin cette option du split

Merci beaucoup Djibril

et philou bien sur

**Fabien25C** · 10/06/2009, 10h29

Salut les gens

bon dernier de dernier problème

désolé mais je gallère vraiment avec ce language :$

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

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djibril** · 10/06/2009, 11h05

Je ne me souviens pas qu'en C il est possible de mettre des commentaires après un dièse

. D'ailleurs le script l'aurais viré si c'était le cas.
Donc que signifie ?

Code c :

Sélectionner tout - Visualiser dans une fenêtre à part

#ifdef USE_CS

**Fabien25C** · 10/06/2009, 11h18

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

et le dernier rempart est l'affichage de ces #ifdef et #endif dans mon fichier texte

**djibril** · 10/06/2009, 11h27

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 c :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

?

**Fabien25C** · 10/06/2009, 11h33

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

**Philou67430** · 10/06/2009, 11h38

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

**djibril** · 10/06/2009, 11h46

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é.

**Fabien25C** · 10/06/2009, 11h57

Merci beaucoup philou je l'avais vu ce module mais ca m'avait pas frappé :p je vai regarder mieux

**djibril** · 10/06/2009, 12h09

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 ??

**Fabien25C** · 10/06/2009, 12h10

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

**djibril** · 10/06/2009, 12h35

Tous est dans les regex.
Décidément, j'aurais fini par faire ton analyseur en entier

. 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à

Parsing de fichiers C

Langage Perl

Discussions similaires

Partager

Partager