Lines Matching refs:tclLibPath
38 char tclLibPath[MAX_PATH_LEN], tkLibPath[MAX_PATH_LEN]; in Tcl_AppInit() local
43 tclLibPath, MAX_PATH_LEN, 0); in Tcl_AppInit()
45 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
46 Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
47 Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
48 Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
51 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
52 Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
53 Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
54 Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); in Tcl_AppInit()
65 if (tclLibPath[0] != '\0') { in Tcl_AppInit()
66 pathPtr = Tcl_NewStringObj(tclLibPath, -1); in Tcl_AppInit()