Source/MacCompatibility.cpp

   1 /*
   2 Copyright (C) 2003, 2010 - Wolfire Games
   3
   4 This file is part of Lugaru.
   5
   6 Lugaru is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 Lugaru is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with Lugaru.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #if !PLATFORM_MACOSX
  21
  22 /**> HEADER FILES <**/
  23 #include "MacCompatibility.h"
  24
  25 #ifdef WIN32
  26 #include <windows.h>
  27 #endif
  28
  29 #include <errno.h>
  30 #include <time.h>
  31 #include <stdio.h>
  32 #include <stdlib.h>
  33 #include <string.h>
  34
  35 #if PLATFORM_UNIX
  36 #include <unistd.h>
  37 #include <sys/time.h>
  38 #include <sys/stat.h>
  39 #include <assert.h>
  40 typedef long long __int64;
  41 typedef __int64 LARGE_INTEGER;
  42 static int QueryPerformanceFrequency(LARGE_INTEGER *liptr)
  43 {
  44     assert(sizeof (__int64) == 8);
  45     assert(sizeof (LARGE_INTEGER) == 8);
  46     *liptr = 1000;
  47     return(1);
  48 }
  49
  50 static int QueryPerformanceCounter(LARGE_INTEGER *liptr)
  51 {
  52     struct timeval tv;
  53     gettimeofday(&tv, NULL);
  54     *liptr = ( (((LARGE_INTEGER) tv.tv_sec) * 1000) +
  55                (((LARGE_INTEGER) tv.tv_usec) / 1000) );
  56     return(1);
  57 }
  58 #endif
  59
  60 class AppTime
  61 {
  62 public:
  63     AppTime() {
  64         counterRate = 1;
  65         baseCounter = 0;
  66         QueryPerformanceFrequency( (LARGE_INTEGER*)&counterRate);
  67         QueryPerformanceCounter( (LARGE_INTEGER*)&baseCounter);
  68     }
  69     __int64 counterRate; // LARGE_INTEGER type has no math functions so use int64
  70     __int64 baseCounter;
  71 };
  72 static AppTime g_appTime;
  73
  74
  75 void CopyCStringToPascal( const char* src, unsigned char dst[256])
  76 {
  77     int len = strlen( src);
  78     dst[ 0] = len;
  79     memcpy( dst + 1, src, len);
  80 }
  81
  82
  83 void CopyPascalStringToC( const unsigned char* src, char* dst)
  84 {
  85     int len = src[ 0];
  86     memcpy( dst, src + 1, len);
  87     dst[ len] = 0;
  88 }
  89
  90
  91 AbsoluteTime UpTime()
  92 {
  93     __int64 counter;
  94     QueryPerformanceCounter( (LARGE_INTEGER*)&counter);
  95
  96     counter -= g_appTime.baseCounter;
  97
  98     AbsoluteTime time;
  99     time.lo = (unsigned long)counter;
 100     time.hi = (unsigned long)(counter >> 32);
 101     return time;
 102 }
 103
 104
 105 Duration AbsoluteDeltaToDuration( AbsoluteTime& a, AbsoluteTime& b)
 106 {
 107     __int64 value = a.hi;
 108     value <<= 32;
 109     value |= a.lo;
 110     __int64 value2 = b.hi;
 111     value2 <<= 32;
 112     value2 |= b.lo;
 113     value -= value2;
 114
 115     if (value <= 0)
 116         return durationImmediate;
 117
 118     __int64 frac = value % g_appTime.counterRate;
 119     value /= g_appTime.counterRate;
 120
 121     Duration time;
 122
 123     if (value == 0) {
 124         frac *= -1000000;
 125         frac /= g_appTime.counterRate;
 126         time = (Duration)frac;
 127     } else {
 128         frac *= 1000;
 129         frac /= g_appTime.counterRate;
 130         value *= 1000;
 131         value += frac;
 132         time = (Duration)value;
 133     }
 134
 135     return time;
 136 }
 137
 138
 139 #if PLATFORM_UNIX
 140 #include <sys/types.h>
 141 #include <pwd.h>
 142 #include <fcntl.h>
 143 #include <unistd.h>
 144 #include <dirent.h>
 145
 146 // some but not all of this is code from PhysicsFS: http://icculus.org/physfs/
 147 //  the zlib license on physfs allows this cut-and-pasting.
 148 static int locateOneElement(char *buf)
 149 {
 150     char *ptr;
 151     DIR *dirp;
 152
 153     //if (PHYSFS_exists(buf))
 154     if (access(buf, F_OK) == 0)
 155         return(1);  /* quick rejection: exists in current case. */
 156
 157     ptr = strrchr(buf, '/');  /* find entry at end of path. */
 158     if (ptr == NULL) {
 159         dirp = opendir(".");
 160         ptr = buf;
 161     } /* if */
 162     else {
 163         *ptr = '\0';
 164         dirp = opendir(buf);
 165         *ptr = '/';
 166         ptr++;  /* point past dirsep to entry itself. */
 167     } /* else */
 168
 169     struct dirent *dent;
 170     while ((dent = readdir(dirp)) != NULL) {
 171         if (strcasecmp(dent->d_name, ptr) == 0) {
 172             strcpy(ptr, dent->d_name); /* found a match. Overwrite with this case. */
 173             closedir(dirp);
 174             return(1);
 175         } /* if */
 176     } /* for */
 177
 178     /* no match at all... */
 179     closedir(dirp);
 180     return(0);
 181 } /* locateOneElement */
 182
 183
 184 static inline const char *getUserDirByUID(void)
 185 {
 186     struct passwd *pw = getpwuid(getuid());
 187     if (pw != NULL)
 188         return(pw->pw_dir);
 189     return(NULL);
 190 } /* getUserDirByUID */
 191
 192
 193 static inline const char *getPrefPath(void)
 194 {
 195     static char *prefpath = NULL;
 196     if (prefpath == NULL) {
 197         const char *homedir = getenv("HOME");
 198         if (homedir == NULL)
 199             homedir = getUserDirByUID();
 200         if (homedir == NULL)
 201             homedir = ".";  // oh well.
 202
 203 #if (defined(__APPLE__) && defined(__MACH__))
 204         const char *PREFPATHNAME = "Library/Application Support/Lugaru";
 205 #else
 206         const char *PREFPATHNAME = ".lugaru";
 207 #endif
 208         size_t len = strlen(homedir) + strlen(PREFPATHNAME) + 2;
 209         prefpath = new char[len];
 210         snprintf(prefpath, len, "%s/%s", homedir, PREFPATHNAME);
 211     }
 212     return(prefpath);
 213 }
 214
 215 static int locateCorrectCase(char *buf, bool makedirs)
 216 {
 217     int rc;
 218     char *ptr = buf;
 219
 220     while (ptr = strchr(ptr + 1, '/')) {
 221         *ptr = '\0';  /* block this path section off */
 222         rc = locateOneElement(buf);
 223         if (!rc) {
 224             if (makedirs)  /* normal if we're writing; build dirs! */
 225                 mkdir(buf, S_IRWXU);
 226             else {
 227                 *ptr = '/'; /* restore path separator */
 228                 return(-2);  /* missing element in path. */
 229             } /* else */
 230         } /* if */
 231         *ptr = '/'; /* restore path separator */
 232     } /* while */
 233
 234     /* check final element... */
 235     return(locateOneElement(buf) ? 0 : -1);
 236 }
 237
 238
 239 static int locateCorrectFile(char *buf, const char *mode)
 240 {
 241     if (*buf == '\0')
 242         return(0);  /* Uh...I guess that's failure. */
 243
 244     assert((mode[0] == 'w') || (mode[0] == 'r'));
 245
 246     bool iswriting = (mode[0] == 'w');
 247     const char *prefpath = getPrefPath();
 248     size_t len = strlen(buf) + strlen(prefpath) + 2;
 249     char *prefpathfile = (char *) alloca(len);
 250     snprintf(prefpathfile, len, "%s/%s", prefpath, buf);
 251
 252     int rc = locateCorrectCase(prefpathfile, iswriting);  /* favor prefpath. */
 253     if ( (rc == 0) || ((rc == -1) && (iswriting)) ) // found or create?
 254         strcpy(buf, prefpathfile);
 255     else if ((rc < 0) && (!iswriting))  /* not writing? Try game dir... */
 256         rc = locateCorrectCase(buf, iswriting);
 257
 258     return(rc);
 259 } /* locateCorrectFile */
 260 #endif
 261
 262
 263 static char g_filename[4096];
 264 char* ConvertFileName( const char* orgfilename, const char *mode)
 265 {
 266     if (orgfilename == g_filename) // recursion?
 267         return g_filename;
 268
 269     // translate filename into proper path name
 270     if (orgfilename[ 0] == ':')
 271         orgfilename++;
 272     strcpy( g_filename, orgfilename);
 273
 274     for (int n = 0; g_filename[ n]; n++) {
 275         if (g_filename[ n] == ':')
 276             g_filename[ n] = '/';
 277
 278         else if (g_filename[ n] == '\\')
 279             g_filename[ n] = '/';
 280     }
 281
 282 #if PLATFORM_UNIX
 283     locateCorrectFile(g_filename, mode);
 284 #endif
 285
 286     return g_filename;
 287 }
 288
 289 #endif
 290
 291