| 368 | */ |
| 369 | |
| 370 | int Tcl_AppInit(Tcl_Interp *interp) |
| 371 | { |
| 372 | if (Tcl_Init(interp) == TCL_ERROR) { |
| 373 | return TCL_ERROR; |
| 374 | } |
| 375 | |
| 376 | #ifdef TCL_TEST |
| 377 | #ifdef TCL_XT_TEST |
| 378 | if (Tclxttest_Init(interp) == TCL_ERROR) { |
| 379 | return TCL_ERROR; |
| 380 | } |
| 381 | #endif |
| 382 | if (Tcltest_Init(interp) == TCL_ERROR) { |
| 383 | return TCL_ERROR; |
| 384 | } |
| 385 | Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, |
| 386 | (Tcl_PackageInitProc *) NULL); |
| 387 | if (TclObjTest_Init(interp) == TCL_ERROR) { |
| 388 | return TCL_ERROR; |
| 389 | } |
| 390 | #ifdef TCL_THREADS |
| 391 | if (TclThread_Init(interp) == TCL_ERROR) { |
| 392 | return TCL_ERROR; |
| 393 | } |
| 394 | #endif |
| 395 | if (Procbodytest_Init(interp) == TCL_ERROR) { |
| 396 | return TCL_ERROR; |
| 397 | } |
| 398 | Tcl_StaticPackage(interp, "procbodytest", Procbodytest_Init, |
| 399 | Procbodytest_SafeInit); |
| 400 | #endif /* TCL_TEST */ |
| 401 | |
| 402 | /* |
| 403 | * Call the init procedures for included packages. Each call should |
| 404 | * look like this: |
| 405 | * |
| 406 | * if (Mod_Init(interp) == TCL_ERROR) { |
| 407 | * return TCL_ERROR; |
| 408 | * } |
| 409 | * |
| 410 | * where "Mod" is the name of the module. |
| 411 | */ |
| 412 | |
| 413 | /* |
| 414 | * Call Tcl_CreateCommand for application-specific commands, if |
| 415 | * they weren't already created by the init procedures called above. |
| 416 | */ |
| 417 | |
| 418 | if (OpenSeesAppInit(interp) < 0) |
| 419 | return TCL_ERROR; |
| 420 | |
| 421 | |
| 422 | /* |
| 423 | * Specify a user-specific startup file to invoke if the application |
| 424 | * is run interactively. Typically the startup file is "~/.apprc" |
| 425 | * where "app" is the name of the application. If this line is deleted |
| 426 | * then no user-specific startup file will be run under any conditions. |
| 427 | */ |
nothing calls this directly
no test coverage detected