0000: 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 73 private import s
0010: 74 64 2e 73 74 72 69 6e 67 3b 0a 70 72 69 76 61 td.string;.priva
0020: 74 65 20 69 6d 70 6f 72 74 20 73 74 64 2e 66 69 te import std.fi
0030: 6c 65 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 6f le;.private impo
0040: 72 74 20 77 69 6e 33 32 2e 61 6e 73 69 2e 77 69 rt win32.ansi.wi
0050: 6e 64 6f 77 73 3b 0a 70 72 69 76 61 74 65 20 69 ndows;.private i
0060: 6d 70 6f 72 74 20 75 74 69 6c 3b 0a 70 72 69 76 mport util;.priv
0070: 61 74 65 20 69 6d 70 6f 72 74 20 77 69 6e 64 6c ate import windl
0080: 6c 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 6f 72 l;.private impor
0090: 74 20 62 67 61 5f 6d 65 6c 74 65 72 3b 0a 70 72 t bga_melter;.pr
00a0: 69 76 61 74 65 20 69 6d 70 6f 72 74 20 71 62 67 ivate import qbg
00b0: 61 5f 67 75 69 3b 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d a_gui;..//------
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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e3 81 ----------.// ..
0100: 8a e3 81 8d e3 81 be e3 82 8a e3 81 ae 44 4c 4c .............DLL
0110: e5 88 9d e6 9c 9f e5 8c 96 e3 83 ab e3 83 bc e3 ................
0120: 83 81 e3 83 b3 0a 2f 2f 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 2d 2d ----------------
0160: 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 48 49 4e 53 54 41 --------..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 28 43 29 0a 7b 0a 09 76 6f 69 64 20 tern(C).{..void
0190: 67 63 5f 69 6e 69 74 28 29 3b 0a 09 76 6f 69 64 gc_init();..void
01a0: 20 67 63 5f 74 65 72 6d 28 29 3b 0a 09 76 6f 69 gc_term();..voi
01b0: 64 20 5f 6d 69 6e 69 74 28 29 3b 0a 09 76 6f 69 d _minit();..voi
01c0: 64 20 5f 6d 6f 64 75 6c 65 43 74 6f 72 28 29 3b d _moduleCtor();
01d0: 0a 09 76 6f 69 64 20 5f 6d 6f 64 75 6c 65 44 74 ..void _moduleDt
01e0: 6f 72 28 29 3b 0a 09 76 6f 69 64 20 5f 6d 6f 64 or();..void _mod
01f0: 75 6c 65 55 6e 69 74 54 65 73 74 73 28 29 3b 0a uleUnitTests();.
0200: 7d 0a 0a 65 78 74 65 72 6e 20 28 57 69 6e 64 6f }..extern (Windo
0210: 77 73 29 0a 42 4f 4f 4c 20 44 6c 6c 4d 61 69 6e ws).BOOL DllMain
0220: 28 20 48 49 4e 53 54 41 4e 43 45 20 69 6e 73 74 ( HINSTANCE inst
0230: 2c 20 55 4c 4f 4e 47 20 72 65 61 73 6f 6e 2c 20 , ULONG reason,
0240: 76 6f 69 64 2a 20 72 65 73 65 72 76 65 64 20 29 void* reserved )
0250: 0a 7b 0a 09 73 77 69 74 63 68 28 20 72 65 61 73 .{..switch( reas
0260: 6f 6e 20 29 0a 09 7b 0a 09 63 61 73 65 20 44 4c on )..{..case DL
0270: 4c 5f 50 52 4f 43 45 53 53 5f 41 54 54 41 43 48 L_PROCESS_ATTACH
0280: 3a 0a 09 09 67 5f 68 69 6e 73 74 20 3d 20 69 6e :...g_hinst = in
0290: 73 74 3b 0a 09 09 67 63 5f 69 6e 69 74 28 29 3b st;...gc_init();
02a0: 20 20 20 20 20 20 20 20 20 20 2f 2f 20 47 43 e5 // GC.
02b0: 88 9d e6 9c 9f e5 8c 96 0a 09 09 5f 6d 69 6e 69 ..........._mini
02c0: 74 28 29 3b 20 20 20 20 20 20 20 20 20 20 20 2f t(); /
02d0: 2f 20 e3 83 a2 e3 82 b8 e3 83 a5 e3 83 bc e3 83 / ..............
02e0: ab e3 83 aa e3 82 b9 e3 83 88 e5 88 9d e6 9c 9f ................
02f0: e5 8c 96 0a 09 09 5f 6d 6f 64 75 6c 65 43 74 6f ......_moduleCto
0300: 72 28 29 3b 20 20 20 20 20 20 2f 2f 20 e3 83 a2 r(); // ...
0310: e3 82 b8 e3 83 a5 e3 83 bc e3 83 ab e3 82 b3 e3 ................
0320: 83 b3 e3 82 b9 e3 83 88 e3 83 a9 e3 82 af e3 82 ................
0330: bf e5 ae 9f e8 a1 8c 0a 09 09 5f 6d 6f 64 75 6c .........._modul
0340: 65 55 6e 69 74 54 65 73 74 73 28 29 3b 20 2f 2f eUnitTests(); //
0350: 20 e5 8d 98 e4 bd 93 e3 83 86 e3 82 b9 e3 83 88 ...............
0360: e5 ae 9f e8 a1 8c 0a 09 09 69 66 28 20 67 5f 6f .........if( g_o
0370: 72 69 67 5f 64 6c 6c 20 69 73 20 6e 75 6c 6c 20 rig_dll is null
0380: 29 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 )....return fals
0390: 65 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 63 61 e;...break;...ca
03a0: 73 65 20 44 4c 4c 5f 50 52 4f 43 45 53 53 5f 44 se DLL_PROCESS_D
03b0: 45 54 41 43 48 3a 0a 09 09 5f 6d 6f 64 75 6c 65 ETACH:..._module
03c0: 44 74 6f 72 28 29 3b 0a 09 09 67 63 5f 74 65 72 Dtor();...gc_ter
03d0: 6d 28 29 3b 20 20 20 20 20 2f 2f 20 47 43 e7 b5 m(); // GC..
03e0: 82 e4 ba 86 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 .......break;...
03f0: 64 65 66 61 75 6c 74 3a 0a 09 63 61 73 65 20 44 default:..case D
0400: 4c 4c 5f 54 48 52 45 41 44 5f 41 54 54 41 43 48 LL_THREAD_ATTACH
0410: 3a 0a 09 63 61 73 65 20 44 4c 4c 5f 54 48 52 45 :..case DLL_THRE
0420: 41 44 5f 44 45 54 41 43 48 3a 0a 09 09 62 72 65 AD_DETACH:...bre
0430: 61 6b 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 20 74 ak;..}..return t
0440: 72 75 65 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d rue;.}..//------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 41 50 ----------.// AP
0490: 49 e8 bb a2 e9 80 81 e5 87 a6 e7 90 86 0a 2f 2f I.............//
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 0a 0a 57 69 6e 44 4c 4c 20 67 5f 6f 72 69 67 5f ..WinDLL g_orig_
04f0: 64 6c 6c 20 3d 20 6e 75 6c 6c 3b 0a 55 49 4e 54 dll = null;.UINT
0500: 20 20 20 57 4d 5f 41 52 43 45 58 54 52 41 43 54 WM_ARCEXTRACT
0510: 3b 0a 0a 73 74 61 74 69 63 20 74 68 69 73 28 29 ;..static this()
0520: 0a 7b 0a 09 67 5f 6f 72 69 67 5f 64 6c 6c 20 3d .{..g_orig_dll =
0530: 20 57 69 6e 44 4c 4c 2e 6c 6f 61 64 28 20 22 5f WinDLL.load( "_
0540: 42 67 61 33 32 2e 44 4c 4c 22 20 29 3b 0a 09 57 Bga32.DLL" );..W
0550: 4d 5f 41 52 43 45 58 54 52 41 43 54 20 3d 20 52 M_ARCEXTRACT = R
0560: 65 67 69 73 74 65 72 57 69 6e 64 6f 77 4d 65 73 egisterWindowMes
0570: 73 61 67 65 28 22 77 6d 5f 61 72 63 65 78 74 72 sage("wm_arcextr
0580: 61 63 74 22 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 act");.}..static
0590: 20 7e 74 68 69 73 28 29 0a 7b 0a 09 67 5f 6f 72 ~this().{..g_or
05a0: 69 67 5f 64 6c 6c 2e 63 6c 6f 73 65 28 29 3b 0a ig_dll.close();.
05b0: 7d 0a 0a 74 65 6d 70 6c 61 74 65 20 61 70 69 28 }..template api(
05c0: 46 6e 54 29 0a 7b 0a 09 46 6e 54 20 61 70 69 28 FnT).{..FnT api(
05d0: 20 63 68 61 72 5b 5d 20 6e 61 6d 65 20 29 0a 09 char[] name )..
05e0: 7b 0a 09 09 72 65 74 75 72 6e 20 67 5f 6f 72 69 {...return g_ori
05f0: 67 5f 64 6c 6c 2e 67 65 74 5f 61 70 69 21 28 46 g_dll.get_api!(F
0600: 6e 54 29 28 20 6e 61 6d 65 20 29 3b 0a 09 7d 0a nT)( name );..}.
0610: 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }..//-----------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0650: 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 90 88 e3 -----.// .......
0660: 82 a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 90 41 50 ..............AP
0670: 49 ef bc 9a e8 bb a2 e9 80 81 0a 2f 2f 2d 2d 2d I..........//---
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 65 -------------..e
06c0: 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 29 0a 7b xtern(Windows).{
06d0: 0a 09 69 6e 74 20 42 67 61 28 20 48 57 4e 44 20 ..int Bga( HWND
06e0: 61 2c 20 63 68 61 72 2a 20 62 2c 20 63 68 61 72 a, char* b, char
06f0: 2a 20 63 2c 20 44 57 4f 52 44 20 64 20 29 0a 09 * c, DWORD d )..
0700: 7b 0a 09 09 69 6e 74 20 72 20 3d 20 42 67 61 5f {...int r = Bga_
0710: 69 6d 70 6c 28 20 61 2c 20 74 6f 53 74 72 69 6e impl( a, toStrin
0720: 67 28 62 29 20 29 3b 0a 09 09 69 66 28 20 72 20 g(b) );...if( r
0730: 3c 20 30 20 29 20 2f 2f 20 e3 81 93 e3 81 ae e3 < 0 ) // .......
0740: 83 80 e3 83 9f e3 83 bc 44 4c 4c e3 81 a7 e3 81 ........DLL.....
0750: af e5 87 a6 e7 90 86 e3 81 a7 e3 81 8d e3 81 aa ................
0760: e3 81 84 e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 ................
0770: 81 a0 e3 81 a3 e3 81 9f e6 99 82 0a 09 09 09 72 ...............r
0780: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
0790: 66 28 26 42 67 61 29 29 28 22 42 67 61 22 29 28 f(&Bga))("Bga")(
07a0: 61 2c 62 2c 63 2c 64 29 3b 0a 09 09 72 65 74 75 a,b,c,d);...retu
07b0: 72 6e 20 72 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 rn r;..}...WORD
07c0: 51 42 67 61 47 65 74 56 65 72 73 69 6f 6e 28 29 QBgaGetVersion()
07d0: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 34 3b 0a ..{...return 4;.
07e0: 09 7d 0a 0a 09 57 4f 52 44 20 42 67 61 47 65 74 .}...WORD BgaGet
07f0: 56 65 72 73 69 6f 6e 28 29 0a 09 7b 0a 09 09 72 Version()..{...r
0800: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
0810: 66 28 26 42 67 61 47 65 74 56 65 72 73 69 6f 6e f(&BgaGetVersion
0820: 29 29 28 22 42 67 61 47 65 74 56 65 72 73 69 6f ))("BgaGetVersio
0830: 6e 22 29 28 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c n")();..}...BOOL
0840: 20 42 67 61 47 65 74 52 75 6e 6e 69 6e 67 28 29 BgaGetRunning()
0850: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 ..{...return api
0860: 21 28 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 !(typeof(&BgaGet
0870: 52 75 6e 6e 69 6e 67 29 29 28 22 42 67 61 47 65 Running))("BgaGe
0880: 74 52 75 6e 6e 69 6e 67 22 29 28 29 3b 0a 09 7d tRunning")();..}
0890: 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 68 65 63 6b ...BOOL BgaCheck
08a0: 41 72 63 68 69 76 65 28 20 63 68 61 72 2a 20 61 Archive( char* a
08b0: 2c 20 69 6e 74 20 62 20 29 0a 09 7b 0a 09 09 72 , int b )..{...r
08c0: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
08d0: 66 28 26 42 67 61 43 68 65 63 6b 41 72 63 68 69 f(&BgaCheckArchi
08e0: 76 65 29 29 28 22 42 67 61 43 68 65 63 6b 41 72 ve))("BgaCheckAr
08f0: 63 68 69 76 65 22 29 28 61 2c 62 29 3b 0a 09 7d chive")(a,b);..}
0900: 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 6f 6e 66 69 ...BOOL BgaConfi
0910: 67 44 69 61 6c 6f 67 28 20 48 57 4e 44 20 61 2c gDialog( HWND a,
0920: 20 63 68 61 72 2a 20 62 2c 20 69 6e 74 20 63 20 char* b, int c
0930: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 )..{...return ap
0940: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 6f i!(typeof(&BgaCo
0950: 6e 66 69 67 44 69 61 6c 6f 67 29 29 28 22 42 67 nfigDialog))("Bg
0960: 61 43 6f 6e 66 69 67 44 69 61 6c 6f 67 22 29 28 aConfigDialog")(
0970: 61 2c 62 2c 63 29 3b 0a 09 7d 0a 0a 09 69 6e 74 a,b,c);..}...int
0980: 20 42 67 61 47 65 74 46 69 6c 65 43 6f 75 6e 74 BgaGetFileCount
0990: 28 20 63 68 61 72 2a 20 61 20 29 0a 09 7b 0a 09 ( char* a )..{..
09a0: 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 .return api!(typ
09b0: 65 6f 66 28 26 42 67 61 47 65 74 46 69 6c 65 43 eof(&BgaGetFileC
09c0: 6f 75 6e 74 29 29 28 22 42 67 61 47 65 74 46 69 ount))("BgaGetFi
09d0: 6c 65 43 6f 75 6e 74 22 29 28 61 29 3b 0a 09 7d leCount")(a);..}
09e0: 0a 0a 09 42 4f 4f 4c 20 42 67 61 51 75 65 72 79 ...BOOL BgaQuery
09f0: 46 75 6e 63 74 69 6f 6e 4c 69 73 74 28 20 69 6e FunctionList( in
0a00: 74 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 t a )..{...retur
0a10: 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 n api!(typeof(&B
0a20: 67 61 51 75 65 72 79 46 75 6e 63 74 69 6f 6e 4c gaQueryFunctionL
0a30: 69 73 74 29 29 28 22 42 67 61 51 75 65 72 79 46 ist))("BgaQueryF
0a40: 75 6e 63 74 69 6f 6e 4c 69 73 74 22 29 28 61 29 unctionList")(a)
0a50: 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 ;..}...alias voi
0a60: 64 2a 20 48 41 52 43 3b 0a 09 48 41 52 43 20 42 d* HARC;..HARC B
0a70: 67 61 4f 70 65 6e 41 72 63 68 69 76 65 28 20 48 gaOpenArchive( H
0a80: 57 4e 44 20 61 2c 20 63 68 61 72 2a 20 62 2c 20 WND a, char* b,
0a90: 44 57 4f 52 44 20 63 20 29 0a 09 7b 0a 09 09 72 DWORD c )..{...r
0aa0: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
0ab0: 66 28 26 42 67 61 4f 70 65 6e 41 72 63 68 69 76 f(&BgaOpenArchiv
0ac0: 65 29 29 28 22 42 67 61 4f 70 65 6e 41 72 63 68 e))("BgaOpenArch
0ad0: 69 76 65 22 29 28 61 2c 62 2c 63 29 3b 0a 09 7d ive")(a,b,c);..}
0ae0: 0a 0a 09 69 6e 74 20 42 67 61 43 6c 6f 73 65 41 ...int BgaCloseA
0af0: 72 63 68 69 76 65 28 20 48 41 52 43 20 61 20 29 rchive( HARC a )
0b00: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 ..{...return api
0b10: 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 6c 6f !(typeof(&BgaClo
0b20: 73 65 41 72 63 68 69 76 65 29 29 28 22 42 67 61 seArchive))("Bga
0b30: 43 6c 6f 73 65 41 72 63 68 69 76 65 22 29 28 61 CloseArchive")(a
0b40: 29 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f );..}...alias vo
0b50: 69 64 2a 20 4c 50 49 4e 44 49 56 49 44 55 41 4c id* LPINDIVIDUAL
0b60: 49 4e 46 4f 3b 0a 09 69 6e 74 20 42 67 61 46 69 INFO;..int BgaFi
0b70: 6e 64 46 69 72 73 74 28 20 48 41 52 43 20 61 2c ndFirst( HARC a,
0b80: 20 63 68 61 72 2a 20 62 2c 20 4c 50 49 4e 44 49 char* b, LPINDI
0b90: 56 49 44 55 41 4c 49 4e 46 4f 20 63 20 29 0a 09 VIDUALINFO c )..
0ba0: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0bb0: 74 79 70 65 6f 66 28 26 42 67 61 46 69 6e 64 46 typeof(&BgaFindF
0bc0: 69 72 73 74 29 29 28 22 42 67 61 46 69 6e 64 46 irst))("BgaFindF
0bd0: 69 72 73 74 22 29 28 61 2c 62 2c 63 29 3b 0a 09 irst")(a,b,c);..
0be0: 7d 0a 0a 09 69 6e 74 20 42 67 61 46 69 6e 64 4e }...int BgaFindN
0bf0: 65 78 74 28 20 48 41 52 43 20 61 2c 20 4c 50 49 ext( HARC a, LPI
0c00: 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f 20 62 20 NDIVIDUALINFO b
0c10: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 )..{...return ap
0c20: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 46 69 i!(typeof(&BgaFi
0c30: 6e 64 4e 65 78 74 29 29 28 22 42 67 61 46 69 6e ndNext))("BgaFin
0c40: 64 4e 65 78 74 22 29 28 61 2c 62 29 3b 0a 09 7d dNext")(a,b);..}
0c50: 0a 0a 09 44 57 4f 52 44 20 42 67 61 47 65 74 41 ...DWORD BgaGetA
0c60: 72 63 4f 72 69 67 69 6e 61 6c 53 69 7a 65 28 20 rcOriginalSize(
0c70: 48 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 HARC a )..{...re
0c80: 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 turn api!(typeof
0c90: 28 26 42 67 61 47 65 74 41 72 63 4f 72 69 67 69 (&BgaGetArcOrigi
0ca0: 6e 61 6c 53 69 7a 65 29 29 28 22 42 67 61 47 65 nalSize))("BgaGe
0cb0: 74 41 72 63 4f 72 69 67 69 6e 61 6c 53 69 7a 65 tArcOriginalSize
0cc0: 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 44 57 4f 52 ")(a);..}...DWOR
0cd0: 44 20 42 67 61 47 65 74 41 72 63 43 6f 6d 70 72 D BgaGetArcCompr
0ce0: 65 73 73 65 64 53 69 7a 65 28 20 48 41 52 43 20 essedSize( HARC
0cf0: 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 a )..{...return
0d00: 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 api!(typeof(&Bga
0d10: 47 65 74 41 72 63 43 6f 6d 70 72 65 73 73 65 64 GetArcCompressed
0d20: 53 69 7a 65 29 29 28 22 42 67 61 47 65 74 41 72 Size))("BgaGetAr
0d30: 63 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 22 cCompressedSize"
0d40: 29 28 61 29 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 )(a);..}...WORD
0d50: 42 67 61 47 65 74 41 72 63 52 61 74 69 6f 28 20 BgaGetArcRatio(
0d60: 48 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 HARC a )..{...re
0d70: 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 turn api!(typeof
0d80: 28 26 42 67 61 47 65 74 41 72 63 52 61 74 69 6f (&BgaGetArcRatio
0d90: 29 29 28 22 42 67 61 47 65 74 41 72 63 52 61 74 ))("BgaGetArcRat
0da0: 69 6f 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 42 4f io")(a);..}...BO
0db0: 4f 4c 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 OL BgaSetOwnerWi
0dc0: 6e 64 6f 77 28 20 48 57 4e 44 20 61 20 29 0a 09 ndow( HWND a )..
0dd0: 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 {...BOOL r = api
0de0: 21 28 74 79 70 65 6f 66 28 26 42 67 61 53 65 74 !(typeof(&BgaSet
0df0: 4f 77 6e 65 72 57 69 6e 64 6f 77 29 29 28 22 42 OwnerWindow))("B
0e00: 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 gaSetOwnerWindow
0e10: 22 29 28 61 29 3b 0a 09 09 69 66 28 20 72 20 29 ")(a);...if( r )
0e20: 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 BgaSetOwnerWind
0e30: 6f 77 5f 69 6d 70 6c 28 61 29 3b 0a 09 09 72 65 ow_impl(a);...re
0e40: 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 42 4f 4f turn r;..}...BOO
0e50: 4c 20 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 L BgaClearOwnerW
0e60: 69 6e 64 6f 77 28 29 0a 09 7b 0a 09 09 42 4f 4f indow()..{...BOO
0e70: 4c 20 72 20 3d 20 61 70 69 21 28 74 79 70 65 6f L r = api!(typeo
0e80: 66 28 26 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 f(&BgaClearOwner
0e90: 57 69 6e 64 6f 77 29 29 28 22 42 67 61 43 6c 65 Window))("BgaCle
0ea0: 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 22 29 28 arOwnerWindow")(
0eb0: 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f 77 6e );...BgaClearOwn
0ec0: 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 3b erWindow_impl();
0ed0: 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a ...return r;..}.
0ee0: 0a 09 61 6c 69 61 73 20 42 4f 4f 4c 20 66 75 6e ..alias BOOL fun
0ef0: 63 74 69 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 2c ction(HWND,UINT,
0f00: 55 49 4e 54 2c 45 58 54 52 41 43 54 49 4e 47 49 UINT,EXTRACTINGI
0f10: 4e 46 4f 45 58 2a 29 20 41 52 43 48 49 56 45 52 NFOEX*) ARCHIVER
0f20: 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 53 PROC;..BOOL BgaS
0f30: 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 28 etOwnerWindowEx(
0f40: 20 48 57 4e 44 20 61 2c 20 41 52 43 48 49 56 45 HWND a, ARCHIVE
0f50: 52 50 52 4f 43 2a 20 62 20 29 0a 09 7b 0a 09 09 RPROC* b )..{...
0f60: 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 79 BOOL r = api!(ty
0f70: 70 65 6f 66 28 26 42 67 61 53 65 74 4f 77 6e 65 peof(&BgaSetOwne
0f80: 72 57 69 6e 64 6f 77 45 78 29 29 28 22 42 67 61 rWindowEx))("Bga
0f90: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 SetOwnerWindowEx
0fa0: 22 29 28 61 2c 62 29 3b 0a 09 09 69 66 28 20 72 ")(a,b);...if( r
0fb0: 20 29 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 ) BgaSetOwnerWi
0fc0: 6e 64 6f 77 45 78 5f 69 6d 70 6c 28 61 2c 62 29 ndowEx_impl(a,b)
0fd0: 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d ;...return r;..}
0fe0: 0a 0a 09 42 4f 4f 4c 20 42 67 61 4b 69 6c 6c 4f ...BOOL BgaKillO
0ff0: 77 6e 65 72 57 69 6e 64 6f 77 45 78 28 20 48 57 wnerWindowEx( HW
1000: 4e 44 20 61 20 29 0a 09 7b 0a 09 09 42 4f 4f 4c ND a )..{...BOOL
1010: 20 72 20 3d 20 61 70 69 21 28 74 79 70 65 6f 66 r = api!(typeof
1020: 28 26 42 67 61 4b 69 6c 6c 4f 77 6e 65 72 57 69 (&BgaKillOwnerWi
1030: 6e 64 6f 77 45 78 29 29 28 22 42 67 61 4b 69 6c ndowEx))("BgaKil
1040: 6c 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 22 29 lOwnerWindowEx")
1050: 28 61 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f (a);...BgaClearO
1060: 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 wnerWindow_impl(
1070: 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 );...return r;..
1080: 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 64 2a 20 }...alias void*
1090: 55 4e 4c 48 41 5f 57 4e 44 5f 45 4e 55 4d 4d 45 UNLHA_WND_ENUMME
10a0: 4d 42 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 MBPROC;..BOOL Bg
10b0: 61 53 65 74 45 6e 75 6d 4d 65 6d 62 65 72 73 50 aSetEnumMembersP
10c0: 72 6f 63 28 20 55 4e 4c 48 41 5f 57 4e 44 5f 45 roc( UNLHA_WND_E
10d0: 4e 55 4d 4d 45 4d 42 50 52 4f 43 20 61 20 29 0a NUMMEMBPROC a ).
10e0: 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 .{...return api!
10f0: 28 74 79 70 65 6f 66 28 26 42 67 61 53 65 74 45 (typeof(&BgaSetE
1100: 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 29 29 numMembersProc))
1110: 28 22 42 67 61 53 65 74 45 6e 75 6d 4d 65 6d 62 ("BgaSetEnumMemb
1120: 65 72 73 50 72 6f 63 22 29 28 61 29 3b 0a 09 7d ersProc")(a);..}
1130: 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 6c 65 61 72 ...BOOL BgaClear
1140: 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 28 EnumMembersProc(
1150: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 )..{...return ap
1160: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 6c i!(typeof(&BgaCl
1170: 65 61 72 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 earEnumMembersPr
1180: 6f 63 29 29 28 22 42 67 61 43 6c 65 61 72 45 6e oc))("BgaClearEn
1190: 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 22 29 28 umMembersProc")(
11a0: 29 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d );..}.}..//-----
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 -----------.// .
11f0: b5 b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 ................
1200: a4 e3 83 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 85 ....API.........
1210: 28 20 42 67 61 20 29 0a 2f 2f 2d 2d 2d 2d 2d 2d ( Bga ).//------
1220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 69 6e 74 20 ----------..int
1260: 42 67 61 5f 69 6d 70 6c 28 20 48 57 4e 44 20 77 Bga_impl( HWND w
1270: 6e 64 2c 20 63 68 61 72 5b 5d 20 63 6d 64 5f 73 nd, char[] cmd_s
1280: 74 72 20 29 0a 7b 0a 09 65 6e 75 6d 20 7b 20 55 tr ).{..enum { U
1290: 4e 53 55 50 50 4f 52 54 45 44 20 3d 20 2d 31 20 NSUPPORTED = -1
12a0: 7d 0a 0a 09 2f 2f 0a 09 2f 2f 20 e3 82 b3 e3 83 }...//..// .....
12b0: 9e e3 83 b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 b3 ................
12c0: e8 a7 a3 e6 9e 90 0a 09 2f 2f 0a 09 63 68 61 72 ........//..char
12d0: 5b 5d 5b 5d 20 63 6d 64 20 3d 20 63 6d 64 5f 70 [][] cmd = cmd_p
12e0: 61 72 73 65 28 63 6d 64 5f 73 74 72 29 3b 0a 0a arse(cmd_str);..
12f0: 09 2f 2f 20 78 e4 bb a5 e5 a4 96 e3 81 ae e3 82 .// x...........
1300: b3 e3 83 9e e3 83 b3 e3 83 89 e3 81 af e6 89 b1 ................
1310: e3 82 8f e3 81 aa e3 81 84 e3 81 a7 e6 9c ac e7 ................
1320: 89 a9 44 4c 4c e3 81 ab e5 9b 9e e3 81 97 e3 81 ..DLL...........
1330: be e3 81 99 e3 80 82 e6 b3 a8 e6 84 8f e7 82 b9 ................
1340: e3 81 a8 e3 81 97 e3 81 a6 ef bc 9a 0a 09 2f 2f ..............//
1350: 20 20 3e 20 63 6f 6d 6d 61 6e 64 20 e3 81 af e3 > command ....
1360: 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 82 ................
1370: a4 e3 83 b3 e3 81 ae e6 9c 80 e5 88 9d e3 81 ae ................
1380: e5 bc 95 e6 95 b0 e3 81 a8 e3 81 97 e3 81 a6 e3 ................
1390: 81 8f e3 81 a0 e3 81 95 e3 81 84 e3 80 82 e3 81 ................
13a0: aa e3 81 8a e3 80 81 63 6f 6d 6d 61 6e 64 20 e3 .......command .
13b0: 82 92 e7 9c 81 e7 95 a5 0a 09 2f 2f 20 20 3e 20 ..........// >
13c0: e3 81 97 e3 81 9f e5 a0 b4 e5 90 88 e3 81 af 20 ...............
13d0: 27 78 27 20 63 6f 6d 6d 61 6e 64 20 e3 81 8c e6 'x' command ....
13e0: 8c 87 e5 ae 9a e3 81 95 e3 82 8c e3 81 9f e3 82 ................
13f0: 82 e3 81 ae e3 81 a8 e3 81 bf e3 81 aa e3 81 97 ................
1400: e3 81 be e3 81 99 e3 80 82 0a 09 69 66 28 20 63 ...........if( c
1410: 6d 64 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 20 29 md.length == 0 )
1420: 0a 09 09 72 65 74 75 72 6e 20 55 4e 53 55 50 50 ...return UNSUPP
1430: 4f 52 54 45 44 3b 0a 09 69 66 28 20 63 6d 64 5b ORTED;..if( cmd[
1440: 30 5d 2e 6c 65 6e 67 74 68 20 3d 3d 20 31 20 29 0].length == 1 )
1450: 0a 09 7b 0a 09 09 69 66 28 20 30 20 3c 3d 20 66 ..{...if( 0 <= f
1460: 69 6e 64 28 22 61 64 6a 6c 6d 6e 73 74 76 41 44 ind("adjlmnstvAD
1470: 4a 4c 4d 4e 53 54 56 22 2c 20 63 6d 64 5b 30 5d JLMNSTV", cmd[0]
1480: 5b 30 5d 29 20 29 0a 09 09 09 72 65 74 75 72 6e [0]) )....return
1490: 20 55 4e 53 55 50 50 4f 52 54 45 44 3b 0a 09 09 UNSUPPORTED;...
14a0: 69 66 28 20 63 6d 64 5b 30 5d 5b 30 5d 3d 3d 27 if( cmd[0][0]=='
14b0: 78 27 20 7c 7c 20 63 6d 64 5b 30 5d 5b 30 5d 3d x' || cmd[0][0]=
14c0: 3d 27 58 27 20 29 0a 09 09 09 63 6d 64 20 3d 20 ='X' )....cmd =
14d0: 63 6d 64 5b 31 20 2e 2e 20 6c 65 6e 67 74 68 5d cmd[1 .. length]
14e0: 3b 0a 09 7d 0a 0a 09 09 2f 2f 20 e2 80 bb 20 e3 ;..}....// ... .
14f0: 81 93 e3 81 ae e6 99 82 e7 82 b9 e3 81 a7 e3 80 ................
1500: 81 63 6d 64 e3 81 ab e3 81 af 63 6f 6d 6d 61 6e .cmd......comman
1510: 64 e3 82 92 e9 99 a4 e3 81 84 e3 81 9f e6 ae 8b d...............
1520: e3 82 8a e3 81 ae e5 bc 95 e6 95 b0 e3 81 8c e5 ................
1530: 85 a5 e3 81 a3 e3 81 a6 e3 81 84 e3 82 8b e3 81 ................
1540: af e3 81 9a 0a 0a 09 2f 2f 0a 09 2f 2f 20 e3 82 .......//..// ..
1550: b9 e3 82 a4 e3 83 83 e3 83 81 e8 a7 a3 e6 9e 90 ................
1560: e3 80 81 e5 bc 95 e6 95 b0 e8 a7 a3 e6 9e 90 0a ................
1570: 09 2f 2f 0a 09 62 6f 6f 6c 20 61 6c 6c 5f 61 74 .//..bool all_at
1580: 74 72 73 20 20 20 20 20 20 20 3d 20 66 61 6c 73 trs = fals
1590: 65 3b 20 2f 2f 20 2d 61 0a 09 62 6f 6f 6c 20 73 e; // -a..bool s
15a0: 69 6c 65 6e 74 20 20 20 20 20 20 20 20 20 20 3d ilent =
15b0: 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 69 0a 09 62 false; // -i..b
15c0: 6f 6f 6c 20 69 67 6e 6f 72 65 5f 64 69 72 20 20 ool ignore_dir
15d0: 20 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 = false; //
15e0: 2d 6a 0a 09 62 6f 6f 6c 20 6e 65 77 66 69 6c 65 -j..bool newfile
15f0: 5f 6f 6e 6c 79 20 20 20 20 3d 20 66 61 6c 73 65 _only = false
1600: 3b 20 2f 2f 20 2d 6e 0a 09 62 6f 6f 6c 20 66 6f ; // -n..bool fo
1610: 72 63 65 5f 6f 76 65 72 77 72 69 74 65 20 3d 20 rce_overwrite =
1620: 66 61 6c 73 65 3b 20 2f 2f 20 2d 6f 0a 09 62 6f false; // -o..bo
1630: 6f 6c 20 72 65 63 75 72 73 69 76 65 20 20 20 20 ol recursive
1640: 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d = false; // -
1650: 72 0a 09 62 6f 6f 6c 20 73 61 6e 69 74 69 7a 65 r..bool sanitize
1660: 5f 70 61 74 68 20 20 20 3d 20 74 72 75 65 3b 0a _path = true;.
1670: 0a 09 63 68 61 72 5b 5d 20 61 72 63 5f 6e 61 6d ..char[] arc_nam
1680: 65 20 3d 20 6e 75 6c 6c 3b 0a 09 63 68 61 72 5b e = null;..char[
1690: 5d 20 62 61 73 65 5f 64 69 72 20 3d 20 6e 75 6c ] base_dir = nul
16a0: 6c 3b 0a 09 63 68 61 72 5b 5d 5b 5d 20 70 61 74 l;..char[][] pat
16b0: 68 73 3b 0a 0a 09 66 6f 72 65 61 63 68 28 20 63 hs;...foreach( c
16c0: 68 61 72 5b 5d 20 70 61 72 61 6d 20 3b 20 63 6d har[] param ; cm
16d0: 64 20 29 0a 09 09 69 66 28 20 70 61 72 61 6d 5b d )...if( param[
16e0: 30 5d 20 3d 3d 20 27 2d 27 20 29 0a 09 09 09 73 0] == '-' )....s
16f0: 77 69 74 63 68 28 20 70 61 72 61 6d 5b 31 5d 20 witch( param[1]
1700: 29 0a 09 09 09 7b 0a 09 09 09 63 61 73 65 20 27 )....{....case '
1710: 61 27 2c 27 41 27 3a 20 61 6c 6c 5f 61 74 74 72 a','A': all_attr
1720: 73 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b 20 s = true;
1730: 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 break;....case '
1740: 69 27 2c 27 49 27 3a 20 73 69 6c 65 6e 74 20 20 i','I': silent
1750: 20 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b 20 = true;
1760: 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 break;....case '
1770: 6a 27 2c 27 4a 27 3a 20 69 67 6e 6f 72 65 5f 64 j','J': ignore_d
1780: 69 72 20 20 20 20 20 20 3d 20 74 72 75 65 3b 20 ir = true;
1790: 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 break;....case '
17a0: 6e 27 2c 27 4e 27 3a 20 6e 65 77 66 69 6c 65 5f n','N': newfile_
17b0: 6f 6e 6c 79 20 20 20 20 3d 20 74 72 75 65 3b 20 only = true;
17c0: 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 break;....case '
17d0: 6f 27 2c 27 4f 27 3a 20 66 6f 72 63 65 5f 6f 76 o','O': force_ov
17e0: 65 72 77 72 69 74 65 20 3d 20 74 72 75 65 3b 20 erwrite = true;
17f0: 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 break;....case '
1800: 72 27 2c 27 52 27 3a 20 72 65 63 75 72 73 69 76 r','R': recursiv
1810: 65 20 20 20 20 20 20 20 3d 20 74 72 75 65 3b 20 e = true;
1820: 62 72 65 61 6b 3b 0a 09 09 09 64 65 66 61 75 6c break;....defaul
1830: 74 3a 20 20 62 72 65 61 6b 3b 0a 09 09 09 7d 0a t: break;....}.
1840: 09 09 65 6c 73 65 20 69 66 28 20 61 72 63 5f 6e ..else if( arc_n
1850: 61 6d 65 20 69 73 20 6e 75 6c 6c 20 29 0a 09 09 ame is null )...
1860: 7b 0a 09 09 09 61 72 63 5f 6e 61 6d 65 20 3d 20 {....arc_name =
1870: 70 61 72 61 6d 3b 0a 09 09 7d 0a 09 09 65 6c 73 param;...}...els
1880: 65 20 69 66 28 20 62 61 73 65 5f 64 69 72 20 69 e if( base_dir i
1890: 73 20 6e 75 6c 6c 20 29 0a 09 09 7b 0a 09 09 09 s null )...{....
18a0: 69 66 28 20 6c 61 73 74 43 68 61 72 28 70 61 72 if( lastChar(par
18b0: 61 6d 29 20 3d 3d 20 27 5c 5c 27 20 29 0a 09 09 am) == '\\' )...
18c0: 09 09 62 61 73 65 5f 64 69 72 20 3d 20 70 61 72 ..base_dir = par
18d0: 61 6d 3b 0a 09 09 09 65 6c 73 65 20 7b 0a 09 09 am;....else {...
18e0: 09 09 62 61 73 65 5f 64 69 72 2e 6c 65 6e 67 74 ..base_dir.lengt
18f0: 68 20 3d 20 47 65 74 43 75 72 72 65 6e 74 44 69 h = GetCurrentDi
1900: 72 65 63 74 6f 72 79 28 30 2c 6e 75 6c 6c 29 2b rectory(0,null)+
1910: 31 3b 0a 09 09 09 09 47 65 74 43 75 72 72 65 6e 1;.....GetCurren
1920: 74 44 69 72 65 63 74 6f 72 79 28 62 61 73 65 5f tDirectory(base_
1930: 64 69 72 2e 6c 65 6e 67 74 68 2c 20 62 61 73 65 dir.length, base
1940: 5f 64 69 72 29 3b 0a 09 09 09 09 62 61 73 65 5f _dir);.....base_
1950: 64 69 72 2e 6c 65 6e 67 74 68 20 3d 20 73 74 72 dir.length = str
1960: 6c 65 6e 28 62 61 73 65 5f 64 69 72 29 3b 0a 09 len(base_dir);..
1970: 09 09 09 69 66 28 20 6c 61 73 74 43 68 61 72 28 ...if( lastChar(
1980: 62 61 73 65 5f 64 69 72 29 20 21 3d 20 27 5c 5c base_dir) != '\\
1990: 27 20 29 0a 09 09 09 09 09 62 61 73 65 5f 64 69 ' )......base_di
19a0: 72 20 7e 3d 20 27 5c 5c 27 3b 0a 09 09 09 7d 0a r ~= '\\';....}.
19b0: 09 09 7d 0a 09 09 65 6c 73 65 0a 09 09 09 70 61 ..}...else....pa
19c0: 74 68 73 20 7e 3d 20 70 61 72 61 6d 3b 0a 0a 09 ths ~= param;...
19d0: 2f 2f 0a 09 2f 2f 20 e5 b1 95 e9 96 8b e5 87 a6 //..// .........
19e0: e7 90 86 e3 81 ab 47 6f 21 0a 09 2f 2f 0a 09 50 ......Go!..//..P
19f0: 72 6f 67 72 65 73 73 44 6c 67 20 64 6c 67 20 3d rogressDlg dlg =
1a00: 20 6e 75 6c 6c 3b 0a 09 69 66 28 20 21 64 6f 5f null;..if( !do_
1a10: 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 28 20 4f ownerwnd_proc( O
1a20: 50 5f 41 52 43 5f 42 45 47 49 4e 2c 20 6e 75 6c P_ARC_BEGIN, nul
1a30: 6c 2c 20 30 2c 20 61 72 63 5f 6e 61 6d 65 20 29 l, 0, arc_name )
1a40: 20 29 0a 09 09 72 65 74 75 72 6e 20 30 78 38 30 )...return 0x80
1a50: 32 30 3b 0a 0a 09 74 72 79 0a 09 7b 0a 09 09 69 20;...try..{...i
1a60: 66 28 20 21 73 69 6c 65 6e 74 20 26 26 20 67 5f f( !silent && g_
1a70: 68 61 6e 64 6c 65 72 20 69 73 20 6e 75 6c 6c 20 handler is null
1a80: 29 20 2f 2f 20 2d 69 20 2f 20 4f 77 6e 65 72 57 ) // -i / OwnerW
1a90: 6e 64 50 72 6f 63 0a 09 09 7b 0a 09 09 09 64 6c ndProc...{....dl
1aa0: 67 20 3d 20 6e 65 77 20 50 72 6f 67 72 65 73 73 g = new Progress
1ab0: 44 6c 67 28 0a 09 09 09 09 63 61 73 74 28 44 4c Dlg(.....cast(DL
1ac0: 47 54 45 4d 50 4c 41 54 45 2a 29 20 67 5f 6f 72 GTEMPLATE*) g_or
1ad0: 69 67 5f 64 6c 6c 2e 6c 6f 61 64 5f 64 69 61 6c ig_dll.load_dial
1ae0: 6f 67 28 22 23 32 30 32 35 22 29 2c 20 77 6e 64 og("#2025"), wnd
1af0: 20 29 3b 0a 09 09 09 64 6c 67 2e 73 65 74 5f 61 );....dlg.set_a
1b00: 72 63 6e 61 6d 65 28 61 72 63 5f 6e 61 6d 65 29 rcname(arc_name)
1b10: 3b 0a 09 09 7d 0a 0a 09 09 63 68 61 72 5b 5d 20 ;...}....char[]
1b20: 20 20 20 73 72 63 5f 66 6e 61 6d 65 3b 20 2f 2f src_fname; //
1b30: 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 e9 96 a2 OwnerWndProc...
1b40: e4 bf 82 0a 09 09 42 67 61 48 65 61 64 65 72 20 ......BgaHeader
1b50: 63 75 72 5f 68 64 72 3b 20 20 20 2f 2f 20 4f 77 cur_hdr; // Ow
1b60: 6e 65 72 57 6e 64 50 72 6f 63 e9 96 a2 e4 bf 82 nerWndProc......
1b70: 0a 0a 09 09 42 67 61 41 6e 73 77 65 72 20 68 61 ....BgaAnswer ha
1b80: 6e 64 6c 65 72 28 20 69 6e 6f 75 74 20 42 67 61 ndler( inout Bga
1b90: 48 65 61 64 65 72 20 68 64 72 20 29 0a 09 09 7b Header hdr )...{
1ba0: 0a 09 09 09 73 72 63 5f 66 6e 61 6d 65 20 3d 20 ....src_fname =
1bb0: 68 64 72 2e 66 6e 61 6d 65 3b 0a 09 09 09 70 72 hdr.fname;....pr
1bc0: 6f 63 65 73 73 5f 6d 65 73 73 61 67 65 73 28 29 ocess_messages()
1bd0: 3b 0a 0a 09 09 09 2f 2f 20 70 61 74 68 73 0a 09 ;.....// paths..
1be0: 09 09 69 66 28 20 70 61 74 68 73 2e 6c 65 6e 67 ..if( paths.leng
1bf0: 74 68 20 3e 20 30 20 29 0a 09 09 09 7b 0a 09 09 th > 0 )....{...
1c00: 09 09 63 68 61 72 5b 5d 20 66 6e 61 6d 65 20 3d ..char[] fname =
1c10: 20 2f 2f 20 2d 72 0a 09 09 09 09 09 28 72 65 63 // -r......(rec
1c20: 75 72 73 69 76 65 20 3f 20 68 64 72 2e 66 6e 61 ursive ? hdr.fna
1c30: 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 5f me[hdr.dir_name_
1c40: 6c 65 6e 2e 2e 6c 65 6e 67 74 68 5d 0a 09 09 09 len..length]....
1c50: 09 09 20 20 20 20 20 20 20 20 20 20 20 3a 20 68 .. : h
1c60: 64 72 2e 66 6e 61 6d 65 29 3b 0a 09 09 09 09 66 dr.fname);.....f
1c70: 6f 72 65 61 63 68 28 20 63 68 61 72 5b 5d 20 77 oreach( char[] w
1c80: 20 3b 20 70 61 74 68 73 20 29 0a 09 09 09 09 09 ; paths )......
1c90: 69 66 28 20 77 69 6c 64 5f 6d 61 74 63 68 28 20 if( wild_match(
1ca0: 77 2c 20 66 6e 61 6d 65 20 29 20 29 0a 09 09 09 w, fname ) )....
1cb0: 09 09 09 67 6f 74 6f 20 6f 6b 3b 0a 09 09 09 09 ...goto ok;.....
1cc0: 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 return BgaAnswer
1cd0: 2e 53 6b 69 70 49 74 3b 0a 09 09 09 6f 6b 3a 3b .SkipIt;....ok:;
1ce0: 0a 09 09 09 7d 0a 09 09 09 2f 2f 20 2d 61 0a 09 ....}....// -a..
1cf0: 09 09 69 66 28 20 21 61 6c 6c 5f 61 74 74 72 73 ..if( !all_attrs
1d00: 20 26 26 20 28 68 64 72 2e 61 74 74 72 69 62 26 && (hdr.attrib&
1d10: 36 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e 20 6) ).....return
1d20: 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 70 49 74 BgaAnswer.SkipIt
1d30: 3b 0a 09 09 09 2f 2f 20 64 69 61 6c 6f 67 0a 09 ;....// dialog..
1d40: 09 09 69 66 28 20 64 6c 67 20 29 0a 09 09 09 09 ..if( dlg ).....
1d50: 69 66 28 20 64 6c 67 2e 63 6c 6f 73 65 64 20 29 if( dlg.closed )
1d60: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 ......return Bga
1d70: 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 Answer.Abort;...
1d80: 09 09 65 6c 73 65 0a 09 09 09 09 09 64 6c 67 2e ..else......dlg.
1d90: 73 65 74 5f 66 69 6c 65 6e 61 6d 65 28 20 68 64 set_filename( hd
1da0: 72 2e 66 6e 61 6d 65 5b 68 64 72 2e 64 69 72 5f r.fname[hdr.dir_
1db0: 6e 61 6d 65 5f 6c 65 6e 20 2e 2e 20 6c 65 6e 67 name_len .. leng
1dc0: 74 68 5d 20 29 3b 0a 09 09 09 2f 2f 20 2d 6a 0a th] );....// -j.
1dd0: 09 09 09 69 66 28 20 69 67 6e 6f 72 65 5f 64 69 ...if( ignore_di
1de0: 72 20 29 0a 09 09 09 09 68 64 72 2e 66 6e 61 6d r ).....hdr.fnam
1df0: 65 20 3d 20 68 64 72 2e 66 6e 61 6d 65 5b 68 64 e = hdr.fname[hd
1e00: 72 2e 64 69 72 5f 6e 61 6d 65 5f 6c 65 6e 20 2e r.dir_name_len .
1e10: 2e 20 6c 65 6e 67 74 68 5d 3b 0a 09 09 09 2f 2f . length];....//
1e20: 20 73 61 6e 69 74 69 7a 65 0a 09 09 09 69 66 28 sanitize....if(
1e30: 20 73 61 6e 69 74 69 7a 65 5f 70 61 74 68 20 29 sanitize_path )
1e40: 0a 09 09 09 09 68 64 72 2e 66 6e 61 6d 65 20 3d .....hdr.fname =
1e50: 20 63 68 65 63 6b 5f 70 61 74 68 28 68 64 72 2e check_path(hdr.
1e60: 66 6e 61 6d 65 29 3b 0a 09 09 09 2f 2f 20 62 61 fname);....// ba
1e70: 73 65 5f 64 69 72 0a 09 09 09 68 64 72 2e 66 6e se_dir....hdr.fn
1e80: 61 6d 65 20 3d 20 62 61 73 65 5f 64 69 72 20 7e ame = base_dir ~
1e90: 20 68 64 72 2e 66 6e 61 6d 65 3b 0a 09 09 09 2f hdr.fname;..../
1ea0: 2f 20 2d 6f 0a 09 09 09 69 66 28 20 21 66 6f 72 / -o....if( !for
1eb0: 63 65 5f 6f 76 65 72 77 72 69 74 65 20 29 0a 09 ce_overwrite )..
1ec0: 09 09 09 74 72 79 20 7b 0a 09 09 09 09 69 66 28 ...try {.....if(
1ed0: 20 73 74 64 2e 66 69 6c 65 2e 65 78 69 73 74 73 std.file.exists
1ee0: 28 68 64 72 2e 66 6e 61 6d 65 29 20 26 26 20 73 (hdr.fname) && s
1ef0: 74 64 2e 66 69 6c 65 2e 69 73 66 69 6c 65 28 68 td.file.isfile(h
1f00: 64 72 2e 66 6e 61 6d 65 29 20 29 0a 09 09 09 09 dr.fname) ).....
1f10: 09 2f 2f 20 2d 6e 0a 09 09 09 09 09 69 66 28 20 .// -n......if(
1f20: 6e 65 77 66 69 6c 65 5f 6f 6e 6c 79 20 29 0a 09 newfile_only )..
1f30: 09 09 09 09 7b 0a 09 09 09 09 09 09 69 66 28 20 ....{.......if(
1f40: 6e 65 77 65 72 5f 74 68 61 6e 28 68 64 72 2e 64 newer_than(hdr.d
1f50: 61 74 65 2c 68 64 72 2e 74 69 6d 65 2c 68 64 72 ate,hdr.time,hdr
1f60: 2e 66 6e 61 6d 65 29 20 29 0a 09 09 09 09 09 09 .fname) ).......
1f70: 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 .return BgaAnswe
1f80: 72 2e 53 6b 69 70 49 74 3b 0a 09 09 09 09 09 7d r.SkipIt;......}
1f90: 0a 09 09 09 09 09 65 6c 73 65 0a 09 09 09 09 09 ......else......
1fa0: 7b 0a 09 09 09 09 09 09 69 6e 74 20 72 20 3d 20 {.......int r =
1fb0: 4d 65 73 73 61 67 65 42 6f 78 28 20 64 6c 67 3f MessageBox( dlg?
1fc0: 64 6c 67 2e 68 77 6e 64 3a 77 6e 64 2c 0a 09 09 dlg.hwnd:wnd,...
1fd0: 09 09 09 09 09 74 6f 53 74 72 69 6e 67 7a 28 22 .....toStringz("
1fe0: 4f 76 65 72 77 72 69 74 65 20 22 7e 68 64 72 2e Overwrite "~hdr.
1ff0: 66 6e 61 6d 65 7e 22 20 3f 22 29 2c 0a 09 09 09 fname~" ?"),....
2000: 09 09 09 09 22 51 42 67 61 33 32 2e 64 6c 6c 22 ...."QBga32.dll"
2010: 2c 20 4d 42 5f 59 45 53 4e 4f 43 41 4e 43 45 4c , MB_YESNOCANCEL
2020: 20 29 3b 0a 09 09 09 09 09 09 69 66 28 20 72 20 );.......if( r
2030: 3d 3d 20 49 44 4e 4f 20 29 20 20 20 20 20 72 65 == IDNO ) re
2040: 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 turn BgaAnswer.S
2050: 6b 69 70 49 74 3b 0a 09 09 09 09 09 09 69 66 28 kipIt;.......if(
2060: 20 72 20 3d 3d 20 49 44 43 41 4e 43 45 4c 20 29 r == IDCANCEL )
2070: 20 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 return BgaAnswe
2080: 72 2e 41 62 6f 72 74 3b 0a 09 09 09 09 09 7d 0a r.Abort;......}.
2090: 09 09 09 09 7d 20 63 61 74 63 68 20 7b 7d 0a 0a ....} catch {}..
20a0: 09 09 09 63 75 72 5f 68 64 72 20 3d 20 68 64 72 ...cur_hdr = hdr
20b0: 3b 0a 09 09 09 69 66 28 20 21 64 6f 5f 6f 77 6e ;....if( !do_own
20c0: 65 72 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 46 erwnd_proc( OP_F
20d0: 49 4c 45 5f 42 45 47 49 4e 2c 20 26 63 75 72 5f ILE_BEGIN, &cur_
20e0: 68 64 72 2c 20 30 2c 20 73 72 63 5f 66 6e 61 6d hdr, 0, src_fnam
20f0: 65 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e e ) ).....return
2100: 20 42 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 BgaAnswer.Abort
2110: 3b 0a 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 ;....return BgaA
2120: 6e 73 77 65 72 2e 4d 65 6c 74 49 74 3b 0a 09 09 nswer.MeltIt;...
2130: 7d 0a 0a 09 09 42 67 61 41 6e 73 77 65 72 20 70 }....BgaAnswer p
2140: 72 6f 67 72 65 73 73 5f 68 61 6e 64 6c 65 72 28 rogress_handler(
2150: 20 69 6e 74 20 63 75 72 2c 20 69 6e 74 20 6d 61 int cur, int ma
2160: 78 20 29 0a 09 09 7b 0a 09 09 09 70 72 6f 63 65 x )...{....proce
2170: 73 73 5f 6d 65 73 73 61 67 65 73 28 29 3b 0a 09 ss_messages();..
2180: 09 09 69 66 28 20 64 6c 67 20 29 0a 09 09 09 09 ..if( dlg ).....
2190: 69 66 28 20 64 6c 67 2e 63 6c 6f 73 65 64 20 29 if( dlg.closed )
21a0: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 ......return Bga
21b0: 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 Answer.Abort;...
21c0: 09 09 65 6c 73 65 0a 09 09 09 09 09 64 6c 67 2e ..else......dlg.
21d0: 73 65 74 5f 70 6f 73 28 20 63 61 73 74 28 72 65 set_pos( cast(re
21e0: 61 6c 29 28 63 75 72 29 2f 6d 61 78 20 29 3b 0a al)(cur)/max );.
21f0: 09 09 09 69 66 28 20 21 64 6f 5f 6f 77 6e 65 72 ...if( !do_owner
2200: 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 46 49 4c wnd_proc( OP_FIL
2210: 45 5f 4d 49 44 44 4c 45 2c 20 26 63 75 72 5f 68 E_MIDDLE, &cur_h
2220: 64 72 2c 20 63 75 72 2c 20 73 72 63 5f 66 6e 61 dr, cur, src_fna
2230: 6d 65 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 me ) ).....retur
2240: 6e 20 42 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 n BgaAnswer.Abor
2250: 74 3b 0a 09 09 09 72 65 74 75 72 6e 20 42 67 61 t;....return Bga
2260: 41 6e 73 77 65 72 2e 4d 65 6c 74 49 74 3b 0a 09 Answer.MeltIt;..
2270: 09 7d 0a 0a 09 09 28 6e 65 77 20 42 67 61 4d 65 .}....(new BgaMe
2280: 6c 74 65 72 28 61 72 63 5f 6e 61 6d 65 29 29 2e lter(arc_name)).
2290: 73 74 61 72 74 28 26 68 61 6e 64 6c 65 72 2c 26 start(&handler,&
22a0: 70 72 6f 67 72 65 73 73 5f 68 61 6e 64 6c 65 72 progress_handler
22b0: 29 3b 0a 09 7d 0a 09 63 61 74 63 68 28 20 42 67 );..}..catch( Bg
22c0: 61 4d 65 6c 74 65 72 45 72 72 6f 72 20 65 20 29 aMelterError e )
22d0: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 65 2e 65 ..{...return e.e
22e0: 72 72 63 6f 64 65 3b 0a 09 7d 0a 09 66 69 6e 61 rrcode;..}..fina
22f0: 6c 6c 79 0a 09 7b 0a 09 09 64 6f 5f 6f 77 6e 65 lly..{...do_owne
2300: 72 77 6e 64 5f 70 72 6f 63 28 20 4f 50 5f 41 52 rwnd_proc( OP_AR
2310: 43 5f 45 4e 44 2c 20 6e 75 6c 6c 2c 20 30 2c 20 C_END, null, 0,
2320: 61 72 63 5f 6e 61 6d 65 20 29 3b 0a 09 09 69 66 arc_name );...if
2330: 28 20 64 6c 67 20 29 0a 09 09 09 64 6c 67 2e 63 ( dlg )....dlg.c
2340: 6c 6f 73 65 28 29 3b 0a 09 7d 0a 09 72 65 74 75 lose();..}..retu
2350: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d rn 0;.}..//-----
2360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 -----------.// .
23a0: b5 b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 ................
23b0: a4 e3 83 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 85 ....API.........
23c0: 28 20 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 ( SetOwnerWindow
23d0: 20 29 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ).//-----------
23e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 0a 0a 61 6c 69 67 6e 28 31 29 20 -----..align(1)
2420: 73 74 72 75 63 74 20 45 58 54 52 41 43 54 49 4e struct EXTRACTIN
2430: 47 49 4e 46 4f 0a 7b 0a 09 44 57 4f 52 44 20 20 GINFO.{..DWORD
2440: 20 64 77 46 69 6c 65 53 69 7a 65 3b 0a 09 44 57 dwFileSize;..DW
2450: 4f 52 44 20 20 20 64 77 57 72 69 74 65 53 69 7a ORD dwWriteSiz
2460: 65 3b 0a 09 63 68 61 72 20 20 20 20 73 7a 53 6f e;..char szSo
2470: 75 72 63 65 46 69 6c 65 4e 61 6d 65 5b 35 31 32 urceFileName[512
2480: 20 2b 20 31 5d 3b 0a 09 63 68 61 72 20 20 20 20 + 1];..char
2490: 64 75 6d 6d 79 31 5b 33 5d 3b 0a 09 63 68 61 72 dummy1[3];..char
24a0: 20 20 20 20 73 7a 44 65 73 74 46 69 6c 65 4e 61 szDestFileNa
24b0: 6d 65 5b 35 31 32 20 2b 20 31 5d 3b 0a 09 63 68 me[512 + 1];..ch
24c0: 61 72 20 20 20 20 64 75 6d 6d 79 5b 33 5d 3b 0a ar dummy[3];.
24d0: 7d 0a 61 6c 69 67 6e 28 31 29 20 73 74 72 75 63 }.align(1) struc
24e0: 74 20 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f t EXTRACTINGINFO
24f0: 45 58 0a 7b 0a 09 45 58 54 52 41 43 54 49 4e 47 EX.{..EXTRACTING
2500: 49 4e 46 4f 20 65 78 69 6e 66 6f 3b 0a 09 44 57 INFO exinfo;..DW
2510: 4f 52 44 20 64 77 43 6f 6d 70 72 65 73 73 65 64 ORD dwCompressed
2520: 53 69 7a 65 3b 0a 09 44 57 4f 52 44 20 64 77 43 Size;..DWORD dwC
2530: 52 43 3b 0a 09 55 49 4e 54 20 20 75 4f 53 54 79 RC;..UINT uOSTy
2540: 70 65 3b 0a 09 57 4f 52 44 20 20 77 52 61 74 69 pe;..WORD wRati
2550: 6f 3b 0a 09 57 4f 52 44 20 20 77 44 61 74 65 3b o;..WORD wDate;
2560: 0a 09 57 4f 52 44 20 20 77 54 69 6d 65 3b 0a 09 ..WORD wTime;..
2570: 63 68 61 72 20 20 73 7a 41 74 74 72 69 62 75 74 char szAttribut
2580: 65 5b 38 5d 3b 0a 09 63 68 61 72 20 20 73 7a 4d e[8];..char szM
2590: 6f 64 65 5b 38 5d 3b 0a 7d 0a 0a 48 57 4e 44 20 ode[8];.}..HWND
25a0: 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 3b 0a g_owner_window;.
25b0: 65 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 29 20 extern(Windows)
25c0: 42 4f 4f 4c 20 66 75 6e 63 74 69 6f 6e 28 48 57 BOOL function(HW
25d0: 4e 44 2c 55 49 4e 54 2c 55 49 4e 54 2c 45 58 54 ND,UINT,UINT,EXT
25e0: 52 41 43 54 49 4e 47 49 4e 46 4f 45 58 2a 29 20 RACTINGINFOEX*)
25f0: 67 5f 68 61 6e 64 6c 65 72 3b 0a 65 78 74 65 72 g_handler;.exter
2600: 6e 28 57 69 6e 64 6f 77 73 29 20 42 4f 4f 4c 20 n(Windows) BOOL
2610: 6e 6f 65 78 5f 68 61 6e 64 6c 65 72 28 20 48 57 noex_handler( HW
2620: 4e 44 20 77 2c 55 49 4e 54 20 6d 2c 55 49 4e 54 ND w,UINT m,UINT
2630: 20 73 2c 20 45 58 54 52 41 43 54 49 4e 47 49 4e s, EXTRACTINGIN
2640: 46 4f 45 58 2a 20 65 20 29 0a 7b 0a 09 72 65 74 FOEX* e ).{..ret
2650: 75 72 6e 20 21 53 65 6e 64 4d 65 73 73 61 67 65 urn !SendMessage
2660: 28 20 77 2c 20 6d 2c 20 73 2c 20 63 61 73 74 28 ( w, m, s, cast(
2670: 4c 50 41 52 41 4d 29 20 26 65 2e 65 78 69 6e 66 LPARAM) &e.exinf
2680: 6f 20 29 3b 0a 7d 0a 0a 76 6f 69 64 20 42 67 61 o );.}..void Bga
2690: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 SetOwnerWindow_i
26a0: 6d 70 6c 28 20 48 57 4e 44 20 77 6e 64 20 29 0a mpl( HWND wnd ).
26b0: 7b 0a 09 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f {..g_owner_windo
26c0: 77 20 3d 20 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 w = wnd;..g_hand
26d0: 6c 65 72 20 20 20 20 20 20 3d 20 26 6e 6f 65 78 ler = &noex
26e0: 5f 68 61 6e 64 6c 65 72 3b 0a 7d 0a 0a 76 6f 69 _handler;.}..voi
26f0: 64 20 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 d BgaClearOwnerW
2700: 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 0a 7b 0a 09 indow_impl().{..
2710: 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 20 3d g_owner_window =
2720: 20 6e 75 6c 6c 3b 0a 09 67 5f 68 61 6e 64 6c 65 null;..g_handle
2730: 72 20 20 20 20 20 20 3d 20 6e 75 6c 6c 3b 0a 7d r = null;.}
2740: 0a 0a 76 6f 69 64 20 42 67 61 53 65 74 4f 77 6e ..void BgaSetOwn
2750: 65 72 57 69 6e 64 6f 77 45 78 5f 69 6d 70 6c 28 erWindowEx_impl(
2760: 20 48 57 4e 44 20 77 6e 64 2c 20 41 52 43 48 49 HWND wnd, ARCHI
2770: 56 45 52 50 52 4f 43 2a 20 70 72 6f 63 20 29 0a VERPROC* proc ).
2780: 7b 0a 09 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f {..g_owner_windo
2790: 77 20 3d 20 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 w = wnd;..g_hand
27a0: 6c 65 72 20 20 20 20 20 20 3d 20 2a 70 72 6f 63 ler = *proc
27b0: 3b 0a 7d 0a 0a 65 6e 75 6d 20 7b 20 4f 50 5f 46 ;.}..enum { OP_F
27c0: 49 4c 45 5f 42 45 47 49 4e 2c 20 4f 50 5f 46 49 ILE_BEGIN, OP_FI
27d0: 4c 45 5f 4d 49 44 44 4c 45 2c 20 4f 50 5f 41 52 LE_MIDDLE, OP_AR
27e0: 43 5f 45 4e 44 2c 20 4f 50 5f 41 52 43 5f 42 45 C_END, OP_ARC_BE
27f0: 47 49 4e 20 7d 0a 62 6f 6f 6c 20 64 6f 5f 6f 77 GIN }.bool do_ow
2800: 6e 65 72 77 6e 64 5f 70 72 6f 63 28 20 55 49 4e nerwnd_proc( UIN
2810: 54 20 75 53 74 61 74 65 2c 20 42 67 61 48 65 61 T uState, BgaHea
2820: 64 65 72 2a 20 68 64 72 2c 20 69 6e 74 20 63 75 der* hdr, int cu
2830: 72 2c 20 63 68 61 72 5b 5d 20 73 72 63 5f 66 6e r, char[] src_fn
2840: 61 6d 65 20 29 0a 7b 0a 09 69 66 28 20 67 5f 68 ame ).{..if( g_h
2850: 61 6e 64 6c 65 72 20 69 73 20 6e 75 6c 6c 20 29 andler is null )
2860: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a ...return true;.
2870: 09 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f 45 .EXTRACTINGINFOE
2880: 58 20 65 78 3b 0a 09 69 66 28 20 75 53 74 61 74 X ex;..if( uStat
2890: 65 20 3d 3d 20 4f 50 5f 41 52 43 5f 42 45 47 49 e == OP_ARC_BEGI
28a0: 4e 20 7c 7c 20 75 53 74 61 74 65 20 3d 3d 20 4f N || uState == O
28b0: 50 5f 41 52 43 5f 45 4e 44 20 29 0a 09 7b 0a 09 P_ARC_END )..{..
28c0: 09 6c 73 74 72 63 70 79 6e 28 20 65 78 2e 65 78 .lstrcpyn( ex.ex
28d0: 69 6e 66 6f 2e 73 7a 53 6f 75 72 63 65 46 69 6c info.szSourceFil
28e0: 65 4e 61 6d 65 2c 20 74 6f 53 74 72 69 6e 67 7a eName, toStringz
28f0: 28 73 72 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 (src_fname), 512
2900: 20 29 3b 0a 09 7d 0a 09 65 6c 73 65 0a 09 7b 0a );..}..else..{.
2910: 09 09 65 78 2e 65 78 69 6e 66 6f 2e 64 77 46 69 ..ex.exinfo.dwFi
2920: 6c 65 53 69 7a 65 20 20 3d 20 68 64 72 2e 6f 72 leSize = hdr.or
2930: 69 67 69 6e 61 6c 5f 73 69 7a 65 3b 0a 09 09 65 iginal_size;...e
2940: 78 2e 65 78 69 6e 66 6f 2e 64 77 57 72 69 74 65 x.exinfo.dwWrite
2950: 53 69 7a 65 20 3d 20 63 75 72 3b 0a 09 09 6c 73 Size = cur;...ls
2960: 74 72 63 70 79 6e 28 20 65 78 2e 65 78 69 6e 66 trcpyn( ex.exinf
2970: 6f 2e 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e 61 o.szSourceFileNa
2980: 6d 65 2c 20 74 6f 53 74 72 69 6e 67 7a 28 73 72 me, toStringz(sr
2990: 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 20 29 3b c_fname), 512 );
29a0: 0a 09 09 6c 73 74 72 63 70 79 6e 28 20 65 78 2e ...lstrcpyn( ex.
29b0: 65 78 69 6e 66 6f 2e 73 7a 44 65 73 74 46 69 6c exinfo.szDestFil
29c0: 65 4e 61 6d 65 2c 20 74 6f 53 74 72 69 6e 67 7a eName, toStringz
29d0: 28 68 64 72 2e 66 6e 61 6d 65 29 2c 20 35 31 32 (hdr.fname), 512
29e0: 20 29 3b 0a 09 09 65 78 2e 64 77 43 6f 6d 70 72 );...ex.dwCompr
29f0: 65 73 73 65 64 53 69 7a 65 20 3d 20 68 64 72 2e essedSize = hdr.
2a00: 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 7a 65 3b compressed_size;
2a10: 0a 09 09 65 78 2e 77 52 61 74 69 6f 20 3d 20 63 ...ex.wRatio = c
2a20: 61 73 74 28 69 6e 74 29 28 20 28 63 61 73 74 28 ast(int)( (cast(
2a30: 72 65 61 6c 29 68 64 72 2e 63 6f 6d 70 72 65 73 real)hdr.compres
2a40: 73 65 64 5f 73 69 7a 65 29 2f 68 64 72 2e 6f 72 sed_size)/hdr.or
2a50: 69 67 69 6e 61 6c 5f 73 69 7a 65 2a 31 30 30 30 iginal_size*1000
2a60: 20 29 3b 0a 09 09 65 78 2e 77 44 61 74 65 20 20 );...ex.wDate
2a70: 3d 20 68 64 72 2e 64 61 74 65 3b 0a 09 09 65 78 = hdr.date;...ex
2a80: 2e 77 54 69 6d 65 20 20 3d 20 68 64 72 2e 74 69 .wTime = hdr.ti
2a90: 6d 65 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 me;...ex.szAttri
2aa0: 62 75 74 65 5b 30 5d 20 3d 20 28 68 64 72 2e 61 bute[0] = (hdr.a
2ab0: 74 74 72 69 62 26 33 32 20 3f 20 27 41 27 3a 20 ttrib&32 ? 'A':
2ac0: 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 '-');...ex.szAtt
2ad0: 72 69 62 75 74 65 5b 31 5d 20 3d 20 28 68 64 72 ribute[1] = (hdr
2ae0: 2e 61 74 74 72 69 62 26 31 20 20 3f 20 27 52 27 .attrib&1 ? 'R'
2af0: 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 : '-');...ex.szA
2b00: 74 74 72 69 62 75 74 65 5b 32 5d 20 3d 20 28 68 ttribute[2] = (h
2b10: 64 72 2e 61 74 74 72 69 62 26 32 20 20 3f 20 27 dr.attrib&2 ? '
2b20: 48 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 H': '-');...ex.s
2b30: 7a 41 74 74 72 69 62 75 74 65 5b 33 5d 20 3d 20 zAttribute[3] =
2b40: 28 68 64 72 2e 61 74 74 72 69 62 26 34 20 20 3f (hdr.attrib&4 ?
2b50: 20 27 53 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 'S': '-');...ex
2b60: 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 34 5d 20 .szAttribute[4]
2b70: 3d 20 28 68 64 72 2e 61 74 74 72 69 62 26 31 36 = (hdr.attrib&16
2b80: 20 3f 20 27 44 27 3a 20 27 2d 27 29 3b 0a 09 09 ? 'D': '-');...
2b90: 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 35 ex.szAttribute[5
2ba0: 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 69 66 28 20 ] = '\0';...if(
2bb0: 68 64 72 2e 6d 65 74 68 6f 64 5b 30 5d 3d 3d 27 hdr.method[0]=='
2bc0: 47 27 20 29 0a 09 09 09 6c 73 74 72 63 70 79 28 G' )....lstrcpy(
2bd0: 65 78 2e 73 7a 4d 6f 64 65 2c 22 2d 67 7a 69 70 ex.szMode,"-gzip
2be0: 2d 22 29 3b 0a 09 09 65 6c 73 65 0a 09 09 09 6c -");...else....l
2bf0: 73 74 72 63 70 79 28 65 78 2e 73 7a 4d 6f 64 65 strcpy(ex.szMode
2c00: 2c 22 2d 62 7a 69 70 32 2d 22 29 3b 0a 09 7d 0a ,"-bzip2-");..}.
2c10: 0a 09 72 65 74 75 72 6e 20 66 61 6c 73 65 20 21 ..return false !
2c20: 3d 20 67 5f 68 61 6e 64 6c 65 72 28 20 67 5f 6f = g_handler( g_o
2c30: 77 6e 65 72 5f 77 69 6e 64 6f 77 2c 20 57 4d 5f wner_window, WM_
2c40: 41 52 43 45 58 54 52 41 43 54 2c 20 75 53 74 61 ARCEXTRACT, uSta
2c50: 74 65 2c 20 26 65 78 20 29 3b 0a 7d 0a 0a 2f 2f te, &ex );.}..//
2c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ca0: 0a 2f 2f 20 e3 83 91 e3 82 b9 e6 a4 9c e6 9f bb .// ............
2cb0: e7 b3 bb 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ....//----------
2cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2cf0: 2d 2d 2d 2d 2d 2d 0a 0a 61 6c 69 61 73 20 73 74 ------..alias st
2d00: 64 2e 63 2e 77 69 6e 64 6f 77 73 2e 77 69 6e 64 d.c.windows.wind
2d10: 6f 77 73 2e 49 73 44 42 43 53 4c 65 61 64 42 79 ows.IsDBCSLeadBy
2d20: 74 65 20 69 73 44 4c 3b 0a 63 68 61 72 5b 5d 20 te isDL;.char[]
2d30: 72 65 70 6c 61 63 65 5f 79 65 6e 28 20 63 68 61 replace_yen( cha
2d40: 72 5b 5d 20 73 20 29 0a 7b 0a 09 63 68 61 72 5b r[] s ).{..char[
2d50: 5d 20 61 6e 73 3b 0a 09 69 6e 74 20 6a 3d 30 3b ] ans;..int j=0;
2d60: 0a 09 66 6f 72 28 69 6e 74 20 69 3d 30 3b 20 69 ..for(int i=0; i
2d70: 21 3d 73 2e 6c 65 6e 67 74 68 3b 20 69 3d 69 2b !=s.length; i=i+
2d80: 28 69 73 44 4c 28 73 5b 69 5d 29 3f 32 3a 31 29 (isDL(s[i])?2:1)
2d90: 29 0a 09 09 69 66 28 20 73 5b 69 5d 20 3d 3d 20 )...if( s[i] ==
2da0: 27 5c 5c 27 20 29 0a 09 09 09 61 6e 73 7e 3d 73 '\\' )....ans~=s
2db0: 5b 6a 20 2e 2e 20 69 5d 2c 20 61 6e 73 7e 3d 27 [j .. i], ans~='
2dc0: 2f 27 2c 20 6a 3d 69 2b 31 3b 0a 09 61 6e 73 20 /', j=i+1;..ans
2dd0: 7e 3d 20 73 5b 6a 20 2e 2e 20 6c 65 6e 67 74 68 ~= s[j .. length
2de0: 5d 3b 0a 09 72 65 74 75 72 6e 20 61 6e 73 3b 0a ];..return ans;.
2df0: 7d 0a 0a 62 6f 6f 6c 20 77 69 6c 64 5f 6d 61 74 }..bool wild_mat
2e00: 63 68 28 20 63 68 61 72 5b 5d 20 77 69 6c 64 2c ch( char[] wild,
2e10: 20 63 68 61 72 5b 5d 20 6e 61 6d 65 20 29 0a 7b char[] name ).{
2e20: 0a 09 62 6f 6f 6c 20 77 69 6c 64 5f 6d 61 74 63 ..bool wild_matc
2e30: 68 5f 6e 6f 70 61 74 68 28 20 63 68 61 72 5b 5d h_nopath( char[]
2e40: 20 77 2c 20 63 68 61 72 5b 5d 20 73 20 29 0a 09 w, char[] s )..
2e50: 7b 0a 09 09 63 68 61 72 5b 5d 20 61 64 76 61 6e {...char[] advan
2e60: 63 65 28 20 63 68 61 72 5b 5d 20 73 20 29 0a 09 ce( char[] s )..
2e70: 09 7b 0a 09 09 09 72 65 74 75 72 6e 20 73 5b 28 .{....return s[(
2e80: 49 73 44 42 43 53 4c 65 61 64 42 79 74 65 28 73 IsDBCSLeadByte(s
2e90: 5b 30 5d 29 3f 32 3a 31 29 20 2e 2e 20 6c 65 6e [0])?2:1) .. len
2ea0: 67 74 68 5d 3b 0a 09 09 7d 0a 0a 09 09 77 68 69 gth];...}....whi
2eb0: 6c 65 28 20 77 2e 6c 65 6e 67 74 68 3e 30 20 29 le( w.length>0 )
2ec0: 0a 09 09 09 73 77 69 74 63 68 28 20 77 5b 30 5d ....switch( w[0]
2ed0: 20 29 0a 09 09 09 7b 0a 09 09 09 63 61 73 65 20 )....{....case
2ee0: 27 3f 27 3a 0a 09 09 09 09 69 66 28 20 73 2e 6c '?':.....if( s.l
2ef0: 65 6e 67 74 68 3d 3d 30 20 29 0a 09 09 09 09 09 ength==0 )......
2f00: 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 return false;...
2f10: 09 09 77 20 3d 20 61 64 76 61 6e 63 65 28 77 29 ..w = advance(w)
2f20: 3b 0a 09 09 09 09 73 20 3d 20 61 64 76 61 6e 63 ;.....s = advanc
2f30: 65 28 73 29 3b 0a 09 09 09 09 62 72 65 61 6b 3b e(s);.....break;
2f40: 0a 09 09 09 63 61 73 65 20 27 2a 27 3a 0a 09 09 ....case '*':...
2f50: 09 09 69 66 28 20 73 2e 6c 65 6e 67 74 68 3d 3d ..if( s.length==
2f60: 30 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e 20 0 )......return
2f70: 66 61 6c 73 65 3b 0a 09 09 09 09 77 20 3d 20 61 false;.....w = a
2f80: 64 76 61 6e 63 65 28 77 29 3b 0a 09 09 09 09 69 dvance(w);.....i
2f90: 66 28 20 77 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 f( w.length == 0
2fa0: 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e 20 74 )......return t
2fb0: 72 75 65 3b 0a 09 09 09 09 66 6f 72 28 20 3b 20 rue;.....for( ;
2fc0: 73 2e 6c 65 6e 67 74 68 21 3d 30 3b 20 73 3d 61 s.length!=0; s=a
2fd0: 64 76 61 6e 63 65 28 73 29 20 29 0a 09 09 09 09 dvance(s) ).....
2fe0: 09 69 66 28 20 77 69 6c 64 5f 6d 61 74 63 68 5f .if( wild_match_
2ff0: 6e 6f 70 61 74 68 28 77 2c 73 29 20 29 0a 09 09 nopath(w,s) )...
3000: 09 09 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b ....return true;
3010: 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 .....return fals
3020: 65 3b 0a 09 09 09 64 65 66 61 75 6c 74 3a 0a 09 e;....default:..
3030: 09 09 09 69 66 28 20 73 2e 6c 65 6e 67 74 68 3d ...if( s.length=
3040: 3d 30 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e =0 )......return
3050: 20 66 61 6c 73 65 3b 0a 09 09 09 09 69 66 28 20 false;.....if(
3060: 69 73 44 4c 28 77 5b 30 5d 29 20 29 0a 09 09 09 isDL(w[0]) )....
3070: 09 20 20 7b 20 69 66 28 20 77 5b 30 2e 2e 32 5d . { if( w[0..2]
3080: 20 21 3d 20 73 5b 30 2e 2e 32 5d 20 29 20 72 65 != s[0..2] ) re
3090: 74 75 72 6e 20 66 61 6c 73 65 3b 20 7d 0a 09 09 turn false; }...
30a0: 09 09 65 6c 73 65 0a 09 09 09 09 20 20 7b 20 69 ..else..... { i
30b0: 66 28 20 77 5b 30 5d 20 20 20 20 21 3d 20 73 5b f( w[0] != s[
30c0: 30 5d 20 20 20 20 29 20 72 65 74 75 72 6e 20 66 0] ) return f
30d0: 61 6c 73 65 3b 20 7d 0a 09 09 09 09 77 20 3d 20 alse; }.....w =
30e0: 61 64 76 61 6e 63 65 28 77 29 3b 0a 09 09 09 09 advance(w);.....
30f0: 73 20 3d 20 61 64 76 61 6e 63 65 28 73 29 3b 0a s = advance(s);.
3100: 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 7d 0a ....break;....}.
3110: 09 09 72 65 74 75 72 6e 20 73 2e 6c 65 6e 67 74 ..return s.lengt
3120: 68 3d 3d 30 3b 0a 09 7d 0a 0a 09 69 66 28 20 77 h==0;..}...if( w
3130: 69 6c 64 3d 3d 22 22 20 7c 7c 20 77 69 6c 64 3d ild=="" || wild=
3140: 3d 22 2a 2e 2a 22 20 7c 7c 20 77 69 6c 64 3d 3d ="*.*" || wild==
3150: 22 2a 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a 2a "*" || wild=="**
3160: 22 20 29 0a 09 09 72 65 74 75 72 6e 20 74 72 75 " )...return tru
3170: 65 3b 0a 0a 09 63 68 61 72 5b 5d 5b 5d 20 77 69 e;...char[][] wi
3180: 6c 64 73 20 3d 20 73 70 6c 69 74 28 20 72 65 70 lds = split( rep
3190: 6c 61 63 65 5f 79 65 6e 28 20 74 6f 6c 6f 77 65 lace_yen( tolowe
31a0: 72 28 77 69 6c 64 29 20 29 2c 20 22 2f 22 20 29 r(wild) ), "/" )
31b0: 3b 0a 09 63 68 61 72 5b 5d 5b 5d 20 6e 61 6d 65 ;..char[][] name
31c0: 73 20 3d 20 73 70 6c 69 74 28 20 72 65 70 6c 61 s = split( repla
31d0: 63 65 5f 79 65 6e 28 20 74 6f 6c 6f 77 65 72 28 ce_yen( tolower(
31e0: 6e 61 6d 65 29 20 29 2c 20 22 2f 22 20 29 3b 0a name) ), "/" );.
31f0: 0a 09 69 66 28 20 77 69 6c 64 73 2e 6c 65 6e 67 ..if( wilds.leng
3200: 74 68 20 21 3d 20 6e 61 6d 65 73 2e 6c 65 6e 67 th != names.leng
3210: 74 68 20 29 0a 09 09 72 65 74 75 72 6e 20 66 61 th )...return fa
3220: 6c 73 65 3b 0a 09 66 6f 72 28 69 6e 74 20 69 3d lse;..for(int i=
3230: 30 3b 20 69 21 3d 77 69 6c 64 73 2e 6c 65 6e 67 0; i!=wilds.leng
3240: 74 68 3b 20 2b 2b 69 29 0a 09 09 69 66 28 20 77 th; ++i)...if( w
3250: 69 6c 64 73 5b 69 5d 21 3d 22 2a 2e 2a 22 20 26 ilds[i]!="*.*" &
3260: 26 20 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 22 20 & wilds[i]!="*"
3270: 26 26 20 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 2a && wilds[i]!="**
3280: 22 20 29 0a 09 09 09 69 66 28 20 21 77 69 6c 64 " )....if( !wild
3290: 5f 6d 61 74 63 68 5f 6e 6f 70 61 74 68 28 20 77 _match_nopath( w
32a0: 69 6c 64 73 5b 69 5d 2c 20 6e 61 6d 65 73 5b 69 ilds[i], names[i
32b0: 5d 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e ] ) ).....return
32c0: 20 66 61 6c 73 65 3b 0a 09 72 65 74 75 72 6e 20 false;..return
32d0: 74 72 75 65 3b 0a 7d 0a 0a 63 68 61 72 5b 5d 20 true;.}..char[]
32e0: 63 68 65 63 6b 5f 70 61 74 68 28 20 63 68 61 72 check_path( char
32f0: 5b 5d 20 70 61 74 68 20 29 0a 7b 0a 09 2f 2f 20 [] path ).{..//
3300: 43 3a 5c 20 3d 3d 3e 20 43 5f 5c 0a 09 69 66 28 C:\ ==> C_\..if(
3310: 20 70 61 74 68 2e 6c 65 6e 67 74 68 3e 3d 32 20 path.length>=2
3320: 26 26 20 70 61 74 68 5b 31 5d 3d 3d 27 3a 27 20 && path[1]==':'
3330: 29 0a 09 09 70 61 74 68 20 3d 20 70 61 74 68 2e )...path = path.
3340: 64 75 70 2c 20 70 61 74 68 5b 31 5d 20 3d 20 27 dup, path[1] = '
3350: 5f 27 3b 0a 0a 09 2f 2f 20 5c 5c 68 6f 67 65 20 _';...// \\hoge
3360: 3d 3d 3e 20 68 6f 67 65 0a 09 2f 2f 20 2f 68 6f ==> hoge..// /ho
3370: 67 65 20 20 3d 3d 3e 20 68 6f 67 65 0a 09 77 68 ge ==> hoge..wh
3380: 69 6c 65 28 20 70 61 74 68 2e 6c 65 6e 67 74 68 ile( path.length
3390: 3e 30 20 26 26 20 28 70 61 74 68 5b 30 5d 3d 3d >0 && (path[0]==
33a0: 27 5c 5c 27 7c 7c 70 61 74 68 5b 30 5d 3d 3d 27 '\\'||path[0]=='
33b0: 2f 27 29 20 29 0a 09 09 70 61 74 68 20 3d 20 70 /') )...path = p
33c0: 61 74 68 5b 31 2e 2e 6c 65 6e 67 74 68 5d 3b 0a ath[1..length];.
33d0: 0a 09 2f 2f 20 2e 2e 20 3d 3d 3e 20 5f 5f 0a 09 ..// .. ==> __..
33e0: 63 68 61 72 5b 5d 5b 5d 20 70 61 74 68 73 20 3d char[][] paths =
33f0: 20 73 70 6c 69 74 28 20 72 65 70 6c 61 63 65 5f split( replace_
3400: 79 65 6e 28 70 61 74 68 29 2c 20 22 2f 22 20 29 yen(path), "/" )
3410: 3b 0a 09 4c 31 3a 0a 09 66 6f 72 65 61 63 68 28 ;..L1:..foreach(
3420: 20 69 6e 6f 75 74 20 63 68 61 72 5b 5d 20 70 63 inout char[] pc
3430: 20 3b 20 70 61 74 68 73 20 29 0a 09 09 69 66 28 ; paths )...if(
3440: 20 70 63 2e 6c 65 6e 67 74 68 20 3e 3d 20 32 20 pc.length >= 2
3450: 29 0a 09 09 7b 0a 09 09 09 66 6f 72 65 61 63 68 )...{....foreach
3460: 28 20 63 68 61 72 20 63 20 3b 20 70 63 20 29 0a ( char c ; pc ).
3470: 09 09 09 09 69 66 28 20 63 20 21 3d 20 27 2e 27 ....if( c != '.'
3480: 20 29 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 )......continue
3490: 20 4c 31 3b 0a 09 09 09 70 63 20 3d 20 72 65 70 L1;....pc = rep
34a0: 6c 61 63 65 28 20 70 63 2c 20 22 2e 22 2c 20 22 lace( pc, ".", "
34b0: 5f 22 20 29 3b 0a 09 09 7d 0a 0a 09 72 65 74 75 _" );...}...retu
34c0: 72 6e 20 6a 6f 69 6e 28 20 70 61 74 68 73 2c 20 rn join( paths,
34d0: 22 5c 5c 22 20 29 3b 0a 7d 0a 0a 0a 0a 2f 2f 2d "\\" );.}....//-
34e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3520: 2f 2f 20 e7 b0 a1 e6 98 93 e3 83 86 e3 82 b9 e3 // .............
3530: 83 88 ef bc a0 e3 82 82 e3 81 a3 e3 81 a8 e3 83 ................
3540: 9e e3 82 b8 e3 83 a1 e3 81 ab e6 9b b8 e3 81 8b ................
3550: e3 81 aa e3 81 8d e3 82 83 e2 80 a6 0a 2f 2f 2d .............//-
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
35a0: 0a 75 6e 69 74 74 65 73 74 0a 7b 0a 09 61 73 73 .unittest.{..ass
35b0: 65 72 74 28 20 63 68 65 63 6b 5f 70 61 74 68 28 ert( check_path(
35c0: 60 5c 5c 5c 5c 68 6f 67 65 5c 66 75 67 61 60 29 `\\\\hoge\fuga`)
35d0: 3d 3d 60 68 6f 67 65 5c 66 75 67 61 60 20 29 3b ==`hoge\fuga` );
35e0: 0a 09 61 73 73 65 72 74 28 20 63 68 65 63 6b 5f ..assert( check_
35f0: 70 61 74 68 28 60 2f 75 73 72 2f 6c 6f 63 61 6c path(`/usr/local
3600: 2f 60 29 3d 3d 60 75 73 72 5c 6c 6f 63 61 6c 5c /`)==`usr\local\
3610: 60 20 29 3b 0a 09 61 73 73 65 72 74 28 20 63 68 ` );..assert( ch
3620: 65 63 6b 5f 70 61 74 68 28 60 2e 2e 5c 61 62 63 eck_path(`..\abc
3630: 20 64 65 66 5c 2e 2e 2e 5c 2e 5c 67 60 29 3d 3d def\...\.\g`)==
3640: 60 5f 5f 5c 61 62 63 20 64 65 66 5c 5f 5f 5f 5c `__\abc def\___\
3650: 2e 5c 67 60 20 29 3b 0a 09 61 73 73 65 72 74 28 .\g` );..assert(
3660: 20 77 69 6c 64 5f 6d 61 74 63 68 28 60 61 2f 62 wild_match(`a/b
3670: 2f 63 60 2c 60 41 5c 62 5c 43 60 29 20 29 3b 0a /c`,`A\b\C`) );.
3680: 09 61 73 73 65 72 74 28 20 77 69 6c 64 5f 6d 61 .assert( wild_ma
3690: 74 63 68 28 60 61 2f 2a 2e 2a 2f 61 3f 78 60 2c tch(`a/*.*/a?x`,
36a0: 60 41 5c 68 6f 67 65 5c 41 66 78 60 29 20 29 3b `A\hoge\Afx`) );
36b0: 0a 09 61 73 73 65 72 74 28 20 42 67 61 5f 69 6d ..assert( Bga_im
36c0: 70 6c 28 6e 75 6c 6c 2c 22 61 20 68 6f 67 65 22 pl(null,"a hoge"
36d0: 29 20 3c 20 30 20 29 3b 0a 7d 0a ) < 0 );.}.