Utilities.cpp

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <iostream>

using namespace std;

#ifdef _WIN64
    #include <direct.h>
    #define GetCurrentDir _getcwd
#else
    #include <unistd.h>
    #define GetCurrentDir getcwd
#endif


extern int VERBOSE;
extern char *paramFileBuffer;

std::string get_current_dir() {
	char buff[FILENAME_MAX]; //create string buffer to hold path
	GetCurrentDir(buff, FILENAME_MAX);
	string current_working_dir(buff);
	return current_working_dir;
}

char *readParmetersFileToBuffer(char *paramFilePath) {
	char *buffer = NULL;
    char *line = NULL;

	long length=0;
	ssize_t nread;
	size_t len = 0;

	FILE *parmFile = fopen(paramFilePath, "r");
	if (VERBOSE > 3) { printf("Reading Input paramaterfile  %s \n", paramFilePath ); }	

	if (parmFile)
	{
	  fseek(parmFile, 0, SEEK_END);
	  length = ftell(parmFile);
	  fseek(parmFile, 0, SEEK_SET);
	  buffer = (char *)malloc(length+1);
	  if(buffer)
	  {
			// put an empty space in the buffer so it has a null charactter
			sprintf(buffer," ");
			while ((nread = getline(&line, &len, parmFile)) != -1) {
				// skip lines beginning wit # or SPACE or EMPTY
               if(!((strncmp(line, "#", 1) == 0) || (strncmp(line, " ", 1) == 0) || (strlen(line) == 1)))
               {
					if (VERBOSE > 8) {printf("Valid NAME=VALUE found: %s", line);}
					sprintf(buffer + strlen(buffer), "%s", line);			   
			   }           
           }
	  }
	  fclose (parmFile);
	  // put an null charactter at the end just in case
	  buffer[length]='\0';
	}
	else
	{
		printf("ERROR: couldnt open parameter FILE  %s \n",paramFilePath);
		exit(-1);
	}	
	return buffer;			
}


int getIntParameterValueByName(char *paramName) {
  char *p;
  int found=0, paramValue=0;
  // have to copy the buffer  strtok() function modifies the buffer it searches 
  char *buffer=(char *)malloc(sizeof(char)*strlen(paramFileBuffer));
  strcpy(buffer,paramFileBuffer);
	    
  const char delims[24] = ",:= \r\n\t";
  p = strtok(buffer,delims);
  while (p!= NULL && found==0)
  {
    if (VERBOSE > 8) { printf("TOKEN: found token %s \n", p);}
	if (strcmp(p,paramName) == 0)
	{
		found = 1;
	    p = strtok (NULL, delims);
		paramValue = atoi(p);
	    if (VERBOSE > 8) { printf("SUCESS: found %s its value is %d\n", paramName, paramValue);}
	}
    p = strtok (NULL, delims);
  }
  free(buffer);
  if (found == 0) { printf("ERROR: Could not find a value %s in parameter file \n", paramName);exit(-1);}
  if (VERBOSE > 5) { printf("PARAMETER %s = %d\n", paramName, paramValue); }
  
  return paramValue;	
}

int getStringParameterValueByName(char *paramName, char *stringBuffer) {
  char *p;
  int found=0;  
  const char delims[24] = ",:= \r\n\t";
  
    // have to copy the buffer  strtok() function modifies the buffer it searches 
  char *buffer=(char *)malloc(sizeof(char)*strlen(paramFileBuffer));
  strcpy(buffer,paramFileBuffer);

  p = strtok(buffer,delims);
  while (p!= NULL && found==0)
  {
	if (strcmp(p,paramName) == 0)
	{
		found = 1;
	    p = strtok (NULL, delims);
	    strcpy(stringBuffer,p);
	    if (VERBOSE > 8) { printf("SUCESS: found %s its value is %s\n", paramName, p);}
	}
    p = strtok (NULL, delims);
  }
  free(buffer);

  if (found == 0) { printf("ERROR: Could not find a parameter    %s     in parameter file \n", paramName);exit(-1);}
  if (VERBOSE > 5) { printf("PARAMETER %s = %s\n", paramName, stringBuffer); }

  return found;	
}

double getDoubleParameterValueByName(char *paramName) {
  char *p;
  int found=0;
  double paramValue=0.0;
  // have to copy the buffer  strtok() function modifies the buffer it searches 
  char *buffer=(char *)malloc(sizeof(char)*strlen(paramFileBuffer));
  strcpy(buffer,paramFileBuffer);
	    
  const char delims[24] = ",:= \r\n\t";
  p = strtok(buffer,delims);
  while (p!= NULL && found==0)
  {
    if (VERBOSE > 8) { printf("TOKEN: found token %s \n", p);}
	if (strcmp(p,paramName) == 0)
	{
		found = 1;
	    p = strtok (NULL, delims);
		paramValue = atof(p);
	    if (VERBOSE > 8) { printf("SUCESS: found %s its value is %g\n", paramName, paramValue);}
	}
    p = strtok (NULL, delims);
  }
  free(buffer);
  if (found == 0) { printf("ERROR: Could not find a value %s in parameter file \n", paramName);exit(-1);}
  if (VERBOSE > 5) { printf("PARAMETER %s = %g\n", paramName, paramValue); }
  
  return paramValue;	
}