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); |