version 1.24 | version 1.25 |
---|
| |
#endif | #endif |
| |
int main(int argc, char **argv) { | int main(int argc, char **argv) { |
| #ifdef NAMD_TCL |
if ( argc > 2 && ! strcmp(argv[1],"+tclsh") ) { | if ( argc > 2 && ! strcmp(argv[1],"+tclsh") ) { |
// pass all remaining arguments to script | // pass all remaining arguments to script |
return ScriptTcl::tclsh(argc-2,argv+2); | return ScriptTcl::tclsh(argc-2,argv+2); |
} | } |
| #endif |
BackEnd::init(argc,argv); | BackEnd::init(argc,argv); |
after_backend_init(argc, argv); | after_backend_init(argc, argv); |
return 0; | return 0; |