Lines Matching defs:script
30 char *script; /* Script to invoke to provide this version of
173 * interpreter, this function invokes a Tcl script to provide it. If the
182 * version cannot be found, or the script to provide the required version
187 * The script from some previous "package ifneeded" command may be
357 char *script, *pkgVersionI;
362 * "package unknown" script, one to run the "package ifneeded" script for
364 * the "package ifneeded" script.
388 * versions and invoke the script for the best available version. We
476 * We found an ifneeded script for the package. Be careful while
478 * script itself from deletion and (b) don't assume that bestPtr
479 * will still exist when the script completes.
483 script = bestPtr->script;
486 Tcl_Preserve((ClientData) script);
488 code = Tcl_EvalEx(interp, script, -1, TCL_EVAL_GLOBAL);
489 Tcl_Release((ClientData) script);
538 "\n (\"package ifneeded %s %s\" script)",
545 * Take a non-TCL_OK code from the script as an indication the
576 script = ((Interp *) interp)->packageUnknown;
577 if (script != NULL) {
579 Tcl_DStringAppend(&command, script, -1);
597 "\n (\"package unknown\" script)");
797 Tcl_EventuallyFree((ClientData)availPtr->script, TCL_DYNAMIC);
809 Tcl_WrongNumArgs(interp, 2, objv, "package version ?script?");
843 Tcl_SetResult(interp, availPtr->script, TCL_VOLATILE);
846 Tcl_EventuallyFree((ClientData)availPtr->script, TCL_DYNAMIC);
868 DupBlock(availPtr->script, argv4, (unsigned) length + 1);
1210 Tcl_EventuallyFree((ClientData)availPtr->script, TCL_DYNAMIC);