source: trunk/dll/extract.c@ 872

Last change on this file since 872 was 793, checked in by Gregg Young, 18 years ago

Move #pragma alloc_text to end for OpenWatcom compat
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 10.9 KB
RevLine 
[123]1
2/***********************************************************************
3
4 $Id: extract.c 793 2007-08-21 02:53:38Z gyoung $
5
6 Copyright (c) 1993-98 M. Kimes
[574]7 Copyright (c) 2004, 2007 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
[123]16
17***********************************************************************/
18
[2]19#define INCL_WIN
20#define INCL_DOS
[350]21#include <os2.h>
[2]22
23#include <stdlib.h>
24#include <stdio.h>
25#include <string.h>
26#include <time.h>
27#include <ctype.h>
[350]28
[2]29#include "fm3dll.h"
30#include "fm3dlg.h"
31#include "fm3str.h"
32
33#pragma data_seg(DATA1)
[350]34
35static PSZ pszSrcFile = __FILE__;
[2]36
[551]37MRESULT EXPENTRY ExtractTextProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[350]38{
[574]39 PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER);
[551]40 static BOOL emphasized = FALSE;
[2]41
[551]42 switch (msg) {
43 case DM_DRAGOVER:
44 if (!emphasized) {
45 emphasized = TRUE;
46 DrawTargetEmphasis(hwnd, emphasized);
47 }
[618]48 if (AcceptOneDrop(hwnd, mp1, mp2))
[551]49 return MRFROM2SHORT(DOR_DROP, DO_MOVE);
50 return MRFROM2SHORT(DOR_NEVERDROP, 0);
[2]51
[551]52 case DM_DRAGLEAVE:
53 if (emphasized) {
54 emphasized = FALSE;
55 DrawTargetEmphasis(hwnd, emphasized);
56 }
57 break;
[2]58
[551]59 case DM_DROPHELP:
60 DropHelp(mp1, mp2, hwnd, GetPString(IDS_EXTDROPHELPTEXT));
61 return 0;
[2]62
[551]63 case DM_DROP:
64 {
65 char szFrom[CCHMAXPATH + 2];
[2]66
[551]67 if (emphasized) {
68 emphasized = FALSE;
69 DrawTargetEmphasis(hwnd, emphasized);
[2]70 }
[618]71 if (GetOneDrop(hwnd, mp1, mp2, szFrom, sizeof(szFrom)))
[551]72 WinSendMsg(WinQueryWindow(hwnd, QW_PARENT), WM_COMMAND,
73 MPFROM2SHORT(IDM_SWITCH, 0), MPFROMP(szFrom));
74 }
75 return 0;
[2]76 }
[551]77 return (oldproc) ? oldproc(hwnd, msg, mp1, mp2) :
78 WinDefWindowProc(hwnd, msg, mp1, mp2);
[2]79}
80
[551]81MRESULT EXPENTRY ExtractDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[350]82{
[551]83 EXTRDATA *arcdata = NULL;
[2]84
[551]85 switch (msg) {
86 case WM_INITDLG:
[574]87 WinSetWindowPtr(hwnd, QWL_USER, mp2);
[551]88 arcdata = (EXTRDATA *) mp2;
89 {
90 ULONG size = sizeof(BOOL);
91 BOOL fRemember = FALSE;
92 BOOL fDirectory = FALSE;
93 PFNWP oldproc;
[2]94
[551]95 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, EXT_DIRECTORY),
96 (PFNWP) ExtractTextProc);
97 if (oldproc)
98 WinSetWindowPtr(WinWindowFromID(hwnd, EXT_DIRECTORY),
99 QWL_USER, (PVOID) oldproc);
100 PrfQueryProfileData(fmprof, FM3Str, "RememberExt",
101 (PVOID) & fRemember, &size);
102 PrfQueryProfileData(fmprof, FM3Str, "DirectoryExt",
103 (PVOID) & fDirectory, &size);
104 WinCheckButton(hwnd, EXT_REMEMBER, fRemember);
105 WinCheckButton(hwnd, EXT_AWDIRS, fDirectory);
106 WinSendDlgItemMsg(hwnd, EXT_DIRECTORY, EM_SETTEXTLIMIT,
107 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
108 WinSendDlgItemMsg(hwnd, EXT_COMMAND, EM_SETTEXTLIMIT,
109 MPFROM2SHORT(256, 0), MPVOID);
110 WinSendDlgItemMsg(hwnd, EXT_MASK, EM_SETTEXTLIMIT,
111 MPFROM2SHORT(256, 0), MPVOID);
112 WinSendDlgItemMsg(hwnd, EXT_FILENAME, EM_SETTEXTLIMIT,
113 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
114 if (arcdata->arcname && *arcdata->arcname)
115 WinSetDlgItemText(hwnd, EXT_FILENAME, arcdata->arcname);
116 else
117 WinSetDlgItemText(hwnd, EXT_FILENAME, GetPString(IDS_EXTVARIOUSTEXT));
118 if (fDirectory) {
119 WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_SETCHECK,
120 MPFROM2SHORT(TRUE, 0), MPVOID);
121 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs);
122 }
123 else {
124 WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_SETCHECK,
125 MPFROM2SHORT(TRUE, 0), MPVOID);
126 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract);
[549]127
[551]128 }
129 if (fRemember) {
[2]130
[551]131 CHAR textdir[CCHMAXPATH];
[2]132
[551]133 size = sizeof(textdir);
134 *textdir = 0;
135 PrfQueryProfileData(fmprof, FM3Str, "Ext_ExtractDir",
136 (PVOID) textdir, &size);
137 if (*textdir && !IsFile(textdir))
138 strcpy(arcdata->extractdir, textdir);
139 size = sizeof(textdir);
140 *textdir = 0;
141 PrfQueryProfileData(fmprof, FM3Str, "Ext_Mask", (PVOID) textdir,
142 &size);
143 WinSetDlgItemText(hwnd, EXT_MASK, textdir);
144 }
145 if (*extractpath && (!fRemember || !*arcdata->extractdir)) {
146 if (arcdata->arcname && *arcdata->arcname &&
147 !strcmp(extractpath, "*")) {
[2]148
[551]149 CHAR *p;
[2]150
[551]151 strcpy(arcdata->extractdir, arcdata->arcname);
152 p = strrchr(arcdata->extractdir, '\\');
153 if (p) {
154 if (p < arcdata->extractdir + 3)
155 p++;
156 *p = 0;
157 }
158 }
159 else
160 strcpy(arcdata->extractdir, extractpath);
161 }
162 if (!*arcdata->extractdir) {
163 if (*lastextractpath)
164 strcpy(arcdata->extractdir, lastextractpath);
165 else if (arcdata->arcname && *arcdata->arcname) {
[2]166
[551]167 CHAR *p;
[2]168
[551]169 strcpy(arcdata->extractdir, arcdata->arcname);
170 p = strrchr(arcdata->extractdir, '\\');
171 if (p) {
172 if (p < arcdata->extractdir + 3)
173 p++;
174 *p = 0;
175 }
176 }
177 if (!*arcdata->extractdir)
178 save_dir2(arcdata->extractdir);
[2]179 }
[551]180 WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir);
181 if (!arcdata->info->exwdirs)
182 WinEnableWindow(WinWindowFromID(hwnd, EXT_WDIRS), FALSE);
183 else if (fRemember) {
184 size = sizeof(BOOL);
185 fRemember = FALSE;
186 PrfQueryProfileData(fmprof, FM3Str, "Ext_WDirs",
187 (PVOID) & fRemember, &size);
188 if (fRemember)
189 PostMsg(WinWindowFromID(hwnd, EXT_WDIRS), BM_CLICK, MPVOID, MPVOID);
190 }
191 }
192 *arcdata->command = 0;
193 PosOverOkay(hwnd);
194 break;
[2]195
[551]196 case WM_ADJUSTWINDOWPOS:
197 PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
198 break;
[2]199
[551]200 case UM_SETDIR:
201 PaintRecessedWindow(WinWindowFromID(hwnd, EXT_HELP), (HPS) 0, FALSE,
202 TRUE);
203 return 0;
[2]204
[551]205 case WM_CONTROL:
[574]206 arcdata = (EXTRDATA *) WinQueryWindowPtr(hwnd, QWL_USER);
[551]207 switch (SHORT1FROMMP(mp1)) {
208 case EXT_REMEMBER:
209 {
210 BOOL fRemember = WinQueryButtonCheckstate(hwnd, EXT_REMEMBER);
[2]211
[551]212 PrfWriteProfileData(fmprof, FM3Str, "RememberExt",
213 (PVOID) & fRemember, sizeof(BOOL));
214 }
215 break;
[2]216
[551]217 case EXT_AWDIRS:
218 {
219 BOOL fDirectory = WinQueryButtonCheckstate(hwnd, EXT_AWDIRS);
[549]220
[551]221 PrfWriteProfileData(fmprof, FM3Str, "DirectoryExt",
222 (PVOID) & fDirectory, sizeof(BOOL));
[549]223
[551]224 if (fDirectory) {
225 WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_SETCHECK,
226 MPFROM2SHORT(TRUE, 0), MPVOID);
227 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs);
228 }
229 else {
230 WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_SETCHECK,
231 MPFROM2SHORT(TRUE, 0), MPVOID);
232 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract);
233 }
234 }
235 break;
[549]236
[551]237 case EXT_FILENAME:
238 if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
239 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCDEFAULTHELPTEXT));
240 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
241 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCARCNAMEHELPTEXT));
242 break;
[2]243
[551]244 case EXT_DIRECTORY:
245 if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
246 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCDEFAULTHELPTEXT));
247 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
248 WinSetDlgItemText(hwnd, EXT_HELP,
249 GetPString(IDS_EXTEXTRACTDIRHELPTEXT));
250 break;
[2]251
[551]252 case EXT_COMMAND:
253 if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
254 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCDEFAULTHELPTEXT));
255 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
256 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCCMDHELPTEXT));
257 break;
[2]258
[551]259 case EXT_MASK:
260 if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
261 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCDEFAULTHELPTEXT));
262 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
263 WinSetDlgItemText(hwnd, EXT_HELP, GetPString(IDS_ARCMASKHELPTEXT));
264 break;
[2]265
[551]266 case EXT_NORMAL:
267 if ((BOOL) WinSendDlgItemMsg(hwnd, EXT_NORMAL, BM_QUERYCHECK,
268 MPVOID, MPVOID))
269 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->extract);
270 break;
[2]271
[551]272 case EXT_WDIRS:
273 if (arcdata->info->exwdirs) {
274 if ((BOOL) WinSendDlgItemMsg(hwnd, EXT_WDIRS, BM_QUERYCHECK,
275 MPVOID, MPVOID))
276 WinSetDlgItemText(hwnd, EXT_COMMAND, arcdata->info->exwdirs);
[2]277 }
[551]278 break;
279 }
280 return 0;
[2]281
[551]282 case WM_COMMAND:
[574]283 arcdata = (EXTRDATA *) WinQueryWindowPtr(hwnd, QWL_USER);
[551]284 switch (SHORT1FROMMP(mp1)) {
285 case IDM_SWITCH:
286 if (mp2) {
[2]287
[551]288 CHAR tdir[CCHMAXPATH];
[2]289
[551]290 strcpy(tdir, (CHAR *) mp2);
291 MakeValidDir(tdir);
292 WinSetDlgItemText(hwnd, EXT_DIRECTORY, tdir);
293 }
294 break;
[2]295
[551]296 case DID_CANCEL:
297 arcdata->ret = 0;
298 WinDismissDlg(hwnd, 0);
299 break;
300 case DID_OK:
301 {
302 CHAR s[CCHMAXPATH + 1];
303 BOOL fRemember;
[2]304
[551]305 fRemember = WinQueryButtonCheckstate(hwnd, EXT_REMEMBER);
306 *s = 0;
307 WinQueryDlgItemText(hwnd, EXT_DIRECTORY, CCHMAXPATH, s);
308 bstrip(s);
309 if (*s) {
310 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
311 QW_OWNER), hwnd, s, 0)) {
312 strcpy(arcdata->extractdir, s);
313 WinSetDlgItemText(hwnd, EXT_DIRECTORY, s);
314 if ((!isalpha(*s) || s[1] != ':') && *s != '.')
315 saymsg(MB_ENTER, hwnd,
316 GetPString(IDS_WARNINGTEXT),
317 GetPString(IDS_SPECIFYDRIVETEXT));
318 }
319 else
320 break;
321 strcpy(lastextractpath, s);
322 if (fRemember) {
323 PrfWriteProfileString(fmprof, FM3Str, "Ext_ExtractDir", s);
324 fRemember = WinQueryButtonCheckstate(hwnd, EXT_WDIRS);
325 PrfWriteProfileData(fmprof, FM3Str, "Ext_WDirs",
326 (PVOID) & fRemember, sizeof(BOOL));
327 fRemember = TRUE;
328 }
329 *s = 0;
330 WinQueryDlgItemText(hwnd, EXT_COMMAND, 256, s);
331 if (*s) {
332 strcpy(arcdata->command, s);
333 *s = 0;
334 WinQueryDlgItemText(hwnd, EXT_MASK, 256, s);
335 *arcdata->masks = 0;
336 strcpy(arcdata->masks, s);
337 if (fRemember)
338 PrfWriteProfileString(fmprof, FM3Str, "Ext_Mask", s);
339 arcdata->ret = 1;
340 WinDismissDlg(hwnd, 1);
341 break;
342 }
343 }
344 }
345 DosBeep(50, 100); // Complain a refuse to quit
346 break;
[2]347
[551]348 case IDM_HELP:
349 if (hwndHelp)
350 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
351 MPFROM2SHORT(HELP_EXTRACT, 0), MPFROMSHORT(HM_RESOURCEID));
352 break;
[2]353
[551]354 case EXT_WALK:
355 {
356 CHAR temp[CCHMAXPATH + 1];
[2]357
[551]358 strcpy(temp, arcdata->extractdir);
359 if (WinDlgBox(HWND_DESKTOP, WinQueryWindow(WinQueryWindow(hwnd,
360 QW_PARENT),
361 QW_OWNER),
362 WalkExtractDlgProc, FM3ModHandle, WALK_FRAME,
363 (PVOID) temp)) {
364 if (*temp && stricmp(temp, arcdata->extractdir)) {
365 strcpy(arcdata->extractdir, temp);
366 }
367 }
368 WinSetDlgItemText(hwnd, EXT_DIRECTORY, arcdata->extractdir);
369 }
370 break;
[2]371
[551]372 case EXT_SEE:
373 {
374 CHAR s[1001], *p;
375 EXECARGS ex;
[2]376
[551]377 WinQueryDlgItemText(hwnd, EXT_COMMAND, 256, s);
378 lstrip(s);
379 if (!*s)
380 Runtime_Error(pszSrcFile, __LINE__, "no command");
381 else {
382 p = strchr(s, ' ');
383 if (p)
384 *p = 0; // Drop options
385 memset(&ex, 0, sizeof(EXECARGS));
386 ex.commandline = s;
387 ex.flags = WINDOWED | SEPARATEKEEP | MAXIMIZED;
388 *ex.path = 0;
389 *ex.environment = 0;
390 if (WinDlgBox(HWND_DESKTOP,
391 hwnd,
392 CmdLineDlgProc,
393 FM3ModHandle, EXEC_FRAME, MPFROMP(&ex)) && *s) {
394 runemf2(ex.flags,
395 hwnd,
396 NULL, (*ex.environment) ? ex.environment : NULL, "%s", s);
397 }
398 }
[2]399 }
[551]400 break;
401 }
402 return 0;
[2]403
[551]404 case WM_CLOSE:
405 break;
[2]406 }
[551]407 return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]408}
[793]409
410#pragma alloc_text(FMEXTRACT,ExtractTextProc,ExtractDlgProc)
Note: See TracBrowser for help on using the repository browser.