Artifact 4910035f217357c6d2874f61cc5f369f2701a1bf:
- File
jim-win32compat.c
-
2011-11-07 05:31:41
- part of checkin
[42d776e90b]
on branch trunk
- Allow building with MSVC on windows
Signed-off-by: Steve Bennett <steveb@workware.net.au> (user: steveb@workware.net.au
-
2011-11-07 05:31:41
- part of checkin
[42d776e90b]
on branch trunk
- Allow building with MSVC on windows
0000: 23 69 6e 63 6c 75 64 65 20 22 6a 69 6d 2e 68 22 #include "jim.h"
0010: 0a 23 69 6e 63 6c 75 64 65 20 22 6a 69 6d 61 75 .#include "jimau
0020: 74 6f 63 6f 6e 66 2e 68 22 0a 0a 23 69 66 20 64 toconf.h"..#if d
0030: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c efined(_WIN32) |
0040: 7c 20 64 65 66 69 6e 65 64 28 57 49 4e 33 32 29 | defined(WIN32)
0050: 0a 23 69 66 6e 64 65 66 20 53 54 52 49 43 54 0a .#ifndef STRICT.
0060: 23 64 65 66 69 6e 65 20 53 54 52 49 43 54 0a 23 #define STRICT.#
0070: 65 6e 64 69 66 0a 23 64 65 66 69 6e 65 20 57 49 endif.#define WI
0080: 4e 33 32 5f 4c 45 41 4e 5f 41 4e 44 5f 4d 45 41 N32_LEAN_AND_MEA
0090: 4e 0a 23 69 6e 63 6c 75 64 65 20 3c 77 69 6e 64 N.#include <wind
00a0: 6f 77 73 2e 68 3e 0a 0a 23 69 66 20 64 65 66 69 ows.h>..#if defi
00b0: 6e 65 64 28 48 41 56 45 5f 44 4c 4f 50 45 4e 5f ned(HAVE_DLOPEN_
00c0: 43 4f 4d 50 41 54 29 0a 76 6f 69 64 20 2a 64 6c COMPAT).void *dl
00d0: 6f 70 65 6e 28 63 6f 6e 73 74 20 63 68 61 72 20 open(const char
00e0: 2a 70 61 74 68 2c 20 69 6e 74 20 6d 6f 64 65 29 *path, int mode)
00f0: 0a 7b 0a 20 20 20 20 4a 49 4d 5f 4e 4f 54 55 53 .{. JIM_NOTUS
0100: 45 44 28 6d 6f 64 65 29 3b 0a 0a 20 20 20 20 72 ED(mode);.. r
0110: 65 74 75 72 6e 20 28 76 6f 69 64 20 2a 29 4c 6f eturn (void *)Lo
0120: 61 64 4c 69 62 72 61 72 79 41 28 70 61 74 68 29 adLibraryA(path)
0130: 3b 0a 7d 0a 0a 69 6e 74 20 64 6c 63 6c 6f 73 65 ;.}..int dlclose
0140: 28 76 6f 69 64 20 2a 68 61 6e 64 6c 65 29 0a 7b (void *handle).{
0150: 0a 20 20 20 20 46 72 65 65 4c 69 62 72 61 72 79 . FreeLibrary
0160: 28 28 48 41 4e 44 4c 45 29 68 61 6e 64 6c 65 29 ((HANDLE)handle)
0170: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a ;. return 0;.
0180: 7d 0a 0a 76 6f 69 64 20 2a 64 6c 73 79 6d 28 76 }..void *dlsym(v
0190: 6f 69 64 20 2a 68 61 6e 64 6c 65 2c 20 63 6f 6e oid *handle, con
01a0: 73 74 20 63 68 61 72 20 2a 73 79 6d 62 6f 6c 29 st char *symbol)
01b0: 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 47 65 .{. return Ge
01c0: 74 50 72 6f 63 41 64 64 72 65 73 73 28 28 48 4d tProcAddress((HM
01d0: 4f 44 55 4c 45 29 68 61 6e 64 6c 65 2c 20 73 79 ODULE)handle, sy
01e0: 6d 62 6f 6c 29 3b 0a 7d 0a 0a 63 68 61 72 20 2a mbol);.}..char *
01f0: 64 6c 65 72 72 6f 72 28 76 6f 69 64 29 0a 7b 0a dlerror(void).{.
0200: 20 20 20 20 73 74 61 74 69 63 20 63 68 61 72 20 static char
0210: 6d 73 67 5b 31 32 31 5d 3b 0a 20 20 20 20 46 6f msg[121];. Fo
0220: 72 6d 61 74 4d 65 73 73 61 67 65 41 28 46 4f 52 rmatMessageA(FOR
0230: 4d 41 54 5f 4d 45 53 53 41 47 45 5f 46 52 4f 4d MAT_MESSAGE_FROM
0240: 5f 53 59 53 54 45 4d 2c 20 4e 55 4c 4c 2c 20 47 _SYSTEM, NULL, G
0250: 65 74 4c 61 73 74 45 72 72 6f 72 28 29 2c 0a 20 etLastError(),.
0260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270: 20 20 4c 41 4e 47 5f 4e 45 55 54 52 41 4c 2c 20 LANG_NEUTRAL,
0280: 6d 73 67 2c 20 73 69 7a 65 6f 66 28 6d 73 67 29 msg, sizeof(msg)
0290: 20 2d 20 31 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 - 1, NULL);.
02a0: 20 72 65 74 75 72 6e 20 6d 73 67 3b 0a 7d 0a 23 return msg;.}.#
02b0: 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 5f 4d endif..#ifdef _M
02c0: 53 43 5f 56 45 52 0a 0a 23 69 6e 63 6c 75 64 65 SC_VER..#include
02d0: 20 3c 73 79 73 2f 74 69 6d 65 62 2e 68 3e 0a 0a <sys/timeb.h>..
02e0: 2f 2a 20 50 4f 53 49 58 20 67 65 74 74 69 6d 65 /* POSIX gettime
02f0: 6f 66 64 61 79 28 29 20 63 6f 6d 70 61 74 69 62 ofday() compatib
0300: 69 6c 69 74 79 20 66 6f 72 20 57 49 4e 33 32 20 ility for WIN32
0310: 2a 2f 0a 69 6e 74 20 67 65 74 74 69 6d 65 6f 66 */.int gettimeof
0320: 64 61 79 28 73 74 72 75 63 74 20 74 69 6d 65 76 day(struct timev
0330: 61 6c 20 2a 74 76 2c 20 76 6f 69 64 20 2a 75 6e al *tv, void *un
0340: 75 73 65 64 29 0a 7b 0a 20 20 20 20 73 74 72 75 used).{. stru
0350: 63 74 20 5f 74 69 6d 65 62 20 74 62 3b 0a 0a 20 ct _timeb tb;..
0360: 20 20 20 5f 66 74 69 6d 65 28 26 74 62 29 3b 0a _ftime(&tb);.
0370: 20 20 20 20 74 76 2d 3e 74 76 5f 73 65 63 20 3d tv->tv_sec =
0380: 20 74 62 2e 74 69 6d 65 3b 0a 20 20 20 20 74 76 tb.time;. tv
0390: 2d 3e 74 76 5f 75 73 65 63 20 3d 20 74 62 2e 6d ->tv_usec = tb.m
03a0: 69 6c 6c 69 74 6d 20 2a 20 31 30 30 30 3b 0a 0a illitm * 1000;..
03b0: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a return 0;.}.
03c0: 0a 2f 2a 20 50 6f 73 69 78 20 64 69 72 65 6e 74 ./* Posix dirent
03d0: 2e 68 20 63 6f 6d 70 61 74 69 62 6c 69 74 79 20 .h compatiblity
03e0: 6c 61 79 65 72 20 66 6f 72 20 57 49 4e 33 32 2e layer for WIN32.
03f0: 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 4b 65 . * Copyright Ke
0400: 76 6c 69 6e 20 48 65 6e 6e 65 79 2c 20 31 39 39 vlin Henney, 199
0410: 37 2c 20 32 30 30 33 2e 20 41 6c 6c 20 72 69 67 7, 2003. All rig
0420: 68 74 73 20 72 65 73 65 72 76 65 64 2e 0a 20 2a hts reserved.. *
0430: 20 43 6f 70 79 72 69 67 68 74 20 53 61 6c 76 61 Copyright Salva
0440: 74 6f 72 65 20 53 61 6e 66 69 6c 69 70 70 6f 20 tore Sanfilippo
0450: 2c 32 30 30 35 2e 0a 20 2a 0a 20 2a 20 50 65 72 ,2005.. *. * Per
0460: 6d 69 73 73 69 6f 6e 20 74 6f 20 75 73 65 2c 20 mission to use,
0470: 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c 20 61 6e copy, modify, an
0480: 64 20 64 69 73 74 72 69 62 75 74 65 20 74 68 69 d distribute thi
0490: 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64 20 69 s software and i
04a0: 74 73 0a 20 2a 20 64 6f 63 75 6d 65 6e 74 61 74 ts. * documentat
04b0: 69 6f 6e 20 66 6f 72 20 61 6e 79 20 70 75 72 70 ion for any purp
04c0: 6f 73 65 20 69 73 20 68 65 72 65 62 79 20 67 72 ose is hereby gr
04d0: 61 6e 74 65 64 20 77 69 74 68 6f 75 74 20 66 65 anted without fe
04e0: 65 2c 20 70 72 6f 76 69 64 65 64 0a 20 2a 20 74 e, provided. * t
04f0: 68 61 74 20 74 68 69 73 20 63 6f 70 79 72 69 67 hat this copyrig
0500: 68 74 20 61 6e 64 20 70 65 72 6d 69 73 73 69 6f ht and permissio
0510: 6e 73 20 6e 6f 74 69 63 65 20 61 70 70 65 61 72 ns notice appear
0520: 20 69 6e 20 61 6c 6c 20 63 6f 70 69 65 73 20 61 in all copies a
0530: 6e 64 0a 20 2a 20 64 65 72 69 76 61 74 69 76 65 nd. * derivative
0540: 73 2e 0a 20 2a 0a 20 2a 20 54 68 69 73 20 73 6f s.. *. * This so
0550: 66 74 77 61 72 65 20 69 73 20 73 75 70 70 6c 69 ftware is suppli
0560: 65 64 20 22 61 73 20 69 73 22 20 77 69 74 68 6f ed "as is" witho
0570: 75 74 20 65 78 70 72 65 73 73 20 6f 72 20 69 6d ut express or im
0580: 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 2e 0a plied warranty..
0590: 20 2a 20 54 68 69 73 20 73 6f 66 74 77 61 72 65 * This software
05a0: 20 77 61 73 20 6d 6f 64 69 66 69 65 64 20 62 79 was modified by
05b0: 20 53 61 6c 76 61 74 6f 72 65 20 53 61 6e 66 69 Salvatore Sanfi
05c0: 6c 69 70 70 6f 20 66 6f 72 20 74 68 65 20 4a 69 lippo for the Ji
05d0: 6d 20 49 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 m Interpreter..
05e0: 2a 2f 0a 0a 44 49 52 20 2a 6f 70 65 6e 64 69 72 */..DIR *opendir
05f0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 6e 61 6d (const char *nam
0600: 65 29 0a 7b 0a 20 20 20 20 44 49 52 20 2a 64 69 e).{. DIR *di
0610: 72 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 28 r = 0;.. if (
0620: 6e 61 6d 65 20 26 26 20 6e 61 6d 65 5b 30 5d 29 name && name[0])
0630: 20 7b 0a 20 20 20 20 20 20 20 20 73 69 7a 65 5f {. size_
0640: 74 20 62 61 73 65 5f 6c 65 6e 67 74 68 20 3d 20 t base_length =
0650: 73 74 72 6c 65 6e 28 6e 61 6d 65 29 3b 0a 20 20 strlen(name);.
0660: 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 const char
0670: 20 2a 61 6c 6c 20 3d 20 20 20 20 20 20 20 2f 2a *all = /*
0680: 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 20 search pattern
0690: 6d 75 73 74 20 65 6e 64 20 77 69 74 68 20 73 75 must end with su
06a0: 69 74 61 62 6c 65 20 77 69 6c 64 63 61 72 64 20 itable wildcard
06b0: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 */. s
06c0: 74 72 63 68 72 28 22 2f 5c 5c 22 2c 20 6e 61 6d trchr("/\\", nam
06d0: 65 5b 62 61 73 65 5f 6c 65 6e 67 74 68 20 2d 20 e[base_length -
06e0: 31 5d 29 20 3f 20 22 2a 22 20 3a 20 22 2f 2a 22 1]) ? "*" : "/*"
06f0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 28 ;.. if ((
0700: 64 69 72 20 3d 20 28 44 49 52 20 2a 29 20 4a 69 dir = (DIR *) Ji
0710: 6d 5f 41 6c 6c 6f 63 28 73 69 7a 65 6f 66 20 2a m_Alloc(sizeof *
0720: 64 69 72 29 29 20 21 3d 20 30 20 26 26 0a 20 20 dir)) != 0 &&.
0730: 20 20 20 20 20 20 20 20 20 20 28 64 69 72 2d 3e (dir->
0740: 6e 61 6d 65 20 3d 20 28 63 68 61 72 20 2a 29 4a name = (char *)J
0750: 69 6d 5f 41 6c 6c 6f 63 28 62 61 73 65 5f 6c 65 im_Alloc(base_le
0760: 6e 67 74 68 20 2b 20 73 74 72 6c 65 6e 28 61 6c ngth + strlen(al
0770: 6c 29 20 2b 20 31 29 29 20 21 3d 20 30 29 20 7b l) + 1)) != 0) {
0780: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 . str
0790: 63 61 74 28 73 74 72 63 70 79 28 64 69 72 2d 3e cat(strcpy(dir->
07a0: 6e 61 6d 65 2c 20 6e 61 6d 65 29 2c 20 61 6c 6c name, name), all
07b0: 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 );..
07c0: 69 66 20 28 28 64 69 72 2d 3e 68 61 6e 64 6c 65 if ((dir->handle
07d0: 20 3d 20 28 6c 6f 6e 67 29 5f 66 69 6e 64 66 69 = (long)_findfi
07e0: 72 73 74 28 64 69 72 2d 3e 6e 61 6d 65 2c 20 26 rst(dir->name, &
07f0: 64 69 72 2d 3e 69 6e 66 6f 29 29 20 21 3d 20 2d dir->info)) != -
0800: 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 1).
0810: 20 20 20 64 69 72 2d 3e 72 65 73 75 6c 74 2e 64 dir->result.d
0820: 5f 6e 61 6d 65 20 3d 20 30 3b 0a 20 20 20 20 20 _name = 0;.
0830: 20 20 20 20 20 20 20 65 6c 73 65 20 7b 20 20 20 else {
0840: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 72 6f /* ro
0850: 6c 6c 62 61 63 6b 20 2a 2f 0a 20 20 20 20 20 20 llback */.
0860: 20 20 20 20 20 20 20 20 20 20 4a 69 6d 5f 46 72 Jim_Fr
0870: 65 65 28 64 69 72 2d 3e 6e 61 6d 65 29 3b 0a 20 ee(dir->name);.
0880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a J
0890: 69 6d 5f 46 72 65 65 28 64 69 72 29 3b 0a 20 20 im_Free(dir);.
08a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 di
08b0: 72 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 r = 0;.
08c0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 }. }.
08d0: 20 20 20 20 20 20 20 65 6c 73 65 20 7b 20 20 20 else {
08e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
08f0: 2a 20 72 6f 6c 6c 62 61 63 6b 20 2a 2f 0a 20 20 * rollback */.
0900: 20 20 20 20 20 20 20 20 20 20 4a 69 6d 5f 46 72 Jim_Fr
0910: 65 65 28 64 69 72 29 3b 0a 20 20 20 20 20 20 20 ee(dir);.
0920: 20 20 20 20 20 64 69 72 20 3d 20 30 3b 0a 20 20 dir = 0;.
0930: 20 20 20 20 20 20 20 20 20 20 65 72 72 6e 6f 20 errno
0940: 3d 20 45 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20 20 = ENOMEM;.
0950: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c }. }. el
0960: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 65 72 72 se {. err
0970: 6e 6f 20 3d 20 45 49 4e 56 41 4c 3b 0a 20 20 20 no = EINVAL;.
0980: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 64 69 }. return di
0990: 72 3b 0a 7d 0a 0a 69 6e 74 20 63 6c 6f 73 65 64 r;.}..int closed
09a0: 69 72 28 44 49 52 20 2a 20 64 69 72 29 0a 7b 0a ir(DIR * dir).{.
09b0: 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 20 3d int result =
09c0: 20 2d 31 3b 0a 0a 20 20 20 20 69 66 20 28 64 69 -1;.. if (di
09d0: 72 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 r) {. if
09e0: 28 64 69 72 2d 3e 68 61 6e 64 6c 65 20 21 3d 20 (dir->handle !=
09f0: 2d 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 -1).
0a00: 72 65 73 75 6c 74 20 3d 20 5f 66 69 6e 64 63 6c result = _findcl
0a10: 6f 73 65 28 64 69 72 2d 3e 68 61 6e 64 6c 65 29 ose(dir->handle)
0a20: 3b 0a 20 20 20 20 20 20 20 20 4a 69 6d 5f 46 72 ;. Jim_Fr
0a30: 65 65 28 64 69 72 2d 3e 6e 61 6d 65 29 3b 0a 20 ee(dir->name);.
0a40: 20 20 20 20 20 20 20 4a 69 6d 5f 46 72 65 65 28 Jim_Free(
0a50: 64 69 72 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 dir);. }.
0a60: 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 2d 31 if (result == -1
0a70: 29 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6d ) /* m
0a80: 61 70 20 61 6c 6c 20 65 72 72 6f 72 73 20 74 6f ap all errors to
0a90: 20 45 42 41 44 46 20 2a 2f 0a 20 20 20 20 20 20 EBADF */.
0aa0: 20 20 65 72 72 6e 6f 20 3d 20 45 42 41 44 46 3b errno = EBADF;
0ab0: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 . return resu
0ac0: 6c 74 3b 0a 7d 0a 0a 73 74 72 75 63 74 20 64 69 lt;.}..struct di
0ad0: 72 65 6e 74 20 2a 72 65 61 64 64 69 72 28 44 49 rent *readdir(DI
0ae0: 52 20 2a 20 64 69 72 29 0a 7b 0a 20 20 20 20 73 R * dir).{. s
0af0: 74 72 75 63 74 20 64 69 72 65 6e 74 20 2a 72 65 truct dirent *re
0b00: 73 75 6c 74 20 3d 20 30 3b 0a 0a 20 20 20 20 69 sult = 0;.. i
0b10: 66 20 28 64 69 72 20 26 26 20 64 69 72 2d 3e 68 f (dir && dir->h
0b20: 61 6e 64 6c 65 20 21 3d 20 2d 31 29 20 7b 0a 20 andle != -1) {.
0b30: 20 20 20 20 20 20 20 69 66 20 28 21 64 69 72 2d if (!dir-
0b40: 3e 72 65 73 75 6c 74 2e 64 5f 6e 61 6d 65 20 7c >result.d_name |
0b50: 7c 20 5f 66 69 6e 64 6e 65 78 74 28 64 69 72 2d | _findnext(dir-
0b60: 3e 68 61 6e 64 6c 65 2c 20 26 64 69 72 2d 3e 69 >handle, &dir->i
0b70: 6e 66 6f 29 20 21 3d 20 2d 31 29 20 7b 0a 20 20 nfo) != -1) {.
0b80: 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 result
0b90: 20 3d 20 26 64 69 72 2d 3e 72 65 73 75 6c 74 3b = &dir->result;
0ba0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 . res
0bb0: 75 6c 74 2d 3e 64 5f 6e 61 6d 65 20 3d 20 64 69 ult->d_name = di
0bc0: 72 2d 3e 69 6e 66 6f 2e 6e 61 6d 65 3b 0a 20 20 r->info.name;.
0bd0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 }. }.
0be0: 20 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 else {.
0bf0: 20 65 72 72 6e 6f 20 3d 20 45 42 41 44 46 3b 0a errno = EBADF;.
0c00: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
0c10: 20 72 65 73 75 6c 74 3b 0a 7d 0a 23 65 6e 64 69 result;.}.#endi
0c20: 66 0a 23 65 6e 64 69 66 0a f.#endif.