source: GTP/trunk/App/Demos/Vis/CHC_revisited/common.cpp @ 2753

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#include "common.h"

#ifdef _X_WINDOW_
#include "xwindow.h"
#endif

#ifndef _MSC_VER
#include <unistd.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/times.h>
#include <sys/resource.h>
#else
#include <windows.h>
#include <sys/types.h>
#include <sys/timeb.h>
#endif


using namespace std;


namespace CHCDemo 
{


Real Limits::Threshold = 1e-6f;
Real Limits::Small = 0.01f;
Real Limits::Infinity = 1e20f;


Real Random(Real max)
{
#ifdef __UNIX__
  return (random()*max/0x7FFFFFFF);
#else
  return (((Real)rand()) / RAND_MAX) * max;
#endif
}


int Random(int max)
{
        return rand() % max;
}


void Randomize()
{
        time_t t;
        srand((unsigned) time(&t));
}

void
Randomize(const unsigned int seed)
{
  srand(seed);
}


string
ReplaceSuffix(const string &filename, const string &a, const string &b)
{
        string result = filename;

        int pos = (int)filename.rfind(a, (int)filename.size() - 1);
        if (pos == filename.size() - a.size()) 
        {
                result.replace(pos, a.size(), b);
        }

        return result;
}


int
SplitFilenames(const string &str, vector<string> &filenames)
{
        int pos = 0;

        while(1) {
                int npos = (int)str.find(';', pos);
                
                if (npos < 0 || npos - pos < 1)
                        break;
                filenames.push_back(string(str, pos, npos - pos));
                pos = npos + 1;
        }
        
        filenames.push_back(string(str, pos, str.size() - pos));
        return (int)filenames.size();
}

void GetKey(char *s)
{
#ifdef _X_WINDOW_
XWaitForButton(s);
#else
getch();
#endif
}

#ifdef  _MSC_VER
static bool hasHRTimer = false;
static LARGE_INTEGER hrFreq;
#endif


void InitTiming()
{
#ifdef  _MSC_VER
        hasHRTimer = (bool) QueryPerformanceFrequency(&hrFreq);
#endif
}

long GetTime()
{
#ifndef  _MSC_VER
        static struct rusage r;
        getrusage(RUSAGE_SELF,&r);
        return r.ru_utime.tv_usec+1000000*r.ru_utime.tv_sec;
#else
        if (hasHRTimer) {
                LARGE_INTEGER counter;
                QueryPerformanceCounter(&counter);
                // return in usec
                //return (long) (1000000*counter.QuadPart/(hrFreq.QuadPart));
                // $$
                // tmp store time in ms
                return (long) (1000*counter.QuadPart/(hrFreq.QuadPart));
        } else {
                static struct _timeb mtime;
                _ftime(&mtime);

                return 1000*(1000*mtime.time + mtime.millitm);
        }
#endif
}


long
GetRealTime()
{
#ifndef  _MSC_VER
        static struct timeval _tstart;
        static struct timezone tz;
        gettimeofday(&_tstart,&tz);
        return (long)(1000000*_tstart.tv_sec + _tstart.tv_usec);
#else
        if (hasHRTimer) {
                LARGE_INTEGER counter;
                QueryPerformanceCounter(&counter);
                // return in usec
                return (long) (1000000*counter.QuadPart/(hrFreq.QuadPart));
        } else {
                static struct _timeb mtime;
                _ftime(&mtime);
                return 1000*(1000*mtime.time + mtime.millitm);
        }
#endif
}

// return time diff. in ms
Real TimeDiff(long time1, long time2) // in ms
{
        //const Real clk=1.0e-3f; // ticks per second
        // $$ tmp store time in ms
        const Real clk=1.0f; // ticks per second
        long t=time2-time1;

        return ((t<0)?-t:t)*clk;
}

char *TimeString()
{
        time_t t;
        time(&t);

        return ctime(&t);
}


char *GetAbsPath(char *name)
{
        //  char *url = new char[strlen(name)+1];
        //  strcpy(url,name);

        // get the absolute path
        size_t c = strlen(name);
        int i = c - 1;
        bool wasDot = false;

        // search for double dot
        for (; i >= 0; -- i) 
        {
                if (name[i]=='.') 
                {
                        if (wasDot)
                                break;
                        wasDot = true;
                } 
                else
                        wasDot = false;
        }

        if (i>0)
                i+=3;
        if (i<0)
                i=0;

        char *url = new char[c-i+1];

        int j=0;

        for (;i<c;i++,j++)
                url[j] = name[i];

        url[j]=0;

        return url;
}


void indent(ostream &app, int ind)
{
        int i;
        
        for (i = 0; i < ind; i++)
                app << ' ';
}


char *GetPath(const char *s)
{
        size_t i = strlen(s);
        for (; i > 0; -- i) 
        {
                if (s[i]=='/' || s[i]=='\\')
                        break;
        }

        char *path = new char[i+1];
        int j=0;
        for (; j<i; j++)
                path[j] = s[j];
        path[j] = 0;
        return path;
}


char *
StripPath(const char *s)
{
        const int len = strlen(s);

        int i = len;
        for (; i>0; i--) {
                if (s[i]=='/' || s[i]=='\\')
                        break;
        }

        char *filename = new char[len - i];
        int j = 0;

        for (; j < len - i; ++ j)
                filename[j] = s[i + j + 1];
        //filename[j] = 0;

        return filename;
}

char *
strdup(char *a)
{
        if (a) {
                char *s = new char[strlen(a)+1];
                strcpy(s, a);
                return s;
        } else
                return NULL;
}

bool
FileExists(char *filename)
{
        FILE *f;

        f = fopen(filename,"r");
        if (f) {
                fclose(f);
                return true;
        }
        return false;
}


#if TOIMPLEMENT

bool
CreateDir(char *dir)
{
#ifdef _MSC_VER
        HANDLE fFile; // File Handle
        WIN32_FIND_DATA fileinfo; // File Information Structure
        int n = strlen(dir) - 1;

        if (dir[n] == '\\' || dir[n] == '/')
                dir[n]=0;

        fFile = FindFirstFile(dir, &fileinfo);

        // if the file exists and it is a directory
        if (fileinfo.dwFileAttributes == FILE_ATTRIBUTE_DIRECTORY) {
                // Directory Exists close file and return
                FindClose(fFile);
                return true;
        }

        FindClose(fFile);

        // Now lets cycle through the String Array and create each directory in turn
        if (CreateDirectory(dir, 0)) {
                SetFileAttributes(dir, FILE_ATTRIBUTE_NORMAL);
                return true;
        } else {
                char *temp = GetPath(dir);

                if (strcmp(temp, dir)!=0) {
                        CreateDir(temp);
                        if (CreateDirectory(dir, 0)) {
                                SetFileAttributes(dir, FILE_ATTRIBUTE_NORMAL);
                                return true;
                        }
                }
                delete temp;
        }
        Debug << "cannot create directory " << dir << endl;
#endif
        return false;
}


#endif

}