Code: Select all
proc test {} {return 0} ;# proc is created now how to delete it?
Code: Select all
(unsigned char *)data += free;
Code: Select all
data = (unsigned char *) data + free;
Code: Select all
if {![catch {open "myfile.txt" r} r]} {
set time 0
while {![eof $r]} {
gets $r line
utimer [incr time 30] [list putserv "PRIVMSG $chan :$line"]
}
close $r
}