Citation :(traduction automatique, flemme)
<user> Pour ceux que ça intéresse concernant mon problème Tcl ci-dessus : il semblerait que ma liste « args » soit devenue une liste imbriquée {{a b}}, donc soit la fonction d’origine avait besoin d’une boucle « foreach » supplémentaire pour la parcourir, soit la fonction wrapper devait re-développer sa liste avant de l’utiliser dans la fonction d’origine (ce qui est heureusement facile maintenant avec l’opérateur {*}).

proc replacehosts {handle args} {
   setuser $handle HOSTS
   foreach arg $args {
      setuser $handle HOSTS $arg
   }
}
proc ReplaceHosts {hand idx text} {
   replacehosts [lindex $text 0] [lrange $text 1 end]
}
bind dcc n replacehosts ReplaceHosts