| [123] | 1 |  | 
|---|
|  | 2 | /*********************************************************************** | 
|---|
|  | 3 |  | 
|---|
|  | 4 | $Id: extract.c 1717 2014-02-15 23:06:47Z gyoung $ | 
|---|
|  | 5 |  | 
|---|
|  | 6 | Copyright (c) 1993-98 M. Kimes | 
|---|
| [1694] | 7 | Copyright (c) 2004, 2013 Steven H. Levine | 
|---|
| [123] | 8 |  | 
|---|
| [186] | 9 | 01 Aug 04 SHL Rework lstrip/rstrip usage | 
|---|
|  | 10 | 05 Jun 05 SHL Use QWL_USER | 
|---|
| [350] | 11 | 17 Jul 06 SHL Use Runtime_Error | 
|---|
| [549] | 12 | 20 Dec 06 GKY Added checkbox to make default extract with directories | 
|---|
| [574] | 13 | 22 Mar 07 GKY Use QWL_USER | 
|---|
| [618] | 14 | 19 Apr 07 SHL Sync with AcceptOneDrop GetOneDrop mods | 
|---|
| [793] | 15 | 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat | 
|---|
| [1104] | 16 | 19 Jul 08 GKY Replace save_dir2(dir) with pFM2SaveDirectory | 
|---|
| [1300] | 17 | 29 Nov 08 GKY Add the option of creating a subdirectory from the arcname | 
|---|
|  | 18 | for the extract path. | 
|---|
| [1395] | 19 | 07 Feb 09 GKY Allow user to turn off alert and/or error beeps in settings notebook. | 
|---|
| [1694] | 20 | 17 Jan 10 GKY Changes to get working with Watcom 1.9 Beta (1/16/10). Mostly cast CHAR CONSTANT * as CHAR *. | 
|---|
| [1546] | 21 | 23 Oct 10 GKY Changes to populate and utilize a HELPTABLE for context specific help | 
|---|
| [1694] | 22 | 11 Aug 13 GKY Fix directory create failure on extract to directory based on archive name | 
|---|
|  | 23 | if the name needed quoting. | 
|---|
| [1717] | 24 | 15 Feb 14 GKY Assure the title is blank on the execute dialog call with the "see" button | 
|---|
| [123] | 25 |  | 
|---|
|  | 26 | ***********************************************************************/ | 
|---|
|  | 27 |  | 
|---|
| [907] | 28 | #include <string.h> | 
|---|
|  | 29 | #include <ctype.h> | 
|---|
|  | 30 |  | 
|---|
| [2] | 31 | #define INCL_WIN | 
|---|
|  | 32 | #define INCL_DOS | 
|---|
| [907] | 33 | #define INCL_LONGLONG                   // dircnrs.h | 
|---|
| [2] | 34 |  | 
|---|
| [1179] | 35 | #include "fm3dll.h" | 
|---|
| [1223] | 36 | #include "fm3dll2.h"                    // #define's for UM_*, control id's, etc. | 
|---|
| [1207] | 37 | #include "init.h"                       // Data declaration(s) | 
|---|
|  | 38 | #include "arccnrs.h"                    // Data declaration(s) | 
|---|
|  | 39 | #include "notebook.h"                   // Data declaration(s) | 
|---|
|  | 40 | #include "mainwnd.h"                    // Data declaration(s) | 
|---|
| [2] | 41 | #include "fm3dlg.h" | 
|---|
|  | 42 | #include "fm3str.h" | 
|---|
| [907] | 43 | #include "errutil.h"                    // Dos_Error... | 
|---|
|  | 44 | #include "strutil.h"                    // GetPString | 
|---|
| [1157] | 45 | #include "cmdline.h"                    // CmdLineDlgProc | 
|---|
|  | 46 | #include "extract.h" | 
|---|
|  | 47 | #include "walkem.h"                     // WalkExtractDlgProc | 
|---|
| [1179] | 48 | #include "droplist.h"                   // AcceptOneDrop, DropHelp, GetOneDrop | 
|---|
|  | 49 | #include "misc.h"                       // DrawTargetEmphasis | 
|---|
|  | 50 | #include "chklist.h"                    // PosOverOkay | 
|---|
|  | 51 | #include "mkdir.h"                      // SetDir | 
|---|
|  | 52 | #include "valid.h"                      // MakeValidDir | 
|---|
|  | 53 | #include "systemf.h"                    // runemf2 | 
|---|
|  | 54 | #include "dirs.h"                       // save_dir2 | 
|---|
|  | 55 | #include "strips.h"                     // bstrip | 
|---|
| [2] | 56 |  | 
|---|
|  | 57 | #pragma data_seg(DATA1) | 
|---|
| [350] | 58 |  | 
|---|
|  | 59 | static PSZ pszSrcFile = __FILE__; | 
|---|
| [2] | 60 |  | 
|---|
| [551] | 61 | MRESULT EXPENTRY ExtractTextProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) | 
|---|
| [350] | 62 | { | 
|---|
| [574] | 63 | PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER); | 
|---|
| [551] | 64 | static BOOL emphasized = FALSE; | 
|---|
| [2] | 65 |  | 
|---|
| [551] | 66 | switch (msg) { | 
|---|
|  | 67 | case DM_DRAGOVER: | 
|---|
|  | 68 | if (!emphasized) { | 
|---|
|  | 69 | emphasized = TRUE; | 
|---|
|  | 70 | DrawTargetEmphasis(hwnd, emphasized); | 
|---|
|  | 71 | } | 
|---|
| [618] | 72 | if (AcceptOneDrop(hwnd, mp1, mp2)) | 
|---|
| [551] | 73 | return MRFROM2SHORT(DOR_DROP, DO_MOVE); | 
|---|
|  | 74 | return MRFROM2SHORT(DOR_NEVERDROP, 0); | 
|---|
| [2] | 75 |  | 
|---|
| [551] | 76 | case DM_DRAGLEAVE: | 
|---|
|  | 77 | if (emphasized) { | 
|---|
|  | 78 | emphasized = FALSE; | 
|---|
|  | 79 | DrawTargetEmphasis(hwnd, emphasized); | 
|---|
|  | 80 | } | 
|---|
|  | 81 | break; | 
|---|
| [2] | 82 |  | 
|---|
| [551] | 83 | case DM_DROPHELP: | 
|---|
|  | 84 | DropHelp(mp1, mp2, hwnd, GetPString(IDS_EXTDROPHELPTEXT)); | 
|---|
|  | 85 | return 0; | 
|---|
| [2] | 86 |  | 
|---|
| [551] | 87 | case DM_DROP: | 
|---|
|  | 88 | { | 
|---|
|  | 89 | char szFrom[CCHMAXPATH + 2]; | 
|---|
| [2] | 90 |  | 
|---|
| [551] | 91 | if (emphasized) { | 
|---|
|  | 92 | emphasized = FALSE; | 
|---|
|  | 93 | DrawTargetEmphasis(hwnd, emphasized); | 
|---|
| [2] | 94 | } | 
|---|
| [618] | 95 | if (GetOneDrop(hwnd, mp1, mp2, szFrom, sizeof(szFrom))) | 
|---|
| [551] | 96 | WinSendMsg(WinQueryWindow(hwnd, QW_PARENT), WM_COMMAND, | 
|---|
|  | 97 | MPFROM2SHORT(IDM_SWITCH, 0), MPFROMP(szFrom)); | 
|---|
|  | 98 | } | 
|---|
|  | 99 | return 0; | 
|---|
| [2] | 100 | } | 
|---|
| [551] | 101 | return (oldproc) ? oldproc(hwnd, msg, mp1, mp2) : | 
|---|
|  | 102 | WinDefWindowProc(hwnd, msg, mp1, mp2); | 
|---|
| [2] | 103 | } | 
|---|
|  | 104 |  | 
|---|
| [551] | 105 | MRESULT EXPENTRY ExtractDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) | 
|---|
| [350] | 106 | { | 
|---|
| [551] | 107 | EXTRDATA *arcdata = NULL; | 
|---|
| [1344] | 108 | ULONG size; | 
|---|
| [1300] | 109 | BOOL fFileNameExtPath; | 
|---|
| [2] | 110 |  | 
|---|
| [551] | 111 | switch (msg) { | 
|---|
|  | 112 | case WM_INITDLG: | 
|---|
| [574] | 113 | WinSetWindowPtr(hwnd, QWL_USER, mp2); | 
|---|
| [551] | 114 | arcdata = (EXTRDATA *) mp2; | 
|---|
|  | 115 | { | 
|---|
| [1344] | 116 | BOOL fDirectory = FALSE; | 
|---|
| [551] | 117 | BOOL fRemember = FALSE; | 
|---|
|  | 118 | PFNWP oldproc; | 
|---|
| [2] | 119 |  | 
|---|
| [1300] | 120 | fFileNameExtPath = FALSE; | 
|---|
| [551] | 121 | oldproc = WinSubclassWindow(WinWindowFromID(hwnd, EXT_DIRECTORY), | 
|---|
|  | 122 | (PFNWP) ExtractTextProc); | 
|---|
|  | 123 | if (oldproc) | 
|---|
|  | 124 | WinSetWindowPtr(WinWindowFromID(hwnd, EXT_DIRECTORY), | 
|---|
| [1344] | 125 | QWL_USER, (PVOID) oldproc); | 
|---|
|  | 126 | size = sizeof(BOOL); | 
|---|
| [1505] | 127 | PrfQueryProfileData(fmprof, FM3Str, "RememberExt", | 
|---|
| [1344] | 128 | (PVOID) & fRemember, &size); | 
|---|
|  | 129 | size = sizeof(BOOL); | 
|---|
| [1505] | 130 | PrfQueryProfileData(fmprof, FM3Str, "DirectoryExt", | 
|---|
| [1300] | 131 | (PVOID) & fDirectory, &size); | 
|---|
| [1344] | 132 | size = sizeof(BOOL); | 
|---|
| [1505] | 133 | PrfQueryProfileData(fmprof, FM3Str, "FileNamePathExt", | 
|---|
| [1300] | 134 | (PVOID) & fFileNameExtPath, &size); | 
|---|
| [551] | 135 | WinCheckButton(hwnd, EXT_REMEMBER, fRemember); | 
|---|
|  | 136 | WinCheckButton(hwnd, EXT_AWDIRS, fDirectory); | 
|---|
| [1300] | 137 | WinCheckButton(hwnd, EXT_FILENAMEEXT, fFileNameExtPath); | 
|---|
| [551] | 138 | WinSendDlgItemMsg(hwnd, EXT_DIRECTORY, EM_SETTEXTLIMIT, | 
|---|
|  | 139 | MPFROM2SHORT(CCHMAXPATH, 0), MPVOID); | 
|---|
|  | 140 | WinSendDlgItemMsg(hwnd, EXT_COMMAND, EM_SETTEXTLIMIT, | 
|---|
|  | 141 | MPFROM2SHORT(256, 0), MPVOID); | 
|---|
|  | 142 | WinSendDlgItemMsg(hwnd, EXT_MASK, EM_SETTEXTLIMIT, | 
|---|
|  | 143 | MPFROM2SHORT(256, 0), MPVOID); | 
|---|
|  | 144 | WinSendDlgItemMsg(hwnd, EXT_FILENAME, EM_SETTEXTLIMIT, | 
|---|
|  | 145 | MPFROM2SHORT(CCHMAXPATH, 0), MPVOID); | 
|---|
|  | 146 | if (arcdata->arcname && *arcdata->arcname) | 
|---|
|  | 147 | WinSetDlgItemText(hwnd, EXT_FILENAME, arcdata->arcname); | 
|---|
|  | 148 | else | 
|---|
| [1498] | 149 | WinSetDlgItemText(hwnd, EXT_FILENAME, (CHAR *) GetPString(IDS_EXTVARIOUSTEXT)); | 
|---|
| [1300] | 150 |  | 
|---|
|  | 151 | if (fFileNameExtPath && arcdata->arcname) { | 
|---|
|  | 152 |  | 
|---|
|  | 153 | CHAR FileName[CCHMAXPATH]; | 
|---|
|  | 154 | PSZ p; | 
|---|
|  | 155 |  | 
|---|
|  | 156 | strcpy(FileName, arcdata->arcname); | 
|---|
|  | 157 | p = strrchr(FileName, '.'); | 
|---|
| [1692] | 158 | if (p) { | 
|---|
| [1300] | 159 | *p = 0; | 
|---|
| [1692] | 160 | if (strchr(FileName, '\"')) | 
|---|
|  | 161 | memmove(FileName, FileName + 1, strlen(FileName) + 1); | 
|---|
|  | 162 | } | 
|---|
| [1300] | 163 | else { | 
|---|
|  | 164 | p = FileName + strlen(arcdata->arcname); | 
|---|
|  | 165 | p--; | 
|---|
|  | 166 | *p = 0; | 
|---|
| [1692] | 167 | if (strchr(FileName, '\"')) | 
|---|
|  | 168 | memmove(FileName , FileName + 1, strlen(FileName) + 1); | 
|---|
| [1300] | 169 | } | 
|---|
|  | 170 | strcpy(arcdata->extractdir, FileName); | 
|---|
|  | 171 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir); | 
|---|
|  | 172 | } | 
|---|
| [551] | 173 | if (fDirectory) { | 
|---|
|  | 174 | WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_SETCHECK, | 
|---|
|  | 175 | MPFROM2SHORT(TRUE, 0), MPVOID); | 
|---|
|  | 176 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs); | 
|---|
|  | 177 | } | 
|---|
|  | 178 | else { | 
|---|
|  | 179 | WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_SETCHECK, | 
|---|
|  | 180 | MPFROM2SHORT(TRUE, 0), MPVOID); | 
|---|
|  | 181 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract); | 
|---|
| [549] | 182 |  | 
|---|
| [551] | 183 | } | 
|---|
|  | 184 | if (fRemember) { | 
|---|
| [2] | 185 |  | 
|---|
| [1344] | 186 | CHAR textdir[CCHMAXPATH]; | 
|---|
| [2] | 187 |  | 
|---|
| [1505] | 188 | PrfQueryProfileString(fmprof, FM3Str, "Ext_ExtractDir", NULL, textdir, sizeof(textdir)); | 
|---|
| [551] | 189 | if (*textdir && !IsFile(textdir)) | 
|---|
|  | 190 | strcpy(arcdata->extractdir, textdir); | 
|---|
| [1505] | 191 | PrfQueryProfileString(fmprof, FM3Str, "Ext_Mask", NULL, textdir, sizeof(textdir)); | 
|---|
| [551] | 192 | WinSetDlgItemText(hwnd, EXT_MASK, textdir); | 
|---|
|  | 193 | } | 
|---|
|  | 194 | if (*extractpath && (!fRemember || !*arcdata->extractdir)) { | 
|---|
|  | 195 | if (arcdata->arcname && *arcdata->arcname && | 
|---|
|  | 196 | !strcmp(extractpath, "*")) { | 
|---|
| [2] | 197 |  | 
|---|
| [551] | 198 | CHAR *p; | 
|---|
| [2] | 199 |  | 
|---|
| [551] | 200 | strcpy(arcdata->extractdir, arcdata->arcname); | 
|---|
|  | 201 | p = strrchr(arcdata->extractdir, '\\'); | 
|---|
|  | 202 | if (p) { | 
|---|
|  | 203 | if (p < arcdata->extractdir + 3) | 
|---|
|  | 204 | p++; | 
|---|
|  | 205 | *p = 0; | 
|---|
|  | 206 | } | 
|---|
|  | 207 | } | 
|---|
|  | 208 | else | 
|---|
|  | 209 | strcpy(arcdata->extractdir, extractpath); | 
|---|
|  | 210 | } | 
|---|
|  | 211 | if (!*arcdata->extractdir) { | 
|---|
|  | 212 | if (*lastextractpath) | 
|---|
|  | 213 | strcpy(arcdata->extractdir, lastextractpath); | 
|---|
|  | 214 | else if (arcdata->arcname && *arcdata->arcname) { | 
|---|
| [2] | 215 |  | 
|---|
| [551] | 216 | CHAR *p; | 
|---|
| [2] | 217 |  | 
|---|
| [551] | 218 | strcpy(arcdata->extractdir, arcdata->arcname); | 
|---|
|  | 219 | p = strrchr(arcdata->extractdir, '\\'); | 
|---|
|  | 220 | if (p) { | 
|---|
|  | 221 | if (p < arcdata->extractdir + 3) | 
|---|
|  | 222 | p++; | 
|---|
|  | 223 | *p = 0; | 
|---|
|  | 224 | } | 
|---|
|  | 225 | } | 
|---|
|  | 226 | if (!*arcdata->extractdir) | 
|---|
| [1104] | 227 | strcpy(arcdata->extractdir, pFM2SaveDirectory); | 
|---|
| [2] | 228 | } | 
|---|
| [551] | 229 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir); | 
|---|
|  | 230 | if (!arcdata->info->exwdirs) | 
|---|
|  | 231 | WinEnableWindow(WinWindowFromID(hwnd, EXT_WDIRS), FALSE); | 
|---|
|  | 232 | else if (fRemember) { | 
|---|
| [1344] | 233 | fRemember = FALSE; | 
|---|
|  | 234 | size = sizeof(BOOL); | 
|---|
| [1505] | 235 | PrfQueryProfileData(fmprof, FM3Str, "Ext_WDirs", | 
|---|
| [1300] | 236 | (PVOID) &fRemember, &size); | 
|---|
| [551] | 237 | if (fRemember) | 
|---|
|  | 238 | PostMsg(WinWindowFromID(hwnd, EXT_WDIRS), BM_CLICK, MPVOID, MPVOID); | 
|---|
|  | 239 | } | 
|---|
|  | 240 | } | 
|---|
|  | 241 | *arcdata->command = 0; | 
|---|
|  | 242 | PosOverOkay(hwnd); | 
|---|
|  | 243 | break; | 
|---|
| [2] | 244 |  | 
|---|
| [551] | 245 | case WM_ADJUSTWINDOWPOS: | 
|---|
|  | 246 | PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID); | 
|---|
|  | 247 | break; | 
|---|
| [2] | 248 |  | 
|---|
| [551] | 249 | case UM_SETDIR: | 
|---|
|  | 250 | PaintRecessedWindow(WinWindowFromID(hwnd, EXT_HELP), (HPS) 0, FALSE, | 
|---|
|  | 251 | TRUE); | 
|---|
|  | 252 | return 0; | 
|---|
| [2] | 253 |  | 
|---|
| [551] | 254 | case WM_CONTROL: | 
|---|
| [574] | 255 | arcdata = (EXTRDATA *) WinQueryWindowPtr(hwnd, QWL_USER); | 
|---|
| [551] | 256 | switch (SHORT1FROMMP(mp1)) { | 
|---|
|  | 257 | case EXT_REMEMBER: | 
|---|
|  | 258 | { | 
|---|
|  | 259 | BOOL fRemember = WinQueryButtonCheckstate(hwnd, EXT_REMEMBER); | 
|---|
| [1344] | 260 | size = sizeof(BOOL); | 
|---|
| [1505] | 261 | PrfWriteProfileData(fmprof, FM3Str, "RememberExt", | 
|---|
| [1344] | 262 | (PVOID) &fRemember, size); | 
|---|
|  | 263 | WinSendDlgItemMsg(hwnd, EXT_FILENAMEEXT, BM_SETCHECK, | 
|---|
|  | 264 | MPFROM2SHORT(FALSE, 0), MPVOID); | 
|---|
| [551] | 265 | } | 
|---|
|  | 266 | break; | 
|---|
| [2] | 267 |  | 
|---|
| [551] | 268 | case EXT_AWDIRS: | 
|---|
|  | 269 | { | 
|---|
|  | 270 | BOOL fDirectory = WinQueryButtonCheckstate(hwnd, EXT_AWDIRS); | 
|---|
| [1344] | 271 | size = sizeof(BOOL); | 
|---|
| [1505] | 272 | PrfWriteProfileData(fmprof, FM3Str, "DirectoryExt", | 
|---|
| [1300] | 273 | (PVOID) &fDirectory, size); | 
|---|
| [549] | 274 |  | 
|---|
| [551] | 275 | if (fDirectory) { | 
|---|
|  | 276 | WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_SETCHECK, | 
|---|
|  | 277 | MPFROM2SHORT(TRUE, 0), MPVOID); | 
|---|
|  | 278 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs); | 
|---|
|  | 279 | } | 
|---|
|  | 280 | else { | 
|---|
|  | 281 | WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_SETCHECK, | 
|---|
|  | 282 | MPFROM2SHORT(TRUE, 0), MPVOID); | 
|---|
|  | 283 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract); | 
|---|
|  | 284 | } | 
|---|
|  | 285 | } | 
|---|
|  | 286 | break; | 
|---|
| [549] | 287 |  | 
|---|
| [1300] | 288 | case EXT_FILENAMEEXT: | 
|---|
|  | 289 | { | 
|---|
| [1344] | 290 | BOOL fFileNameExtPath = WinQueryButtonCheckstate(hwnd, EXT_FILENAMEEXT); | 
|---|
|  | 291 | BOOL fRemember = WinQueryButtonCheckstate(hwnd, EXT_REMEMBER); | 
|---|
|  | 292 | size = sizeof(BOOL); | 
|---|
| [1505] | 293 | PrfWriteProfileData(fmprof, FM3Str, "FileNamePathExt", | 
|---|
| [1344] | 294 | fRemember ? FALSE : (PVOID) &fFileNameExtPath, size); | 
|---|
| [1349] | 295 | if (fRemember) { | 
|---|
|  | 296 | WinSendDlgItemMsg(hwnd, EXT_FILENAMEEXT, BM_SETCHECK, | 
|---|
|  | 297 | MPFROM2SHORT(FALSE, 0), MPVOID); | 
|---|
| [1344] | 298 | break; | 
|---|
| [1349] | 299 | } | 
|---|
| [1300] | 300 | if (fFileNameExtPath && arcdata->arcname) { | 
|---|
|  | 301 | CHAR FileName[CCHMAXPATH]; | 
|---|
|  | 302 | PSZ p; | 
|---|
|  | 303 |  | 
|---|
|  | 304 | strcpy(FileName, arcdata->arcname); | 
|---|
|  | 305 | p = strrchr(FileName, '.'); | 
|---|
| [1692] | 306 | if (p) { | 
|---|
|  | 307 | *p = 0; | 
|---|
|  | 308 | if (strchr(FileName, '\"')) | 
|---|
|  | 309 | memmove(FileName, FileName + 1, strlen(FileName) + 1); | 
|---|
|  | 310 | } | 
|---|
| [1300] | 311 | else { | 
|---|
|  | 312 | p = FileName + strlen(arcdata->arcname); | 
|---|
|  | 313 | p--; | 
|---|
|  | 314 | *p = 0; | 
|---|
| [1692] | 315 | if (strchr(FileName, '\"')) | 
|---|
|  | 316 | memmove(FileName, FileName + 1, strlen(FileName) + 1); | 
|---|
| [1300] | 317 | } | 
|---|
|  | 318 | strcpy(arcdata->extractdir, FileName); | 
|---|
|  | 319 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir); | 
|---|
|  | 320 | } | 
|---|
|  | 321 | else { | 
|---|
|  | 322 | *arcdata->extractdir = 0; | 
|---|
|  | 323 | if (*extractpath) { | 
|---|
|  | 324 | if (arcdata->arcname && *arcdata->arcname && | 
|---|
|  | 325 | !strcmp(extractpath, "*")) { | 
|---|
|  | 326 |  | 
|---|
|  | 327 | CHAR *p; | 
|---|
|  | 328 |  | 
|---|
|  | 329 | strcpy(arcdata->extractdir, arcdata->arcname); | 
|---|
|  | 330 | p = strrchr(arcdata->extractdir, '\\'); | 
|---|
|  | 331 | if (p) { | 
|---|
|  | 332 | if (p < arcdata->extractdir + 3) | 
|---|
|  | 333 | p++; | 
|---|
|  | 334 | *p = 0; | 
|---|
|  | 335 | } | 
|---|
|  | 336 | } | 
|---|
|  | 337 | else | 
|---|
|  | 338 | strcpy(arcdata->extractdir, extractpath); | 
|---|
|  | 339 | } | 
|---|
|  | 340 | if (!*arcdata->extractdir) { | 
|---|
| [1306] | 341 | if (arcdata->arcname && *arcdata->arcname) { | 
|---|
| [1300] | 342 |  | 
|---|
|  | 343 | CHAR *p; | 
|---|
|  | 344 |  | 
|---|
|  | 345 | strcpy(arcdata->extractdir, arcdata->arcname); | 
|---|
|  | 346 | p = strrchr(arcdata->extractdir, '\\'); | 
|---|
|  | 347 | if (p) { | 
|---|
|  | 348 | if (p < arcdata->extractdir + 3) | 
|---|
|  | 349 | p++; | 
|---|
|  | 350 | *p = 0; | 
|---|
|  | 351 | } | 
|---|
|  | 352 | } | 
|---|
|  | 353 | if (!*arcdata->extractdir) | 
|---|
|  | 354 | strcpy(arcdata->extractdir, pFM2SaveDirectory); | 
|---|
|  | 355 | } | 
|---|
|  | 356 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir); | 
|---|
|  | 357 | } | 
|---|
|  | 358 | } | 
|---|
|  | 359 | break; | 
|---|
|  | 360 |  | 
|---|
| [551] | 361 | case EXT_FILENAME: | 
|---|
|  | 362 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
| [1498] | 363 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCDEFAULTHELPTEXT)); | 
|---|
| [551] | 364 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 365 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCARCNAMEHELPTEXT)); | 
|---|
| [551] | 366 | break; | 
|---|
| [2] | 367 |  | 
|---|
| [551] | 368 | case EXT_DIRECTORY: | 
|---|
|  | 369 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
| [1498] | 370 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCDEFAULTHELPTEXT)); | 
|---|
| [551] | 371 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 372 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_EXTEXTRACTDIRHELPTEXT)); | 
|---|
| [551] | 373 | break; | 
|---|
| [2] | 374 |  | 
|---|
| [551] | 375 | case EXT_COMMAND: | 
|---|
|  | 376 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
| [1498] | 377 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCDEFAULTHELPTEXT)); | 
|---|
| [551] | 378 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 379 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCCMDHELPTEXT)); | 
|---|
| [551] | 380 | break; | 
|---|
| [2] | 381 |  | 
|---|
| [551] | 382 | case EXT_MASK: | 
|---|
|  | 383 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
| [1498] | 384 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCDEFAULTHELPTEXT)); | 
|---|
| [551] | 385 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 386 | WinSetDlgItemText(hwnd, EXT_HELP, (CHAR *) GetPString(IDS_ARCMASKHELPTEXT)); | 
|---|
| [551] | 387 | break; | 
|---|
| [2] | 388 |  | 
|---|
| [551] | 389 | case EXT_NORMAL: | 
|---|
|  | 390 | if ((BOOL) WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_QUERYCHECK, | 
|---|
|  | 391 | MPVOID, MPVOID)) | 
|---|
|  | 392 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract); | 
|---|
|  | 393 | break; | 
|---|
| [2] | 394 |  | 
|---|
| [551] | 395 | case EXT_WDIRS: | 
|---|
|  | 396 | if (arcdata->info->exwdirs) { | 
|---|
|  | 397 | if ((BOOL) WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_QUERYCHECK, | 
|---|
|  | 398 | MPVOID, MPVOID)) | 
|---|
|  | 399 | WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs); | 
|---|
| [2] | 400 | } | 
|---|
| [551] | 401 | break; | 
|---|
|  | 402 | } | 
|---|
|  | 403 | return 0; | 
|---|
| [2] | 404 |  | 
|---|
| [551] | 405 | case WM_COMMAND: | 
|---|
| [574] | 406 | arcdata = (EXTRDATA *) WinQueryWindowPtr(hwnd, QWL_USER); | 
|---|
| [551] | 407 | switch (SHORT1FROMMP(mp1)) { | 
|---|
|  | 408 | case IDM_SWITCH: | 
|---|
|  | 409 | if (mp2) { | 
|---|
| [2] | 410 |  | 
|---|
| [551] | 411 | CHAR tdir[CCHMAXPATH]; | 
|---|
| [2] | 412 |  | 
|---|
| [551] | 413 | strcpy(tdir, (CHAR *) mp2); | 
|---|
|  | 414 | MakeValidDir(tdir); | 
|---|
|  | 415 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, tdir); | 
|---|
|  | 416 | } | 
|---|
|  | 417 | break; | 
|---|
| [2] | 418 |  | 
|---|
| [551] | 419 | case DID_CANCEL: | 
|---|
|  | 420 | arcdata->ret = 0; | 
|---|
|  | 421 | WinDismissDlg(hwnd, 0); | 
|---|
|  | 422 | break; | 
|---|
|  | 423 | case DID_OK: | 
|---|
|  | 424 | { | 
|---|
|  | 425 | CHAR s[CCHMAXPATH + 1]; | 
|---|
|  | 426 | BOOL fRemember; | 
|---|
| [2] | 427 |  | 
|---|
| [551] | 428 | fRemember = WinQueryButtonCheckstate(hwnd, EXT_REMEMBER); | 
|---|
|  | 429 | *s = 0; | 
|---|
|  | 430 | WinQueryDlgItemText(hwnd, EXT_DIRECTORY, CCHMAXPATH, s); | 
|---|
|  | 431 | bstrip(s); | 
|---|
|  | 432 | if (*s) { | 
|---|
|  | 433 | if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT), | 
|---|
| [1300] | 434 | QW_OWNER), hwnd, s, fFileNameExtPath ? 1:0)) { | 
|---|
| [551] | 435 | strcpy(arcdata->extractdir, s); | 
|---|
|  | 436 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, s); | 
|---|
|  | 437 | if ((!isalpha(*s) || s[1] != ':') && *s != '.') | 
|---|
|  | 438 | saymsg(MB_ENTER, hwnd, | 
|---|
|  | 439 | GetPString(IDS_WARNINGTEXT), | 
|---|
|  | 440 | GetPString(IDS_SPECIFYDRIVETEXT)); | 
|---|
|  | 441 | } | 
|---|
|  | 442 | else | 
|---|
|  | 443 | break; | 
|---|
|  | 444 | strcpy(lastextractpath, s); | 
|---|
|  | 445 | if (fRemember) { | 
|---|
| [1505] | 446 | PrfWriteProfileString(fmprof, FM3Str, "Ext_ExtractDir", s); | 
|---|
| [1344] | 447 | fRemember = WinQueryButtonCheckstate(hwnd, EXT_WDIRS); | 
|---|
|  | 448 | size = sizeof(BOOL); | 
|---|
| [1505] | 449 | PrfWriteProfileData(fmprof, FM3Str, "Ext_WDirs", | 
|---|
| [1300] | 450 | (PVOID) &fRemember, size); | 
|---|
| [551] | 451 | fRemember = TRUE; | 
|---|
|  | 452 | } | 
|---|
|  | 453 | *s = 0; | 
|---|
|  | 454 | WinQueryDlgItemText(hwnd, EXT_COMMAND, 256, s); | 
|---|
|  | 455 | if (*s) { | 
|---|
|  | 456 | strcpy(arcdata->command, s); | 
|---|
|  | 457 | *s = 0; | 
|---|
|  | 458 | WinQueryDlgItemText(hwnd, EXT_MASK, 256, s); | 
|---|
|  | 459 | *arcdata->masks = 0; | 
|---|
|  | 460 | strcpy(arcdata->masks, s); | 
|---|
|  | 461 | if (fRemember) | 
|---|
| [1505] | 462 | PrfWriteProfileString(fmprof, FM3Str, "Ext_Mask", s); | 
|---|
| [551] | 463 | arcdata->ret = 1; | 
|---|
|  | 464 | WinDismissDlg(hwnd, 1); | 
|---|
|  | 465 | break; | 
|---|
|  | 466 | } | 
|---|
|  | 467 | } | 
|---|
|  | 468 | } | 
|---|
| [1395] | 469 | if (!fErrorBeepOff) | 
|---|
|  | 470 | DosBeep(50, 100);                       // Complain a refuse to quit | 
|---|
| [551] | 471 | break; | 
|---|
| [2] | 472 |  | 
|---|
| [551] | 473 | case IDM_HELP: | 
|---|
| [1546] | 474 | case WM_HELP: | 
|---|
| [551] | 475 | if (hwndHelp) | 
|---|
|  | 476 | WinSendMsg(hwndHelp, HM_DISPLAY_HELP, | 
|---|
|  | 477 | MPFROM2SHORT(HELP_EXTRACT, 0), MPFROMSHORT(HM_RESOURCEID)); | 
|---|
|  | 478 | break; | 
|---|
| [2] | 479 |  | 
|---|
| [551] | 480 | case EXT_WALK: | 
|---|
|  | 481 | { | 
|---|
|  | 482 | CHAR temp[CCHMAXPATH + 1]; | 
|---|
| [2] | 483 |  | 
|---|
| [551] | 484 | strcpy(temp, arcdata->extractdir); | 
|---|
|  | 485 | if (WinDlgBox(HWND_DESKTOP, WinQueryWindow(WinQueryWindow(hwnd, | 
|---|
|  | 486 | QW_PARENT), | 
|---|
|  | 487 | QW_OWNER), | 
|---|
|  | 488 | WalkExtractDlgProc, FM3ModHandle, WALK_FRAME, | 
|---|
|  | 489 | (PVOID) temp)) { | 
|---|
|  | 490 | if (*temp && stricmp(temp, arcdata->extractdir)) { | 
|---|
|  | 491 | strcpy(arcdata->extractdir, temp); | 
|---|
|  | 492 | } | 
|---|
|  | 493 | } | 
|---|
|  | 494 | WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir); | 
|---|
|  | 495 | } | 
|---|
|  | 496 | break; | 
|---|
| [2] | 497 |  | 
|---|
| [551] | 498 | case EXT_SEE: | 
|---|
|  | 499 | { | 
|---|
|  | 500 | CHAR s[1001], *p; | 
|---|
|  | 501 | EXECARGS ex; | 
|---|
| [2] | 502 |  | 
|---|
| [551] | 503 | WinQueryDlgItemText(hwnd, EXT_COMMAND, 256, s); | 
|---|
|  | 504 | lstrip(s); | 
|---|
|  | 505 | if (!*s) | 
|---|
|  | 506 | Runtime_Error(pszSrcFile, __LINE__, "no command"); | 
|---|
|  | 507 | else { | 
|---|
|  | 508 | p = strchr(s, ' '); | 
|---|
|  | 509 | if (p) | 
|---|
|  | 510 | *p = 0;                     // Drop options | 
|---|
|  | 511 | memset(&ex, 0, sizeof(EXECARGS)); | 
|---|
|  | 512 | ex.commandline = s; | 
|---|
|  | 513 | ex.flags = WINDOWED | SEPARATEKEEP | MAXIMIZED; | 
|---|
|  | 514 | *ex.path = 0; | 
|---|
| [1717] | 515 | *ex.environment = 0; | 
|---|
|  | 516 | *ex.title = 0; | 
|---|
| [551] | 517 | if (WinDlgBox(HWND_DESKTOP, | 
|---|
|  | 518 | hwnd, | 
|---|
|  | 519 | CmdLineDlgProc, | 
|---|
|  | 520 | FM3ModHandle, EXEC_FRAME, MPFROMP(&ex)) && *s) { | 
|---|
|  | 521 | runemf2(ex.flags, | 
|---|
| [888] | 522 | hwnd, pszSrcFile, __LINE__, | 
|---|
| [551] | 523 | NULL, (*ex.environment) ? ex.environment : NULL, "%s", s); | 
|---|
|  | 524 | } | 
|---|
|  | 525 | } | 
|---|
| [2] | 526 | } | 
|---|
| [551] | 527 | break; | 
|---|
|  | 528 | } | 
|---|
|  | 529 | return 0; | 
|---|
| [2] | 530 |  | 
|---|
| [551] | 531 | case WM_CLOSE: | 
|---|
|  | 532 | break; | 
|---|
| [2] | 533 | } | 
|---|
| [551] | 534 | return WinDefDlgProc(hwnd, msg, mp1, mp2); | 
|---|
| [2] | 535 | } | 
|---|
| [793] | 536 |  | 
|---|
|  | 537 | #pragma alloc_text(FMEXTRACT,ExtractTextProc,ExtractDlgProc) | 
|---|