| 129 | * |
| 130 | *---------------------------------------------------------------------- |
| 131 | */ |
| 132 | |
| 133 | int |
| 134 | Tcl_AppInit( |
| 135 | Tcl_Interp *interp) /* Interpreter for application. */ |
| 136 | { |
| 137 | if (Tcl_Init(interp) == TCL_ERROR) { |
| 138 | return TCL_ERROR; |
| 139 | } |
| 140 | |
| 141 | #ifdef TCL_TEST |
| 142 | if (Tcltest_Init(interp) == TCL_ERROR) { |
| 143 | return TCL_ERROR; |
| 144 | } |
| 145 | Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, NULL); |
| 146 | if (TclObjTest_Init(interp) == TCL_ERROR) { |
| 147 | return TCL_ERROR; |
| 148 | } |
| 149 | if (Procbodytest_Init(interp) == TCL_ERROR) { |
| 150 | return TCL_ERROR; |
| 151 | } |
| 152 | Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init, |
| 153 | Procbodytest_SafeInit); |
| 154 | #endif /* TCL_TEST */ |
| 155 | |
| 156 | #if defined(STATIC_BUILD) && TCL_USE_STATIC_PACKAGES |
| 157 | { |
| 158 | extern Tcl_PackageInitProc Registry_Init; |
| 159 | extern Tcl_PackageInitProc Dde_Init; |
| 160 | extern Tcl_PackageInitProc Dde_SafeInit; |
| 161 | |
| 162 | if (Registry_Init(interp) == TCL_ERROR) { |
| 163 | return TCL_ERROR; |
| 164 | } |
| 165 | Tcl_StaticPackage(interp, "registry", Registry_Init, NULL); |
| 166 | |
| 167 | if (Dde_Init(interp) == TCL_ERROR) { |
| 168 | return TCL_ERROR; |
| 169 | } |
| 170 | Tcl_StaticPackage(interp, "dde", Dde_Init, Dde_SafeInit); |
| 171 | } |
| 172 | #endif |
| 173 | |
| 174 | /* |
| 175 | * Call the init functions for included packages. Each call should look |
| 176 | * like this: |
| 177 | * |
| 178 | * if (Mod_Init(interp) == TCL_ERROR) { |
| 179 | * return TCL_ERROR; |
| 180 | * } |
| 181 | * |
| 182 | * where "Mod" is the name of the module. |
| 183 | */ |
| 184 | |
| 185 | /* |
| 186 | * Call Tcl_CreateCommand for application-specific commands, if they |
| 187 | * weren't already created by the init functions called above. |
| 188 | */ |
nothing calls this directly
no test coverage detected