1 files changed, 9 insertions(+), 4 deletions(-)

M irc.tcl

@@ 17,6 17,7 @@ namespace eval ::irc {
   variable chan.meta
   variable chan.handlers
 
+  # documented
   proc ::irc::is {type value {cap {}}} {
     # validation helper.
     # cap is a list of negotiated capabilities.


@@ 46,6 47,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::esc {type value} {
     # for escaping specific things
     switch -- $type {


@@ 61,6 63,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::unesc {type value} {
     # for unescaping specific things
     # needs to be handled manually due to Quirkiness


@@ 140,6 143,7 @@ namespace eval ::irc {
     }
   }
 
+  # nodoc
   proc ::irc::int-dictsub args {
     if [catch { dict {*}$args } result options] {
       return -options options [regsub {dictionary$} $result "channel meta"]


@@ 148,6 152,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::meta {subcommand chan args} {
     switch -- $subcommand {
       exists {


@@ 699,7 704,7 @@ irc::extern add $chan * stdout stdin
 
 set input ""
 
-while 1 {
-  vwait input
-  eval $input
-}
+#while 1 {
+#  vwait input
+#  eval $input
+#}