0000: 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 63 private import c
0010: 6f 72 65 2e 73 79 73 2e 77 69 6e 64 6f 77 73 2e ore.sys.windows.
0020: 64 6c 6c 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 dll;.private imp
0030: 6f 72 74 20 77 69 6e 33 32 2e 77 69 6e 64 6f 77 ort win32.window
0040: 73 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 6f 72 s;.private impor
0050: 74 20 77 69 6e 33 32 2e 77 69 6e 75 73 65 72 3b t win32.winuser;
0060: 0a 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 .private import
0070: 73 74 64 2e 73 74 72 69 6e 67 3b 0a 70 72 69 76 std.string;.priv
0080: 61 74 65 20 69 6d 70 6f 72 74 20 73 74 64 2e 66 ate import std.f
0090: 69 6c 65 3b 0a 70 72 69 76 61 74 65 20 69 6d 70 ile;.private imp
00a0: 6f 72 74 20 75 74 69 6c 3b 0a 70 72 69 76 61 74 ort util;.privat
00b0: 65 20 69 6d 70 6f 72 74 20 77 69 6e 64 6c 6c 3b e import windll;
00c0: 0a 70 72 69 76 61 74 65 20 69 6d 70 6f 72 74 20 .private import
00d0: 62 67 61 5f 6d 65 6c 74 65 72 3b 0a 70 72 69 76 bga_melter;.priv
00e0: 61 74 65 20 69 6d 70 6f 72 74 20 71 62 67 61 5f ate import qbga_
00f0: 67 75 69 3b 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d gui;..//--------
0100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 2f 2f 20 e3 81 8a e3 --------.// ....
0140: 81 8d e3 81 be e3 82 8a e3 81 ae 44 4c 4c e5 88 ...........DLL..
0150: 9d e6 9c 9f e5 8c 96 e3 83 ab e3 83 bc e3 83 81 ................
0160: e3 83 b3 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ....//----------
0170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01a0: 2d 2d 2d 2d 2d 2d 0a 0a 5f 5f 67 73 68 61 72 65 ------..__gshare
01b0: 64 20 48 49 4e 53 54 41 4e 43 45 20 67 5f 68 69 d HINSTANCE g_hi
01c0: 6e 73 74 3b 0a 0a 65 78 74 65 72 6e 20 28 57 69 nst;..extern (Wi
01d0: 6e 64 6f 77 73 29 0a 42 4f 4f 4c 20 44 6c 6c 4d ndows).BOOL DllM
01e0: 61 69 6e 28 20 48 49 4e 53 54 41 4e 43 45 20 69 ain( HINSTANCE i
01f0: 6e 73 74 2c 20 55 4c 4f 4e 47 20 72 65 61 73 6f nst, ULONG reaso
0200: 6e 2c 20 76 6f 69 64 2a 20 72 65 73 65 72 76 65 n, void* reserve
0210: 64 20 29 0a 7b 0a 09 73 77 69 74 63 68 28 20 72 d ).{..switch( r
0220: 65 61 73 6f 6e 20 29 0a 09 7b 0a 09 63 61 73 65 eason )..{..case
0230: 20 44 4c 4c 5f 50 52 4f 43 45 53 53 5f 41 54 54 DLL_PROCESS_ATT
0240: 41 43 48 3a 0a 09 09 67 5f 68 69 6e 73 74 20 3d ACH:...g_hinst =
0250: 20 69 6e 73 74 3b 0a 09 09 64 6c 6c 5f 70 72 6f inst;...dll_pro
0260: 63 65 73 73 5f 61 74 74 61 63 68 28 20 69 6e 73 cess_attach( ins
0270: 74 2c 20 74 72 75 65 20 29 3b 0a 09 09 69 66 28 t, true );...if(
0280: 20 67 5f 6f 72 69 67 5f 64 6c 6c 20 69 73 20 6e g_orig_dll is n
0290: 75 6c 6c 20 29 0a 09 09 09 72 65 74 75 72 6e 20 ull )....return
02a0: 66 61 6c 73 65 3b 0a 09 09 62 72 65 61 6b 3b 0a false;...break;.
02b0: 0a 09 63 61 73 65 20 44 4c 4c 5f 50 52 4f 43 45 ..case DLL_PROCE
02c0: 53 53 5f 44 45 54 41 43 48 3a 0a 09 09 64 6c 6c SS_DETACH:...dll
02d0: 5f 70 72 6f 63 65 73 73 5f 64 65 74 61 63 68 28 _process_detach(
02e0: 20 69 6e 73 74 2c 20 74 72 75 65 20 29 3b 0a 09 inst, true );..
02f0: 09 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 44 .break;...case D
0300: 4c 4c 5f 54 48 52 45 41 44 5f 41 54 54 41 43 48 LL_THREAD_ATTACH
0310: 3a 0a 09 09 64 6c 6c 5f 74 68 72 65 61 64 5f 61 :...dll_thread_a
0320: 74 74 61 63 68 28 20 74 72 75 65 2c 20 74 72 75 ttach( true, tru
0330: 65 20 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 0a 09 e );...break;...
0340: 63 61 73 65 20 44 4c 4c 5f 54 48 52 45 41 44 5f case DLL_THREAD_
0350: 44 45 54 41 43 48 3a 0a 09 09 64 6c 6c 5f 74 68 DETACH:...dll_th
0360: 72 65 61 64 5f 64 65 74 61 63 68 28 20 74 72 75 read_detach( tru
0370: 65 2c 20 74 72 75 65 20 29 3b 0a 09 09 62 72 65 e, true );...bre
0380: 61 6b 3b 0a 0a 09 64 65 66 61 75 6c 74 3a 0a 09 ak;...default:..
0390: 7d 0a 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a }..return true;.
03a0: 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }..//-----------
03b0: 2d 2d 2d 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 0a 2f 2f 20 41 50 49 e8 bb a2 e9 -----.// API....
03f0: 80 81 e5 87 a6 e7 90 86 0a 2f 2f 2d 2d 2d 2d 2d .........//-----
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 5f 5f 67 -----------..__g
0440: 73 68 61 72 65 64 20 57 69 6e 44 4c 4c 20 67 5f shared WinDLL g_
0450: 6f 72 69 67 5f 64 6c 6c 20 3d 20 6e 75 6c 6c 3b orig_dll = null;
0460: 0a 5f 5f 67 73 68 61 72 65 64 20 55 49 4e 54 20 .__gshared UINT
0470: 20 20 57 4d 5f 41 52 43 45 58 54 52 41 43 54 3b WM_ARCEXTRACT;
0480: 0a 0a 73 74 61 74 69 63 20 74 68 69 73 28 29 0a ..static this().
0490: 7b 0a 09 67 5f 6f 72 69 67 5f 64 6c 6c 20 3d 20 {..g_orig_dll =
04a0: 57 69 6e 44 4c 4c 2e 6c 6f 61 64 28 20 22 5f 42 WinDLL.load( "_B
04b0: 67 61 33 32 2e 44 4c 4c 22 20 29 3b 0a 09 57 4d ga32.DLL" );..WM
04c0: 5f 41 52 43 45 58 54 52 41 43 54 20 3d 20 52 65 _ARCEXTRACT = Re
04d0: 67 69 73 74 65 72 57 69 6e 64 6f 77 4d 65 73 73 gisterWindowMess
04e0: 61 67 65 28 22 77 6d 5f 61 72 63 65 78 74 72 61 age("wm_arcextra
04f0: 63 74 22 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 ct");.}..static
0500: 7e 74 68 69 73 28 29 0a 7b 0a 09 67 5f 6f 72 69 ~this().{..g_ori
0510: 67 5f 64 6c 6c 2e 63 6c 6f 73 65 28 29 3b 0a 7d g_dll.close();.}
0520: 0a 0a 74 65 6d 70 6c 61 74 65 20 61 70 69 28 46 ..template api(F
0530: 6e 54 29 0a 7b 0a 09 46 6e 54 20 61 70 69 28 20 nT).{..FnT api(
0540: 73 74 72 69 6e 67 20 6e 61 6d 65 20 29 0a 09 7b string name )..{
0550: 0a 09 09 72 65 74 75 72 6e 20 67 5f 6f 72 69 67 ...return g_orig
0560: 5f 64 6c 6c 2e 67 65 74 5f 61 70 69 21 28 46 6e _dll.get_api!(Fn
0570: 54 29 28 20 6e 61 6d 65 20 29 3b 0a 09 7d 0a 7d T)( name );..}.}
0580: 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..//------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 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 0a 2f 2f 20 e7 b5 b1 e5 90 88 e3 82 ----.// ........
05d0: a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 90 41 50 49 .............API
05e0: ef bc 9a e8 bb a2 e9 80 81 0a 2f 2f 2d 2d 2d 2d ..........//----
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 65 78 ------------..ex
0630: 74 65 72 6e 28 57 69 6e 64 6f 77 73 29 0a 7b 0a tern(Windows).{.
0640: 09 69 6e 74 20 42 67 61 28 20 48 57 4e 44 20 61 .int Bga( HWND a
0650: 2c 20 69 6d 6d 75 74 61 62 6c 65 20 63 68 61 72 , immutable char
0660: 2a 20 62 2c 20 63 68 61 72 2a 20 63 2c 20 44 57 * b, char* c, DW
0670: 4f 52 44 20 64 20 29 0a 09 7b 0a 09 09 69 6e 74 ORD d )..{...int
0680: 20 72 20 3d 20 42 67 61 5f 69 6d 70 6c 28 20 61 r = Bga_impl( a
0690: 2c 20 62 2e 66 72 6f 6d 53 74 72 69 6e 67 7a 28 , b.fromStringz(
06a0: 29 20 29 3b 0a 09 09 69 66 28 20 72 20 3c 20 30 ) );...if( r < 0
06b0: 20 29 20 2f 2f 20 e3 81 93 e3 81 ae e3 83 80 e3 ) // ..........
06c0: 83 9f e3 83 bc 44 4c 4c e3 81 a7 e3 81 af e5 87 .....DLL........
06d0: a6 e7 90 86 e3 81 a7 e3 81 8d e3 81 aa e3 81 84 ................
06e0: e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 81 a0 e3 ................
06f0: 81 a3 e3 81 9f e6 99 82 0a 09 09 09 72 65 74 75 ............retu
0700: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0710: 42 67 61 29 29 28 22 42 67 61 22 29 28 61 2c 62 Bga))("Bga")(a,b
0720: 2c 63 2c 64 29 3b 0a 09 09 72 65 74 75 72 6e 20 ,c,d);...return
0730: 72 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 51 42 67 r;..}...WORD QBg
0740: 61 47 65 74 56 65 72 73 69 6f 6e 28 29 0a 09 7b aGetVersion()..{
0750: 0a 09 09 72 65 74 75 72 6e 20 34 3b 0a 09 7d 0a ...return 4;..}.
0760: 0a 09 57 4f 52 44 20 42 67 61 47 65 74 56 65 72 ..WORD BgaGetVer
0770: 73 69 6f 6e 28 29 0a 09 7b 0a 09 09 72 65 74 75 sion()..{...retu
0780: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0790: 42 67 61 47 65 74 56 65 72 73 69 6f 6e 29 29 28 BgaGetVersion))(
07a0: 22 42 67 61 47 65 74 56 65 72 73 69 6f 6e 22 29 "BgaGetVersion")
07b0: 28 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 ();..}...BOOL Bg
07c0: 61 47 65 74 52 75 6e 6e 69 6e 67 28 29 0a 09 7b aGetRunning()..{
07d0: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
07e0: 79 70 65 6f 66 28 26 42 67 61 47 65 74 52 75 6e ypeof(&BgaGetRun
07f0: 6e 69 6e 67 29 29 28 22 42 67 61 47 65 74 52 75 ning))("BgaGetRu
0800: 6e 6e 69 6e 67 22 29 28 29 3b 0a 09 7d 0a 0a 09 nning")();..}...
0810: 42 4f 4f 4c 20 42 67 61 43 68 65 63 6b 41 72 63 BOOL BgaCheckArc
0820: 68 69 76 65 28 20 63 68 61 72 2a 20 61 2c 20 69 hive( char* a, i
0830: 6e 74 20 62 20 29 0a 09 7b 0a 09 09 72 65 74 75 nt b )..{...retu
0840: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0850: 42 67 61 43 68 65 63 6b 41 72 63 68 69 76 65 29 BgaCheckArchive)
0860: 29 28 22 42 67 61 43 68 65 63 6b 41 72 63 68 69 )("BgaCheckArchi
0870: 76 65 22 29 28 61 2c 62 29 3b 0a 09 7d 0a 0a 09 ve")(a,b);..}...
0880: 42 4f 4f 4c 20 42 67 61 43 6f 6e 66 69 67 44 69 BOOL BgaConfigDi
0890: 61 6c 6f 67 28 20 48 57 4e 44 20 61 2c 20 63 68 alog( HWND a, ch
08a0: 61 72 2a 20 62 2c 20 69 6e 74 20 63 20 29 0a 09 ar* b, int c )..
08b0: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
08c0: 74 79 70 65 6f 66 28 26 42 67 61 43 6f 6e 66 69 typeof(&BgaConfi
08d0: 67 44 69 61 6c 6f 67 29 29 28 22 42 67 61 43 6f gDialog))("BgaCo
08e0: 6e 66 69 67 44 69 61 6c 6f 67 22 29 28 61 2c 62 nfigDialog")(a,b
08f0: 2c 63 29 3b 0a 09 7d 0a 0a 09 69 6e 74 20 42 67 ,c);..}...int Bg
0900: 61 47 65 74 46 69 6c 65 43 6f 75 6e 74 28 20 63 aGetFileCount( c
0910: 68 61 72 2a 20 61 20 29 0a 09 7b 0a 09 09 72 65 har* a )..{...re
0920: 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 turn api!(typeof
0930: 28 26 42 67 61 47 65 74 46 69 6c 65 43 6f 75 6e (&BgaGetFileCoun
0940: 74 29 29 28 22 42 67 61 47 65 74 46 69 6c 65 43 t))("BgaGetFileC
0950: 6f 75 6e 74 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 ount")(a);..}...
0960: 42 4f 4f 4c 20 42 67 61 51 75 65 72 79 46 75 6e BOOL BgaQueryFun
0970: 63 74 69 6f 6e 4c 69 73 74 28 20 69 6e 74 20 61 ctionList( int a
0980: 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 )..{...return a
0990: 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 51 pi!(typeof(&BgaQ
09a0: 75 65 72 79 46 75 6e 63 74 69 6f 6e 4c 69 73 74 ueryFunctionList
09b0: 29 29 28 22 42 67 61 51 75 65 72 79 46 75 6e 63 ))("BgaQueryFunc
09c0: 74 69 6f 6e 4c 69 73 74 22 29 28 61 29 3b 0a 09 tionList")(a);..
09d0: 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 64 2a 20 }...alias void*
09e0: 48 41 52 43 3b 0a 09 48 41 52 43 20 42 67 61 4f HARC;..HARC BgaO
09f0: 70 65 6e 41 72 63 68 69 76 65 28 20 48 57 4e 44 penArchive( HWND
0a00: 20 61 2c 20 63 68 61 72 2a 20 62 2c 20 44 57 4f a, char* b, DWO
0a10: 52 44 20 63 20 29 0a 09 7b 0a 09 09 72 65 74 75 RD c )..{...retu
0a20: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0a30: 42 67 61 4f 70 65 6e 41 72 63 68 69 76 65 29 29 BgaOpenArchive))
0a40: 28 22 42 67 61 4f 70 65 6e 41 72 63 68 69 76 65 ("BgaOpenArchive
0a50: 22 29 28 61 2c 62 2c 63 29 3b 0a 09 7d 0a 0a 09 ")(a,b,c);..}...
0a60: 69 6e 74 20 42 67 61 43 6c 6f 73 65 41 72 63 68 int BgaCloseArch
0a70: 69 76 65 28 20 48 41 52 43 20 61 20 29 0a 09 7b ive( HARC a )..{
0a80: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0a90: 79 70 65 6f 66 28 26 42 67 61 43 6c 6f 73 65 41 ypeof(&BgaCloseA
0aa0: 72 63 68 69 76 65 29 29 28 22 42 67 61 43 6c 6f rchive))("BgaClo
0ab0: 73 65 41 72 63 68 69 76 65 22 29 28 61 29 3b 0a seArchive")(a);.
0ac0: 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 64 2a .}...alias void*
0ad0: 20 4c 50 49 4e 44 49 56 49 44 55 41 4c 49 4e 46 LPINDIVIDUALINF
0ae0: 4f 3b 0a 09 69 6e 74 20 42 67 61 46 69 6e 64 46 O;..int BgaFindF
0af0: 69 72 73 74 28 20 48 41 52 43 20 61 2c 20 63 68 irst( HARC a, ch
0b00: 61 72 2a 20 62 2c 20 4c 50 49 4e 44 49 56 49 44 ar* b, LPINDIVID
0b10: 55 41 4c 49 4e 46 4f 20 63 20 29 0a 09 7b 0a 09 UALINFO c )..{..
0b20: 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 .return api!(typ
0b30: 65 6f 66 28 26 42 67 61 46 69 6e 64 46 69 72 73 eof(&BgaFindFirs
0b40: 74 29 29 28 22 42 67 61 46 69 6e 64 46 69 72 73 t))("BgaFindFirs
0b50: 74 22 29 28 61 2c 62 2c 63 29 3b 0a 09 7d 0a 0a t")(a,b,c);..}..
0b60: 09 69 6e 74 20 42 67 61 46 69 6e 64 4e 65 78 74 .int BgaFindNext
0b70: 28 20 48 41 52 43 20 61 2c 20 4c 50 49 4e 44 49 ( HARC a, LPINDI
0b80: 56 49 44 55 41 4c 49 4e 46 4f 20 62 20 29 0a 09 VIDUALINFO b )..
0b90: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0ba0: 74 79 70 65 6f 66 28 26 42 67 61 46 69 6e 64 4e typeof(&BgaFindN
0bb0: 65 78 74 29 29 28 22 42 67 61 46 69 6e 64 4e 65 ext))("BgaFindNe
0bc0: 78 74 22 29 28 61 2c 62 29 3b 0a 09 7d 0a 0a 09 xt")(a,b);..}...
0bd0: 44 57 4f 52 44 20 42 67 61 47 65 74 41 72 63 4f DWORD BgaGetArcO
0be0: 72 69 67 69 6e 61 6c 53 69 7a 65 28 20 48 41 52 riginalSize( HAR
0bf0: 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 C a )..{...retur
0c00: 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 n api!(typeof(&B
0c10: 67 61 47 65 74 41 72 63 4f 72 69 67 69 6e 61 6c gaGetArcOriginal
0c20: 53 69 7a 65 29 29 28 22 42 67 61 47 65 74 41 72 Size))("BgaGetAr
0c30: 63 4f 72 69 67 69 6e 61 6c 53 69 7a 65 22 29 28 cOriginalSize")(
0c40: 61 29 3b 0a 09 7d 0a 0a 09 44 57 4f 52 44 20 42 a);..}...DWORD B
0c50: 67 61 47 65 74 41 72 63 43 6f 6d 70 72 65 73 73 gaGetArcCompress
0c60: 65 64 53 69 7a 65 28 20 48 41 52 43 20 61 20 29 edSize( HARC a )
0c70: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 ..{...return api
0c80: 21 28 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 !(typeof(&BgaGet
0c90: 41 72 63 43 6f 6d 70 72 65 73 73 65 64 53 69 7a ArcCompressedSiz
0ca0: 65 29 29 28 22 42 67 61 47 65 74 41 72 63 43 6f e))("BgaGetArcCo
0cb0: 6d 70 72 65 73 73 65 64 53 69 7a 65 22 29 28 61 mpressedSize")(a
0cc0: 29 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 42 67 61 );..}...WORD Bga
0cd0: 47 65 74 41 72 63 52 61 74 69 6f 28 20 48 41 52 GetArcRatio( HAR
0ce0: 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 C a )..{...retur
0cf0: 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 n api!(typeof(&B
0d00: 67 61 47 65 74 41 72 63 52 61 74 69 6f 29 29 28 gaGetArcRatio))(
0d10: 22 42 67 61 47 65 74 41 72 63 52 61 74 69 6f 22 "BgaGetArcRatio"
0d20: 29 28 61 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 )(a);..}...BOOL
0d30: 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f BgaSetOwnerWindo
0d40: 77 28 20 48 57 4e 44 20 61 20 29 0a 09 7b 0a 09 w( HWND a )..{..
0d50: 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 .BOOL r = api!(t
0d60: 79 70 65 6f 66 28 26 42 67 61 53 65 74 4f 77 6e ypeof(&BgaSetOwn
0d70: 65 72 57 69 6e 64 6f 77 29 29 28 22 42 67 61 53 erWindow))("BgaS
0d80: 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 22 29 28 etOwnerWindow")(
0d90: 61 29 3b 0a 09 09 69 66 28 20 72 20 29 20 42 67 a);...if( r ) Bg
0da0: 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 5f aSetOwnerWindow_
0db0: 69 6d 70 6c 28 61 29 3b 0a 09 09 72 65 74 75 72 impl(a);...retur
0dc0: 6e 20 72 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 n r;..}...BOOL B
0dd0: 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 gaClearOwnerWind
0de0: 6f 77 28 29 0a 09 7b 0a 09 09 42 4f 4f 4c 20 72 ow()..{...BOOL r
0df0: 20 3d 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 = api!(typeof(&
0e00: 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e BgaClearOwnerWin
0e10: 64 6f 77 29 29 28 22 42 67 61 43 6c 65 61 72 4f dow))("BgaClearO
0e20: 77 6e 65 72 57 69 6e 64 6f 77 22 29 28 29 3b 0a wnerWindow")();.
0e30: 09 09 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 57 ..BgaClearOwnerW
0e40: 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 3b 0a 09 09 indow_impl();...
0e50: 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 61 return r;..}...a
0e60: 6c 69 61 73 20 42 4f 4f 4c 20 66 75 6e 63 74 69 lias BOOL functi
0e70: 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 2c 55 49 4e on(HWND,UINT,UIN
0e80: 54 2c 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f T,EXTRACTINGINFO
0e90: 45 58 2a 29 20 41 52 43 48 49 56 45 52 50 52 4f EX*) ARCHIVERPRO
0ea0: 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 53 65 74 4f C;..BOOL BgaSetO
0eb0: 77 6e 65 72 57 69 6e 64 6f 77 45 78 28 20 48 57 wnerWindowEx( HW
0ec0: 4e 44 20 61 2c 20 41 52 43 48 49 56 45 52 50 52 ND a, ARCHIVERPR
0ed0: 4f 43 2a 20 62 20 29 0a 09 7b 0a 09 09 42 4f 4f OC* b )..{...BOO
0ee0: 4c 20 72 20 3d 20 61 70 69 21 28 74 79 70 65 6f L r = api!(typeo
0ef0: 66 28 26 42 67 61 53 65 74 4f 77 6e 65 72 57 69 f(&BgaSetOwnerWi
0f00: 6e 64 6f 77 45 78 29 29 28 22 42 67 61 53 65 74 ndowEx))("BgaSet
0f10: 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 22 29 28 OwnerWindowEx")(
0f20: 61 2c 62 29 3b 0a 09 09 69 66 28 20 72 20 29 20 a,b);...if( r )
0f30: 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f BgaSetOwnerWindo
0f40: 77 45 78 5f 69 6d 70 6c 28 61 2c 62 29 3b 0a 09 wEx_impl(a,b);..
0f50: 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 .return r;..}...
0f60: 42 4f 4f 4c 20 42 67 61 4b 69 6c 6c 4f 77 6e 65 BOOL BgaKillOwne
0f70: 72 57 69 6e 64 6f 77 45 78 28 20 48 57 4e 44 20 rWindowEx( HWND
0f80: 61 20 29 0a 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 a )..{...BOOL r
0f90: 3d 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 = api!(typeof(&B
0fa0: 67 61 4b 69 6c 6c 4f 77 6e 65 72 57 69 6e 64 6f gaKillOwnerWindo
0fb0: 77 45 78 29 29 28 22 42 67 61 4b 69 6c 6c 4f 77 wEx))("BgaKillOw
0fc0: 6e 65 72 57 69 6e 64 6f 77 45 78 22 29 28 61 29 nerWindowEx")(a)
0fd0: 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f 77 6e 65 ;...BgaClearOwne
0fe0: 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 3b 0a rWindow_impl();.
0ff0: 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a ..return r;..}..
1000: 09 61 6c 69 61 73 20 76 6f 69 64 2a 20 55 4e 4c .alias void* UNL
1010: 48 41 5f 57 4e 44 5f 45 4e 55 4d 4d 45 4d 42 50 HA_WND_ENUMMEMBP
1020: 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 53 65 ROC;..BOOL BgaSe
1030: 74 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 tEnumMembersProc
1040: 28 20 55 4e 4c 48 41 5f 57 4e 44 5f 45 4e 55 4d ( UNLHA_WND_ENUM
1050: 4d 45 4d 42 50 52 4f 43 20 61 20 29 0a 09 7b 0a MEMBPROC a )..{.
1060: 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 ..return api!(ty
1070: 70 65 6f 66 28 26 42 67 61 53 65 74 45 6e 75 6d peof(&BgaSetEnum
1080: 4d 65 6d 62 65 72 73 50 72 6f 63 29 29 28 22 42 MembersProc))("B
1090: 67 61 53 65 74 45 6e 75 6d 4d 65 6d 62 65 72 73 gaSetEnumMembers
10a0: 50 72 6f 63 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 Proc")(a);..}...
10b0: 42 4f 4f 4c 20 42 67 61 43 6c 65 61 72 45 6e 75 BOOL BgaClearEnu
10c0: 6d 4d 65 6d 62 65 72 73 50 72 6f 63 28 29 0a 09 mMembersProc()..
10d0: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
10e0: 74 79 70 65 6f 66 28 26 42 67 61 43 6c 65 61 72 typeof(&BgaClear
10f0: 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 29 EnumMembersProc)
1100: 29 28 22 42 67 61 43 6c 65 61 72 45 6e 75 6d 4d )("BgaClearEnumM
1110: 65 6d 62 65 72 73 50 72 6f 63 22 29 28 29 3b 0a embersProc")();.
1120: 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d .}.}..//--------
1130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 2f 2f 20 e7 b5 b1 e5 --------.// ....
1170: 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 ................
1180: 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 85 28 20 42 .API.........( B
1190: 67 61 20 29 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d ga ).//---------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 0a 69 6e 74 20 42 67 61 -------..int Bga
11e0: 5f 69 6d 70 6c 28 20 48 57 4e 44 20 77 6e 64 2c _impl( HWND wnd,
11f0: 20 73 74 72 69 6e 67 20 63 6d 64 5f 73 74 72 20 string cmd_str
1200: 29 0a 7b 0a 09 65 6e 75 6d 20 7b 20 55 4e 53 55 ).{..enum { UNSU
1210: 50 50 4f 52 54 45 44 20 3d 20 2d 31 20 7d 0a 0a PPORTED = -1 }..
1220: 09 2f 2f 0a 09 2f 2f 20 e3 82 b3 e3 83 9e e3 83 .//..// ........
1230: b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 b3 e8 a7 a3 ................
1240: e6 9e 90 0a 09 2f 2f 0a 09 73 74 72 69 6e 67 5b .....//..string[
1250: 5d 20 63 6d 64 20 3d 20 63 6d 64 5f 70 61 72 73 ] cmd = cmd_pars
1260: 65 28 63 6d 64 5f 73 74 72 29 3b 0a 0a 09 2f 2f e(cmd_str);...//
1270: 20 78 e4 bb a5 e5 a4 96 e3 81 ae e3 82 b3 e3 83 x..............
1280: 9e e3 83 b3 e3 83 89 e3 81 af e6 89 b1 e3 82 8f ................
1290: e3 81 aa e3 81 84 e3 81 a7 e6 9c ac e7 89 a9 44 ...............D
12a0: 4c 4c e3 81 ab e5 9b 9e e3 81 97 e3 81 be e3 81 LL..............
12b0: 99 e3 80 82 e6 b3 a8 e6 84 8f e7 82 b9 e3 81 a8 ................
12c0: e3 81 97 e3 81 a6 ef bc 9a 0a 09 2f 2f 20 20 3e ...........// >
12d0: 20 63 6f 6d 6d 61 6e 64 20 e3 81 af e3 82 b3 e3 command .......
12e0: 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 ................
12f0: b3 e3 81 ae e6 9c 80 e5 88 9d e3 81 ae e5 bc 95 ................
1300: e6 95 b0 e3 81 a8 e3 81 97 e3 81 a6 e3 81 8f e3 ................
1310: 81 a0 e3 81 95 e3 81 84 e3 80 82 e3 81 aa e3 81 ................
1320: 8a e3 80 81 63 6f 6d 6d 61 6e 64 20 e3 82 92 e7 ....command ....
1330: 9c 81 e7 95 a5 0a 09 2f 2f 20 20 3e 20 e3 81 97 .......// > ...
1340: e3 81 9f e5 a0 b4 e5 90 88 e3 81 af 20 27 78 27 ............ 'x'
1350: 20 63 6f 6d 6d 61 6e 64 20 e3 81 8c e6 8c 87 e5 command .......
1360: ae 9a e3 81 95 e3 82 8c e3 81 9f e3 82 82 e3 81 ................
1370: ae e3 81 a8 e3 81 bf e3 81 aa e3 81 97 e3 81 be ................
1380: e3 81 99 e3 80 82 0a 09 69 66 28 20 63 6d 64 2e ........if( cmd.
1390: 6c 65 6e 67 74 68 20 3d 3d 20 30 20 29 0a 09 09 length == 0 )...
13a0: 72 65 74 75 72 6e 20 55 4e 53 55 50 50 4f 52 54 return UNSUPPORT
13b0: 45 44 3b 0a 09 69 66 28 20 63 6d 64 5b 30 5d 2e ED;..if( cmd[0].
13c0: 6c 65 6e 67 74 68 20 3d 3d 20 31 20 29 0a 09 7b length == 1 )..{
13d0: 0a 09 09 69 66 28 20 30 20 3c 3d 20 22 61 64 6a ...if( 0 <= "adj
13e0: 6c 6d 6e 73 74 76 41 44 4a 4c 4d 4e 53 54 56 22 lmnstvADJLMNSTV"
13f0: 2e 69 6e 64 65 78 4f 66 28 63 6d 64 5b 30 5d 5b .indexOf(cmd[0][
1400: 30 5d 29 20 29 0a 09 09 09 72 65 74 75 72 6e 20 0]) )....return
1410: 55 4e 53 55 50 50 4f 52 54 45 44 3b 0a 09 09 69 UNSUPPORTED;...i
1420: 66 28 20 63 6d 64 5b 30 5d 5b 30 5d 3d 3d 27 78 f( cmd[0][0]=='x
1430: 27 20 7c 7c 20 63 6d 64 5b 30 5d 5b 30 5d 3d 3d ' || cmd[0][0]==
1440: 27 58 27 20 29 0a 09 09 09 63 6d 64 20 3d 20 63 'X' )....cmd = c
1450: 6d 64 5b 31 20 2e 2e 20 24 5d 3b 0a 09 7d 0a 0a md[1 .. $];..}..
1460: 09 2f 2f 20 e2 80 bb 20 e3 81 93 e3 81 ae e6 99 .// ... ........
1470: 82 e7 82 b9 e3 81 a7 e3 80 81 63 6d 64 e3 81 ab ..........cmd...
1480: e3 81 af 63 6f 6d 6d 61 6e 64 e3 82 92 e9 99 a4 ...command......
1490: e3 81 84 e3 81 9f e6 ae 8b e3 82 8a e3 81 ae e5 ................
14a0: bc 95 e6 95 b0 e3 81 8c e5 85 a5 e3 81 a3 e3 81 ................
14b0: a6 e3 81 84 e3 82 8b e3 81 af e3 81 9a 0a 0a 09 ................
14c0: 2f 2f 0a 09 2f 2f 20 e3 82 b9 e3 82 a4 e3 83 83 //..// .........
14d0: e3 83 81 e8 a7 a3 e6 9e 90 e3 80 81 e5 bc 95 e6 ................
14e0: 95 b0 e8 a7 a3 e6 9e 90 0a 09 2f 2f 0a 09 62 6f ..........//..bo
14f0: 6f 6c 20 61 6c 6c 5f 61 74 74 72 73 20 20 20 20 ol all_attrs
1500: 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d = false; // -
1510: 61 0a 09 62 6f 6f 6c 20 73 69 6c 65 6e 74 20 20 a..bool silent
1520: 20 20 20 20 20 20 20 20 3d 20 66 61 6c 73 65 3b = false;
1530: 20 2f 2f 20 2d 69 0a 09 62 6f 6f 6c 20 69 67 6e // -i..bool ign
1540: 6f 72 65 5f 64 69 72 20 20 20 20 20 20 3d 20 66 ore_dir = f
1550: 61 6c 73 65 3b 20 2f 2f 20 2d 6a 0a 09 62 6f 6f alse; // -j..boo
1560: 6c 20 6e 65 77 66 69 6c 65 5f 6f 6e 6c 79 20 20 l newfile_only
1570: 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 6e = false; // -n
1580: 0a 09 62 6f 6f 6c 20 66 6f 72 63 65 5f 6f 76 65 ..bool force_ove
1590: 72 77 72 69 74 65 20 3d 20 66 61 6c 73 65 3b 20 rwrite = false;
15a0: 2f 2f 20 2d 6f 0a 09 62 6f 6f 6c 20 72 65 63 75 // -o..bool recu
15b0: 72 73 69 76 65 20 20 20 20 20 20 20 3d 20 66 61 rsive = fa
15c0: 6c 73 65 3b 20 2f 2f 20 2d 72 0a 09 62 6f 6f 6c lse; // -r..bool
15d0: 20 73 61 6e 69 74 69 7a 65 5f 70 61 74 68 20 20 sanitize_path
15e0: 20 3d 20 74 72 75 65 3b 0a 0a 09 73 74 72 69 6e = true;...strin
15f0: 67 20 61 72 63 5f 6e 61 6d 65 20 3d 20 6e 75 6c g arc_name = nul
1600: 6c 3b 0a 09 73 74 72 69 6e 67 20 62 61 73 65 5f l;..string base_
1610: 64 69 72 20 3d 20 6e 75 6c 6c 3b 0a 09 73 74 72 dir = null;..str
1620: 69 6e 67 5b 5d 20 70 61 74 68 73 3b 0a 0a 09 66 ing[] paths;...f
1630: 6f 72 65 61 63 68 28 20 73 74 72 69 6e 67 20 70 oreach( string p
1640: 61 72 61 6d 20 3b 20 63 6d 64 20 29 0a 09 09 69 aram ; cmd )...i
1650: 66 28 20 70 61 72 61 6d 5b 30 5d 20 3d 3d 20 27 f( param[0] == '
1660: 2d 27 20 29 0a 09 09 09 73 77 69 74 63 68 28 20 -' )....switch(
1670: 70 61 72 61 6d 5b 31 5d 20 29 0a 09 09 09 7b 0a param[1] )....{.
1680: 09 09 09 63 61 73 65 20 27 61 27 2c 27 41 27 3a ...case 'a','A':
1690: 20 61 6c 6c 5f 61 74 74 72 73 20 20 20 20 20 20 all_attrs
16a0: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
16b0: 09 09 09 63 61 73 65 20 27 69 27 2c 27 49 27 3a ...case 'i','I':
16c0: 20 73 69 6c 65 6e 74 20 20 20 20 20 20 20 20 20 silent
16d0: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
16e0: 09 09 09 63 61 73 65 20 27 6a 27 2c 27 4a 27 3a ...case 'j','J':
16f0: 20 69 67 6e 6f 72 65 5f 64 69 72 20 20 20 20 20 ignore_dir
1700: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1710: 09 09 09 63 61 73 65 20 27 6e 27 2c 27 4e 27 3a ...case 'n','N':
1720: 20 6e 65 77 66 69 6c 65 5f 6f 6e 6c 79 20 20 20 newfile_only
1730: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1740: 09 09 09 63 61 73 65 20 27 6f 27 2c 27 4f 27 3a ...case 'o','O':
1750: 20 66 6f 72 63 65 5f 6f 76 65 72 77 72 69 74 65 force_overwrite
1760: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1770: 09 09 09 63 61 73 65 20 27 72 27 2c 27 52 27 3a ...case 'r','R':
1780: 20 72 65 63 75 72 73 69 76 65 20 20 20 20 20 20 recursive
1790: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
17a0: 09 09 09 64 65 66 61 75 6c 74 3a 20 20 62 72 65 ...default: bre
17b0: 61 6b 3b 0a 09 09 09 7d 0a 09 09 65 6c 73 65 20 ak;....}...else
17c0: 69 66 28 20 61 72 63 5f 6e 61 6d 65 20 69 73 20 if( arc_name is
17d0: 6e 75 6c 6c 20 29 0a 09 09 7b 0a 09 09 09 61 72 null )...{....ar
17e0: 63 5f 6e 61 6d 65 20 3d 20 70 61 72 61 6d 3b 0a c_name = param;.
17f0: 09 09 7d 0a 09 09 65 6c 73 65 20 69 66 28 20 62 ..}...else if( b
1800: 61 73 65 5f 64 69 72 20 69 73 20 6e 75 6c 6c 20 ase_dir is null
1810: 29 0a 09 09 7b 0a 09 09 09 69 66 28 20 6c 61 73 )...{....if( las
1820: 74 43 68 61 72 28 70 61 72 61 6d 29 20 3d 3d 20 tChar(param) ==
1830: 27 5c 5c 27 20 29 0a 09 09 09 09 62 61 73 65 5f '\\' ).....base_
1840: 64 69 72 20 3d 20 70 61 72 61 6d 3b 0a 09 09 09 dir = param;....
1850: 65 6c 73 65 20 7b 0a 09 09 09 09 63 68 61 72 5b else {.....char[
1860: 5d 20 62 75 66 3b 0a 09 09 09 09 62 75 66 2e 6c ] buf;.....buf.l
1870: 65 6e 67 74 68 20 3d 20 47 65 74 43 75 72 72 65 ength = GetCurre
1880: 6e 74 44 69 72 65 63 74 6f 72 79 41 28 30 2c 6e ntDirectoryA(0,n
1890: 75 6c 6c 29 2b 31 3b 0a 09 09 09 09 47 65 74 43 ull)+1;.....GetC
18a0: 75 72 72 65 6e 74 44 69 72 65 63 74 6f 72 79 41 urrentDirectoryA
18b0: 28 62 75 66 2e 6c 65 6e 67 74 68 2c 20 62 75 66 (buf.length, buf
18c0: 2e 70 74 72 29 3b 0a 09 09 09 09 62 61 73 65 5f .ptr);.....base_
18d0: 64 69 72 20 3d 20 62 75 66 2e 70 74 72 2e 66 72 dir = buf.ptr.fr
18e0: 6f 6d 53 74 72 69 6e 67 7a 28 29 2e 69 64 75 70 omStringz().idup
18f0: 3b 0a 09 09 09 09 69 66 28 20 6c 61 73 74 43 68 ;.....if( lastCh
1900: 61 72 28 62 61 73 65 5f 64 69 72 29 20 21 3d 20 ar(base_dir) !=
1910: 27 5c 5c 27 20 29 0a 09 09 09 09 09 62 61 73 65 '\\' )......base
1920: 5f 64 69 72 20 7e 3d 20 27 5c 5c 27 3b 0a 09 09 _dir ~= '\\';...
1930: 09 7d 0a 09 09 7d 0a 09 09 65 6c 73 65 0a 09 09 .}...}...else...
1940: 09 70 61 74 68 73 20 7e 3d 20 70 61 72 61 6d 3b .paths ~= param;
1950: 0a 0a 09 2f 2f 0a 09 2f 2f 20 e5 b1 95 e9 96 8b ...//..// ......
1960: e5 87 a6 e7 90 86 e3 81 ab 47 6f 21 0a 09 2f 2f .........Go!..//
1970: 0a 09 50 72 6f 67 72 65 73 73 44 6c 67 20 64 6c ..ProgressDlg dl
1980: 67 20 3d 20 6e 75 6c 6c 3b 0a 09 69 66 28 20 21 g = null;..if( !
1990: 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 do_ownerwnd_proc
19a0: 28 20 4f 50 5f 41 52 43 5f 42 45 47 49 4e 2c 20 ( OP_ARC_BEGIN,
19b0: 6e 75 6c 6c 2c 20 30 2c 20 61 72 63 5f 6e 61 6d null, 0, arc_nam
19c0: 65 20 29 20 29 0a 09 09 72 65 74 75 72 6e 20 30 e ) )...return 0
19d0: 78 38 30 32 30 3b 0a 0a 09 74 72 79 0a 09 7b 0a x8020;...try..{.
19e0: 09 09 69 66 28 20 21 73 69 6c 65 6e 74 20 26 26 ..if( !silent &&
19f0: 20 67 5f 68 61 6e 64 6c 65 72 20 69 73 20 6e 75 g_handler is nu
1a00: 6c 6c 20 29 20 2f 2f 20 2d 69 20 2f 20 4f 77 6e ll ) // -i / Own
1a10: 65 72 57 6e 64 50 72 6f 63 0a 09 09 7b 0a 09 09 erWndProc...{...
1a20: 09 64 6c 67 20 3d 20 6e 65 77 20 50 72 6f 67 72 .dlg = new Progr
1a30: 65 73 73 44 6c 67 28 0a 09 09 09 09 63 61 73 74 essDlg(.....cast
1a40: 28 44 4c 47 54 45 4d 50 4c 41 54 45 2a 29 20 67 (DLGTEMPLATE*) g
1a50: 5f 6f 72 69 67 5f 64 6c 6c 2e 6c 6f 61 64 5f 64 _orig_dll.load_d
1a60: 69 61 6c 6f 67 28 22 23 32 30 32 35 22 29 2c 20 ialog("#2025"),
1a70: 77 6e 64 20 29 3b 0a 09 09 09 64 6c 67 2e 73 65 wnd );....dlg.se
1a80: 74 5f 61 72 63 6e 61 6d 65 28 61 72 63 5f 6e 61 t_arcname(arc_na
1a90: 6d 65 29 3b 0a 09 09 7d 0a 0a 09 09 73 74 72 69 me);...}....stri
1aa0: 6e 67 20 20 20 20 73 72 63 5f 66 6e 61 6d 65 3b ng src_fname;
1ab0: 20 2f 2f 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 // OwnerWndProc
1ac0: e9 96 a2 e4 bf 82 0a 09 09 42 67 61 48 65 61 64 .........BgaHead
1ad0: 65 72 20 63 75 72 5f 68 64 72 3b 20 20 20 2f 2f er cur_hdr; //
1ae0: 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 e9 96 a2 OwnerWndProc...
1af0: e4 bf 82 0a 0a 09 09 42 67 61 41 6e 73 77 65 72 .......BgaAnswer
1b00: 20 68 61 6e 64 6c 65 72 28 20 72 65 66 20 42 67 handler( ref Bg
1b10: 61 48 65 61 64 65 72 20 68 64 72 20 29 0a 09 09 aHeader hdr )...
1b20: 7b 0a 09 09 09 73 72 63 5f 66 6e 61 6d 65 20 3d {....src_fname =
1b30: 20 68 64 72 2e 66 6e 61 6d 65 3b 0a 09 09 09 70 hdr.fname;....p
1b40: 72 6f 63 65 73 73 5f 6d 65 73 73 61 67 65 73 28 rocess_messages(
1b50: 29 3b 0a 0a 09 09 09 2f 2f 20 70 61 74 68 73 0a );.....// paths.
1b60: 09 09 09 69 66 28 20 70 61 74 68 73 2e 6c 65 6e ...if( paths.len
1b70: 67 74 68 20 3e 20 30 20 29 0a 09 09 09 7b 0a 09 gth > 0 )....{..
1b80: 09 09 09 73 74 72 69 6e 67 20 66 6e 61 6d 65 20 ...string fname
1b90: 3d 20 2f 2f 20 2d 72 0a 09 09 09 09 09 28 72 65 = // -r......(re
1ba0: 63 75 72 73 69 76 65 20 3f 20 68 64 72 2e 66 6e cursive ? hdr.fn
1bb0: 61 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 ame[hdr.dir_name
1bc0: 5f 6c 65 6e 2e 2e 24 5d 20 3a 20 68 64 72 2e 66 _len..$] : hdr.f
1bd0: 6e 61 6d 65 29 3b 0a 09 09 09 09 66 6f 72 65 61 name);.....forea
1be0: 63 68 28 20 73 74 72 69 6e 67 20 77 20 3b 20 70 ch( string w ; p
1bf0: 61 74 68 73 20 29 0a 09 09 09 09 09 69 66 28 20 aths )......if(
1c00: 77 69 6c 64 5f 6d 61 74 63 68 28 20 77 2c 20 66 wild_match( w, f
1c10: 6e 61 6d 65 20 29 20 29 0a 09 09 09 09 09 09 67 name ) ).......g
1c20: 6f 74 6f 20 6f 6b 3b 0a 09 09 09 09 72 65 74 75 oto ok;.....retu
1c30: 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 rn BgaAnswer.Ski
1c40: 70 49 74 3b 0a 09 09 09 6f 6b 3a 3b 0a 09 09 09 pIt;....ok:;....
1c50: 7d 0a 09 09 09 2f 2f 20 2d 61 0a 09 09 09 69 66 }....// -a....if
1c60: 28 20 21 61 6c 6c 5f 61 74 74 72 73 20 26 26 20 ( !all_attrs &&
1c70: 28 68 64 72 2e 61 74 74 72 69 62 26 36 29 20 29 (hdr.attrib&6) )
1c80: 0a 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 .....return BgaA
1c90: 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a 09 09 nswer.SkipIt;...
1ca0: 09 2f 2f 20 64 69 61 6c 6f 67 0a 09 09 09 69 66 .// dialog....if
1cb0: 28 20 64 6c 67 20 29 0a 09 09 09 09 69 66 28 20 ( dlg ).....if(
1cc0: 64 6c 67 2e 63 6c 6f 73 65 64 20 29 0a 09 09 09 dlg.closed )....
1cd0: 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 ..return BgaAnsw
1ce0: 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 09 65 6c er.Abort;.....el
1cf0: 73 65 0a 09 09 09 09 09 64 6c 67 2e 73 65 74 5f se......dlg.set_
1d00: 66 69 6c 65 6e 61 6d 65 28 20 68 64 72 2e 66 6e filename( hdr.fn
1d10: 61 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 ame[hdr.dir_name
1d20: 5f 6c 65 6e 2e 2e 24 5d 20 29 3b 0a 09 09 09 2f _len..$] );..../
1d30: 2f 20 2d 6a 0a 09 09 09 69 66 28 20 69 67 6e 6f / -j....if( igno
1d40: 72 65 5f 64 69 72 20 29 0a 09 09 09 09 68 64 72 re_dir ).....hdr
1d50: 2e 66 6e 61 6d 65 20 3d 20 68 64 72 2e 66 6e 61 .fname = hdr.fna
1d60: 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 5f me[hdr.dir_name_
1d70: 6c 65 6e 20 2e 2e 20 24 5d 3b 0a 09 09 09 2f 2f len .. $];....//
1d80: 20 73 61 6e 69 74 69 7a 65 0a 09 09 09 69 66 28 sanitize....if(
1d90: 20 73 61 6e 69 74 69 7a 65 5f 70 61 74 68 20 29 sanitize_path )
1da0: 0a 09 09 09 09 68 64 72 2e 66 6e 61 6d 65 20 3d .....hdr.fname =
1db0: 20 63 68 65 63 6b 5f 70 61 74 68 28 68 64 72 2e check_path(hdr.
1dc0: 66 6e 61 6d 65 29 3b 0a 09 09 09 2f 2f 20 62 61 fname);....// ba
1dd0: 73 65 5f 64 69 72 0a 09 09 09 68 64 72 2e 66 6e se_dir....hdr.fn
1de0: 61 6d 65 20 3d 20 28 62 61 73 65 5f 64 69 72 20 ame = (base_dir
1df0: 7e 20 68 64 72 2e 66 6e 61 6d 65 29 2e 64 75 70 ~ hdr.fname).dup
1e00: 3b 0a 09 09 09 2f 2f 20 2d 6f 0a 09 09 09 69 66 ;....// -o....if
1e10: 28 20 21 66 6f 72 63 65 5f 6f 76 65 72 77 72 69 ( !force_overwri
1e20: 74 65 20 29 0a 09 09 09 09 74 72 79 20 7b 0a 09 te ).....try {..
1e30: 09 09 09 69 66 28 20 73 74 64 2e 66 69 6c 65 2e ...if( std.file.
1e40: 65 78 69 73 74 73 28 68 64 72 2e 66 6e 61 6d 65 exists(hdr.fname
1e50: 29 20 26 26 20 73 74 64 2e 66 69 6c 65 2e 69 73 ) && std.file.is
1e60: 46 69 6c 65 28 68 64 72 2e 66 6e 61 6d 65 29 20 File(hdr.fname)
1e70: 29 0a 09 09 09 09 09 2f 2f 20 2d 6e 0a 09 09 09 )......// -n....
1e80: 09 09 69 66 28 20 6e 65 77 66 69 6c 65 5f 6f 6e ..if( newfile_on
1e90: 6c 79 20 29 0a 09 09 09 09 09 7b 0a 09 09 09 09 ly )......{.....
1ea0: 09 09 69 66 28 20 6e 65 77 65 72 5f 74 68 61 6e ..if( newer_than
1eb0: 28 68 64 72 2e 64 61 74 65 2c 68 64 72 2e 74 69 (hdr.date,hdr.ti
1ec0: 6d 65 2c 68 64 72 2e 66 6e 61 6d 65 29 20 29 0a me,hdr.fname) ).
1ed0: 09 09 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 .......return Bg
1ee0: 61 41 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a aAnswer.SkipIt;.
1ef0: 09 09 09 09 09 7d 0a 09 09 09 09 09 65 6c 73 65 .....}......else
1f00: 0a 09 09 09 09 09 7b 0a 09 09 09 09 09 09 69 6e ......{.......in
1f10: 74 20 72 20 3d 20 4d 65 73 73 61 67 65 42 6f 78 t r = MessageBox
1f20: 41 28 20 64 6c 67 3f 64 6c 67 2e 68 77 6e 64 3a A( dlg?dlg.hwnd:
1f30: 77 6e 64 2c 0a 09 09 09 09 09 09 09 74 6f 53 74 wnd,........toSt
1f40: 72 69 6e 67 7a 28 22 4f 76 65 72 77 72 69 74 65 ringz("Overwrite
1f50: 20 22 7e 68 64 72 2e 66 6e 61 6d 65 7e 22 20 3f "~hdr.fname~" ?
1f60: 22 29 2c 0a 09 09 09 09 09 09 09 22 51 42 67 61 "),........"QBga
1f70: 33 32 2e 64 6c 6c 22 2c 20 4d 42 5f 59 45 53 4e 32.dll", MB_YESN
1f80: 4f 43 41 4e 43 45 4c 20 29 3b 0a 09 09 09 09 09 OCANCEL );......
1f90: 09 69 66 28 20 72 20 3d 3d 20 49 44 4e 4f 20 29 .if( r == IDNO )
1fa0: 20 20 20 20 20 72 65 74 75 72 6e 20 42 67 61 41 return BgaA
1fb0: 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a 09 09 nswer.SkipIt;...
1fc0: 09 09 09 09 69 66 28 20 72 20 3d 3d 20 49 44 43 ....if( r == IDC
1fd0: 41 4e 43 45 4c 20 29 20 72 65 74 75 72 6e 20 42 ANCEL ) return B
1fe0: 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a gaAnswer.Abort;.
1ff0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 20 63 61 74 .....}.....} cat
2000: 63 68 20 7b 7d 0a 0a 09 09 09 63 75 72 5f 68 64 ch {}.....cur_hd
2010: 72 20 3d 20 68 64 72 3b 0a 09 09 09 69 66 28 20 r = hdr;....if(
2020: 21 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f !do_ownerwnd_pro
2030: 63 28 20 4f 50 5f 46 49 4c 45 5f 42 45 47 49 4e c( OP_FILE_BEGIN
2040: 2c 20 26 63 75 72 5f 68 64 72 2c 20 30 2c 20 73 , &cur_hdr, 0, s
2050: 72 63 5f 66 6e 61 6d 65 20 29 20 29 0a 09 09 09 rc_fname ) )....
2060: 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 .return BgaAnswe
2070: 72 2e 41 62 6f 72 74 3b 0a 09 09 09 72 65 74 75 r.Abort;....retu
2080: 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 4d 65 6c rn BgaAnswer.Mel
2090: 74 49 74 3b 0a 09 09 7d 0a 0a 09 09 42 67 61 41 tIt;...}....BgaA
20a0: 6e 73 77 65 72 20 70 72 6f 67 72 65 73 73 5f 68 nswer progress_h
20b0: 61 6e 64 6c 65 72 28 20 69 6e 74 20 63 75 72 2c andler( int cur,
20c0: 20 69 6e 74 20 6d 61 78 20 29 0a 09 09 7b 0a 09 int max )...{..
20d0: 09 09 70 72 6f 63 65 73 73 5f 6d 65 73 73 61 67 ..process_messag
20e0: 65 73 28 29 3b 0a 09 09 09 69 66 28 20 64 6c 67 es();....if( dlg
20f0: 20 29 0a 09 09 09 09 69 66 28 20 64 6c 67 2e 63 ).....if( dlg.c
2100: 6c 6f 73 65 64 20 29 0a 09 09 09 09 09 72 65 74 losed )......ret
2110: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 41 62 urn BgaAnswer.Ab
2120: 6f 72 74 3b 0a 09 09 09 09 65 6c 73 65 0a 09 09 ort;.....else...
2130: 09 09 09 64 6c 67 2e 73 65 74 5f 70 6f 73 28 20 ...dlg.set_pos(
2140: 63 61 73 74 28 72 65 61 6c 29 28 63 75 72 29 2f cast(real)(cur)/
2150: 6d 61 78 20 29 3b 0a 09 09 09 69 66 28 20 21 64 max );....if( !d
2160: 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 28 o_ownerwnd_proc(
2170: 20 4f 50 5f 46 49 4c 45 5f 4d 49 44 44 4c 45 2c OP_FILE_MIDDLE,
2180: 20 26 63 75 72 5f 68 64 72 2c 20 63 75 72 2c 20 &cur_hdr, cur,
2190: 73 72 63 5f 66 6e 61 6d 65 20 29 20 29 0a 09 09 src_fname ) )...
21a0: 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 ..return BgaAnsw
21b0: 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 72 65 74 er.Abort;....ret
21c0: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 4d 65 urn BgaAnswer.Me
21d0: 6c 74 49 74 3b 0a 09 09 7d 0a 0a 09 09 28 6e 65 ltIt;...}....(ne
21e0: 77 20 42 67 61 4d 65 6c 74 65 72 28 61 72 63 5f w BgaMelter(arc_
21f0: 6e 61 6d 65 29 29 2e 73 74 61 72 74 28 26 68 61 name)).start(&ha
2200: 6e 64 6c 65 72 2c 26 70 72 6f 67 72 65 73 73 5f ndler,&progress_
2210: 68 61 6e 64 6c 65 72 29 3b 0a 09 7d 0a 09 63 61 handler);..}..ca
2220: 74 63 68 28 20 42 67 61 4d 65 6c 74 65 72 45 72 tch( BgaMelterEr
2230: 72 6f 72 20 65 20 29 0a 09 7b 0a 09 09 72 65 74 ror e )..{...ret
2240: 75 72 6e 20 65 2e 65 72 72 63 6f 64 65 3b 0a 09 urn e.errcode;..
2250: 7d 0a 09 66 69 6e 61 6c 6c 79 0a 09 7b 0a 09 09 }..finally..{...
2260: 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 do_ownerwnd_proc
2270: 28 20 4f 50 5f 41 52 43 5f 45 4e 44 2c 20 6e 75 ( OP_ARC_END, nu
2280: 6c 6c 2c 20 30 2c 20 61 72 63 5f 6e 61 6d 65 20 ll, 0, arc_name
2290: 29 3b 0a 09 09 69 66 28 20 64 6c 67 20 29 0a 09 );...if( dlg )..
22a0: 09 09 64 6c 67 2e 63 6c 6f 73 65 28 29 3b 0a 09 ..dlg.close();..
22b0: 7d 0a 09 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a }..return 0;.}..
22c0: 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d //--------------
22d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2300: 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 90 88 e3 82 a2 e3 --.// ..........
2310: 83 bc e3 82 ab e3 82 a4 e3 83 90 41 50 49 ef bc ...........API..
2320: 9a e5 ae 9f e8 a3 85 28 20 53 65 74 4f 77 6e 65 .......( SetOwne
2330: 72 57 69 6e 64 6f 77 20 29 0a 2f 2f 2d 2d 2d 2d rWindow ).//----
2340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 0a 61 6c ------------..al
2380: 69 67 6e 28 31 29 20 73 74 72 75 63 74 20 45 58 ign(1) struct EX
2390: 54 52 41 43 54 49 4e 47 49 4e 46 4f 0a 7b 0a 09 TRACTINGINFO.{..
23a0: 44 57 4f 52 44 20 20 20 64 77 46 69 6c 65 53 69 DWORD dwFileSi
23b0: 7a 65 3b 0a 09 44 57 4f 52 44 20 20 20 64 77 57 ze;..DWORD dwW
23c0: 72 69 74 65 53 69 7a 65 3b 0a 09 63 68 61 72 20 riteSize;..char
23d0: 20 20 20 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e szSourceFileN
23e0: 61 6d 65 5b 35 31 32 20 2b 20 31 5d 3b 0a 09 63 ame[512 + 1];..c
23f0: 68 61 72 20 20 20 20 64 75 6d 6d 79 31 5b 33 5d har dummy1[3]
2400: 3b 0a 09 63 68 61 72 20 20 20 20 73 7a 44 65 73 ;..char szDes
2410: 74 46 69 6c 65 4e 61 6d 65 5b 35 31 32 20 2b 20 tFileName[512 +
2420: 31 5d 3b 0a 09 63 68 61 72 20 20 20 20 64 75 6d 1];..char dum
2430: 6d 79 5b 33 5d 3b 0a 7d 0a 61 6c 69 67 6e 28 31 my[3];.}.align(1
2440: 29 20 73 74 72 75 63 74 20 45 58 54 52 41 43 54 ) struct EXTRACT
2450: 49 4e 47 49 4e 46 4f 45 58 0a 7b 0a 09 45 58 54 INGINFOEX.{..EXT
2460: 52 41 43 54 49 4e 47 49 4e 46 4f 20 65 78 69 6e RACTINGINFO exin
2470: 66 6f 3b 0a 09 44 57 4f 52 44 20 64 77 43 6f 6d fo;..DWORD dwCom
2480: 70 72 65 73 73 65 64 53 69 7a 65 3b 0a 09 44 57 pressedSize;..DW
2490: 4f 52 44 20 64 77 43 52 43 3b 0a 09 55 49 4e 54 ORD dwCRC;..UINT
24a0: 20 20 75 4f 53 54 79 70 65 3b 0a 09 57 4f 52 44 uOSType;..WORD
24b0: 20 20 77 52 61 74 69 6f 3b 0a 09 57 4f 52 44 20 wRatio;..WORD
24c0: 20 77 44 61 74 65 3b 0a 09 57 4f 52 44 20 20 77 wDate;..WORD w
24d0: 54 69 6d 65 3b 0a 09 63 68 61 72 20 20 73 7a 41 Time;..char szA
24e0: 74 74 72 69 62 75 74 65 5b 38 5d 3b 0a 09 63 68 ttribute[8];..ch
24f0: 61 72 20 20 73 7a 4d 6f 64 65 5b 38 5d 3b 0a 7d ar szMode[8];.}
2500: 0a 0a 48 57 4e 44 20 67 5f 6f 77 6e 65 72 5f 77 ..HWND g_owner_w
2510: 69 6e 64 6f 77 3b 0a 65 78 74 65 72 6e 28 57 69 indow;.extern(Wi
2520: 6e 64 6f 77 73 29 20 42 4f 4f 4c 20 66 75 6e 63 ndows) BOOL func
2530: 74 69 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 2c 55 tion(HWND,UINT,U
2540: 49 4e 54 2c 45 58 54 52 41 43 54 49 4e 47 49 4e INT,EXTRACTINGIN
2550: 46 4f 45 58 2a 29 20 67 5f 68 61 6e 64 6c 65 72 FOEX*) g_handler
2560: 3b 0a 65 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 ;.extern(Windows
2570: 29 20 42 4f 4f 4c 20 6e 6f 65 78 5f 68 61 6e 64 ) BOOL noex_hand
2580: 6c 65 72 28 20 48 57 4e 44 20 77 2c 55 49 4e 54 ler( HWND w,UINT
2590: 20 6d 2c 55 49 4e 54 20 73 2c 20 45 58 54 52 41 m,UINT s, EXTRA
25a0: 43 54 49 4e 47 49 4e 46 4f 45 58 2a 20 65 20 29 CTINGINFOEX* e )
25b0: 0a 7b 0a 09 72 65 74 75 72 6e 20 21 53 65 6e 64 .{..return !Send
25c0: 4d 65 73 73 61 67 65 41 28 20 77 2c 20 6d 2c 20 MessageA( w, m,
25d0: 73 2c 20 63 61 73 74 28 4c 50 41 52 41 4d 29 20 s, cast(LPARAM)
25e0: 26 65 2e 65 78 69 6e 66 6f 20 29 3b 0a 7d 0a 0a &e.exinfo );.}..
25f0: 76 6f 69 64 20 42 67 61 53 65 74 4f 77 6e 65 72 void BgaSetOwner
2600: 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 20 48 57 4e Window_impl( HWN
2610: 44 20 77 6e 64 20 29 0a 7b 0a 09 67 5f 6f 77 6e D wnd ).{..g_own
2620: 65 72 5f 77 69 6e 64 6f 77 20 3d 20 77 6e 64 3b er_window = wnd;
2630: 0a 09 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 ..g_handler
2640: 20 3d 20 26 6e 6f 65 78 5f 68 61 6e 64 6c 65 72 = &noex_handler
2650: 3b 0a 7d 0a 0a 76 6f 69 64 20 42 67 61 43 6c 65 ;.}..void BgaCle
2660: 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d arOwnerWindow_im
2670: 70 6c 28 29 0a 7b 0a 09 67 5f 6f 77 6e 65 72 5f pl().{..g_owner_
2680: 77 69 6e 64 6f 77 20 3d 20 6e 75 6c 6c 3b 0a 09 window = null;..
2690: 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 20 3d g_handler =
26a0: 20 6e 75 6c 6c 3b 0a 7d 0a 0a 76 6f 69 64 20 42 null;.}..void B
26b0: 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 gaSetOwnerWindow
26c0: 45 78 5f 69 6d 70 6c 28 20 48 57 4e 44 20 77 6e Ex_impl( HWND wn
26d0: 64 2c 20 41 52 43 48 49 56 45 52 50 52 4f 43 2a d, ARCHIVERPROC*
26e0: 20 70 72 6f 63 20 29 0a 7b 0a 09 67 5f 6f 77 6e proc ).{..g_own
26f0: 65 72 5f 77 69 6e 64 6f 77 20 3d 20 77 6e 64 3b er_window = wnd;
2700: 0a 09 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 ..g_handler
2710: 20 3d 20 2a 70 72 6f 63 3b 0a 7d 0a 0a 65 6e 75 = *proc;.}..enu
2720: 6d 20 7b 20 4f 50 5f 46 49 4c 45 5f 42 45 47 49 m { OP_FILE_BEGI
2730: 4e 2c 20 4f 50 5f 46 49 4c 45 5f 4d 49 44 44 4c N, OP_FILE_MIDDL
2740: 45 2c 20 4f 50 5f 41 52 43 5f 45 4e 44 2c 20 4f E, OP_ARC_END, O
2750: 50 5f 41 52 43 5f 42 45 47 49 4e 20 7d 0a 62 6f P_ARC_BEGIN }.bo
2760: 6f 6c 20 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 ol do_ownerwnd_p
2770: 72 6f 63 28 20 55 49 4e 54 20 75 53 74 61 74 65 roc( UINT uState
2780: 2c 20 42 67 61 48 65 61 64 65 72 2a 20 68 64 72 , BgaHeader* hdr
2790: 2c 20 69 6e 74 20 63 75 72 2c 20 73 74 72 69 6e , int cur, strin
27a0: 67 20 73 72 63 5f 66 6e 61 6d 65 20 29 0a 7b 0a g src_fname ).{.
27b0: 09 69 66 28 20 67 5f 68 61 6e 64 6c 65 72 20 69 .if( g_handler i
27c0: 73 20 6e 75 6c 6c 20 29 0a 09 09 72 65 74 75 72 s null )...retur
27d0: 6e 20 74 72 75 65 3b 0a 09 45 58 54 52 41 43 54 n true;..EXTRACT
27e0: 49 4e 47 49 4e 46 4f 45 58 20 65 78 3b 0a 09 69 INGINFOEX ex;..i
27f0: 66 28 20 75 53 74 61 74 65 20 3d 3d 20 4f 50 5f f( uState == OP_
2800: 41 52 43 5f 42 45 47 49 4e 20 7c 7c 20 75 53 74 ARC_BEGIN || uSt
2810: 61 74 65 20 3d 3d 20 4f 50 5f 41 52 43 5f 45 4e ate == OP_ARC_EN
2820: 44 20 29 0a 09 7b 0a 09 09 6c 73 74 72 63 70 79 D )..{...lstrcpy
2830: 6e 41 28 20 65 78 2e 65 78 69 6e 66 6f 2e 73 7a nA( ex.exinfo.sz
2840: 53 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 2e 70 SourceFileName.p
2850: 74 72 2c 20 74 6f 53 74 72 69 6e 67 7a 28 73 72 tr, toStringz(sr
2860: 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 20 29 3b c_fname), 512 );
2870: 0a 09 7d 0a 09 65 6c 73 65 0a 09 7b 0a 09 09 65 ..}..else..{...e
2880: 78 2e 65 78 69 6e 66 6f 2e 64 77 46 69 6c 65 53 x.exinfo.dwFileS
2890: 69 7a 65 20 20 3d 20 68 64 72 2e 6f 72 69 67 69 ize = hdr.origi
28a0: 6e 61 6c 5f 73 69 7a 65 3b 0a 09 09 65 78 2e 65 nal_size;...ex.e
28b0: 78 69 6e 66 6f 2e 64 77 57 72 69 74 65 53 69 7a xinfo.dwWriteSiz
28c0: 65 20 3d 20 63 75 72 3b 0a 09 09 6c 73 74 72 63 e = cur;...lstrc
28d0: 70 79 6e 41 28 20 65 78 2e 65 78 69 6e 66 6f 2e pynA( ex.exinfo.
28e0: 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 szSourceFileName
28f0: 2e 70 74 72 2c 20 74 6f 53 74 72 69 6e 67 7a 28 .ptr, toStringz(
2900: 73 72 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 20 src_fname), 512
2910: 29 3b 0a 09 09 6c 73 74 72 63 70 79 6e 41 28 20 );...lstrcpynA(
2920: 65 78 2e 65 78 69 6e 66 6f 2e 73 7a 44 65 73 74 ex.exinfo.szDest
2930: 46 69 6c 65 4e 61 6d 65 2e 70 74 72 2c 20 74 6f FileName.ptr, to
2940: 53 74 72 69 6e 67 7a 28 68 64 72 2e 66 6e 61 6d Stringz(hdr.fnam
2950: 65 29 2c 20 35 31 32 20 29 3b 0a 09 09 65 78 2e e), 512 );...ex.
2960: 64 77 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 dwCompressedSize
2970: 20 3d 20 68 64 72 2e 63 6f 6d 70 72 65 73 73 65 = hdr.compresse
2980: 64 5f 73 69 7a 65 3b 0a 09 09 65 78 2e 77 52 61 d_size;...ex.wRa
2990: 74 69 6f 20 3d 20 63 61 73 74 28 75 73 68 6f 72 tio = cast(ushor
29a0: 74 29 28 20 28 63 61 73 74 28 72 65 61 6c 29 68 t)( (cast(real)h
29b0: 64 72 2e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 dr.compressed_si
29c0: 7a 65 29 2f 68 64 72 2e 6f 72 69 67 69 6e 61 6c ze)/hdr.original
29d0: 5f 73 69 7a 65 2a 31 30 30 30 20 29 3b 0a 09 09 _size*1000 );...
29e0: 65 78 2e 77 44 61 74 65 20 20 3d 20 68 64 72 2e ex.wDate = hdr.
29f0: 64 61 74 65 3b 0a 09 09 65 78 2e 77 54 69 6d 65 date;...ex.wTime
2a00: 20 20 3d 20 68 64 72 2e 74 69 6d 65 3b 0a 09 09 = hdr.time;...
2a10: 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 30 ex.szAttribute[0
2a20: 5d 20 3d 20 28 68 64 72 2e 61 74 74 72 69 62 26 ] = (hdr.attrib&
2a30: 33 32 20 3f 20 27 41 27 3a 20 27 2d 27 29 3b 0a 32 ? 'A': '-');.
2a40: 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 ..ex.szAttribute
2a50: 5b 31 5d 20 3d 20 28 68 64 72 2e 61 74 74 72 69 [1] = (hdr.attri
2a60: 62 26 31 20 20 3f 20 27 52 27 3a 20 27 2d 27 29 b&1 ? 'R': '-')
2a70: 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 ;...ex.szAttribu
2a80: 74 65 5b 32 5d 20 3d 20 28 68 64 72 2e 61 74 74 te[2] = (hdr.att
2a90: 72 69 62 26 32 20 20 3f 20 27 48 27 3a 20 27 2d rib&2 ? 'H': '-
2aa0: 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 ');...ex.szAttri
2ab0: 62 75 74 65 5b 33 5d 20 3d 20 28 68 64 72 2e 61 bute[3] = (hdr.a
2ac0: 74 74 72 69 62 26 34 20 20 3f 20 27 53 27 3a 20 ttrib&4 ? 'S':
2ad0: 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 '-');...ex.szAtt
2ae0: 72 69 62 75 74 65 5b 34 5d 20 3d 20 28 68 64 72 ribute[4] = (hdr
2af0: 2e 61 74 74 72 69 62 26 31 36 20 3f 20 27 44 27 .attrib&16 ? 'D'
2b00: 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 : '-');...ex.szA
2b10: 74 74 72 69 62 75 74 65 5b 35 5d 20 3d 20 27 5c ttribute[5] = '\
2b20: 30 27 3b 0a 09 09 69 66 28 20 68 64 72 2e 6d 65 0';...if( hdr.me
2b30: 74 68 6f 64 5b 30 5d 3d 3d 27 47 27 20 29 0a 09 thod[0]=='G' )..
2b40: 09 09 6c 73 74 72 63 70 79 41 28 65 78 2e 73 7a ..lstrcpyA(ex.sz
2b50: 4d 6f 64 65 2e 70 74 72 2c 22 2d 67 7a 69 70 2d Mode.ptr,"-gzip-
2b60: 22 29 3b 0a 09 09 65 6c 73 65 0a 09 09 09 6c 73 ");...else....ls
2b70: 74 72 63 70 79 41 28 65 78 2e 73 7a 4d 6f 64 65 trcpyA(ex.szMode
2b80: 2e 70 74 72 2c 22 2d 62 7a 69 70 32 2d 22 29 3b .ptr,"-bzip2-");
2b90: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 66 61 6c ..}...return fal
2ba0: 73 65 20 21 3d 20 67 5f 68 61 6e 64 6c 65 72 28 se != g_handler(
2bb0: 20 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 2c g_owner_window,
2bc0: 20 57 4d 5f 41 52 43 45 58 54 52 41 43 54 2c 20 WM_ARCEXTRACT,
2bd0: 75 53 74 61 74 65 2c 20 26 65 78 20 29 3b 0a 7d uState, &ex );.}
2be0: 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..//------------
2bf0: 2d 2d 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 0a 2f 2f 20 e3 83 91 e3 82 b9 e6 a4 ----.// ........
2c30: 9c e6 9f bb e7 b3 bb 0a 2f 2f 2d 2d 2d 2d 2d 2d ........//------
2c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 0a 61 6c 69 61 ----------..alia
2c80: 73 20 63 6f 72 65 2e 73 79 73 2e 77 69 6e 64 6f s core.sys.windo
2c90: 77 73 2e 77 69 6e 64 6f 77 73 2e 49 73 44 42 43 ws.windows.IsDBC
2ca0: 53 4c 65 61 64 42 79 74 65 20 69 73 44 4c 3b 0a SLeadByte isDL;.
2cb0: 73 74 72 69 6e 67 20 72 65 70 6c 61 63 65 5f 79 string replace_y
2cc0: 65 6e 28 20 73 74 72 69 6e 67 20 73 20 29 0a 7b en( string s ).{
2cd0: 0a 09 73 74 72 69 6e 67 20 61 6e 73 3b 0a 09 69 ..string ans;..i
2ce0: 6e 74 20 6a 3d 30 3b 0a 09 66 6f 72 28 69 6e 74 nt j=0;..for(int
2cf0: 20 69 3d 30 3b 20 69 21 3d 73 2e 6c 65 6e 67 74 i=0; i!=s.lengt
2d00: 68 3b 20 69 3d 69 2b 28 69 73 44 4c 28 73 5b 69 h; i=i+(isDL(s[i
2d10: 5d 29 3f 32 3a 31 29 29 0a 09 09 69 66 28 20 73 ])?2:1))...if( s
2d20: 5b 69 5d 20 3d 3d 20 27 5c 5c 27 20 29 0a 09 09 [i] == '\\' )...
2d30: 09 61 6e 73 7e 3d 73 5b 6a 20 2e 2e 20 69 5d 2c .ans~=s[j .. i],
2d40: 20 61 6e 73 7e 3d 27 2f 27 2c 20 6a 3d 69 2b 31 ans~='/', j=i+1
2d50: 3b 0a 09 61 6e 73 20 7e 3d 20 73 5b 6a 20 2e 2e ;..ans ~= s[j ..
2d60: 20 24 5d 3b 0a 09 72 65 74 75 72 6e 20 61 6e 73 $];..return ans
2d70: 3b 0a 7d 0a 0a 62 6f 6f 6c 20 77 69 6c 64 5f 6d ;.}..bool wild_m
2d80: 61 74 63 68 28 20 73 74 72 69 6e 67 20 77 69 6c atch( string wil
2d90: 64 2c 20 73 74 72 69 6e 67 20 6e 61 6d 65 20 29 d, string name )
2da0: 0a 7b 0a 09 62 6f 6f 6c 20 77 69 6c 64 5f 6d 61 .{..bool wild_ma
2db0: 74 63 68 5f 6e 6f 70 61 74 68 28 20 73 74 72 69 tch_nopath( stri
2dc0: 6e 67 20 77 2c 20 73 74 72 69 6e 67 20 73 20 29 ng w, string s )
2dd0: 0a 09 7b 0a 09 09 73 74 72 69 6e 67 20 61 64 76 ..{...string adv
2de0: 61 6e 63 65 28 20 73 74 72 69 6e 67 20 73 20 29 ance( string s )
2df0: 0a 09 09 7b 0a 09 09 09 72 65 74 75 72 6e 20 73 ...{....return s
2e00: 5b 28 49 73 44 42 43 53 4c 65 61 64 42 79 74 65 [(IsDBCSLeadByte
2e10: 28 73 5b 30 5d 29 3f 32 3a 31 29 20 2e 2e 20 24 (s[0])?2:1) .. $
2e20: 5d 3b 0a 09 09 7d 0a 0a 09 09 77 68 69 6c 65 28 ];...}....while(
2e30: 20 77 2e 6c 65 6e 67 74 68 3e 30 20 29 0a 09 09 w.length>0 )...
2e40: 09 73 77 69 74 63 68 28 20 77 5b 30 5d 20 29 0a .switch( w[0] ).
2e50: 09 09 09 7b 0a 09 09 09 63 61 73 65 20 27 3f 27 ...{....case '?'
2e60: 3a 0a 09 09 09 09 69 66 28 20 73 2e 6c 65 6e 67 :.....if( s.leng
2e70: 74 68 3d 3d 30 20 29 0a 09 09 09 09 09 72 65 74 th==0 )......ret
2e80: 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 09 09 77 urn false;.....w
2e90: 20 3d 20 61 64 76 61 6e 63 65 28 77 29 3b 0a 09 = advance(w);..
2ea0: 09 09 09 73 20 3d 20 61 64 76 61 6e 63 65 28 73 ...s = advance(s
2eb0: 29 3b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 );.....break;...
2ec0: 09 63 61 73 65 20 27 2a 27 3a 0a 09 09 09 09 69 .case '*':.....i
2ed0: 66 28 20 73 2e 6c 65 6e 67 74 68 3d 3d 30 20 29 f( s.length==0 )
2ee0: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c ......return fal
2ef0: 73 65 3b 0a 09 09 09 09 77 20 3d 20 61 64 76 61 se;.....w = adva
2f00: 6e 63 65 28 77 29 3b 0a 09 09 09 09 69 66 28 20 nce(w);.....if(
2f10: 77 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 20 29 0a w.length == 0 ).
2f20: 09 09 09 09 09 72 65 74 75 72 6e 20 74 72 75 65 .....return true
2f30: 3b 0a 09 09 09 09 66 6f 72 28 20 3b 20 73 2e 6c ;.....for( ; s.l
2f40: 65 6e 67 74 68 21 3d 30 3b 20 73 3d 61 64 76 61 ength!=0; s=adva
2f50: 6e 63 65 28 73 29 20 29 0a 09 09 09 09 09 69 66 nce(s) )......if
2f60: 28 20 77 69 6c 64 5f 6d 61 74 63 68 5f 6e 6f 70 ( wild_match_nop
2f70: 61 74 68 28 77 2c 73 29 20 29 0a 09 09 09 09 09 ath(w,s) )......
2f80: 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a 09 09 .return true;...
2f90: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a ..return false;.
2fa0: 09 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 09 ...default:.....
2fb0: 69 66 28 20 73 2e 6c 65 6e 67 74 68 3d 3d 30 20 if( s.length==0
2fc0: 29 0a 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 )......return fa
2fd0: 6c 73 65 3b 0a 09 09 09 09 69 66 28 20 69 73 44 lse;.....if( isD
2fe0: 4c 28 77 5b 30 5d 29 20 29 0a 09 09 09 09 20 20 L(w[0]) ).....
2ff0: 7b 20 69 66 28 20 77 5b 30 2e 2e 32 5d 20 21 3d { if( w[0..2] !=
3000: 20 73 5b 30 2e 2e 32 5d 20 29 20 72 65 74 75 72 s[0..2] ) retur
3010: 6e 20 66 61 6c 73 65 3b 20 7d 0a 09 09 09 09 65 n false; }.....e
3020: 6c 73 65 0a 09 09 09 09 20 20 7b 20 69 66 28 20 lse..... { if(
3030: 77 5b 30 5d 20 20 20 20 21 3d 20 73 5b 30 5d 20 w[0] != s[0]
3040: 20 20 20 29 20 72 65 74 75 72 6e 20 66 61 6c 73 ) return fals
3050: 65 3b 20 7d 0a 09 09 09 09 77 20 3d 20 61 64 76 e; }.....w = adv
3060: 61 6e 63 65 28 77 29 3b 0a 09 09 09 09 73 20 3d ance(w);.....s =
3070: 20 61 64 76 61 6e 63 65 28 73 29 3b 0a 09 09 09 advance(s);....
3080: 09 62 72 65 61 6b 3b 0a 09 09 09 7d 0a 09 09 72 .break;....}...r
3090: 65 74 75 72 6e 20 73 2e 6c 65 6e 67 74 68 3d 3d eturn s.length==
30a0: 30 3b 0a 09 7d 0a 0a 09 69 66 28 20 77 69 6c 64 0;..}...if( wild
30b0: 3d 3d 22 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a =="" || wild=="*
30c0: 2e 2a 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a 22 .*" || wild=="*"
30d0: 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a 2a 22 20 29 || wild=="**" )
30e0: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a ...return true;.
30f0: 0a 09 73 74 72 69 6e 67 5b 5d 20 77 69 6c 64 73 ..string[] wilds
3100: 20 3d 20 73 70 6c 69 74 28 20 72 65 70 6c 61 63 = split( replac
3110: 65 5f 79 65 6e 28 20 74 6f 4c 6f 77 65 72 28 77 e_yen( toLower(w
3120: 69 6c 64 29 20 29 2c 20 22 2f 22 20 29 3b 0a 09 ild) ), "/" );..
3130: 73 74 72 69 6e 67 5b 5d 20 6e 61 6d 65 73 20 3d string[] names =
3140: 20 73 70 6c 69 74 28 20 72 65 70 6c 61 63 65 5f split( replace_
3150: 79 65 6e 28 20 74 6f 4c 6f 77 65 72 28 6e 61 6d yen( toLower(nam
3160: 65 29 20 29 2c 20 22 2f 22 20 29 3b 0a 0a 09 69 e) ), "/" );...i
3170: 66 28 20 77 69 6c 64 73 2e 6c 65 6e 67 74 68 20 f( wilds.length
3180: 21 3d 20 6e 61 6d 65 73 2e 6c 65 6e 67 74 68 20 != names.length
3190: 29 0a 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 )...return false
31a0: 3b 0a 09 66 6f 72 28 69 6e 74 20 69 3d 30 3b 20 ;..for(int i=0;
31b0: 69 21 3d 77 69 6c 64 73 2e 6c 65 6e 67 74 68 3b i!=wilds.length;
31c0: 20 2b 2b 69 29 0a 09 09 69 66 28 20 77 69 6c 64 ++i)...if( wild
31d0: 73 5b 69 5d 21 3d 22 2a 2e 2a 22 20 26 26 20 77 s[i]!="*.*" && w
31e0: 69 6c 64 73 5b 69 5d 21 3d 22 2a 22 20 26 26 20 ilds[i]!="*" &&
31f0: 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 2a 22 20 29 wilds[i]!="**" )
3200: 0a 09 09 09 69 66 28 20 21 77 69 6c 64 5f 6d 61 ....if( !wild_ma
3210: 74 63 68 5f 6e 6f 70 61 74 68 28 20 77 69 6c 64 tch_nopath( wild
3220: 73 5b 69 5d 2c 20 6e 61 6d 65 73 5b 69 5d 20 29 s[i], names[i] )
3230: 20 29 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 ).....return fa
3240: 6c 73 65 3b 0a 09 72 65 74 75 72 6e 20 74 72 75 lse;..return tru
3250: 65 3b 0a 7d 0a 0a 73 74 72 69 6e 67 20 63 68 65 e;.}..string che
3260: 63 6b 5f 70 61 74 68 28 20 73 74 72 69 6e 67 20 ck_path( string
3270: 69 6e 5f 70 61 74 68 20 29 0a 7b 0a 09 63 68 61 in_path ).{..cha
3280: 72 5b 5d 20 70 61 74 68 20 3d 20 69 6e 5f 70 61 r[] path = in_pa
3290: 74 68 2e 64 75 70 3b 0a 0a 09 2f 2f 20 43 3a 5c th.dup;...// C:\
32a0: 20 3d 3d 3e 20 43 5f 5c 0a 09 69 66 28 20 70 61 ==> C_\..if( pa
32b0: 74 68 2e 6c 65 6e 67 74 68 3e 3d 32 20 26 26 20 th.length>=2 &&
32c0: 70 61 74 68 5b 31 5d 3d 3d 27 3a 27 20 29 0a 09 path[1]==':' )..
32d0: 09 70 61 74 68 5b 31 5d 20 3d 20 27 5f 27 3b 0a .path[1] = '_';.
32e0: 0a 09 2f 2f 20 5c 5c 68 6f 67 65 20 3d 3d 3e 20 ..// \\hoge ==>
32f0: 68 6f 67 65 0a 09 2f 2f 20 2f 68 6f 67 65 20 20 hoge..// /hoge
3300: 3d 3d 3e 20 68 6f 67 65 0a 09 77 68 69 6c 65 28 ==> hoge..while(
3310: 20 70 61 74 68 2e 6c 65 6e 67 74 68 3e 30 20 26 path.length>0 &
3320: 26 20 28 70 61 74 68 5b 30 5d 3d 3d 27 5c 5c 27 & (path[0]=='\\'
3330: 7c 7c 70 61 74 68 5b 30 5d 3d 3d 27 2f 27 29 20 ||path[0]=='/')
3340: 29 0a 09 09 70 61 74 68 20 3d 20 70 61 74 68 5b )...path = path[
3350: 31 2e 2e 24 5d 3b 0a 0a 09 2f 2f 20 2e 2e 20 3d 1..$];...// .. =
3360: 3d 3e 20 5f 5f 0a 09 73 74 72 69 6e 67 5b 5d 20 => __..string[]
3370: 70 61 74 68 73 20 3d 20 73 70 6c 69 74 28 20 72 paths = split( r
3380: 65 70 6c 61 63 65 5f 79 65 6e 28 70 61 74 68 2e eplace_yen(path.
3390: 69 64 75 70 29 2c 20 22 2f 22 20 29 3b 0a 09 4c idup), "/" );..L
33a0: 31 3a 0a 09 66 6f 72 65 61 63 68 28 20 72 65 66 1:..foreach( ref
33b0: 20 73 74 72 69 6e 67 20 70 63 20 3b 20 70 61 74 string pc ; pat
33c0: 68 73 20 29 0a 09 09 69 66 28 20 70 63 2e 6c 65 hs )...if( pc.le
33d0: 6e 67 74 68 20 3e 3d 20 32 20 29 0a 09 09 7b 0a ngth >= 2 )...{.
33e0: 09 09 09 66 6f 72 65 61 63 68 28 20 63 68 61 72 ...foreach( char
33f0: 20 63 20 3b 20 70 63 20 29 0a 09 09 09 09 69 66 c ; pc ).....if
3400: 28 20 63 20 21 3d 20 27 2e 27 20 29 0a 09 09 09 ( c != '.' )....
3410: 09 09 63 6f 6e 74 69 6e 75 65 20 4c 31 3b 0a 09 ..continue L1;..
3420: 09 09 70 63 20 3d 20 72 65 70 6c 61 63 65 28 20 ..pc = replace(
3430: 70 63 2c 20 22 2e 22 2c 20 22 5f 22 20 29 3b 0a pc, ".", "_" );.
3440: 09 09 7d 0a 0a 09 72 65 74 75 72 6e 20 6a 6f 69 ..}...return joi
3450: 6e 28 20 70 61 74 68 73 2c 20 22 5c 5c 22 20 29 n( paths, "\\" )
3460: 3b 0a 7d 0a 0a 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d ;.}....//-------
3470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b0 a1 ---------.// ...
34b0: e6 98 93 e3 83 86 e3 82 b9 e3 83 88 ef bc a0 e3 ................
34c0: 82 82 e3 81 a3 e3 81 a8 e3 83 9e e3 82 b8 e3 83 ................
34d0: a1 e3 81 ab e6 9b b8 e3 81 8b e3 81 aa e3 81 8d ................
34e0: e3 82 83 e2 80 a6 0a 2f 2f 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 2d ----------------
3520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 75 6e 69 74 74 ---------..unitt
3530: 65 73 74 0a 7b 0a 09 61 73 73 65 72 74 28 20 63 est.{..assert( c
3540: 68 65 63 6b 5f 70 61 74 68 28 60 5c 5c 5c 5c 68 heck_path(`\\\\h
3550: 6f 67 65 5c 66 75 67 61 60 29 3d 3d 60 68 6f 67 oge\fuga`)==`hog
3560: 65 5c 66 75 67 61 60 20 29 3b 0a 09 61 73 73 65 e\fuga` );..asse
3570: 72 74 28 20 63 68 65 63 6b 5f 70 61 74 68 28 60 rt( check_path(`
3580: 2f 75 73 72 2f 6c 6f 63 61 6c 2f 60 29 3d 3d 60 /usr/local/`)==`
3590: 75 73 72 5c 6c 6f 63 61 6c 5c 60 20 29 3b 0a 09 usr\local\` );..
35a0: 61 73 73 65 72 74 28 20 63 68 65 63 6b 5f 70 61 assert( check_pa
35b0: 74 68 28 60 2e 2e 5c 61 62 63 20 64 65 66 5c 2e th(`..\abc def\.
35c0: 2e 2e 5c 2e 5c 67 60 29 3d 3d 60 5f 5f 5c 61 62 ..\.\g`)==`__\ab
35d0: 63 20 64 65 66 5c 5f 5f 5f 5c 2e 5c 67 60 20 29 c def\___\.\g` )
35e0: 3b 0a 09 61 73 73 65 72 74 28 20 77 69 6c 64 5f ;..assert( wild_
35f0: 6d 61 74 63 68 28 60 61 2f 62 2f 63 60 2c 60 41 match(`a/b/c`,`A
3600: 5c 62 5c 43 60 29 20 29 3b 0a 09 61 73 73 65 72 \b\C`) );..asser
3610: 74 28 20 77 69 6c 64 5f 6d 61 74 63 68 28 60 61 t( wild_match(`a
3620: 2f 2a 2e 2a 2f 61 3f 78 60 2c 60 41 5c 68 6f 67 /*.*/a?x`,`A\hog
3630: 65 5c 41 66 78 60 29 20 29 3b 0a 09 61 73 73 65 e\Afx`) );..asse
3640: 72 74 28 20 42 67 61 5f 69 6d 70 6c 28 6e 75 6c rt( Bga_impl(nul
3650: 6c 2c 22 61 20 68 6f 67 65 22 29 20 3c 20 30 20 l,"a hoge") < 0
3660: 29 3b 0a 7d 0a );.}.