diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-28 13:17:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-28 13:17:47 (GMT) |
| commit | e506fbc42c805d0a6dfe2982a6169a0397aeddad (patch) | |
| tree | 90bcfac74be46fac31536713178714d03a6dd38f /generic/tclInterp.c | |
| parent | fabd3e7dc8882faee98b35feb738939c197e23b5 (diff) | |
| download | tcl-e506fbc42c805d0a6dfe2982a6169a0397aeddad.zip tcl-e506fbc42c805d0a6dfe2982a6169a0397aeddad.tar.gz tcl-e506fbc42c805d0a6dfe2982a6169a0397aeddad.tar.bz2 | |
Complete implementation, tests and documentation
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 1bfe76a..7874de9 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -331,13 +331,24 @@ TclSetPreInitScript( *---------------------------------------------------------------------- */ +typedef struct PkgName { + struct PkgName *nextPtr; /* Next in list of package names being initialized. */ + char name[4]; +} PkgName; + int Tcl_Init( Tcl_Interp *interp) /* Interpreter to initialize. */ { + PkgName pkgName = {NULL, "Tcl"}; + PkgName **names = TclInitPkgFiles(interp); + int result = TCL_ERROR; + + pkgName.nextPtr = *names; + *names = &pkgName; if (tclPreInitScript != NULL) { if (Tcl_EvalEx(interp, tclPreInitScript, -1, 0) == TCL_ERROR) { - return TCL_ERROR; + goto end; } } @@ -382,7 +393,7 @@ Tcl_Init( * alternate tclInit command before calling Tcl_Init(). */ - return Tcl_EvalEx(interp, + result = Tcl_EvalEx(interp, "if {[namespace which -command tclInit] eq \"\"} {\n" " proc tclInit {} {\n" " global tcl_libPath tcl_library env tclDefaultLibrary\n" @@ -445,6 +456,10 @@ Tcl_Init( " }\n" "}\n" "tclInit", -1, 0); + +end: + *names = (*names)->nextPtr; + return result; } /* |