0000: 69 6d 70 6f 72 74 20 63 6f 72 65 2e 73 79 73 2e import core.sys.
0010: 77 69 6e 64 6f 77 73 2e 64 6c 6c 3b 0a 69 6d 70 windows.dll;.imp
0020: 6f 72 74 20 77 69 6e 33 32 2e 77 69 6e 64 6f 77 ort win32.window
0030: 73 3b 0a 69 6d 70 6f 72 74 20 77 69 6e 33 32 2e s;.import win32.
0040: 77 69 6e 75 73 65 72 3b 0a 69 6d 70 6f 72 74 20 winuser;.import
0050: 73 74 64 2e 73 74 72 69 6e 67 3b 0a 69 6d 70 6f std.string;.impo
0060: 72 74 20 73 74 64 2e 66 69 6c 65 3b 0a 69 6d 70 rt std.file;.imp
0070: 6f 72 74 20 75 74 69 6c 3b 0a 69 6d 70 6f 72 74 ort util;.import
0080: 20 77 69 6e 64 6c 6c 3b 0a 69 6d 70 6f 72 74 20 windll;.import
0090: 62 67 61 5f 6d 65 6c 74 65 72 3b 0a 69 6d 70 6f bga_melter;.impo
00a0: 72 74 20 71 62 67 61 5f 67 75 69 3b 0a 0a 2f 2f rt qbga_gui;..//
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00f0: 0a 2f 2f 20 e3 81 8a e3 81 8d e3 81 be e3 82 8a .// ............
0100: e3 81 ae 44 4c 4c e5 88 9d e6 9c 9f e5 8c 96 e3 ...DLL..........
0110: 83 ab e3 83 bc e3 83 81 e3 83 b3 0a 2f 2f 2d 2d ............//--
0120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
0160: 5f 5f 67 73 68 61 72 65 64 20 48 49 4e 53 54 41 __gshared HINSTA
0170: 4e 43 45 20 67 5f 68 69 6e 73 74 3b 0a 0a 65 78 NCE g_hinst;..ex
0180: 74 65 72 6e 20 28 57 69 6e 64 6f 77 73 29 0a 42 tern (Windows).B
0190: 4f 4f 4c 20 44 6c 6c 4d 61 69 6e 28 20 48 49 4e OOL DllMain( HIN
01a0: 53 54 41 4e 43 45 20 69 6e 73 74 2c 20 55 4c 4f STANCE inst, ULO
01b0: 4e 47 20 72 65 61 73 6f 6e 2c 20 76 6f 69 64 2a NG reason, void*
01c0: 20 72 65 73 65 72 76 65 64 20 29 0a 7b 0a 09 73 reserved ).{..s
01d0: 77 69 74 63 68 28 20 72 65 61 73 6f 6e 20 29 0a witch( reason ).
01e0: 09 7b 0a 09 63 61 73 65 20 44 4c 4c 5f 50 52 4f .{..case DLL_PRO
01f0: 43 45 53 53 5f 41 54 54 41 43 48 3a 0a 09 09 67 CESS_ATTACH:...g
0200: 5f 68 69 6e 73 74 20 3d 20 69 6e 73 74 3b 0a 09 _hinst = inst;..
0210: 09 64 6c 6c 5f 70 72 6f 63 65 73 73 5f 61 74 74 .dll_process_att
0220: 61 63 68 28 20 69 6e 73 74 2c 20 74 72 75 65 20 ach( inst, true
0230: 29 3b 0a 09 09 69 66 28 20 67 5f 6f 72 69 67 5f );...if( g_orig_
0240: 64 6c 6c 20 69 73 20 6e 75 6c 6c 20 29 0a 09 09 dll is null )...
0250: 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 .return false;..
0260: 09 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 44 .break;...case D
0270: 4c 4c 5f 50 52 4f 43 45 53 53 5f 44 45 54 41 43 LL_PROCESS_DETAC
0280: 48 3a 0a 09 09 64 6c 6c 5f 70 72 6f 63 65 73 73 H:...dll_process
0290: 5f 64 65 74 61 63 68 28 20 69 6e 73 74 2c 20 74 _detach( inst, t
02a0: 72 75 65 20 29 3b 0a 09 09 62 72 65 61 6b 3b 0a rue );...break;.
02b0: 0a 09 63 61 73 65 20 44 4c 4c 5f 54 48 52 45 41 ..case DLL_THREA
02c0: 44 5f 41 54 54 41 43 48 3a 0a 09 09 64 6c 6c 5f D_ATTACH:...dll_
02d0: 74 68 72 65 61 64 5f 61 74 74 61 63 68 28 20 74 thread_attach( t
02e0: 72 75 65 2c 20 74 72 75 65 20 29 3b 0a 09 09 62 rue, true );...b
02f0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 44 4c 4c reak;...case DLL
0300: 5f 54 48 52 45 41 44 5f 44 45 54 41 43 48 3a 0a _THREAD_DETACH:.
0310: 09 09 64 6c 6c 5f 74 68 72 65 61 64 5f 64 65 74 ..dll_thread_det
0320: 61 63 68 28 20 74 72 75 65 2c 20 74 72 75 65 20 ach( true, true
0330: 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 64 65 );...break;...de
0340: 66 61 75 6c 74 3a 0a 09 7d 0a 09 72 65 74 75 72 fault:..}..retur
0350: 6e 20 74 72 75 65 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d n true;.}..//---
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f -------------.//
03a0: 20 41 50 49 e8 bb a2 e9 80 81 e5 87 a6 e7 90 86 API............
03b0: 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .//-------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03f0: 2d 2d 2d 0a 0a 5f 5f 67 73 68 61 72 65 64 20 57 ---..__gshared W
0400: 69 6e 44 4c 4c 20 67 5f 6f 72 69 67 5f 64 6c 6c inDLL g_orig_dll
0410: 20 3d 20 6e 75 6c 6c 3b 0a 5f 5f 67 73 68 61 72 = null;.__gshar
0420: 65 64 20 55 49 4e 54 20 20 20 57 4d 5f 41 52 43 ed UINT WM_ARC
0430: 45 58 54 52 41 43 54 3b 0a 0a 73 74 61 74 69 63 EXTRACT;..static
0440: 20 74 68 69 73 28 29 0a 7b 0a 09 67 5f 6f 72 69 this().{..g_ori
0450: 67 5f 64 6c 6c 20 3d 20 57 69 6e 44 4c 4c 2e 6c g_dll = WinDLL.l
0460: 6f 61 64 28 20 22 5f 42 67 61 33 32 2e 44 4c 4c oad( "_Bga32.DLL
0470: 22 20 29 3b 0a 09 57 4d 5f 41 52 43 45 58 54 52 " );..WM_ARCEXTR
0480: 41 43 54 20 3d 20 52 65 67 69 73 74 65 72 57 69 ACT = RegisterWi
0490: 6e 64 6f 77 4d 65 73 73 61 67 65 28 22 77 6d 5f ndowMessage("wm_
04a0: 61 72 63 65 78 74 72 61 63 74 22 29 3b 0a 7d 0a arcextract");.}.
04b0: 0a 73 74 61 74 69 63 20 7e 74 68 69 73 28 29 0a .static ~this().
04c0: 7b 0a 09 67 5f 6f 72 69 67 5f 64 6c 6c 2e 63 6c {..g_orig_dll.cl
04d0: 6f 73 65 28 29 3b 0a 7d 0a 0a 74 65 6d 70 6c 61 ose();.}..templa
04e0: 74 65 20 61 70 69 28 46 6e 54 29 0a 7b 0a 09 46 te api(FnT).{..F
04f0: 6e 54 20 61 70 69 28 20 73 74 72 69 6e 67 20 6e nT api( string n
0500: 61 6d 65 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 ame )..{...retur
0510: 6e 20 67 5f 6f 72 69 67 5f 64 6c 6c 2e 67 65 74 n g_orig_dll.get
0520: 5f 61 70 69 21 28 46 6e 54 29 28 20 6e 61 6d 65 _api!(FnT)( name
0530: 20 29 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d );..}.}..//----
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 ------------.//
0580: e7 b5 b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 ................
0590: 82 a4 e3 83 90 41 50 49 ef bc 9a e8 bb a2 e9 80 .....API........
05a0: 81 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..//------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05e0: 2d 2d 2d 2d 0a 0a 65 78 74 65 72 6e 28 57 69 6e ----..extern(Win
05f0: 64 6f 77 73 29 0a 7b 0a 09 69 6e 74 20 42 67 61 dows).{..int Bga
0600: 28 20 48 57 4e 44 20 61 2c 20 69 6d 6d 75 74 61 ( HWND a, immuta
0610: 62 6c 65 20 63 68 61 72 2a 20 62 2c 20 63 68 61 ble char* b, cha
0620: 72 2a 20 63 2c 20 44 57 4f 52 44 20 64 20 29 0a r* c, DWORD d ).
0630: 09 7b 0a 09 09 69 6e 74 20 72 20 3d 20 42 67 61 .{...int r = Bga
0640: 5f 69 6d 70 6c 28 20 61 2c 20 62 2e 66 72 6f 6d _impl( a, b.from
0650: 53 74 72 69 6e 67 7a 28 29 20 29 3b 0a 09 09 69 Stringz() );...i
0660: 66 28 20 72 20 3c 20 30 20 29 20 2f 2f 20 e3 81 f( r < 0 ) // ..
0670: 93 e3 81 ae e3 83 80 e3 83 9f e3 83 bc 44 4c 4c .............DLL
0680: e3 81 a7 e3 81 af e5 87 a6 e7 90 86 e3 81 a7 e3 ................
0690: 81 8d e3 81 aa e3 81 84 e3 82 b3 e3 83 9e e3 83 ................
06a0: b3 e3 83 89 e3 81 a0 e3 81 a3 e3 81 9f e6 99 82 ................
06b0: 0a 09 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 ....return api!(
06c0: 74 79 70 65 6f 66 28 26 42 67 61 29 29 28 22 42 typeof(&Bga))("B
06d0: 67 61 22 29 28 61 2c 62 2c 63 2c 64 29 3b 0a 09 ga")(a,b,c,d);..
06e0: 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 .return r;..}...
06f0: 57 4f 52 44 20 51 42 67 61 47 65 74 56 65 72 73 WORD QBgaGetVers
0700: 69 6f 6e 28 29 0a 09 7b 0a 09 09 72 65 74 75 72 ion()..{...retur
0710: 6e 20 35 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 42 n 5;..}...WORD B
0720: 67 61 47 65 74 56 65 72 73 69 6f 6e 28 29 0a 09 gaGetVersion()..
0730: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0740: 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 56 65 typeof(&BgaGetVe
0750: 72 73 69 6f 6e 29 29 28 22 42 67 61 47 65 74 56 rsion))("BgaGetV
0760: 65 72 73 69 6f 6e 22 29 28 29 3b 0a 09 7d 0a 0a ersion")();..}..
0770: 09 42 4f 4f 4c 20 42 67 61 47 65 74 52 75 6e 6e .BOOL BgaGetRunn
0780: 69 6e 67 28 29 0a 09 7b 0a 09 09 72 65 74 75 72 ing()..{...retur
0790: 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 n api!(typeof(&B
07a0: 67 61 47 65 74 52 75 6e 6e 69 6e 67 29 29 28 22 gaGetRunning))("
07b0: 42 67 61 47 65 74 52 75 6e 6e 69 6e 67 22 29 28 BgaGetRunning")(
07c0: 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 );..}...BOOL Bga
07d0: 43 68 65 63 6b 41 72 63 68 69 76 65 28 20 63 68 CheckArchive( ch
07e0: 61 72 2a 20 61 2c 20 69 6e 74 20 62 20 29 0a 09 ar* a, int b )..
07f0: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0800: 74 79 70 65 6f 66 28 26 42 67 61 43 68 65 63 6b typeof(&BgaCheck
0810: 41 72 63 68 69 76 65 29 29 28 22 42 67 61 43 68 Archive))("BgaCh
0820: 65 63 6b 41 72 63 68 69 76 65 22 29 28 61 2c 62 eckArchive")(a,b
0830: 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 );..}...BOOL Bga
0840: 43 6f 6e 66 69 67 44 69 61 6c 6f 67 28 20 48 57 ConfigDialog( HW
0850: 4e 44 20 61 2c 20 63 68 61 72 2a 20 62 2c 20 69 ND a, char* b, i
0860: 6e 74 20 63 20 29 0a 09 7b 0a 09 09 72 65 74 75 nt c )..{...retu
0870: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0880: 42 67 61 43 6f 6e 66 69 67 44 69 61 6c 6f 67 29 BgaConfigDialog)
0890: 29 28 22 42 67 61 43 6f 6e 66 69 67 44 69 61 6c )("BgaConfigDial
08a0: 6f 67 22 29 28 61 2c 62 2c 63 29 3b 0a 09 7d 0a og")(a,b,c);..}.
08b0: 0a 09 69 6e 74 20 42 67 61 47 65 74 46 69 6c 65 ..int BgaGetFile
08c0: 43 6f 75 6e 74 28 20 63 68 61 72 2a 20 61 20 29 Count( char* a )
08d0: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 ..{...return api
08e0: 21 28 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 !(typeof(&BgaGet
08f0: 46 69 6c 65 43 6f 75 6e 74 29 29 28 22 42 67 61 FileCount))("Bga
0900: 47 65 74 46 69 6c 65 43 6f 75 6e 74 22 29 28 61 GetFileCount")(a
0910: 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 );..}...BOOL Bga
0920: 51 75 65 72 79 46 75 6e 63 74 69 6f 6e 4c 69 73 QueryFunctionLis
0930: 74 28 20 69 6e 74 20 61 20 29 0a 09 7b 0a 09 09 t( int a )..{...
0940: 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 return api!(type
0950: 6f 66 28 26 42 67 61 51 75 65 72 79 46 75 6e 63 of(&BgaQueryFunc
0960: 74 69 6f 6e 4c 69 73 74 29 29 28 22 42 67 61 51 tionList))("BgaQ
0970: 75 65 72 79 46 75 6e 63 74 69 6f 6e 4c 69 73 74 ueryFunctionList
0980: 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 61 6c 69 61 ")(a);..}...alia
0990: 73 20 76 6f 69 64 2a 20 48 41 52 43 3b 0a 09 48 s void* HARC;..H
09a0: 41 52 43 20 42 67 61 4f 70 65 6e 41 72 63 68 69 ARC BgaOpenArchi
09b0: 76 65 28 20 48 57 4e 44 20 61 2c 20 63 68 61 72 ve( HWND a, char
09c0: 2a 20 62 2c 20 44 57 4f 52 44 20 63 20 29 0a 09 * b, DWORD c )..
09d0: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
09e0: 74 79 70 65 6f 66 28 26 42 67 61 4f 70 65 6e 41 typeof(&BgaOpenA
09f0: 72 63 68 69 76 65 29 29 28 22 42 67 61 4f 70 65 rchive))("BgaOpe
0a00: 6e 41 72 63 68 69 76 65 22 29 28 61 2c 62 2c 63 nArchive")(a,b,c
0a10: 29 3b 0a 09 7d 0a 0a 09 69 6e 74 20 42 67 61 43 );..}...int BgaC
0a20: 6c 6f 73 65 41 72 63 68 69 76 65 28 20 48 41 52 loseArchive( HAR
0a30: 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 C a )..{...retur
0a40: 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 n api!(typeof(&B
0a50: 67 61 43 6c 6f 73 65 41 72 63 68 69 76 65 29 29 gaCloseArchive))
0a60: 28 22 42 67 61 43 6c 6f 73 65 41 72 63 68 69 76 ("BgaCloseArchiv
0a70: 65 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 61 6c 69 e")(a);..}...ali
0a80: 61 73 20 76 6f 69 64 2a 20 4c 50 49 4e 44 49 56 as void* LPINDIV
0a90: 49 44 55 41 4c 49 4e 46 4f 3b 0a 09 69 6e 74 20 IDUALINFO;..int
0aa0: 42 67 61 46 69 6e 64 46 69 72 73 74 28 20 48 41 BgaFindFirst( HA
0ab0: 52 43 20 61 2c 20 63 68 61 72 2a 20 62 2c 20 4c RC a, char* b, L
0ac0: 50 49 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f 20 PINDIVIDUALINFO
0ad0: 63 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 c )..{...return
0ae0: 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 api!(typeof(&Bga
0af0: 46 69 6e 64 46 69 72 73 74 29 29 28 22 42 67 61 FindFirst))("Bga
0b00: 46 69 6e 64 46 69 72 73 74 22 29 28 61 2c 62 2c FindFirst")(a,b,
0b10: 63 29 3b 0a 09 7d 0a 0a 09 69 6e 74 20 42 67 61 c);..}...int Bga
0b20: 46 69 6e 64 4e 65 78 74 28 20 48 41 52 43 20 61 FindNext( HARC a
0b30: 2c 20 4c 50 49 4e 44 49 56 49 44 55 41 4c 49 4e , LPINDIVIDUALIN
0b40: 46 4f 20 62 20 29 0a 09 7b 0a 09 09 72 65 74 75 FO b )..{...retu
0b50: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0b60: 42 67 61 46 69 6e 64 4e 65 78 74 29 29 28 22 42 BgaFindNext))("B
0b70: 67 61 46 69 6e 64 4e 65 78 74 22 29 28 61 2c 62 gaFindNext")(a,b
0b80: 29 3b 0a 09 7d 0a 0a 09 44 57 4f 52 44 20 42 67 );..}...DWORD Bg
0b90: 61 47 65 74 41 72 63 4f 72 69 67 69 6e 61 6c 53 aGetArcOriginalS
0ba0: 69 7a 65 28 20 48 41 52 43 20 61 20 29 0a 09 7b ize( HARC a )..{
0bb0: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0bc0: 79 70 65 6f 66 28 26 42 67 61 47 65 74 41 72 63 ypeof(&BgaGetArc
0bd0: 4f 72 69 67 69 6e 61 6c 53 69 7a 65 29 29 28 22 OriginalSize))("
0be0: 42 67 61 47 65 74 41 72 63 4f 72 69 67 69 6e 61 BgaGetArcOrigina
0bf0: 6c 53 69 7a 65 22 29 28 61 29 3b 0a 09 7d 0a 0a lSize")(a);..}..
0c00: 09 44 57 4f 52 44 20 42 67 61 47 65 74 41 72 63 .DWORD BgaGetArc
0c10: 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 28 20 CompressedSize(
0c20: 48 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 HARC a )..{...re
0c30: 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 turn api!(typeof
0c40: 28 26 42 67 61 47 65 74 41 72 63 43 6f 6d 70 72 (&BgaGetArcCompr
0c50: 65 73 73 65 64 53 69 7a 65 29 29 28 22 42 67 61 essedSize))("Bga
0c60: 47 65 74 41 72 63 43 6f 6d 70 72 65 73 73 65 64 GetArcCompressed
0c70: 53 69 7a 65 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 Size")(a);..}...
0c80: 57 4f 52 44 20 42 67 61 47 65 74 41 72 63 52 61 WORD BgaGetArcRa
0c90: 74 69 6f 28 20 48 41 52 43 20 61 20 29 0a 09 7b tio( HARC a )..{
0ca0: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0cb0: 79 70 65 6f 66 28 26 42 67 61 47 65 74 41 72 63 ypeof(&BgaGetArc
0cc0: 52 61 74 69 6f 29 29 28 22 42 67 61 47 65 74 41 Ratio))("BgaGetA
0cd0: 72 63 52 61 74 69 6f 22 29 28 61 29 3b 0a 09 7d rcRatio")(a);..}
0ce0: 0a 0a 09 42 4f 4f 4c 20 42 67 61 53 65 74 4f 77 ...BOOL BgaSetOw
0cf0: 6e 65 72 57 69 6e 64 6f 77 28 20 48 57 4e 44 20 nerWindow( HWND
0d00: 61 20 29 0a 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 a )..{...BOOL r
0d10: 3d 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 = api!(typeof(&B
0d20: 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 gaSetOwnerWindow
0d30: 29 29 28 22 42 67 61 53 65 74 4f 77 6e 65 72 57 ))("BgaSetOwnerW
0d40: 69 6e 64 6f 77 22 29 28 61 29 3b 0a 09 09 69 66 indow")(a);...if
0d50: 28 20 72 20 29 20 42 67 61 53 65 74 4f 77 6e 65 ( r ) BgaSetOwne
0d60: 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 61 29 3b rWindow_impl(a);
0d70: 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a ...return r;..}.
0d80: 0a 09 42 4f 4f 4c 20 42 67 61 43 6c 65 61 72 4f ..BOOL BgaClearO
0d90: 77 6e 65 72 57 69 6e 64 6f 77 28 29 0a 09 7b 0a wnerWindow()..{.
0da0: 09 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 ..BOOL r = api!(
0db0: 74 79 70 65 6f 66 28 26 42 67 61 43 6c 65 61 72 typeof(&BgaClear
0dc0: 4f 77 6e 65 72 57 69 6e 64 6f 77 29 29 28 22 42 OwnerWindow))("B
0dd0: 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 gaClearOwnerWind
0de0: 6f 77 22 29 28 29 3b 0a 09 09 42 67 61 43 6c 65 ow")();...BgaCle
0df0: 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d arOwnerWindow_im
0e00: 70 6c 28 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 pl();...return r
0e10: 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 42 4f 4f ;..}...alias BOO
0e20: 4c 20 66 75 6e 63 74 69 6f 6e 28 48 57 4e 44 2c L function(HWND,
0e30: 55 49 4e 54 2c 55 49 4e 54 2c 45 58 54 52 41 43 UINT,UINT,EXTRAC
0e40: 54 49 4e 47 49 4e 46 4f 45 58 2a 29 20 41 52 43 TINGINFOEX*) ARC
0e50: 48 49 56 45 52 50 52 4f 43 3b 0a 09 42 4f 4f 4c HIVERPROC;..BOOL
0e60: 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 BgaSetOwnerWind
0e70: 6f 77 45 78 28 20 48 57 4e 44 20 61 2c 20 41 52 owEx( HWND a, AR
0e80: 43 48 49 56 45 52 50 52 4f 43 2a 20 62 20 29 0a CHIVERPROC* b ).
0e90: 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 61 70 .{...BOOL r = ap
0ea0: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 53 65 i!(typeof(&BgaSe
0eb0: 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 29 29 tOwnerWindowEx))
0ec0: 28 22 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e ("BgaSetOwnerWin
0ed0: 64 6f 77 45 78 22 29 28 61 2c 62 29 3b 0a 09 09 dowEx")(a,b);...
0ee0: 69 66 28 20 72 20 29 20 42 67 61 53 65 74 4f 77 if( r ) BgaSetOw
0ef0: 6e 65 72 57 69 6e 64 6f 77 45 78 5f 69 6d 70 6c nerWindowEx_impl
0f00: 28 61 2c 62 29 3b 0a 09 09 72 65 74 75 72 6e 20 (a,b);...return
0f10: 72 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 r;..}...BOOL Bga
0f20: 4b 69 6c 6c 4f 77 6e 65 72 57 69 6e 64 6f 77 45 KillOwnerWindowE
0f30: 78 28 20 48 57 4e 44 20 61 20 29 0a 09 7b 0a 09 x( HWND a )..{..
0f40: 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 .BOOL r = api!(t
0f50: 79 70 65 6f 66 28 26 42 67 61 4b 69 6c 6c 4f 77 ypeof(&BgaKillOw
0f60: 6e 65 72 57 69 6e 64 6f 77 45 78 29 29 28 22 42 nerWindowEx))("B
0f70: 67 61 4b 69 6c 6c 4f 77 6e 65 72 57 69 6e 64 6f gaKillOwnerWindo
0f80: 77 45 78 22 29 28 61 29 3b 0a 09 09 42 67 61 43 wEx")(a);...BgaC
0f90: 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 5f learOwnerWindow_
0fa0: 69 6d 70 6c 28 29 3b 0a 09 09 72 65 74 75 72 6e impl();...return
0fb0: 20 72 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 r;..}...alias v
0fc0: 6f 69 64 2a 20 55 4e 4c 48 41 5f 57 4e 44 5f 45 oid* UNLHA_WND_E
0fd0: 4e 55 4d 4d 45 4d 42 50 52 4f 43 3b 0a 09 42 4f NUMMEMBPROC;..BO
0fe0: 4f 4c 20 42 67 61 53 65 74 45 6e 75 6d 4d 65 6d OL BgaSetEnumMem
0ff0: 62 65 72 73 50 72 6f 63 28 20 55 4e 4c 48 41 5f bersProc( UNLHA_
1000: 57 4e 44 5f 45 4e 55 4d 4d 45 4d 42 50 52 4f 43 WND_ENUMMEMBPROC
1010: 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e a )..{...return
1020: 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 api!(typeof(&Bg
1030: 61 53 65 74 45 6e 75 6d 4d 65 6d 62 65 72 73 50 aSetEnumMembersP
1040: 72 6f 63 29 29 28 22 42 67 61 53 65 74 45 6e 75 roc))("BgaSetEnu
1050: 6d 4d 65 6d 62 65 72 73 50 72 6f 63 22 29 28 61 mMembersProc")(a
1060: 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 );..}...BOOL Bga
1070: 43 6c 65 61 72 45 6e 75 6d 4d 65 6d 62 65 72 73 ClearEnumMembers
1080: 50 72 6f 63 28 29 0a 09 7b 0a 09 09 72 65 74 75 Proc()..{...retu
1090: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
10a0: 42 67 61 43 6c 65 61 72 45 6e 75 6d 4d 65 6d 62 BgaClearEnumMemb
10b0: 65 72 73 50 72 6f 63 29 29 28 22 42 67 61 43 6c ersProc))("BgaCl
10c0: 65 61 72 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 earEnumMembersPr
10d0: 6f 63 22 29 28 29 3b 0a 09 7d 0a 7d 0a 0a 2f 2f oc")();..}.}..//
10e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1120: 0a 2f 2f 20 e7 b5 b1 e5 90 88 e3 82 a2 e3 83 bc .// ............
1130: e3 82 ab e3 82 a4 e3 83 90 41 50 49 ef bc 9a e5 .........API....
1140: ae 9f e8 a3 85 28 20 42 67 61 20 29 0a 2f 2f 2d .....( Bga ).//-
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1190: 0a 69 6e 74 20 42 67 61 5f 69 6d 70 6c 28 20 48 .int Bga_impl( H
11a0: 57 4e 44 20 77 6e 64 2c 20 73 74 72 69 6e 67 20 WND wnd, string
11b0: 63 6d 64 5f 73 74 72 20 29 0a 7b 0a 09 65 6e 75 cmd_str ).{..enu
11c0: 6d 20 7b 20 55 4e 53 55 50 50 4f 52 54 45 44 20 m { UNSUPPORTED
11d0: 3d 20 2d 31 20 7d 0a 0a 09 2f 2f 0a 09 2f 2f 20 = -1 }...//..//
11e0: e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 ................
11f0: 82 a4 e3 83 b3 e8 a7 a3 e6 9e 90 0a 09 2f 2f 0a .............//.
1200: 09 73 74 72 69 6e 67 5b 5d 20 63 6d 64 20 3d 20 .string[] cmd =
1210: 63 6d 64 5f 70 61 72 73 65 28 63 6d 64 5f 73 74 cmd_parse(cmd_st
1220: 72 29 3b 0a 0a 09 2f 2f 20 78 e4 bb a5 e5 a4 96 r);...// x......
1230: e3 81 ae e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 ................
1240: 81 af e6 89 b1 e3 82 8f e3 81 aa e3 81 84 e3 81 ................
1250: a7 e6 9c ac e7 89 a9 44 4c 4c e3 81 ab e5 9b 9e .......DLL......
1260: e3 81 97 e3 81 be e3 81 99 e3 80 82 e6 b3 a8 e6 ................
1270: 84 8f e7 82 b9 e3 81 a8 e3 81 97 e3 81 a6 ef bc ................
1280: 9a 0a 09 2f 2f 20 20 3e 20 63 6f 6d 6d 61 6e 64 ...// > command
1290: 20 e3 81 af e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 ...............
12a0: e3 83 a9 e3 82 a4 e3 83 b3 e3 81 ae e6 9c 80 e5 ................
12b0: 88 9d e3 81 ae e5 bc 95 e6 95 b0 e3 81 a8 e3 81 ................
12c0: 97 e3 81 a6 e3 81 8f e3 81 a0 e3 81 95 e3 81 84 ................
12d0: e3 80 82 e3 81 aa e3 81 8a e3 80 81 63 6f 6d 6d ............comm
12e0: 61 6e 64 20 e3 82 92 e7 9c 81 e7 95 a5 0a 09 2f and .........../
12f0: 2f 20 20 3e 20 e3 81 97 e3 81 9f e5 a0 b4 e5 90 / > ...........
1300: 88 e3 81 af 20 27 78 27 20 63 6f 6d 6d 61 6e 64 .... 'x' command
1310: 20 e3 81 8c e6 8c 87 e5 ae 9a e3 81 95 e3 82 8c ...............
1320: e3 81 9f e3 82 82 e3 81 ae e3 81 a8 e3 81 bf e3 ................
1330: 81 aa e3 81 97 e3 81 be e3 81 99 e3 80 82 0a 09 ................
1340: 69 66 28 20 63 6d 64 2e 6c 65 6e 67 74 68 20 3d if( cmd.length =
1350: 3d 20 30 20 29 0a 09 09 72 65 74 75 72 6e 20 55 = 0 )...return U
1360: 4e 53 55 50 50 4f 52 54 45 44 3b 0a 09 69 66 28 NSUPPORTED;..if(
1370: 20 63 6d 64 5b 30 5d 2e 6c 65 6e 67 74 68 20 3d cmd[0].length =
1380: 3d 20 31 20 29 0a 09 7b 0a 09 09 69 66 28 20 30 = 1 )..{...if( 0
1390: 20 3c 3d 20 22 61 64 6a 6c 6d 6e 73 74 76 41 44 <= "adjlmnstvAD
13a0: 4a 4c 4d 4e 53 54 56 22 2e 69 6e 64 65 78 4f 66 JLMNSTV".indexOf
13b0: 28 63 6d 64 5b 30 5d 5b 30 5d 29 20 29 0a 09 09 (cmd[0][0]) )...
13c0: 09 72 65 74 75 72 6e 20 55 4e 53 55 50 50 4f 52 .return UNSUPPOR
13d0: 54 45 44 3b 0a 09 09 69 66 28 20 63 6d 64 5b 30 TED;...if( cmd[0
13e0: 5d 5b 30 5d 3d 3d 27 78 27 20 7c 7c 20 63 6d 64 ][0]=='x' || cmd
13f0: 5b 30 5d 5b 30 5d 3d 3d 27 58 27 20 29 0a 09 09 [0][0]=='X' )...
1400: 09 63 6d 64 20 3d 20 63 6d 64 5b 31 20 2e 2e 20 .cmd = cmd[1 ..
1410: 24 5d 3b 0a 09 7d 0a 0a 09 2f 2f 20 e2 80 bb 20 $];..}...// ...
1420: e3 81 93 e3 81 ae e6 99 82 e7 82 b9 e3 81 a7 e3 ................
1430: 80 81 63 6d 64 e3 81 ab e3 81 af 63 6f 6d 6d 61 ..cmd......comma
1440: 6e 64 e3 82 92 e9 99 a4 e3 81 84 e3 81 9f e6 ae nd..............
1450: 8b e3 82 8a e3 81 ae e5 bc 95 e6 95 b0 e3 81 8c ................
1460: e5 85 a5 e3 81 a3 e3 81 a6 e3 81 84 e3 82 8b e3 ................
1470: 81 af e3 81 9a 0a 0a 09 2f 2f 0a 09 2f 2f 20 e3 ........//..// .
1480: 82 b9 e3 82 a4 e3 83 83 e3 83 81 e8 a7 a3 e6 9e ................
1490: 90 e3 80 81 e5 bc 95 e6 95 b0 e8 a7 a3 e6 9e 90 ................
14a0: 0a 09 2f 2f 0a 09 62 6f 6f 6c 20 61 6c 6c 5f 61 ..//..bool all_a
14b0: 74 74 72 73 20 20 20 20 20 20 20 3d 20 66 61 6c ttrs = fal
14c0: 73 65 3b 20 2f 2f 20 2d 61 0a 09 62 6f 6f 6c 20 se; // -a..bool
14d0: 73 69 6c 65 6e 74 20 20 20 20 20 20 20 20 20 20 silent
14e0: 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 69 0a 09 = false; // -i..
14f0: 62 6f 6f 6c 20 69 67 6e 6f 72 65 5f 64 69 72 20 bool ignore_dir
1500: 20 20 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f = false; //
1510: 20 2d 6a 0a 09 62 6f 6f 6c 20 6e 65 77 66 69 6c -j..bool newfil
1520: 65 5f 6f 6e 6c 79 20 20 20 20 3d 20 66 61 6c 73 e_only = fals
1530: 65 3b 20 2f 2f 20 2d 6e 0a 09 62 6f 6f 6c 20 66 e; // -n..bool f
1540: 6f 72 63 65 5f 6f 76 65 72 77 72 69 74 65 20 3d orce_overwrite =
1550: 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 6f 0a 09 62 false; // -o..b
1560: 6f 6f 6c 20 72 65 63 75 72 73 69 76 65 20 20 20 ool recursive
1570: 20 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 = false; //
1580: 2d 72 0a 09 62 6f 6f 6c 20 73 61 6e 69 74 69 7a -r..bool sanitiz
1590: 65 5f 70 61 74 68 20 20 20 3d 20 74 72 75 65 3b e_path = true;
15a0: 0a 0a 09 73 74 72 69 6e 67 20 61 72 63 5f 6e 61 ...string arc_na
15b0: 6d 65 20 3d 20 6e 75 6c 6c 3b 0a 09 73 74 72 69 me = null;..stri
15c0: 6e 67 20 62 61 73 65 5f 64 69 72 20 3d 20 6e 75 ng base_dir = nu
15d0: 6c 6c 3b 0a 09 73 74 72 69 6e 67 5b 5d 20 70 61 ll;..string[] pa
15e0: 74 68 73 3b 0a 0a 09 66 6f 72 65 61 63 68 28 20 ths;...foreach(
15f0: 73 74 72 69 6e 67 20 70 61 72 61 6d 20 3b 20 63 string param ; c
1600: 6d 64 20 29 0a 09 09 69 66 28 20 70 61 72 61 6d md )...if( param
1610: 5b 30 5d 20 3d 3d 20 27 2d 27 20 29 0a 09 09 09 [0] == '-' )....
1620: 73 77 69 74 63 68 28 20 70 61 72 61 6d 5b 31 5d switch( param[1]
1630: 20 29 0a 09 09 09 7b 0a 09 09 09 63 61 73 65 20 )....{....case
1640: 27 61 27 2c 27 41 27 3a 20 61 6c 6c 5f 61 74 74 'a','A': all_att
1650: 72 73 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b rs = true;
1660: 20 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 break;....case
1670: 27 69 27 2c 27 49 27 3a 20 73 69 6c 65 6e 74 20 'i','I': silent
1680: 20 20 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b = true;
1690: 20 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 break;....case
16a0: 27 6a 27 2c 27 4a 27 3a 20 69 67 6e 6f 72 65 5f 'j','J': ignore_
16b0: 64 69 72 20 20 20 20 20 20 3d 20 74 72 75 65 3b dir = true;
16c0: 20 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 break;....case
16d0: 27 6e 27 2c 27 4e 27 3a 20 6e 65 77 66 69 6c 65 'n','N': newfile
16e0: 5f 6f 6e 6c 79 20 20 20 20 3d 20 74 72 75 65 3b _only = true;
16f0: 20 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 break;....case
1700: 27 6f 27 2c 27 4f 27 3a 20 66 6f 72 63 65 5f 6f 'o','O': force_o
1710: 76 65 72 77 72 69 74 65 20 3d 20 74 72 75 65 3b verwrite = true;
1720: 20 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 break;....case
1730: 27 72 27 2c 27 52 27 3a 20 72 65 63 75 72 73 69 'r','R': recursi
1740: 76 65 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b ve = true;
1750: 20 62 72 65 61 6b 3b 0a 09 09 09 64 65 66 61 75 break;....defau
1760: 6c 74 3a 20 20 62 72 65 61 6b 3b 0a 09 09 09 7d lt: break;....}
1770: 0a 09 09 65 6c 73 65 20 69 66 28 20 61 72 63 5f ...else if( arc_
1780: 6e 61 6d 65 20 69 73 20 6e 75 6c 6c 20 29 0a 09 name is null )..
1790: 09 7b 0a 09 09 09 61 72 63 5f 6e 61 6d 65 20 3d .{....arc_name =
17a0: 20 70 61 72 61 6d 3b 0a 09 09 7d 0a 09 09 65 6c param;...}...el
17b0: 73 65 20 69 66 28 20 62 61 73 65 5f 64 69 72 20 se if( base_dir
17c0: 69 73 20 6e 75 6c 6c 20 29 0a 09 09 7b 0a 09 09 is null )...{...
17d0: 09 69 66 28 20 6c 61 73 74 43 68 61 72 28 70 61 .if( lastChar(pa
17e0: 72 61 6d 29 20 3d 3d 20 27 5c 5c 27 20 29 0a 09 ram) == '\\' )..
17f0: 09 09 09 62 61 73 65 5f 64 69 72 20 3d 20 70 61 ...base_dir = pa
1800: 72 61 6d 3b 0a 09 09 09 65 6c 73 65 20 7b 0a 09 ram;....else {..
1810: 09 09 09 63 68 61 72 5b 5d 20 62 75 66 3b 0a 09 ...char[] buf;..
1820: 09 09 09 62 75 66 2e 6c 65 6e 67 74 68 20 3d 20 ...buf.length =
1830: 47 65 74 43 75 72 72 65 6e 74 44 69 72 65 63 74 GetCurrentDirect
1840: 6f 72 79 41 28 30 2c 6e 75 6c 6c 29 2b 31 3b 0a oryA(0,null)+1;.
1850: 09 09 09 09 47 65 74 43 75 72 72 65 6e 74 44 69 ....GetCurrentDi
1860: 72 65 63 74 6f 72 79 41 28 62 75 66 2e 6c 65 6e rectoryA(buf.len
1870: 67 74 68 2c 20 62 75 66 2e 70 74 72 29 3b 0a 09 gth, buf.ptr);..
1880: 09 09 09 62 61 73 65 5f 64 69 72 20 3d 20 62 75 ...base_dir = bu
1890: 66 2e 70 74 72 2e 66 72 6f 6d 53 74 72 69 6e 67 f.ptr.fromString
18a0: 7a 28 29 2e 69 64 75 70 3b 0a 09 09 09 09 69 66 z().idup;.....if
18b0: 28 20 6c 61 73 74 43 68 61 72 28 62 61 73 65 5f ( lastChar(base_
18c0: 64 69 72 29 20 21 3d 20 27 5c 5c 27 20 29 0a 09 dir) != '\\' )..
18d0: 09 09 09 09 62 61 73 65 5f 64 69 72 20 7e 3d 20 ....base_dir ~=
18e0: 27 5c 5c 27 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 '\\';....}...}..
18f0: 09 65 6c 73 65 0a 09 09 09 70 61 74 68 73 20 7e .else....paths ~
1900: 3d 20 70 61 72 61 6d 3b 0a 0a 09 2f 2f 0a 09 2f = param;...//../
1910: 2f 20 e5 b1 95 e9 96 8b e5 87 a6 e7 90 86 e3 81 / ..............
1920: ab 47 6f 21 0a 09 2f 2f 0a 09 50 72 6f 67 72 65 .Go!..//..Progre
1930: 73 73 44 6c 67 20 64 6c 67 20 3d 20 6e 75 6c 6c ssDlg dlg = null
1940: 3b 0a 09 69 66 28 20 21 64 6f 5f 6f 77 6e 65 72 ;..if( !do_owner
1950: 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 41 52 43 wnd_proc( OP_ARC
1960: 5f 42 45 47 49 4e 2c 20 6e 75 6c 6c 2c 20 30 2c _BEGIN, null, 0,
1970: 20 61 72 63 5f 6e 61 6d 65 20 29 20 29 0a 09 09 arc_name ) )...
1980: 72 65 74 75 72 6e 20 30 78 38 30 32 30 3b 0a 0a return 0x8020;..
1990: 09 74 72 79 0a 09 7b 0a 09 09 69 66 28 20 21 73 .try..{...if( !s
19a0: 69 6c 65 6e 74 20 26 26 20 67 5f 68 61 6e 64 6c ilent && g_handl
19b0: 65 72 20 69 73 20 6e 75 6c 6c 20 29 20 2f 2f 20 er is null ) //
19c0: 2d 69 20 2f 20 4f 77 6e 65 72 57 6e 64 50 72 6f -i / OwnerWndPro
19d0: 63 0a 09 09 7b 0a 09 09 09 64 6c 67 20 3d 20 6e c...{....dlg = n
19e0: 65 77 20 50 72 6f 67 72 65 73 73 44 6c 67 28 0a ew ProgressDlg(.
19f0: 09 09 09 09 63 61 73 74 28 44 4c 47 54 45 4d 50 ....cast(DLGTEMP
1a00: 4c 41 54 45 2a 29 20 67 5f 6f 72 69 67 5f 64 6c LATE*) g_orig_dl
1a10: 6c 2e 6c 6f 61 64 5f 64 69 61 6c 6f 67 28 22 23 l.load_dialog("#
1a20: 32 30 32 35 22 29 2c 20 77 6e 64 20 29 3b 0a 09 2025"), wnd );..
1a30: 09 09 64 6c 67 2e 73 65 74 5f 61 72 63 6e 61 6d ..dlg.set_arcnam
1a40: 65 28 61 72 63 5f 6e 61 6d 65 29 3b 0a 09 09 7d e(arc_name);...}
1a50: 0a 0a 09 09 73 74 72 69 6e 67 20 20 20 20 73 72 ....string sr
1a60: 63 5f 66 6e 61 6d 65 3b 20 2f 2f 20 4f 77 6e 65 c_fname; // Owne
1a70: 72 57 6e 64 50 72 6f 63 e9 96 a2 e4 bf 82 0a 09 rWndProc........
1a80: 09 42 67 61 48 65 61 64 65 72 20 63 75 72 5f 68 .BgaHeader cur_h
1a90: 64 72 3b 20 20 20 2f 2f 20 4f 77 6e 65 72 57 6e dr; // OwnerWn
1aa0: 64 50 72 6f 63 e9 96 a2 e4 bf 82 0a 0a 09 09 42 dProc..........B
1ab0: 67 61 41 6e 73 77 65 72 20 68 61 6e 64 6c 65 72 gaAnswer handler
1ac0: 28 20 72 65 66 20 42 67 61 48 65 61 64 65 72 20 ( ref BgaHeader
1ad0: 68 64 72 20 29 0a 09 09 7b 0a 09 09 09 73 72 63 hdr )...{....src
1ae0: 5f 66 6e 61 6d 65 20 3d 20 68 64 72 2e 66 6e 61 _fname = hdr.fna
1af0: 6d 65 3b 0a 09 09 09 70 72 6f 63 65 73 73 5f 6d me;....process_m
1b00: 65 73 73 61 67 65 73 28 29 3b 0a 0a 09 09 09 2f essages();...../
1b10: 2f 20 70 61 74 68 73 0a 09 09 09 69 66 28 20 70 / paths....if( p
1b20: 61 74 68 73 2e 6c 65 6e 67 74 68 20 3e 20 30 20 aths.length > 0
1b30: 29 0a 09 09 09 7b 0a 09 09 09 09 73 74 72 69 6e )....{.....strin
1b40: 67 20 66 6e 61 6d 65 20 3d 20 2f 2f 20 2d 72 0a g fname = // -r.
1b50: 09 09 09 09 09 28 72 65 63 75 72 73 69 76 65 20 .....(recursive
1b60: 3f 20 68 64 72 2e 66 6e 61 6d 65 5b 68 64 72 2e ? hdr.fname[hdr.
1b70: 64 69 72 5f 6e 61 6d 65 5f 6c 65 6e 2e 2e 24 5d dir_name_len..$]
1b80: 20 3a 20 68 64 72 2e 66 6e 61 6d 65 29 3b 0a 09 : hdr.fname);..
1b90: 09 09 09 66 6f 72 65 61 63 68 28 20 73 74 72 69 ...foreach( stri
1ba0: 6e 67 20 77 20 3b 20 70 61 74 68 73 20 29 0a 09 ng w ; paths )..
1bb0: 09 09 09 09 69 66 28 20 77 69 6c 64 5f 6d 61 74 ....if( wild_mat
1bc0: 63 68 28 20 77 2c 20 66 6e 61 6d 65 20 29 20 29 ch( w, fname ) )
1bd0: 0a 09 09 09 09 09 09 67 6f 74 6f 20 6f 6b 3b 0a .......goto ok;.
1be0: 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e ....return BgaAn
1bf0: 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a 09 09 09 swer.SkipIt;....
1c00: 6f 6b 3a 3b 0a 09 09 09 7d 0a 09 09 09 2f 2f 20 ok:;....}....//
1c10: 2d 61 0a 09 09 09 69 66 28 20 21 61 6c 6c 5f 61 -a....if( !all_a
1c20: 74 74 72 73 20 26 26 20 28 68 64 72 2e 61 74 74 ttrs && (hdr.att
1c30: 72 69 62 26 36 29 20 29 0a 09 09 09 09 72 65 74 rib&6) ).....ret
1c40: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 6b urn BgaAnswer.Sk
1c50: 69 70 49 74 3b 0a 09 09 09 2f 2f 20 64 69 61 6c ipIt;....// dial
1c60: 6f 67 0a 09 09 09 69 66 28 20 64 6c 67 20 29 0a og....if( dlg ).
1c70: 09 09 09 09 69 66 28 20 64 6c 67 2e 63 6c 6f 73 ....if( dlg.clos
1c80: 65 64 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e ed )......return
1c90: 20 42 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 BgaAnswer.Abort
1ca0: 3b 0a 09 09 09 09 65 6c 73 65 0a 09 09 09 09 09 ;.....else......
1cb0: 64 6c 67 2e 73 65 74 5f 66 69 6c 65 6e 61 6d 65 dlg.set_filename
1cc0: 28 20 68 64 72 2e 66 6e 61 6d 65 5b 68 64 72 2e ( hdr.fname[hdr.
1cd0: 64 69 72 5f 6e 61 6d 65 5f 6c 65 6e 2e 2e 24 5d dir_name_len..$]
1ce0: 20 29 3b 0a 09 09 09 2f 2f 20 2d 6a 0a 09 09 09 );....// -j....
1cf0: 69 66 28 20 69 67 6e 6f 72 65 5f 64 69 72 20 29 if( ignore_dir )
1d00: 0a 09 09 09 09 68 64 72 2e 66 6e 61 6d 65 20 3d .....hdr.fname =
1d10: 20 68 64 72 2e 66 6e 61 6d 65 5b 68 64 72 2e 64 hdr.fname[hdr.d
1d20: 69 72 5f 6e 61 6d 65 5f 6c 65 6e 20 2e 2e 20 24 ir_name_len .. $
1d30: 5d 3b 0a 09 09 09 2f 2f 20 73 61 6e 69 74 69 7a ];....// sanitiz
1d40: 65 0a 09 09 09 69 66 28 20 73 61 6e 69 74 69 7a e....if( sanitiz
1d50: 65 5f 70 61 74 68 20 29 0a 09 09 09 09 68 64 72 e_path ).....hdr
1d60: 2e 66 6e 61 6d 65 20 3d 20 63 68 65 63 6b 5f 70 .fname = check_p
1d70: 61 74 68 28 68 64 72 2e 66 6e 61 6d 65 29 3b 0a ath(hdr.fname);.
1d80: 09 09 09 2f 2f 20 62 61 73 65 5f 64 69 72 0a 09 ...// base_dir..
1d90: 09 09 68 64 72 2e 66 6e 61 6d 65 20 3d 20 28 62 ..hdr.fname = (b
1da0: 61 73 65 5f 64 69 72 20 7e 20 68 64 72 2e 66 6e ase_dir ~ hdr.fn
1db0: 61 6d 65 29 2e 64 75 70 3b 0a 09 09 09 2f 2f 20 ame).dup;....//
1dc0: 2d 6f 0a 09 09 09 69 66 28 20 21 66 6f 72 63 65 -o....if( !force
1dd0: 5f 6f 76 65 72 77 72 69 74 65 20 29 0a 09 09 09 _overwrite )....
1de0: 09 74 72 79 20 7b 0a 09 09 09 09 69 66 28 20 73 .try {.....if( s
1df0: 74 64 2e 66 69 6c 65 2e 65 78 69 73 74 73 28 68 td.file.exists(h
1e00: 64 72 2e 66 6e 61 6d 65 29 20 26 26 20 73 74 64 dr.fname) && std
1e10: 2e 66 69 6c 65 2e 69 73 46 69 6c 65 28 68 64 72 .file.isFile(hdr
1e20: 2e 66 6e 61 6d 65 29 20 29 0a 09 09 09 09 09 2f .fname) )....../
1e30: 2f 20 2d 6e 0a 09 09 09 09 09 69 66 28 20 6e 65 / -n......if( ne
1e40: 77 66 69 6c 65 5f 6f 6e 6c 79 20 29 0a 09 09 09 wfile_only )....
1e50: 09 09 7b 0a 09 09 09 09 09 09 69 66 28 20 6e 65 ..{.......if( ne
1e60: 77 65 72 5f 74 68 61 6e 28 68 64 72 2e 64 61 74 wer_than(hdr.dat
1e70: 65 2c 68 64 72 2e 74 69 6d 65 2c 68 64 72 2e 66 e,hdr.time,hdr.f
1e80: 6e 61 6d 65 29 20 29 0a 09 09 09 09 09 09 09 72 name) )........r
1e90: 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e eturn BgaAnswer.
1ea0: 53 6b 69 70 49 74 3b 0a 09 09 09 09 09 7d 0a 09 SkipIt;......}..
1eb0: 09 09 09 09 65 6c 73 65 0a 09 09 09 09 09 7b 0a ....else......{.
1ec0: 09 09 09 09 09 09 69 6e 74 20 72 20 3d 20 4d 65 ......int r = Me
1ed0: 73 73 61 67 65 42 6f 78 41 28 20 64 6c 67 3f 64 ssageBoxA( dlg?d
1ee0: 6c 67 2e 68 77 6e 64 3a 77 6e 64 2c 0a 09 09 09 lg.hwnd:wnd,....
1ef0: 09 09 09 09 74 6f 53 74 72 69 6e 67 7a 28 22 4f ....toStringz("O
1f00: 76 65 72 77 72 69 74 65 20 22 7e 68 64 72 2e 66 verwrite "~hdr.f
1f10: 6e 61 6d 65 7e 22 20 3f 22 29 2c 0a 09 09 09 09 name~" ?"),.....
1f20: 09 09 09 22 51 42 67 61 33 32 2e 64 6c 6c 22 2c ..."QBga32.dll",
1f30: 20 4d 42 5f 59 45 53 4e 4f 43 41 4e 43 45 4c 20 MB_YESNOCANCEL
1f40: 29 3b 0a 09 09 09 09 09 09 69 66 28 20 72 20 3d );.......if( r =
1f50: 3d 20 49 44 4e 4f 20 29 20 20 20 20 20 72 65 74 = IDNO ) ret
1f60: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 6b urn BgaAnswer.Sk
1f70: 69 70 49 74 3b 0a 09 09 09 09 09 09 69 66 28 20 ipIt;.......if(
1f80: 72 20 3d 3d 20 49 44 43 41 4e 43 45 4c 20 29 20 r == IDCANCEL )
1f90: 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 return BgaAnswer
1fa0: 2e 41 62 6f 72 74 3b 0a 09 09 09 09 09 7d 0a 09 .Abort;......}..
1fb0: 09 09 09 7d 20 63 61 74 63 68 20 7b 7d 0a 0a 09 ...} catch {}...
1fc0: 09 09 63 75 72 5f 68 64 72 20 3d 20 68 64 72 3b ..cur_hdr = hdr;
1fd0: 0a 09 09 09 69 66 28 20 21 64 6f 5f 6f 77 6e 65 ....if( !do_owne
1fe0: 72 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 46 49 rwnd_proc( OP_FI
1ff0: 4c 45 5f 42 45 47 49 4e 2c 20 26 63 75 72 5f 68 LE_BEGIN, &cur_h
2000: 64 72 2c 20 30 2c 20 73 72 63 5f 66 6e 61 6d 65 dr, 0, src_fname
2010: 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e 20 ) ).....return
2020: 42 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b BgaAnswer.Abort;
2030: 0a 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e ....return BgaAn
2040: 73 77 65 72 2e 4d 65 6c 74 49 74 3b 0a 09 09 7d swer.MeltIt;...}
2050: 0a 0a 09 09 42 67 61 41 6e 73 77 65 72 20 70 72 ....BgaAnswer pr
2060: 6f 67 72 65 73 73 5f 68 61 6e 64 6c 65 72 28 20 ogress_handler(
2070: 69 6e 74 20 63 75 72 2c 20 69 6e 74 20 6d 61 78 int cur, int max
2080: 20 29 0a 09 09 7b 0a 09 09 09 70 72 6f 63 65 73 )...{....proces
2090: 73 5f 6d 65 73 73 61 67 65 73 28 29 3b 0a 09 09 s_messages();...
20a0: 09 69 66 28 20 64 6c 67 20 29 0a 09 09 09 09 69 .if( dlg ).....i
20b0: 66 28 20 64 6c 67 2e 63 6c 6f 73 65 64 20 29 0a f( dlg.closed ).
20c0: 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 .....return BgaA
20d0: 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 nswer.Abort;....
20e0: 09 65 6c 73 65 0a 09 09 09 09 09 64 6c 67 2e 73 .else......dlg.s
20f0: 65 74 5f 70 6f 73 28 20 63 61 73 74 28 72 65 61 et_pos( cast(rea
2100: 6c 29 28 63 75 72 29 2f 6d 61 78 20 29 3b 0a 09 l)(cur)/max );..
2110: 09 09 69 66 28 20 21 64 6f 5f 6f 77 6e 65 72 77 ..if( !do_ownerw
2120: 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 46 49 4c 45 nd_proc( OP_FILE
2130: 5f 4d 49 44 44 4c 45 2c 20 26 63 75 72 5f 68 64 _MIDDLE, &cur_hd
2140: 72 2c 20 63 75 72 2c 20 73 72 63 5f 66 6e 61 6d r, cur, src_fnam
2150: 65 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e e ) ).....return
2160: 20 42 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 BgaAnswer.Abort
2170: 3b 0a 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 ;....return BgaA
2180: 6e 73 77 65 72 2e 4d 65 6c 74 49 74 3b 0a 09 09 nswer.MeltIt;...
2190: 7d 0a 0a 09 09 28 6e 65 77 20 42 67 61 4d 65 6c }....(new BgaMel
21a0: 74 65 72 28 61 72 63 5f 6e 61 6d 65 29 29 2e 73 ter(arc_name)).s
21b0: 74 61 72 74 28 26 68 61 6e 64 6c 65 72 2c 26 70 tart(&handler,&p
21c0: 72 6f 67 72 65 73 73 5f 68 61 6e 64 6c 65 72 29 rogress_handler)
21d0: 3b 0a 09 7d 0a 09 63 61 74 63 68 28 20 42 67 61 ;..}..catch( Bga
21e0: 4d 65 6c 74 65 72 45 72 72 6f 72 20 65 20 29 0a MelterError e ).
21f0: 09 7b 0a 09 09 72 65 74 75 72 6e 20 65 2e 65 72 .{...return e.er
2200: 72 63 6f 64 65 3b 0a 09 7d 0a 09 66 69 6e 61 6c rcode;..}..final
2210: 6c 79 0a 09 7b 0a 09 09 64 6f 5f 6f 77 6e 65 72 ly..{...do_owner
2220: 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 41 52 43 wnd_proc( OP_ARC
2230: 5f 45 4e 44 2c 20 6e 75 6c 6c 2c 20 30 2c 20 61 _END, null, 0, a
2240: 72 63 5f 6e 61 6d 65 20 29 3b 0a 09 09 69 66 28 rc_name );...if(
2250: 20 64 6c 67 20 29 0a 09 09 09 64 6c 67 2e 63 6c dlg )....dlg.cl
2260: 6f 73 65 28 29 3b 0a 09 7d 0a 09 72 65 74 75 72 ose();..}..retur
2270: 6e 20 30 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d n 0;.}..//------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b5 ----------.// ..
22c0: b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 a4 ................
22d0: e3 83 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 85 28 ...API.........(
22e0: 20 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 20 SetOwnerWindow
22f0: 29 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ).//------------
2300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 0a 0a 61 6c 69 67 6e 28 31 29 20 73 ----..align(1) s
2340: 74 72 75 63 74 20 45 58 54 52 41 43 54 49 4e 47 truct EXTRACTING
2350: 49 4e 46 4f 0a 7b 0a 09 44 57 4f 52 44 20 20 20 INFO.{..DWORD
2360: 64 77 46 69 6c 65 53 69 7a 65 3b 0a 09 44 57 4f dwFileSize;..DWO
2370: 52 44 20 20 20 64 77 57 72 69 74 65 53 69 7a 65 RD dwWriteSize
2380: 3b 0a 09 63 68 61 72 20 20 20 20 73 7a 53 6f 75 ;..char szSou
2390: 72 63 65 46 69 6c 65 4e 61 6d 65 5b 35 31 32 20 rceFileName[512
23a0: 2b 20 31 5d 3b 0a 09 63 68 61 72 20 20 20 20 64 + 1];..char d
23b0: 75 6d 6d 79 31 5b 33 5d 3b 0a 09 63 68 61 72 20 ummy1[3];..char
23c0: 20 20 20 73 7a 44 65 73 74 46 69 6c 65 4e 61 6d szDestFileNam
23d0: 65 5b 35 31 32 20 2b 20 31 5d 3b 0a 09 63 68 61 e[512 + 1];..cha
23e0: 72 20 20 20 20 64 75 6d 6d 79 5b 33 5d 3b 0a 7d r dummy[3];.}
23f0: 0a 61 6c 69 67 6e 28 31 29 20 73 74 72 75 63 74 .align(1) struct
2400: 20 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f 45 EXTRACTINGINFOE
2410: 58 0a 7b 0a 09 45 58 54 52 41 43 54 49 4e 47 49 X.{..EXTRACTINGI
2420: 4e 46 4f 20 65 78 69 6e 66 6f 3b 0a 09 44 57 4f NFO exinfo;..DWO
2430: 52 44 20 64 77 43 6f 6d 70 72 65 73 73 65 64 53 RD dwCompressedS
2440: 69 7a 65 3b 0a 09 44 57 4f 52 44 20 64 77 43 52 ize;..DWORD dwCR
2450: 43 3b 0a 09 55 49 4e 54 20 20 75 4f 53 54 79 70 C;..UINT uOSTyp
2460: 65 3b 0a 09 57 4f 52 44 20 20 77 52 61 74 69 6f e;..WORD wRatio
2470: 3b 0a 09 57 4f 52 44 20 20 77 44 61 74 65 3b 0a ;..WORD wDate;.
2480: 09 57 4f 52 44 20 20 77 54 69 6d 65 3b 0a 09 63 .WORD wTime;..c
2490: 68 61 72 20 20 73 7a 41 74 74 72 69 62 75 74 65 har szAttribute
24a0: 5b 38 5d 3b 0a 09 63 68 61 72 20 20 73 7a 4d 6f [8];..char szMo
24b0: 64 65 5b 38 5d 3b 0a 7d 0a 0a 48 57 4e 44 20 67 de[8];.}..HWND g
24c0: 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 3b 0a 65 _owner_window;.e
24d0: 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 29 20 42 xtern(Windows) B
24e0: 4f 4f 4c 20 66 75 6e 63 74 69 6f 6e 28 48 57 4e OOL function(HWN
24f0: 44 2c 55 49 4e 54 2c 55 49 4e 54 2c 45 58 54 52 D,UINT,UINT,EXTR
2500: 41 43 54 49 4e 47 49 4e 46 4f 45 58 2a 29 20 67 ACTINGINFOEX*) g
2510: 5f 68 61 6e 64 6c 65 72 3b 0a 65 78 74 65 72 6e _handler;.extern
2520: 28 57 69 6e 64 6f 77 73 29 20 42 4f 4f 4c 20 6e (Windows) BOOL n
2530: 6f 65 78 5f 68 61 6e 64 6c 65 72 28 20 48 57 4e oex_handler( HWN
2540: 44 20 77 2c 55 49 4e 54 20 6d 2c 55 49 4e 54 20 D w,UINT m,UINT
2550: 73 2c 20 45 58 54 52 41 43 54 49 4e 47 49 4e 46 s, EXTRACTINGINF
2560: 4f 45 58 2a 20 65 20 29 0a 7b 0a 09 72 65 74 75 OEX* e ).{..retu
2570: 72 6e 20 21 53 65 6e 64 4d 65 73 73 61 67 65 41 rn !SendMessageA
2580: 28 20 77 2c 20 6d 2c 20 73 2c 20 63 61 73 74 28 ( w, m, s, cast(
2590: 4c 50 41 52 41 4d 29 20 26 65 2e 65 78 69 6e 66 LPARAM) &e.exinf
25a0: 6f 20 29 3b 0a 7d 0a 0a 76 6f 69 64 20 42 67 61 o );.}..void Bga
25b0: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 SetOwnerWindow_i
25c0: 6d 70 6c 28 20 48 57 4e 44 20 77 6e 64 20 29 0a mpl( HWND wnd ).
25d0: 7b 0a 09 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f {..g_owner_windo
25e0: 77 20 3d 20 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 w = wnd;..g_hand
25f0: 6c 65 72 20 20 20 20 20 20 3d 20 26 6e 6f 65 78 ler = &noex
2600: 5f 68 61 6e 64 6c 65 72 3b 0a 7d 0a 0a 76 6f 69 _handler;.}..voi
2610: 64 20 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 d BgaClearOwnerW
2620: 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 0a 7b 0a 09 indow_impl().{..
2630: 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 20 3d g_owner_window =
2640: 20 6e 75 6c 6c 3b 0a 09 67 5f 68 61 6e 64 6c 65 null;..g_handle
2650: 72 20 20 20 20 20 20 3d 20 6e 75 6c 6c 3b 0a 7d r = null;.}
2660: 0a 0a 76 6f 69 64 20 42 67 61 53 65 74 4f 77 6e ..void BgaSetOwn
2670: 65 72 57 69 6e 64 6f 77 45 78 5f 69 6d 70 6c 28 erWindowEx_impl(
2680: 20 48 57 4e 44 20 77 6e 64 2c 20 41 52 43 48 49 HWND wnd, ARCHI
2690: 56 45 52 50 52 4f 43 2a 20 70 72 6f 63 20 29 0a VERPROC* proc ).
26a0: 7b 0a 09 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f {..g_owner_windo
26b0: 77 20 3d 20 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 w = wnd;..g_hand
26c0: 6c 65 72 20 20 20 20 20 20 3d 20 2a 70 72 6f 63 ler = *proc
26d0: 3b 0a 7d 0a 0a 65 6e 75 6d 20 7b 20 4f 50 5f 46 ;.}..enum { OP_F
26e0: 49 4c 45 5f 42 45 47 49 4e 2c 20 4f 50 5f 46 49 ILE_BEGIN, OP_FI
26f0: 4c 45 5f 4d 49 44 44 4c 45 2c 20 4f 50 5f 41 52 LE_MIDDLE, OP_AR
2700: 43 5f 45 4e 44 2c 20 4f 50 5f 41 52 43 5f 42 45 C_END, OP_ARC_BE
2710: 47 49 4e 20 7d 0a 62 6f 6f 6c 20 64 6f 5f 6f 77 GIN }.bool do_ow
2720: 6e 65 72 77 6e 64 5f 70 72 6f 63 28 20 55 49 4e nerwnd_proc( UIN
2730: 54 20 75 53 74 61 74 65 2c 20 42 67 61 48 65 61 T uState, BgaHea
2740: 64 65 72 2a 20 68 64 72 2c 20 69 6e 74 20 63 75 der* hdr, int cu
2750: 72 2c 20 73 74 72 69 6e 67 20 73 72 63 5f 66 6e r, string src_fn
2760: 61 6d 65 20 29 0a 7b 0a 09 69 66 28 20 67 5f 68 ame ).{..if( g_h
2770: 61 6e 64 6c 65 72 20 69 73 20 6e 75 6c 6c 20 29 andler is null )
2780: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a ...return true;.
2790: 09 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f 45 .EXTRACTINGINFOE
27a0: 58 20 65 78 3b 0a 09 69 66 28 20 75 53 74 61 74 X ex;..if( uStat
27b0: 65 20 3d 3d 20 4f 50 5f 41 52 43 5f 42 45 47 49 e == OP_ARC_BEGI
27c0: 4e 20 7c 7c 20 75 53 74 61 74 65 20 3d 3d 20 4f N || uState == O
27d0: 50 5f 41 52 43 5f 45 4e 44 20 29 0a 09 7b 0a 09 P_ARC_END )..{..
27e0: 09 6c 73 74 72 63 70 79 6e 41 28 20 65 78 2e 65 .lstrcpynA( ex.e
27f0: 78 69 6e 66 6f 2e 73 7a 53 6f 75 72 63 65 46 69 xinfo.szSourceFi
2800: 6c 65 4e 61 6d 65 2e 70 74 72 2c 20 74 6f 53 74 leName.ptr, toSt
2810: 72 69 6e 67 7a 28 73 72 63 5f 66 6e 61 6d 65 29 ringz(src_fname)
2820: 2c 20 35 31 32 20 29 3b 0a 09 7d 0a 09 65 6c 73 , 512 );..}..els
2830: 65 0a 09 7b 0a 09 09 65 78 2e 65 78 69 6e 66 6f e..{...ex.exinfo
2840: 2e 64 77 46 69 6c 65 53 69 7a 65 20 20 3d 20 68 .dwFileSize = h
2850: 64 72 2e 6f 72 69 67 69 6e 61 6c 5f 73 69 7a 65 dr.original_size
2860: 3b 0a 09 09 65 78 2e 65 78 69 6e 66 6f 2e 64 77 ;...ex.exinfo.dw
2870: 57 72 69 74 65 53 69 7a 65 20 3d 20 63 75 72 3b WriteSize = cur;
2880: 0a 09 09 6c 73 74 72 63 70 79 6e 41 28 20 65 78 ...lstrcpynA( ex
2890: 2e 65 78 69 6e 66 6f 2e 73 7a 53 6f 75 72 63 65 .exinfo.szSource
28a0: 46 69 6c 65 4e 61 6d 65 2e 70 74 72 2c 20 74 6f FileName.ptr, to
28b0: 53 74 72 69 6e 67 7a 28 73 72 63 5f 66 6e 61 6d Stringz(src_fnam
28c0: 65 29 2c 20 35 31 32 20 29 3b 0a 09 09 6c 73 74 e), 512 );...lst
28d0: 72 63 70 79 6e 41 28 20 65 78 2e 65 78 69 6e 66 rcpynA( ex.exinf
28e0: 6f 2e 73 7a 44 65 73 74 46 69 6c 65 4e 61 6d 65 o.szDestFileName
28f0: 2e 70 74 72 2c 20 74 6f 53 74 72 69 6e 67 7a 28 .ptr, toStringz(
2900: 68 64 72 2e 66 6e 61 6d 65 29 2c 20 35 31 32 20 hdr.fname), 512
2910: 29 3b 0a 09 09 65 78 2e 64 77 43 6f 6d 70 72 65 );...ex.dwCompre
2920: 73 73 65 64 53 69 7a 65 20 3d 20 68 64 72 2e 63 ssedSize = hdr.c
2930: 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 3b 0a ompressed_size;.
2940: 09 09 65 78 2e 77 52 61 74 69 6f 20 3d 20 63 61 ..ex.wRatio = ca
2950: 73 74 28 75 73 68 6f 72 74 29 28 20 28 63 61 73 st(ushort)( (cas
2960: 74 28 72 65 61 6c 29 68 64 72 2e 63 6f 6d 70 72 t(real)hdr.compr
2970: 65 73 73 65 64 5f 73 69 7a 65 29 2f 68 64 72 2e essed_size)/hdr.
2980: 6f 72 69 67 69 6e 61 6c 5f 73 69 7a 65 2a 31 30 original_size*10
2990: 30 30 20 29 3b 0a 09 09 65 78 2e 77 44 61 74 65 00 );...ex.wDate
29a0: 20 20 3d 20 68 64 72 2e 64 61 74 65 3b 0a 09 09 = hdr.date;...
29b0: 65 78 2e 77 54 69 6d 65 20 20 3d 20 68 64 72 2e ex.wTime = hdr.
29c0: 74 69 6d 65 3b 0a 09 09 65 78 2e 73 7a 41 74 74 time;...ex.szAtt
29d0: 72 69 62 75 74 65 5b 30 5d 20 3d 20 28 68 64 72 ribute[0] = (hdr
29e0: 2e 61 74 74 72 69 62 26 33 32 20 3f 20 27 41 27 .attrib&32 ? 'A'
29f0: 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 : '-');...ex.szA
2a00: 74 74 72 69 62 75 74 65 5b 31 5d 20 3d 20 28 68 ttribute[1] = (h
2a10: 64 72 2e 61 74 74 72 69 62 26 31 20 20 3f 20 27 dr.attrib&1 ? '
2a20: 52 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 R': '-');...ex.s
2a30: 7a 41 74 74 72 69 62 75 74 65 5b 32 5d 20 3d 20 zAttribute[2] =
2a40: 28 68 64 72 2e 61 74 74 72 69 62 26 32 20 20 3f (hdr.attrib&2 ?
2a50: 20 27 48 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 'H': '-');...ex
2a60: 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 33 5d 20 .szAttribute[3]
2a70: 3d 20 28 68 64 72 2e 61 74 74 72 69 62 26 34 20 = (hdr.attrib&4
2a80: 20 3f 20 27 53 27 3a 20 27 2d 27 29 3b 0a 09 09 ? 'S': '-');...
2a90: 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 34 ex.szAttribute[4
2aa0: 5d 20 3d 20 28 68 64 72 2e 61 74 74 72 69 62 26 ] = (hdr.attrib&
2ab0: 31 36 20 3f 20 27 44 27 3a 20 27 2d 27 29 3b 0a 16 ? 'D': '-');.
2ac0: 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 ..ex.szAttribute
2ad0: 5b 35 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 69 66 [5] = '\0';...if
2ae0: 28 20 68 64 72 2e 6d 65 74 68 6f 64 5b 30 5d 3d ( hdr.method[0]=
2af0: 3d 27 47 27 20 29 0a 09 09 09 6c 73 74 72 63 70 ='G' )....lstrcp
2b00: 79 41 28 65 78 2e 73 7a 4d 6f 64 65 2e 70 74 72 yA(ex.szMode.ptr
2b10: 2c 22 2d 67 7a 69 70 2d 22 29 3b 0a 09 09 65 6c ,"-gzip-");...el
2b20: 73 65 0a 09 09 09 6c 73 74 72 63 70 79 41 28 65 se....lstrcpyA(e
2b30: 78 2e 73 7a 4d 6f 64 65 2e 70 74 72 2c 22 2d 62 x.szMode.ptr,"-b
2b40: 7a 69 70 32 2d 22 29 3b 0a 09 7d 0a 0a 09 72 65 zip2-");..}...re
2b50: 74 75 72 6e 20 66 61 6c 73 65 20 21 3d 20 67 5f turn false != g_
2b60: 68 61 6e 64 6c 65 72 28 20 67 5f 6f 77 6e 65 72 handler( g_owner
2b70: 5f 77 69 6e 64 6f 77 2c 20 57 4d 5f 41 52 43 45 _window, WM_ARCE
2b80: 58 54 52 41 43 54 2c 20 75 53 74 61 74 65 2c 20 XTRACT, uState,
2b90: 26 65 78 20 29 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d &ex );.}..//----
2ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 ------------.//
2be0: e3 83 91 e3 82 b9 e6 a4 9c e6 9f bb e7 b3 bb 0a ................
2bf0: 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d //--------------
2c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c30: 2d 2d 0a 0a 61 6c 69 61 73 20 63 6f 72 65 2e 73 --..alias core.s
2c40: 79 73 2e 77 69 6e 64 6f 77 73 2e 77 69 6e 64 6f ys.windows.windo
2c50: 77 73 2e 49 73 44 42 43 53 4c 65 61 64 42 79 74 ws.IsDBCSLeadByt
2c60: 65 20 69 73 44 4c 3b 0a 73 74 72 69 6e 67 20 72 e isDL;.string r
2c70: 65 70 6c 61 63 65 5f 79 65 6e 28 20 73 74 72 69 eplace_yen( stri
2c80: 6e 67 20 73 20 29 0a 7b 0a 09 73 74 72 69 6e 67 ng s ).{..string
2c90: 20 61 6e 73 3b 0a 09 69 6e 74 20 6a 3d 30 3b 0a ans;..int j=0;.
2ca0: 09 66 6f 72 28 69 6e 74 20 69 3d 30 3b 20 69 21 .for(int i=0; i!
2cb0: 3d 73 2e 6c 65 6e 67 74 68 3b 20 69 3d 69 2b 28 =s.length; i=i+(
2cc0: 69 73 44 4c 28 73 5b 69 5d 29 3f 32 3a 31 29 29 isDL(s[i])?2:1))
2cd0: 0a 09 09 69 66 28 20 73 5b 69 5d 20 3d 3d 20 27 ...if( s[i] == '
2ce0: 5c 5c 27 20 29 0a 09 09 09 61 6e 73 7e 3d 73 5b \\' )....ans~=s[
2cf0: 6a 20 2e 2e 20 69 5d 2c 20 61 6e 73 7e 3d 27 2f j .. i], ans~='/
2d00: 27 2c 20 6a 3d 69 2b 31 3b 0a 09 61 6e 73 20 7e ', j=i+1;..ans ~
2d10: 3d 20 73 5b 6a 20 2e 2e 20 24 5d 3b 0a 09 72 65 = s[j .. $];..re
2d20: 74 75 72 6e 20 61 6e 73 3b 0a 7d 0a 0a 62 6f 6f turn ans;.}..boo
2d30: 6c 20 77 69 6c 64 5f 6d 61 74 63 68 28 20 73 74 l wild_match( st
2d40: 72 69 6e 67 20 77 69 6c 64 2c 20 73 74 72 69 6e ring wild, strin
2d50: 67 20 6e 61 6d 65 20 29 0a 7b 0a 09 62 6f 6f 6c g name ).{..bool
2d60: 20 77 69 6c 64 5f 6d 61 74 63 68 5f 6e 6f 70 61 wild_match_nopa
2d70: 74 68 28 20 73 74 72 69 6e 67 20 77 2c 20 73 74 th( string w, st
2d80: 72 69 6e 67 20 73 20 29 0a 09 7b 0a 09 09 73 74 ring s )..{...st
2d90: 72 69 6e 67 20 61 64 76 61 6e 63 65 28 20 73 74 ring advance( st
2da0: 72 69 6e 67 20 73 20 29 0a 09 09 7b 0a 09 09 09 ring s )...{....
2db0: 72 65 74 75 72 6e 20 73 5b 28 49 73 44 42 43 53 return s[(IsDBCS
2dc0: 4c 65 61 64 42 79 74 65 28 73 5b 30 5d 29 3f 32 LeadByte(s[0])?2
2dd0: 3a 31 29 20 2e 2e 20 24 5d 3b 0a 09 09 7d 0a 0a :1) .. $];...}..
2de0: 09 09 77 68 69 6c 65 28 20 77 2e 6c 65 6e 67 74 ..while( w.lengt
2df0: 68 3e 30 20 29 0a 09 09 09 73 77 69 74 63 68 28 h>0 )....switch(
2e00: 20 77 5b 30 5d 20 29 0a 09 09 09 7b 0a 09 09 09 w[0] )....{....
2e10: 63 61 73 65 20 27 3f 27 3a 0a 09 09 09 09 69 66 case '?':.....if
2e20: 28 20 73 2e 6c 65 6e 67 74 68 3d 3d 30 20 29 0a ( s.length==0 ).
2e30: 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 .....return fals
2e40: 65 3b 0a 09 09 09 09 77 20 3d 20 61 64 76 61 6e e;.....w = advan
2e50: 63 65 28 77 29 3b 0a 09 09 09 09 73 20 3d 20 61 ce(w);.....s = a
2e60: 64 76 61 6e 63 65 28 73 29 3b 0a 09 09 09 09 62 dvance(s);.....b
2e70: 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 2a reak;....case '*
2e80: 27 3a 0a 09 09 09 09 69 66 28 20 73 2e 6c 65 6e ':.....if( s.len
2e90: 67 74 68 3d 3d 30 20 29 0a 09 09 09 09 09 72 65 gth==0 )......re
2ea0: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 09 09 turn false;.....
2eb0: 77 20 3d 20 61 64 76 61 6e 63 65 28 77 29 3b 0a w = advance(w);.
2ec0: 09 09 09 09 69 66 28 20 77 2e 6c 65 6e 67 74 68 ....if( w.length
2ed0: 20 3d 3d 20 30 20 29 0a 09 09 09 09 09 72 65 74 == 0 )......ret
2ee0: 75 72 6e 20 74 72 75 65 3b 0a 09 09 09 09 66 6f urn true;.....fo
2ef0: 72 28 20 3b 20 73 2e 6c 65 6e 67 74 68 21 3d 30 r( ; s.length!=0
2f00: 3b 20 73 3d 61 64 76 61 6e 63 65 28 73 29 20 29 ; s=advance(s) )
2f10: 0a 09 09 09 09 09 69 66 28 20 77 69 6c 64 5f 6d ......if( wild_m
2f20: 61 74 63 68 5f 6e 6f 70 61 74 68 28 77 2c 73 29 atch_nopath(w,s)
2f30: 20 29 0a 09 09 09 09 09 09 72 65 74 75 72 6e 20 ).......return
2f40: 74 72 75 65 3b 0a 09 09 09 09 72 65 74 75 72 6e true;.....return
2f50: 20 66 61 6c 73 65 3b 0a 09 09 09 64 65 66 61 75 false;....defau
2f60: 6c 74 3a 0a 09 09 09 09 69 66 28 20 73 2e 6c 65 lt:.....if( s.le
2f70: 6e 67 74 68 3d 3d 30 20 29 0a 09 09 09 09 09 72 ngth==0 )......r
2f80: 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 09 eturn false;....
2f90: 09 69 66 28 20 69 73 44 4c 28 77 5b 30 5d 29 20 .if( isDL(w[0])
2fa0: 29 0a 09 09 09 09 20 20 7b 20 69 66 28 20 77 5b )..... { if( w[
2fb0: 30 2e 2e 32 5d 20 21 3d 20 73 5b 30 2e 2e 32 5d 0..2] != s[0..2]
2fc0: 20 29 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b ) return false;
2fd0: 20 7d 0a 09 09 09 09 65 6c 73 65 0a 09 09 09 09 }.....else.....
2fe0: 20 20 7b 20 69 66 28 20 77 5b 30 5d 20 20 20 20 { if( w[0]
2ff0: 21 3d 20 73 5b 30 5d 20 20 20 20 29 20 72 65 74 != s[0] ) ret
3000: 75 72 6e 20 66 61 6c 73 65 3b 20 7d 0a 09 09 09 urn false; }....
3010: 09 77 20 3d 20 61 64 76 61 6e 63 65 28 77 29 3b .w = advance(w);
3020: 0a 09 09 09 09 73 20 3d 20 61 64 76 61 6e 63 65 .....s = advance
3030: 28 73 29 3b 0a 09 09 09 09 62 72 65 61 6b 3b 0a (s);.....break;.
3040: 09 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 73 2e ...}...return s.
3050: 6c 65 6e 67 74 68 3d 3d 30 3b 0a 09 7d 0a 0a 09 length==0;..}...
3060: 69 66 28 20 77 69 6c 64 3d 3d 22 22 20 7c 7c 20 if( wild=="" ||
3070: 77 69 6c 64 3d 3d 22 2a 2e 2a 22 20 7c 7c 20 77 wild=="*.*" || w
3080: 69 6c 64 3d 3d 22 2a 22 20 7c 7c 20 77 69 6c 64 ild=="*" || wild
3090: 3d 3d 22 2a 2a 22 20 29 0a 09 09 72 65 74 75 72 =="**" )...retur
30a0: 6e 20 74 72 75 65 3b 0a 0a 09 73 74 72 69 6e 67 n true;...string
30b0: 5b 5d 20 77 69 6c 64 73 20 3d 20 73 70 6c 69 74 [] wilds = split
30c0: 28 20 72 65 70 6c 61 63 65 5f 79 65 6e 28 20 74 ( replace_yen( t
30d0: 6f 4c 6f 77 65 72 28 77 69 6c 64 29 20 29 2c 20 oLower(wild) ),
30e0: 22 2f 22 20 29 3b 0a 09 73 74 72 69 6e 67 5b 5d "/" );..string[]
30f0: 20 6e 61 6d 65 73 20 3d 20 73 70 6c 69 74 28 20 names = split(
3100: 72 65 70 6c 61 63 65 5f 79 65 6e 28 20 74 6f 4c replace_yen( toL
3110: 6f 77 65 72 28 6e 61 6d 65 29 20 29 2c 20 22 2f ower(name) ), "/
3120: 22 20 29 3b 0a 0a 09 69 66 28 20 77 69 6c 64 73 " );...if( wilds
3130: 2e 6c 65 6e 67 74 68 20 21 3d 20 6e 61 6d 65 73 .length != names
3140: 2e 6c 65 6e 67 74 68 20 29 0a 09 09 72 65 74 75 .length )...retu
3150: 72 6e 20 66 61 6c 73 65 3b 0a 09 66 6f 72 28 69 rn false;..for(i
3160: 6e 74 20 69 3d 30 3b 20 69 21 3d 77 69 6c 64 73 nt i=0; i!=wilds
3170: 2e 6c 65 6e 67 74 68 3b 20 2b 2b 69 29 0a 09 09 .length; ++i)...
3180: 69 66 28 20 77 69 6c 64 73 5b 69 5d 21 3d 22 2a if( wilds[i]!="*
3190: 2e 2a 22 20 26 26 20 77 69 6c 64 73 5b 69 5d 21 .*" && wilds[i]!
31a0: 3d 22 2a 22 20 26 26 20 77 69 6c 64 73 5b 69 5d ="*" && wilds[i]
31b0: 21 3d 22 2a 2a 22 20 29 0a 09 09 09 69 66 28 20 !="**" )....if(
31c0: 21 77 69 6c 64 5f 6d 61 74 63 68 5f 6e 6f 70 61 !wild_match_nopa
31d0: 74 68 28 20 77 69 6c 64 73 5b 69 5d 2c 20 6e 61 th( wilds[i], na
31e0: 6d 65 73 5b 69 5d 20 29 20 29 0a 09 09 09 09 72 mes[i] ) ).....r
31f0: 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 72 65 eturn false;..re
3200: 74 75 72 6e 20 74 72 75 65 3b 0a 7d 0a 0a 73 74 turn true;.}..st
3210: 72 69 6e 67 20 63 68 65 63 6b 5f 70 61 74 68 28 ring check_path(
3220: 20 73 74 72 69 6e 67 20 69 6e 5f 70 61 74 68 20 string in_path
3230: 29 0a 7b 0a 09 63 68 61 72 5b 5d 20 70 61 74 68 ).{..char[] path
3240: 20 3d 20 69 6e 5f 70 61 74 68 2e 64 75 70 3b 0a = in_path.dup;.
3250: 0a 09 2f 2f 20 43 3a 5c 20 3d 3d 3e 20 43 5f 5c ..// C:\ ==> C_\
3260: 0a 09 69 66 28 20 70 61 74 68 2e 6c 65 6e 67 74 ..if( path.lengt
3270: 68 3e 3d 32 20 26 26 20 70 61 74 68 5b 31 5d 3d h>=2 && path[1]=
3280: 3d 27 3a 27 20 29 0a 09 09 70 61 74 68 5b 31 5d =':' )...path[1]
3290: 20 3d 20 27 5f 27 3b 0a 0a 09 2f 2f 20 5c 5c 68 = '_';...// \\h
32a0: 6f 67 65 20 3d 3d 3e 20 68 6f 67 65 0a 09 2f 2f oge ==> hoge..//
32b0: 20 2f 68 6f 67 65 20 20 3d 3d 3e 20 68 6f 67 65 /hoge ==> hoge
32c0: 0a 09 77 68 69 6c 65 28 20 70 61 74 68 2e 6c 65 ..while( path.le
32d0: 6e 67 74 68 3e 30 20 26 26 20 28 70 61 74 68 5b ngth>0 && (path[
32e0: 30 5d 3d 3d 27 5c 5c 27 7c 7c 70 61 74 68 5b 30 0]=='\\'||path[0
32f0: 5d 3d 3d 27 2f 27 29 20 29 0a 09 09 70 61 74 68 ]=='/') )...path
3300: 20 3d 20 70 61 74 68 5b 31 2e 2e 24 5d 3b 0a 0a = path[1..$];..
3310: 09 2f 2f 20 2e 2e 20 3d 3d 3e 20 5f 5f 0a 09 73 .// .. ==> __..s
3320: 74 72 69 6e 67 5b 5d 20 70 61 74 68 73 20 3d 20 tring[] paths =
3330: 73 70 6c 69 74 28 20 72 65 70 6c 61 63 65 5f 79 split( replace_y
3340: 65 6e 28 70 61 74 68 2e 69 64 75 70 29 2c 20 22 en(path.idup), "
3350: 2f 22 20 29 3b 0a 09 4c 31 3a 0a 09 66 6f 72 65 /" );..L1:..fore
3360: 61 63 68 28 20 72 65 66 20 73 74 72 69 6e 67 20 ach( ref string
3370: 70 63 20 3b 20 70 61 74 68 73 20 29 0a 09 09 69 pc ; paths )...i
3380: 66 28 20 70 63 2e 6c 65 6e 67 74 68 20 3e 3d 20 f( pc.length >=
3390: 32 20 29 0a 09 09 7b 0a 09 09 09 66 6f 72 65 61 2 )...{....forea
33a0: 63 68 28 20 63 68 61 72 20 63 20 3b 20 70 63 20 ch( char c ; pc
33b0: 29 0a 09 09 09 09 69 66 28 20 63 20 21 3d 20 27 ).....if( c != '
33c0: 2e 27 20 29 0a 09 09 09 09 09 63 6f 6e 74 69 6e .' )......contin
33d0: 75 65 20 4c 31 3b 0a 09 09 09 70 63 20 3d 20 72 ue L1;....pc = r
33e0: 65 70 6c 61 63 65 28 20 70 63 2c 20 22 2e 22 2c eplace( pc, ".",
33f0: 20 22 5f 22 20 29 3b 0a 09 09 7d 0a 0a 09 72 65 "_" );...}...re
3400: 74 75 72 6e 20 6a 6f 69 6e 28 20 70 61 74 68 73 turn join( paths
3410: 2c 20 22 5c 5c 22 20 29 3b 0a 7d 0a 0a 0a 0a 2f , "\\" );.}..../
3420: 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /---------------
3430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3460: 2d 0a 2f 2f 20 e7 b0 a1 e6 98 93 e3 83 86 e3 82 -.// ...........
3470: b9 e3 83 88 ef bc a0 e3 82 82 e3 81 a3 e3 81 a8 ................
3480: e3 83 9e e3 82 b8 e3 83 a1 e3 81 ab e6 9b b8 e3 ................
3490: 81 8b e3 81 aa e3 81 8d e3 82 83 e2 80 a6 0a 2f .............../
34a0: 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /---------------
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34e0: 2d 0a 0a 75 6e 69 74 74 65 73 74 0a 7b 0a 09 61 -..unittest.{..a
34f0: 73 73 65 72 74 28 20 63 68 65 63 6b 5f 70 61 74 ssert( check_pat
3500: 68 28 60 5c 5c 5c 5c 68 6f 67 65 5c 66 75 67 61 h(`\\\\hoge\fuga
3510: 60 29 3d 3d 60 68 6f 67 65 5c 66 75 67 61 60 20 `)==`hoge\fuga`
3520: 29 3b 0a 09 61 73 73 65 72 74 28 20 63 68 65 63 );..assert( chec
3530: 6b 5f 70 61 74 68 28 60 2f 75 73 72 2f 6c 6f 63 k_path(`/usr/loc
3540: 61 6c 2f 60 29 3d 3d 60 75 73 72 5c 6c 6f 63 61 al/`)==`usr\loca
3550: 6c 5c 60 20 29 3b 0a 09 61 73 73 65 72 74 28 20 l\` );..assert(
3560: 63 68 65 63 6b 5f 70 61 74 68 28 60 2e 2e 5c 61 check_path(`..\a
3570: 62 63 20 64 65 66 5c 2e 2e 2e 5c 2e 5c 67 60 29 bc def\...\.\g`)
3580: 3d 3d 60 5f 5f 5c 61 62 63 20 64 65 66 5c 5f 5f ==`__\abc def\__
3590: 5f 5c 2e 5c 67 60 20 29 3b 0a 09 61 73 73 65 72 _\.\g` );..asser
35a0: 74 28 20 77 69 6c 64 5f 6d 61 74 63 68 28 60 61 t( wild_match(`a
35b0: 2f 62 2f 63 60 2c 60 41 5c 62 5c 43 60 29 20 29 /b/c`,`A\b\C`) )
35c0: 3b 0a 09 61 73 73 65 72 74 28 20 77 69 6c 64 5f ;..assert( wild_
35d0: 6d 61 74 63 68 28 60 61 2f 2a 2e 2a 2f 61 3f 78 match(`a/*.*/a?x
35e0: 60 2c 60 41 5c 68 6f 67 65 5c 41 66 78 60 29 20 `,`A\hoge\Afx`)
35f0: 29 3b 0a 09 61 73 73 65 72 74 28 20 42 67 61 5f );..assert( Bga_
3600: 69 6d 70 6c 28 6e 75 6c 6c 2c 22 61 20 68 6f 67 impl(null,"a hog
3610: 65 22 29 20 3c 20 30 20 29 3b 0a 7d 0a e") < 0 );.}.