| 311 | |
| 312 | |
| 313 | int Tcl_AppInit(Tcl_Interp *interp) |
| 314 | { |
| 315 | if (Tcl_Init(interp) == TCL_ERROR) { |
| 316 | return TCL_ERROR; |
| 317 | } |
| 318 | |
| 319 | #ifdef TCL_TEST |
| 320 | #ifdef TCL_XT_TEST |
| 321 | if (Tclxttest_Init(interp) == TCL_ERROR) { |
| 322 | return TCL_ERROR; |
| 323 | } |
| 324 | #endif |
| 325 | if (Tcltest_Init(interp) == TCL_ERROR) { |
| 326 | return TCL_ERROR; |
| 327 | } |
| 328 | Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, |
| 329 | (Tcl_PackageInitProc *) NULL); |
| 330 | if (TclObjTest_Init(interp) == TCL_ERROR) { |
| 331 | return TCL_ERROR; |
| 332 | } |
| 333 | #ifdef TCL_THREADS |
| 334 | if (TclThread_Init(interp) == TCL_ERROR) { |
| 335 | return TCL_ERROR; |
| 336 | } |
| 337 | #endif |
| 338 | if (Procbodytest_Init(interp) == TCL_ERROR) { |
| 339 | return TCL_ERROR; |
| 340 | } |
| 341 | Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init, |
| 342 | Procbodytest_SafeInit); |
| 343 | #endif /* TCL_TEST */ |
| 344 | |
| 345 | /* |
| 346 | * Call the init procedures for included packages. Each call should |
| 347 | * look like this: |
| 348 | * |
| 349 | * if (Mod_Init(interp) == TCL_ERROR) { |
| 350 | * return TCL_ERROR; |
| 351 | * } |
| 352 | * |
| 353 | * where "Mod" is the name of the module. |
| 354 | */ |
| 355 | |
| 356 | /* |
| 357 | * Call Tcl_CreateCommand for application-specific commands, if |
| 358 | * they weren't already created by the init procedures called above. |
| 359 | */ |
| 360 | |
| 361 | if (OpenSeesAppInit(interp) < 0) |
| 362 | return TCL_ERROR; |
| 363 | |
| 364 | /* |
| 365 | * Specify a user-specific startup file to invoke if the application |
| 366 | * is run interactively. Typically the startup file is "~/.apprc" |
| 367 | * where "app" is the name of the application. If this line is deleted |
| 368 | * then no user-specific startup file will be run under any conditions. |
| 369 | */ |
| 370 |
nothing calls this directly
no test coverage detected