dwindows: dwcompat.c annotate

annotate dwcompat.c @ 1860:02a23143334c

Apparently Visual C's "long double" type is "double" for gcc... So when building with MinGW, we need to compile as "double" instead of "long double" to maintain ABI compatibility with Visual C compiled applications.

author	bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date	Fri, 01 Mar 2013 13:01:59 +0000
parents	22225eb286e5
children	cb5f9aa9aebb

rev	line source
1839 22225eb286e5 Fixes for building with MINGW64 (specifically http://tdm-gcc.tdragon.net/). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1710 diff changeset	1 /* $Id: dwcompat.c 1717 2012-05-05 22:44:27Z bsmith $ */
1617 f8d1da63fb77 Add code to allow building DW.DLL as Unicode on Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1609 diff changeset	2 #undef UNICODE
f8d1da63fb77 Add code to allow building DW.DLL as Unicode on Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1609 diff changeset	3 #undef _UNICODE
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	4
1601 71e0a3ad07f7 Enable level 3 warnings in DEBUG mode with Visual C to show deprecation warnings. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1594 diff changeset	5 #ifdef __WIN32__
71e0a3ad07f7 Enable level 3 warnings in DEBUG mode with Visual C to show deprecation warnings. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1594 diff changeset	6 #include <direct.h>
71e0a3ad07f7 Enable level 3 warnings in DEBUG mode with Visual C to show deprecation warnings. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1594 diff changeset	7 #endif
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	8 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	9 #include <share.h>
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	10 #endif
1839 22225eb286e5 Fixes for building with MINGW64 (specifically http://tdm-gcc.tdragon.net/). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1710 diff changeset	11 #define _DW_INTERNAL
1601 71e0a3ad07f7 Enable level 3 warnings in DEBUG mode with Visual C to show deprecation warnings. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1594 diff changeset	12 #include "dwcompat.h"
71e0a3ad07f7 Enable level 3 warnings in DEBUG mode with Visual C to show deprecation warnings. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1594 diff changeset	13 #include "dw.h"
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	14
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	15 #if defined(__UNIX__) \|\| defined(__MAC__)
f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	16 #if defined(__FreeBSD__) \|\| defined(__MAC__)
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	17 #include <sys/param.h>
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	18 #include <sys/ucred.h>
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	19 #include <sys/mount.h>
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	20 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	21 #include <sys/mnttab.h>
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	22 #include <sys/param.h>
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	23 #include <sys/mount.h>
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	24 #include <sys/statvfs.h>
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	25 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	26 #include <mntent.h>
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	27 #include <sys/vfs.h>
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	28 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	29 #endif
47 997e9ed670ef Fixes for box alignment problem on OS/2, crash in dw_bitmap_new() on unix bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 42 diff changeset	30 #include <time.h>
870 59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	31 #include <errno.h>
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	32
441 b559c06a76c2 Implemented more functionality on MacOS and include the platform define bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 433 diff changeset	33 #if defined(__UNIX__) \|\| defined(__MAC__)
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	34 void msleep(long period)
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	35 {
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	36 #ifdef __sun__
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	37 /* usleep() isn't threadsafe on Solaris */
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	38 struct timespec req;
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	39
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	40 req.tv_sec = 0;
870 59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	41 if(period >= 1000)
59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	42 {
59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	43 req.tv_sec = (int)(period / 1000);
59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	44 period -= (req.tv_sec * 1000);
59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	45 }
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	46 req.tv_nsec = period * 10000000;
870 59c4fac42fb5 Need to use tv_sec if tv_nsec exceeds one second on Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 697 diff changeset	47
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	48 nanosleep(&req, NULL);
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	49 #else
1110 404b639f096b Minor typecast fixes for warnings reported by clang on Mac. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1109 diff changeset	50 usleep((int)(period * 1000));
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	51 #endif
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	52 }
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	53 #endif
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	54
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	55 int API makedir(char *path)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	56 {
1839 22225eb286e5 Fixes for building with MINGW64 (specifically http://tdm-gcc.tdragon.net/). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1710 diff changeset	57 #if defined(__IBMC__) \|\| defined(__WATCOMC__) \|\| defined(_MSC_VER) \|\| defined(__MINGW32__) \|\| defined(__MINGW64__)
22225eb286e5 Fixes for building with MINGW64 (specifically http://tdm-gcc.tdragon.net/). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1710 diff changeset	58 return mkdir(path);
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	59 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	60 return mkdir(path,S_IRWXU);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	61 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	62 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	63
580 d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	64 char * API vargs(char buf, int len, char format, ...)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	65 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	66 va_list args;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	67
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	68 va_start(args, format);
580 d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	69 #ifdef HAVE_VSNPRINTF
d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	70 vsnprintf(buf, len, format, args);
d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	71 #else
d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	72 len = len;
d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	73 vsprintf(buf, format, args);
d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	74 #endif
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	75 va_end(args);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	76
580 d7c338ac926a Sweeping changes to the compatibility module, moved all socket code out bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 557 diff changeset	77 return buf;
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	78 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	79
1609 e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	80 /* Get around getmntinfo() not being thread safe */
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	81 #if defined(__FreeBSD__) \|\| defined(__MAC__)
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	82 int _getmntinfo_r(struct statfs **mntbufp, int flags)
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	83 {
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	84 static HMTX mutex = 0;
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	85 int result;
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	86
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	87 if(!mutex)
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	88 mutex = dw_mutex_new();
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	89
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	90 dw_mutex_lock(mutex);
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	91 result = getmntinfo(mntbufp, flags);
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	92 dw_mutex_unlock(mutex);
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	93 return result;
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	94 }
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	95 #endif
e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	96
1860 02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	97 #ifdef __MINGW32__
02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	98 double API drivefree(int drive)
02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	99 #else
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	100 long double API drivefree(int drive)
1860 02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	101 #endif
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	102 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	103 #if defined(__EMX__) \|\| defined(__OS2__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	104 ULONG aulFSInfoBuf[40] = {0};
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	105 APIRET rc = NO_ERROR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	106
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	107 DosError(FERR_DISABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	108 rc = DosQueryFSInfo(drive,
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	109 FSIL_ALLOC,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	110 (PVOID)aulFSInfoBuf,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	111 sizeof(aulFSInfoBuf));
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	112
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	113 DosError(FERR_ENABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	114 if (rc != NO_ERROR)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	115 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	116
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	117 return (long double)((double)aulFSInfoBuf[3] * (double)aulFSInfoBuf[1] * (double)aulFSInfoBuf[4]);
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	118 #elif defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	119 char buffer[10] = "C:\\";
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	120 DWORD spc, bps, fc, tc;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	121
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	122 buffer[0] = drive + 'A' - 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	123
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	124 if(GetDiskFreeSpace(buffer, &spc, &bps, &fc, &tc) == 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	125 return 0;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	126
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	127 return (long double)((double)spc(double)bps(double)fc);
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	128 #elif defined(__FreeBSD__) \|\| defined(__MAC__)
1608 ff844a41193b Not setting the structure to NULL seems to cause crashes on Mac when mounting/unmounting. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1601 diff changeset	129 struct statfs *fsp = NULL;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	130 int entries, index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	131
1609 e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	132 entries = _getmntinfo_r(&fsp, MNT_NOWAIT);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	133
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	134 for (; entries-- > 0; fsp++)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	135 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	136 if(index == drive)
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	137 return (long double)((double)fsp->f_bsize * (double)fsp->f_bavail);
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	138 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	139 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	140 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	141 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	142 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	143 struct mnttab mnt;
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	144 struct statvfs sfs;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	145 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	146
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	147 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	148 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	149 while((getmntent(fp, &mnt) == 0))
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	150 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	151 if(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	152 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	153 long double size = 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	154
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	155 if(mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	156 {
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	157 if(!statvfs(mnt.mnt_mountp, &sfs))
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	158 {
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	159 size = (long double)((double)sfs.f_bsize * (double)sfs.f_bavail);
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	160 }
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	161 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	162 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	163 return size;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	164 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	165 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	166 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	167 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	168 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	169 return 0;
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	170 #else
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	171 FILE *fp = setmntent(MOUNTED, "r");
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	172 struct mntent mnt;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	173 struct statfs sfs;
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	174 char buffer[1024];
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	175 int index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	176
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	177 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	178 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	179 while(getmntent_r(fp, &mnt, buffer, sizeof(buffer)))
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	180 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	181 if(index == drive)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	182 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	183 long double size = 0;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	184
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	185 if(mnt.mnt_dir)
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	186 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	187 if(!statfs(mnt.mnt_dir, &sfs))
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	188 {
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	189 size = (long double)((double)sfs.f_bsize * (double)sfs.f_bavail);
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	190 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	191 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	192 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	193 return size;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	194 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	195 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	196 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	197 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	198 }
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	199 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	200 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	201 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	202
1860 02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	203 #ifdef __MINGW32__
02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	204 double API drivesize(int drive)
02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	205 #else
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	206 long double API drivesize(int drive)
1860 02a23143334c Apparently Visual C's "long double" type is "double" for gcc... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1839 diff changeset	207 #endif
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	208 {
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	209 #if defined(__EMX__) \|\| defined(__OS2__)
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	210 ULONG aulFSInfoBuf[40] = {0};
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	211 APIRET rc = NO_ERROR;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	212
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	213 DosError(FERR_DISABLEHARDERR);
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	214 rc = DosQueryFSInfo(drive,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	215 FSIL_ALLOC,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	216 (PVOID)aulFSInfoBuf,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	217 sizeof(aulFSInfoBuf));
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	218
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	219 DosError(FERR_ENABLEHARDERR);
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	220 if (rc != NO_ERROR)
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	221 return 0;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	222
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	223 return (long double)((double)aulFSInfoBuf[2] * (double)aulFSInfoBuf[1] * (double)aulFSInfoBuf[4]);
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	224 #elif defined(__WIN32__) \|\| defined(WINNT)
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	225 char buffer[10] = "C:\\";
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	226 DWORD spc, bps, fc, tc;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	227
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	228 buffer[0] = drive + 'A' - 1;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	229
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	230 if(GetDiskFreeSpace(buffer, &spc, &bps, &fc, &tc) == 0)
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	231 return 0;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	232
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	233 return (long double)((double)spc(double)bps(double)tc);
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	234 #elif defined(__FreeBSD__) \|\| defined(__MAC__)
1608 ff844a41193b Not setting the structure to NULL seems to cause crashes on Mac when mounting/unmounting. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1601 diff changeset	235 struct statfs *fsp = NULL;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	236 int entries, index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	237
1609 e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	238 entries = _getmntinfo_r(&fsp, MNT_NOWAIT);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	239
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	240 for (; entries-- > 0; fsp++)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	241 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	242 if(index == drive)
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	243 return (long double)((double)fsp->f_bsize * (double)fsp->f_blocks);
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	244 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	245 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	246 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	247 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	248 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	249 struct mnttab mnt;
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	250 struct statvfs sfs;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	251 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	252
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	253 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	254 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	255 while(getmntent(fp, &mnt) == 0)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	256 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	257 if(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	258 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	259 long double size = 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	260
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	261 if(mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	262 {
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	263 if(!statvfs(mnt.mnt_mountp, &sfs))
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	264 {
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	265 size = (long double)((double)sfs.f_bsize * (double)sfs.f_blocks);
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	266 }
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	267 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	268 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	269 return size;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	270 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	271 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	272 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	273 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	274 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	275 return 0;
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	276 #else
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	277 FILE *fp = setmntent(MOUNTED, "r");
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	278 struct mntent mnt;
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	279 char buffer[1024];
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	280 struct statfs sfs;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	281 int index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	282
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	283 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	284 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	285 while(getmntent_r(fp, &mnt, buffer, sizeof(buffer)))
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	286 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	287 if(index == drive)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	288 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	289 long double size = 0;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	290
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	291 if(mnt.mnt_dir)
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	292 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	293 if(!statfs(mnt.mnt_dir, &sfs))
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	294 {
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	295 size = (long double)((double)sfs.f_bsize * (double)sfs.f_blocks);
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	296 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	297 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	298 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	299 return size;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	300 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	301 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	302 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	303 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	304 }
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	305 return 0;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	306 #endif
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	307 }
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	308
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	309 int API isdrive(int drive)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	310 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	311 #if defined(__EMX__) \|\| defined(__OS2__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	312 APIRET rc = NO_ERROR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	313 FSINFO volinfo;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	314
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	315 DosError(FERR_DISABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	316 rc = DosQueryFSInfo(drive,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	317 FSIL_VOLSER,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	318 (PVOID)&volinfo,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	319 sizeof(FSINFO));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	320
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	321 DosError(FERR_ENABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	322 if (rc == NO_ERROR)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	323 return 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	324
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	325 #elif defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	326 char buffer[10] = "C:\\", volname[100];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	327 DWORD spc, bps, fc;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	328
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	329 buffer[0] = drive + 'A' - 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	330
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	331 if(GetVolumeInformation(buffer, volname, 100, &spc, &bps, &fc, NULL, 0) != 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	332 return 1;
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	333 #elif defined(__FreeBSD__) \|\| defined(__MAC__)
1608 ff844a41193b Not setting the structure to NULL seems to cause crashes on Mac when mounting/unmounting. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1601 diff changeset	334 struct statfs *fsp = NULL;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	335 int entries, index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	336
1609 e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	337 entries = _getmntinfo_r(&fsp, MNT_NOWAIT);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	338
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	339 for (; entries-- > 0; fsp++)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	340 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	341 if(index == drive && fsp->f_blocks)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	342 return 1;
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	343 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	344 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	345 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	346 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	347 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	348 struct mnttab mnt;
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	349 struct statvfs sfs;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	350 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	351
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	352 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	353 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	354 while(getmntent(fp, &mnt) == 0)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	355 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	356 if(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	357 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	358 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	359 if(mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	360 {
871 b15ad609365e Solaris recommends using statvfs() instead of statfs() bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 870 diff changeset	361 if(!statvfs(mnt.mnt_mountp, &sfs) && sfs.f_blocks)
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	362 return 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	363 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	364 return 0;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	365 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	366 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	367 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	368 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	369 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	370 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	371 FILE *fp = setmntent(MOUNTED, "r");
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	372 struct mntent mnt;
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	373 char buffer[1024];
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	374 struct statfs sfs;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	375 int index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	376
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	377 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	378 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	379 while(getmntent_r(fp, &mnt, buffer, sizeof(buffer)))
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	380 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	381 if(index == drive)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	382 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	383 endmntent(fp);
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	384 if(mnt.mnt_dir)
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	385 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	386 if(!statfs(mnt.mnt_dir, &sfs) && sfs.f_blocks)
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	387 {
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	388 return 1;
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	389 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	390 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	391 return 0;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	392 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	393 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	394 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	395 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	396 }
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	397 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	398 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	399 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	400
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	401 void API getfsname(int drive, char *buf, int len)
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	402 {
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	403 #if defined(__UNIX__) \|\| defined(__MAC__)
f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	404 #if defined(__FreeBSD__) \|\| defined(__MAC__)
1608 ff844a41193b Not setting the structure to NULL seems to cause crashes on Mac when mounting/unmounting. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1601 diff changeset	405 struct statfs *fsp = NULL;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	406 int entries, index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	407
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	408 strncpy(buf, "Unknown", len);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	409
1609 e4a641036581 Last commit didn't help, seems getmntinfo() isn't thread safe on Mac or FreeBSD... bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1608 diff changeset	410 entries = _getmntinfo_r(&fsp, MNT_NOWAIT);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	411
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	412 for (; entries-- > 0; fsp++)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	413 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	414 if(index == drive)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	415 strncpy(buf, fsp->f_mntonname, len);
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	416 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	417 }
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	418 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	419 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	420 struct mnttab mnt;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	421 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	422
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	423 strncpy(buf, "Unknown", len);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	424
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	425 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	426 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	427 while(getmntent(fp, &mnt) == 0)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	428 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	429 if(index == drive && mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	430 strncpy(buf, mnt.mnt_mountp, len);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	431 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	432 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	433 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	434 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	435 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	436 FILE *fp = setmntent(MOUNTED, "r");
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	437 struct mntent mnt;
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	438 char buffer[1024];
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	439 int index = 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	440
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	441 strncpy(buf, "Unknown", len);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	442
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	443 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	444 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	445 while(getmntent_r(fp, &mnt, buffer, sizeof(buffer)))
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	446 {
649 3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	447 if(index == drive && mnt.mnt_dir)
3e2ada9ee0ac Switched to using reentrant version of getmntent on Linux. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 647 diff changeset	448 strncpy(buf, mnt.mnt_dir, len);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	449 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	450 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	451 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	452 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	453 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	454 #elif defined(__OS2__)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	455 /* No snprintf() on OS/2 ??? */
485 469ff8133ed3 Simplified the folder browser on OS/2, following some Unix changes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 441 diff changeset	456 len = len;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	457 sprintf(buf, "Drive %c", (char)drive + 'A' - 1);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	458 #else
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	459 _snprintf(buf, len, "Drive %c", (char)drive + 'A' - 1);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	460 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	461 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	462
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	463 void API setfileinfo(char filename, char url, char *logfile)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	464 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	465 time_t ltime;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	466 struct tm *tm;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	467 char buffer[200], timebuf[200];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	468 #ifdef __OS2__
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	469 const unsigned fea2listsize = 6000;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	470 char *pData;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	471 EAOP2 eaop2;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	472 PFEA2 pFEA2;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	473 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	474 FILE *urlfile;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	475 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	476
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	477 ltime = time(NULL);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	478
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	479 tm = localtime(&ltime);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	480
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	481 strftime(timebuf, 200, "%c", tm);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	482
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	483 sprintf(buffer, "%s %s", url, timebuf);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	484
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	485 #ifdef __OS2__
485 469ff8133ed3 Simplified the folder browser on OS/2, following some Unix changes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 441 diff changeset	486 logfile = logfile;
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	487 eaop2.fpGEA2List = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	488 eaop2.fpFEA2List = (PFEA2LIST)malloc(fea2listsize);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	489 pFEA2 = &eaop2.fpFEA2List->list[0];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	490
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	491 pFEA2->fEA = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	492 /* .COMMENTS is 9 characters long */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	493 pFEA2->cbName = 9;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	494
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	495 /* space for the type and length field. */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	496 pFEA2->cbValue = strlen(buffer)+2*sizeof(USHORT);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	497
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	498 strcpy(pFEA2->szName, ".COMMENTS");
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	499 pData = pFEA2->szName+pFEA2->cbName+1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	500 /* data begins at first byte after the name */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	501
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	502 (USHORT)pData = EAT_ASCII; /* type */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	503 ((USHORT)pData+1) = strlen(buffer); /* length */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	504 strcpy(pData+2sizeof(USHORT), buffer);/ content */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	505
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	506 pFEA2->oNextEntryOffset = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	507
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	508 eaop2.fpFEA2List->cbList = ((PCHAR)pData+2*sizeof(USHORT)+
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	509 pFEA2->cbValue)-((PCHAR)eaop2.fpFEA2List);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	510
1341 184b3aedc2ff Added PMPrintf support to dw_debug() on OS/2. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1110 diff changeset	511 DosSetPathInfo((PSZ)filename,
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	512 FIL_QUERYEASIZE,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	513 &eaop2,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	514 sizeof(eaop2),
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	515 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	516
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	517 free((void *)eaop2.fpFEA2List);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	518 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	519
53 8add9a616d0e Added a log filename parameter to setfileinfo(). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 47 diff changeset	520 if((urlfile = fopen(logfile, "a"))!=NULL)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	521 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	522 fprintf(urlfile, "%s\n", buffer);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	523 fclose(urlfile);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	524 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	525 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	526 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	527
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	528 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	529 typedef struct _fsinfo {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	530 FILE *fp;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	531 int fd;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	532 } FSInfo;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	533
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	534 FSInfo *FSIRoot = NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	535
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	536 #define FSI_MAX 100
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	537 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	538
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	539 /* Sharable fopen() and fclose() calls. */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	540 FILE * API fsopen(char path, char modes)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	541 {
172 0fc45e386376 Get Dynamic Windows building with Watcom. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 101 diff changeset	542 #if (defined(__OS2__) && !defined(__WATCOMC__)) \|\| defined(__WIN32__)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	543 int z;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	544
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	545 if(!FSIRoot)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	546 FSIRoot = calloc(sizeof(struct _fsinfo), FSI_MAX);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	547
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	548 for(z=0;z<FSI_MAX;z++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	549 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	550 if(FSIRoot[z].fd < 1)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	551 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	552 int s, sopenmode = 0, wrmode = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	553
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	554 /* Check the flags passed */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	555 for(s=0;s<3;s++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	556 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	557 if(modes[s] == 'b')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	558 sopenmode \|= O_BINARY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	559 if(modes[s] == 'r')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	560 wrmode \|= O_RDONLY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	561 if(modes[s] == 'w')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	562 wrmode \|= O_WRONLY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	563 if(modes[s] == 'a')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	564 sopenmode \|= O_APPEND;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	565 if(modes[s] == 't')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	566 sopenmode \|= O_TEXT;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	567 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	568
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	569 /* Check the read/write request */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	570 if((wrmode & O_RDONLY) && (wrmode & O_WRONLY))
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	571 sopenmode \|= O_RDWR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	572 else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	573 sopenmode \|= wrmode;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	574 FSIRoot[z].fd = _sopen(path, sopenmode, SH_DENYNO, S_IREAD\|S_IWRITE);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	575 if(FSIRoot[z].fd > 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	576 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	577 FSIRoot[z].fp = fdopen(FSIRoot[z].fd, modes);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	578
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	579 return FSIRoot[z].fp;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	580 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	581 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	582 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	583 return NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	584 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	585 return fopen(path, modes);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	586 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	587 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	588
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	589 int API fsclose(FILE *fp)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	590 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	591 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	592 if(FSIRoot)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	593 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	594
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	595 int z;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	596 for(z=0;z<FSI_MAX;z++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	597 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	598 if(fp == FSIRoot[z].fp)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	599 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	600 int ret = fclose(fp);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	601 close(FSIRoot[z].fd);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	602 FSIRoot[z].fd = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	603 FSIRoot[z].fp = NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	604 return ret;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	605 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	606 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	607 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	608 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	609 return fclose(fp);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	610 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	611
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	612 char * API fsgets(char str, int size, FILE stream)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	613 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	614 return fgets(str, size, stream);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	615 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	616
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	617 int API fsseek(FILE *stream, long offset, int whence)
22 6a246b3bb14f Added tree widgets, fixed some delete event processing, fixed a layout bug bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 3 diff changeset	618 {
6a246b3bb14f Added tree widgets, fixed some delete event processing, fixed a layout bug bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 3 diff changeset	619 return fseek(stream, offset, whence);
6a246b3bb14f Added tree widgets, fixed some delete event processing, fixed a layout bug bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 3 diff changeset	620 }
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	621
557 1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	622 void API nice_strformat(char *dest, long double val, int dec)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	623 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	624 char formatbuf[10];
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	625 char format = 0;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	626 double printval;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	627
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	628 /* 1024 ^ 3 = Gigabytes */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	629 if(val >= 1073741824L)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	630 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	631 printval = val/(1073741824L);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	632 format = 'G';
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	633 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	634 /* 1024 ^ 2 = Megabytes */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	635 else if(val >= 1048576)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	636 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	637 printval = val/(1048576);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	638 format = 'M';
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	639 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	640 /* 1024 = Kilobytes */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	641 else if(val > 1024)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	642 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	643 printval = val/1024;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	644 format = 'K';
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	645 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	646 else
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	647 printval = val;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	648
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	649 /* Generate the format string */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	650 sprintf(formatbuf, "%%.%df%c", dec, format);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	651 /* Create the pretty value */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	652 sprintf(dest, formatbuf, printval);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	653 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	654
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	655 /* Update the current working directory based on the
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	656 * path of the executable being executed.
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	657 */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	658 void API initdir(int argc, char *argv[])
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	659 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	660 if(argc > 0)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	661 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	662 char *tmpdir = strdup(argv[0]);
1110 404b639f096b Minor typecast fixes for warnings reported by clang on Mac. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1109 diff changeset	663 int z, len = (int)strlen(argv[0]);
557 1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	664
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	665 for(z=len;z > -1;z--)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	666 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	667 if(tmpdir[z] == '/')
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	668 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	669 tmpdir[z+1] = 0;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	670 setpath(tmpdir);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	671 free(tmpdir);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	672 return;
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	673 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	674 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	675 free(tmpdir);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	676 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	677 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	678
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	679 /*
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	680 * Sets the current directory (and drive) information.
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	681 * Parameters:
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	682 * path: A buffer containing the new path.
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	683 * Returns:
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	684 * -1 on error.
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	685 */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	686 int API setpath(char *path)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	687 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	688 #if defined(__OS2__) \|\| defined(__WIN32__)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	689 if(strlen(path) > 2)
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	690 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	691 if(path[1] == ':')
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	692 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	693 char drive = toupper(path[0]);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	694 _chdrive((drive - 'A')+1);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	695 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	696 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	697 #endif
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	698 return chdir(path);
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	699 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	700
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	701 static int locale_number = -1, locale_count = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	702 static char **locale_text = NULL;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	703
647 f09977bc9b5c Fixed building with Visual Studio 2008. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 580 diff changeset	704 void _compat_free_locale(void)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	705 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	706 if(locale_text)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	707 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	708 int z;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	709
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	710 for(z=0;z<locale_count;z++)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	711 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	712 if(locale_text[z])
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	713 free(locale_text[z]);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	714 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	715 free(locale_text);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	716 locale_text = NULL;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	717 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	718 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	719
1109 1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	720 int _stripcrlf(char *buf)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	721 {
1110 404b639f096b Minor typecast fixes for warnings reported by clang on Mac. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1109 diff changeset	722 int z, len = (int)strlen(buf);
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	723
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	724 for(z=0;z<len;z++)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	725 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	726 if(buf[z] == '\r' \|\| buf[z] == '\n')
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	727 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	728 buf[z] = 0;
1109 1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	729 return 1;
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	730 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	731 }
1109 1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	732 return 1;
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	733 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	734
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	735 /* Initialize the locale engine
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	736 * Returns: TRUE on success, FALSE on failure.
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	737 */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	738 int API locale_init(char *filename, int my_locale)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	739 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	740 FILE *fp = fopen(filename, FOPEN_READ_TEXT);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	741 static char text[1025];
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	742 int count = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	743
647 f09977bc9b5c Fixed building with Visual Studio 2008. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 580 diff changeset	744 _compat_free_locale();
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	745
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	746 if(fp)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	747 {
1109 1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	748 if(fgets(text, 1024, fp) && strncasecmp(text, "MESSAGES=", 9) == 0 && (count = atoi(&text[9])) > 0)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	749 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	750 int current = -1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	751
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	752 locale_text = calloc(count, sizeof(char *));
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	753
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	754 while(!feof(fp))
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	755 {
1109 1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	756 if(fgets(text, 1024, fp) && _stripcrlf(text) &&
1c24949cf853 Fixed a configure warning about datarootdir. (Just ignoring it for now) bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 872 diff changeset	757 strncasecmp(text, "LOCALE=", 7) == 0)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	758 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	759 if(current > -1)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	760 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	761 fclose(fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	762 locale_count = count;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	763 locale_number = my_locale;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	764 return 1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	765 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	766 if(atoi(&text[7]) == my_locale)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	767 current = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	768 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	769 else if(current > -1 && current < count)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	770 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	771 /* Use defaults on blank lines */
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	772 if(text[0])
73 2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	773 {
1110 404b639f096b Minor typecast fixes for warnings reported by clang on Mac. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 1109 diff changeset	774 int x = 0, z, len = (int)strlen(text);
73 2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	775
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	776 locale_text[current] = calloc(1, len + 1);
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	777
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	778 for(z=0;z<len;z++)
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	779 {
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	780 if(text[z] == '\\' && (text[z+1] == 'r' \|\| text[z+1] == 'n'
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	781 \|\| text[z+1] == '\"' \|\| text[z+1] == '\''))
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	782 {
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	783 switch(text[z+1])
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	784 {
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	785 case 'r':
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	786 locale_text[current][x] = '\r';
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	787 break;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	788 case 'n':
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	789 locale_text[current][x] = '\n';
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	790 break;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	791 case '\"':
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	792 locale_text[current][x] = '\"';
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	793 break;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	794 case '\'':
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	795 locale_text[current][x] = '\'';
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	796 break;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	797 }
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	798 x++;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	799 z++;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	800 }
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	801 else
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	802 {
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	803 locale_text[current][x] = text[z];
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	804 x++;
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	805 }
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	806 }
2f339dd13496 Added C/C++ style escape sequence processing. And fixed a couple OS/2 and bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 72 diff changeset	807 }
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	808 current++;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	809 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	810 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	811 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	812 fclose(fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	813 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	814 if(locale_text && count)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	815 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	816 locale_count = count;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	817 locale_number = my_locale;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	818 return 1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	819 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	820 return 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	821 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	822
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	823 /* Retrieve a localized string if available */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	824 char * API locale_string(char *default_text, int message)
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	825 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	826 if(locale_number > -1 && message < locale_count && message > -1 && locale_text[message])
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	827 return locale_text[message];
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	828 return default_text;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	829 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	830

Mercurial > dwindows

annotate dwcompat.c @ 1860:02a23143334c