egghelp/eggheads community

Procedure in a procedure?

2002-03-05T16:11:00-04:00

Thank you very much! this is exactly what I am looking for.
Now after 2 server crashes in 12 hours, perhaps I can get back to the script.

Again. Thank you!!!

Otterboyy

Statistics: Posted by Guest — Tue Mar 05, 2002 4:11 pm

Procedure in a procedure?

2002-03-05T07:18:00-04:00

Calling your own procedure is exactly like calling any of tcl's builtin ones (puts, open, close, etc). Check out http://dev.scriptics.com for detailed help with tcl syntax.

Code:

proc firstproc {text} {  if {[string match $text "*sheep*"] == 1} {    secondproc "Sheep" $text  } elseif {[string match $text "*goat*"] == 1} {    secondproc "Goats" $text  } else {    putlog "off-topic discussion detected!"  }}proc secondproc {title line} {  # open file for appending  set fp [open /home/apache/www/animals.html a+]  puts $fp "$title: $line
"  close $fp}

Statistics: Posted by stdragon — Tue Mar 05, 2002 7:18 am

Procedure in a procedure?

2002-03-04T19:24:00-04:00

nop

use something like this:

proc proc1 { arg } {
set var [proc2]
}

proc proc2 { arg } {
return 1
}

$var in proc1 will get the value 1, proc2 returns 1 to $var
or just type this in a proc:
proc2

and proc2 will be runned

Statistics: Posted by Guest — Mon Mar 04, 2002 7:24 pm

Procedure in a procedure?

2002-03-04T18:51:00-04:00

So I can do something like

Proc name {args} {
if {condition} {
do this
} else {
do this
call proc {args}
}
}

The "call proc {args}" was made up by me. Not sure if thats the format or not.
Could you, or someone provide a sample?
To be clear, I would like to pass the argument $args to the second proc for processing further.

Thanks again!

Otterboy

Statistics: Posted by Guest — Mon Mar 04, 2002 6:51 pm

Procedure in a procedure?

2002-03-04T18:47:00-04:00

yes u can

greejtz, Zygo.

Statistics: Posted by Guest — Mon Mar 04, 2002 6:47 pm

Procedure in a procedure?

2002-03-04T18:32:00-04:00

After several months delay, I find myself up against a wall and having to learn IRCD's, Eggbot in general and TCL so I can have custom actions done for a company I work for.

With all that, I have gotten to the point of writing my first TCL for Egg and it works well. Now I want to add on to the tcl I have now.
It consists of one bind (!URG) and a procedure to process that bind and do something with the text (send PRVMSG to all in channel). Simple, yet effective for what I need. Now what I want to do is to take the text of that message and write it out to a file, formated in HTML.
I feel I can do that, but in the interests of being modular, I would like to write it in another tcl file or procedure and call it from the urgmsg proc I created.
So to sum it up. When the urgmsg proc is fired by the bind !URG, I want to take the text that follows !URG and write it to a file in HTML format.
So can I create this 2nd proc and call it from with in the first?

Thanks in advance!

Otterboyy

Statistics: Posted by Guest — Mon Mar 04, 2002 6:32 pm