Discussion :

[vincent.mbg]

Bonjour,

je voudrais savoir s'il y a un moyen d'utiliser des regex compilées avec Tcl

En fait j'ai une fonction qui va être appelée très souvent et j'imagine que tcl va recompiler les regex à chaque appelle de la fonction. Pour éviter cette perte de temps, je voudrais compiler mes regex une bonne fois pour toute et les utiliser après.

J'aurais aussi voulu savoir s'il existe une commande pour récupérer la position d'un modèle dans un texte.

exemple :

Code :

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

1
2
3
4
 
%set pos [trouveregex t salut ]
%puts pos
4

merci d'avance.

[Canvas]

Bonsoir,

1)
Pour répondre à la première question, il faudrait un peu plus de précisions
sur le code. Car grâce au compilateur de bytecode (inclus depuis une décennie),
Tcl-Tk ne recompile pas forcément les instructions à chaque appel de fonctions.

Idéalement, quand c'est possible, il est préférable d'utiliser string match
et string first (plus performant) au lieu de regexp/regsub.

2)
Si il n'y a qu'un seul caractère de ce type à trouver dans la chaîne,
on peut employer string first:

Code :

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

1
2
 
set pos [string first t salut]

Cordialement,

----
Canvas

[vincent.mbg]

Bonjour,

merci beaucoup pour ces informations précieuses.
En fait, je veux réécrire un widget python/tkinter en tcl/tk.

le type de regex que je veux utiliser sont celle-ci :

Code :

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

1
2
3
4
 
[-+]?([0-9]+\.?[0-9]*|\.[0-9]+)([eE][-+]?[0-9]+)?
'[^'\n]*(\\.[^'\n]*)*'?
--[^\n]

Dans le script Python, j'ai déjà ma liste de regex pré-compilées, j'extraie le texte d'un widget Text.

je recherche les nombres, chaînes de caractère, commentaire et ajoute les tags correspondant au widget text .

script python :

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
17
18
19
20
21
22
23
 
    def color_text( self, event ) :
        """
        Coloration syntaxique. 
        """
        zone_de_text = self.zone_de_text
        zone_de_text.tag_remove( 'number',  '0.0', 'end' )
        zone_de_text.tag_remove( 'comment', '0.0', 'end' )
        zone_de_text.tag_remove( 'string',  '0.0', 'end' )
        zone_de_text.tag_remove( 'keyword', '0.0', 'end' )
 
        text = zone_de_text.get( '0.0', 'end' )
        for tag, regex in self.virtualconsol.regexs.items() : # dico { tag => regex, ... }
            lastPos = 0
            while 1 :
                match = regex.search( text, lastPos )
                if match is None :
                    break
 
                lastPos = match.end()
                zone_de_text.tag_add( tag,
                             '%s + %d chars' % ( 0.0, match.start() ),
                             '%s + %d chars' % ( 0.0, lastPos ) )

Pour le code tcl/tk c'est un peu différent j'utilise text search :

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
17
18
 
 
$self.zone_de_text insert end {\npour un teste 45.0  test 5 test -2e4} 
set regexs(number) {[-+]?([0-9]+\.?[0-9]*|\.[0-9]+)([eE][-+]?[0-9]+)?}
 
bind $self.zone_de_text <KeyPress> {
    # Coloration syntaxique. 
    global $self.zone_de_text $self.button 
 
    $self.zone_de_text tag remove number  0.0 end
    $self.zone_de_text tag remove comment 0.0 end
    $self.zone_de_text tag remove _string 0.0 end
    $self.zone_de_text tag remove keyword 0.0 end 
 
 
    set size 0
    set var [$self.zone_de_text search -count size -regexp  $regexs(number) 1.0 end]
    if $size>0 { $self.zone_de_text tag add number $var "$var + $size chars" }

idéalement il me faudrait ceci pour la regex nombre :

Code :

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

1
2
 
\b[-+]?([0-9]+\.?[0-9]*|\.[0-9]+)([eE][-+]?[0-9]+)?\b

mais avec des \b ou \\b, (caractères blancs) ça ne fonctionne pas.

Ce sont mes premières lignes de code tcl/tk. J'imagine qu'elles doivent être maladroite et que je peux procéder plus efficacement.

Cordialement