🚀 go-pugleaf

On Tue, 31 May 2005 11:44:21 +0200, Googie wrote:

> Mnie się udało sprowadzić to do takiej postaci: (nie testowałem czy działa -
> nie mam na stanie żadnych botów).
> Generalnie "optymalizacja" sprowadza się do krótszego zapisu powtarzającego
> się kodu (a więc to co Ci się nie podobało :) ). Oprócz tego wyrzuciłem z
> pętli sprawdzanie 'if {$modes == ""} {.......}', bo i tak można ustawiać "+"
> lub "-" na wstępie oraz przy "resetowaniu" wartości modes.
> 
> proc combine_modes {dchan add_r rm_r} {
>  set maxlen ${::modes-per-line}
>  set chan [chandname2name $dchan]
> 
>  set output [list]
>  set masks [list]
> 
>  #removing invalid +R
> 
>  foreach {varName sig} {
>   rm_r "-"
>   add_r "+"
>  } {
>   set modes $sig
>   foreach mask [set $varName] {
>    append modes "R"; lappend masks $mask
>    if {[llength $masks] >= $maxlen} {
>     lappend output "MODE $chan $modes [join $masks]"
>     set modes $sig; set masks [list]
>    }
>   }
>  }
> 
>  if {[llength $masks] > 0} {
>   lappend output "MODE $chan $modes [join $masks]"
>  }
> 
>  return $output
> }

No nieźle, namieszałeś tak, że teraz nawet nie rozumiem jak to działa.
Rozumiem, że to wyższy stopień wtajemniczenia? ;) Jesteś pewien, że na
czystym Tcl będzie to działać? Ja sprawdzę ten kod przy pierwszej okazji,
ale nie przypuszczałem, że da się aż tak uprościć, widać pozostaje mi
jeszcze sporo do nauczenia się =)

-- 
takeda@IRCnet.EFnet, ICQ# 15827691, TLEN: taked4, YahooIM: takeda64
http://eggwiki.takeda.tk - nowa ulepszona strona !!!