21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
{
if (objc == 1) {
Tcl_SetObjResult(interp, TclGetLibraryPath());
} else {
Tcl_Obj *path=Tcl_DuplicateObj(objv[1]);
TclSetLibraryPath(Tcl_NewListObj(1,&path));
TclpSetInitialEncodings();
Tcl_FindExecutable(Tcl_GetVar(interp, "argv0", TCL_GLOBAL_ONLY));
/* Hack to get around Tcl bug 1224888 */
SetExecName(interp);
|
<
<
<
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{
if (objc == 1) {
Tcl_SetObjResult(interp, TclGetLibraryPath());
} else {
Tcl_Obj *path=Tcl_DuplicateObj(objv[1]);
TclSetLibraryPath(Tcl_NewListObj(1,&path));
TclpSetInitialEncodings();
}
return TCL_OK;
}
/*
* Public Entrypoint
*/
|