X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=Source%2FMacCompatibility.cpp;h=467c978ce7c2c32af40cf7a071b9af7103001a00;hb=250a16d5fa14b462b44b1e698372164ac33aa721;hp=86004e08bf093d2b73d423e57c67046c4ee1905b;hpb=2380b6fea047f5a8cafc64d11291798cd30e0515;p=lugaru.git

diff --git a/Source/MacCompatibility.cpp b/Source/MacCompatibility.cpp
index 86004e0..467c978 100644
--- a/Source/MacCompatibility.cpp
+++ b/Source/MacCompatibility.cpp
@@ -1,13 +1,41 @@
-#if !PLATFORM_MACOSX
+/*
+Copyright (C) 2003, 2010 - Wolfire Games
+Copyright (C) 2010-2016 - Lugaru contributors (see AUTHORS file)
+
+This file is part of Lugaru.
+
+Lugaru is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+Lugaru is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with Lugaru.  If not, see <http://www.gnu.org/licenses/>.
+*/
 
 /**> HEADER FILES <**/
 #include "MacCompatibility.h"
+
+#ifdef WIN32
 #include <windows.h>
+#endif
+
 #include <errno.h>
 #include <time.h>
 #include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
 
 #if PLATFORM_UNIX
+#include <unistd.h>
+#include <sys/time.h>
+#include <sys/stat.h>
+#include <assert.h>
 typedef long long __int64;
 typedef __int64 LARGE_INTEGER;
 static int QueryPerformanceFrequency(LARGE_INTEGER *liptr)
@@ -18,7 +46,7 @@ static int QueryPerformanceFrequency(LARGE_INTEGER *liptr)
     return(1);
 }
 
-static void QueryPerformanceCounter(LARGE_INTEGER *liptr)
+static int QueryPerformanceCounter(LARGE_INTEGER *liptr)
 {
     struct timeval tv;
     gettimeofday(&tv, NULL);
@@ -31,102 +59,211 @@ static void QueryPerformanceCounter(LARGE_INTEGER *liptr)
 class AppTime
 {
 public:
-	AppTime()
-	{
-		counterRate = 1;
-		baseCounter = 0;
-		QueryPerformanceFrequency( (LARGE_INTEGER*)&counterRate);
-		QueryPerformanceCounter( (LARGE_INTEGER*)&baseCounter);
-	}
-	__int64 counterRate;		// LARGE_INTEGER type has no math functions so use int64
-	__int64 baseCounter;
+    AppTime() {
+        counterRate = 1;
+        baseCounter = 0;
+        QueryPerformanceFrequency( (LARGE_INTEGER*)&counterRate);
+        QueryPerformanceCounter( (LARGE_INTEGER*)&baseCounter);
+    }
+    __int64 counterRate; // LARGE_INTEGER type has no math functions so use int64
+    __int64 baseCounter;
 };
 static AppTime g_appTime;
 
-
-void CopyCStringToPascal( const char* src, unsigned char dst[256])
+AbsoluteTime UpTime()
 {
-	int len = strlen( src);
-	dst[ 0] = len;
-	memcpy( dst + 1, src, len);
+    __int64 counter;
+    QueryPerformanceCounter( (LARGE_INTEGER*)&counter);
+
+    counter -= g_appTime.baseCounter;
+
+    AbsoluteTime time;
+    time.lo = (unsigned long)counter;
+    time.hi = (unsigned long)(counter >> 32);
+    return time;
 }
 
 
-void CopyPascalStringToC( const unsigned char* src, char* dst)
+Duration AbsoluteDeltaToDuration( AbsoluteTime& a, AbsoluteTime& b)
 {
-	int len = src[ 0];
-	memcpy( dst, src + 1, len);
-	dst[ len] = 0;
+    __int64 value = a.hi;
+    value <<= 32;
+    value |= a.lo;
+    __int64 value2 = b.hi;
+    value2 <<= 32;
+    value2 |= b.lo;
+    value -= value2;
+
+    if (value <= 0)
+        return durationImmediate;
+
+    __int64 frac = value % g_appTime.counterRate;
+    value /= g_appTime.counterRate;
+
+    Duration time;
+
+    if (value == 0) {
+        frac *= -1000000;
+        frac /= g_appTime.counterRate;
+        time = (Duration)frac;
+    } else {
+        frac *= 1000;
+        frac /= g_appTime.counterRate;
+        value *= 1000;
+        value += frac;
+        time = (Duration)value;
+    }
+
+    return time;
 }
 
 
-AbsoluteTime UpTime()
+#if PLATFORM_UNIX
+#include <sys/types.h>
+#include <pwd.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <dirent.h>
+
+// some but not all of this is code from PhysicsFS: http://icculus.org/physfs/
+//  the zlib license on physfs allows this cut-and-pasting.
+static int locateOneElement(char *buf)
 {
-	__int64 counter;
-	QueryPerformanceCounter( (LARGE_INTEGER*)&counter);
+    char *ptr;
+    DIR *dirp;
 
-	counter -= g_appTime.baseCounter;
+    //if (PHYSFS_exists(buf))
+    if (access(buf, F_OK) == 0)
+        return(1);  /* quick rejection: exists in current case. */
 
-	AbsoluteTime time;
-	time.lo = (unsigned long)counter;
-	time.hi = (unsigned long)(counter >> 32);
-	return time;
-}
+    ptr = strrchr(buf, '/');  /* find entry at end of path. */
+    if (ptr == NULL) {
+        dirp = opendir(".");
+        ptr = buf;
+    } /* if */
+    else {
+        *ptr = '\0';
+        dirp = opendir(buf);
+        *ptr = '/';
+        ptr++;  /* point past dirsep to entry itself. */
+    } /* else */
 
+    struct dirent *dent;
+    while ((dent = readdir(dirp)) != NULL) {
+        if (strcasecmp(dent->d_name, ptr) == 0) {
+            strcpy(ptr, dent->d_name); /* found a match. Overwrite with this case. */
+            closedir(dirp);
+            return(1);
+        } /* if */
+    } /* for */
 
-Duration AbsoluteDeltaToDuration( AbsoluteTime& a, AbsoluteTime& b)
+    /* no match at all... */
+    closedir(dirp);
+    return(0);
+} /* locateOneElement */
+
+
+static inline const char *getUserDirByUID(void)
 {
-	__int64 value = a.hi;
-	value <<= 32;
-	value |= a.lo;
-	__int64 value2 = b.hi;
-	value2 <<= 32;
-	value2 |= b.lo;
-	value -= value2;
-
-	if (value <= 0)
-		return durationImmediate;
-
-	__int64 frac = value % g_appTime.counterRate;
-	value /= g_appTime.counterRate;
-
-	Duration time;
-
-	if (value == 0)
-	{
-		frac *= -1000000;
-		frac /= g_appTime.counterRate;
-		time = (Duration)frac;
-	}
-	else
-	{
-		frac *= 1000;
-		frac /= g_appTime.counterRate;
-		value *= 1000;
-		value += frac;
-		time = (Duration)value;
-	}
-
-	return time;
-}
+    struct passwd *pw = getpwuid(getuid());
+    if (pw != NULL)
+        return(pw->pw_dir);
+    return(NULL);
+} /* getUserDirByUID */
+
+
+static inline const char *getPrefPath(void)
+{
+    static char *prefpath = NULL;
+    if (prefpath == NULL) {
+        const char *homedir = getenv("HOME");
+        if (homedir == NULL)
+            homedir = getUserDirByUID();
+        if (homedir == NULL)
+            homedir = ".";  // oh well.
 
+#if (defined(__APPLE__) && defined(__MACH__))
+        const char *PREFPATHNAME = "Library/Application Support/Lugaru";
+#else
+        const char *PREFPATHNAME = ".lugaru";
+#endif
+        size_t len = strlen(homedir) + strlen(PREFPATHNAME) + 2;
+        prefpath = new char[len];
+        snprintf(prefpath, len, "%s/%s", homedir, PREFPATHNAME);
+    }
+    return(prefpath);
+}
 
