🚀 go-pugleaf

Niech będzie - pierwszy post na temat ;)

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.

| proc combine_modes {dchan add_r rm_r} {
| 	set maxlen ${::modes-per-line}
| 	set chan [chandname2name $dchan]
| 
| 	set output [list]
| 
| 	#removing invalid +R
| 	set modes ""
| 	set masks [list]
| 	foreach mask $rm_r {
| 		if {$modes == ""} {set modes "-"}
| 		append modes "R"; lappend masks $mask
| 		if {[llength $masks] >= $maxlen} {
| 			lappend output "MODE $chan $modes [join $masks]"
| 			set modes ""; set masks [list]
| 		}
| 	}
| 
| 	#adding our own +R
| 	append modes "+"
| 	foreach mask $add_r {
| 		if {$modes == ""} {set modes "+"}
| 		append modes "R"; lappend masks $mask
| 		if {[llength $masks] >= $maxlen} {
| 			lappend output "MODE $chan $modes [join $masks]"
| 			set modes "" ; set masks [list]
| 		}
| 	}
| 
| 	if {[llength $masks] > 0} {
| 		lappend output "MODE $chan $modes [join $masks]"
| 	}
| 
| 	return $output
| }

Reszta skryptu znajduje się tutaj:
http://eggwiki.takeda.tk/index.php/Skrypt:r-protect

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