call tcl from c
#include <stdio.h>
#include <tcl.h>
main (int argc, char *argv[]) {
Tcl_Interp *myinterp;
int status;
printf ("Your Tcl Program will run ... \n");
myinterp = Tcl_CreateInterp();
status = Tcl_EvalFile(myinterp,argv[1]);
printf ("Your Tcl Program has completed\n");
}