Pb Grammaire récursive

C'est fou ,tout ce que l'on peut faire en quelques lignes de Perl6 ...;)


Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/opt/rakudo-star-2016.10/bin/perl6 use v6; #use Grammar::Tracer;   grammar NVL {   rule TOPNVL { <main>* <textfin> } rule main { <text> <nvl> } regex text {:s .+?} rule nvl {:i <nvltxt> <paraIn> <expr1> <comma> <expr2> <paraOut> } regex expr1 {:s .+?} regex expr2 {<nvl>|<expr2txt> } regex expr2txt {.+?} regex textfin {:s .+ } regex comma {',' } regex paraIn {'('} regex nvltxt {:i 'nvl'\s* } regex paraOut {')'} token ws { <!ww> } }   ### Parsing my $cbl = "select nvl(toto,nvl(titi,tata) ) from dual "; say NVL.parse($cbl, rule => 'TOPNVL'); -bash-4.2$

---

le resultat :
｢select nvl(toto,nvl(titi,tata) ) from dual ｣
main => ｢select nvl(toto,nvl(titi,tata)｣
text => ｢select ｣
nvl => ｢nvl(toto,nvl(titi,tata)｣
nvltxt => ｢nvl｣
paraIn => ｢(｣
expr1 => ｢toto｣
comma => ｢,｣
expr2 => ｢nvl(titi,tata｣
expr2txt => ｢nvl(titi,tata｣
paraOut => ｢)｣
textfin => ｢ ) from dual ｣

Le pb, c'est que cela ne marche pas.

on a
main => ｢select nvl(toto,nvl(titi,tata)｣
au lieu de
main => ｢select nvl(toto,nvl(titi,tata))｣

Il manque une parenthèse fermante (que je retrouve dans textfin) ... du coup nvl(titi,tata ne peut pas correspondre à la régle nvl ...

Mais je bloque sur la façon de garder cette parenthèse fermante dans le main...
J'ai peur qu'il s'agisse d'un problème de conception de ma grammaire.
Voilà, si vous avez une idée...

Merci pour votre aide.
Bien cordialement,

Bon, finalement, comme je ne pense pas, je puisse transférer la parenthèse fermante dans main, j'ai pris le partie de gérer cette situation en ajoutant une régle à ma grammaire pour identifier une fonction nvl sans paranthèse fermante ...

Cela donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/opt/rakudo-star-2016.10/bin/perl6 use v6; use Grammar::Tracer;   grammar NVL {   rule TOPNVL { <main>* <textfin> } rule main { <text> <nvl> } regex text {:s .+?} rule nvl {:i <nvltxt> <paraIn> <expr1> <comma> <expr2> <paraOut> } rule nvlinside {:i <nvltxt> <paraIn> <expr1> <comma> <expr2> } regex expr1 {:s .+?} regex expr2 {<nvlinside>|<expr2txt> } regex expr2txt {.+?} regex textfin {:s .+ } regex comma {',' } regex paraIn {'('} regex nvltxt {:i 'nvl'\s* } regex paraOut {')'} token ws { <!ww> } }   ### Parsing my $cbl = "select nvl(toto,nvl(titi,tata) ) from dual "; say NVL.parse($cbl, rule => 'TOPNVL');

---

Le résultat :

｢select nvl(toto,nvl(titi,tata) ) from dual ｣
main => ｢select nvl(toto,nvl(titi,tata)｣
text => ｢select ｣
nvl => ｢nvl(toto,nvl(titi,tata)｣
nvltxt => ｢nvl｣
paraIn => ｢(｣
expr1 => ｢toto｣
comma => ｢,｣
expr2 => ｢nvl(titi,tata｣
nvlinside => ｢nvl(titi,tata｣
nvltxt => ｢nvl｣
paraIn => ｢(｣
expr1 => ｢titi｣
comma => ｢,｣
expr2 => ｢tata｣
expr2txt => ｢tata｣
paraOut => ｢)｣
textfin => ｢ ) from dual ｣


Voilà pb résolu, désolé pour le dérangement ...

Bien cordialement,

Bonsoir,

je ne suis pas sûr de ce que tu cherches à capturer exactement, ni des variations possibles dans ta cible à analyser, mais voici un exemple qui me paraît faire ce que tu désires en utilisant une définition récursive de nvl et un nombre de lignes de Perl 6 encore plus faible.

Code:

---

1 2 3 4 5 6 7

grammar NVL2 { regex TOP { <start-text>? <nvl> <end-text>? } rule nvl { :i nvl \s* '(' <-[()]>+? <nvl>* ')' \s* } regex start-text { ^ .+? } regex end-text { .+? $ } }

---

Ce qui, avec ta chaîne en entrée, me donne l'objet reconnu suivant:

｢select nvl(toto,nvl(titi,tata) ) from dual ｣
start-text => ｢select ｣
nvl => ｢nvl(toto,nvl(titi,tata) ) ｣
nvl => ｢nvl(titi,tata) ｣
end-text => ｢from dual ｣

Bonjour,

Je m'apercois que j'ai oublié de répondre à ta dernière proposition.Faut dire que la grippe ne m'en a pas vraiment laisser l'occasion
Cette nouvelle syntaxe est effectivement intéressante. Notamment parce que la partie "end-text => correspond bien à la fin de l'ordre sql.
Par contre, il me faut extraire également les arguments de la fonction nvl afin pouvoir les utiliser par ailleurs. Je ne vois pas comment les extraire avec cette syntaxe...

Merci beaucoup pour ton aide.
Bien cordialement,

Bonjour,

avec cette grammaire modifiée:

Code:

---

1 2 3 4 5 6 7 8

grammar NVL2 { regex TOP { <start-text>? <nvl> <end-text>? } rule nvl { :i nvl \s* '(' <mot> ',' [<mot>|<nvl>] ')' \s* } rule mot { <-[()]>+? } regex start-text { ^ .+? } regex end-text { .+? $ } }

---

j'obtiens ceci:

｢select nvl(toto,nvl(titi,tata) ) from dual ｣
start-text => ｢select ｣
nvl => ｢nvl(toto,nvl(titi,tata) ) ｣
mot => ｢toto｣
nvl => ｢nvl(titi,tata) ｣
mot => ｢titi｣
mot => ｢tata｣
end-text => ｢from dual ｣

Mais peut-être que cette grammaire plus flexible correspondrait mieux à ton besoin:

Code:

---

1 2 3 4 5 6 7 8

grammar NVL2 { regex TOP { <start-text>? <nvl> <end-text>? } rule nvl { :i nvl \s* '(' [<mot>|<nvl>] ',' [<mot>|<nvl>] ')' \s* } rule mot { <-[()]>+? } regex start-text { ^ .+? } regex end-text { .+? $ } }

---

dans le cas ou le premier argument d'une nvl serait lui-même une nvl imbriquée comme c'est déjà le cas pour le second argument de la nvl de ton exemple.

Par exemple, cela marche aussi avec cette chaîne en entrée: "select nvl(nvl(tutu,tata),nvl(titi,tata) ) from dual ":

｢select nvl(nvl(tutu,tata),nvl(titi,tata) ) from dual ｣
start-text => ｢select ｣
nvl => ｢nvl(nvl(tutu,tata),nvl(titi,tata) ) ｣
nvl => ｢nvl(tutu,tata)｣
mot => ｢tutu｣
mot => ｢tata｣
nvl => ｢nvl(titi,tata) ｣
mot => ｢titi｣
mot => ｢tata｣
end-text => ｢from dual ｣

Il serait peut-être souhaitable de rendre la règle mot plus restrictive, par exemple que des lettres, des chiffres ou caractères souligné avec { \w+? }, mais je ne connais pas les variations possibles de tes données en entrée.

Effectivement, avec ces 2 dernières versions de grammaire, on a la valeur des arguments et une fin d'ordre qui a du sens là, C'est intéressant car cela va me permettre de transformer nvl (expr1,nvl(expr2,expr3)) en coalesce ( expr1,expr2, expr3).
(Dans le cas du nvl, cela n'a pas trop de sens que le 1er argument soit aussi un nvl, mais je retiens la façon de faire. J'ai d'autre cas ou cela va être utile)

Encore merci ... ;)
Bien cordialement,

Bonsoir,

Citation:

---

Envoyé par jeepc

(Dans le cas du nvl, cela n'a pas trop de sens que le 1er argument soit aussi un nvl, mais je retiens la façon de faire. J'ai d'autre cas ou cela va être utile)

---

Je ne savais pas ce que signifiait nvl (et pourtant, on a des bases Oracle au boulot, mais, bon, c'est assez rare que je fasse quelque chose dessus). :oops:

Du coup, j'ai "googlé" et, effectivement, si j'ai bien compris, ça n'a sans doute pas trop de sens pour le premier argument.

Bonne soirée.

Mais, cela va avoir du sens pour d'autres fonctions propriétaire Oracle comme Decode(), par exemple, le but étant de traduire ces fonctions en fonctions SQL standard.

Donc, cela va mettre très utile.
Merci encore.
Bien cordialement,