214
216
sprintf(version_string, "%g", PROG_VERSION);
215
217
Tcl_SetVar(interp, "XCIRCUIT_VERSION", version_string, TCL_GLOBAL_ONLY);
221
Tcl_SetVar(interp, "XCIRCUIT_ASG", "1", TCL_GLOBAL_ONLY);
217
224
/* Export the namespace commands */
219
226
Tcl_Eval(interp, "namespace eval xcircuit namespace export *");