| version 1.23 | version 1.24 |
|---|
| |
| #endif | #endif |
| | |
| int main(int argc, char **argv) { | int main(int argc, char **argv) { |
| | if ( argc > 2 && ! strcmp(argv[1],"+tclsh") ) { |
| | // pass all remaining arguments to script |
| | return ScriptTcl::tclsh(argc-2,argv+2); |
| | } |
| BackEnd::init(argc,argv); | BackEnd::init(argc,argv); |
| after_backend_init(argc, argv); | after_backend_init(argc, argv); |
| return 0; | return 0; |
| |
| sprintf(buf, "missing argument for command line option %s", argv[i]); | sprintf(buf, "missing argument for command line option %s", argv[i]); |
| NAMD_die(buf); | NAMD_die(buf); |
| } | } |
| | if ( ! strcmp(argv[i],"--tclmain") ) { |
| | // pass all remaining arguments to script |
| | iout << iINFO << "Command-line argument is"; |
| | for ( int j=i; j<argc; ++j ) { iout << " " << argv[j]; } |
| | iout << "\n" << endi; |
| | script->tclmain(argc-i-1,argv+i+1); |
| | BackEnd::exit(); |
| | return; |
| | } |
| sprintf(buf, "%s %s", argv[i]+2, argv[i+1]); | sprintf(buf, "%s %s", argv[i]+2, argv[i+1]); |
| iout << iINFO << "Command-line argument is --" << buf << "\n" << endi; | iout << iINFO << "Command-line argument is --" << buf << "\n" << endi; |
| script->eval(buf); | script->eval(buf); |