Artifact 1c734ac63ab4804070c22d394a9f79db988ce5a5:
- File
src/qbga32.d
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
The problem was __gshared. Replacing it with TLS fixed the issue. Remaining problem is that "hack.d"'s CloseHandle hack is not working anymore.
(user: kinaba) [annotate]
-
2015-05-05 06:49:05
- part of checkin
[9b639cf2d6]
on branch trunk
- Working version for update to 2.067.
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 75 74 69 6c 3b 0a 69 6d 70 6f 72 74 20 77 69 util;.import wi
0050: 6e 64 6c 6c 3b 0a 69 6d 70 6f 72 74 20 62 67 61 ndll;.import bga
0060: 5f 6d 65 6c 74 65 72 3b 0a 69 6d 70 6f 72 74 20 _melter;.import
0070: 71 62 67 61 5f 67 75 69 3b 0a 0a 2f 2f 2d 2d 2d qbga_gui;..//---
0080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 2f 2f -------------.//
00c0: 20 41 50 49 e8 bb a2 e9 80 81 e5 87 a6 e7 90 86 API............
00d0: 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .//-------------
00e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 0a 57 69 6e 44 4c 4c 20 67 5f 6f 72 ---..WinDLL g_or
0120: 69 67 5f 64 6c 6c 20 3d 20 6e 75 6c 6c 3b 0a 55 ig_dll = null;.U
0130: 49 4e 54 20 20 20 57 4d 5f 41 52 43 45 58 54 52 INT WM_ARCEXTR
0140: 41 43 54 3b 0a 0a 73 74 61 74 69 63 20 74 68 69 ACT;..static thi
0150: 73 28 29 0a 7b 0a 09 67 5f 6f 72 69 67 5f 64 6c s().{..g_orig_dl
0160: 6c 20 3d 20 57 69 6e 44 4c 4c 2e 6c 6f 61 64 28 l = WinDLL.load(
0170: 20 22 5f 42 67 61 33 32 2e 44 4c 4c 22 20 29 3b "_Bga32.DLL" );
0180: 0a 09 57 4d 5f 41 52 43 45 58 54 52 41 43 54 20 ..WM_ARCEXTRACT
0190: 3d 20 52 65 67 69 73 74 65 72 57 69 6e 64 6f 77 = RegisterWindow
01a0: 4d 65 73 73 61 67 65 28 22 77 6d 5f 61 72 63 65 Message("wm_arce
01b0: 78 74 72 61 63 74 22 29 3b 0a 7d 0a 0a 73 74 61 xtract");.}..sta
01c0: 74 69 63 20 7e 74 68 69 73 28 29 0a 7b 0a 09 67 tic ~this().{..g
01d0: 5f 6f 72 69 67 5f 64 6c 6c 2e 63 6c 6f 73 65 28 _orig_dll.close(
01e0: 29 3b 0a 7d 0a 0a 74 65 6d 70 6c 61 74 65 20 61 );.}..template a
01f0: 70 69 28 46 6e 54 29 0a 7b 0a 09 46 6e 54 20 61 pi(FnT).{..FnT a
0200: 70 69 28 20 73 74 72 69 6e 67 20 6e 61 6d 65 20 pi( string name
0210: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 67 5f )..{...return g_
0220: 6f 72 69 67 5f 64 6c 6c 2e 67 65 74 5f 61 70 69 orig_dll.get_api
0230: 21 28 46 6e 54 29 28 20 6e 61 6d 65 20 29 3b 0a !(FnT)( name );.
0240: 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d .}.}..//--------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0280: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 --------.// ....
0290: 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 ................
02a0: 90 41 50 49 ef bc 9a e8 bb a2 e9 80 81 0a 2f 2f .API..........//
02b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02f0: 0a 0a 65 78 74 65 72 6e 28 57 69 6e 64 6f 77 73 ..extern(Windows
0300: 29 0a 7b 0a 09 69 6e 74 20 42 67 61 28 20 48 57 ).{..int Bga( HW
0310: 4e 44 20 61 2c 20 69 6d 6d 75 74 61 62 6c 65 20 ND a, immutable
0320: 63 68 61 72 2a 20 62 2c 20 63 68 61 72 2a 20 63 char* b, char* c
0330: 2c 20 44 57 4f 52 44 20 64 20 29 0a 09 7b 0a 09 , DWORD d )..{..
0340: 09 69 6e 74 20 72 20 3d 20 42 67 61 5f 69 6d 70 .int r = Bga_imp
0350: 6c 28 20 61 2c 20 62 2e 66 72 6f 6d 53 74 72 69 l( a, b.fromStri
0360: 6e 67 7a 28 29 20 29 3b 0a 09 09 69 66 28 20 72 ngz() );...if( r
0370: 20 3c 20 30 20 29 20 2f 2f 20 e3 81 93 e3 81 ae < 0 ) // ......
0380: e3 83 80 e3 83 9f e3 83 bc 44 4c 4c e3 81 a7 e3 .........DLL....
0390: 81 af e5 87 a6 e7 90 86 e3 81 a7 e3 81 8d e3 81 ................
03a0: aa e3 81 84 e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 ................
03b0: e3 81 a0 e3 81 a3 e3 81 9f e6 99 82 0a 09 09 09 ................
03c0: 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 return api!(type
03d0: 6f 66 28 26 42 67 61 29 29 28 22 42 67 61 22 29 of(&Bga))("Bga")
03e0: 28 61 2c 62 2c 63 2c 64 29 3b 0a 09 09 72 65 74 (a,b,c,d);...ret
03f0: 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 57 4f 52 44 urn r;..}...WORD
0400: 20 51 42 67 61 47 65 74 56 65 72 73 69 6f 6e 28 QBgaGetVersion(
0410: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 35 3b )..{...return 5;
0420: 0a 09 7d 0a 0a 09 57 4f 52 44 20 42 67 61 47 65 ..}...WORD BgaGe
0430: 74 56 65 72 73 69 6f 6e 28 29 0a 09 7b 0a 09 09 tVersion()..{...
0440: 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 return api!(type
0450: 6f 66 28 26 42 67 61 47 65 74 56 65 72 73 69 6f of(&BgaGetVersio
0460: 6e 29 29 28 22 42 67 61 47 65 74 56 65 72 73 69 n))("BgaGetVersi
0470: 6f 6e 22 29 28 29 3b 0a 09 7d 0a 0a 09 42 4f 4f on")();..}...BOO
0480: 4c 20 42 67 61 47 65 74 52 75 6e 6e 69 6e 67 28 L BgaGetRunning(
0490: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 )..{...return ap
04a0: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 47 65 i!(typeof(&BgaGe
04b0: 74 52 75 6e 6e 69 6e 67 29 29 28 22 42 67 61 47 tRunning))("BgaG
04c0: 65 74 52 75 6e 6e 69 6e 67 22 29 28 29 3b 0a 09 etRunning")();..
04d0: 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 68 65 63 }...BOOL BgaChec
04e0: 6b 41 72 63 68 69 76 65 28 20 63 68 61 72 2a 20 kArchive( char*
04f0: 61 2c 20 69 6e 74 20 62 20 29 0a 09 7b 0a 09 09 a, int b )..{...
0500: 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 return api!(type
0510: 6f 66 28 26 42 67 61 43 68 65 63 6b 41 72 63 68 of(&BgaCheckArch
0520: 69 76 65 29 29 28 22 42 67 61 43 68 65 63 6b 41 ive))("BgaCheckA
0530: 72 63 68 69 76 65 22 29 28 61 2c 62 29 3b 0a 09 rchive")(a,b);..
0540: 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 6f 6e 66 }...BOOL BgaConf
0550: 69 67 44 69 61 6c 6f 67 28 20 48 57 4e 44 20 61 igDialog( HWND a
0560: 2c 20 63 68 61 72 2a 20 62 2c 20 69 6e 74 20 63 , char* b, int c
0570: 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 )..{...return a
0580: 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 pi!(typeof(&BgaC
0590: 6f 6e 66 69 67 44 69 61 6c 6f 67 29 29 28 22 42 onfigDialog))("B
05a0: 67 61 43 6f 6e 66 69 67 44 69 61 6c 6f 67 22 29 gaConfigDialog")
05b0: 28 61 2c 62 2c 63 29 3b 0a 09 7d 0a 0a 09 69 6e (a,b,c);..}...in
05c0: 74 20 42 67 61 47 65 74 46 69 6c 65 43 6f 75 6e t BgaGetFileCoun
05d0: 74 28 20 63 68 61 72 2a 20 61 20 29 0a 09 7b 0a t( char* a )..{.
05e0: 09 09 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 ..return api!(ty
05f0: 70 65 6f 66 28 26 42 67 61 47 65 74 46 69 6c 65 peof(&BgaGetFile
0600: 43 6f 75 6e 74 29 29 28 22 42 67 61 47 65 74 46 Count))("BgaGetF
0610: 69 6c 65 43 6f 75 6e 74 22 29 28 61 29 3b 0a 09 ileCount")(a);..
0620: 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 51 75 65 72 }...BOOL BgaQuer
0630: 79 46 75 6e 63 74 69 6f 6e 4c 69 73 74 28 20 69 yFunctionList( i
0640: 6e 74 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 nt a )..{...retu
0650: 72 6e 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 rn api!(typeof(&
0660: 42 67 61 51 75 65 72 79 46 75 6e 63 74 69 6f 6e BgaQueryFunction
0670: 4c 69 73 74 29 29 28 22 42 67 61 51 75 65 72 79 List))("BgaQuery
0680: 46 75 6e 63 74 69 6f 6e 4c 69 73 74 22 29 28 61 FunctionList")(a
0690: 29 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f );..}...alias vo
06a0: 69 64 2a 20 48 41 52 43 3b 0a 09 48 41 52 43 20 id* HARC;..HARC
06b0: 42 67 61 4f 70 65 6e 41 72 63 68 69 76 65 28 20 BgaOpenArchive(
06c0: 48 57 4e 44 20 61 2c 20 63 68 61 72 2a 20 62 2c HWND a, char* b,
06d0: 20 44 57 4f 52 44 20 63 20 29 0a 09 7b 0a 09 09 DWORD c )..{...
06e0: 72 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 return api!(type
06f0: 6f 66 28 26 42 67 61 4f 70 65 6e 41 72 63 68 69 of(&BgaOpenArchi
0700: 76 65 29 29 28 22 42 67 61 4f 70 65 6e 41 72 63 ve))("BgaOpenArc
0710: 68 69 76 65 22 29 28 61 2c 62 2c 63 29 3b 0a 09 hive")(a,b,c);..
0720: 7d 0a 0a 09 69 6e 74 20 42 67 61 43 6c 6f 73 65 }...int BgaClose
0730: 41 72 63 68 69 76 65 28 20 48 41 52 43 20 61 20 Archive( HARC a
0740: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 )..{...return ap
0750: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 6c i!(typeof(&BgaCl
0760: 6f 73 65 41 72 63 68 69 76 65 29 29 28 22 42 67 oseArchive))("Bg
0770: 61 43 6c 6f 73 65 41 72 63 68 69 76 65 22 29 28 aCloseArchive")(
0780: 61 29 3b 0a 09 7d 0a 0a 09 61 6c 69 61 73 20 76 a);..}...alias v
0790: 6f 69 64 2a 20 4c 50 49 4e 44 49 56 49 44 55 41 oid* LPINDIVIDUA
07a0: 4c 49 4e 46 4f 3b 0a 09 69 6e 74 20 42 67 61 46 LINFO;..int BgaF
07b0: 69 6e 64 46 69 72 73 74 28 20 48 41 52 43 20 61 indFirst( HARC a
07c0: 2c 20 63 68 61 72 2a 20 62 2c 20 4c 50 49 4e 44 , char* b, LPIND
07d0: 49 56 49 44 55 41 4c 49 4e 46 4f 20 63 20 29 0a IVIDUALINFO c ).
07e0: 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 21 .{...return api!
07f0: 28 74 79 70 65 6f 66 28 26 42 67 61 46 69 6e 64 (typeof(&BgaFind
0800: 46 69 72 73 74 29 29 28 22 42 67 61 46 69 6e 64 First))("BgaFind
0810: 46 69 72 73 74 22 29 28 61 2c 62 2c 63 29 3b 0a First")(a,b,c);.
0820: 09 7d 0a 0a 09 69 6e 74 20 42 67 61 46 69 6e 64 .}...int BgaFind
0830: 4e 65 78 74 28 20 48 41 52 43 20 61 2c 20 4c 50 Next( HARC a, LP
0840: 49 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f 20 62 INDIVIDUALINFO b
0850: 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 )..{...return a
0860: 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 46 pi!(typeof(&BgaF
0870: 69 6e 64 4e 65 78 74 29 29 28 22 42 67 61 46 69 indNext))("BgaFi
0880: 6e 64 4e 65 78 74 22 29 28 61 2c 62 29 3b 0a 09 ndNext")(a,b);..
0890: 7d 0a 0a 09 44 57 4f 52 44 20 42 67 61 47 65 74 }...DWORD BgaGet
08a0: 41 72 63 4f 72 69 67 69 6e 61 6c 53 69 7a 65 28 ArcOriginalSize(
08b0: 20 48 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 HARC a )..{...r
08c0: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
08d0: 66 28 26 42 67 61 47 65 74 41 72 63 4f 72 69 67 f(&BgaGetArcOrig
08e0: 69 6e 61 6c 53 69 7a 65 29 29 28 22 42 67 61 47 inalSize))("BgaG
08f0: 65 74 41 72 63 4f 72 69 67 69 6e 61 6c 53 69 7a etArcOriginalSiz
0900: 65 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 44 57 4f e")(a);..}...DWO
0910: 52 44 20 42 67 61 47 65 74 41 72 63 43 6f 6d 70 RD BgaGetArcComp
0920: 72 65 73 73 65 64 53 69 7a 65 28 20 48 41 52 43 ressedSize( HARC
0930: 20 61 20 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e a )..{...return
0940: 20 61 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 api!(typeof(&Bg
0950: 61 47 65 74 41 72 63 43 6f 6d 70 72 65 73 73 65 aGetArcCompresse
0960: 64 53 69 7a 65 29 29 28 22 42 67 61 47 65 74 41 dSize))("BgaGetA
0970: 72 63 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 rcCompressedSize
0980: 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 57 4f 52 44 ")(a);..}...WORD
0990: 20 42 67 61 47 65 74 41 72 63 52 61 74 69 6f 28 BgaGetArcRatio(
09a0: 20 48 41 52 43 20 61 20 29 0a 09 7b 0a 09 09 72 HARC a )..{...r
09b0: 65 74 75 72 6e 20 61 70 69 21 28 74 79 70 65 6f eturn api!(typeo
09c0: 66 28 26 42 67 61 47 65 74 41 72 63 52 61 74 69 f(&BgaGetArcRati
09d0: 6f 29 29 28 22 42 67 61 47 65 74 41 72 63 52 61 o))("BgaGetArcRa
09e0: 74 69 6f 22 29 28 61 29 3b 0a 09 7d 0a 0a 09 42 tio")(a);..}...B
09f0: 4f 4f 4c 20 42 67 61 53 65 74 4f 77 6e 65 72 57 OOL BgaSetOwnerW
0a00: 69 6e 64 6f 77 28 20 48 57 4e 44 20 61 20 29 0a indow( HWND a ).
0a10: 09 7b 0a 09 09 42 4f 4f 4c 20 72 20 3d 20 61 70 .{...BOOL r = ap
0a20: 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 53 65 i!(typeof(&BgaSe
0a30: 74 4f 77 6e 65 72 57 69 6e 64 6f 77 29 29 28 22 tOwnerWindow))("
0a40: 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f BgaSetOwnerWindo
0a50: 77 22 29 28 61 29 3b 0a 09 09 69 66 28 20 72 20 w")(a);...if( r
0a60: 29 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 6e ) BgaSetOwnerWin
0a70: 64 6f 77 5f 69 6d 70 6c 28 61 29 3b 0a 09 09 72 dow_impl(a);...r
0a80: 65 74 75 72 6e 20 72 3b 0a 09 7d 0a 0a 09 42 4f eturn r;..}...BO
0a90: 4f 4c 20 42 67 61 43 6c 65 61 72 4f 77 6e 65 72 OL BgaClearOwner
0aa0: 57 69 6e 64 6f 77 28 29 0a 09 7b 0a 09 09 42 4f Window()..{...BO
0ab0: 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 79 70 65 OL r = api!(type
0ac0: 6f 66 28 26 42 67 61 43 6c 65 61 72 4f 77 6e 65 of(&BgaClearOwne
0ad0: 72 57 69 6e 64 6f 77 29 29 28 22 42 67 61 43 6c rWindow))("BgaCl
0ae0: 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f 77 22 29 earOwnerWindow")
0af0: 28 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 4f 77 ();...BgaClearOw
0b00: 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 29 nerWindow_impl()
0b10: 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 7d ;...return r;..}
0b20: 0a 0a 09 61 6c 69 61 73 20 42 4f 4f 4c 20 66 75 ...alias BOOL fu
0b30: 6e 63 74 69 6f 6e 28 48 57 4e 44 2c 55 49 4e 54 nction(HWND,UINT
0b40: 2c 55 49 4e 54 2c 45 58 54 52 41 43 54 49 4e 47 ,UINT,EXTRACTING
0b50: 49 4e 46 4f 45 58 2a 29 20 41 52 43 48 49 56 45 INFOEX*) ARCHIVE
0b60: 52 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 67 61 RPROC;..BOOL Bga
0b70: 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 SetOwnerWindowEx
0b80: 28 20 48 57 4e 44 20 61 2c 20 41 52 43 48 49 56 ( HWND a, ARCHIV
0b90: 45 52 50 52 4f 43 2a 20 62 20 29 0a 09 7b 0a 09 ERPROC* b )..{..
0ba0: 09 42 4f 4f 4c 20 72 20 3d 20 61 70 69 21 28 74 .BOOL r = api!(t
0bb0: 79 70 65 6f 66 28 26 42 67 61 53 65 74 4f 77 6e ypeof(&BgaSetOwn
0bc0: 65 72 57 69 6e 64 6f 77 45 78 29 29 28 22 42 67 erWindowEx))("Bg
0bd0: 61 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 45 aSetOwnerWindowE
0be0: 78 22 29 28 61 2c 62 29 3b 0a 09 09 69 66 28 20 x")(a,b);...if(
0bf0: 72 20 29 20 42 67 61 53 65 74 4f 77 6e 65 72 57 r ) BgaSetOwnerW
0c00: 69 6e 64 6f 77 45 78 5f 69 6d 70 6c 28 61 2c 62 indowEx_impl(a,b
0c10: 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a 09 );...return r;..
0c20: 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 4b 69 6c 6c }...BOOL BgaKill
0c30: 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 28 20 48 OwnerWindowEx( H
0c40: 57 4e 44 20 61 20 29 0a 09 7b 0a 09 09 42 4f 4f WND a )..{...BOO
0c50: 4c 20 72 20 3d 20 61 70 69 21 28 74 79 70 65 6f L r = api!(typeo
0c60: 66 28 26 42 67 61 4b 69 6c 6c 4f 77 6e 65 72 57 f(&BgaKillOwnerW
0c70: 69 6e 64 6f 77 45 78 29 29 28 22 42 67 61 4b 69 indowEx))("BgaKi
0c80: 6c 6c 4f 77 6e 65 72 57 69 6e 64 6f 77 45 78 22 llOwnerWindowEx"
0c90: 29 28 61 29 3b 0a 09 09 42 67 61 43 6c 65 61 72 )(a);...BgaClear
0ca0: 4f 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c OwnerWindow_impl
0cb0: 28 29 3b 0a 09 09 72 65 74 75 72 6e 20 72 3b 0a ();...return r;.
0cc0: 09 7d 0a 0a 09 61 6c 69 61 73 20 76 6f 69 64 2a .}...alias void*
0cd0: 20 55 4e 4c 48 41 5f 57 4e 44 5f 45 4e 55 4d 4d UNLHA_WND_ENUMM
0ce0: 45 4d 42 50 52 4f 43 3b 0a 09 42 4f 4f 4c 20 42 EMBPROC;..BOOL B
0cf0: 67 61 53 65 74 45 6e 75 6d 4d 65 6d 62 65 72 73 gaSetEnumMembers
0d00: 50 72 6f 63 28 20 55 4e 4c 48 41 5f 57 4e 44 5f Proc( UNLHA_WND_
0d10: 45 4e 55 4d 4d 45 4d 42 50 52 4f 43 20 61 20 29 ENUMMEMBPROC a )
0d20: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 70 69 ..{...return api
0d30: 21 28 74 79 70 65 6f 66 28 26 42 67 61 53 65 74 !(typeof(&BgaSet
0d40: 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 29 EnumMembersProc)
0d50: 29 28 22 42 67 61 53 65 74 45 6e 75 6d 4d 65 6d )("BgaSetEnumMem
0d60: 62 65 72 73 50 72 6f 63 22 29 28 61 29 3b 0a 09 bersProc")(a);..
0d70: 7d 0a 0a 09 42 4f 4f 4c 20 42 67 61 43 6c 65 61 }...BOOL BgaClea
0d80: 72 45 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 rEnumMembersProc
0d90: 28 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 61 ()..{...return a
0da0: 70 69 21 28 74 79 70 65 6f 66 28 26 42 67 61 43 pi!(typeof(&BgaC
0db0: 6c 65 61 72 45 6e 75 6d 4d 65 6d 62 65 72 73 50 learEnumMembersP
0dc0: 72 6f 63 29 29 28 22 42 67 61 43 6c 65 61 72 45 roc))("BgaClearE
0dd0: 6e 75 6d 4d 65 6d 62 65 72 73 50 72 6f 63 22 29 numMembersProc")
0de0: 28 29 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d ();..}.}..//----
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 ------------.//
0e30: e7 b5 b1 e5 90 88 e3 82 a2 e3 83 bc e3 82 ab e3 ................
0e40: 82 a4 e3 83 90 41 50 49 ef bc 9a e5 ae 9f e8 a3 .....API........
0e50: 85 28 20 42 67 61 20 29 0a 2f 2f 2d 2d 2d 2d 2d .( Bga ).//-----
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 69 6e 74 -----------..int
0ea0: 20 42 67 61 5f 69 6d 70 6c 28 20 48 57 4e 44 20 Bga_impl( HWND
0eb0: 77 6e 64 2c 20 73 74 72 69 6e 67 20 63 6d 64 5f wnd, string cmd_
0ec0: 73 74 72 20 29 0a 7b 0a 09 65 6e 75 6d 20 7b 20 str ).{..enum {
0ed0: 55 4e 53 55 50 50 4f 52 54 45 44 20 3d 20 2d 31 UNSUPPORTED = -1
0ee0: 20 7d 0a 0a 09 2f 2f 0a 09 2f 2f 20 e3 82 b3 e3 }...//..// ....
0ef0: 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 82 a4 e3 83 ................
0f00: b3 e8 a7 a3 e6 9e 90 0a 09 2f 2f 0a 09 73 74 72 .........//..str
0f10: 69 6e 67 5b 5d 20 63 6d 64 20 3d 20 63 6d 64 5f ing[] cmd = cmd_
0f20: 70 61 72 73 65 28 63 6d 64 5f 73 74 72 29 3b 0a parse(cmd_str);.
0f30: 0a 09 2f 2f 20 78 e4 bb a5 e5 a4 96 e3 81 ae e3 ..// x..........
0f40: 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 81 af e6 89 ................
0f50: b1 e3 82 8f e3 81 aa e3 81 84 e3 81 a7 e6 9c ac ................
0f60: e7 89 a9 44 4c 4c e3 81 ab e5 9b 9e e3 81 97 e3 ...DLL..........
0f70: 81 be e3 81 99 e3 80 82 e6 b3 a8 e6 84 8f e7 82 ................
0f80: b9 e3 81 a8 e3 81 97 e3 81 a6 ef bc 9a 0a 09 2f .............../
0f90: 2f 20 20 3e 20 63 6f 6d 6d 61 6e 64 20 e3 81 af / > command ...
0fa0: e3 82 b3 e3 83 9e e3 83 b3 e3 83 89 e3 83 a9 e3 ................
0fb0: 82 a4 e3 83 b3 e3 81 ae e6 9c 80 e5 88 9d e3 81 ................
0fc0: ae e5 bc 95 e6 95 b0 e3 81 a8 e3 81 97 e3 81 a6 ................
0fd0: e3 81 8f e3 81 a0 e3 81 95 e3 81 84 e3 80 82 e3 ................
0fe0: 81 aa e3 81 8a e3 80 81 63 6f 6d 6d 61 6e 64 20 ........command
0ff0: e3 82 92 e7 9c 81 e7 95 a5 0a 09 2f 2f 20 20 3e ...........// >
1000: 20 e3 81 97 e3 81 9f e5 a0 b4 e5 90 88 e3 81 af ...............
1010: 20 27 78 27 20 63 6f 6d 6d 61 6e 64 20 e3 81 8c 'x' command ...
1020: e6 8c 87 e5 ae 9a e3 81 95 e3 82 8c e3 81 9f e3 ................
1030: 82 82 e3 81 ae e3 81 a8 e3 81 bf e3 81 aa e3 81 ................
1040: 97 e3 81 be e3 81 99 e3 80 82 0a 09 69 66 28 20 ............if(
1050: 63 6d 64 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 20 cmd.length == 0
1060: 29 0a 09 09 72 65 74 75 72 6e 20 55 4e 53 55 50 )...return UNSUP
1070: 50 4f 52 54 45 44 3b 0a 09 69 66 28 20 63 6d 64 PORTED;..if( cmd
1080: 5b 30 5d 2e 6c 65 6e 67 74 68 20 3d 3d 20 31 20 [0].length == 1
1090: 29 0a 09 7b 0a 09 09 69 66 28 20 30 20 3c 3d 20 )..{...if( 0 <=
10a0: 22 61 64 6a 6c 6d 6e 73 74 76 41 44 4a 4c 4d 4e "adjlmnstvADJLMN
10b0: 53 54 56 22 2e 69 6e 64 65 78 4f 66 28 63 6d 64 STV".indexOf(cmd
10c0: 5b 30 5d 5b 30 5d 29 20 29 0a 09 09 09 72 65 74 [0][0]) )....ret
10d0: 75 72 6e 20 55 4e 53 55 50 50 4f 52 54 45 44 3b urn UNSUPPORTED;
10e0: 0a 09 09 69 66 28 20 63 6d 64 5b 30 5d 5b 30 5d ...if( cmd[0][0]
10f0: 3d 3d 27 78 27 20 7c 7c 20 63 6d 64 5b 30 5d 5b =='x' || cmd[0][
1100: 30 5d 3d 3d 27 58 27 20 29 0a 09 09 09 63 6d 64 0]=='X' )....cmd
1110: 20 3d 20 63 6d 64 5b 31 20 2e 2e 20 24 5d 3b 0a = cmd[1 .. $];.
1120: 09 7d 0a 0a 09 2f 2f 20 e2 80 bb 20 e3 81 93 e3 .}...// ... ....
1130: 81 ae e6 99 82 e7 82 b9 e3 81 a7 e3 80 81 63 6d ..............cm
1140: 64 e3 81 ab e3 81 af 63 6f 6d 6d 61 6e 64 e3 82 d......command..
1150: 92 e9 99 a4 e3 81 84 e3 81 9f e6 ae 8b e3 82 8a ................
1160: e3 81 ae e5 bc 95 e6 95 b0 e3 81 8c e5 85 a5 e3 ................
1170: 81 a3 e3 81 a6 e3 81 84 e3 82 8b e3 81 af e3 81 ................
1180: 9a 0a 0a 09 2f 2f 0a 09 2f 2f 20 e3 82 b9 e3 82 ....//..// .....
1190: a4 e3 83 83 e3 83 81 e8 a7 a3 e6 9e 90 e3 80 81 ................
11a0: e5 bc 95 e6 95 b0 e8 a7 a3 e6 9e 90 0a 09 2f 2f ..............//
11b0: 0a 09 62 6f 6f 6c 20 61 6c 6c 5f 61 74 74 72 73 ..bool all_attrs
11c0: 20 20 20 20 20 20 20 3d 20 66 61 6c 73 65 3b 20 = false;
11d0: 2f 2f 20 2d 61 0a 09 62 6f 6f 6c 20 73 69 6c 65 // -a..bool sile
11e0: 6e 74 20 20 20 20 20 20 20 20 20 20 3d 20 66 61 nt = fa
11f0: 6c 73 65 3b 20 2f 2f 20 2d 69 0a 09 62 6f 6f 6c lse; // -i..bool
1200: 20 69 67 6e 6f 72 65 5f 64 69 72 20 20 20 20 20 ignore_dir
1210: 20 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 6a 0a = false; // -j.
1220: 09 62 6f 6f 6c 20 6e 65 77 66 69 6c 65 5f 6f 6e .bool newfile_on
1230: 6c 79 20 20 20 20 3d 20 66 61 6c 73 65 3b 20 2f ly = false; /
1240: 2f 20 2d 6e 0a 09 62 6f 6f 6c 20 66 6f 72 63 65 / -n..bool force
1250: 5f 6f 76 65 72 77 72 69 74 65 20 3d 20 66 61 6c _overwrite = fal
1260: 73 65 3b 20 2f 2f 20 2d 6f 0a 09 62 6f 6f 6c 20 se; // -o..bool
1270: 72 65 63 75 72 73 69 76 65 20 20 20 20 20 20 20 recursive
1280: 3d 20 66 61 6c 73 65 3b 20 2f 2f 20 2d 72 0a 09 = false; // -r..
1290: 62 6f 6f 6c 20 73 61 6e 69 74 69 7a 65 5f 70 61 bool sanitize_pa
12a0: 74 68 20 20 20 3d 20 74 72 75 65 3b 0a 0a 09 73 th = true;...s
12b0: 74 72 69 6e 67 20 61 72 63 5f 6e 61 6d 65 20 3d tring arc_name =
12c0: 20 6e 75 6c 6c 3b 0a 09 73 74 72 69 6e 67 20 62 null;..string b
12d0: 61 73 65 5f 64 69 72 20 3d 20 6e 75 6c 6c 3b 0a ase_dir = null;.
12e0: 09 73 74 72 69 6e 67 5b 5d 20 70 61 74 68 73 3b .string[] paths;
12f0: 0a 0a 09 66 6f 72 65 61 63 68 28 20 73 74 72 69 ...foreach( stri
1300: 6e 67 20 70 61 72 61 6d 20 3b 20 63 6d 64 20 29 ng param ; cmd )
1310: 0a 09 09 69 66 28 20 70 61 72 61 6d 5b 30 5d 20 ...if( param[0]
1320: 3d 3d 20 27 2d 27 20 29 0a 09 09 09 73 77 69 74 == '-' )....swit
1330: 63 68 28 20 70 61 72 61 6d 5b 31 5d 20 29 0a 09 ch( param[1] )..
1340: 09 09 7b 0a 09 09 09 63 61 73 65 20 27 61 27 2c ..{....case 'a',
1350: 27 41 27 3a 20 61 6c 6c 5f 61 74 74 72 73 20 20 'A': all_attrs
1360: 20 20 20 20 20 3d 20 74 72 75 65 3b 20 62 72 65 = true; bre
1370: 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 69 27 2c ak;....case 'i',
1380: 27 49 27 3a 20 73 69 6c 65 6e 74 20 20 20 20 20 'I': silent
1390: 20 20 20 20 20 3d 20 74 72 75 65 3b 20 62 72 65 = true; bre
13a0: 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 6a 27 2c ak;....case 'j',
13b0: 27 4a 27 3a 20 69 67 6e 6f 72 65 5f 64 69 72 20 'J': ignore_dir
13c0: 20 20 20 20 20 3d 20 74 72 75 65 3b 20 62 72 65 = true; bre
13d0: 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 6e 27 2c ak;....case 'n',
13e0: 27 4e 27 3a 20 6e 65 77 66 69 6c 65 5f 6f 6e 6c 'N': newfile_onl
13f0: 79 20 20 20 20 3d 20 74 72 75 65 3b 20 62 72 65 y = true; bre
1400: 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 6f 27 2c ak;....case 'o',
1410: 27 4f 27 3a 20 66 6f 72 63 65 5f 6f 76 65 72 77 'O': force_overw
1420: 72 69 74 65 20 3d 20 74 72 75 65 3b 20 62 72 65 rite = true; bre
1430: 61 6b 3b 0a 09 09 09 63 61 73 65 20 27 72 27 2c ak;....case 'r',
1440: 27 52 27 3a 20 72 65 63 75 72 73 69 76 65 20 20 'R': recursive
1450: 20 20 20 20 20 3d 20 74 72 75 65 3b 20 62 72 65 = true; bre
1460: 61 6b 3b 0a 09 09 09 64 65 66 61 75 6c 74 3a 20 ak;....default:
1470: 20 62 72 65 61 6b 3b 0a 09 09 09 7d 0a 09 09 65 break;....}...e
1480: 6c 73 65 20 69 66 28 20 61 72 63 5f 6e 61 6d 65 lse if( arc_name
1490: 20 69 73 20 6e 75 6c 6c 20 29 0a 09 09 7b 0a 09 is null )...{..
14a0: 09 09 61 72 63 5f 6e 61 6d 65 20 3d 20 70 61 72 ..arc_name = par
14b0: 61 6d 3b 0a 09 09 7d 0a 09 09 65 6c 73 65 20 69 am;...}...else i
14c0: 66 28 20 62 61 73 65 5f 64 69 72 20 69 73 20 6e f( base_dir is n
14d0: 75 6c 6c 20 29 0a 09 09 7b 0a 09 09 09 69 66 28 ull )...{....if(
14e0: 20 6c 61 73 74 43 68 61 72 28 70 61 72 61 6d 29 lastChar(param)
14f0: 20 3d 3d 20 27 5c 5c 27 20 29 0a 09 09 09 09 62 == '\\' ).....b
1500: 61 73 65 5f 64 69 72 20 3d 20 70 61 72 61 6d 3b ase_dir = param;
1510: 0a 09 09 09 65 6c 73 65 20 7b 0a 09 09 09 09 63 ....else {.....c
1520: 68 61 72 5b 5d 20 62 75 66 3b 0a 09 09 09 09 62 har[] buf;.....b
1530: 75 66 2e 6c 65 6e 67 74 68 20 3d 20 47 65 74 43 uf.length = GetC
1540: 75 72 72 65 6e 74 44 69 72 65 63 74 6f 72 79 41 urrentDirectoryA
1550: 28 30 2c 6e 75 6c 6c 29 2b 31 3b 0a 09 09 09 09 (0,null)+1;.....
1560: 47 65 74 43 75 72 72 65 6e 74 44 69 72 65 63 74 GetCurrentDirect
1570: 6f 72 79 41 28 62 75 66 2e 6c 65 6e 67 74 68 2c oryA(buf.length,
1580: 20 62 75 66 2e 70 74 72 29 3b 0a 09 09 09 09 62 buf.ptr);.....b
1590: 61 73 65 5f 64 69 72 20 3d 20 62 75 66 2e 70 74 ase_dir = buf.pt
15a0: 72 2e 66 72 6f 6d 53 74 72 69 6e 67 7a 28 29 2e r.fromStringz().
15b0: 69 64 75 70 3b 0a 09 09 09 09 69 66 28 20 6c 61 idup;.....if( la
15c0: 73 74 43 68 61 72 28 62 61 73 65 5f 64 69 72 29 stChar(base_dir)
15d0: 20 21 3d 20 27 5c 5c 27 20 29 0a 09 09 09 09 09 != '\\' )......
15e0: 62 61 73 65 5f 64 69 72 20 7e 3d 20 27 5c 5c 27 base_dir ~= '\\'
15f0: 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 09 65 6c 73 ;....}...}...els
1600: 65 0a 09 09 09 70 61 74 68 73 20 7e 3d 20 70 61 e....paths ~= pa
1610: 72 61 6d 3b 0a 0a 09 2f 2f 0a 09 2f 2f 20 e5 b1 ram;...//..// ..
1620: 95 e9 96 8b e5 87 a6 e7 90 86 e3 81 ab 47 6f 21 .............Go!
1630: 0a 09 2f 2f 0a 09 50 72 6f 67 72 65 73 73 44 6c ..//..ProgressDl
1640: 67 20 64 6c 67 20 3d 20 6e 75 6c 6c 3b 0a 09 69 g dlg = null;..i
1650: 66 28 20 21 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f f( !do_ownerwnd_
1660: 70 72 6f 63 28 20 4f 50 5f 41 52 43 5f 42 45 47 proc( OP_ARC_BEG
1670: 49 4e 2c 20 6e 75 6c 6c 2c 20 30 2c 20 61 72 63 IN, null, 0, arc
1680: 5f 6e 61 6d 65 20 29 20 29 0a 09 09 72 65 74 75 _name ) )...retu
1690: 72 6e 20 30 78 38 30 32 30 3b 0a 0a 09 74 72 79 rn 0x8020;...try
16a0: 0a 09 7b 0a 09 09 69 66 28 20 21 73 69 6c 65 6e ..{...if( !silen
16b0: 74 20 26 26 20 67 5f 68 61 6e 64 6c 65 72 20 69 t && g_handler i
16c0: 73 20 6e 75 6c 6c 20 29 20 2f 2f 20 2d 69 20 2f s null ) // -i /
16d0: 20 4f 77 6e 65 72 57 6e 64 50 72 6f 63 0a 09 09 OwnerWndProc...
16e0: 7b 0a 09 09 09 64 6c 67 20 3d 20 6e 65 77 20 50 {....dlg = new P
16f0: 72 6f 67 72 65 73 73 44 6c 67 28 0a 09 09 09 09 rogressDlg(.....
1700: 63 61 73 74 28 44 4c 47 54 45 4d 50 4c 41 54 45 cast(DLGTEMPLATE
1710: 2a 29 20 67 5f 6f 72 69 67 5f 64 6c 6c 2e 6c 6f *) g_orig_dll.lo
1720: 61 64 5f 64 69 61 6c 6f 67 28 22 23 32 30 32 35 ad_dialog("#2025
1730: 22 29 2c 20 77 6e 64 20 29 3b 0a 09 09 09 64 6c "), wnd );....dl
1740: 67 2e 73 65 74 5f 61 72 63 6e 61 6d 65 28 61 72 g.set_arcname(ar
1750: 63 5f 6e 61 6d 65 29 3b 0a 09 09 7d 0a 0a 09 09 c_name);...}....
1760: 73 74 72 69 6e 67 20 20 20 20 73 72 63 5f 66 6e string src_fn
1770: 61 6d 65 3b 20 2f 2f 20 4f 77 6e 65 72 57 6e 64 ame; // OwnerWnd
1780: 50 72 6f 63 e9 96 a2 e4 bf 82 0a 09 09 42 67 61 Proc.........Bga
1790: 48 65 61 64 65 72 20 63 75 72 5f 68 64 72 3b 20 Header cur_hdr;
17a0: 20 20 2f 2f 20 4f 77 6e 65 72 57 6e 64 50 72 6f // OwnerWndPro
17b0: 63 e9 96 a2 e4 bf 82 0a 0a 09 09 42 67 61 41 6e c..........BgaAn
17c0: 73 77 65 72 20 68 61 6e 64 6c 65 72 28 20 72 65 swer handler( re
17d0: 66 20 42 67 61 48 65 61 64 65 72 20 68 64 72 20 f BgaHeader hdr
17e0: 29 0a 09 09 7b 0a 09 09 09 73 72 63 5f 66 6e 61 )...{....src_fna
17f0: 6d 65 20 3d 20 68 64 72 2e 66 6e 61 6d 65 3b 0a me = hdr.fname;.
1800: 09 09 09 70 72 6f 63 65 73 73 5f 6d 65 73 73 61 ...process_messa
1810: 67 65 73 28 29 3b 0a 0a 09 09 09 2f 2f 20 70 61 ges();.....// pa
1820: 74 68 73 0a 09 09 09 69 66 28 20 70 61 74 68 73 ths....if( paths
1830: 2e 6c 65 6e 67 74 68 20 3e 20 30 20 29 0a 09 09 .length > 0 )...
1840: 09 7b 0a 09 09 09 09 73 74 72 69 6e 67 20 66 6e .{.....string fn
1850: 61 6d 65 20 3d 20 2f 2f 20 2d 72 0a 09 09 09 09 ame = // -r.....
1860: 09 28 72 65 63 75 72 73 69 76 65 20 3f 20 68 64 .(recursive ? hd
1870: 72 2e 66 6e 61 6d 65 5b 68 64 72 2e 64 69 72 5f r.fname[hdr.dir_
1880: 6e 61 6d 65 5f 6c 65 6e 2e 2e 24 5d 20 3a 20 68 name_len..$] : h
1890: 64 72 2e 66 6e 61 6d 65 29 3b 0a 09 09 09 09 66 dr.fname);.....f
18a0: 6f 72 65 61 63 68 28 20 73 74 72 69 6e 67 20 77 oreach( string w
18b0: 20 3b 20 70 61 74 68 73 20 29 0a 09 09 09 09 09 ; paths )......
18c0: 69 66 28 20 77 69 6c 64 5f 6d 61 74 63 68 28 20 if( wild_match(
18d0: 77 2c 20 66 6e 61 6d 65 20 29 20 29 0a 09 09 09 w, fname ) )....
18e0: 09 09 09 67 6f 74 6f 20 6f 6b 3b 0a 09 09 09 09 ...goto ok;.....
18f0: 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 return BgaAnswer
1900: 2e 53 6b 69 70 49 74 3b 0a 09 09 09 6f 6b 3a 3b .SkipIt;....ok:;
1910: 0a 09 09 09 7d 0a 09 09 09 2f 2f 20 2d 61 0a 09 ....}....// -a..
1920: 09 09 69 66 28 20 21 61 6c 6c 5f 61 74 74 72 73 ..if( !all_attrs
1930: 20 26 26 20 28 68 64 72 2e 61 74 74 72 69 62 26 && (hdr.attrib&
1940: 36 29 20 29 0a 09 09 09 09 72 65 74 75 72 6e 20 6) ).....return
1950: 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 70 49 74 BgaAnswer.SkipIt
1960: 3b 0a 09 09 09 2f 2f 20 64 69 61 6c 6f 67 0a 09 ;....// dialog..
1970: 09 09 69 66 28 20 64 6c 67 20 29 0a 09 09 09 09 ..if( dlg ).....
1980: 69 66 28 20 64 6c 67 2e 63 6c 6f 73 65 64 20 29 if( dlg.closed )
1990: 0a 09 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 ......return Bga
19a0: 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 Answer.Abort;...
19b0: 09 09 65 6c 73 65 0a 09 09 09 09 09 64 6c 67 2e ..else......dlg.
19c0: 73 65 74 5f 66 69 6c 65 6e 61 6d 65 28 20 68 64 set_filename( hd
19d0: 72 2e 66 6e 61 6d 65 5b 68 64 72 2e 64 69 72 5f r.fname[hdr.dir_
19e0: 6e 61 6d 65 5f 6c 65 6e 2e 2e 24 5d 20 29 3b 0a name_len..$] );.
19f0: 09 09 09 2f 2f 20 2d 6a 0a 09 09 09 69 66 28 20 ...// -j....if(
1a00: 69 67 6e 6f 72 65 5f 64 69 72 20 29 0a 09 09 09 ignore_dir )....
1a10: 09 68 64 72 2e 66 6e 61 6d 65 20 3d 20 68 64 72 .hdr.fname = hdr
1a20: 2e 66 6e 61 6d 65 5b 68 64 72 2e 64 69 72 5f 6e .fname[hdr.dir_n
1a30: 61 6d 65 5f 6c 65 6e 20 2e 2e 20 24 5d 3b 0a 09 ame_len .. $];..
1a40: 09 09 2f 2f 20 73 61 6e 69 74 69 7a 65 0a 09 09 ..// sanitize...
1a50: 09 69 66 28 20 73 61 6e 69 74 69 7a 65 5f 70 61 .if( sanitize_pa
1a60: 74 68 20 29 0a 09 09 09 09 68 64 72 2e 66 6e 61 th ).....hdr.fna
1a70: 6d 65 20 3d 20 63 68 65 63 6b 5f 70 61 74 68 28 me = check_path(
1a80: 68 64 72 2e 66 6e 61 6d 65 29 3b 0a 09 09 09 2f hdr.fname);..../
1a90: 2f 20 62 61 73 65 5f 64 69 72 0a 09 09 09 68 64 / base_dir....hd
1aa0: 72 2e 66 6e 61 6d 65 20 3d 20 28 62 61 73 65 5f r.fname = (base_
1ab0: 64 69 72 20 7e 20 68 64 72 2e 66 6e 61 6d 65 29 dir ~ hdr.fname)
1ac0: 2e 64 75 70 3b 0a 09 09 09 2f 2f 20 2d 6f 0a 09 .dup;....// -o..
1ad0: 09 09 69 66 28 20 21 66 6f 72 63 65 5f 6f 76 65 ..if( !force_ove
1ae0: 72 77 72 69 74 65 20 29 0a 09 09 09 09 74 72 79 rwrite ).....try
1af0: 20 7b 0a 09 09 09 09 69 66 28 20 73 74 64 2e 66 {.....if( std.f
1b00: 69 6c 65 2e 65 78 69 73 74 73 28 68 64 72 2e 66 ile.exists(hdr.f
1b10: 6e 61 6d 65 29 20 26 26 20 73 74 64 2e 66 69 6c name) && std.fil
1b20: 65 2e 69 73 46 69 6c 65 28 68 64 72 2e 66 6e 61 e.isFile(hdr.fna
1b30: 6d 65 29 20 29 0a 09 09 09 09 09 2f 2f 20 2d 6e me) )......// -n
1b40: 0a 09 09 09 09 09 69 66 28 20 6e 65 77 66 69 6c ......if( newfil
1b50: 65 5f 6f 6e 6c 79 20 29 0a 09 09 09 09 09 7b 0a e_only )......{.
1b60: 09 09 09 09 09 09 69 66 28 20 6e 65 77 65 72 5f ......if( newer_
1b70: 74 68 61 6e 28 68 64 72 2e 64 61 74 65 2c 68 64 than(hdr.date,hd
1b80: 72 2e 74 69 6d 65 2c 68 64 72 2e 66 6e 61 6d 65 r.time,hdr.fname
1b90: 29 20 29 0a 09 09 09 09 09 09 09 72 65 74 75 72 ) )........retur
1ba0: 6e 20 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 70 n BgaAnswer.Skip
1bb0: 49 74 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 It;......}......
1bc0: 65 6c 73 65 0a 09 09 09 09 09 7b 0a 09 09 09 09 else......{.....
1bd0: 09 09 69 6e 74 20 72 20 3d 20 4d 65 73 73 61 67 ..int r = Messag
1be0: 65 42 6f 78 41 28 20 64 6c 67 3f 64 6c 67 2e 68 eBoxA( dlg?dlg.h
1bf0: 77 6e 64 3a 77 6e 64 2c 0a 09 09 09 09 09 09 09 wnd:wnd,........
1c00: 74 6f 53 74 72 69 6e 67 7a 28 22 4f 76 65 72 77 toStringz("Overw
1c10: 72 69 74 65 20 22 7e 68 64 72 2e 66 6e 61 6d 65 rite "~hdr.fname
1c20: 7e 22 20 3f 22 29 2c 0a 09 09 09 09 09 09 09 22 ~" ?"),........"
1c30: 51 42 67 61 33 32 2e 64 6c 6c 22 2c 20 4d 42 5f QBga32.dll", MB_
1c40: 59 45 53 4e 4f 43 41 4e 43 45 4c 20 29 3b 0a 09 YESNOCANCEL );..
1c50: 09 09 09 09 09 69 66 28 20 72 20 3d 3d 20 49 44 .....if( r == ID
1c60: 4e 4f 20 29 20 20 20 20 20 72 65 74 75 72 6e 20 NO ) return
1c70: 42 67 61 41 6e 73 77 65 72 2e 53 6b 69 70 49 74 BgaAnswer.SkipIt
1c80: 3b 0a 09 09 09 09 09 09 69 66 28 20 72 20 3d 3d ;.......if( r ==
1c90: 20 49 44 43 41 4e 43 45 4c 20 29 20 72 65 74 75 IDCANCEL ) retu
1ca0: 72 6e 20 42 67 61 41 6e 73 77 65 72 2e 41 62 6f rn BgaAnswer.Abo
1cb0: 72 74 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d rt;......}.....}
1cc0: 20 63 61 74 63 68 20 7b 7d 0a 0a 09 09 09 63 75 catch {}.....cu
1cd0: 72 5f 68 64 72 20 3d 20 68 64 72 3b 0a 09 09 09 r_hdr = hdr;....
1ce0: 69 66 28 20 21 64 6f 5f 6f 77 6e 65 72 77 6e 64 if( !do_ownerwnd
1cf0: 5f 70 72 6f 63 28 20 4f 50 5f 46 49 4c 45 5f 42 _proc( OP_FILE_B
1d00: 45 47 49 4e 2c 20 26 63 75 72 5f 68 64 72 2c 20 EGIN, &cur_hdr,
1d10: 30 2c 20 73 72 63 5f 66 6e 61 6d 65 20 29 20 29 0, src_fname ) )
1d20: 0a 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 41 .....return BgaA
1d30: 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 09 nswer.Abort;....
1d40: 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 72 return BgaAnswer
1d50: 2e 4d 65 6c 74 49 74 3b 0a 09 09 7d 0a 0a 09 09 .MeltIt;...}....
1d60: 42 67 61 41 6e 73 77 65 72 20 70 72 6f 67 72 65 BgaAnswer progre
1d70: 73 73 5f 68 61 6e 64 6c 65 72 28 20 69 6e 74 20 ss_handler( int
1d80: 63 75 72 2c 20 69 6e 74 20 6d 61 78 20 29 0a 09 cur, int max )..
1d90: 09 7b 0a 09 09 09 70 72 6f 63 65 73 73 5f 6d 65 .{....process_me
1da0: 73 73 61 67 65 73 28 29 3b 0a 09 09 09 69 66 28 ssages();....if(
1db0: 20 64 6c 67 20 29 0a 09 09 09 09 69 66 28 20 64 dlg ).....if( d
1dc0: 6c 67 2e 63 6c 6f 73 65 64 20 29 0a 09 09 09 09 lg.closed ).....
1dd0: 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 .return BgaAnswe
1de0: 72 2e 41 62 6f 72 74 3b 0a 09 09 09 09 65 6c 73 r.Abort;.....els
1df0: 65 0a 09 09 09 09 09 64 6c 67 2e 73 65 74 5f 70 e......dlg.set_p
1e00: 6f 73 28 20 63 61 73 74 28 72 65 61 6c 29 28 63 os( cast(real)(c
1e10: 75 72 29 2f 6d 61 78 20 29 3b 0a 09 09 09 69 66 ur)/max );....if
1e20: 28 20 21 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f 70 ( !do_ownerwnd_p
1e30: 72 6f 63 28 20 4f 50 5f 46 49 4c 45 5f 4d 49 44 roc( OP_FILE_MID
1e40: 44 4c 45 2c 20 26 63 75 72 5f 68 64 72 2c 20 63 DLE, &cur_hdr, c
1e50: 75 72 2c 20 73 72 63 5f 66 6e 61 6d 65 20 29 20 ur, src_fname )
1e60: 29 0a 09 09 09 09 72 65 74 75 72 6e 20 42 67 61 ).....return Bga
1e70: 41 6e 73 77 65 72 2e 41 62 6f 72 74 3b 0a 09 09 Answer.Abort;...
1e80: 09 72 65 74 75 72 6e 20 42 67 61 41 6e 73 77 65 .return BgaAnswe
1e90: 72 2e 4d 65 6c 74 49 74 3b 0a 09 09 7d 0a 0a 09 r.MeltIt;...}...
1ea0: 09 28 6e 65 77 20 42 67 61 4d 65 6c 74 65 72 28 .(new BgaMelter(
1eb0: 61 72 63 5f 6e 61 6d 65 29 29 2e 73 74 61 72 74 arc_name)).start
1ec0: 28 26 68 61 6e 64 6c 65 72 2c 26 70 72 6f 67 72 (&handler,&progr
1ed0: 65 73 73 5f 68 61 6e 64 6c 65 72 29 3b 0a 09 7d ess_handler);..}
1ee0: 0a 09 63 61 74 63 68 28 20 42 67 61 4d 65 6c 74 ..catch( BgaMelt
1ef0: 65 72 45 72 72 6f 72 20 65 20 29 0a 09 7b 0a 09 erError e )..{..
1f00: 09 72 65 74 75 72 6e 20 65 2e 65 72 72 63 6f 64 .return e.errcod
1f10: 65 3b 0a 09 7d 0a 09 66 69 6e 61 6c 6c 79 0a 09 e;..}..finally..
1f20: 7b 0a 09 09 64 6f 5f 6f 77 6e 65 72 77 6e 64 5f {...do_ownerwnd_
1f30: 70 72 6f 63 28 20 4f 50 5f 41 52 43 5f 45 4e 44 proc( OP_ARC_END
1f40: 2c 20 6e 75 6c 6c 2c 20 30 2c 20 61 72 63 5f 6e , null, 0, arc_n
1f50: 61 6d 65 20 29 3b 0a 09 09 69 66 28 20 64 6c 67 ame );...if( dlg
1f60: 20 29 0a 09 09 09 64 6c 67 2e 63 6c 6f 73 65 28 )....dlg.close(
1f70: 29 3b 0a 09 7d 0a 09 72 65 74 75 72 6e 20 30 3b );..}..return 0;
1f80: 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .}..//----------
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e7 b5 b1 e5 90 88 ------.// ......
1fd0: e3 82 a2 e3 83 bc e3 82 ab e3 82 a4 e3 83 90 41 ...............A
1fe0: 50 49 ef bc 9a e5 ae 9f e8 a3 85 28 20 53 65 74 PI.........( Set
1ff0: 4f 77 6e 65 72 57 69 6e 64 6f 77 20 29 0a 2f 2f OwnerWindow ).//
2000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2040: 0a 0a 61 6c 69 67 6e 28 31 29 20 73 74 72 75 63 ..align(1) struc
2050: 74 20 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f t EXTRACTINGINFO
2060: 0a 7b 0a 09 44 57 4f 52 44 20 20 20 64 77 46 69 .{..DWORD dwFi
2070: 6c 65 53 69 7a 65 3b 0a 09 44 57 4f 52 44 20 20 leSize;..DWORD
2080: 20 64 77 57 72 69 74 65 53 69 7a 65 3b 0a 09 63 dwWriteSize;..c
2090: 68 61 72 20 20 20 20 73 7a 53 6f 75 72 63 65 46 har szSourceF
20a0: 69 6c 65 4e 61 6d 65 5b 35 31 32 20 2b 20 31 5d ileName[512 + 1]
20b0: 3b 0a 09 63 68 61 72 20 20 20 20 64 75 6d 6d 79 ;..char dummy
20c0: 31 5b 33 5d 3b 0a 09 63 68 61 72 20 20 20 20 73 1[3];..char s
20d0: 7a 44 65 73 74 46 69 6c 65 4e 61 6d 65 5b 35 31 zDestFileName[51
20e0: 32 20 2b 20 31 5d 3b 0a 09 63 68 61 72 20 20 20 2 + 1];..char
20f0: 20 64 75 6d 6d 79 5b 33 5d 3b 0a 7d 0a 61 6c 69 dummy[3];.}.ali
2100: 67 6e 28 31 29 20 73 74 72 75 63 74 20 45 58 54 gn(1) struct EXT
2110: 52 41 43 54 49 4e 47 49 4e 46 4f 45 58 0a 7b 0a RACTINGINFOEX.{.
2120: 09 45 58 54 52 41 43 54 49 4e 47 49 4e 46 4f 20 .EXTRACTINGINFO
2130: 65 78 69 6e 66 6f 3b 0a 09 44 57 4f 52 44 20 64 exinfo;..DWORD d
2140: 77 43 6f 6d 70 72 65 73 73 65 64 53 69 7a 65 3b wCompressedSize;
2150: 0a 09 44 57 4f 52 44 20 64 77 43 52 43 3b 0a 09 ..DWORD dwCRC;..
2160: 55 49 4e 54 20 20 75 4f 53 54 79 70 65 3b 0a 09 UINT uOSType;..
2170: 57 4f 52 44 20 20 77 52 61 74 69 6f 3b 0a 09 57 WORD wRatio;..W
2180: 4f 52 44 20 20 77 44 61 74 65 3b 0a 09 57 4f 52 ORD wDate;..WOR
2190: 44 20 20 77 54 69 6d 65 3b 0a 09 63 68 61 72 20 D wTime;..char
21a0: 20 73 7a 41 74 74 72 69 62 75 74 65 5b 38 5d 3b szAttribute[8];
21b0: 0a 09 63 68 61 72 20 20 73 7a 4d 6f 64 65 5b 38 ..char szMode[8
21c0: 5d 3b 0a 7d 0a 0a 48 57 4e 44 20 67 5f 6f 77 6e ];.}..HWND g_own
21d0: 65 72 5f 77 69 6e 64 6f 77 3b 0a 65 78 74 65 72 er_window;.exter
21e0: 6e 28 57 69 6e 64 6f 77 73 29 20 42 4f 4f 4c 20 n(Windows) BOOL
21f0: 66 75 6e 63 74 69 6f 6e 28 48 57 4e 44 2c 55 49 function(HWND,UI
2200: 4e 54 2c 55 49 4e 54 2c 45 58 54 52 41 43 54 49 NT,UINT,EXTRACTI
2210: 4e 47 49 4e 46 4f 45 58 2a 29 20 67 5f 68 61 6e NGINFOEX*) g_han
2220: 64 6c 65 72 3b 0a 65 78 74 65 72 6e 28 57 69 6e dler;.extern(Win
2230: 64 6f 77 73 29 20 42 4f 4f 4c 20 6e 6f 65 78 5f dows) BOOL noex_
2240: 68 61 6e 64 6c 65 72 28 20 48 57 4e 44 20 77 2c handler( HWND w,
2250: 55 49 4e 54 20 6d 2c 55 49 4e 54 20 73 2c 20 45 UINT m,UINT s, E
2260: 58 54 52 41 43 54 49 4e 47 49 4e 46 4f 45 58 2a XTRACTINGINFOEX*
2270: 20 65 20 29 0a 7b 0a 09 72 65 74 75 72 6e 20 21 e ).{..return !
2280: 53 65 6e 64 4d 65 73 73 61 67 65 41 28 20 77 2c SendMessageA( w,
2290: 20 6d 2c 20 73 2c 20 63 61 73 74 28 4c 50 41 52 m, s, cast(LPAR
22a0: 41 4d 29 20 26 65 2e 65 78 69 6e 66 6f 20 29 3b AM) &e.exinfo );
22b0: 0a 7d 0a 0a 76 6f 69 64 20 42 67 61 53 65 74 4f .}..void BgaSetO
22c0: 77 6e 65 72 57 69 6e 64 6f 77 5f 69 6d 70 6c 28 wnerWindow_impl(
22d0: 20 48 57 4e 44 20 77 6e 64 20 29 0a 7b 0a 09 67 HWND wnd ).{..g
22e0: 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 20 3d 20 _owner_window =
22f0: 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 6c 65 72 20 wnd;..g_handler
2300: 20 20 20 20 20 3d 20 26 6e 6f 65 78 5f 68 61 6e = &noex_han
2310: 64 6c 65 72 3b 0a 7d 0a 0a 76 6f 69 64 20 42 67 dler;.}..void Bg
2320: 61 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f aClearOwnerWindo
2330: 77 5f 69 6d 70 6c 28 29 0a 7b 0a 09 67 5f 6f 77 w_impl().{..g_ow
2340: 6e 65 72 5f 77 69 6e 64 6f 77 20 3d 20 6e 75 6c ner_window = nul
2350: 6c 3b 0a 09 67 5f 68 61 6e 64 6c 65 72 20 20 20 l;..g_handler
2360: 20 20 20 3d 20 6e 75 6c 6c 3b 0a 7d 0a 0a 76 6f = null;.}..vo
2370: 69 64 20 42 67 61 53 65 74 4f 77 6e 65 72 57 69 id BgaSetOwnerWi
2380: 6e 64 6f 77 45 78 5f 69 6d 70 6c 28 20 48 57 4e ndowEx_impl( HWN
2390: 44 20 77 6e 64 2c 20 41 52 43 48 49 56 45 52 50 D wnd, ARCHIVERP
23a0: 52 4f 43 2a 20 70 72 6f 63 20 29 0a 7b 0a 09 67 ROC* proc ).{..g
23b0: 5f 6f 77 6e 65 72 5f 77 69 6e 64 6f 77 20 3d 20 _owner_window =
23c0: 77 6e 64 3b 0a 09 67 5f 68 61 6e 64 6c 65 72 20 wnd;..g_handler
23d0: 20 20 20 20 20 3d 20 2a 70 72 6f 63 3b 0a 7d 0a = *proc;.}.
23e0: 0a 65 6e 75 6d 20 7b 20 4f 50 5f 46 49 4c 45 5f .enum { OP_FILE_
23f0: 42 45 47 49 4e 2c 20 4f 50 5f 46 49 4c 45 5f 4d BEGIN, OP_FILE_M
2400: 49 44 44 4c 45 2c 20 4f 50 5f 41 52 43 5f 45 4e IDDLE, OP_ARC_EN
2410: 44 2c 20 4f 50 5f 41 52 43 5f 42 45 47 49 4e 20 D, OP_ARC_BEGIN
2420: 7d 0a 62 6f 6f 6c 20 64 6f 5f 6f 77 6e 65 72 77 }.bool do_ownerw
2430: 6e 64 5f 70 72 6f 63 28 20 55 49 4e 54 20 75 53 nd_proc( UINT uS
2440: 74 61 74 65 2c 20 42 67 61 48 65 61 64 65 72 2a tate, BgaHeader*
2450: 20 68 64 72 2c 20 69 6e 74 20 63 75 72 2c 20 73 hdr, int cur, s
2460: 74 72 69 6e 67 20 73 72 63 5f 66 6e 61 6d 65 20 tring src_fname
2470: 29 0a 7b 0a 09 69 66 28 20 67 5f 68 61 6e 64 6c ).{..if( g_handl
2480: 65 72 20 69 73 20 6e 75 6c 6c 20 29 0a 09 09 72 er is null )...r
2490: 65 74 75 72 6e 20 74 72 75 65 3b 0a 09 45 58 54 eturn true;..EXT
24a0: 52 41 43 54 49 4e 47 49 4e 46 4f 45 58 20 65 78 RACTINGINFOEX ex
24b0: 3b 0a 09 69 66 28 20 75 53 74 61 74 65 20 3d 3d ;..if( uState ==
24c0: 20 4f 50 5f 41 52 43 5f 42 45 47 49 4e 20 7c 7c OP_ARC_BEGIN ||
24d0: 20 75 53 74 61 74 65 20 3d 3d 20 4f 50 5f 41 52 uState == OP_AR
24e0: 43 5f 45 4e 44 20 29 0a 09 7b 0a 09 09 6c 73 74 C_END )..{...lst
24f0: 72 63 70 79 6e 41 28 20 65 78 2e 65 78 69 6e 66 rcpynA( ex.exinf
2500: 6f 2e 73 7a 53 6f 75 72 63 65 46 69 6c 65 4e 61 o.szSourceFileNa
2510: 6d 65 2e 70 74 72 2c 20 74 6f 53 74 72 69 6e 67 me.ptr, toString
2520: 7a 28 73 72 63 5f 66 6e 61 6d 65 29 2c 20 35 31 z(src_fname), 51
2530: 32 20 29 3b 0a 09 7d 0a 09 65 6c 73 65 0a 09 7b 2 );..}..else..{
2540: 0a 09 09 65 78 2e 65 78 69 6e 66 6f 2e 64 77 46 ...ex.exinfo.dwF
2550: 69 6c 65 53 69 7a 65 20 20 3d 20 68 64 72 2e 6f ileSize = hdr.o
2560: 72 69 67 69 6e 61 6c 5f 73 69 7a 65 3b 0a 09 09 riginal_size;...
2570: 65 78 2e 65 78 69 6e 66 6f 2e 64 77 57 72 69 74 ex.exinfo.dwWrit
2580: 65 53 69 7a 65 20 3d 20 63 75 72 3b 0a 09 09 6c eSize = cur;...l
2590: 73 74 72 63 70 79 6e 41 28 20 65 78 2e 65 78 69 strcpynA( ex.exi
25a0: 6e 66 6f 2e 73 7a 53 6f 75 72 63 65 46 69 6c 65 nfo.szSourceFile
25b0: 4e 61 6d 65 2e 70 74 72 2c 20 74 6f 53 74 72 69 Name.ptr, toStri
25c0: 6e 67 7a 28 73 72 63 5f 66 6e 61 6d 65 29 2c 20 ngz(src_fname),
25d0: 35 31 32 20 29 3b 0a 09 09 6c 73 74 72 63 70 79 512 );...lstrcpy
25e0: 6e 41 28 20 65 78 2e 65 78 69 6e 66 6f 2e 73 7a nA( ex.exinfo.sz
25f0: 44 65 73 74 46 69 6c 65 4e 61 6d 65 2e 70 74 72 DestFileName.ptr
2600: 2c 20 74 6f 53 74 72 69 6e 67 7a 28 68 64 72 2e , toStringz(hdr.
2610: 66 6e 61 6d 65 29 2c 20 35 31 32 20 29 3b 0a 09 fname), 512 );..
2620: 09 65 78 2e 64 77 43 6f 6d 70 72 65 73 73 65 64 .ex.dwCompressed
2630: 53 69 7a 65 20 3d 20 68 64 72 2e 63 6f 6d 70 72 Size = hdr.compr
2640: 65 73 73 65 64 5f 73 69 7a 65 3b 0a 09 09 65 78 essed_size;...ex
2650: 2e 77 52 61 74 69 6f 20 3d 20 63 61 73 74 28 75 .wRatio = cast(u
2660: 73 68 6f 72 74 29 28 20 28 63 61 73 74 28 72 65 short)( (cast(re
2670: 61 6c 29 68 64 72 2e 63 6f 6d 70 72 65 73 73 65 al)hdr.compresse
2680: 64 5f 73 69 7a 65 29 2f 68 64 72 2e 6f 72 69 67 d_size)/hdr.orig
2690: 69 6e 61 6c 5f 73 69 7a 65 2a 31 30 30 30 20 29 inal_size*1000 )
26a0: 3b 0a 09 09 65 78 2e 77 44 61 74 65 20 20 3d 20 ;...ex.wDate =
26b0: 68 64 72 2e 64 61 74 65 3b 0a 09 09 65 78 2e 77 hdr.date;...ex.w
26c0: 54 69 6d 65 20 20 3d 20 68 64 72 2e 74 69 6d 65 Time = hdr.time
26d0: 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 62 75 ;...ex.szAttribu
26e0: 74 65 5b 30 5d 20 3d 20 28 68 64 72 2e 61 74 74 te[0] = (hdr.att
26f0: 72 69 62 26 33 32 20 3f 20 27 41 27 3a 20 27 2d rib&32 ? 'A': '-
2700: 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 72 69 ');...ex.szAttri
2710: 62 75 74 65 5b 31 5d 20 3d 20 28 68 64 72 2e 61 bute[1] = (hdr.a
2720: 74 74 72 69 62 26 31 20 20 3f 20 27 52 27 3a 20 ttrib&1 ? 'R':
2730: 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 74 74 '-');...ex.szAtt
2740: 72 69 62 75 74 65 5b 32 5d 20 3d 20 28 68 64 72 ribute[2] = (hdr
2750: 2e 61 74 74 72 69 62 26 32 20 20 3f 20 27 48 27 .attrib&2 ? 'H'
2760: 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 7a 41 : '-');...ex.szA
2770: 74 74 72 69 62 75 74 65 5b 33 5d 20 3d 20 28 68 ttribute[3] = (h
2780: 64 72 2e 61 74 74 72 69 62 26 34 20 20 3f 20 27 dr.attrib&4 ? '
2790: 53 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 2e 73 S': '-');...ex.s
27a0: 7a 41 74 74 72 69 62 75 74 65 5b 34 5d 20 3d 20 zAttribute[4] =
27b0: 28 68 64 72 2e 61 74 74 72 69 62 26 31 36 20 3f (hdr.attrib&16 ?
27c0: 20 27 44 27 3a 20 27 2d 27 29 3b 0a 09 09 65 78 'D': '-');...ex
27d0: 2e 73 7a 41 74 74 72 69 62 75 74 65 5b 35 5d 20 .szAttribute[5]
27e0: 3d 20 27 5c 30 27 3b 0a 09 09 69 66 28 20 68 64 = '\0';...if( hd
27f0: 72 2e 6d 65 74 68 6f 64 5b 30 5d 3d 3d 27 47 27 r.method[0]=='G'
2800: 20 29 0a 09 09 09 6c 73 74 72 63 70 79 41 28 65 )....lstrcpyA(e
2810: 78 2e 73 7a 4d 6f 64 65 2e 70 74 72 2c 22 2d 67 x.szMode.ptr,"-g
2820: 7a 69 70 2d 22 29 3b 0a 09 09 65 6c 73 65 0a 09 zip-");...else..
2830: 09 09 6c 73 74 72 63 70 79 41 28 65 78 2e 73 7a ..lstrcpyA(ex.sz
2840: 4d 6f 64 65 2e 70 74 72 2c 22 2d 62 7a 69 70 32 Mode.ptr,"-bzip2
2850: 2d 22 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e -");..}...return
2860: 20 66 61 6c 73 65 20 21 3d 20 67 5f 68 61 6e 64 false != g_hand
2870: 6c 65 72 28 20 67 5f 6f 77 6e 65 72 5f 77 69 6e ler( g_owner_win
2880: 64 6f 77 2c 20 57 4d 5f 41 52 43 45 58 54 52 41 dow, WM_ARCEXTRA
2890: 43 54 2c 20 75 53 74 61 74 65 2c 20 26 65 78 20 CT, uState, &ex
28a0: 29 3b 0a 7d 0a 0a 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d );.}..//--------
28b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f 20 e3 83 91 e3 --------.// ....
28f0: 82 b9 e6 a4 9c e6 9f bb e7 b3 bb 0a 2f 2f 2d 2d ............//--
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
2940: 61 6c 69 61 73 20 63 6f 72 65 2e 73 79 73 2e 77 alias core.sys.w
2950: 69 6e 64 6f 77 73 2e 77 69 6e 64 6f 77 73 2e 49 indows.windows.I
2960: 73 44 42 43 53 4c 65 61 64 42 79 74 65 20 69 73 sDBCSLeadByte is
2970: 44 4c 3b 0a 73 74 72 69 6e 67 20 72 65 70 6c 61 DL;.string repla
2980: 63 65 5f 79 65 6e 28 20 73 74 72 69 6e 67 20 73 ce_yen( string s
2990: 20 29 0a 7b 0a 09 73 74 72 69 6e 67 20 61 6e 73 ).{..string ans
29a0: 3b 0a 09 69 6e 74 20 6a 3d 30 3b 0a 09 66 6f 72 ;..int j=0;..for
29b0: 28 69 6e 74 20 69 3d 30 3b 20 69 21 3d 73 2e 6c (int i=0; i!=s.l
29c0: 65 6e 67 74 68 3b 20 69 3d 69 2b 28 69 73 44 4c ength; i=i+(isDL
29d0: 28 73 5b 69 5d 29 3f 32 3a 31 29 29 0a 09 09 69 (s[i])?2:1))...i
29e0: 66 28 20 73 5b 69 5d 20 3d 3d 20 27 5c 5c 27 20 f( s[i] == '\\'
29f0: 29 0a 09 09 09 61 6e 73 7e 3d 73 5b 6a 20 2e 2e )....ans~=s[j ..
2a00: 20 69 5d 2c 20 61 6e 73 7e 3d 27 2f 27 2c 20 6a i], ans~='/', j
2a10: 3d 69 2b 31 3b 0a 09 61 6e 73 20 7e 3d 20 73 5b =i+1;..ans ~= s[
2a20: 6a 20 2e 2e 20 24 5d 3b 0a 09 72 65 74 75 72 6e j .. $];..return
2a30: 20 61 6e 73 3b 0a 7d 0a 0a 62 6f 6f 6c 20 77 69 ans;.}..bool wi
2a40: 6c 64 5f 6d 61 74 63 68 28 20 73 74 72 69 6e 67 ld_match( string
2a50: 20 77 69 6c 64 2c 20 73 74 72 69 6e 67 20 6e 61 wild, string na
2a60: 6d 65 20 29 0a 7b 0a 09 62 6f 6f 6c 20 77 69 6c me ).{..bool wil
2a70: 64 5f 6d 61 74 63 68 5f 6e 6f 70 61 74 68 28 20 d_match_nopath(
2a80: 73 74 72 69 6e 67 20 77 2c 20 73 74 72 69 6e 67 string w, string
2a90: 20 73 20 29 0a 09 7b 0a 09 09 73 74 72 69 6e 67 s )..{...string
2aa0: 20 61 64 76 61 6e 63 65 28 20 73 74 72 69 6e 67 advance( string
2ab0: 20 73 20 29 0a 09 09 7b 0a 09 09 09 72 65 74 75 s )...{....retu
2ac0: 72 6e 20 73 5b 28 49 73 44 42 43 53 4c 65 61 64 rn s[(IsDBCSLead
2ad0: 42 79 74 65 28 73 5b 30 5d 29 3f 32 3a 31 29 20 Byte(s[0])?2:1)
2ae0: 2e 2e 20 24 5d 3b 0a 09 09 7d 0a 0a 09 09 77 68 .. $];...}....wh
2af0: 69 6c 65 28 20 77 2e 6c 65 6e 67 74 68 3e 30 20 ile( w.length>0
2b00: 29 0a 09 09 09 73 77 69 74 63 68 28 20 77 5b 30 )....switch( w[0
2b10: 5d 20 29 0a 09 09 09 7b 0a 09 09 09 63 61 73 65 ] )....{....case
2b20: 20 27 3f 27 3a 0a 09 09 09 09 69 66 28 20 73 2e '?':.....if( s.
2b30: 6c 65 6e 67 74 68 3d 3d 30 20 29 0a 09 09 09 09 length==0 ).....
2b40: 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 .return false;..
2b50: 09 09 09 77 20 3d 20 61 64 76 61 6e 63 65 28 77 ...w = advance(w
2b60: 29 3b 0a 09 09 09 09 73 20 3d 20 61 64 76 61 6e );.....s = advan
2b70: 63 65 28 73 29 3b 0a 09 09 09 09 62 72 65 61 6b ce(s);.....break
2b80: 3b 0a 09 09 09 63 61 73 65 20 27 2a 27 3a 0a 09 ;....case '*':..
2b90: 09 09 09 69 66 28 20 73 2e 6c 65 6e 67 74 68 3d ...if( s.length=
2ba0: 3d 30 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e =0 )......return
2bb0: 20 66 61 6c 73 65 3b 0a 09 09 09 09 77 20 3d 20 false;.....w =
2bc0: 61 64 76 61 6e 63 65 28 77 29 3b 0a 09 09 09 09 advance(w);.....
2bd0: 69 66 28 20 77 2e 6c 65 6e 67 74 68 20 3d 3d 20 if( w.length ==
2be0: 30 20 29 0a 09 09 09 09 09 72 65 74 75 72 6e 20 0 )......return
2bf0: 74 72 75 65 3b 0a 09 09 09 09 66 6f 72 28 20 3b true;.....for( ;
2c00: 20 73 2e 6c 65 6e 67 74 68 21 3d 30 3b 20 73 3d s.length!=0; s=
2c10: 61 64 76 61 6e 63 65 28 73 29 20 29 0a 09 09 09 advance(s) )....
2c20: 09 09 69 66 28 20 77 69 6c 64 5f 6d 61 74 63 68 ..if( wild_match
2c30: 5f 6e 6f 70 61 74 68 28 77 2c 73 29 20 29 0a 09 _nopath(w,s) )..
2c40: 09 09 09 09 09 72 65 74 75 72 6e 20 74 72 75 65 .....return true
2c50: 3b 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c ;.....return fal
2c60: 73 65 3b 0a 09 09 09 64 65 66 61 75 6c 74 3a 0a se;....default:.
2c70: 09 09 09 09 69 66 28 20 73 2e 6c 65 6e 67 74 68 ....if( s.length
2c80: 3d 3d 30 20 29 0a 09 09 09 09 09 72 65 74 75 72 ==0 )......retur
2c90: 6e 20 66 61 6c 73 65 3b 0a 09 09 09 09 69 66 28 n false;.....if(
2ca0: 20 69 73 44 4c 28 77 5b 30 5d 29 20 29 0a 09 09 isDL(w[0]) )...
2cb0: 09 09 20 20 7b 20 69 66 28 20 77 5b 30 2e 2e 32 .. { if( w[0..2
2cc0: 5d 20 21 3d 20 73 5b 30 2e 2e 32 5d 20 29 20 72 ] != s[0..2] ) r
2cd0: 65 74 75 72 6e 20 66 61 6c 73 65 3b 20 7d 0a 09 eturn false; }..
2ce0: 09 09 09 65 6c 73 65 0a 09 09 09 09 20 20 7b 20 ...else..... {
2cf0: 69 66 28 20 77 5b 30 5d 20 20 20 20 21 3d 20 73 if( w[0] != s
2d00: 5b 30 5d 20 20 20 20 29 20 72 65 74 75 72 6e 20 [0] ) return
2d10: 66 61 6c 73 65 3b 20 7d 0a 09 09 09 09 77 20 3d false; }.....w =
2d20: 20 61 64 76 61 6e 63 65 28 77 29 3b 0a 09 09 09 advance(w);....
2d30: 09 73 20 3d 20 61 64 76 61 6e 63 65 28 73 29 3b .s = advance(s);
2d40: 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 7d .....break;....}
2d50: 0a 09 09 72 65 74 75 72 6e 20 73 2e 6c 65 6e 67 ...return s.leng
2d60: 74 68 3d 3d 30 3b 0a 09 7d 0a 0a 09 69 66 28 20 th==0;..}...if(
2d70: 77 69 6c 64 3d 3d 22 22 20 7c 7c 20 77 69 6c 64 wild=="" || wild
2d80: 3d 3d 22 2a 2e 2a 22 20 7c 7c 20 77 69 6c 64 3d =="*.*" || wild=
2d90: 3d 22 2a 22 20 7c 7c 20 77 69 6c 64 3d 3d 22 2a ="*" || wild=="*
2da0: 2a 22 20 29 0a 09 09 72 65 74 75 72 6e 20 74 72 *" )...return tr
2db0: 75 65 3b 0a 0a 09 73 74 72 69 6e 67 5b 5d 20 77 ue;...string[] w
2dc0: 69 6c 64 73 20 3d 20 73 70 6c 69 74 28 20 72 65 ilds = split( re
2dd0: 70 6c 61 63 65 5f 79 65 6e 28 20 74 6f 4c 6f 77 place_yen( toLow
2de0: 65 72 28 77 69 6c 64 29 20 29 2c 20 22 2f 22 20 er(wild) ), "/"
2df0: 29 3b 0a 09 73 74 72 69 6e 67 5b 5d 20 6e 61 6d );..string[] nam
2e00: 65 73 20 3d 20 73 70 6c 69 74 28 20 72 65 70 6c es = split( repl
2e10: 61 63 65 5f 79 65 6e 28 20 74 6f 4c 6f 77 65 72 ace_yen( toLower
2e20: 28 6e 61 6d 65 29 20 29 2c 20 22 2f 22 20 29 3b (name) ), "/" );
2e30: 0a 0a 09 69 66 28 20 77 69 6c 64 73 2e 6c 65 6e ...if( wilds.len
2e40: 67 74 68 20 21 3d 20 6e 61 6d 65 73 2e 6c 65 6e gth != names.len
2e50: 67 74 68 20 29 0a 09 09 72 65 74 75 72 6e 20 66 gth )...return f
2e60: 61 6c 73 65 3b 0a 09 66 6f 72 28 69 6e 74 20 69 alse;..for(int i
2e70: 3d 30 3b 20 69 21 3d 77 69 6c 64 73 2e 6c 65 6e =0; i!=wilds.len
2e80: 67 74 68 3b 20 2b 2b 69 29 0a 09 09 69 66 28 20 gth; ++i)...if(
2e90: 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 2e 2a 22 20 wilds[i]!="*.*"
2ea0: 26 26 20 77 69 6c 64 73 5b 69 5d 21 3d 22 2a 22 && wilds[i]!="*"
2eb0: 20 26 26 20 77 69 6c 64 73 5b 69 5d 21 3d 22 2a && wilds[i]!="*
2ec0: 2a 22 20 29 0a 09 09 09 69 66 28 20 21 77 69 6c *" )....if( !wil
2ed0: 64 5f 6d 61 74 63 68 5f 6e 6f 70 61 74 68 28 20 d_match_nopath(
2ee0: 77 69 6c 64 73 5b 69 5d 2c 20 6e 61 6d 65 73 5b wilds[i], names[
2ef0: 69 5d 20 29 20 29 0a 09 09 09 09 72 65 74 75 72 i] ) ).....retur
2f00: 6e 20 66 61 6c 73 65 3b 0a 09 72 65 74 75 72 6e n false;..return
2f10: 20 74 72 75 65 3b 0a 7d 0a 0a 73 74 72 69 6e 67 true;.}..string
2f20: 20 63 68 65 63 6b 5f 70 61 74 68 28 20 73 74 72 check_path( str
2f30: 69 6e 67 20 69 6e 5f 70 61 74 68 20 29 0a 7b 0a ing in_path ).{.
2f40: 09 63 68 61 72 5b 5d 20 70 61 74 68 20 3d 20 69 .char[] path = i
2f50: 6e 5f 70 61 74 68 2e 64 75 70 3b 0a 0a 09 2f 2f n_path.dup;...//
2f60: 20 43 3a 5c 20 3d 3d 3e 20 43 5f 5c 0a 09 69 66 C:\ ==> C_\..if
2f70: 28 20 70 61 74 68 2e 6c 65 6e 67 74 68 3e 3d 32 ( path.length>=2
2f80: 20 26 26 20 70 61 74 68 5b 31 5d 3d 3d 27 3a 27 && path[1]==':'
2f90: 20 29 0a 09 09 70 61 74 68 5b 31 5d 20 3d 20 27 )...path[1] = '
2fa0: 5f 27 3b 0a 0a 09 2f 2f 20 5c 5c 68 6f 67 65 20 _';...// \\hoge
2fb0: 3d 3d 3e 20 68 6f 67 65 0a 09 2f 2f 20 2f 68 6f ==> hoge..// /ho
2fc0: 67 65 20 20 3d 3d 3e 20 68 6f 67 65 0a 09 77 68 ge ==> hoge..wh
2fd0: 69 6c 65 28 20 70 61 74 68 2e 6c 65 6e 67 74 68 ile( path.length
2fe0: 3e 30 20 26 26 20 28 70 61 74 68 5b 30 5d 3d 3d >0 && (path[0]==
2ff0: 27 5c 5c 27 7c 7c 70 61 74 68 5b 30 5d 3d 3d 27 '\\'||path[0]=='
3000: 2f 27 29 20 29 0a 09 09 70 61 74 68 20 3d 20 70 /') )...path = p
3010: 61 74 68 5b 31 2e 2e 24 5d 3b 0a 0a 09 2f 2f 20 ath[1..$];...//
3020: 2e 2e 20 3d 3d 3e 20 5f 5f 0a 09 73 74 72 69 6e .. ==> __..strin
3030: 67 5b 5d 20 70 61 74 68 73 20 3d 20 73 70 6c 69 g[] paths = spli
3040: 74 28 20 72 65 70 6c 61 63 65 5f 79 65 6e 28 70 t( replace_yen(p
3050: 61 74 68 2e 69 64 75 70 29 2c 20 22 2f 22 20 29 ath.idup), "/" )
3060: 3b 0a 09 4c 31 3a 0a 09 66 6f 72 65 61 63 68 28 ;..L1:..foreach(
3070: 20 72 65 66 20 73 74 72 69 6e 67 20 70 63 20 3b ref string pc ;
3080: 20 70 61 74 68 73 20 29 0a 09 09 69 66 28 20 70 paths )...if( p
3090: 63 2e 6c 65 6e 67 74 68 20 3e 3d 20 32 20 29 0a c.length >= 2 ).
30a0: 09 09 7b 0a 09 09 09 66 6f 72 65 61 63 68 28 20 ..{....foreach(
30b0: 63 68 61 72 20 63 20 3b 20 70 63 20 29 0a 09 09 char c ; pc )...
30c0: 09 09 69 66 28 20 63 20 21 3d 20 27 2e 27 20 29 ..if( c != '.' )
30d0: 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 20 4c ......continue L
30e0: 31 3b 0a 09 09 09 70 63 20 3d 20 72 65 70 6c 61 1;....pc = repla
30f0: 63 65 28 20 70 63 2c 20 22 2e 22 2c 20 22 5f 22 ce( pc, ".", "_"
3100: 20 29 3b 0a 09 09 7d 0a 0a 09 72 65 74 75 72 6e );...}...return
3110: 20 6a 6f 69 6e 28 20 70 61 74 68 73 2c 20 22 5c join( paths, "\
3120: 5c 22 20 29 3b 0a 7d 0a 0a 0a 0a 2f 2f 2d 2d 2d \" );.}....//---
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2f 2f -------------.//
3170: 20 e7 b0 a1 e6 98 93 e3 83 86 e3 82 b9 e3 83 88 ...............
3180: ef bc a0 e3 82 82 e3 81 a3 e3 81 a8 e3 83 9e e3 ................
3190: 82 b8 e3 83 a1 e3 81 ab e6 9b b8 e3 81 8b e3 81 ................
31a0: aa e3 81 8d e3 82 83 e2 80 a6 0a 2f 2f 2d 2d 2d ...........//---
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 75 -------------..u
31f0: 6e 69 74 74 65 73 74 0a 7b 0a 09 61 73 73 65 72 nittest.{..asser
3200: 74 28 20 63 68 65 63 6b 5f 70 61 74 68 28 60 5c t( check_path(`\
3210: 5c 5c 5c 68 6f 67 65 5c 66 75 67 61 60 29 3d 3d \\\hoge\fuga`)==
3220: 60 68 6f 67 65 5c 66 75 67 61 60 20 29 3b 0a 09 `hoge\fuga` );..
3230: 61 73 73 65 72 74 28 20 63 68 65 63 6b 5f 70 61 assert( check_pa
3240: 74 68 28 60 2f 75 73 72 2f 6c 6f 63 61 6c 2f 60 th(`/usr/local/`
3250: 29 3d 3d 60 75 73 72 5c 6c 6f 63 61 6c 5c 60 20 )==`usr\local\`
3260: 29 3b 0a 09 61 73 73 65 72 74 28 20 63 68 65 63 );..assert( chec
3270: 6b 5f 70 61 74 68 28 60 2e 2e 5c 61 62 63 20 64 k_path(`..\abc d
3280: 65 66 5c 2e 2e 2e 5c 2e 5c 67 60 29 3d 3d 60 5f ef\...\.\g`)==`_
3290: 5f 5c 61 62 63 20 64 65 66 5c 5f 5f 5f 5c 2e 5c _\abc def\___\.\
32a0: 67 60 20 29 3b 0a 09 61 73 73 65 72 74 28 20 77 g` );..assert( w
32b0: 69 6c 64 5f 6d 61 74 63 68 28 60 61 2f 62 2f 63 ild_match(`a/b/c
32c0: 60 2c 60 41 5c 62 5c 43 60 29 20 29 3b 0a 09 61 `,`A\b\C`) );..a
32d0: 73 73 65 72 74 28 20 77 69 6c 64 5f 6d 61 74 63 ssert( wild_matc
32e0: 68 28 60 61 2f 2a 2e 2a 2f 61 3f 78 60 2c 60 41 h(`a/*.*/a?x`,`A
32f0: 5c 68 6f 67 65 5c 41 66 78 60 29 20 29 3b 0a 09 \hoge\Afx`) );..
3300: 61 73 73 65 72 74 28 20 42 67 61 5f 69 6d 70 6c assert( Bga_impl
3310: 28 6e 75 6c 6c 2c 22 61 20 68 6f 67 65 22 29 20 (null,"a hoge")
3320: 3c 20 30 20 29 3b 0a 7d 0a < 0 );.}.