read_runinfo()

int read_runinfo

(

int

check_dir

)

                               {
  int ltmp;
  char time_format[MAX_PATH];
  char today[MAX_PATH];
  const char* time_format_var = NULL;
  time_t tt;
  struct tm *ttmp;
  int direrr;
  int    staterr;
  struct stat stat_s;
  double dtmp;


  /* INIT RUNINFO */
  rundetails->nnodes = size;
  CONFIG_GET_STRING(config, "runinfo.title" , rundetails->title);
  CONFIG_GET_STRING(config, "runinfo.owner" , rundetails->owner);
  CONFIG_GET_INT   (config, "runinfo.ksymmi", runinfo->ksymmi  );
  CONFIG_GET_INT   (config, "runinfo.krow"  , runinfo->krow    );

  // evaluating symmetry variables (please refer to user manual for this)
  // for ksymmi <= 3 - specular w.r.t. ksymmi symmetry planes
  // for ksymmi  > 3 - axially symmetric problem divided into ksymmi "slices"
  if (runinfo->ksymmi <= 3) {
    runinfo->nsymm = pow(2, runinfo->ksymmi);
  } else {
    runinfo->nsymm = runinfo->ksymmi;
  }
  logger(LOG_DEBUG, "runinfo->nsymm=%d\n", runinfo->nsymm);

  // Checking coherence of symmetry conditions
  if (runinfo->ksymmi < 0) {
    logger(LOG_ERROR, MSG_CFG_KSYMM_1_ERROR);
    return -1;
  }

  /* Creation of Output Files Parent Folder */
  tt = time(NULL);
  ttmp = localtime(&tt);
  if(NULL == CONFIG_LOOKUP(config,"runinfo.dirsuffix")){
    logger(LOG_DEBUG,"Dir suffix defaults to %%F\n");
    strcpy(time_format,"%F");
  }else{
    CONFIG_GET_STRING(config,"runinfo.dirsuffix",time_format_var);
    logger(LOG_DEBUG,"Dir suffix:%s\n",time_format_var);
    strcpy(time_format,time_format_var);
  }

  strftime(today, sizeof(today), time_format,ttmp);

  rundetails->out_filedir  = calloc(strlen(rundetails->title)+2+strlen(today),sizeof(char));
  sprintf(rundetails->out_filedir,"%s-%s",rundetails->title,today);

  rundetails->out_filepath = calloc(strlen(rundetails->cfg_filepath)+strlen(rundetails->out_filedir)+2,sizeof(char));
  sprintf(rundetails->out_filepath,"%s/%s",rundetails->cfg_filepath,rundetails->out_filedir);

  
  //Checking existence of dir
   logger(LOG_INFO,"Creating directory %s\n",rundetails->out_filepath);
   staterr = stat(rundetails->out_filepath,&stat_s);
   if(-1 == staterr){ // in case of error
    if(ENOENT == errno){ //  doesn't exist
      // 
      direrr = mkdir(rundetails->out_filepath,0777);
      if(0==direrr){
        logger(LOG_INFO,"Output files will be stored in folder %s\n",rundetails->out_filedir);
        logger(LOG_INFO,"  under path %s\n",rundetails->cfg_filepath);
      }else{
        logger(LOG_ERROR, "Error creating output directory %s\n",rundetails->out_filedir);
        return -1;
      }
    }else{
       logger(LOG_ERROR, "Error checking directory %s existence: [%d]\n",rundetails->out_filedir,errno);
       return -1;
    }
   }else{
      if(S_ISDIR(stat_s.st_mode)) {
       if(1 == check_dir){
         logger(LOG_ERROR, "Directory %s exists, cannot proceed\n",rundetails->out_filedir);
         return -1;
       }else{
         logger(LOG_WARN, "WARNING! Directory %s exists, existing files will be OVERWRITTEN\n",rundetails->out_filedir);
       }
      } else {
       // exists but is no dir 
       logger(LOG_ERROR, "Path %s exists, cannot proceed\n",rundetails->out_filedir);
        return -1;
      }
   }
  CONFIG_GET_FLOAT(config, "runinfo.vsound", runinfo->vsound);

  // getting grid information
  CONFIG_GET_INT(config, "runinfo.nprows", runinfo->nprows);
  CONFIG_GET_INT(config, "runinfo.npcols", runinfo->npcols);
  CONFIG_GET_INT(config, "runinfo.row_block_size", runinfo->row_block_size);
  CONFIG_GET_INT(config, "runinfo.col_block_size", runinfo->col_block_size);
  CONFIG_GET_INT(config, "runinfo.mics_block_size", runinfo->mics_block_size);

  // determining automatically grid size
  if (runinfo->nprows == 0 || runinfo->npcols == 0) {
    runinfo->nprows = 1; // defaults to 1      - Umb test
    runinfo->npcols = size; // defaults to nnodes - Umb test
    logger(LOG_INFO, "Warning: Grid size was automatically determined as %d x %d\n", runinfo->nprows, runinfo->npcols);
    logger(LOG_INFO, "         This choice is not optimal for large problems and a high number of processes.\n");
    logger(LOG_INFO, "         It may also lead to distribution inconsistencies. \n");
  }

  if (runinfo->npcols * runinfo->nprows != size) {
    logger(LOG_ERROR, MSG_CFG_GRIDSIZE, runinfo->nprows, runinfo->npcols, size);
    return -1;
  }

  // choosing a default block size
  if (runinfo->row_block_size == 0) runinfo->row_block_size = DEFAULT_ROW_BLOCK_SIZE;
  if (runinfo->col_block_size == 0) runinfo->col_block_size = DEFAULT_COL_BLOCK_SIZE;
  if (runinfo->mics_block_size == 0) runinfo->mics_block_size = DEFAULT_MICS_BLOCK_SIZE;


  return 0;

}