[Tuto] Coder proprement un script en TCL
#14
J'ai fait un petit ajout sur la page wiki, je retranscris ici:
Conventions de nommage a écrit :Une chose essentielle lorsqu'on développe, c'est que le code soit lisible et auto-suffisant. Cela passe par la mise en page (indentations propres), les commentaires judicieux (ni trop, ni trop peu) et un bon nommage de toutes les procédures et variables.

Il n'y a pas de règles définies, c'est à vous de vous les créer et de vous y tenir. Et surtout, soyez cohérents. J'ai vu des codes du genre :
TCL
proc verifuser { nick args } {
   set arg1 [lindex $arg 0]
   set arg2 [lindex $arg 1]
   if { $arg2 == "" } {
      putserv "PRIVMSG $nick :[::msgcat::mc m9]"
      return 0
   }
   return 1
}


Donc, on ne sait pas comment fonctionne cette procédure, est-ce que m9 est un message d'erreur, pourquoi $arg2 ne peut pas être vide, ...

Quitte à faire un code aussi peut parlant, pourquoi ne pas faire:
TCL
proc p19 {n a} {set b1 [lindex $a 0]; set b2 [lindex $a 1]; if {$b2==""} {putserv "PRIVMSG $n ::[::msgcat::mc m9]"; return 0;} return 1}



C'est vraiment le pire, non ?

Pour ma part, voici ce que je ferais:
TCL
proc verifUser { nick args } {
   set uIdent [lindex $arg 0]
   set uPass [lindex $arg 1]
   if { $uPass == "" } {
      putserv "PRIVMSG $nick :[::msgcat::mc errNoPass]"
      return 0
   }
   return 1
}


Ce n'est pas parfait, mais connaissant mes conventions de nommage, je sais que:
* uIdent et uPass sont des informations utilisateur (préfixe u) qui correspondent donc à un identifiant et un mot de passe
* Si le mot de passe est vide, j'utilise un message d'erreur (préfixe err) qui signale l'absence du password.
Répondre


Messages dans ce sujet
RE: [Tuto] Coder proprement un script en TCL - par heretoc - 23/03/2010, 11:59
RE: [Tuto] Coder proprement un script en TCL - par CrazyCat - 25/07/2012, 12:25

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté