Hex Artifact Content

Not logged in

Artifact 3a5fb6fa17d9e24a87064b37f48345cbe94439d7:


0000: 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 77  private import w
0010: 69 6e 33 32 2e 61 6e 73 69 2e 77 69 6e 64 6f 77  in32.ansi.window
0020: 73 3b 0a 0a 2f 2f 20 48 61 63 6b 21 0a 2f 2f 0a  s;..// Hack!.//.
0030: 2f 2f 20 5f 61 63 72 74 75 73 65 64 5f 64 6c 6c  // _acrtused_dll
0040: e3 81 8c e5 8b 9d e6 89 8b e3 81 ab e7 b5 82 e4  ................
0050: ba 86 e6 99 82 e3 81 ab e6 a8 99 e6 ba 96 e5 85  ................
0060: a5 e5 87 ba e5 8a 9b e3 83 8f e3 83 b3 e3 83 89  ................
0070: e3 83 ab e3 82 92 0a 2f 2f 20 e9 96 89 e3 81 98  .......// ......
0080: e3 81 a1 e3 82 83 e3 81 a3 e3 81 a6 e5 9b b0 e3  ................
0090: 82 8b e3 81 ae e3 81 a7 e3 80 81 e3 81 9d e3 81  ................
00a0: ae e8 be ba e3 82 8a e3 81 a0 e3 81 91 e3 81 af  ................
00b0: e9 96 89 e3 81 98 e3 81 aa e3 81 84 e3 82 88 e3  ................
00c0: 81 86 e3 81 aa 0a 2f 2f 20 43 6c 6f 73 65 48 61  ......// CloseHa
00d0: 6e 64 6c 65 e3 82 92 e7 aa 81 e3 81 a3 e8 be bc  ndle............
00e0: e3 82 93 e3 81 a7 e5 9b 9e e9 81 bf e3 80 82 e3  ................
00f0: 81 84 e3 81 84 e3 81 ae e3 81 8b e3 81 93 e3 82  ................
0100: 8c e3 80 82 0a 0a 65 78 74 65 72 6e 28 57 69 6e  ......extern(Win
0110: 64 6f 77 73 29 0a 7b 0a 09 70 72 69 76 61 74 65  dows).{..private
0120: 20 61 6c 69 61 73 20 42 4f 4f 4c 20 66 75 6e 63   alias BOOL func
0130: 74 69 6f 6e 28 48 41 4e 44 4c 45 29 20 43 6c 48  tion(HANDLE) ClH
0140: 6e 54 3b 0a 09 70 72 69 76 61 74 65 20 43 6c 48  nT;..private ClH
0150: 6e 54 20 20 52 65 61 6c 5f 43 6c 6f 73 65 48 61  nT  Real_CloseHa
0160: 6e 64 6c 65 3b 0a 09 70 72 69 76 61 74 65 20 48  ndle;..private H
0170: 41 4e 44 4c 45 20 73 74 64 69 6e 3b 0a 09 70 72  ANDLE stdin;..pr
0180: 69 76 61 74 65 20 48 41 4e 44 4c 45 20 73 74 64  ivate HANDLE std
0190: 6f 75 74 3b 0a 09 70 72 69 76 61 74 65 20 48 41  out;..private HA
01a0: 4e 44 4c 45 20 73 74 64 65 72 72 3b 0a 0a 09 42  NDLE stderr;...B
01b0: 4f 4f 4c 20 43 6c 6f 73 65 48 61 6e 64 6c 65 28  OOL CloseHandle(
01c0: 20 48 41 4e 44 4c 45 20 68 20 29 0a 09 7b 0a 09   HANDLE h )..{..
01d0: 09 69 66 28 20 68 3d 3d 73 74 64 69 6e 20 20 29  .if( h==stdin  )
01e0: 20 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 09 09   return TRUE;...
01f0: 69 66 28 20 68 3d 3d 73 74 64 6f 75 74 20 29 20  if( h==stdout ) 
0200: 72 65 74 75 72 6e 20 54 52 55 45 3b 0a 09 09 69  return TRUE;...i
0210: 66 28 20 68 3d 3d 73 74 64 65 72 72 20 29 20 72  f( h==stderr ) r
0220: 65 74 75 72 6e 20 54 52 55 45 3b 0a 09 09 72 65  eturn TRUE;...re
0230: 74 75 72 6e 20 52 65 61 6c 5f 43 6c 6f 73 65 48  turn Real_CloseH
0240: 61 6e 64 6c 65 28 68 29 3b 0a 09 7d 0a 7d 0a 0a  andle(h);..}.}..
0250: 73 74 61 74 69 63 20 74 68 69 73 28 29 0a 7b 0a  static this().{.
0260: 09 52 65 61 6c 5f 43 6c 6f 73 65 48 61 6e 64 6c  .Real_CloseHandl
0270: 65 20 3d 20 63 61 73 74 28 43 6c 48 6e 54 29 0a  e = cast(ClHnT).
0280: 09 09 47 65 74 50 72 6f 63 41 64 64 72 65 73 73  ..GetProcAddress
0290: 28 20 47 65 74 4d 6f 64 75 6c 65 48 61 6e 64 6c  ( GetModuleHandl
02a0: 65 28 22 6b 65 72 6e 65 6c 33 32 2e 64 6c 6c 22  e("kernel32.dll"
02b0: 29 2c 20 22 43 6c 6f 73 65 48 61 6e 64 6c 65 22  ), "CloseHandle"
02c0: 20 29 3b 0a 09 73 74 64 69 6e 20 20 3d 20 47 65   );..stdin  = Ge
02d0: 74 53 74 64 48 61 6e 64 6c 65 28 53 54 44 5f 49  tStdHandle(STD_I
02e0: 4e 50 55 54 5f 48 41 4e 44 4c 45 20 29 3b 0a 09  NPUT_HANDLE );..
02f0: 73 74 64 6f 75 74 20 3d 20 47 65 74 53 74 64 48  stdout = GetStdH
0300: 61 6e 64 6c 65 28 53 54 44 5f 4f 55 54 50 55 54  andle(STD_OUTPUT
0310: 5f 48 41 4e 44 4c 45 29 3b 0a 09 73 74 64 65 72  _HANDLE);..stder
0320: 72 20 3d 20 47 65 74 53 74 64 48 61 6e 64 6c 65  r = GetStdHandle
0330: 28 53 54 44 5f 45 52 52 4f 52 5f 48 41 4e 44 4c  (STD_ERROR_HANDL
0340: 45 20 29 3b 0a 7d 0a                             E );.}.