0000: 69 6d 70 6f 72 74 20 77 69 6e 33 32 2e 77 69 6e import win32.win
0010: 64 6f 77 73 3b 0a 69 6d 70 6f 72 74 20 73 74 64 dows;.import std
0020: 2e 73 74 72 69 6e 67 3b 0a 69 6d 70 6f 72 74 20 .string;.import
0030: 73 74 64 2e 66 69 6c 65 3b 0a 69 6d 70 6f 72 74 std.file;.import
0040: 20 73 74 64 2e 74 72 61 69 74 73 3b 0a 69 6d 70 std.traits;.imp
0050: 6f 72 74 20 75 74 69 6c 3b 0a 69 6d 70 6f 72 74 ort util;.import
0060: 20 77 69 6e 64 6c 6c 3b 0a 69 6d 70 6f 72 74 20 windll;.import
0070: 62 67 61 5f 6d 65 6c 74 65 72 3b 0a 69 6d 70 6f bga_melter;.impo
0080: 72 74 20 71 62 67 61 5f 67 75 69 3b 0a 0a 2f 2f rt qbga_gui;..//
0090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00d0: 0a 2f 2f 20 41 50 49 e8 bb a2 e9 80 81 e5 87 a6 .// API.........
00e0: e7 90 86 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ....//----------
00f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 0a 57 69 6e 44 4c 4c 20 67 ------..WinDLL g
0130: 5f 6f 72 69 67 5f 64 6c 6c 20 3d 20 6e 75 6c 6c _orig_dll = null
0140: 3b 0a 55 49 4e 54 20 20 20 57 4d 5f 41 52 43 45 ;.UINT WM_ARCE
0150: 58 54 52 41 43 54 3b 0a 63 6f 6e 73 74 20 20 45 XTRACT;.const E
0160: 52 52 4f 52 5f 4e 4f 5f 42 47 41 33 32 44 4c 4c RROR_NO_BGA32DLL
0170: 20 3d 20 30 78 39 30 30 30 3b 0a 0a 73 74 61 74 = 0x9000;..stat
0180: 69 63 20 74 68 69 73 28 29 0a 7b 0a 09 67 5f 6f ic this().{..g_o
0190: 72 69 67 5f 64 6c 6c 20 3d 20 57 69 6e 44 4c 4c rig_dll = WinDLL
01a0: 2e 6c 6f 61 64 28 20 22 5f 42 67 61 33 32 2e 44 .load( "_Bga32.D
01b0: 4c 4c 22 20 29 3b 0a 09 57 4d 5f 41 52 43 45 58 LL" );..WM_ARCEX
01c0: 54 52 41 43 54 20 3d 20 52 65 67 69 73 74 65 72 TRACT = Register
01d0: 57 69 6e 64 6f 77 4d 65 73 73 61 67 65 28 22 77 WindowMessage("w
01e0: 6d 5f 61 72 63 65 78 74 72 61 63 74 22 29 3b 0a m_arcextract");.
01f0: 7d 0a 0a 73 74 61 74 69 63 20 7e 74 68 69 73 28 }..static ~this(
0200: 29 0a 7b 0a 09 69 66 28 67 5f 6f 72 69 67 5f 64 ).{..if(g_orig_d
0210: 6c 6c 29 0a 09 09 67 5f 6f 72 69 67 5f 64 6c 6c ll)...g_orig_dll
0220: 2e 63 6c 6f 73 65 28 29 3b 0a 7d 0a 0a 46 6e 54 .close();.}..FnT
0230: 20 61 70 69 28 46 6e 54 2c 20 69 6e 74 20 64 65 api(FnT, int de
0240: 66 61 75 6c 74 52 29 28 73 74 72 69 6e 67 20 6e faultR)(string n
0250: 61 6d 65 29 0a 7b 0a 09 46 6e 54 20 64 65 66 20 ame).{..FnT def
0260: 3d 20 66 75 6e 63 74 69 6f 6e 28 50 61 72 61 6d = function(Param
0270: 65 74 65 72 54 79 70 65 54 75 70 6c 65 21 28 46 eterTypeTuple!(F
0280: 6e 54 29 20 78 73 29 20 7b 0a 09 09 72 65 74 75 nT) xs) {...retu
0290: 72 6e 20 63 61 73 74 28 52 65 74 75 72 6e 54 79 rn cast(ReturnTy
02a0: 70 65 21 28 46 6e 54 29 29 64 65 66 61 75 6c 74 pe!(FnT))default
02b0: 52 3b 0a 09 7d 3b 0a 09 69 66 28 67 5f 6f 72 69 R;..};..if(g_ori
02c0: 67 5f 64 6c 6c 20 69 73 20 6e 75 6c 6c 29 20 72 g_dll is null) r
02d0: 65 74 75 72 6e 20 64 65 66 3b 0a 09 46 6e 54 20 eturn def;..FnT
02e0: 66 20 3d 20 67 5f 6f 72 69 67 5f 64 6c 6c 2e 67 f = g_orig_dll.g
02f0: 65 74 5f 61 70 69 21 28 46 6e 54 29 28 6e 61 6d et_api!(FnT)(nam
0300: 65 29 3b 0a 09 72 65 74 75 72 6e 20 66 20 3f 20 e);..return f ?
0310: 66 20 3a 20 64 65 66 3b 0a 7d 0a 0a 2f 2f 2d 2d f : def;.}..//--
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f --------------./
0360: 2f 20 e7 b5 b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 / ..............
0370: ab e3 82 a4 e3 83 90 41 50 49 ef bc 9a e8 bb a2 .......API......
0380: e9 80 81 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ....//----------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03a0: 2d 2d 2d 2d 2d 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 0a 0a 65 78 74 65 72 6e 28 57 ------..extern(W
03d0: 69 6e 64 6f 77 73 29 0a 7b 0a 09 69 6e 74 20 42 indows).{..int B
03e0: 67 61 28 20 48 57 4e 44 20 61 2c 20 69 6d 6d 75 ga( HWND a, immu
03f0: 74 61 62 6c 65 20 63 68 61 72 2a 20 62 2c 20 63 table char* b, c
0400: 68 61 72 2a 20 63 2c 20 44 57 4f 52 44 20 64 20 har* c, DWORD d
0410: 29 0a 09 7b 0a 09 09 69 6e 74 20 72 20 3d 20 42 )..{...int r = B
0420: 67 61 5f 69 6d 70 6c 28 20 61 2c 20 62 2e 66 72 ga_impl( a, b.fr
0430: 6f 6d 53 74 72 69 6e 67 7a 28 29 20 29 3b 0a 09 omStringz() );..
0440: 09 69 66 28 20 72 20 3c 20 30 20 29 20 2f 2f 20 .if( r < 0 ) //
0450: e3 81 93 e3 81 ae e3 83 80 e3 83 9f e3 83 bc 44 ...............D
0460: 4c 4c e3 81 a7 e3 81 af e5 87 a6 e7 90 86 e3 81 LL..............
0470: a7 e3 81 8d e3 81 aa e3 81 84 e3 82 b3 e3 83 9e ................
0480: e3 83 b3 e3 83 89 e3 81 a0 e3 81 a3 e3 81 9f e6 ................
0490: 99 82 0a 09 09 09 72 65 74 75 72 6e 20 61 70 69 ......return api
04a0: 21 28 74 79 70 65 6f 66 28 26 42 67 61 29 2c 20 !(typeof(&Bga),
04b0: 45 52 52 4f 52 5f 4e 4f 5f 42 47 41 33 32 44 4c ERROR_NO_BGA32DL
04c0: 4c 29 28 22 42 67 61 22 29 28 61 2c 62 2c 63 2c L)("Bga")(a,b,c,
04d0: 64 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a d);...return r;.
04e0: 09 7d 0a 0a 09 57 4f 52 44 20 51 42 67 61 47 65 .}...WORD QBgaGe
04f0: 74 56 65 72 73 69 6f 6e 28 29 0a 09 7b 0a 09 09 tVersion()..{...
0500: 72 65 74 75 72 6e 20 36 3b 0a 09 7d 0a 0a 09 57 return 6;..}...W
0510: 4f 52 44 20 42 67 61 47 65 74 56 65 72 73 69 6f ORD BgaGetVersio
0520: 6e 28 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 n()..{...return
0530: 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 api!(typeof(&Bga
0540: 47 65 74 56 65 72 73 69 6f 6e 29 2c 20 30 29 28 GetVersion), 0)(
0550: 22 42 67 61 47 65 74 56 65 72 73 69 6f 6e 22 29 "BgaGetVersion")
0560: 28 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 ();..}...BOOL Bg
0570: 61 47 65 74 52 75 6e 6e 69 6e 67 28 29 0a 09 7b aGetRunning()..{
0580: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0590: 79 70 65 6f 66 28 26 42 67 61 47 65 74 52 75 6e ypeof(&BgaGetRun
05a0: 6e 69 6e 67 29 2c 20 46 41 4c 53 45 29 28 22 42 ning), FALSE)("B
05b0: 67 61 47 65 74 52 75 6e 6e 69 6e 67 22 29 28 29 gaGetRunning")()
05c0: 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 ;..}...BOOL BgaC
05d0: 68 65 63 6b 41 72 63 68 69 76 65 28 20 63 68 61 heckArchive( cha
05e0: 72 2a 20 61 2c 20 69 6e 74 20 62 20 29 0a 09 7b r* a, int b )..{
05f0: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0600: 79 70 65 6f 66 28 26 42 67 61 43 68 65 63 6b 41 ypeof(&BgaCheckA
0610: 72 63 68 69 76 65 29 2c 20 46 41 4c 53 45 29 28 rchive), FALSE)(
0620: 22 42 67 61 43 68 65 63 6b 41 72 63 68 69 76 65 "BgaCheckArchive
0630: 22 29 28 61 2c 62 29 3b 0a 09 7d 0a 0a 09 42 4f ")(a,b);..}...BO
0640: 4f 4c 20 42 67 61 43 6f 6e 66 69 67 44 69 61 6c OL BgaConfigDial
0650: 6f 67 28 20 48 57 4e 44 20 61 2c 20 63 68 61 72 og( HWND a, char
0660: 2a 20 62 2c 20 69 6e 74 20 63 20 29 0a 09 7b 0a * b, int c )..{.
0670: 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 ..return api!(ty
0680: 70 65 6f 66 28 26 42 67 61 43 6f 6e 66 69 67 44 peof(&BgaConfigD
0690: 69 61 6c 6f 67 29 2c 20 45 52 52 4f 52 5f 4e 4f ialog), ERROR_NO
06a0: 5f 42 47 41 33 32 44 4c 4c 29 28 22 42 67 61 43 _BGA32DLL)("BgaC
06b0: 6f 6e 66 69 67 44 69 61 6c 6f 67 22 29 28 61 2c onfigDialog")(a,
06c0: 62 2c 63 29 3b 0a 09 7d 0a 0a 09 69 6e 74 20 42 b,c);..}...int B
06d0: 67 61 47 65 74 46 69 6c 65 43 6f 75 6e 74 28 20 gaGetFileCount(
06e0: 63 68 61 72 2a 20 61 20 29 0a 09 7b 0a 09 09 72 char* a )..{...r
06f0: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
0700: 66 28 26 42 67 61 47 65 74 46 69 6c 65 43 6f 75 f(&BgaGetFileCou
0710: 6e 74 29 2c 20 2d 31 29 28 22 42 67 61 47 65 74 nt), -1)("BgaGet
0720: 46 69 6c 65 43 6f 75 6e 74 22 29 28 61 29 3b 0a FileCount")(a);.
0730: 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 51 75 65 .}...BOOL BgaQue
0740: 72 79 46 75 6e 63 74 69 6f 6e 4c 69 73 74 28 20 ryFunctionList(
0750: 69 6e 74 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 int a )..{...ret
0760: 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 urn api!(typeof(
0770: 26 42 67 61 51 75 65 72 79 46 75 6e 63 74 69 6f &BgaQueryFunctio
0780: 6e 4c 69 73 74 29 2c 20 46 41 4c 53 45 29 28 22 nList), FALSE)("
0790: 42 67 61 51 75 65 72 79 46 75 6e 63 74 69 6f 6e BgaQueryFunction
07a0: 4c 69 73 74 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 List")(a);..}...
07b0: 61 6c 69 61 73 20 76 6f 69 64 2a 20 48 41 52 43 alias void* HARC
07c0: 3b 0a 09 48 41 52 43 20 42 67 61 4f 70 65 6e 41 ;..HARC BgaOpenA
07d0: 72 63 68 69 76 65 28 20 48 57 4e 44 20 61 2c 20 rchive( HWND a,
07e0: 63 68 61 72 2a 20 62 2c 20 44 57 4f 52 44 20 63 char* b, DWORD c
07f0: 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 )..{...return a
0800: 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 4f pi!(typeof(&BgaO
0810: 70 65 6e 41 72 63 68 69 76 65 29 2c 20 30 29 28 penArchive), 0)(
0820: 22 42 67 61 4f 70 65 6e 41 72 63 68 69 76 65 22 "BgaOpenArchive"
0830: 29 28 61 2c 62 2c 63 29 3b 0a 09 7d 0a 0a 09 69 )(a,b,c);..}...i
0840: 6e 74 20 42 67 61 43 6c 6f 73 65 41 72 63 68 69 nt BgaCloseArchi
0850: 76 65 28 20 48 41 52 43 20 61 20 29 0a 09 7b 0a ve( HARC a )..{.
0860: 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 ..return api!(ty
0870: 70 65 6f 66 28 26 42 67 61 43 6c 6f 73 65 41 72 peof(&BgaCloseAr
0880: 63 68 69 76 65 29 2c 20 30 29 28 22 42 67 61 43 chive), 0)("BgaC
0890: 6c 6f 73 65 41 72 63 68 69 76 65 22 29 28 61 29 loseArchive")(a)
08a0: 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 ;..}...alias voi
08b0: 64 2a 20 4c 50 49 4e 44 49 56 49 44 55 41 4c 49 d* LPINDIVIDUALI
08c0: 4e 46 4f 3b 0a 09 69 6e 74 20 42 67 61 46 69 6e NFO;..int BgaFin
08d0: 64 46 69 72 73 74 28 20 48 41 52 43 20 61 2c 20 dFirst( HARC a,
08e0: 63 68 61 72 2a 20 62 2c 20 4c 50 49 4e 44 49 56 char* b, LPINDIV
08f0: 49 44 55 41 4c 49 4e 46 4f 20 63 20 29 0a 09 7b IDUALINFO c )..{
0900: 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 ...return api!(t
0910: 79 70 65 6f 66 28 26 42 67 61 46 69 6e 64 46 69 ypeof(&BgaFindFi
0920: 72 73 74 29 2c 20 2d 31 29 28 22 42 67 61 46 69 rst), -1)("BgaFi
0930: 6e 64 46 69 72 73 74 22 29 28 61 2c 62 2c 63 29 ndFirst")(a,b,c)
0940: 3b 0a 09 7d 0a 0a 09 69 6e 74 20 42 67 61 46 69 ;..}...int BgaFi
0950: 6e 64 4e 65 78 74 28 20 48 41 52 43 20 61 2c 20 ndNext( HARC a,
0960: 4c 50 49 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f LPINDIVIDUALINFO
0970: 20 62 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e b )..{...return
0980: 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 api!(typeof(&Bg
0990: 61 46 69 6e 64 4e 65 78 74 29 2c 20 2d 31 29 28 aFindNext), -1)(
09a0: 22 42 67 61 46 69 6e 64 4e 65 78 74 22 29 28 61 "BgaFindNext")(a
09b0: 2c 62 29 3b 0a 09 7d 0a 0a 09 44 57 4f 52 44 20 ,b);..}...DWORD
09c0: 42 67 61 47 65 74 41 72 63 4f 72 69 67 69 6e 61 BgaGetArcOrigina
09d0: 6c 53 69 7a 65 28 20 48 41 52 43 20 61 20 29 0a lSize( HARC a ).
09e0: 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 .{...return api!
09f0: 28 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 41 (typeof(&BgaGetA
0a00: 72 63 4f 72 69 67 69 6e 61 6c 53 69 7a 65 29 2c rcOriginalSize),
0a10: 20 2d 31 29 28 22 42 67 61 47 65 74 41 72 63 4f -1)("BgaGetArcO
0a20: 72 69 67 69 6e 61 6c 53 69 7a 65 22 29 28 61 29 riginalSize")(a)
0a30: 3b 0a 09 7d 0a 0a 09 44 57 4f 52 44 20 42 67 61 ;..}...DWORD Bga
0a40: 47 65 74 41 72 63 43 6f 6d 70 72 65 73 73 65 64 GetArcCompressed
0a50: 53 69 7a 65 28 20 48 41 52 43 20 61 20 29 0a 09 Size( HARC a )..
0a60: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0a70: 74 79 70 65 6f 66 28 26 42 67 61 47 65 74 41 72 typeof(&BgaGetAr
0a80: 63 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 29 cCompressedSize)
0a90: 2c 20 2d 31 29 28 22 42 67 61 47 65 74 41 72 63 , -1)("BgaGetArc
0aa0: 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 22 29 CompressedSize")
0ab0: 28 61 29 3b 0a 09 7d 0a 0a 09 57 4f 52 44 20 42 (a);..}...WORD B
0ac0: 67 61 47 65 74 41 72 63 52 61 74 69 6f 28 20 48 gaGetArcRatio( H
0ad0: 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 ARC a )..{...ret
0ae0: 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 urn api!(typeof(
0af0: 26 42 67 61 47 65 74 41 72 63 52 61 74 69 6f 29 &BgaGetArcRatio)
0b00: 2c 20 2d 31 29 28 22 42 67 61 47 65 74 41 72 63 , -1)("BgaGetArc
0b10: 52 61 74 69 6f 22 29 28 61 29 3b 0a 09 7d 0a 0a Ratio")(a);..}..
0b20: 09 42 4f 4f 4c 20 42 67 61 53 65 74 4f 77 6e 65 .BOOL BgaSetOwne
0b30: 72 57 69 6e 64 6f 77 28 20 48 57 4e 44 20 61 20 rWindow( HWND a
0b40: 29 0a 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 )..{...BOOL r =
0b50: 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 api!(typeof(&Bga
0b60: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 29 2c SetOwnerWindow),
0b70: 20 46 41 4c 53 45 29 28 22 42 67 61 53 65 74 4f FALSE)("BgaSetO
0b80: 77 6e 65 72 57 69 6e 64 6f 77 22 29 28 61 29 3b wnerWindow")(a);
0b90: 0a 09 09 69 66 28 20 72 20 29 20 42 67 61 53 65 ...if( r ) BgaSe
0ba0: 74 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 tOwnerWindow_imp
0bb0: 6c 28 61 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 l(a);...return r
0bc0: 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 ;..}...BOOL BgaC
0bd0: 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 28 learOwnerWindow(
0be0: 29 0a 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 )..{...BOOL r =
0bf0: 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 api!(typeof(&Bga
0c00: 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 ClearOwnerWindow
0c10: 29 2c 20 46 41 4c 53 45 29 28 22 42 67 61 43 6c ), FALSE)("BgaCl
0c20: 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 22 29 earOwnerWindow")
0c30: 28 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f 77 ();...BgaClearOw
0c40: 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 nerWindow_impl()
0c50: 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d ;...return r;..}
0c60: 0a 0a 09 61 6c 69 61 73 20 42 4f 4f 4c 20 66 75 ...alias BOOL fu
0c70: 6e 63 74 69 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 nction(HWND,UINT
0c80: 2c 55 49 4e 54 2c 45 58 54 52 41 43 54 49 4e 47 ,UINT,EXTRACTING
0c90: 49 4e 46 4f 45 58 2a 29 20 41 52 43 48 49 56 45 INFOEX*) ARCHIVE
0ca0: 52 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 RPROC;..BOOL Bga
0cb0: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 SetOwnerWindowEx
0cc0: 28 20 48 57 4e 44 20 61 2c 20 41 52 43 48 49 56 ( HWND a, ARCHIV
0cd0: 45 52 50 52 4f 43 2a 20 62 20 29 0a 09 7b 0a 09 ERPROC* b )..{..
0ce0: 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 .BOOL r = api!(t
0cf0: 79 70 65 6f 66 28 26 42 67 61 53 65 74 4f 77 6e ypeof(&BgaSetOwn
0d00: 65 72 57 69 6e 64 6f 77 45 78 29 2c 20 46 41 4c erWindowEx), FAL
0d10: 53 45 29 28 22 42 67 61 53 65 74 4f 77 6e 65 72 SE)("BgaSetOwner
0d20: 57 69 6e 64 6f 77 45 78 22 29 28 61 2c 62 29 3b WindowEx")(a,b);
0d30: 0a 09 09 69 66 28 20 72 20 29 20 42 67 61 53 65 ...if( r ) BgaSe
0d40: 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 5f 69 tOwnerWindowEx_i
0d50: 6d 70 6c 28 61 2c 62 29 3b 0a 09 09 72 65 74 75 mpl(a,b);...retu
0d60: 72 6e 20 72 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 rn r;..}...BOOL
0d70: 42 67 61 4b 69 6c 6c 4f 77 6e 65 72 57 69 6e 64 BgaKillOwnerWind
0d80: 6f 77 45 78 28 20 48 57 4e 44 20 61 20 29 0a 09 owEx( HWND a )..
0d90: 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 {...BOOL r = api
0da0: 21 28 74 79 70 65 6f 66 28 26 42 67 61 4b 69 6c !(typeof(&BgaKil
0db0: 6c 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 29 2c lOwnerWindowEx),
0dc0: 20 46 41 4c 53 45 29 28 22 42 67 61 4b 69 6c 6c FALSE)("BgaKill
0dd0: 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 22 29 28 OwnerWindowEx")(
0de0: 61 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f 77 a);...BgaClearOw
0df0: 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 nerWindow_impl()
0e00: 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d ;...return r;..}
0e10: 0a 0a 09 61 6c 69 61 73 20 76 6f 69 64 2a 20 55 ...alias void* U
0e20: 4e 4c 48 41 5f 57 4e 44 5f 45 4e 55 4d 4d 45 4d NLHA_WND_ENUMMEM
0e30: 42 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 BPROC;..BOOL Bga
0e40: 53 65 74 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 SetEnumMembersPr
0e50: 6f 63 28 20 55 4e 4c 48 41 5f 57 4e 44 5f 45 4e oc( UNLHA_WND_EN
0e60: 55 4d 4d 45 4d 42 50 52 4f 43 20 61 20 29 0a 09 UMMEMBPROC a )..
0e70: 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 {...return api!(
0e80: 74 79 70 65 6f 66 28 26 42 67 61 53 65 74 45 6e typeof(&BgaSetEn
0e90: 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 29 2c 20 umMembersProc),
0ea0: 46 41 4c 53 45 29 28 22 42 67 61 53 65 74 45 6e FALSE)("BgaSetEn
0eb0: 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 22 29 28 umMembersProc")(
0ec0: 61 29 3b 0a 09 7d 0a 0a 09 42 4f 4f 4c 20 42 67 a);..}...BOOL Bg
0ed0: 61 43 6c 65 61 72 45 6e 75 6d 4d 65 6d 62 65 72 aClearEnumMember
0ee0: 73 50 72 6f 63 28 29 0a 09 7b 0a 09 09 72 65 74 sProc()..{...ret
0ef0: 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 urn api!(typeof(
0f00: 26 42 67 61 43 6c 65 61 72 45 6e 75 6d 4d 65 6d &BgaClearEnumMem
0f10: 62 65 72 73 50 72 6f 63 29 2c 20 46 41 4c 53 45 bersProc), FALSE
0f20: 29 28 22 42 67 61 43 6c 65 61 72 45 6e 75 6d 4d )("BgaClearEnumM
0f30: 65 6d 62 65 72 73 50 72 6f 63 22 29 28 29 3b 0a embersProc")();.
0f40: 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d .}.}..//--------
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 --------.// ....
0f90: 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 ................
0fa0: 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 85 28 20 42 .API.........( B
0fb0: 67 61 20 29 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d ga ).//---------
0fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 0a 0a 69 6e 74 20 42 67 61 -------..int Bga
1000: 5f 69 6d 70 6c 28 20 48 57 4e 44 20 77 6e 64 2c _impl( HWND wnd,
1010: 20 73 74 72 69 6e 67 20 63 6d 64 5f 73 74 72 20 string cmd_str
1020: 29 0a 7b 0a 09 65 6e 75 6d 20 7b 20 55 4e 53 55 ).{..enum { UNSU
1030: 50 50 4f 52 54 45 44 20 3d 20 2d 31 20 7d 0a 0a PPORTED = -1 }..
1040: 09 2f 2f 0a 09 2f 2f 20 e3 82 b3 e3 83 9e e3 83 .//..// ........
1050: b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 b3 e8 a7 a3 ................
1060: e6 9e 90 0a 09 2f 2f 0a 09 73 74 72 69 6e 67 5b .....//..string[
1070: 5d 20 63 6d 64 20 3d 20 63 6d 64 5f 70 61 72 73 ] cmd = cmd_pars
1080: 65 28 63 6d 64 5f 73 74 72 29 3b 0a 0a 09 2f 2f e(cmd_str);...//
1090: 20 78 e4 bb a5 e5 a4 96 e3 81 ae e3 82 b3 e3 83 x..............
10a0: 9e e3 83 b3 e3 83 89 e3 81 af e6 89 b1 e3 82 8f ................
10b0: e3 81 aa e3 81 84 e3 81 a7 e6 9c ac e7 89 a9 44 ...............D
10c0: 4c 4c e3 81 ab e5 9b 9e e3 81 97 e3 81 be e3 81 LL..............
10d0: 99 e3 80 82 e6 b3 a8 e6 84 8f e7 82 b9 e3 81 a8 ................
10e0: e3 81 97 e3 81 a6 ef bc 9a 0a 09 2f 2f 20 20 3e ...........// >
10f0: 20 63 6f 6d 6d 61 6e 64 20 e3 81 af e3 82 b3 e3 command .......
1100: 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 ................
1110: b3 e3 81 ae e6 9c 80 e5 88 9d e3 81 ae e5 bc 95 ................
1120: e6 95 b0 e3 81 a8 e3 81 97 e3 81 a6 e3 81 8f e3 ................
1130: 81 a0 e3 81 95 e3 81 84 e3 80 82 e3 81 aa e3 81 ................
1140: 8a e3 80 81 63 6f 6d 6d 61 6e 64 20 e3 82 92 e7 ....command ....
1150: 9c 81 e7 95 a5 0a 09 2f 2f 20 20 3e 20 e3 81 97 .......// > ...
1160: e3 81 9f e5 a0 b4 e5 90 88 e3 81 af 20 27 78 27 ............ 'x'
1170: 20 63 6f 6d 6d 61 6e 64 20 e3 81 8c e6 8c 87 e5 command .......
1180: ae 9a e3 81 95 e3 82 8c e3 81 9f e3 82 82 e3 81 ................
1190: ae e3 81 a8 e3 81 bf e3 81 aa e3 81 97 e3 81 be ................
11a0: e3 81 99 e3 80 82 0a 09 69 66 28 20 63 6d 64 2e ........if( cmd.
11b0: 6c 65 6e 67 74 68 20 3d 3d 20 30 20 29 0a 09 09 length == 0 )...
11c0: 72 65 74 75 72 6e 20 55 4e 53 55 50 50 4f 52 54 return UNSUPPORT
11d0: 45 44 3b 0a 09 69 66 28 20 63 6d 64 5b 30 5d 2e ED;..if( cmd[0].
11e0: 6c 65 6e 67 74 68 20 3d 3d 20 31 20 29 0a 09 7b length == 1 )..{
11f0: 0a 09 09 69 66 28 20 30 20 3c 3d 20 22 61 64 6a ...if( 0 <= "adj
1200: 6c 6d 6e 73 74 76 41 44 4a 4c 4d 4e 53 54 56 22 lmnstvADJLMNSTV"
1210: 2e 69 6e 64 65 78 4f 66 28 63 6d 64 5b 30 5d 5b .indexOf(cmd[0][
1220: 30 5d 29 20 29 0a 09 09 09 72 65 74 75 72 6e 20 0]) )....return
1230: 55 4e 53 55 50 50 4f 52 54 45 44 3b 0a 09 09 69 UNSUPPORTED;...i
1240: 66 28 20 63 6d 64 5b 30 5d 5b 30 5d 3d 3d 27 78 f( cmd[0][0]=='x
1250: 27 20 7c 7c 20 63 6d 64 5b 30 5d 5b 30 5d 3d 3d ' || cmd[0][0]==
1260: 27 58 27 20 29 0a 09 09 09 63 6d 64 20 3d 20 63 'X' )....cmd = c
1270: 6d 64 5b 31 20 2e 2e 20 24 5d 3b 0a 09 7d 0a 0a md[1 .. $];..}..
1280: 09 2f 2f 20 e2 80 bb 20 e3 81 93 e3 81 ae e6 99 .// ... ........
1290: 82 e7 82 b9 e3 81 a7 e3 80 81 63 6d 64 e3 81 ab ..........cmd...
12a0: e3 81 af 63 6f 6d 6d 61 6e 64 e3 82 92 e9 99 a4 ...command......
12b0: e3 81 84 e3 81 9f e6 ae 8b e3 82 8a e3 81 ae e5 ................
12c0: bc 95 e6 95 b0 e3 81 8c e5 85 a5 e3 81 a3 e3 81 ................
12d0: a6 e3 81 84 e3 82 8b e3 81 af e3 81 9a 0a 0a 09 ................
12e0: 2f 2f 0a 09 2f 2f 20 e3 82 b9 e3 82 a4 e3 83 83 //..// .........
12f0: e3 83 81 e8 a7 a3 e6 9e 90 e3 80 81 e5 bc 95 e6 ................
1300: 95 b0 e8 a7 a3 e6 9e 90 0a 09 2f 2f 0a 09 62 6f ..........//..bo
1310: 6f 6c 20 61 6c 6c 5f 61 74 74 72 73 20 20 20 20 ol all_attrs
1320: 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d = false; // -
1330: 61 0a 09 62 6f 6f 6c 20 73 69 6c 65 6e 74 20 20 a..bool silent
1340: 20 20 20 20 20 20 20 20 3d 20 66 61 6c 73 65 3b = false;
1350: 20 2f 2f 20 2d 69 0a 09 62 6f 6f 6c 20 69 67 6e // -i..bool ign
1360: 6f 72 65 5f 64 69 72 20 20 20 20 20 20 3d 20 66 ore_dir = f
1370: 61 6c 73 65 3b 20 2f 2f 20 2d 6a 0a 09 62 6f 6f alse; // -j..boo
1380: 6c 20 6e 65 77 66 69 6c 65 5f 6f 6e 6c 79 20 20 l newfile_only
1390: 20 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 6e = false; // -n
13a0: 0a 09 62 6f 6f 6c 20 66 6f 72 63 65 5f 6f 76 65 ..bool force_ove
13b0: 72 77 72 69 74 65 20 3d 20 66 61 6c 73 65 3b 20 rwrite = false;
13c0: 2f 2f 20 2d 6f 0a 09 62 6f 6f 6c 20 72 65 63 75 // -o..bool recu
13d0: 72 73 69 76 65 20 20 20 20 20 20 20 3d 20 66 61 rsive = fa
13e0: 6c 73 65 3b 20 2f 2f 20 2d 72 0a 09 62 6f 6f 6c lse; // -r..bool
13f0: 20 73 61 6e 69 74 69 7a 65 5f 70 61 74 68 20 20 sanitize_path
1400: 20 3d 20 74 72 75 65 3b 0a 0a 09 73 74 72 69 6e = true;...strin
1410: 67 20 61 72 63 5f 6e 61 6d 65 20 3d 20 6e 75 6c g arc_name = nul
1420: 6c 3b 0a 09 73 74 72 69 6e 67 20 62 61 73 65 5f l;..string base_
1430: 64 69 72 20 3d 20 6e 75 6c 6c 3b 0a 09 73 74 72 dir = null;..str
1440: 69 6e 67 5b 5d 20 70 61 74 68 73 3b 0a 0a 09 66 ing[] paths;...f
1450: 6f 72 65 61 63 68 28 20 73 74 72 69 6e 67 20 70 oreach( string p
1460: 61 72 61 6d 20 3b 20 63 6d 64 20 29 0a 09 09 69 aram ; cmd )...i
1470: 66 28 20 70 61 72 61 6d 5b 30 5d 20 3d 3d 20 27 f( param[0] == '
1480: 2d 27 20 29 0a 09 09 09 73 77 69 74 63 68 28 20 -' )....switch(
1490: 70 61 72 61 6d 5b 31 5d 20 29 0a 09 09 09 7b 0a param[1] )....{.
14a0: 09 09 09 63 61 73 65 20 27 61 27 2c 27 41 27 3a ...case 'a','A':
14b0: 20 61 6c 6c 5f 61 74 74 72 73 20 20 20 20 20 20 all_attrs
14c0: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
14d0: 09 09 09 63 61 73 65 20 27 69 27 2c 27 49 27 3a ...case 'i','I':
14e0: 20 73 69 6c 65 6e 74 20 20 20 20 20 20 20 20 20 silent
14f0: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1500: 09 09 09 63 61 73 65 20 27 6a 27 2c 27 4a 27 3a ...case 'j','J':
1510: 20 69 67 6e 6f 72 65 5f 64 69 72 20 20 20 20 20 ignore_dir
1520: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1530: 09 09 09 63 61 73 65 20 27 6e 27 2c 27 4e 27 3a ...case 'n','N':
1540: 20 6e 65 77 66 69 6c 65 5f 6f 6e 6c 79 20 20 20 newfile_only
1550: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1560: 09 09 09 63 61 73 65 20 27 6f 27 2c 27 4f 27 3a ...case 'o','O':
1570: 20 66 6f 72 63 65 5f 6f 76 65 72 77 72 69 74 65 force_overwrite
1580: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
1590: 09 09 09 63 61 73 65 20 27 72 27 2c 27 52 27 3a ...case 'r','R':
15a0: 20 72 65 63 75 72 73 69 76 65 20 20 20 20 20 20 recursive
15b0: 20 3d 20 74 72 75 65 3b 20 62 72 65 61 6b 3b 0a = true; break;.
15c0: 09 09 09 64 65 66 61 75 6c 74 3a 20 20 62 72 65 ...default: bre
15d0: 61 6b 3b 0a 09 09 09 7d 0a 09 09 65 6c 73 65 20 ak;....}...else
15e0: 69 66 28 20 61 72 63 5f 6e 61 6d 65 20 69 73 20 if( arc_name is
15f0: 6e 75 6c 6c 20 29 0a 09 09 7b 0a 09 09 09 61 72 null )...{....ar
1600: 63 5f 6e 61 6d 65 20 3d 20 70 61 72 61 6d 3b 0a c_name = param;.
1610: 09 09 7d 0a 09 09 65 6c 73 65 20 69 66 28 20 62 ..}...else if( b
1620: 61 73 65 5f 64 69 72 20 69 73 20 6e 75 6c 6c 20 ase_dir is null
1630: 29 0a 09 09 7b 0a 09 09 09 69 66 28 20 6c 61 73 )...{....if( las
1640: 74 43 68 61 72 28 70 61 72 61 6d 29 20 3d 3d 20 tChar(param) ==
1650: 27 5c 5c 27 20 29 0a 09 09 09 09 62 61 73 65 5f '\\' ).....base_
1660: 64 69 72 20 3d 20 70 61 72 61 6d 3b 0a 09 09 09 dir = param;....
1670: 65 6c 73 65 20 7b 0a 09 09 09 09 63 68 61 72 5b else {.....char[
1680: 5d 20 62 75 66 3b 0a 09 09 09 09 62 75 66 2e 6c ] buf;.....buf.l
1690: 65 6e 67 74 68 20 3d 20 47 65 74 43 75 72 72 65 ength = GetCurre
16a0: 6e 74 44 69 72 65 63 74 6f 72 79 41 28 30 2c 6e ntDirectoryA(0,n
16b0: 75 6c 6c 29 2b 31 3b 0a 09 09 09 09 47 65 74 43 ull)+1;.....GetC
16c0: 75 72 72 65 6e 74 44 69 72 65 63 74 6f 72 79 41 urrentDirectoryA
16d0: 28 62 75 66 2e 6c 65 6e 67 74 68 2c 20 62 75 66 (buf.length, buf
16e0: 2e 70 74 72 29 3b 0a 09 09 09 09 62 61 73 65 5f .ptr);.....base_
16f0: 64 69 72 20 3d 20 62 75 66 2e 70 74 72 2e 66 72 dir = buf.ptr.fr
1700: 6f 6d 53 74 72 69 6e 67 7a 28 29 2e 69 64 75 70 omStringz().idup
1710: 3b 0a 09 09 09 09 69 66 28 20 6c 61 73 74 43 68 ;.....if( lastCh
1720: 61 72 28 62 61 73 65 5f 64 69 72 29 20 21 3d 20 ar(base_dir) !=
1730: 27 5c 5c 27 20 29 0a 09 09 09 09 09 62 61 73 65 '\\' )......base
1740: 5f 64 69 72 20 7e 3d 20 27 5c 5c 27 3b 0a 09 09 _dir ~= '\\';...
1750: 09 7d 0a 09 09 7d 0a 09 09 65 6c 73 65 0a 09 09 .}...}...else...
1760: 09 70 61 74 68 73 20 7e 3d 20 70 61 72 61 6d 3b .paths ~= param;
1770: 0a 0a 09 2f 2f 0a 09 2f 2f 20 e5 b1 95 e9 96 8b ...//..// ......
1780: e5 87 a6 e7 90 86 e3 81 ab 47 6f 21 0a 09 2f 2f .........Go!..//
1790: 0a 09 50 72 6f 67 72 65 73 73 44 6c 67 20 64 6c ..ProgressDlg dl
17a0: 67 20 3d 20 6e 75 6c 6c 3b 0a 09 69 66 28 20 21 g = null;..if( !
17b0: 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 do_ownerwnd_proc
17c0: 28 20 4f 50 5f 41 52 43 5f 42 45 47 49 4e 2c 20 ( OP_ARC_BEGIN,
17d0: 6e 75 6c 6c 2c 20 30 2c 20 61 72 63 5f 6e 61 6d null, 0, arc_nam
17e0: 65 20 29 20 29 0a 09 09 72 65 74 75 72 6e 20 30 e ) )...return 0
17f0: 78 38 30 32 30 3b 0a 0a 09 74 72 79 0a 09 7b 0a x8020;...try..{.
1800: 09 09 69 66 28 20 21 73 69 6c 65 6e 74 20 26 26 ..if( !silent &&
1810: 20 67 5f 68 61 6e 64 6c 65 72 20 69 73 20 6e 75 g_handler is nu
1820: 6c 6c 20 29 20 2f 2f 20 2d 69 20 2f 20 4f 77 6e ll ) // -i / Own
1830: 65 72 57 6e 64 50 72 6f 63 0a 09 09 7b 0a 09 09 erWndProc...{...
1840: 09 64 6c 67 20 3d 20 6e 65 77 20 50 72 6f 67 72 .dlg = new Progr
1850: 65 73 73 44 6c 67 28 0a 09 09 09 09 63 61 73 74 essDlg(.....cast
1860: 28 44 4c 47 54 45 4d 50 4c 41 54 45 2a 29 20 67 (DLGTEMPLATE*) g
1870: 5f 6f 72 69 67 5f 64 6c 6c 2e 6c 6f 61 64 5f 64 _orig_dll.load_d
1880: 69 61 6c 6f 67 28 22 23 32 30 32 35 22 29 2c 20 ialog("#2025"),
1890: 77 6e 64 20 29 3b 0a 09 09 09 64 6c 67 2e 73 65 wnd );....dlg.se
18a0: 74 5f 61 72 63 6e 61 6d 65 28 61 72 63 5f 6e 61 t_arcname(arc_na
18b0: 6d 65 29 3b 0a 09 09 7d 0a 0a 09 09 73 74 72 69 me);...}....stri
18c0: 6e 67 20 20 20 20 73 72 63 5f 66 6e 61 6d 65 3b ng src_fname;
18d0: 20 2f 2f 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 // OwnerWndProc
18e0: e9 96 a2 e4 bf 82 0a 09 09 42 67 61 48 65 61 64 .........BgaHead
18f0: 65 72 20 63 75 72 5f 68 64 72 3b 20 20 20 2f 2f er cur_hdr; //
1900: 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 e9 96 a2 OwnerWndProc...
1910: e4 bf 82 0a 0a 09 09 42 67 61 41 6e 73 77 65 72 .......BgaAnswer
1920: 20 68 61 6e 64 6c 65 72 28 20 72 65 66 20 42 67 handler( ref Bg
1930: 61 48 65 61 64 65 72 20 68 64 72 20 29 0a 09 09 aHeader hdr )...
1940: 7b 0a 09 09 09 73 72 63 5f 66 6e 61 6d 65 20 3d {....src_fname =
1950: 20 68 64 72 2e 66 6e 61 6d 65 3b 0a 09 09 09 70 hdr.fname;....p
1960: 72 6f 63 65 73 73 5f 6d 65 73 73 61 67 65 73 28 rocess_messages(
1970: 29 3b 0a 0a 09 09 09 2f 2f 20 70 61 74 68 73 0a );.....// paths.
1980: 09 09 09 69 66 28 20 70 61 74 68 73 2e 6c 65 6e ...if( paths.len
1990: 67 74 68 20 3e 20 30 20 29 0a 09 09 09 7b 0a 09 gth > 0 )....{..
19a0: 09 09 09 73 74 72 69 6e 67 20 66 6e 61 6d 65 20 ...string fname
19b0: 3d 20 2f 2f 20 2d 72 0a 09 09 09 09 09 28 72 65 = // -r......(re
19c0: 63 75 72 73 69 76 65 20 3f 20 68 64 72 2e 66 6e cursive ? hdr.fn
19d0: 61 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 ame[hdr.dir_name
19e0: 5f 6c 65 6e 2e 2e 24 5d 20 3a 20 68 64 72 2e 66 _len..$] : hdr.f
19f0: 6e 61 6d 65 29 3b 0a 09 09 09 09 66 6f 72 65 61 name);.....forea
1a00: 63 68 28 20 73 74 72 69 6e 67 20 77 20 3b 20 70 ch( string w ; p
1a10: 61 74 68 73 20 29 0a 09 09 09 09 09 69 66 28 20 aths )......if(
1a20: 77 69 6c 64 5f 6d 61 74 63 68 28 20 77 2c 20 66 wild_match( w, f
1a30: 6e 61 6d 65 20 29 20 29 0a 09 09 09 09 09 09 67 name ) ).......g
1a40: 6f 74 6f 20 6f 6b 3b 0a 09 09 09 09 72 65 74 75 oto ok;.....retu
1a50: 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 rn BgaAnswer.Ski
1a60: 70 49 74 3b 0a 09 09 09 6f 6b 3a 3b 0a 09 09 09 pIt;....ok:;....
1a70: 7d 0a 09 09 09 2f 2f 20 2d 61 0a 09 09 09 69 66 }....// -a....if
1a80: 28 20 21 61 6c 6c 5f 61 74 74 72 73 20 26 26 20 ( !all_attrs &&
1a90: 28 68 64 72 2e 61 74 74 72 69 62 26 36 29 20 29 (hdr.attrib&6) )
1aa0: 0a 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 .....return BgaA
1ab0: 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a 09 09 nswer.SkipIt;...
1ac0: 09 2f 2f 20 64 69 61 6c 6f 67 0a 09 09 09 69 66 .// dialog....if
1ad0: 28 20 64 6c 67 20 29 0a 09 09 09 09 69 66 28 20 ( dlg ).....if(
1ae0: 64 6c 67 2e 63 6c 6f 73 65 64 20 29 0a 09 09 09 dlg.closed )....
1af0: 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 ..return BgaAnsw
1b00: 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 09 65 6c er.Abort;.....el
1b10: 73 65 0a 09 09 09 09 09 64 6c 67 2e 73 65 74 5f se......dlg.set_
1b20: 66 69 6c 65 6e 61 6d 65 28 20 68 64 72 2e 66 6e filename( hdr.fn
1b30: 61 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 ame[hdr.dir_name
1b40: 5f 6c 65 6e 2e 2e 24 5d 20 29 3b 0a 09 09 09 2f _len..$] );..../
1b50: 2f 20 2d 6a 0a 09 09 09 69 66 28 20 69 67 6e 6f / -j....if( igno
1b60: 72 65 5f 64 69 72 20 29 0a 09 09 09 09 68 64 72 re_dir ).....hdr
1b70: 2e 66 6e 61 6d 65 20 3d 20 68 64 72 2e 66 6e 61 .fname = hdr.fna
1b80: 6d 65 5b 68 64 72 2e 64 69 72 5f 6e 61 6d 65 5f me[hdr.dir_name_
1b90: 6c 65 6e 20 2e 2e 20 24 5d 3b 0a 09 09 09 2f 2f len .. $];....//
1ba0: 20 73 61 6e 69 74 69 7a 65 0a 09 09 09 69 66 28 sanitize....if(
1bb0: 20 73 61 6e 69 74 69 7a 65 5f 70 61 74 68 20 29 sanitize_path )
1bc0: 0a 09 09 09 09 68 64 72 2e 66 6e 61 6d 65 20 3d .....hdr.fname =
1bd0: 20 63 68 65 63 6b 5f 70 61 74 68 28 68 64 72 2e check_path(hdr.
1be0: 66 6e 61 6d 65 29 3b 0a 09 09 09 2f 2f 20 62 61 fname);....// ba
1bf0: 73 65 5f 64 69 72 0a 09 09 09 68 64 72 2e 66 6e se_dir....hdr.fn
1c00: 61 6d 65 20 3d 20 28 62 61 73 65 5f 64 69 72 20 ame = (base_dir
1c10: 7e 20 68 64 72 2e 66 6e 61 6d 65 29 2e 64 75 70 ~ hdr.fname).dup
1c20: 3b 0a 09 09 09 2f 2f 20 2d 6f 0a 09 09 09 69 66 ;....// -o....if
1c30: 28 20 21 66 6f 72 63 65 5f 6f 76 65 72 77 72 69 ( !force_overwri
1c40: 74 65 20 29 0a 09 09 09 09 74 72 79 20 7b 0a 09 te ).....try {..
1c50: 09 09 09 69 66 28 20 73 74 64 2e 66 69 6c 65 2e ...if( std.file.
1c60: 65 78 69 73 74 73 28 68 64 72 2e 66 6e 61 6d 65 exists(hdr.fname
1c70: 29 20 26 26 20 73 74 64 2e 66 69 6c 65 2e 69 73 ) && std.file.is
1c80: 46 69 6c 65 28 68 64 72 2e 66 6e 61 6d 65 29 20 File(hdr.fname)
1c90: 29 0a 09 09 09 09 09 2f 2f 20 2d 6e 0a 09 09 09 )......// -n....
1ca0: 09 09 69 66 28 20 6e 65 77 66 69 6c 65 5f 6f 6e ..if( newfile_on
1cb0: 6c 79 20 29 0a 09 09 09 09 09 7b 0a 09 09 09 09 ly )......{.....
1cc0: 09 09 69 66 28 20 6e 65 77 65 72 5f 74 68 61 6e ..if( newer_than
1cd0: 28 68 64 72 2e 64 61 74 65 2c 68 64 72 2e 74 69 (hdr.date,hdr.ti
1ce0: 6d 65 2c 68 64 72 2e 66 6e 61 6d 65 29 20 29 0a me,hdr.fname) ).
1cf0: 09 09 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 .......return Bg
1d00: 61 41 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a aAnswer.SkipIt;.
1d10: 09 09 09 09 09 7d 0a 09 09 09 09 09 65 6c 73 65 .....}......else
1d20: 0a 09 09 09 09 09 7b 0a 09 09 09 09 09 09 69 6e ......{.......in
1d30: 74 20 72 20 3d 20 4d 65 73 73 61 67 65 42 6f 78 t r = MessageBox
1d40: 41 28 20 64 6c 67 3f 64 6c 67 2e 68 77 6e 64 3a A( dlg?dlg.hwnd:
1d50: 77 6e 64 2c 0a 09 09 09 09 09 09 09 74 6f 53 74 wnd,........toSt
1d60: 72 69 6e 67 7a 28 22 4f 76 65 72 77 72 69 74 65 ringz("Overwrite
1d70: 20 22 7e 68 64 72 2e 66 6e 61 6d 65 7e 22 20 3f "~hdr.fname~" ?
1d80: 22 29 2c 0a 09 09 09 09 09 09 09 22 51 42 67 61 "),........"QBga
1d90: 33 32 2e 64 6c 6c 22 2c 20 4d 42 5f 59 45 53 4e 32.dll", MB_YESN
1da0: 4f 43 41 4e 43 45 4c 20 29 3b 0a 09 09 09 09 09 OCANCEL );......
1db0: 09 69 66 28 20 72 20 3d 3d 20 49 44 4e 4f 20 29 .if( r == IDNO )
1dc0: 20 20 20 20 20 72 65 74 75 72 6e 20 42 67 61 41 return BgaA
1dd0: 6e 73 77 65 72 2e 53 6b 69 70 49 74 3b 0a 09 09 nswer.SkipIt;...
1de0: 09 09 09 09 69 66 28 20 72 20 3d 3d 20 49 44 43 ....if( r == IDC
1df0: 41 4e 43 45 4c 20 29 20 72 65 74 75 72 6e 20 42 ANCEL ) return B
1e00: 67 61 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a gaAnswer.Abort;.
1e10: 09 09 09 09 09 7d 0a 09 09 09 09 7d 20 63 61 74 .....}.....} cat
1e20: 63 68 20 7b 7d 0a 0a 09 09 09 63 75 72 5f 68 64 ch {}.....cur_hd
1e30: 72 20 3d 20 68 64 72 3b 0a 09 09 09 69 66 28 20 r = hdr;....if(
1e40: 21 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f !do_ownerwnd_pro
1e50: 63 28 20 4f 50 5f 46 49 4c 45 5f 42 45 47 49 4e c( OP_FILE_BEGIN
1e60: 2c 20 26 63 75 72 5f 68 64 72 2c 20 30 2c 20 73 , &cur_hdr, 0, s
1e70: 72 63 5f 66 6e 61 6d 65 20 29 20 29 0a 09 09 09 rc_fname ) )....
1e80: 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 .return BgaAnswe
1e90: 72 2e 41 62 6f 72 74 3b 0a 09 09 09 72 65 74 75 r.Abort;....retu
1ea0: 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 4d 65 6c rn BgaAnswer.Mel
1eb0: 74 49 74 3b 0a 09 09 7d 0a 0a 09 09 42 67 61 41 tIt;...}....BgaA
1ec0: 6e 73 77 65 72 20 70 72 6f 67 72 65 73 73 5f 68 nswer progress_h
1ed0: 61 6e 64 6c 65 72 28 20 69 6e 74 20 63 75 72 2c andler( int cur,
1ee0: 20 69 6e 74 20 6d 61 78 20 29 0a 09 09 7b 0a 09 int max )...{..
1ef0: 09 09 70 72 6f 63 65 73 73 5f 6d 65 73 73 61 67 ..process_messag
1f00: 65 73 28 29 3b 0a 09 09 09 69 66 28 20 64 6c 67 es();....if( dlg
1f10: 20 29 0a 09 09 09 09 69 66 28 20 64 6c 67 2e 63 ).....if( dlg.c
1f20: 6c 6f 73 65 64 20 29 0a 09 09 09 09 09 72 65 74 losed )......ret
1f30: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 41 62 urn BgaAnswer.Ab
1f40: 6f 72 74 3b 0a 09 09 09 09 65 6c 73 65 0a 09 09 ort;.....else...
1f50: 09 09 09 64 6c 67 2e 73 65 74 5f 70 6f 73 28 20 ...dlg.set_pos(
1f60: 63 61 73 74 28 72 65 61 6c 29 28 63 75 72 29 2f cast(real)(cur)/
1f70: 6d 61 78 20 29 3b 0a 09 09 09 69 66 28 20 21 64 max );....if( !d
1f80: 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 28 o_ownerwnd_proc(
1f90: 20 4f 50 5f 46 49 4c 45 5f 4d 49 44 44 4c 45 2c OP_FILE_MIDDLE,
1fa0: 20 26 63 75 72 5f 68 64 72 2c 20 63 75 72 2c 20 &cur_hdr, cur,
1fb0: 73 72 63 5f 66 6e 61 6d 65 20 29 20 29 0a 09 09 src_fname ) )...
1fc0: 09 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 ..return BgaAnsw
1fd0: 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 72 65 74 er.Abort;....ret
1fe0: 75 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 4d 65 urn BgaAnswer.Me
1ff0: 6c 74 49 74 3b 0a 09 09 7d 0a 0a 09 09 28 6e 65 ltIt;...}....(ne
2000: 77 20 42 67 61 4d 65 6c 74 65 72 28 61 72 63 5f w BgaMelter(arc_
2010: 6e 61 6d 65 29 29 2e 73 74 61 72 74 28 26 68 61 name)).start(&ha
2020: 6e 64 6c 65 72 2c 26 70 72 6f 67 72 65 73 73 5f ndler,&progress_
2030: 68 61 6e 64 6c 65 72 29 3b 0a 09 7d 0a 09 63 61 handler);..}..ca
2040: 74 63 68 28 20 42 67 61 4d 65 6c 74 65 72 45 72 tch( BgaMelterEr
2050: 72 6f 72 20 65 20 29 0a 09 7b 0a 09 09 72 65 74 ror e )..{...ret
2060: 75 72 6e 20 65 2e 65 72 72 63 6f 64 65 3b 0a 09 urn e.errcode;..
2070: 7d 0a 09 66 69 6e 61 6c 6c 79 0a 09 7b 0a 09 09 }..finally..{...
2080: 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 72 6f 63 do_ownerwnd_proc
2090: 28 20 4f 50 5f 41 52 43 5f 45 4e 44 2c 20 6e 75 ( OP_ARC_END, nu
20a0: 6c 6c 2c 20 30 2c 20 61 72 63 5f 6e 61 6d 65 20 ll, 0, arc_name
20b0: 29 3b 0a 09 09 69 66 28 20 64 6c 67 20 29 0a 09 );...if( dlg )..
20c0: 09 09 64 6c 67 2e 63 6c 6f 73 65 28 29 3b 0a 09 ..dlg.close();..
20d0: 7d 0a 09 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a }..return 0;.}..
20e0: 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d //--------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2120: 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 90 88 e3 82 a2 e3 --.// ..........
2130: 83 bc e3 82 ab e3 82 a4 e3 83 90 41 50 49 ef bc ...........API..
2140: 9a e5 ae 9f e8 a3 85 28 20 53 65 74 4f 77 6e 65 .......( SetOwne
2150: 72 57 69 6e 64 6f 77 20 29 0a 2f 2f 2d 2d 2d 2d rWindow ).//----
2160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 61 6c ------------..al
21a0: 69 67 6e 28 31 29 20 73 74 72 75 63 74 20 45 58 ign(1) struct EX
21b0: 54 52 41 43 54 49 4e 47 49 4e 46 4f 0a 7b 0a 09 TRACTINGINFO.{..
21c0: 44 57 4f 52 44 20 20 20 64 77 46 69 6c 65 53 69 DWORD dwFileSi
21d0: 7a 65 3b 0a 09 44 57 4f 52 44 20 20 20 64 77 57 ze;..DWORD dwW
21e0: 72 69 74 65 53 69 7a 65 3b 0a 09 63 68 61 72 20 riteSize;..char
21f0: 20 20 20 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e szSourceFileN
2200: 61 6d 65 5b 35 31 32 20 2b 20 31 5d 3b 0a 09 63 ame[512 + 1];..c
2210: 68 61 72 20 20 20 20 64 75 6d 6d 79 31 5b 33 5d har dummy1[3]
2220: 3b 0a 09 63 68 61 72 20 20 20 20 73 7a 44 65 73 ;..char szDes
2230: 74 46 69 6c 65 4e 61 6d 65 5b 35 31 32 20 2b 20 tFileName[512 +
2240: 31 5d 3b 0a 09 63 68 61 72 20 20 20 20 64 75 6d 1];..char dum
2250: 6d 79 5b 33 5d 3b 0a 7d 0a 61 6c 69 67 6e 28 31 my[3];.}.align(1
2260: 29 20 73 74 72 75 63 74 20 45 58 54 52 41 43 54 ) struct EXTRACT
2270: 49 4e 47 49 4e 46 4f 45 58 0a 7b 0a 09 45 58 54 INGINFOEX.{..EXT
2280: 52 41 43 54 49 4e 47 49 4e 46 4f 20 65 78 69 6e RACTINGINFO exin
2290: 66 6f 3b 0a 09 44 57 4f 52 44 20 64 77 43 6f 6d fo;..DWORD dwCom
22a0: 70 72 65 73 73 65 64 53 69 7a 65 3b 0a 09 44 57 pressedSize;..DW
22b0: 4f 52 44 20 64 77 43 52 43 3b 0a 09 55 49 4e 54 ORD dwCRC;..UINT
22c0: 20 20 75 4f 53 54 79 70 65 3b 0a 09 57 4f 52 44 uOSType;..WORD
22d0: 20 20 77 52 61 74 69 6f 3b 0a 09 57 4f 52 44 20 wRatio;..WORD
22e0: 20 77 44 61 74 65 3b 0a 09 57 4f 52 44 20 20 77 wDate;..WORD w
22f0: 54 69 6d 65 3b 0a 09 63 68 61 72 20 20 73 7a 41 Time;..char szA
2300: 74 74 72 69 62 75 74 65 5b 38 5d 3b 0a 09 63 68 ttribute[8];..ch
2310: 61 72 20 20 73 7a 4d 6f 64 65 5b 38 5d 3b 0a 7d ar szMode[8];.}
2320: 0a 0a 48 57 4e 44 20 67 5f 6f 77 6e 65 72 5f 77 ..HWND g_owner_w
2330: 69 6e 64 6f 77 3b 0a 65 78 74 65 72 6e 28 57 69 indow;.extern(Wi
2340: 6e 64 6f 77 73 29 20 42 4f 4f 4c 20 66 75 6e 63 ndows) BOOL func
2350: 74 69 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 2c 55 tion(HWND,UINT,U
2360: 49 4e 54 2c 45 58 54 52 41 43 54 49 4e 47 49 4e INT,EXTRACTINGIN
2370: 46 4f 45 58 2a 29 20 67 5f 68 61 6e 64 6c 65 72 FOEX*) g_handler
2380: 3b 0a 65 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 ;.extern(Windows
2390: 29 20 42 4f 4f 4c 20 6e 6f 65 78 5f 68 61 6e 64 ) BOOL noex_hand
23a0: 6c 65 72 28 20 48 57 4e 44 20 77 2c 55 49 4e 54 ler( HWND w,UINT
23b0: 20 6d 2c 55 49 4e 54 20 73 2c 20 45 58 54 52 41 m,UINT s, EXTRA
23c0: 43 54 49 4e 47 49 4e 46 4f 45 58 2a 20 65 20 29 CTINGINFOEX* e )
23d0: 0a 7b 0a 09 72 65 74 75 72 6e 20 21 53 65 6e 64 .{..return !Send
23e0: 4d 65 73 73 61 67 65 41 28 20 77 2c 20 6d 2c 20 MessageA( w, m,
23f0: 73 2c 20 63 61 73 74 28 4c 50 41 52 41 4d 29 20 s, cast(LPARAM)
2400: 26 65 2e 65 78 69 6e 66 6f 20 29 3b 0a 7d 0a 0a &e.exinfo );.}..
2410: 76 6f 69 64 20 42 67 61 53 65 74 4f 77 6e 65 72 void BgaSetOwner
2420: 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 20 48 57 4e Window_impl( HWN
2430: 44 20 77 6e 64 20 29 0a 7b 0a 09 67 5f 6f 77 6e D wnd ).{..g_own
2440: 65 72 5f 77 69 6e 64 6f 77 20 3d 20 77 6e 64 3b er_window = wnd;
2450: 0a 09 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 ..g_handler
2460: 20 3d 20 26 6e 6f 65 78 5f 68 61 6e 64 6c 65 72 = &noex_handler
2470: 3b 0a 7d 0a 0a 76 6f 69 64 20 42 67 61 43 6c 65 ;.}..void BgaCle
2480: 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d arOwnerWindow_im
2490: 70 6c 28 29 0a 7b 0a 09 67 5f 6f 77 6e 65 72 5f pl().{..g_owner_
24a0: 77 69 6e 64 6f 77 20 3d 20 6e 75 6c 6c 3b 0a 09 window = null;..
24b0: 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 20 3d g_handler =
24c0: 20 6e 75 6c 6c 3b 0a 7d 0a 0a 76 6f 69 64 20 42 null;.}..void B
24d0: 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 gaSetOwnerWindow
24e0: 45 78 5f 69 6d 70 6c 28 20 48 57 4e 44 20 77 6e Ex_impl( HWND wn
24f0: 64 2c 20 41 52 43 48 49 56 45 52 50 52 4f 43 2a d, ARCHIVERPROC*
2500: 20 70 72 6f 63 20 29 0a 7b 0a 09 67 5f 6f 77 6e proc ).{..g_own
2510: 65 72 5f 77 69 6e 64 6f 77 20 3d 20 77 6e 64 3b er_window = wnd;
2520: 0a 09 67 5f 68 61 6e 64 6c 65 72 20 20 20 20 20 ..g_handler
2530: 20 3d 20 2a 70 72 6f 63 3b 0a 7d 0a 0a 65 6e 75 = *proc;.}..enu
2540: 6d 20 7b 20 4f 50 5f 46 49 4c 45 5f 42 45 47 49 m { OP_FILE_BEGI
2550: 4e 2c 20 4f 50 5f 46 49 4c 45 5f 4d 49 44 44 4c N, OP_FILE_MIDDL
2560: 45 2c 20 4f 50 5f 41 52 43 5f 45 4e 44 2c 20 4f E, OP_ARC_END, O
2570: 50 5f 41 52 43 5f 42 45 47 49 4e 20 7d 0a 62 6f P_ARC_BEGIN }.bo
2580: 6f 6c 20 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 ol do_ownerwnd_p
2590: 72 6f 63 28 20 55 49 4e 54 20 75 53 74 61 74 65 roc( UINT uState
25a0: 2c 20 42 67 61 48 65 61 64 65 72 2a 20 68 64 72 , BgaHeader* hdr
25b0: 2c 20 69 6e 74 20 63 75 72 2c 20 73 74 72 69 6e , int cur, strin
25c0: 67 20 73 72 63 5f 66 6e 61 6d 65 20 29 0a 7b 0a g src_fname ).{.
25d0: 09 69 66 28 20 67 5f 68 61 6e 64 6c 65 72 20 69 .if( g_handler i
25e0: 73 20 6e 75 6c 6c 20 29 0a 09 09 72 65 74 75 72 s null )...retur
25f0: 6e 20 74 72 75 65 3b 0a 09 45 58 54 52 41 43 54 n true;..EXTRACT
2600: 49 4e 47 49 4e 46 4f 45 58 20 65 78 3b 0a 09 69 INGINFOEX ex;..i
2610: 66 28 20 75 53 74 61 74 65 20 3d 3d 20 4f 50 5f f( uState == OP_
2620: 41 52 43 5f 42 45 47 49 4e 20 7c 7c 20 75 53 74 ARC_BEGIN || uSt
2630: 61 74 65 20 3d 3d 20 4f 50 5f 41 52 43 5f 45 4e ate == OP_ARC_EN
2640: 44 20 29 0a 09 7b 0a 09 09 6c 73 74 72 63 70 79 D )..{...lstrcpy
2650: 6e 41 28 20 65 78 2e 65 78 69 6e 66 6f 2e 73 7a nA( ex.exinfo.sz
2660: 53 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 2e 70 SourceFileName.p
2670: 74 72 2c 20 74 6f 53 74 72 69 6e 67 7a 28 73 72 tr, toStringz(sr
2680: 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 20 29 3b c_fname), 512 );
2690: 0a 09 7d 0a 09 65 6c 73 65 0a 09 7b 0a 09 09 65 ..}..else..{...e
26a0: 78 2e 65 78 69 6e 66 6f 2e 64 77 46 69 6c 65 53 x.exinfo.dwFileS
26b0: 69 7a 65 20 20 3d 20 68 64 72 2e 6f 72 69 67 69 ize = hdr.origi
26c0: 6e 61 6c 5f 73 69 7a 65 3b 0a 09 09 65 78 2e 65 nal_size;...ex.e
26d0: 78 69 6e 66 6f 2e 64 77 57 72 69 74 65 53 69 7a xinfo.dwWriteSiz
26e0: 65 20 3d 20 63 75 72 3b 0a 09 09 6c 73 74 72 63 e = cur;...lstrc
26f0: 70 79 6e 41 28 20 65 78 2e 65 78 69 6e 66 6f 2e pynA( ex.exinfo.
2700: 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 szSourceFileName
2710: 2e 70 74 72 2c 20 74 6f 53 74 72 69 6e 67 7a 28 .ptr, toStringz(
2720: 73 72 63 5f 66 6e 61 6d 65 29 2c 20 35 31 32 20 src_fname), 512
2730: 29 3b 0a 09 09 6c 73 74 72 63 70 79 6e 41 28 20 );...lstrcpynA(
2740: 65 78 2e 65 78 69 6e 66 6f 2e 73 7a 44 65 73 74 ex.exinfo.szDest
2750: 46 69 6c 65 4e 61 6d 65 2e 70 74 72 2c 20 74 6f FileName.ptr, to
2760: 53 74 72 69 6e 67 7a 28 68 64 72 2e 66 6e 61 6d Stringz(hdr.fnam
2770: 65 29 2c 20 35 31 32 20 29 3b 0a 09 09 65 78 2e e), 512 );...ex.
2780: 64 77 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 dwCompressedSize
2790: 20 3d 20 68 64 72 2e 63 6f 6d 70 72 65 73 73 65 = hdr.compresse
27a0: 64 5f 73 69 7a 65 3b 0a 09 09 65 78 2e 77 52 61 d_size;...ex.wRa
27b0: 74 69 6f 20 3d 20 63 61 73 74 28 75 73 68 6f 72 tio = cast(ushor
27c0: 74 29 28 20 28 63 61 73 74 28 72 65 61 6c 29 68 t)( (cast(real)h
27d0: 64 72 2e 63 6f 6d 70 72 65 73 73 65 64 5f 73 69 dr.compressed_si
27e0: 7a 65 29 2f 68 64 72 2e 6f 72 69 67 69 6e 61 6c ze)/hdr.original
27f0: 5f 73 69 7a 65 2a 31 30 30 30 20 29 3b 0a 09 09 _size*1000 );...
2800: 65 78 2e 77 44 61 74 65 20 20 3d 20 68 64 72 2e ex.wDate = hdr.
2810: 64 61 74 65 3b 0a 09 09 65 78 2e 77 54 69 6d 65 date;...ex.wTime
2820: 20 20 3d 20 68 64 72 2e 74 69 6d 65 3b 0a 09 09 = hdr.time;...
2830: 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 30 ex.szAttribute[0
2840: 5d 20 3d 20 28 68 64 72 2e 61 74 74 72 69 62 26 ] = (hdr.attrib&
2850: 33 32 20 3f 20 27 41 27 3a 20 27 2d 27 29 3b 0a 32 ? 'A': '-');.
2860: 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 74 65 ..ex.szAttribute
2870: 5b 31 5d 20 3d 20 28 68 64 72 2e 61 74 74 72 69 [1] = (hdr.attri
2880: 62 26 31 20 20 3f 20 27 52 27 3a 20 27 2d 27 29 b&1 ? 'R': '-')
2890: 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 ;...ex.szAttribu
28a0: 74 65 5b 32 5d 20 3d 20 28 68 64 72 2e 61 74 74 te[2] = (hdr.att
28b0: 72 69 62 26 32 20 20 3f 20 27 48 27 3a 20 27 2d rib&2 ? 'H': '-
28c0: 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 ');...ex.szAttri
28d0: 62 75 74 65 5b 33 5d 20 3d 20 28 68 64 72 2e 61 bute[3] = (hdr.a
28e0: 74 74 72 69 62 26 34 20 20 3f 20 27 53 27 3a 20 ttrib&4 ? 'S':
28f0: 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 '-');...ex.szAtt
2900: 72 69 62 75 74 65 5b 34 5d 20 3d 20 28 68 64 72 ribute[4] = (hdr
2910: 2e 61 74 74 72 69 62 26 31 36 20 3f 20 27 44 27 .attrib&16 ? 'D'
2920: 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 : '-');...ex.szA
2930: 74 74 72 69 62 75 74 65 5b 35 5d 20 3d 20 27 5c ttribute[5] = '\
2940: 30 27 3b 0a 09 09 69 66 28 20 68 64 72 2e 6d 65 0';...if( hdr.me
2950: 74 68 6f 64 5b 30 5d 3d 3d 27 47 27 20 29 0a 09 thod[0]=='G' )..
2960: 09 09 6c 73 74 72 63 70 79 41 28 65 78 2e 73 7a ..lstrcpyA(ex.sz
2970: 4d 6f 64 65 2e 70 74 72 2c 22 2d 67 7a 69 70 2d Mode.ptr,"-gzip-
2980: 22 29 3b 0a 09 09 65 6c 73 65 0a 09 09 09 6c 73 ");...else....ls
2990: 74 72 63 70 79 41 28 65 78 2e 73 7a 4d 6f 64 65 trcpyA(ex.szMode
29a0: 2e 70 74 72 2c 22 2d 62 7a 69 70 32 2d 22 29 3b .ptr,"-bzip2-");
29b0: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 66 61 6c ..}...return fal
29c0: 73 65 20 21 3d 20 67 5f 68 61 6e 64 6c 65 72 28 se != g_handler(
29d0: 20 67 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 2c g_owner_window,
29e0: 20 57 4d 5f 41 52 43 45 58 54 52 41 43 54 2c 20 WM_ARCEXTRACT,
29f0: 75 53 74 61 74 65 2c 20 26 65 78 20 29 3b 0a 7d uState, &ex );.}
2a00: 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..//------------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 0a 2f 2f 20 e3 83 91 e3 82 b9 e6 a4 ----.// ........
2a50: 9c e6 9f bb e7 b3 bb 0a 2f 2f 2d 2d 2d 2d 2d 2d ........//------
2a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 61 6c 69 61 ----------..alia
2aa0: 73 20 63 6f 72 65 2e 73 79 73 2e 77 69 6e 64 6f s core.sys.windo
2ab0: 77 73 2e 77 69 6e 64 6f 77 73 2e 49 73 44 42 43 ws.windows.IsDBC
2ac0: 53 4c 65 61 64 42 79 74 65 20 69 73 44 4c 3b 0a SLeadByte isDL;.
2ad0: 73 74 72 69 6e 67 20 72 65 70 6c 61 63 65 5f 79 string replace_y
2ae0: 65 6e 28 20 73 74 72 69 6e 67 20 73 20 29 0a 7b en( string s ).{
2af0: 0a 09 73 74 72 69 6e 67 20 61 6e 73 3b 0a 09 69 ..string ans;..i
2b00: 6e 74 20 6a 3d 30 3b 0a 09 66 6f 72 28 69 6e 74 nt j=0;..for(int
2b10: 20 69 3d 30 3b 20 69 21 3d 73 2e 6c 65 6e 67 74 i=0; i!=s.lengt
2b20: 68 3b 20 69 3d 69 2b 28 69 73 44 4c 28 73 5b 69 h; i=i+(isDL(s[i
2b30: 5d 29 3f 32 3a 31 29 29 0a 09 09 69 66 28 20 73 ])?2:1))...if( s
2b40: 5b 69 5d 20 3d 3d 20 27 5c 5c 27 20 29 0a 09 09 [i] == '\\' )...
2b50: 09 61 6e 73 7e 3d 73 5b 6a 20 2e 2e 20 69 5d 2c .ans~=s[j .. i],
2b60: 20 61 6e 73 7e 3d 27 2f 27 2c 20 6a 3d 69 2b 31 ans~='/', j=i+1
2b70: 3b 0a 09 61 6e 73 20 7e 3d 20 73 5b 6a 20 2e 2e ;..ans ~= s[j ..
2b80: 20 24 5d 3b 0a 09 72 65 74 75 72 6e 20 61 6e 73 $];..return ans
2b90: 3b 0a 7d 0a 0a 62 6f 6f 6c 20 77 69 6c 64 5f 6d ;.}..bool wild_m
2ba0: 61 74 63 68 28 20 73 74 72 69 6e 67 20 77 69 6c atch( string wil
2bb0: 64 2c 20 73 74 72 69 6e 67 20 6e 61 6d 65 20 29 d, string name )
2bc0: 0a 7b 0a 09 62 6f 6f 6c 20 77 69 6c 64 5f 6d 61 .{..bool wild_ma
2bd0: 74 63 68 5f 6e 6f 70 61 74 68 28 20 73 74 72 69 tch_nopath( stri
2be0: 6e 67 20 77 2c 20 73 74 72 69 6e 67 20 73 20 29 ng w, string s )
2bf0: 0a 09 7b 0a 09 09 73 74 72 69 6e 67 20 61 64 76 ..{...string adv
2c00: 61 6e 63 65 28 20 73 74 72 69 6e 67 20 73 20 29 ance( string s )
2c10: 0a 09 09 7b 0a 09 09 09 72 65 74 75 72 6e 20 73 ...{....return s
2c20: 5b 28 49 73 44 42 43 53 4c 65 61 64 42 79 74 65 [(IsDBCSLeadByte
2c30: 28 73 5b 30 5d 29 3f 32 3a 31 29 20 2e 2e 20 24 (s[0])?2:1) .. $
2c40: 5d 3b 0a 09 09 7d 0a 0a 09 09 77 68 69 6c 65 28 ];...}....while(
2c50: 20 77 2e 6c 65 6e 67 74 68 3e 30 20 29 0a 09 09 w.length>0 )...
2c60: 09 73 77 69 74 63 68 28 20 77 5b 30 5d 20 29 0a .switch( w[0] ).
2c70: 09 09 09 7b 0a 09 09 09 63 61 73 65 20 27 3f 27 ...{....case '?'
2c80: 3a 0a 09 09 09 09 69 66 28 20 73 2e 6c 65 6e 67 :.....if( s.leng
2c90: 74 68 3d 3d 30 20 29 0a 09 09 09 09 09 72 65 74 th==0 )......ret
2ca0: 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 09 09 77 urn false;.....w
2cb0: 20 3d 20 61 64 76 61 6e 63 65 28 77 29 3b 0a 09 = advance(w);..
2cc0: 09 09 09 73 20 3d 20 61 64 76 61 6e 63 65 28 73 ...s = advance(s
2cd0: 29 3b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 );.....break;...
2ce0: 09 63 61 73 65 20 27 2a 27 3a 0a 09 09 09 09 69 .case '*':.....i
2cf0: 66 28 20 73 2e 6c 65 6e 67 74 68 3d 3d 30 20 29 f( s.length==0 )
2d00: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c ......return fal
2d10: 73 65 3b 0a 09 09 09 09 77 20 3d 20 61 64 76 61 se;.....w = adva
2d20: 6e 63 65 28 77 29 3b 0a 09 09 09 09 69 66 28 20 nce(w);.....if(
2d30: 77 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 20 29 0a w.length == 0 ).
2d40: 09 09 09 09 09 72 65 74 75 72 6e 20 74 72 75 65 .....return true
2d50: 3b 0a 09 09 09 09 66 6f 72 28 20 3b 20 73 2e 6c ;.....for( ; s.l
2d60: 65 6e 67 74 68 21 3d 30 3b 20 73 3d 61 64 76 61 ength!=0; s=adva
2d70: 6e 63 65 28 73 29 20 29 0a 09 09 09 09 09 69 66 nce(s) )......if
2d80: 28 20 77 69 6c 64 5f 6d 61 74 63 68 5f 6e 6f 70 ( wild_match_nop
2d90: 61 74 68 28 77 2c 73 29 20 29 0a 09 09 09 09 09 ath(w,s) )......
2da0: 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a 09 09 .return true;...
2db0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a ..return false;.
2dc0: 09 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 09 ...default:.....
2dd0: 69 66 28 20 73 2e 6c 65 6e 67 74 68 3d 3d 30 20 if( s.length==0
2de0: 29 0a 09 09 09 09 09 72 65 74 75 72 6e 20 66 61 )......return fa
2df0: 6c 73 65 3b 0a 09 09 09 09 69 66 28 20 69 73 44 lse;.....if( isD
2e00: 4c 28 77 5b 30 5d 29 20 29 0a 09 09 09 09 20 20 L(w[0]) ).....
2e10: 7b 20 69 66 28 20 77 5b 30 2e 2e 32 5d 20 21 3d { if( w[0..2] !=
2e20: 20 73 5b 30 2e 2e 32 5d 20 29 20 72 65 74 75 72 s[0..2] ) retur
2e30: 6e 20 66 61 6c 73 65 3b 20 7d 0a 09 09 09 09 65 n false; }.....e
2e40: 6c 73 65 0a 09 09 09 09 20 20 7b 20 69 66 28 20 lse..... { if(
2e50: 77 5b 30 5d 20 20 20 20 21 3d 20 73 5b 30 5d 20 w[0] != s[0]
2e60: 20 20 20 29 20 72 65 74 75 72 6e 20 66 61 6c 73 ) return fals
2e70: 65 3b 20 7d 0a 09 09 09 09 77 20 3d 20 61 64 76 e; }.....w = adv
2e80: 61 6e 63 65 28 77 29 3b 0a 09 09 09 09 73 20 3d ance(w);.....s =
2e90: 20 61 64 76 61 6e 63 65 28 73 29 3b 0a 09 09 09 advance(s);....
2ea0: 09 62 72 65 61 6b 3b 0a 09 09 09 7d 0a 09 09 72 .break;....}...r
2eb0: 65 74 75 72 6e 20 73 2e 6c 65 6e 67 74 68 3d 3d eturn s.length==
2ec0: 30 3b 0a 09 7d 0a 0a 09 69 66 28 20 77 69 6c 64 0;..}...if( wild
2ed0: 3d 3d 22 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a =="" || wild=="*
2ee0: 2e 2a 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a 22 .*" || wild=="*"
2ef0: 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a 2a 22 20 29 || wild=="**" )
2f00: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a ...return true;.
2f10: 0a 09 73 74 72 69 6e 67 5b 5d 20 77 69 6c 64 73 ..string[] wilds
2f20: 20 3d 20 73 70 6c 69 74 28 20 72 65 70 6c 61 63 = split( replac
2f30: 65 5f 79 65 6e 28 20 74 6f 4c 6f 77 65 72 28 77 e_yen( toLower(w
2f40: 69 6c 64 29 20 29 2c 20 22 2f 22 20 29 3b 0a 09 ild) ), "/" );..
2f50: 73 74 72 69 6e 67 5b 5d 20 6e 61 6d 65 73 20 3d string[] names =
2f60: 20 73 70 6c 69 74 28 20 72 65 70 6c 61 63 65 5f split( replace_
2f70: 79 65 6e 28 20 74 6f 4c 6f 77 65 72 28 6e 61 6d yen( toLower(nam
2f80: 65 29 20 29 2c 20 22 2f 22 20 29 3b 0a 0a 09 69 e) ), "/" );...i
2f90: 66 28 20 77 69 6c 64 73 2e 6c 65 6e 67 74 68 20 f( wilds.length
2fa0: 21 3d 20 6e 61 6d 65 73 2e 6c 65 6e 67 74 68 20 != names.length
2fb0: 29 0a 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 )...return false
2fc0: 3b 0a 09 66 6f 72 28 69 6e 74 20 69 3d 30 3b 20 ;..for(int i=0;
2fd0: 69 21 3d 77 69 6c 64 73 2e 6c 65 6e 67 74 68 3b i!=wilds.length;
2fe0: 20 2b 2b 69 29 0a 09 09 69 66 28 20 77 69 6c 64 ++i)...if( wild
2ff0: 73 5b 69 5d 21 3d 22 2a 2e 2a 22 20 26 26 20 77 s[i]!="*.*" && w
3000: 69 6c 64 73 5b 69 5d 21 3d 22 2a 22 20 26 26 20 ilds[i]!="*" &&
3010: 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 2a 22 20 29 wilds[i]!="**" )
3020: 0a 09 09 09 69 66 28 20 21 77 69 6c 64 5f 6d 61 ....if( !wild_ma
3030: 74 63 68 5f 6e 6f 70 61 74 68 28 20 77 69 6c 64 tch_nopath( wild
3040: 73 5b 69 5d 2c 20 6e 61 6d 65 73 5b 69 5d 20 29 s[i], names[i] )
3050: 20 29 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 ).....return fa
3060: 6c 73 65 3b 0a 09 72 65 74 75 72 6e 20 74 72 75 lse;..return tru
3070: 65 3b 0a 7d 0a 0a 73 74 72 69 6e 67 20 63 68 65 e;.}..string che
3080: 63 6b 5f 70 61 74 68 28 20 73 74 72 69 6e 67 20 ck_path( string
3090: 69 6e 5f 70 61 74 68 20 29 0a 7b 0a 09 63 68 61 in_path ).{..cha
30a0: 72 5b 5d 20 70 61 74 68 20 3d 20 69 6e 5f 70 61 r[] path = in_pa
30b0: 74 68 2e 64 75 70 3b 0a 0a 09 2f 2f 20 43 3a 5c th.dup;...// C:\
30c0: 20 3d 3d 3e 20 43 5f 5c 0a 09 69 66 28 20 70 61 ==> C_\..if( pa
30d0: 74 68 2e 6c 65 6e 67 74 68 3e 3d 32 20 26 26 20 th.length>=2 &&
30e0: 70 61 74 68 5b 31 5d 3d 3d 27 3a 27 20 29 0a 09 path[1]==':' )..
30f0: 09 70 61 74 68 5b 31 5d 20 3d 20 27 5f 27 3b 0a .path[1] = '_';.
3100: 0a 09 2f 2f 20 5c 5c 68 6f 67 65 20 3d 3d 3e 20 ..// \\hoge ==>
3110: 68 6f 67 65 0a 09 2f 2f 20 2f 68 6f 67 65 20 20 hoge..// /hoge
3120: 3d 3d 3e 20 68 6f 67 65 0a 09 77 68 69 6c 65 28 ==> hoge..while(
3130: 20 70 61 74 68 2e 6c 65 6e 67 74 68 3e 30 20 26 path.length>0 &
3140: 26 20 28 70 61 74 68 5b 30 5d 3d 3d 27 5c 5c 27 & (path[0]=='\\'
3150: 7c 7c 70 61 74 68 5b 30 5d 3d 3d 27 2f 27 29 20 ||path[0]=='/')
3160: 29 0a 09 09 70 61 74 68 20 3d 20 70 61 74 68 5b )...path = path[
3170: 31 2e 2e 24 5d 3b 0a 0a 09 2f 2f 20 2e 2e 20 3d 1..$];...// .. =
3180: 3d 3e 20 5f 5f 0a 09 73 74 72 69 6e 67 5b 5d 20 => __..string[]
3190: 70 61 74 68 73 20 3d 20 73 70 6c 69 74 28 20 72 paths = split( r
31a0: 65 70 6c 61 63 65 5f 79 65 6e 28 70 61 74 68 2e eplace_yen(path.
31b0: 69 64 75 70 29 2c 20 22 2f 22 20 29 3b 0a 09 4c idup), "/" );..L
31c0: 31 3a 0a 09 66 6f 72 65 61 63 68 28 20 72 65 66 1:..foreach( ref
31d0: 20 73 74 72 69 6e 67 20 70 63 20 3b 20 70 61 74 string pc ; pat
31e0: 68 73 20 29 0a 09 09 69 66 28 20 70 63 2e 6c 65 hs )...if( pc.le
31f0: 6e 67 74 68 20 3e 3d 20 32 20 29 0a 09 09 7b 0a ngth >= 2 )...{.
3200: 09 09 09 66 6f 72 65 61 63 68 28 20 63 68 61 72 ...foreach( char
3210: 20 63 20 3b 20 70 63 20 29 0a 09 09 09 09 69 66 c ; pc ).....if
3220: 28 20 63 20 21 3d 20 27 2e 27 20 29 0a 09 09 09 ( c != '.' )....
3230: 09 09 63 6f 6e 74 69 6e 75 65 20 4c 31 3b 0a 09 ..continue L1;..
3240: 09 09 70 63 20 3d 20 72 65 70 6c 61 63 65 28 20 ..pc = replace(
3250: 70 63 2c 20 22 2e 22 2c 20 22 5f 22 20 29 3b 0a pc, ".", "_" );.
3260: 09 09 7d 0a 0a 09 72 65 74 75 72 6e 20 6a 6f 69 ..}...return joi
3270: 6e 28 20 70 61 74 68 73 2c 20 22 5c 5c 22 20 29 n( paths, "\\" )
3280: 3b 0a 7d 0a 0a 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d ;.}....//-------
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b0 a1 ---------.// ...
32d0: e6 98 93 e3 83 86 e3 82 b9 e3 83 88 ef bc a0 e3 ................
32e0: 82 82 e3 81 a3 e3 81 a8 e3 83 9e e3 82 b8 e3 83 ................
32f0: a1 e3 81 ab e6 9b b8 e3 81 8b e3 81 aa e3 81 8d ................
3300: e3 82 83 e2 80 a6 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d .......//-------
3310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 75 6e 69 74 74 ---------..unitt
3350: 65 73 74 0a 7b 0a 09 61 73 73 65 72 74 28 20 63 est.{..assert( c
3360: 68 65 63 6b 5f 70 61 74 68 28 60 5c 5c 5c 5c 68 heck_path(`\\\\h
3370: 6f 67 65 5c 66 75 67 61 60 29 3d 3d 60 68 6f 67 oge\fuga`)==`hog
3380: 65 5c 66 75 67 61 60 20 29 3b 0a 09 61 73 73 65 e\fuga` );..asse
3390: 72 74 28 20 63 68 65 63 6b 5f 70 61 74 68 28 60 rt( check_path(`
33a0: 2f 75 73 72 2f 6c 6f 63 61 6c 2f 60 29 3d 3d 60 /usr/local/`)==`
33b0: 75 73 72 5c 6c 6f 63 61 6c 5c 60 20 29 3b 0a 09 usr\local\` );..
33c0: 61 73 73 65 72 74 28 20 63 68 65 63 6b 5f 70 61 assert( check_pa
33d0: 74 68 28 60 2e 2e 5c 61 62 63 20 64 65 66 5c 2e th(`..\abc def\.
33e0: 2e 2e 5c 2e 5c 67 60 29 3d 3d 60 5f 5f 5c 61 62 ..\.\g`)==`__\ab
33f0: 63 20 64 65 66 5c 5f 5f 5f 5c 2e 5c 67 60 20 29 c def\___\.\g` )
3400: 3b 0a 09 61 73 73 65 72 74 28 20 77 69 6c 64 5f ;..assert( wild_
3410: 6d 61 74 63 68 28 60 61 2f 62 2f 63 60 2c 60 41 match(`a/b/c`,`A
3420: 5c 62 5c 43 60 29 20 29 3b 0a 09 61 73 73 65 72 \b\C`) );..asser
3430: 74 28 20 77 69 6c 64 5f 6d 61 74 63 68 28 60 61 t( wild_match(`a
3440: 2f 2a 2e 2a 2f 61 3f 78 60 2c 60 41 5c 68 6f 67 /*.*/a?x`,`A\hog
3450: 65 5c 41 66 78 60 29 20 29 3b 0a 09 61 73 73 65 e\Afx`) );..asse
3460: 72 74 28 20 42 67 61 5f 69 6d 70 6c 28 6e 75 6c rt( Bga_impl(nul
3470: 6c 2c 22 61 20 68 6f 67 65 22 29 20 3c 20 30 20 l,"a hoge") < 0
3480: 29 3b 0a 7d 0a );.}.