| 160 | |
| 161 | |
| 162 | int Tcl_AppInit(Tcl_Interp *interp) |
| 163 | { |
| 164 | if (Tcl_Init(interp) == TCL_ERROR) { |
| 165 | return TCL_ERROR; |
| 166 | } |
| 167 | |
| 168 | #ifdef TCL_TEST |
| 169 | #ifdef TCL_XT_TEST |
| 170 | if (Tclxttest_Init(interp) == TCL_ERROR) { |
| 171 | return TCL_ERROR; |
| 172 | } |
| 173 | #endif |
| 174 | if (Tcltest_Init(interp) == TCL_ERROR) { |
| 175 | return TCL_ERROR; |
| 176 | } |
| 177 | Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, |
| 178 | (Tcl_PackageInitProc *) NULL); |
| 179 | if (TclObjTest_Init(interp) == TCL_ERROR) { |
| 180 | return TCL_ERROR; |
| 181 | } |
| 182 | #ifdef TCL_THREADS |
| 183 | if (TclThread_Init(interp) == TCL_ERROR) { |
| 184 | return TCL_ERROR; |
| 185 | } |
| 186 | #endif |
| 187 | if (Procbodytest_Init(interp) == TCL_ERROR) { |
| 188 | return TCL_ERROR; |
| 189 | } |
| 190 | Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init, |
| 191 | Procbodytest_SafeInit); |
| 192 | #endif /* TCL_TEST */ |
| 193 | |
| 194 | /* |
| 195 | * Call the init procedures for included packages. Each call should |
| 196 | * look like this: |
| 197 | * |
| 198 | * if (Mod_Init(interp) == TCL_ERROR) { |
| 199 | * return TCL_ERROR; |
| 200 | * } |
| 201 | * |
| 202 | * where "Mod" is the name of the module. |
| 203 | */ |
| 204 | |
| 205 | /* |
| 206 | * Call Tcl_CreateCommand for application-specific commands, if |
| 207 | * they weren't already created by the init procedures called above. |
| 208 | */ |
| 209 | |
| 210 | if (OpenSeesAppInit(interp) < 0) |
| 211 | return TCL_ERROR; |
| 212 | |
| 213 | /* |
| 214 | * Specify a user-specific startup file to invoke if the application |
| 215 | * is run interactively. Typically the startup file is "~/.apprc" |
| 216 | * where "app" is the name of the application. If this line is deleted |
| 217 | * then no user-specific startup file will be run under any conditions. |
| 218 | */ |
| 219 |
nothing calls this directly
no test coverage detected