Differences From Artifact [1913b3a1f3]:
- File
kitdll/buildsrc/kitdll-0.0/kitInit.c
— part of check-in
[e98c176999]
at
2010-10-01 20:20:09
on branch trunk
— Updated to mount vfs::zip VFS from DLL into /.KITDLL_USER
Updated to mount vfs::zip VFS from application into /.KITDLL_APP
Minor cleanup and added comments (user: rkeene, size: 6919) [annotate] [blame] [check-ins using]
To Artifact [733eebf3f2]:
- File kitdll/buildsrc/kitdll-0.0/kitInit.c — part of check-in [015d254dbe] at 2010-10-02 06:58:39 on branch trunk — Fixed determination of encoding from system in KitDLL (user: rkeene, size: 7029) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 |
/*
* This function exists to allow C code to initialize a particular
* interpreter.
*/
static int tclkit_init_initinterp(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
char *kitdll_path;
#ifdef _WIN32
Tcl_SetVar(interp, "tcl_rcFileName", "~/tclkitrc.tcl", TCL_GLOBAL_ONLY);
#else
Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclkitrc", TCL_GLOBAL_ONLY);
#endif
kitdll_path = find_tclkit_dll_path();
if (kitdll_path != NULL) {
Tcl_SetVar(interp, "tclKitFilename", kitdll_path, TCL_GLOBAL_ONLY);
free(kitdll_path);
}
FindAndSetExecName(interp);
#ifdef TCLKIT_CAN_SET_ENCODING
/* Set the encoding from the Environment */
Tcl_GetEncodingNameFromEnvironment(&encodingName);
Tcl_SetSystemEncoding(NULL, Tcl_DStringValue(&encodingName));
| > > > > | | 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
/*
* This function exists to allow C code to initialize a particular
* interpreter.
*/
static int tclkit_init_initinterp(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
char *kitdll_path;
#ifdef TCLKIT_CAN_SET_ENCODING
Tcl_DString encodingName;
#endif /* TCLKIT_CAN_SET_ENCODING */
#ifdef _WIN32
Tcl_SetVar(interp, "tcl_rcFileName", "~/tclkitrc.tcl", TCL_GLOBAL_ONLY);
#else
Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclkitrc", TCL_GLOBAL_ONLY);
#endif
kitdll_path = find_tclkit_dll_path();
if (kitdll_path != NULL) {
Tcl_SetVar(interp, "tclKitFilename", kitdll_path, TCL_GLOBAL_ONLY);
free(kitdll_path);
}
FindAndSetExecName(interp);
#ifdef TCLKIT_CAN_SET_ENCODING
/* Set the encoding from the Environment */
Tcl_GetEncodingNameFromEnvironment(&encodingName);
Tcl_SetSystemEncoding(NULL, Tcl_DStringValue(&encodingName));
Tcl_SetVar(interp, "tclkit_system_encoding", Tcl_DStringValue(&encodingName), TCL_GLOBAL_ONLY);
Tcl_DStringFree(&encodingName);
#endif
return(TCL_OK);
}
/*
|
| ︙ | ︙ |