static const char *user_script = "puts \"Hello World ........\"\n";
int my_cmd(Tcl_Interp *interp, const char *arg_str, ...){
char *cmd_str = Tcl_Alloc(256);
va_list ap;
int result;
va_start(ap,arg_str);
vsprintf(cmd_str, arg_str, ap);
result = Tcl_Eval(interp,cmd_str);
Tcl_Free(cmd_str);
return result;
}
int main (int argc ,char *argv[])
{
Tcl_FindExecutable(argv[0]);
Tcl_Interp *myinterp;
printf ("C: Starting ... \n");
myinterp = Tcl_CreateInterp();
if (Tcl_Init(myinterp) != TCL_OK) {
printf("Error: %s\n",Tcl_GetStringResult(myinterp));
return TCL_ERROR;
}
if (my_cmd(myinterp, user_script) != TCL_OK) {
printf("Error: %s\n",Tcl_GetStringResult(myinterp));
return TCL_ERROR;
}
Tcl_DeleteInterp(myinterp);
Tcl_Finalize();
return TCL_OK;
}