Artifact 02649da4f1c3ff6311a036f211e8e012ea3f1f5d:
- File
src/win32/w32api.d
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
The problem was __gshared. Replacing it with TLS fixed the issue. Remaining problem is that "hack.d"'s CloseHandle hack is not working anymore.
(user: kinaba) [annotate]
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0040: 2a 2a 2a 2a 2a 2a 2a 2a 5c 0a 2a 20 20 20 20 20 ********\.*
0050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0060: 20 20 20 20 20 20 20 20 20 20 20 77 33 32 61 70 w32ap
0070: 69 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 i.d
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0090: 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 *.*
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 *.*
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00f0: 20 20 20 20 20 20 57 69 6e 64 6f 77 73 20 41 50 Windows AP
0100: 49 20 68 65 61 64 65 72 20 6d 6f 64 75 6c 65 20 I header module
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120: 20 20 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 *.*
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0170: 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 *.*
0180: 54 72 61 6e 73 6c 61 74 65 64 20 66 72 6f 6d 20 Translated from
0190: 4d 69 6e 47 57 20 41 50 49 20 66 6f 72 20 4d 53 MinGW API for MS
01a0: 2d 57 69 6e 64 6f 77 73 20 34 2e 30 20 20 20 20 -Windows 4.0
01b0: 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 20 20 *.*
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01d0: 20 20 20 20 20 20 20 20 62 79 20 53 74 65 77 61 by Stewa
01e0: 72 74 20 47 6f 72 64 6f 6e 20 20 20 20 20 20 20 rt Gordon
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0200: 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 *.*
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a *.
0250: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
0260: 20 20 20 20 20 20 20 20 50 6c 61 63 65 64 20 69 Placed i
0270: 6e 74 6f 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 nto public domai
0280: 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n
0290: 20 20 20 20 20 20 20 20 2a 0a 5c 2a 2a 2a 2a 2a *.\*****
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2f 0a 6d 6f 64 75 6c 65 20 77 69 6e 33 32 **/.module win32
02f0: 2e 77 33 32 61 70 69 3b 0a 0a 65 6e 75 6d 20 5f .w32api;..enum _
0300: 5f 57 33 32 41 50 49 5f 56 45 52 53 49 4f 4e 20 _W32API_VERSION
0310: 3d 20 33 2e 31 37 3b 0a 65 6e 75 6d 20 5f 5f 57 = 3.17;.enum __W
0320: 33 32 41 50 49 5f 4d 41 4a 4f 52 5f 56 45 52 53 32API_MAJOR_VERS
0330: 49 4f 4e 20 3d 20 33 3b 0a 65 6e 75 6d 20 5f 5f ION = 3;.enum __
0340: 57 33 32 41 50 49 5f 4d 49 4e 4f 52 5f 56 45 52 W32API_MINOR_VER
0350: 53 49 4f 4e 20 3d 20 31 37 3b 0a 0a 2f 2a 09 54 SION = 17;../*.T
0360: 68 65 73 65 20 76 65 72 73 69 6f 6e 20 69 64 65 hese version ide
0370: 6e 74 69 66 69 65 72 73 20 61 72 65 20 75 73 65 ntifiers are use
0380: 64 20 74 6f 20 73 70 65 63 69 66 79 20 74 68 65 d to specify the
0390: 20 6d 69 6e 69 6d 75 6d 20 76 65 72 73 69 6f 6e minimum version
03a0: 20 6f 66 20 57 69 6e 64 6f 77 73 20 74 68 61 74 of Windows that
03b0: 20 61 6e 0a 20 2a 09 61 70 70 6c 69 63 61 74 69 an. *.applicati
03c0: 6f 6e 20 77 69 6c 6c 20 73 75 70 70 6f 72 74 2e on will support.
03d0: 0a 20 2a 0a 20 2a 09 50 72 65 76 69 6f 75 73 6c . *. *.Previousl
03e0: 79 20 74 68 65 20 6d 69 6e 69 6d 75 6d 20 57 69 y the minimum Wi
03f0: 6e 64 6f 77 73 20 39 78 20 61 6e 64 20 57 69 6e ndows 9x and Win
0400: 64 6f 77 73 20 4e 54 20 76 65 72 73 69 6f 6e 73 dows NT versions
0410: 20 63 6f 75 6c 64 20 62 65 20 73 70 65 63 69 66 could be specif
0420: 69 65 64 2e 20 20 48 6f 77 65 76 65 72 2c 20 73 ied. However, s
0430: 69 6e 63 65 0a 20 2a 09 57 69 6e 64 6f 77 73 20 ince. *.Windows
0440: 39 78 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 9x is no longer
0450: 73 75 70 70 6f 72 74 65 64 2c 20 65 69 74 68 65 supported, eithe
0460: 72 20 62 79 20 4d 69 63 72 6f 73 6f 66 74 20 6f r by Microsoft o
0470: 72 20 62 79 20 44 4d 44 2c 20 74 68 69 73 20 64 r by DMD, this d
0480: 69 73 74 69 6e 63 74 69 6f 6e 20 68 61 73 20 62 istinction has b
0490: 65 65 6e 0a 20 2a 09 72 65 6d 6f 76 65 64 20 69 een. *.removed i
04a0: 6e 20 6f 72 64 65 72 20 74 6f 20 73 69 6d 70 6c n order to simpl
04b0: 69 66 79 20 74 68 65 20 62 69 6e 64 69 6e 67 73 ify the bindings
04c0: 2e 0a 20 2a 2f 0a 20 76 65 72 73 69 6f 6e 20 28 .. */. version (
04d0: 57 69 6e 64 6f 77 73 31 30 29 20 7b 0a 09 65 6e Windows10) {..en
04e0: 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f 57 um uint _WIN32_W
04f0: 49 4e 4e 54 20 3d 20 30 78 36 30 34 3b 0a 7d 20 INNT = 0x604;.}
0500: 65 6c 73 65 20 76 65 72 73 69 6f 6e 20 28 57 69 else version (Wi
0510: 6e 64 6f 77 73 38 5f 31 29 20 7b 09 2f 2f 20 61 ndows8_1) {.// a
0520: 6c 73 6f 20 57 69 6e 64 6f 77 73 32 30 31 32 52 lso Windows2012R
0530: 32 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 2..enum uint _WI
0540: 4e 33 32 5f 57 49 4e 4e 54 20 3d 20 30 78 36 30 N32_WINNT = 0x60
0550: 33 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 3;.} else versio
0560: 6e 20 28 57 69 6e 64 6f 77 73 38 29 20 7b 09 2f n (Windows8) {./
0570: 2f 20 61 6c 73 6f 20 57 69 6e 64 6f 77 73 32 30 / also Windows20
0580: 31 32 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 12..enum uint _W
0590: 49 4e 33 32 5f 57 49 4e 4e 54 20 3d 20 30 78 36 IN32_WINNT = 0x6
05a0: 30 32 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 02;.} else versi
05b0: 6f 6e 20 28 57 69 6e 64 6f 77 73 37 29 20 7b 09 on (Windows7) {.
05c0: 2f 2f 20 61 6c 73 6f 20 57 69 6e 64 6f 77 73 32 // also Windows2
05d0: 30 30 38 52 32 0a 09 65 6e 75 6d 20 75 69 6e 74 008R2..enum uint
05e0: 20 5f 57 49 4e 33 32 5f 57 49 4e 4e 54 20 3d 20 _WIN32_WINNT =
05f0: 30 78 36 30 31 3b 0a 7d 20 65 6c 73 65 20 76 65 0x601;.} else ve
0600: 72 73 69 6f 6e 20 28 57 69 6e 64 6f 77 73 56 69 rsion (WindowsVi
0610: 73 74 61 29 20 7b 09 2f 2f 20 61 6c 73 6f 20 57 sta) {.// also W
0620: 69 6e 64 6f 77 73 32 30 30 38 0a 09 65 6e 75 6d indows2008..enum
0630: 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f 57 49 4e uint _WIN32_WIN
0640: 4e 54 20 3d 20 30 78 36 30 30 3b 0a 7d 20 65 6c NT = 0x600;.} el
0650: 73 65 20 76 65 72 73 69 6f 6e 20 28 57 69 6e 64 se version (Wind
0660: 6f 77 73 32 30 30 33 29 20 7b 09 2f 2f 20 61 6c ows2003) {.// al
0670: 73 6f 20 57 69 6e 64 6f 77 73 48 6f 6d 65 53 65 so WindowsHomeSe
0680: 72 76 65 72 2c 20 57 69 6e 64 6f 77 73 58 50 36 rver, WindowsXP6
0690: 34 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4..enum uint _WI
06a0: 4e 33 32 5f 57 49 4e 4e 54 20 3d 20 30 78 35 30 N32_WINNT = 0x50
06b0: 32 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 2;.} else versio
06c0: 6e 20 28 57 69 6e 64 6f 77 73 58 50 29 20 7b 0a n (WindowsXP) {.
06d0: 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 .enum uint _WIN3
06e0: 32 5f 57 49 4e 4e 54 20 3d 20 30 78 35 30 31 3b 2_WINNT = 0x501;
06f0: 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 6e 20 .} else version
0700: 28 57 69 6e 64 6f 77 73 32 30 30 30 29 20 7b 0a (Windows2000) {.
0710: 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 .enum uint _WIN3
0720: 32 5f 57 49 4e 4e 54 20 3d 20 30 78 35 30 30 3b 2_WINNT = 0x500;
0730: 0a 7d 20 65 6c 73 65 20 7b 0a 09 65 6e 75 6d 20 .} else {..enum
0740: 75 69 6e 74 20 5f 57 49 4e 33 32 5f 57 49 4e 4e uint _WIN32_WINN
0750: 54 20 3d 20 30 78 35 30 31 3b 0a 7d 0a 0a 76 65 T = 0x501;.}..ve
0760: 72 73 69 6f 6e 20 28 49 45 31 30 29 20 7b 0a 09 rsion (IE10) {..
0770: 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 enum uint _WIN32
0780: 5f 49 45 20 3d 20 30 78 41 30 30 3b 0a 7d 20 65 _IE = 0xA00;.} e
0790: 6c 73 65 20 76 65 72 73 69 6f 6e 20 28 49 45 39 lse version (IE9
07a0: 29 20 7b 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f ) {..enum uint _
07b0: 57 49 4e 33 32 5f 49 45 20 3d 20 30 78 39 30 30 WIN32_IE = 0x900
07c0: 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 6e ;.} else version
07d0: 20 28 49 45 38 29 20 7b 0a 09 65 6e 75 6d 20 75 (IE8) {..enum u
07e0: 69 6e 74 20 5f 57 49 4e 33 32 5f 49 45 20 3d 20 int _WIN32_IE =
07f0: 30 78 38 30 30 3b 0a 7d 20 65 6c 73 65 20 76 65 0x800;.} else ve
0800: 72 73 69 6f 6e 20 28 49 45 37 29 20 7b 0a 09 65 rsion (IE7) {..e
0810: 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f num uint _WIN32_
0820: 49 45 20 3d 20 30 78 37 30 30 3b 0a 7d 20 65 6c IE = 0x700;.} el
0830: 73 65 20 76 65 72 73 69 6f 6e 20 28 49 45 36 30 se version (IE60
0840: 32 29 20 7b 0a 09 65 6e 75 6d 20 75 69 6e 74 20 2) {..enum uint
0850: 5f 57 49 4e 33 32 5f 49 45 20 3d 20 30 78 36 30 _WIN32_IE = 0x60
0860: 33 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 3;.} else versio
0870: 6e 20 28 49 45 36 30 31 29 20 7b 0a 09 65 6e 75 n (IE601) {..enu
0880: 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f 49 45 m uint _WIN32_IE
0890: 20 3d 20 30 78 36 30 31 3b 0a 7d 20 65 6c 73 65 = 0x601;.} else
08a0: 20 76 65 72 73 69 6f 6e 20 28 49 45 36 29 20 7b version (IE6) {
08b0: 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e ..enum uint _WIN
08c0: 33 32 5f 49 45 20 3d 20 30 78 36 30 30 3b 0a 7d 32_IE = 0x600;.}
08d0: 20 65 6c 73 65 20 76 65 72 73 69 6f 6e 20 28 49 else version (I
08e0: 45 35 36 29 20 7b 0a 09 65 6e 75 6d 20 75 69 6e E56) {..enum uin
08f0: 74 20 5f 57 49 4e 33 32 5f 49 45 20 3d 20 30 78 t _WIN32_IE = 0x
0900: 35 36 30 3b 0a 7d 20 65 6c 73 65 20 76 65 72 73 560;.} else vers
0910: 69 6f 6e 20 28 49 45 35 30 31 29 20 7b 0a 09 65 ion (IE501) {..e
0920: 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f num uint _WIN32_
0930: 49 45 20 3d 20 30 78 35 30 31 3b 0a 7d 20 65 6c IE = 0x501;.} el
0940: 73 65 20 76 65 72 73 69 6f 6e 20 28 49 45 35 29 se version (IE5)
0950: 20 7b 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f 57 {..enum uint _W
0960: 49 4e 33 32 5f 49 45 20 3d 20 30 78 35 30 30 3b IN32_IE = 0x500;
0970: 0a 7d 20 65 6c 73 65 20 76 65 72 73 69 6f 6e 20 .} else version
0980: 28 49 45 34 30 31 29 20 7b 0a 09 65 6e 75 6d 20 (IE401) {..enum
0990: 75 69 6e 74 20 5f 57 49 4e 33 32 5f 49 45 20 3d uint _WIN32_IE =
09a0: 20 30 78 34 30 31 3b 0a 7d 20 65 6c 73 65 20 76 0x401;.} else v
09b0: 65 72 73 69 6f 6e 20 28 49 45 34 29 20 7b 0a 09 ersion (IE4) {..
09c0: 65 6e 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 enum uint _WIN32
09d0: 5f 49 45 20 3d 20 30 78 34 30 30 3b 0a 7d 20 65 _IE = 0x400;.} e
09e0: 6c 73 65 20 76 65 72 73 69 6f 6e 20 28 49 45 33 lse version (IE3
09f0: 29 20 7b 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f ) {..enum uint _
0a00: 57 49 4e 33 32 5f 49 45 20 3d 20 30 78 33 30 30 WIN32_IE = 0x300
0a10: 3b 0a 7d 20 65 6c 73 65 20 73 74 61 74 69 63 20 ;.} else static
0a20: 69 66 20 28 5f 57 49 4e 33 32 5f 57 49 4e 4e 54 if (_WIN32_WINNT
0a30: 20 3e 3d 20 30 78 34 31 30 29 20 7b 0a 09 65 6e >= 0x410) {..en
0a40: 75 6d 20 75 69 6e 74 20 5f 57 49 4e 33 32 5f 49 um uint _WIN32_I
0a50: 45 20 3d 20 30 78 34 30 30 3b 0a 7d 20 65 6c 73 E = 0x400;.} els
0a60: 65 20 7b 0a 09 65 6e 75 6d 20 75 69 6e 74 20 5f e {..enum uint _
0a70: 57 49 4e 33 32 5f 49 45 20 3d 20 30 3b 0a 7d 0a WIN32_IE = 0;.}.
0a80: 0a 64 65 62 75 67 20 28 57 69 6e 64 6f 77 73 55 .debug (WindowsU
0a90: 6e 69 74 54 65 73 74 29 20 7b 0a 09 75 6e 69 74 nitTest) {..unit
0aa0: 74 65 73 74 20 7b 0a 09 09 70 72 69 6e 74 66 28 test {...printf(
0ab0: 22 57 69 6e 64 6f 77 73 20 4e 54 20 76 65 72 73 "Windows NT vers
0ac0: 69 6f 6e 3a 20 25 30 33 78 5c 6e 22 2c 20 5f 57 ion: %03x\n", _W
0ad0: 49 4e 33 32 5f 57 49 4e 4e 54 29 3b 0a 09 09 70 IN32_WINNT);...p
0ae0: 72 69 6e 74 66 28 22 49 45 20 76 65 72 73 69 6f rintf("IE versio
0af0: 6e 3a 20 20 20 20 20 20 20 20 20 25 30 33 78 5c n: %03x\
0b00: 6e 22 2c 20 5f 57 49 4e 33 32 5f 49 45 29 3b 0a n", _WIN32_IE);.
0b10: 09 7d 0a 7d 0a 0a 76 65 72 73 69 6f 6e 20 28 55 .}.}..version (U
0b20: 6e 69 63 6f 64 65 29 20 7b 0a 09 65 6e 75 6d 20 nicode) {..enum
0b30: 62 6f 6f 6c 20 5f 57 49 4e 33 32 5f 55 4e 49 43 bool _WIN32_UNIC
0b40: 4f 44 45 20 3d 20 74 72 75 65 3b 0a 09 70 61 63 ODE = true;..pac
0b50: 6b 61 67 65 20 74 65 6d 70 6c 61 74 65 20 44 45 kage template DE
0b60: 43 4c 41 52 45 5f 41 57 28 73 74 72 69 6e 67 20 CLARE_AW(string
0b70: 6e 61 6d 65 29 20 7b 0a 09 09 6d 69 78 69 6e 28 name) {...mixin(
0b80: 22 61 6c 69 61 73 20 22 20 7e 20 6e 61 6d 65 20 "alias " ~ name
0b90: 7e 20 22 57 20 22 20 7e 20 6e 61 6d 65 20 7e 20 ~ "W " ~ name ~
0ba0: 22 3b 22 29 3b 0a 09 7d 0a 7d 20 65 6c 73 65 20 ";");..}.} else
0bb0: 7b 0a 09 65 6e 75 6d 20 62 6f 6f 6c 20 5f 57 49 {..enum bool _WI
0bc0: 4e 33 32 5f 55 4e 49 43 4f 44 45 20 3d 20 66 61 N32_UNICODE = fa
0bd0: 6c 73 65 3b 0a 09 70 61 63 6b 61 67 65 20 74 65 lse;..package te
0be0: 6d 70 6c 61 74 65 20 44 45 43 4c 41 52 45 5f 41 mplate DECLARE_A
0bf0: 57 28 73 74 72 69 6e 67 20 6e 61 6d 65 29 20 7b W(string name) {
0c00: 0a 09 09 6d 69 78 69 6e 28 22 61 6c 69 61 73 20 ...mixin("alias
0c10: 22 20 7e 20 6e 61 6d 65 20 7e 20 22 41 20 22 20 " ~ name ~ "A "
0c20: 7e 20 6e 61 6d 65 20 7e 20 22 3b 22 29 3b 0a 09 ~ name ~ ";");..
0c30: 7d 0a 7d 0a }.}.