🚀 go-pugleaf

Użytkownik "Derek Kuliński / takeda" <d.kulinski@gmail.com> napisał:

> Ma ktoś pomysł jak poniższą procedurę zoptymalizować? Działać działa, ale
> nie jest to ładne rozwiązanie. Bardzo nie podoba mi się powtarzający się
> kod.

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
}