1 files changed, 6 insertions(+), 5 deletions(-)

M irc.tcl

@@ 595,6 595,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::msg {subcommand args} {
     switch -- $subcommand {
       fmt {


@@ 696,15 697,15 @@ namespace eval ::irc {
   }
 }
 
-set chan [irc::connect irc.libera.chat 6697 1]
-puts $chan
-irc::listen on $chan
+#set chan [irc::connect irc.libera.chat 6697 1]
+#puts $chan
+#irc::listen on $chan
 #lassign [chan pipe] ichan ochan
-irc::extern add $chan * stdout stdin
+#irc::extern add $chan * stdout stdin
 
 #fileevent stdin readable { set input [gets stdin] }
 
-set input ""
+#set input ""
 
 #while 1 {
 #  vwait input