One simple way to embed tclhttpd into an tcl application is to just create a slave interpreter and load tclhttpd inside the slave. This is easy and works quite well.
# example code
proc StartEmbeddedHttpd {path args} {
set httpd [interp create]
# set tclhttpd command line options
$httpd eval "set argc [llength $args]"
set cmdargv "set argv [list $args ]"
$httpd eval $cmdargv
# now load the server and start it
set cmd [list source $path]
# the server does not return, so we have to use the after 0 trick
# errors have to be handled by bgerror
after 0 $httpd eval $cmd
return $httpd
}
proc ShutdownEmbeddedHttpd {interp} {
$interp eval Httpd_Shutdown
}
proc DestroyEmbeddedHttpd {interp} {
$interp delete
}