mainfunc.C

Go to the documentation of this file.

#include "memusage.h"
#include "converse.h"
#include "common.h"
#include "BackEnd.h"
#include "InfoStream.h"
#include "Broadcasts.h"

#include "NamdState.h"
#include "Node.h"
#if defined(WIN32) && !defined(__CYGWIN__)
#include <direct.h>
#define CHDIR _chdir
#define GETCWD _getcwd
#define PATHSEP '\\'
#define PATHSEPSTR "\\"
#else
#include <unistd.h>
#define CHDIR chdir
#define GETCWD getcwd
#define PATHSEP '/'
#define PATHSEPSTR "/"
#endif
#include <sys/stat.h>
#include "ConfigList.h"
#include "ScriptTcl.h"


void after_backend_init(int argc, char **argv);

int main(int argc, char **argv) {
  BackEnd::init(argc,argv);
  after_backend_init(argc, argv);
  return 0;
}

void after_backend_init(int argc, char **argv){
  ScriptTcl *script = new ScriptTcl;
  Node::Object()->setScript(script);

  for(argc = 0; argv[argc]; ++argc);
  if ( argc < 2 ) {
    NAMD_die("No simulation config file specified on command line.");
  }
#ifdef NAMD_TCL
  if (argc>2)
    iout << iINFO << "Found " << (argc-1) << " config files.\n" << endi;
  for(int i = 1; i < argc; ++i) {
  char *confFile = argv[i];
#else
  char *confFile = argv[argc-1];
#endif
  char *oldcwd = GETCWD(0,0);
  char *currentdir=confFile;
  char *tmp;
  for(tmp=confFile;*tmp;++tmp); // find final null
  for( ; tmp != confFile && *tmp != PATHSEP; --tmp); // find last '/'
#if defined(WIN32) && !defined(__CYGWIN__)
  if (tmp == confFile) {
    // in case this is under cygwin, search for '/' as well
    for(tmp=confFile;*tmp;++tmp); // find final null
    for( ; tmp != confFile && *tmp != '/'; --tmp); // find last '/'
  }
#endif
  if ( tmp != confFile )
  {
    *tmp = 0; confFile = tmp + 1;
    if ( CHDIR(currentdir) ) NAMD_die("chdir() failed!");
    iout << iINFO << "Changed directory to " << currentdir << "\n" << endi;
  }
  else if ( *tmp == PATHSEP ) // config file in / is odd, but it might happen
    if ( CHDIR(PATHSEPSTR) ) NAMD_die("chdir() failed!");
  currentdir = NULL;

  iout << iINFO << "Configuration file is " << confFile << "\n" << endi;

  struct stat statBuf;
  if (stat(confFile, &statBuf)) {
    NAMD_die("Simulation config file is not accessible.");
  }

#ifdef NAMD_TCL
  if ( i == argc - 1 ) script->run(confFile);
  else script->load(confFile);
#else
  script->run(confFile);
#endif

  CHDIR(oldcwd);
//  free(oldcwd);

#ifdef NAMD_TCL
}
#endif

  BackEnd::exit();
}

---