dwindows: compat.c annotate

annotate compat.c @ 571:828e6a66c5c5

Add dw_listbox_list_append()

author	mhessling@81767d24-ef19-dc11-ae90-00e081727c95
date	Tue, 20 Jul 2004 07:36:11 +0000
parents	1a210e2f214b
children	d7c338ac926a

rev	line source
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	1 /* $Id$ */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	2
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	3 #include "compat.h"
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	4 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	5 #include <share.h>
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	6 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	7
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	8 #if defined(__UNIX__) \|\| defined(__MAC__)
f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	9 #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	10 #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	11 #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	12 #include <sys/mount.h>
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	13 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	14 #include <sys/mnttab.h>
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	15 #include <sys/param.h>
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	16 #include <sys/mount.h>
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	17 #include <sys/statfs.h>
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	18 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	19 #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	20 #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	21 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	22 #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	23 #include <time.h>
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	24
441 b559c06a76c2 Implemented more functionality on MacOS and include the platform define bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 433 diff changeset	25 #if defined(__UNIX__) \|\| defined(__MAC__)
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	26 void msleep(long period)
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	27 {
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	28 #ifdef __sun__
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	29 /* usleep() isn't threadsafe on Solaris */
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	30 struct timespec req;
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	31
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	32 req.tv_sec = 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	33 req.tv_nsec = period * 10000000;
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	34
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	35 nanosleep(&req, NULL);
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	36 #else
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	37 usleep(period * 1000);
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	38 #endif
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 #endif
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	41
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	42 int API sockread (int a, void *b, int c, int d)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	43 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	44 #if defined(__IBMC__) \|\| (defined(__WIN32__) && !defined(__CYGWIN32__))
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	45 return recv(a,b,c,d);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	46 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	47 return read(a,b,c);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	48 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	49 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	50
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	51 int API sockwrite (int a, void *b, int c, int d)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	52 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	53 #if defined(__IBMC__) \|\| (defined(__WIN32__) && !defined(__CYGWIN32__))
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	54 return send(a,b,c,d);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	55 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	56 return write(a,b,c);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	57 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	58 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	59
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	60 int API sockclose(int a)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	61 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	62 #ifdef __IBMC__
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	63 return soclose(a);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	64 #elif defined(__WIN32__) && !defined(__CYGWIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	65 return closesocket(a);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	66 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	67 return close(a);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	68 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	69 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	70
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	71 int API makedir(char *path)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	72 {
172 0fc45e386376 Get Dynamic Windows building with Watcom. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 101 diff changeset	73 #if defined(__IBMC__) \|\| defined(__WATCOMC__) \|\| (defined(__WIN32__) && !defined(__CYGWIN32__))
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	74 return mkdir(path);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	75 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	76 return mkdir(path,S_IRWXU);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	77 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	78 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	79
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	80 void API nonblock(int fd)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	81 {
172 0fc45e386376 Get Dynamic Windows building with Watcom. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 101 diff changeset	82 #if defined(__OS2__) && !defined(__EMX__)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	83 static int _nonblock = 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	84
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	85 ioctl(fd, FIONBIO, (char *)&_nonblock, sizeof(_nonblock));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	86 #elif defined(__WIN32__) && !defined(__CYGWIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	87 static unsigned long _nonblock = 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	88
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	89 ioctlsocket(fd, FIONBIO, &_nonblock);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	90 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	91 fcntl(fd, F_SETFL, O_NONBLOCK);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	92 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	93 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	94
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	95 void API block(int fd)
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	96 {
172 0fc45e386376 Get Dynamic Windows building with Watcom. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 101 diff changeset	97 #if defined(__OS2__) && !defined(__EMX__)
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	98 static int _nonblock = 0;
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	99
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	100 ioctl(fd, FIONBIO, (char *)&_nonblock, sizeof(_nonblock));
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	101 #elif defined(__WIN32__) && !defined(__CYGWIN32__)
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	102 static unsigned long _nonblock = 0;
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	103
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	104 ioctlsocket(fd, FIONBIO, &_nonblock);
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	105 #else
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	106 fcntl(fd, F_SETFL, 0);
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	107 #endif
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	108 }
360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	109
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	110 int API socksprintf(int fd, char *format, ...)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	111 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	112 va_list args;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	113 char outbuf[1024];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	114 int len;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	115
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	116 va_start(args, format);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	117 vsprintf(outbuf, format, args);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	118 va_end(args);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	119
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	120 len = strlen(outbuf);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	121 sockwrite(fd, outbuf, len, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	122
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	123 return len;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	124 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	125
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	126 void API sockinit(void)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	127 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	128 #ifdef __IBMC__
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	129 sock_init();
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	130 #elif defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	131 WSADATA wsa;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	132
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	133 WSAStartup(MAKEWORD (1, 1), &wsa);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	134 #endif /* !WIN32 */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	135 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	136
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	137 void API sockshutdown(void)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	138 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	139 #if defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	140 WSACleanup();
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	141 #endif /* !WIN32 */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	142 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	143
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	144 int API sockpipe(int *pipes)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	145 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	146 #ifndef NO_DOMAIN_SOCKETS
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	147 #ifndef HAVE_PIPE
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	148 struct sockaddr_un un;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	149 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	150 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	151 struct sockaddr_in server_addr;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	152 struct sockaddr_in listen_addr = { 0 };
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	153 int len = sizeof(struct sockaddr_in);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	154 struct hostent *he;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	155 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	156 #ifndef HAVE_PIPE
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	157 int tmpsock;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	158 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	159
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	160 #ifdef HAVE_PIPE
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	161 return pipe(pipes);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	162 #elif !defined(NO_DOMAIN_SOCKETS)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	163 static int instance = -1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	164
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	165 instance++;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	166
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	167 /* Use UNIX domain sockets to pass messages */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	168 tmpsock = socket(AF_UNIX, SOCK_STREAM, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	169 pipes[1] = socket(AF_UNIX, SOCK_STREAM, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	170 memset(&un, 0, sizeof(un));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	171 un.sun_family=AF_UNIX;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	172 sprintf(un.sun_path, PIPENAME, instance);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	173 bind(tmpsock, (struct sockaddr *)&un, sizeof(un));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	174 listen(tmpsock, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	175 connect(pipes[1], (struct sockaddr *)&un, sizeof(un));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	176 pipes[0] = accept(tmpsock, 0, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	177 sockclose(tmpsock);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	178 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	179 /* Use localhost socket to pass messages if no domain sockets */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	180 he = gethostbyname("localhost");
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	181
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	182 if(he)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	183 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	184 memset(&server_addr, 0, sizeof(server_addr));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	185 server_addr.sin_family = AF_INET;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	186 server_addr.sin_port = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	187 server_addr.sin_addr.s_addr = INADDR_ANY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	188 if ((tmpsock = socket(AF_INET, SOCK_STREAM, 0)) < 0 \|\| bind(tmpsock, (struct sockaddr *)&server_addr, sizeof(server_addr)) < 0 \|\| listen(tmpsock, 0) < 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	189 return -1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	190
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	191 memset(&listen_addr, 0, sizeof(listen_addr));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	192 getsockname(tmpsock, (struct sockaddr *)&listen_addr, &len);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	193
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	194 server_addr.sin_family = AF_INET;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	195 server_addr.sin_port = listen_addr.sin_port;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	196 server_addr.sin_addr.s_addr = ((unsigned long )he->h_addr);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	197 if((pipes[1] = socket(AF_INET, SOCK_STREAM, 0)) < 0 \|\| connect(pipes[1], (struct sockaddr *)&server_addr, sizeof(server_addr)))
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	198 return -1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	199 else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	200 pipes[0] = accept(tmpsock, 0, 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	201 sockclose(tmpsock);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	202 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	203 else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	204 return -1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	205 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	206 if(pipes[0] < 0 \|\| pipes[1] < 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	207 return -1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	208 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	209 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	210
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	211 long double API drivefree(int drive)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	212 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	213 #if defined(__EMX__) \|\| defined(__OS2__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	214 ULONG aulFSInfoBuf[40] = {0};
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	215 APIRET rc = NO_ERROR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	216
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	217 DosError(FERR_DISABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	218 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	219 FSIL_ALLOC,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	220 (PVOID)aulFSInfoBuf,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	221 sizeof(aulFSInfoBuf));
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	222
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	223 DosError(FERR_ENABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	224 if (rc != NO_ERROR)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	225 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	226
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	227 return (long double)((double)aulFSInfoBuf[3] * (double)aulFSInfoBuf[1] * (double)aulFSInfoBuf[4]);
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	228 #elif defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	229 char buffer[10] = "C:\\";
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	230 DWORD spc, bps, fc, tc;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	231
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	232 buffer[0] = drive + 'A' - 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	233
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	234 if(GetDiskFreeSpace(buffer, &spc, &bps, &fc, &tc) == 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	235 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	236
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	237 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	238 #elif 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	239 struct statfs *fsp;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	240 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	241
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	242 entries = getmntinfo (&fsp, MNT_NOWAIT);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	243
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	244 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	245 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	246 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	247 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	248 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	249 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	250 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	251 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	252 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	253 struct mnttab mnt;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	254 struct statfs sfs;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	255 int index = 1;
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(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	258 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	259 while((getmntent(fp, &mnt) == 0))
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(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	262 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	263 long double size = 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	264
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	265 if(mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	266 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	267 statfs(mnt.mnt_mountp, &sfs, sizeof(struct statfs), 0);
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	268 size = (long double)((double)sfs.f_bsize * (double)sfs.f_bfree);
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	269 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	270 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	271 return size;
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 index++;
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 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	276 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	277 return 0;
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	278 #else
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	279 FILE *fp = setmntent(MOUNTED, "r");
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	280 struct mntent *mnt;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	281 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	282 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	283
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	284 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	285 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	286 while((mnt = getmntent(fp)))
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	287 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	288 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	289 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	290 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	291
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	292 if(mnt->mnt_dir)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	293 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	294 statfs(mnt->mnt_dir, &sfs);
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	295 size = (long double)((double)sfs.f_bsize * (double)sfs.f_bavail);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	296 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	297 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	298 return size;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	299 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	300 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	301 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	302 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	303 }
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	304 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	305 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	306 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	307
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	308 long double API drivesize(int drive)
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	309 {
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	310 #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	311 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	312 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	313
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	314 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	315 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	316 FSIL_ALLOC,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	317 (PVOID)aulFSInfoBuf,
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	318 sizeof(aulFSInfoBuf));
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	319
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	320 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	321 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	322 return 0;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	323
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	324 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	325 #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	326 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	327 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	328
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	329 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	330
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	331 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	332 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	333
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	334 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	335 #elif 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	336 struct statfs *fsp;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	337 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	338
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	339 entries = getmntinfo (&fsp, MNT_NOWAIT);
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 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	342 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	343 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	344 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	345 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	346 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	347 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	348 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	349 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	350 struct mnttab mnt;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	351 struct statfs sfs;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	352 int index = 1;
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 if(fp)
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 while(getmntent(fp, &mnt) == 0)
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 if(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	359 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	360 long double size = 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	361
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	362 if(mnt.mnt_mountp)
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 statfs(mnt.mnt_mountp, &sfs, sizeof(struct statfs), 0);
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	365 size = (long double)((double)sfs.f_bsize * (double)sfs.f_blocks);
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	366 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	367 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	368 return size;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	369 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	370 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	371 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	372 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	373 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	374 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	375 #else
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	376 FILE *fp = setmntent(MOUNTED, "r");
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	377 struct mntent *mnt;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	378 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	379 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	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(fp)
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 while((mnt = getmntent(fp)))
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	384 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	385 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	386 {
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	387 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	388
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	389 if(mnt->mnt_dir)
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 statfs(mnt->mnt_dir, &sfs);
101 a5da1ac53b34 Use long double instead of long long for drivesize and drivefree. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 100 diff changeset	392 size = (long double)((double)sfs.f_bsize * (double)sfs.f_blocks);
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	393 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	394 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	395 return size;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	396 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	397 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	398 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	399 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	400 }
35 432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	401 return 0;
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	402 #endif
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	403 }
432c39a4ff86 New code for checking drive size on OS/2 and Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 22 diff changeset	404
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	405 int API isdrive(int drive)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	406 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	407 #if defined(__EMX__) \|\| defined(__OS2__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	408 APIRET rc = NO_ERROR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	409 FSINFO volinfo;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	410
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	411 DosError(FERR_DISABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	412 rc = DosQueryFSInfo(drive,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	413 FSIL_VOLSER,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	414 (PVOID)&volinfo,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	415 sizeof(FSINFO));
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	416
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	417 DosError(FERR_ENABLEHARDERR);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	418 if (rc == NO_ERROR)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	419 return 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	420
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	421 #elif defined(__WIN32__) \|\| defined(WINNT)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	422 char buffer[10] = "C:\\", volname[100];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	423 DWORD spc, bps, fc;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	424
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	425 buffer[0] = drive + 'A' - 1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	426
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	427 if(GetVolumeInformation(buffer, volname, 100, &spc, &bps, &fc, NULL, 0) != 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	428 return 1;
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	429 #elif 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	430 struct statfs *fsp;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	431 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	432
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	433 entries = getmntinfo (&fsp, MNT_NOWAIT);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	434
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	435 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	436 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	437 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	438 return 1;
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	439 index++;
36 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 return 0;
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	442 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	443 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	444 struct mnttab mnt;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	445 struct statfs sfs;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	446 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	447
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	448 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	449 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	450 while(getmntent(fp, &mnt) == 0)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	451 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	452 if(index == drive)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	453 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	454 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	455 if(mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	456 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	457 statfs(mnt.mnt_mountp, &sfs, sizeof(struct statfs), 0);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	458 if(sfs.f_blocks)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	459 return 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	460 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	461 return 0;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	462 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	463 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	464 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	465 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	466 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	467 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	468 FILE *fp = setmntent(MOUNTED, "r");
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	469 struct mntent *mnt;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	470 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	471 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	472
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	473 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	474 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	475 while((mnt = getmntent(fp)))
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	476 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	477 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	478 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	479 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	480 if(mnt->mnt_dir)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	481 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	482 statfs(mnt->mnt_dir, &sfs);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	483 if(sfs.f_blocks)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	484 return 1;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	485 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	486 return 0;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	487 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	488 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	489 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	490 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	491 }
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	492 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	493 return 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	494 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	495
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	496 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	497 {
433 f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	498 #if defined(__UNIX__) \|\| defined(__MAC__)
f225f16bebbd Compile fixes for MacOS X. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 176 diff changeset	499 #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	500 struct statfs *fsp;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	501 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	502
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	503 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	504
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	505 entries = getmntinfo (&fsp, MNT_NOWAIT);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	506
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	507 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	508 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	509 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	510 strncpy(buf, fsp->f_mntonname, len);
98 c0388006bb0d Fixes for FreeBSD. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 74 diff changeset	511 index++;
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	512 }
42 eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	513 #elif defined(__sun__)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	514 FILE *fp = fopen("/etc/mnttab", "r");
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	515 struct mnttab mnt;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	516 int index = 1;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	517
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	518 strncpy(buf, "Unknown", len);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	519
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	520 if(fp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	521 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	522 while(getmntent(fp, &mnt) == 0)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	523 {
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	524 if(index == drive && mnt.mnt_mountp)
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	525 strncpy(buf, mnt.mnt_mountp, len);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	526 index++;
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	527 }
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	528 fclose(fp);
eb003f77538c Added the filesystem functions for Solaris. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 37 diff changeset	529 }
36 cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	530 #else
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	531 FILE *fp = setmntent(MOUNTED, "r");
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	532 struct mntent *mnt;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	533 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	534
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	535 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	536
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	537 if(fp)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	538 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	539 while((mnt = getmntent(fp)))
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	540 {
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	541 if(index == drive && mnt->mnt_dir)
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	542 strncpy(buf, mnt->mnt_dir, len);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	543 index++;
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	544 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	545 endmntent(fp);
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	546 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	547 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	548 #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	549 /* 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	550 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	551 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	552 #else
37 360bc6a5f1c9 Sync with latest Dynamic Windows code. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 36 diff changeset	553 _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	554 #endif
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	555 }
cddb02f847e1 Added unix versions of functions in compat, and added getfsname, plus bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 35 diff changeset	556
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	557 void API setfileinfo(char filename, char url, char *logfile)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	558 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	559 time_t ltime;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	560 struct tm *tm;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	561 char buffer[200], timebuf[200];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	562 #ifdef __OS2__
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	563 const unsigned fea2listsize = 6000;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	564 char *pData;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	565 EAOP2 eaop2;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	566 PFEA2 pFEA2;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	567 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	568 FILE *urlfile;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	569 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	570
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	571 ltime = time(NULL);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	572
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	573 tm = localtime(&ltime);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	574
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	575 strftime(timebuf, 200, "%c", tm);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	576
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	577 sprintf(buffer, "%s %s", url, timebuf);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	578
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	579 #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	580 logfile = logfile;
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	581 eaop2.fpGEA2List = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	582 eaop2.fpFEA2List = (PFEA2LIST)malloc(fea2listsize);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	583 pFEA2 = &eaop2.fpFEA2List->list[0];
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	584
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	585 pFEA2->fEA = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	586 /* .COMMENTS is 9 characters long */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	587 pFEA2->cbName = 9;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	588
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	589 /* space for the type and length field. */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	590 pFEA2->cbValue = strlen(buffer)+2*sizeof(USHORT);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	591
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	592 strcpy(pFEA2->szName, ".COMMENTS");
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	593 pData = pFEA2->szName+pFEA2->cbName+1;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	594 /* data begins at first byte after the name */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	595
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	596 (USHORT)pData = EAT_ASCII; /* type */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	597 ((USHORT)pData+1) = strlen(buffer); /* length */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	598 strcpy(pData+2sizeof(USHORT), buffer);/ content */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	599
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	600 pFEA2->oNextEntryOffset = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	601
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	602 eaop2.fpFEA2List->cbList = ((PCHAR)pData+2*sizeof(USHORT)+
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	603 pFEA2->cbValue)-((PCHAR)eaop2.fpFEA2List);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	604
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	605 DosSetPathInfo(filename,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	606 FIL_QUERYEASIZE,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	607 &eaop2,
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	608 sizeof(eaop2),
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	609 0);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	610
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	611 free((void *)eaop2.fpFEA2List);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	612 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	613
53 8add9a616d0e Added a log filename parameter to setfileinfo(). bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 47 diff changeset	614 if((urlfile = fopen(logfile, "a"))!=NULL)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	615 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	616 fprintf(urlfile, "%s\n", buffer);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	617 fclose(urlfile);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	618 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	619 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	620 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	621
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	622 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	623 typedef struct _fsinfo {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	624 FILE *fp;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	625 int fd;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	626 } FSInfo;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	627
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	628 FSInfo *FSIRoot = NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	629
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	630 #define FSI_MAX 100
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	631 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	632
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	633 /* Sharable fopen() and fclose() calls. */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	634 FILE * API fsopen(char path, char modes)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	635 {
172 0fc45e386376 Get Dynamic Windows building with Watcom. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 101 diff changeset	636 #if (defined(__OS2__) && !defined(__WATCOMC__)) \|\| defined(__WIN32__)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	637 int z;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	638
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	639 if(!FSIRoot)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	640 FSIRoot = calloc(sizeof(struct _fsinfo), FSI_MAX);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	641
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	642 for(z=0;z<FSI_MAX;z++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	643 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	644 if(FSIRoot[z].fd < 1)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	645 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	646 int s, sopenmode = 0, wrmode = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	647
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	648 /* Check the flags passed */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	649 for(s=0;s<3;s++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	650 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	651 if(modes[s] == 'b')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	652 sopenmode \|= O_BINARY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	653 if(modes[s] == 'r')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	654 wrmode \|= O_RDONLY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	655 if(modes[s] == 'w')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	656 wrmode \|= O_WRONLY;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	657 if(modes[s] == 'a')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	658 sopenmode \|= O_APPEND;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	659 if(modes[s] == 't')
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	660 sopenmode \|= O_TEXT;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	661 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	662
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	663 /* Check the read/write request */
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	664 if((wrmode & O_RDONLY) && (wrmode & O_WRONLY))
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	665 sopenmode \|= O_RDWR;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	666 else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	667 sopenmode \|= wrmode;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	668 FSIRoot[z].fd = _sopen(path, sopenmode, SH_DENYNO, S_IREAD\|S_IWRITE);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	669 if(FSIRoot[z].fd > 0)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	670 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	671 FSIRoot[z].fp = fdopen(FSIRoot[z].fd, modes);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	672
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	673 return FSIRoot[z].fp;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	674 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	675 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	676 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	677 return NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	678 #else
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	679 return fopen(path, modes);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	680 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	681 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	682
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	683 int API fsclose(FILE *fp)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	684 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	685 #if defined(__OS2__) \|\| defined(__WIN32__)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	686 if(FSIRoot)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	687 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	688
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	689 int z;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	690 for(z=0;z<FSI_MAX;z++)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	691 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	692 if(fp == FSIRoot[z].fp)
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	693 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	694 int ret = fclose(fp);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	695 close(FSIRoot[z].fd);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	696 FSIRoot[z].fd = 0;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	697 FSIRoot[z].fp = NULL;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	698 return ret;
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	699 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	700 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	701 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	702 #endif
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	703 return fclose(fp);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	704 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	705
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	706 char * API fsgets(char str, int size, FILE stream)
3 67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	707 {
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	708 return fgets(str, size, stream);
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	709 }
67a643a734d9 Import ktk@81767d24-ef19-dc11-ae90-00e081727c95 parents: diff changeset	710
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	711 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	712 {
6a246b3bb14f Added tree widgets, fixed some delete event processing, fixed a layout bug bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 3 diff changeset	713 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	714 }
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	715
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	716 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	717 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	718 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	719 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	720 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	721
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	722 /* 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	723 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	724 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	725 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	726 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	727 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	728 /* 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	729 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	730 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	731 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	732 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	733 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	734 /* 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	735 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	736 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	737 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	738 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	739 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	740 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	741 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	742
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	743 /* 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	744 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	745 /* 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	746 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	747 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	748
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	749 /* 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	750 * 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	751 */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	752 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	753 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	754 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	755 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	756 char *tmpdir = strdup(argv[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	757 int z, len = strlen(argv[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	758
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	759 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	760 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	761 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	762 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	763 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	764 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	765 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	766 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	767 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	768 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	769 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	770 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	771 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	772
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	773 /*
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	774 * 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	775 * 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	776 * 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	777 * 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	778 * -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	779 */
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	780 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	781 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	782 #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	783 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	784 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	785 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	786 {
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	787 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	788 _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	789 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	790 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	791 #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	792 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	793 }
1a210e2f214b Added a bunch of support routines I now own due to the settlement bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 485 diff changeset	794
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	795 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	796 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	797
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	798 void _free_locale(void)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	799 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	800 if(locale_text)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	801 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	802 int z;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	803
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	804 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	805 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	806 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	807 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	808 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	809 free(locale_text);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	810 locale_text = NULL;
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 }
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 void _stripcrlf(char *buf)
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 int z, len = strlen(buf);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	817
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	818 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	819 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	820 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	821 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	822 buf[z] = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	823 return;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	824 }
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 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	827
74 f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	828 #ifdef __WIN32__
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	829 #define LOCALE_CHARACTERS 62
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	830 static char locale_table[LOCALE_CHARACTERS * 2] = {
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	831 0xc0, 0xb7, 0xc1, 0xb5, 0xc2, 0xb6, 0xc3, 0xc7, 0xc4, 0x8e, 0xc5, 0x8f,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	832 0xc6, 0x92, 0xc7, 0x80, 0xc8, 0xd4, 0xc9, 0x90, 0xcb, 0xd3, 0xcc, 0xde,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	833 0xcd, 0xd6, 0xce, 0xd7, 0xcf, 0xd8, 0xd0, 0xd1, 0xd1, 0xa5, 0xd2, 0xe3,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	834 0xd3, 0xe0, 0xd4, 0xe2, 0xd5, 0xe5, 0xd6, 0x99, 0xd8, 0x9d, 0xd9, 0xeb,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	835 0xda, 0xe9, 0xdb, 0xea, 0xdc, 0x9a, 0xde, 0xed, 0xde, 0xe8, 0xdf, 0xe1,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	836 0xe0, 0x85, 0xe1, 0xa0, 0xe2, 0x83, 0xe3, 0xc6, 0xe4, 0x84, 0xe5, 0x86,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	837 0xe6, 0x91, 0xe7, 0x87, 0xe8, 0x8a, 0xe9, 0x82, 0xea, 0x88, 0xeb, 0x89,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	838 0xec, 0x8d, 0xed, 0xa1, 0xee, 0x8c, 0xef, 0x8b, 0xf0, 0xd0, 0xf1, 0xa4,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	839 0xf2, 0x95, 0xf3, 0xa3, 0xf4, 0x93, 0xf5, 0xe4, 0xf6, 0x94, 0xf7, 0xf6,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	840 0xf8, 0x9b, 0xf9, 0x97, 0xfa, 0xa3, 0xfb, 0x96, 0xfc, 0x81, 0xfd, 0xec,
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	841 0xfe, 0xe7, 0xff, 0x9e
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	842
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	843 };
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	844
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	845 char locale_convert(int codepage, char c)
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	846 {
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	847 int z;
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	848
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	849 for(z=0;z<LOCALE_CHARACTERS;z++)
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	850 {
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	851 if(locale_table[(z*2)+1] == c)
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	852 return locale_table[z*2];
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	853 }
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	854 return c;
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	855 }
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	856 #endif
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	857
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	858 /* 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	859 * 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	860 */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	861 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	862 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	863 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	864 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	865 int count = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	866
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	867 _free_locale();
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	868
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	869 if(fp)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	870 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	871
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	872 fgets(text, 1024, fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	873 if(strncasecmp(text, "MESSAGES=", 9) == 0 && (count = atoi(&text[9])) > 0)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	874 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	875 int current = -1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	876
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	877 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	878
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	879 while(!feof(fp))
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	880 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	881 fgets(text, 1024, fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	882 _stripcrlf(text);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	883
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	884 if(strncasecmp(text, "LOCALE=", 7) == 0)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	885 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	886 if(current > -1)
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	887 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	888 fclose(fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	889 locale_count = count;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	890 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	891 return 1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	892 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	893 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	894 current = 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	895 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	896 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	897 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	898 /* 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	899 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	900 {
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	901 int x = 0, z, len = strlen(text);
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	902
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	903 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	904
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	905 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	906 {
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	907 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	908 \|\| 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	909 {
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	910 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	911 {
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	912 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	913 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	914 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	915 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	916 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	917 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	918 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	919 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	920 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	921 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	922 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	923 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	924 }
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	925 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	926 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	927 }
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	928 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	929 {
74 f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	930 #ifdef __WIN32__
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	931 locale_text[current][x] = locale_convert(1252, text[z]);
f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	932 #else
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	933 locale_text[current][x] = text[z];
74 f794f2baabf2 Added codepage translation for Windows. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 73 diff changeset	934 #endif
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	935 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	936 }
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	937 }
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	938 }
72 ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	939 current++;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	940 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	941 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	942 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	943 fclose(fp);
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	944 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	945 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	946 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	947 locale_count = count;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	948 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	949 return 1;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	950 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	951 return 0;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	952 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	953
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	954 /* Retrieve a localized string if available */
176 4e3407df0e38 Specify calling convention for compat functions. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 172 diff changeset	955 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	956 {
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	957 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	958 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	959 return default_text;
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	960 }
ab77a22a2a36 Added localization APIs as well as some miscellaneous bug fixes. bsmith@81767d24-ef19-dc11-ae90-00e081727c95 parents: 62 diff changeset	961

Mercurial > dwindows

annotate compat.c @ 571:828e6a66c5c5