| version 1.121 | version 1.122 |
|---|
| |
| | |
| extern "C" int psfgen_static_init(Tcl_Interp *); | extern "C" int psfgen_static_init(Tcl_Interp *); |
| | |
| | int eabf_static_init(Tcl_Interp *); |
| | |
| | |
| #endif // NAMD_TCL | #endif // NAMD_TCL |
| | |
| |
| // Create interpreter | // Create interpreter |
| interp = Tcl_CreateInterp(); | interp = Tcl_CreateInterp(); |
| psfgen_static_init(interp); | psfgen_static_init(interp); |
| | eabf_static_init(interp); |
| tcl_vector_math_init(interp); | tcl_vector_math_init(interp); |
| Tcl_CreateCommand(interp, "python", Tcl_python, | Tcl_CreateCommand(interp, "python", Tcl_python, |
| (ClientData) this, (Tcl_CmdDeleteProc *) NULL); | (ClientData) this, (Tcl_CmdDeleteProc *) NULL); |
| |
| int ScriptTcl::tclsh(int argc, char **argv) { | int ScriptTcl::tclsh(int argc, char **argv) { |
| Tcl_Interp *interp = Tcl_CreateInterp(); | Tcl_Interp *interp = Tcl_CreateInterp(); |
| psfgen_static_init(interp); | psfgen_static_init(interp); |
| | eabf_static_init(interp); |
| tcl_vector_math_init(interp); | tcl_vector_math_init(interp); |
| Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY); | Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY); |
| Tcl_SetVar2Ex(interp, "argc", NULL, Tcl_NewIntObj(argc-1), TCL_GLOBAL_ONLY); | Tcl_SetVar2Ex(interp, "argc", NULL, Tcl_NewIntObj(argc-1), TCL_GLOBAL_ONLY); |