egghelp/eggheads community

Tcl FAQ • tclarchive has been moved

2025-12-01T04:43:00-04:00

tclarchive has been moved to https://tclarchive.github.io/

Statistics: Posted by Carlin0 — Mon Dec 01, 2025 4:43 am

Tcl FAQ • Re: Any specific IDEs

2024-03-04T08:32:57-04:00

This pastebin:

http://paste.tclhelp.net/

has a "syntax check" function. Finds your mistakes for you. It can be VERY helpful.

Unfortunately, the ability to post with password protection is broken. Has been, for a long time now.
You can still post there, but you just can't make it private.

No matter, for syntax checking though. You don't even have to post at all to use that function.

I hope this helps.

Statistics: Posted by willyw — Mon Mar 04, 2024 8:32 am

Tcl FAQ • Re: Any specific IDEs

2024-03-04T02:56:23-04:00

Some editors, as notepad++ with windows, have tcl code highligting.
komodo has been retired but you can find OpenKomodoIDE @ https://github.com/ActiveState/OpenKomodoIDE (didn't tested)

Statistics: Posted by CrazyCat — Mon Mar 04, 2024 2:56 am

Tcl FAQ • Any specific IDEs

2024-03-04T01:40:08-04:00

Are there any specific IDEs or editors that you find particularly useful for TCL script development? Any features that enhance the TCL coding experience?

Statistics: Posted by ConnieHarris — Mon Mar 04, 2024 1:40 am

Tcl FAQ •

2016-04-10T06:08:05-04:00

Original Poster - this helped clarify a few things in regards to a colorfaq I was directed to that wasn't as detailed.

If there was an emote for thumbs up, or rock on - it'd be coming your way!

I'll rpost again if/when I anything comes up from using codes in regards to any scripts I learn/work on.

Statistics: Posted by Chymookie — Sun Apr 10, 2016 6:08 am

Tcl FAQ •

2015-02-11T06:05:07-04:00

This will show a multi line traceback to the last error. If you read this you will know what you have to do to prevent this error.
The ugly point is, errorInfo shows always the last error. So, if you use catch and a error has been caused it will show that error last, so be fast Wink.

_____________________________________________
Usman

Statistics: Posted by tezoost — Wed Feb 11, 2015 6:05 am

Tcl FAQ •

2011-02-19T09:23:02-04:00

TCL_no_TK:
Don't treat strings as lists..

Code:

