version-8-08
André Connes, andre.connes@toulouse.iufm.fr
Historique;
Ce document essaye de préciser les contraintes que nous souhaitons respecter lors de l'écriture (et/ou modification) de fichiers Tcl/Tk afin d'assurer une meilleure maintenance et lisibilité du code produit. Dans une seconde partie, nous précisons les contraintes liées au courriel échangé sur la liste béta relative au groupe “le_terrier”. Enfin la dernière partie décrit le “à faire” tel qu'évoqué lors des RMLL (Rencontres Mondiales du Logiciel Libre) 2002 à Bordeaux.
Il ne s'agit pas de contraintes dans le but d'ennuyer le développeur bénévole.
Il s'agit de respecter quelques règles simples qui, dans le passé, ont permis une relecture aisée du code produit.
Car une application nait, vit par la volonté de différents développeurs.
Mais elle meurt si elle est illisible.
Enfin, la lisibilité est source d'apprentissage.
Développer un programme c'est écrire du code avec l'intention de communiquer avec des personnes plutôt qu'avec des machines !
Les commentaires donnent des indications au lecteur mais sont ignorées du calculateur (sauf si ce sont des directives pour l'interpréteur).
Bien documenter le code par des commentaires est difficile mais c'est une nécessité.
Commentons sans excès, mais commentons, les parties difficiles à comprendre.
Évitons les commentaires
set i [expr $i - 1] ;# passer à l'élément suivant
set i [expr $i + 1] ;# ajouter 1 à la variable i
Préférons donc
set i [expr $i + 1] ;# passer à l'individu suivant
encore mieux
incr $i ;# passer à l'individu suivant
Documentons les procédures en précisant :
Exemple
# PutManChapter --
#
# Put a single manual chapter, with title, properly tagged, into
# both the side panel (titles only) and the main panel (titles + text).
#
# Arguments:
# tagno Tag label, only used internally to connect panels "side"
# and "main".
# text The name of the chapter = link title appearing in "side".
# chapter The plain text of the chapter (or part of it).
#
proc PutManChapter {tagno text chapter} {
global frq colours fonts
# creates a button in the "side" panel, carrying a keyword
# which is searched for (command!) in the "main" panel if pressed.
Tout programme contient deux sortes de symboles : les premiers appartiennent au langage, les seconds sont les identifieurs.
Les premiers peuvent être un caractère spécial ou une paire de caractères comme
+ - ! == != > < { } [ ] # ;# etc.
ou un mot réservé comme
if else elsif while proc etc.
Les identifieurs peuvent être des identifieurs standard comme
puts gets set pack frame etc.
ou des identifieurs définis par l'utilisateur.
Le choix des identifieurs définis par l'utilisateur est fondamental : un bon choix rend le programme plus facile à lire, à comprendre, à modifier, à corriger. Un identifieur long n'est pas nécessairement le meilleur. Si un identifieur n'est utilisé que peu de fois, dans une partie réduite du programme, une lettre peut être un bon identifieur, mais une lettre ne sera pas un bon choix pour un identifieur utilisé fréquemment dans différentes parties du programme.
noPage numPage
sont des identifieurs plus compréhensibles que NP ou XXX pour désigner un numéro de page.
pi
est surement mieux que A pour désigner le nombre 3,141592…
60, 3.141592 et “fin” sont des littéraux. Nous pouvons nommer les littéraux. Un littéral nommé est une constante.
Après les instructions :
set maxLignes 60 set pi 3.141592 set consigneFin fin
nous pouvons écrire :
for { i = 0; $i <= $MaxLignes; incr $i } {
faire un traitement
sur la ligne numéro i
}
set circonference [expr 2 * $pi * $r]
while { $consigne != $consigneFin } {
quelque
chose
à faire
}
L'utilisation des constantes rend le programme plus facile à lire, à comprendre, à modifier, à corriger.
Les indications concernant les constantes s'appliquent aux variables d'autant plus que TclTk ne fait pas de différence entre les deux ! Il n'existe pas de constante en TclTk mais l'utilisateur doit faire comme si afin d'améliorer le code écrit.
Évitons
a, i, n, a20, n7, toto, zorro, etc.
Peu de temps après l'écriture d'un code utilisant de telles variables, nous ne saurons plus à quoi elles peuvent bien servir.
La règle générale est la suivante :
Indentation dans les boucles, les conditions. Remarquons l'usage des parenthèses (notion de bloc) :
Voir les exemples ci-dessus dans le paragraphe : littéral et constante.
Par exemple :
#************************************************************************* # Copyright (C) 2008 David Lucardi <davidlucardi@aol.com> # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # #************************************************************************** # File : $$$ # Author : davidlucardi@aol.com # Modifier: andre.connes@toulouse.iufm.fr # Date : 24/04/2002 # Licence : GNU/GPL Version 2 ou plus # # Description: # ------------ # # @version # @author David Lucardi # @modifier Andre Connes # @project Le terrier # @copyright Eric Seigne 24/04/2002 # # *************************************************************************
Il est souhaitable de penser à l'internationalisation des logiciels pour l'utilisateur (peu importe le programmeur).
Deux fichiers paraissent essentiels :
Ce fichier précise la langue utilisée par l'utilisateur, par l'élève, plus éventuellement d'autres paramètres tels que dimension de l'écran, etc.
Exemple du fichier de configuration lapins.conf :
# lapins.tcl configuration file
set LG fr ;# ... es fr it uk us ...
set WIDTH_SIZE 640 ;#800
set HORIZONTAL_SIZE 450 ;#600
ou bien, c'est bien mieux !
set LG [lindex [split $env(LANG) "_"] 0]
Ce fichier n'est défini que pour les langues autres que celle du développement.
Ce fichier contient les messages traduits. Nous utilisons pour cela le module “msgcat” ; pour cela il est nécessaire d'insérer au préalable dans le code le fichier msg.tcl :
source msg.tcl.
Exemple :
.menu add cascade -label [mc "À propos"] -menu .menu.fichier
Exception : si le message doit contenir une variable, par exemple $var, le message doit être composé d'un seul mot suivi ou précédé de la variable.
Exemple :
.menu add cascade -label "[mc Aide] $var" -menu .menu.fichier
Autre exception : le message contient plusieurs variables séparées par des mots à traduire. Dans ce cas, l'exemple suivant parait suffisamment clair et se passe de tout commentaire.
append titre "ALLER - " [mc "Groupe"] " : " $groupe " / " [mc "Dossier"] " : " $rep " / " [mc "Texte"] " : " $demarre wm title . $titre
et précédemment nous aurions pu écrire :
append message [mc "Aide]" $var .menu add cascade -label $message -menu .menu.fichier
Voir la doc sur le site abuledu :
http://docs.abuledu.org/abuledu/developpeur/les_logiciels_du_terrier_faciles_a_traduire
L'objet de cette partie est de permettre de trier les messages au moyen de filtres.
Divers projets ont été développés, sont en cours de développement, ou en phase de test ; certains écrits en Tcl/Tk, d'autres en python, java… Pour mémoire :
Dans ce contexte, pour chacun des projets, précisons ce projet dans le champ 'objet' du message en écrivant en abrégé (lt- mis pour “le_terrier”) entre chevrons [] :
Et précisons l'objet. Enfin, nous pouvons commencer le corps du message par un bonjour et le terminer par un au revoir.
Exemple :
[lt-mulot] saisir désignation cellule dans mulot.tcl
Cette section a été ajoutée le 14 décembre 2008 et se propose d'être un début de solution globale pour la gestion du son pour les logiciels du terrier en tcl/tk.
Nous utilisons la bibliothèque snack pour gérer les accès à la carte son, snack est bien intégré dans les logiciels du terrier, association par exemple.
if {[catch {package require snack}]} {
set sound 0
} else {
set sound 1
snack::sound snd
}
snd configure -file [file join $Home sons $son$ext] snd play
Pour plus de détails, référez-vous au fichier sonlinux.tcl ou sonwindows.tcl
Sur les terminaux légers nous ne pouvons pas gérer le son de la même manière que sur un poste autonome. À l'heure actuelle nous utilisons encore esd (esound) pour gérer le son “distant”.
En TCL/Tk il suffit donc d'utiliser l'appel suivant pour jouer un fichier son sur un TX:
exec esdplay $file
Proposition pour satisfaire tout le monde et toutes les plates formes:
#en fonction de la plate-forme
switch $tcl_platform(platform) {
unix {
#si on est sur un serveur abuledu on en profite pour l'indiquer
if {[file isdirectory [file join /etc abuledu]]} {
set abuledu 1
} else {
set abuledu 0
}
source sonlinux.tcl
}
windows {
source sonwindows.tcl
}
}
Et dans le fichier sonlinux.tcl on devra systématiquement tester la variable abuledu pour savoir s'il faut faire appel à snack ou esdplay
proc enterstart {file} {
if {$abuledu == 0} {
snd stop
update
catch {
snd configure -file $file
snd play
}
} else {
set cur [pwd]
set file [string map {./ /} $file]
set file "$cur$file"
catch {
exec esdplay $file
}
}
}
#on ne charge pas snack si on est sur abuledu c'est snack qui provoque
#les erreurs de open /dev/mixer
if {$abuledu == 0} {
#on est sous linux, on essaye de charger la lib snack
if {[catch {package require snack}]} {
#ca n'a pas marche, on est donc sans son
set sound 0
} else {
set sound 1
snack::sound snd
}
} else {
#on est sur abuledu par defaut on a du son via esdplay
#esdplay a la bonne idee de ne pas provoquer d'erreur meme
#si le TX n'a pas de carte son !
set sound 1
}
Cette section a été ajoutée le 14 décembre 2008 et se propose de fournir une solution pour la gestion du pavé numérique lorsqu'on est sous Linux.
proc changenum {c key} {
global curcol currow
focus -force .frame.c
$c itemconf textcol[expr \$curcol]row[expr \$currow] -text $key
switch $key {
BackSpace - Delete {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text .}
0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text $key}
#le pavé numérique sous linux retourne les codes suivants au lieu
#de retourner directement les chiffres ...
KP_Insert {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "0"}
KP_End {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "1"}
KP_Down {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "2"}
KP_Next {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "3"}
KP_Left {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "4"}
KP_Begin {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "5"}
KP_Right {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "6"}
KP_Home {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "7"}
KP_Up {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "8"}
KP_Prior {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text "9"}
KP_Delete {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text ,}
comma {$c itemconf textcol[expr \$curcol]row[expr \$currow] -text ,}
}
}
Si nous choisissons python+Qt, un bon outil de développement serait Qt-designer
Utiliser la forge du Terrier : https://redmine.ryxeo.com/projects/leterrier