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