Artifact 0911235d097259362437c0cb6137c93041463e68:
- File
src/win32/lmalert.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 6c 6d 61 6c 65 lmale
0070: 72 74 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 rt.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 20 20
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 50 6c 61 63 65 64 20 69 6e 74 6f Placed into
0230: 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 20 public domain
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 5c 2a 2a 2a 2a 2a 2a 2a *..\*******
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02a0: 2f 0d 0a 6d 6f 64 75 6c 65 20 77 69 6e 33 32 2e /..module win32.
02b0: 6c 6d 61 6c 65 72 74 3b 0d 0a 70 72 61 67 6d 61 lmalert;..pragma
02c0: 28 6c 69 62 2c 20 22 6e 65 74 61 70 69 33 32 22 (lib, "netapi32"
02d0: 29 3b 0d 0a 0d 0a 70 72 69 76 61 74 65 20 69 6d );....private im
02e0: 70 6f 72 74 20 77 69 6e 33 32 2e 6c 6d 63 6f 6e port win32.lmcon
02f0: 73 2c 20 77 69 6e 33 32 2e 77 69 6e 64 65 66 3b s, win32.windef;
0300: 0d 0a 0d 0a 63 6f 6e 73 74 20 54 43 48 41 52 5b ....const TCHAR[
0310: 5d 0d 0a 09 41 4c 45 52 54 45 52 5f 4d 41 49 4c ]...ALERTER_MAIL
0320: 53 4c 4f 54 20 20 20 20 20 3d 20 60 5c 5c 2e 5c SLOT = `\\.\
0330: 4d 41 49 4c 53 4c 4f 54 5c 41 6c 65 72 74 65 72 MAILSLOT\Alerter
0340: 60 2c 0d 0a 09 41 4c 45 52 54 5f 50 52 49 4e 54 `,...ALERT_PRINT
0350: 5f 45 56 45 4e 54 20 20 20 20 3d 20 22 50 52 49 _EVENT = "PRI
0360: 4e 54 49 4e 47 22 2c 0d 0a 09 41 4c 45 52 54 5f NTING",...ALERT_
0370: 4d 45 53 53 41 47 45 5f 45 56 45 4e 54 20 20 3d MESSAGE_EVENT =
0380: 20 22 4d 45 53 53 41 47 45 22 2c 0d 0a 09 41 4c "MESSAGE",...AL
0390: 45 52 54 5f 45 52 52 4f 52 4c 4f 47 5f 45 56 45 ERT_ERRORLOG_EVE
03a0: 4e 54 20 3d 20 22 45 52 52 4f 52 4c 4f 47 22 2c NT = "ERRORLOG",
03b0: 0d 0a 09 41 4c 45 52 54 5f 41 44 4d 49 4e 5f 45 ...ALERT_ADMIN_E
03c0: 56 45 4e 54 20 20 20 20 3d 20 22 41 44 4d 49 4e VENT = "ADMIN
03d0: 22 2c 0d 0a 09 41 4c 45 52 54 5f 55 53 45 52 5f ",...ALERT_USER_
03e0: 45 56 45 4e 54 20 20 20 20 20 3d 20 22 55 53 45 EVENT = "USE
03f0: 52 22 3b 0d 0a 2f 2f 4d 41 43 52 4f 20 23 64 65 R";..//MACRO #de
0400: 66 69 6e 65 20 41 4c 45 52 54 5f 4f 54 48 45 52 fine ALERT_OTHER
0410: 5f 49 4e 46 4f 28 78 29 20 28 28 50 42 59 54 45 _INFO(x) ((PBYTE
0420: 29 28 78 29 2b 73 69 7a 65 6f 66 28 53 54 44 5f )(x)+sizeof(STD_
0430: 41 4c 45 52 54 29 29 0d 0a 0d 0a 2f 2f 4d 41 43 ALERT))....//MAC
0440: 52 4f 20 23 64 65 66 69 6e 65 20 41 4c 45 52 54 RO #define ALERT
0450: 5f 56 41 52 5f 44 41 54 41 28 70 29 20 28 28 50 _VAR_DATA(p) ((P
0460: 42 59 54 45 29 28 70 29 2b 73 69 7a 65 6f 66 28 BYTE)(p)+sizeof(
0470: 2a 70 29 29 0d 0a 0d 0a 63 6f 6e 73 74 20 50 52 *p))....const PR
0480: 4a 4f 42 5f 51 53 54 41 54 55 53 20 20 20 20 20 JOB_QSTATUS
0490: 3d 20 33 3b 0d 0a 63 6f 6e 73 74 20 50 52 4a 4f = 3;..const PRJO
04a0: 42 5f 44 45 56 53 54 41 54 55 53 20 20 20 3d 20 B_DEVSTATUS =
04b0: 35 30 38 3b 0d 0a 63 6f 6e 73 74 20 50 52 4a 4f 508;..const PRJO
04c0: 42 5f 43 4f 4d 50 4c 45 54 45 20 20 20 20 3d 20 B_COMPLETE =
04d0: 34 3b 0d 0a 63 6f 6e 73 74 20 50 52 4a 4f 42 5f 4;..const PRJOB_
04e0: 49 4e 54 45 52 56 20 20 20 20 20 20 3d 20 38 3b INTERV = 8;
04f0: 0d 0a 63 6f 6e 73 74 20 50 52 4a 4f 42 5f 20 20 ..const PRJOB_
0500: 20 20 20 20 20 20 20 20 20 20 3d 20 31 36 3b 0d = 16;.
0510: 0a 63 6f 6e 73 74 20 50 52 4a 4f 42 5f 44 45 53 .const PRJOB_DES
0520: 54 4f 46 46 4c 49 4e 45 20 3d 20 33 32 3b 0d 0a TOFFLINE = 32;..
0530: 63 6f 6e 73 74 20 50 52 4a 4f 42 5f 44 45 53 54 const PRJOB_DEST
0540: 50 41 55 53 45 44 20 20 3d 20 36 34 3b 0d 0a 63 PAUSED = 64;..c
0550: 6f 6e 73 74 20 50 52 4a 4f 42 5f 4e 4f 54 49 46 onst PRJOB_NOTIF
0560: 59 20 20 20 20 20 20 3d 20 31 32 38 3b 0d 0a 63 Y = 128;..c
0570: 6f 6e 73 74 20 50 52 4a 4f 42 5f 44 45 53 54 4e onst PRJOB_DESTN
0580: 4f 50 41 50 45 52 20 3d 20 32 35 36 3b 0d 0a 63 OPAPER = 256;..c
0590: 6f 6e 73 74 20 50 52 4a 4f 42 5f 44 45 4c 45 54 onst PRJOB_DELET
05a0: 45 44 20 20 20 20 20 3d 20 33 32 37 36 38 3b 0d ED = 32768;.
05b0: 0a 63 6f 6e 73 74 20 50 52 4a 4f 42 5f 51 53 5f .const PRJOB_QS_
05c0: 51 55 45 55 45 44 20 20 20 3d 20 30 3b 0d 0a 63 QUEUED = 0;..c
05d0: 6f 6e 73 74 20 50 52 4a 4f 42 5f 51 53 5f 50 41 onst PRJOB_QS_PA
05e0: 55 53 45 44 20 20 20 3d 20 31 3b 0d 0a 63 6f 6e USED = 1;..con
05f0: 73 74 20 50 52 4a 4f 42 5f 51 53 5f 53 50 4f 4f st PRJOB_QS_SPOO
0600: 4c 49 4e 47 20 3d 20 32 3b 0d 0a 63 6f 6e 73 74 LING = 2;..const
0610: 20 50 52 4a 4f 42 5f 51 53 5f 50 52 49 4e 54 49 PRJOB_QS_PRINTI
0620: 4e 47 20 3d 20 33 3b 0d 0a 0d 0a 73 74 72 75 63 NG = 3;....struc
0630: 74 20 41 44 4d 49 4e 5f 4f 54 48 45 52 5f 49 4e t ADMIN_OTHER_IN
0640: 46 4f 7b 0d 0a 09 44 57 4f 52 44 20 61 6c 72 74 FO{...DWORD alrt
0650: 61 64 5f 65 72 72 63 6f 64 65 3b 0d 0a 09 44 57 ad_errcode;...DW
0660: 4f 52 44 20 61 6c 72 74 61 64 5f 6e 75 6d 73 74 ORD alrtad_numst
0670: 72 69 6e 67 73 3b 0d 0a 7d 0d 0a 61 6c 69 61 73 rings;..}..alias
0680: 20 41 44 4d 49 4e 5f 4f 54 48 45 52 5f 49 4e 46 ADMIN_OTHER_INF
0690: 4f 2a 20 50 41 44 4d 49 4e 5f 4f 54 48 45 52 5f O* PADMIN_OTHER_
06a0: 49 4e 46 4f 2c 20 4c 50 41 44 4d 49 4e 5f 4f 54 INFO, LPADMIN_OT
06b0: 48 45 52 5f 49 4e 46 4f 3b 0d 0a 0d 0a 73 74 72 HER_INFO;....str
06c0: 75 63 74 20 53 54 44 5f 41 4c 45 52 54 7b 0d 0a uct STD_ALERT{..
06d0: 09 44 57 4f 52 44 20 61 6c 72 74 5f 74 69 6d 65 .DWORD alrt_time
06e0: 73 74 61 6d 70 3b 0d 0a 09 54 43 48 41 52 5b 45 stamp;...TCHAR[E
06f0: 56 4c 45 4e 2b 31 5d 20 61 6c 72 74 5f 65 76 65 VLEN+1] alrt_eve
0700: 6e 74 6e 61 6d 65 3b 0d 0a 09 54 43 48 41 52 5b ntname;...TCHAR[
0710: 53 4e 4c 45 4e 2b 31 5d 20 61 6c 72 74 5f 73 65 SNLEN+1] alrt_se
0720: 72 76 69 63 65 6e 61 6d 65 3b 0d 0a 7d 0d 0a 61 rvicename;..}..a
0730: 6c 69 61 73 20 53 54 44 5f 41 4c 45 52 54 2a 20 lias STD_ALERT*
0740: 50 53 54 44 5f 41 4c 45 52 54 2c 20 4c 50 53 54 PSTD_ALERT, LPST
0750: 44 5f 41 4c 45 52 54 3b 0d 0a 0d 0a 73 74 72 75 D_ALERT;....stru
0760: 63 74 20 45 52 52 4c 4f 47 5f 4f 54 48 45 52 5f ct ERRLOG_OTHER_
0770: 49 4e 46 4f 7b 0d 0a 09 44 57 4f 52 44 20 61 6c INFO{...DWORD al
0780: 72 74 65 72 5f 65 72 72 63 6f 64 65 3b 0d 0a 09 rter_errcode;...
0790: 44 57 4f 52 44 20 61 6c 72 74 65 72 5f 6f 66 66 DWORD alrter_off
07a0: 73 65 74 3b 0d 0a 7d 0d 0a 61 6c 69 61 73 20 45 set;..}..alias E
07b0: 52 52 4c 4f 47 5f 4f 54 48 45 52 5f 49 4e 46 4f RRLOG_OTHER_INFO
07c0: 2a 20 50 45 52 52 4c 4f 47 5f 4f 54 48 45 52 5f * PERRLOG_OTHER_
07d0: 49 4e 46 4f 2c 20 4c 50 45 52 52 4c 4f 47 5f 4f INFO, LPERRLOG_O
07e0: 54 48 45 52 5f 49 4e 46 4f 3b 0d 0a 0d 0a 73 74 THER_INFO;....st
07f0: 72 75 63 74 20 50 52 49 4e 54 5f 4f 54 48 45 52 ruct PRINT_OTHER
0800: 5f 49 4e 46 4f 7b 0d 0a 09 44 57 4f 52 44 20 61 _INFO{...DWORD a
0810: 6c 72 74 70 72 5f 6a 6f 62 69 64 3b 0d 0a 09 44 lrtpr_jobid;...D
0820: 57 4f 52 44 20 61 6c 72 74 70 72 5f 73 74 61 74 WORD alrtpr_stat
0830: 75 73 3b 0d 0a 09 44 57 4f 52 44 20 61 6c 72 74 us;...DWORD alrt
0840: 70 72 5f 73 75 62 6d 69 74 74 65 64 3b 0d 0a 09 pr_submitted;...
0850: 44 57 4f 52 44 20 61 6c 72 74 70 72 5f 73 69 7a DWORD alrtpr_siz
0860: 65 3b 0d 0a 7d 0d 0a 61 6c 69 61 73 20 50 52 49 e;..}..alias PRI
0870: 4e 54 5f 4f 54 48 45 52 5f 49 4e 46 4f 2a 20 50 NT_OTHER_INFO* P
0880: 50 52 49 4e 54 5f 4f 54 48 45 52 5f 49 4e 46 4f PRINT_OTHER_INFO
0890: 2c 20 4c 50 50 52 49 4e 54 5f 4f 54 48 45 52 5f , LPPRINT_OTHER_
08a0: 49 4e 46 4f 3b 0d 0a 0d 0a 73 74 72 75 63 74 20 INFO;....struct
08b0: 55 53 45 52 5f 4f 54 48 45 52 5f 49 4e 46 4f 7b USER_OTHER_INFO{
08c0: 0d 0a 09 44 57 4f 52 44 20 61 6c 72 74 75 73 5f ...DWORD alrtus_
08d0: 65 72 72 63 6f 64 65 3b 0d 0a 09 44 57 4f 52 44 errcode;...DWORD
08e0: 20 61 6c 72 74 75 73 5f 6e 75 6d 73 74 72 69 6e alrtus_numstrin
08f0: 67 73 3b 0d 0a 7d 0d 0a 61 6c 69 61 73 20 55 53 gs;..}..alias US
0900: 45 52 5f 4f 54 48 45 52 5f 49 4e 46 4f 2a 20 50 ER_OTHER_INFO* P
0910: 55 53 45 52 5f 4f 54 48 45 52 5f 49 4e 46 4f 2c USER_OTHER_INFO,
0920: 20 4c 50 55 53 45 52 5f 4f 54 48 45 52 5f 49 4e LPUSER_OTHER_IN
0930: 46 4f 3b 0d 0a 0d 0a 65 78 74 65 72 6e 20 28 57 FO;....extern (W
0940: 69 6e 64 6f 77 73 29 20 7b 0d 0a 4e 45 54 5f 41 indows) {..NET_A
0950: 50 49 5f 53 54 41 54 55 53 20 4e 65 74 41 6c 65 PI_STATUS NetAle
0960: 72 74 52 61 69 73 65 28 4c 50 43 57 53 54 52 2c rtRaise(LPCWSTR,
0970: 50 56 4f 49 44 2c 44 57 4f 52 44 29 3b 0d 0a 4e PVOID,DWORD);..N
0980: 45 54 5f 41 50 49 5f 53 54 41 54 55 53 20 4e 65 ET_API_STATUS Ne
0990: 74 41 6c 65 72 74 52 61 69 73 65 45 78 28 4c 50 tAlertRaiseEx(LP
09a0: 43 57 53 54 52 2c 50 56 4f 49 44 2c 44 57 4f 52 CWSTR,PVOID,DWOR
09b0: 44 2c 4c 50 43 57 53 54 52 29 3b 0d 0a 7d 0d 0a D,LPCWSTR);..}..