How to create a socket as a child process?

[wenge]

I wrote a Tcl socket script as server which will accept data from client and then pass to main Tcl script. My question is how to write main script to generate child process? Main script and socket server (child process) have to run on parallel.

Socket Server:

socket -server myServer port
vwait events

 

[Bong]

#client app
set s [socket localhost 8888]
puts $s "this is a test"
flush $s
close $s

#server app
proc srvTest {chan cadd cport} {
     puts [gets $chan]
     close $chan
}
socket -server srvTest 8888
vwait forever

is that what you're asking?

_________________
Bob Rashkin

 

[wenge]

Thanks, Bob.

I have no problem to write client and server programs. But I
have problem to write a main script to fork the server program
and keep main script to do other jobs and keep server to waiting for client request. The main script and sub-process have to be run on parallel.

 

[Bong]

Oh. I think you're talking about "threading". I've never done any of that but

http://www.tcl.tk/doc/howto/thread_model.html

might help you.

_________________
Bob Rashkin