c/c++ calling tcl script