Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


bind dans une $var ?
#1
Bonjour, j'ai une question qui peut sembler bete mais y'a t'il moyen de savoir quel bind a ete utiliser et de le set dans une $var ?

J'ai besoin de setter le bind utiliser dans une var pour l'envoyer dans une autre fonction >;)

quelque chose qui ressemblerais a ceci:


tcl
bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
set bind <c'est ici je je bloque !>
putlog "$nick a utiliser $bind
}

Je sais je pourrais simplement faire set bind "!test" mais je veux savoir s'il est possible de le faire autrement :D

Merci !
#2
J'ai bien peur que tu ne puisses pas, d'autant plus que ta procédure dépend du bind.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
salut,
regardes du coté de la commande "lastbind"

édit: c'est pas la commande "lastbind" mais la variable globale "$lastbind"
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#4
Bonne réponse de djkenny:
eggheads Wrote:10. Global variables
lastbind
Value: the last command binding which was triggered. This allows you to identify which command triggered a Tcl proc.
Module: core
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
Ah genial, merci beaucoup !
Je vais jeter un oeil et je vous reviens la dessus :D
#6
He bien merci beaucoup djkenny!
Ca fonctionne nikel.

tcl
bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :Last used bind was $::lastbind by $nick with args $arg"
}


Ce qui me retourne
Quote:[10:44:25] <MyS3lf> !test PATATE
[10:44:25] <Bot> Last used bind was !test by MyS3lf with args PATATE


Forum Jump:


Users browsing this thread: 1 Guest(s)