Lines Matching refs:tclLibPath
41 char tclLibPath[MAX_PATH_LEN], tkLibPath[MAX_PATH_LEN]; in Tcl_AppInit() local
46 tclLibPath, MAX_PATH_LEN, 0); in Tcl_AppInit()
48 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
49 Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
50 Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
51 Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
54 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
55 Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
56 Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
57 Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
68 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
69 pathPtr = Tcl_NewStringObj(tclLibPath, -1); in Tcl_AppInit()