-#if !PLATFORM_MACOSX
+/*
+Copyright (C) 2003, 2010 - Wolfire Games
+Copyright (C) 2010-2016 - Lugaru contributors (see AUTHORS file)
-/**> HEADER FILES <**/
-#include "MacCompatibility.h"
+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/>.
+*/
+
+#include "MacCompatibility.hpp"
+
+#include <cerrno>
+#include <ctime>
+#include <cstdio>
+#include <cstdlib>
+#include <cstring>
#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 <assert.h>
#include <unistd.h>
+#include <sys/stat.h>
#include <sys/time.h>
-#include <assert.h>
+
typedef long long __int64;
typedef __int64 LARGE_INTEGER;
static int QueryPerformanceFrequency(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])
-{
- int len = strlen( src);
- dst[ 0] = len;
- memcpy( dst + 1, src, len);
-}
-
-
-void CopyPascalStringToC( const unsigned char* src, char* dst)
-{
- int len = src[ 0];
- memcpy( dst, src + 1, len);
- dst[ len] = 0;
-}
-
-
AbsoluteTime UpTime()
{
- __int64 counter;
- QueryPerformanceCounter( (LARGE_INTEGER*)&counter);
+ __int64 counter;
+ QueryPerformanceCounter( (LARGE_INTEGER*)&counter);
- counter -= g_appTime.baseCounter;
+ counter -= g_appTime.baseCounter;
- AbsoluteTime time;
- time.lo = (unsigned long)counter;
- time.hi = (unsigned long)(counter >> 32);
- return time;
+ AbsoluteTime time;
+ time.lo = (unsigned long)counter;
+ time.hi = (unsigned long)(counter >> 32);
+ return time;
}
Duration AbsoluteDeltaToDuration( AbsoluteTime& a, AbsoluteTime& b)
{
- __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;
-}
-
-
-#if PLATFORM_UNIX
-#include <sys/types.h>
-#include <dirent.h>
-
-// public domain code from PhysicsFS: http://icculus.org/physfs/
-static int locateOneElement(char *buf)
-{
- char *ptr;
- char **rc;
- char **i;
- DIR *dirp;
-
- //if (PHYSFS_exists(buf))
- if (access(buf, F_OK) == 0)
- return(1); /* quick rejection: exists in current case. */
-
- 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 (stricmp(dent->d_name, ptr) == 0)
- {
- strcpy(ptr, dent->d_name); /* found a match. Overwrite with this case. */
- closedir(dirp);
- return(1);
- } /* if */
- } /* for */
-
- /* no match at all... */
- closedir(dirp);
- return(0);
-} /* locateOneElement */
-
-
-static inline int PHYSFSEXT_locateCorrectCase(char *buf)
-{
- int rc;
- char *ptr;
- char *prevptr;
-
- ptr = prevptr = buf;
- if (*ptr == '\0')
- return(0); /* Uh...I guess that's success. */
-
- while (ptr = strchr(ptr + 1, '/'))
- {
- *ptr = '\0'; /* block this path section off */
- rc = locateOneElement(buf);
- *ptr = '/'; /* restore path separator */
- if (!rc)
- return(-2); /* missing element in path. */
- } /* while */
-
- /* check final element... */
- return(locateOneElement(buf) ? 0 : -1);
-} /* PHYSFSEXT_locateCorrectCase */
-#endif
-
-
-static char g_filename[ 256];
-char* ConvertFileName( const char* orgfilename)
-{
- // 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] = '/';
- }
-
- #if PLATFORM_UNIX
- PHYSFSEXT_locateCorrectCase(g_filename);
- #endif
-
- return g_filename;
+ __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;
}
-
-#endif
-
-