Artifact 83d09d08acc17a2f310df7ac89f3b9a5df643f8e:
- File
src/win32/rapi.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 0d 0a 2a 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 20 20 72 61 70 rap
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 20 2a 0d 0a 2a 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 20 20 2a 0d *.
00e0: 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*
00f0: 20 20 20 20 20 20 20 20 20 57 69 6e 64 6f 77 73 Windows
0100: 20 41 50 49 20 68 65 61 64 65 72 20 6d 6f 64 75 API header modu
0110: 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le
0120: 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 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: 20 20 20 20 2a 0d 0a 2a 20 20 20 20 20 20 20 20 *..*
0180: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 6c 61 Transla
0190: 74 65 64 20 66 72 6f 6d 20 4d 69 6e 47 57 20 57 ted from MinGW W
01a0: 69 6e 64 6f 77 73 20 68 65 61 64 65 72 73 20 20 indows headers
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
01c0: 0d 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ..*
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 by
01e0: 20 53 74 65 77 61 72 74 20 47 6f 72 64 6f 6e 20 Stewart Gordon
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0200: 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 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 20 20
0250: 20 20 20 20 20 2a 0d 0a 2a 20 20 20 20 20 20 20 *..*
0260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270: 50 6c 61 63 65 64 20 69 6e 74 6f 20 70 75 62 6c Placed into publ
0280: 69 63 20 64 6f 6d 61 69 6e 20 20 20 20 20 20 20 ic domain
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02a0: 2a 0d 0a 5c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0d 0a 6d 6f ***********/..mo
02f0: 64 75 6c 65 20 77 69 6e 33 32 2e 72 61 70 69 3b dule win32.rapi;
0300: 0d 0a 0d 0a 2f 2a 20 43 6f 6d 6d 65 6e 74 20 66 ..../* Comment f
0310: 72 6f 6d 20 4d 69 6e 47 57 0d 0a 20 20 20 4e 4f rom MinGW.. NO
0320: 54 45 3a 20 54 68 69 73 20 73 74 72 69 63 74 6c TE: This strictl
0330: 79 20 64 6f 65 73 20 6e 6f 74 20 62 65 6c 6f 6e y does not belon
0340: 67 20 69 6e 20 74 68 65 20 57 69 6e 33 32 20 41 g in the Win32 A
0350: 50 49 20 73 69 6e 63 65 20 69 74 27 73 0d 0a 20 PI since it's..
0360: 20 20 72 65 61 6c 6c 79 20 70 61 72 74 20 6f 66 really part of
0370: 20 50 6c 61 74 66 6f 72 6d 20 53 44 4b 2e 0d 0a Platform SDK...
0380: 20 2a 2f 0d 0a 0d 0a 70 72 69 76 61 74 65 20 69 */....private i
0390: 6d 70 6f 72 74 20 77 69 6e 33 32 2e 77 69 6e 62 mport win32.winb
03a0: 61 73 65 2c 20 77 69 6e 33 32 2e 77 69 6e 64 65 ase, win32.winde
03b0: 66 3b 0d 0a 0d 0a 65 78 74 65 72 6e 20 28 57 69 f;....extern (Wi
03c0: 6e 64 6f 77 73 29 3a 0d 0a 0d 0a 65 6e 75 6d 20 ndows):....enum
03d0: 52 41 50 49 53 54 52 45 41 4d 46 4c 41 47 0d 0a RAPISTREAMFLAG..
03e0: 7b 0d 0a 20 20 20 20 53 54 52 45 41 4d 5f 54 49 {.. STREAM_TI
03f0: 4d 45 4f 55 54 5f 52 45 41 44 0d 0a 7d 0d 0a 0d MEOUT_READ..}...
0400: 0a 69 6e 74 65 72 66 61 63 65 20 49 52 41 50 49 .interface IRAPI
0410: 53 74 72 65 61 6d 0d 0a 7b 0d 0a 20 20 20 20 48 Stream..{.. H
0420: 52 45 53 55 4c 54 20 53 65 74 52 61 70 69 53 74 RESULT SetRapiSt
0430: 61 74 28 52 41 50 49 53 54 52 45 41 4d 46 4c 41 at(RAPISTREAMFLA
0440: 47 2c 20 44 57 4f 52 44 29 3b 0d 0a 20 20 20 20 G, DWORD);..
0450: 48 52 45 53 55 4c 54 20 47 65 74 52 61 70 69 53 HRESULT GetRapiS
0460: 74 61 74 28 52 41 50 49 53 54 52 45 41 4d 46 4c tat(RAPISTREAMFL
0470: 41 47 2c 20 44 57 4f 52 44 2a 29 3b 0d 0a 7d 0d AG, DWORD*);..}.
0480: 0a 0d 0a 61 6c 69 61 73 20 48 52 45 53 55 4c 54 ...alias HRESULT
0490: 20 66 75 6e 63 74 69 6f 6e 28 44 57 4f 52 44 2c function(DWORD,
04a0: 20 42 59 54 45 2c 20 44 57 4f 52 44 2c 20 42 59 BYTE, DWORD, BY
04b0: 54 45 2c 20 49 52 41 50 49 53 74 72 65 61 6d 29 TE, IRAPIStream)
04c0: 20 52 41 50 49 45 58 54 3b 0d 0a 0d 0a 73 74 72 RAPIEXT;....str
04d0: 75 63 74 20 52 41 50 49 49 4e 49 54 0d 0a 7b 0d uct RAPIINIT..{.
04e0: 0a 20 20 20 20 44 57 4f 52 44 20 20 20 63 62 53 . DWORD cbS
04f0: 69 7a 65 20 3d 20 74 68 69 73 2e 73 69 7a 65 6f ize = this.sizeo
0500: 66 3b 0d 0a 20 20 20 20 48 41 4e 44 4c 45 20 20 f;.. HANDLE
0510: 68 65 52 61 70 69 49 6e 69 74 3b 0d 0a 20 20 20 heRapiInit;..
0520: 20 48 52 45 53 55 4c 54 20 68 72 52 61 70 69 49 HRESULT hrRapiI
0530: 6e 69 74 3b 0d 0a 7d 0d 0a 0d 0a 48 52 45 53 55 nit;..}....HRESU
0540: 4c 54 20 43 65 52 61 70 69 49 6e 69 74 28 29 3b LT CeRapiInit();
0550: 0d 0a 48 52 45 53 55 4c 54 20 43 65 52 61 70 69 ..HRESULT CeRapi
0560: 49 6e 69 74 45 78 28 52 41 50 49 49 4e 49 54 2a InitEx(RAPIINIT*
0570: 29 3b 0d 0a 42 4f 4f 4c 20 43 65 43 72 65 61 74 );..BOOL CeCreat
0580: 65 50 72 6f 63 65 73 73 28 4c 50 43 57 53 54 52 eProcess(LPCWSTR
0590: 2c 20 4c 50 43 57 53 54 52 2c 20 4c 50 53 45 43 , LPCWSTR, LPSEC
05a0: 55 52 49 54 59 5f 41 54 54 52 49 42 55 54 45 53 URITY_ATTRIBUTES
05b0: 2c 0d 0a 20 20 4c 50 53 45 43 55 52 49 54 59 5f ,.. LPSECURITY_
05c0: 41 54 54 52 49 42 55 54 45 53 2c 20 42 4f 4f 4c ATTRIBUTES, BOOL
05d0: 2c 20 44 57 4f 52 44 2c 20 4c 50 56 4f 49 44 2c , DWORD, LPVOID,
05e0: 20 4c 50 57 53 54 52 2c 20 4c 50 53 54 41 52 54 LPWSTR, LPSTART
05f0: 55 50 49 4e 46 4f 2c 0d 0a 20 20 4c 50 50 52 4f UPINFO,.. LPPRO
0600: 43 45 53 53 5f 49 4e 46 4f 52 4d 41 54 49 4f 4e CESS_INFORMATION
0610: 29 3b 0d 0a 48 52 45 53 55 4c 54 20 43 65 52 61 );..HRESULT CeRa
0620: 70 69 55 6e 69 6e 69 74 28 29 3b 0d 0a 42 4f 4f piUninit();..BOO
0630: 4c 20 43 65 57 72 69 74 65 46 69 6c 65 28 48 41 L CeWriteFile(HA
0640: 4e 44 4c 45 2c 20 4c 50 43 56 4f 49 44 2c 20 44 NDLE, LPCVOID, D
0650: 57 4f 52 44 2c 20 4c 50 44 57 4f 52 44 2c 20 4c WORD, LPDWORD, L
0660: 50 4f 56 45 52 4c 41 50 50 45 44 29 3b 0d 0a 48 POVERLAPPED);..H
0670: 41 4e 44 4c 45 20 43 65 43 72 65 61 74 65 46 69 ANDLE CeCreateFi
0680: 6c 65 28 4c 50 43 57 53 54 52 2c 20 44 57 4f 52 le(LPCWSTR, DWOR
0690: 44 2c 20 44 57 4f 52 44 2c 20 4c 50 53 45 43 55 D, DWORD, LPSECU
06a0: 52 49 54 59 5f 41 54 54 52 49 42 55 54 45 53 2c RITY_ATTRIBUTES,
06b0: 20 44 57 4f 52 44 2c 0d 0a 20 20 44 57 4f 52 44 DWORD,.. DWORD
06c0: 2c 20 48 41 4e 44 4c 45 29 3b 0d 0a 42 4f 4f 4c , HANDLE);..BOOL
06d0: 20 43 65 43 72 65 61 74 65 44 69 72 65 63 74 6f CeCreateDirecto
06e0: 72 79 28 4c 50 43 57 53 54 52 2c 20 4c 50 53 45 ry(LPCWSTR, LPSE
06f0: 43 55 52 49 54 59 5f 41 54 54 52 49 42 55 54 45 CURITY_ATTRIBUTE
0700: 53 29 3b 0d 0a 44 57 4f 52 44 20 43 65 47 65 74 S);..DWORD CeGet
0710: 4c 61 73 74 45 72 72 6f 72 28 29 3b 0d 0a 42 4f LastError();..BO
0720: 4f 4c 20 43 65 47 65 74 46 69 6c 65 54 69 6d 65 OL CeGetFileTime
0730: 28 48 41 4e 44 4c 45 2c 20 4c 50 46 49 4c 45 54 (HANDLE, LPFILET
0740: 49 4d 45 2c 20 4c 50 46 49 4c 45 54 49 4d 45 2c IME, LPFILETIME,
0750: 20 4c 50 46 49 4c 45 54 49 4d 45 29 3b 0d 0a 42 LPFILETIME);..B
0760: 4f 4f 4c 20 43 65 43 6c 6f 73 65 48 61 6e 64 6c OOL CeCloseHandl
0770: 65 28 48 41 4e 44 4c 45 29 3b 0d 0a e(HANDLE);..