llength $text...foreach t $text {

Also, rather then using expr all the time, use the incr command to increase the value of a variable:

Code:

set total [expr {$total+1}] => incr total

This does not make any sense; you're inside a foreach-loop, and you say $mx is the length of the list your are iterating through.. Thus the loop would have completed before this conditional becomes true:

Code:

if {($total != $mx)} {     set total [expr {$total+1}]    } else {     break    }

Also, your example seems to be missing 3 items, you create 17 instances of "bunny-rabbits", but I only count 14 returned.

I'd rewrite that code somewhat like this:

Code:

proc makenice {text size} {  set items [split $text]  set length [llength $items]  incr size -1  for {set i 0} {$i <$length} {incr i} {    puts [join [lrange $items $i [incr i $size]]]  }}

Statistics: Posted by nml375 — Sat Feb 19, 2011 9:23 am

Tcl FAQ •

2011-02-19T15:46:19-04:00

This is losely based of my take on http://wiki.tcl.tk/1774 needed a way to limit the words in a long line of text, so came up with this, its really easy to include in other scripts/snipplets hope someone finds it useful
EDIT (works for me):

Code:

proc makenice {tmp size} {  set mx [llength $tmp]  set current 0  set total 0   foreach t $tmp {    set total [expr {$total+1}]    if {($mx > $total)} {     lappend out "$t"     set current [expr {$current+1}]      if {($current == $size)} {        puts "$out"        set current 0        set out [list]      }    } else {     lappend out [join [lrange [split $tmp] [expr {$total-1}] $mx]]      puts "$out"    }   }}

And i tested it this time

Code:

% llength $mylist17% makenice $mylist 6line1 line2 line3 line4 line5 line6line7 line8 line9 line10 line11 line12line13 line14 line15 line16 line17%

This is the old code (leaving it here so post below makes sense)

Code:

proc makenice {text size} {  set mx [llength $text]  set current 0  set zap $size  set total 0  set sent 0  set tidy [expr {$mx / $zap}]   foreach t $text {    if {($total != $mx)} {     set total [expr {$total+1}]    } else {     break    }    if {($sent == $tidy)} {     set out [join [lrange [split $text] $total $mx]]     puts "$out"     break    }     if {($current == $zap)} {      puts "$out"       set sent [expr {$sent+1}]       set current 0       set out [list]     } else {      lappend out "$t"       set current [expr {$current+1}]     }   }}

Example:

Code:

% makenice "[lrepeat 17 "bunny-rabbits"]" "6"bunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbitsbunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbits bunny-rabbitsbunny-rabbits bunny-rabbits%

Statistics: Posted by TCL_no_TK — Sat Feb 19, 2011 4:25 am

Tcl FAQ • hi

2010-10-23T20:15:12-04:00

Code:

array set colors { blue \0032 green \0033 red \0034 purple \0036 orange \0037 yellow \0038 lightgreen \0039 lightblue \00312 pink \00313 grey \00314 lightgrey \00315 nocolor \003 bold \002 underline \037 } foreach {color code} [array get colors] { proc $color {} "return $code" }

where to give this colors in eggdrop .. i basically wants to create color questions i.e
blue|!react fast! Guess the color ------>
where n how i can give the color ?
it will b in question file?
or trivia tcl?

Statistics: Posted by jurist111 — Sat Oct 23, 2010 8:15 pm

Tcl FAQ • Re: Basic File Operations - Evaluating variables read from f

2010-09-06T16:39:45-04:00

If I have variables, such as $nick or $arg, in the file, it doesn't evaluate the variables. Instead, it just leaves it at $nick or $arg.
Is there any way to evaluate the variables?
using [eval] makes Tcl want to use the first word of the line as a command, which is not appropriate when I have, say:
putmsg $chan "[eval [readFile filename.txt]]"
(readFile is a seperate process that reads the file and returns a random line)

You need to use subst command. Look at this example:

Code:

        set realmsgs {         "Hi, how are you?"         "Hi $nick!"         "Hello $nick, welcome to $chan"         "]]] WELCOME to $chan!!!11111 ^^ ^^ [[["         "Hi [$nick], you have to pay 20$ to enter here"     }          bind join - * greet     proc greet {nick host hand chan} {         set greetmsg [lindex $::realmsgs [rand [llength $::realmsgs]]]         set greetmsg [subst -nocommands $greetmsg]         putserv "PRIVMSG $nick :$greetmsg"     }

Statistics: Posted by username — Mon Sep 06, 2010 4:39 pm

Tcl FAQ • Basic File Operations - Evaluating variables read from file

2010-09-06T12:03:19-04:00

If I have variables, such as $nick or $arg, in the file, it doesn't evaluate the variables. Instead, it just leaves it at $nick or $arg.
Is there any way to evaluate the variables?
using [eval] makes Tcl want to use the first word of the line as a command, which is not appropriate when I have, say:
putmsg $chan "[eval [readFile filename.txt]]"
(readFile is a seperate process that reads the file and returns a random line)

Statistics: Posted by A Hylian Human — Mon Sep 06, 2010 12:03 pm

Tcl FAQ • Re: Tcl and help related links

2010-07-16T00:31:21-04:00

Here is a selection of links, that should give you an idea of places to go, when you need to start programing in Tcl, learning more about the commands provided by eggdrop/Tcl and more afvanced areas.

...

http://www.suninet.nl/tclguide/ - One of the best guides to coding in Tcl, and heavily focused on using it in eggdrop.

It is here now: http://suninet.the-demon.de/
and it is still very good.

Statistics: Posted by willyw — Fri Jul 16, 2010 12:31 am

Tcl FAQ •

2009-11-09T17:50:15-04:00

The big issue/difference is the blocking behaviour of the connection...
For accepted and refused connection attempts, that's not a big deal, but for dropped connections (like a lot of "stealth" firewalls these days do it), that means your script will block for quite some time, until the kernel figures the connection attempt got lost somewhere and times it out...

Statistics: Posted by nml375 — Mon Nov 09, 2009 5:50 pm

Tcl FAQ •

2009-11-09T14:58:09-04:00

I was wondering, ..

if i just made regular socket connection which is blocking and without the async and once it's active i would fconfigure socket -blocking 0 and fconfigure socket -buffering line .. would that make it a non blocking socket cause i don't see it block anymore, my point is, can anyone tell me the difference and is it worth going through all that fileevent crap with vwait ... instead wouldn't it be easier just to use fconfigure?

ofcourse if you don't mind the connecting of the socket to be blocking..

Statistics: Posted by Ofloo — Mon Nov 09, 2009 2:58 pm

Tcl FAQ •

2009-02-28T13:21:50-04:00

When dealing with namespaces, and making sure bindings work correctly, I'd create a separate namespace called eggdrop with a replacement for the bind function, utilizing the namespace code along with uplevel to capture the actual namespace. No more hazzle with namespace current..
Keep in mind that your binds will look a little messy however.

Code:

namespace eval eggdrop {#First export functions for easy access: namespace export bind proc bind {type flag mask proc} {  ::bind $type $flag $mask [uplevel 1 [list namespace code $proc]] }}

To use this, you'd simply do something like this:

Code:

namespace eval myspace { #import the namespace along with bind, so we don't have to use the long version ::eggdrop::bind namespace import ::eggdrop::* proc myproc {nick host handle text} {  puthelp "PRIVMSG $nick :Hello $nick! I see you from $host, know you as $handle, and recieved $text from you." } bind msg - foo myproc}

Statistics: Posted by nml375 — Sat Feb 28, 2009 1:21 pm