Function logFile

SRC/tcl/commands.cpp:8906–8933

}

int 
logFile(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{

  if (argc < 2) { 
    opserr << "WARNING logFile fileName? - no filename supplied\n";
    return TCL_ERROR;
  }
  openMode mode = OVERWRITE;
  bool echo = true;

  int cArg = 2;
  while (cArg < argc) {
    if (strcmp(argv[cArg],"-append") == 0) 
      mode = APPEND;
    if (strcmp(argv[cArg],"-noEcho") == 0) 
      echo = false;
    cArg++;
  }

  if (opserr.setFile(argv[1], mode, echo) < 0) 
    opserr << "WARNING logFile " << argv[1] << " failed to set the file\n";

  const char *pwd = getInterpPWD(interp);  
  simulationInfo.addOutputFile(argv[1], pwd);

  return TCL_OK;
}


int