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