-static char g_filename[ 256];
-char* ConvertFileName( const char* orgfilename)
+static int locateCorrectCase(char *buf, bool makedirs)
 {
-	// translate filename into proper path name
-	if (orgfilename[ 0] == ':')
-		orgfilename++;
-	strcpy( g_filename, orgfilename);
-
-	for (int n = 0; g_filename[ n]; n++)
-	{
-		if (g_filename[ n] == ':')
-			g_filename[ n] = '/';
-	}
-
-	return g_filename;
+    int rc;
+    char *ptr = buf;
+
+    while (ptr = strchr(ptr + 1, '/')) {
+        *ptr = '\0';  /* block this path section off */
+        rc = locateOneElement(buf);
+        if (!rc) {
+            if (makedirs)  /* normal if we're writing; build dirs! */
+                mkdir(buf, S_IRWXU);
+            else {
+                *ptr = '/'; /* restore path separator */
+                return(-2);  /* missing element in path. */
+            } /* else */
+        } /* if */
+        *ptr = '/'; /* restore path separator */
+    } /* while */
+
+    /* check final element... */
+    return(locateOneElement(buf) ? 0 : -1);
 }
 
+
+static int locateCorrectFile(char *buf, const char *mode)
+{
+    if (*buf == '\0')
+        return(0);  /* Uh...I guess that's failure. */
+
+    assert((mode[0] == 'w') || (mode[0] == 'r'));
+
+    bool iswriting = (mode[0] == 'w');
+    const char *prefpath = getPrefPath();
+    size_t len = strlen(buf) + strlen(prefpath) + 2;
+    char *prefpathfile = (char *) alloca(len);
+    snprintf(prefpathfile, len, "%s/%s", prefpath, buf);
+
+    int rc = locateCorrectCase(prefpathfile, iswriting);  /* favor prefpath. */
+    if ( (rc == 0) || ((rc == -1) && (iswriting)) ) // found or create?
+        strcpy(buf, prefpathfile);
+    else if ((rc < 0) && (!iswriting))  /* not writing? Try game dir... */
+        rc = locateCorrectCase(buf, iswriting);
+
+    return(rc);
+} /* locateCorrectFile */
+#endif
+
+
+static char g_filename[4096];
+char* ConvertFileName( const char* orgfilename, const char *mode)
+{
+    if (orgfilename == g_filename) // recursion?
+        return g_filename;
+
+    // translate filename into proper path name
+    if (orgfilename[ 0] == ':')
+        orgfilename++;
+    strcpy( g_filename, orgfilename);
+
+    for (int n = 0; g_filename[ n]; n++) {
+        if (g_filename[ n] == ':')
+            g_filename[ n] = '/';
+
+        else if (g_filename[ n] == '\\')
+            g_filename[ n] = '/';
+    }
+
+#if PLATFORM_UNIX
+    locateCorrectFile(g_filename, mode);
 #endif
 
+    return g_filename;
+}