From eb2f81569b0b6a4830d586824db2e7c506b846f5 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 4 Aug 2024 01:00:05 +0100
Subject: [PATCH] log documentation

---
 irc.tcl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/irc.tcl b/irc.tcl
index c4eb004..f23fe09 100755
--- a/irc.tcl
+++ b/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
+#}
-- 
2.43.4