source: trunk/dll/undel.c@ 1398

Last change on this file since 1398 was 1398, checked in by Gregg Young, 17 years ago

Move embeded strings to PCSZ variables or string table; Eliminate Error2 functions Runtime_Error with NULL format string returns "No data" error. Change declares from PSZ to PCSZ in functions where the variable isn't changed. Added btm as an executable file type in several additional places. Use fProtectOnly to prevent attempt to execute Dos and Win programs on "Protect only" installs in several additional places.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 12.9 KB
RevLine 
[123]1
2/***********************************************************************
3
4 $Id: undel.c 1398 2009-02-21 17:43:00Z gyoung $
5
6 Copyright (c) 1993-98 M. Kimes
[1335]7 Copyright (c) 2004, 2008 Steven H. Levine
[123]8
[145]9 01 Aug 04 SHL Rework lstrip/rstrip usage
10 24 May 05 SHL Rework Win_Error usage
[328]11 17 Jul 06 SHL Use Runtime_Error
[406]12 29 Jul 06 SHL Use xfgets_bstripcr
[528]13 03 Nov 06 SHL Count thread usage
[775]14 06 Aug 07 GKY Reduce DosSleep times (ticket 148)
[793]15 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
[985]16 29 Feb 08 GKY Use xfree where appropriate
[1075]17 16 JUL 08 GKY Use TMP directory for temp files
[1335]18 10 Dec 08 SHL Integrate exception handler support
[123]19
20***********************************************************************/
21
[2]22#include <stdlib.h>
23#include <string.h>
24#include <ctype.h>
[1335]25// #include <process.h> // _beginthread
[328]26
[907]27#define INCL_DOS
28#define INCL_WIN
29#define INCL_LONGLONG
30
[1185]31#include "fm3dll.h"
[1227]32#include "fm3dll2.h" // #define's for UM_*, control id's, etc.
33#include "undel.h"
[1214]34#include "init.h" // Data declaration(s)
35#include "mainwnd.h" // Data declaration(s)
[2]36#include "fm3dlg.h"
37#include "fm3str.h"
[907]38#include "errutil.h" // Dos_Error...
39#include "strutil.h" // GetPString
[1335]40#include "pathutil.h" // BldFullPathName
[1161]41#include "walkem.h" // FillPathListBox
[1185]42#include "common.h" // DecrThreadUsage, IncrThreadUsage
43#include "valid.h" // MakeFullName
44#include "copyf.h" // unlinkf
45#include "wrappers.h" // xfgets
46#include "strips.h" // bstrip
47#include "misc.h" // GetCmdSpec
48#include "systemf.h" // runemf2
[1038]49#include "fortify.h"
[1335]50#include "excputil.h" // xbeginthread
[2]51
52#pragma data_seg(DATA2)
[328]53
54static PSZ pszSrcFile = __FILE__;
55
[551]56struct tempstruct
57{
[2]58 HWND hwnd;
59 CHAR path[CCHMAXPATH];
60 BOOL inclsubdirs;
61};
62
[551]63static VOID FillUndelListThread(VOID * arg)
[328]64{
[551]65 HWND hwnd;
[1073]66 CHAR s[CCHMAXPATH * 2], szTempFile[CCHMAXPATH];
[551]67 CHAR *path;
68 HAB thab;
69 HMQ thmq;
[2]70 FILE *fp;
[551]71 HFILE oldstdout, newstdout;
[2]72 struct tempstruct *undelinfo;
[551]73 BOOL killme = FALSE;
[847]74 FILESTATUS3 fsa;
[2]75
76 undelinfo = (struct tempstruct *)arg;
77 hwnd = undelinfo->hwnd;
78 path = undelinfo->path;
79 DosError(FERR_DISABLEHARDERR);
80
[1038]81# ifdef FORTIFY
82 Fortify_EnterScope();
[1063]83# endif
[2]84 thab = WinInitialize(0);
[551]85 thmq = WinCreateMsgQueue(thab, 0);
[528]86 if (thab && thmq) {
[551]87 WinCancelShutdown(thmq, TRUE);
[528]88 IncrThreadUsage();
[551]89 WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
[1075]90 BldFullPathName(szTempFile, pTmpDir, "$UDELETE.#$#");
[1073]91 unlinkf("%s", szTempFile);
92 fp = xfopen(szTempFile, "w", pszSrcFile, __LINE__);
[328]93 if (!fp) {
[551]94 Win_Error(NULLHANDLE, hwnd, pszSrcFile, __LINE__,
95 GetPString(IDS_REDIRECTERRORTEXT));
[328]96 killme = TRUE;
97 goto Abort;
98 }
99 else {
[2]100 newstdout = -1;
[551]101 if (DosDupHandle(fileno(stdout), &newstdout)) {
102 saymsg(MB_CANCEL,
103 hwnd,
104 GetPString(IDS_MAYDAYTEXT), GetPString(IDS_REDIRECTERRORTEXT));
105 fclose(fp);
106 killme = TRUE;
107 goto Abort;
[2]108 }
109 oldstdout = fileno(stdout);
[551]110 DosDupHandle(fileno(fp), &oldstdout);
[2]111 runemf2(SEPARATE | INVISIBLE | WINDOWED | BACKGROUND | WAIT,
[888]112 hwnd, pszSrcFile, __LINE__,
[551]113 NULL,
114 NULL,
115 "UNDELETE.COM %s /L%s",
116 path, (undelinfo->inclsubdirs) ? " /S" : NullStr);
[2]117 oldstdout = fileno(stdout);
[551]118 DosDupHandle(newstdout, &oldstdout);
[2]119 DosClose(newstdout);
120 fclose(fp);
121 }
[1073]122 fp = xfopen(szTempFile, "r", pszSrcFile, __LINE__);
[328]123 if (fp) {
[551]124 xfgets(s, sizeof(s), fp, pszSrcFile, __LINE__); // Skip 1st line
[406]125 while (!feof(fp)) {
[551]126 strset(s, 0);
127 if (!xfgets_bstripcr(s, CCHMAXPATH + 2, fp, pszSrcFile, __LINE__))
128 break;
129 if (*s) {
130 if (!strnicmp(s, "SYS3194: ", 9)) {
[2]131
[551]132 APIRET temp;
[2]133
[551]134 strcat(s, " ");
135 xfgets(&s[strlen(s)], CCHMAXPATH + 128 - strlen(s), fp,
136 pszSrcFile, __LINE__);
137 fclose(fp);
138 s[CCHMAXPATH + 128] = 0;
139 stripcr(s);
140 rstrip(s);
141 strcat(s, GetPString(IDS_ASKABOUTUNDELETEHELPTEXT));
142 temp = saymsg(MB_YESNOCANCEL | MB_ICONEXCLAMATION,
143 hwnd, GetPString(IDS_ERRORTEXT), "%s", s);
144 if (temp == MBID_YES)
145 runemf2(BACKGROUND | INVISIBLE | SEPARATE | WINDOWED,
[888]146 hwnd, pszSrcFile, __LINE__,
[551]147 NULL, NULL, "%s /C HELP UNDELETE", GetCmdSpec(FALSE));
148 if (temp == MBID_CANCEL)
149 killme = TRUE;
150 goto Abort;
151 }
152 else if (s[1] != ':')
153 continue;
154 else if ((SHORT)
155 WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX, LM_SEARCHSTRING,
156 MPFROM2SHORT(0, LIT_FIRST),
157 MPFROMP(s)) < 0
[847]158 && DosQueryPathInfo(s, FIL_STANDARD, &fsa,
[551]159 (ULONG) sizeof(fsa)))
160 WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX, LM_INSERTITEM,
161 MPFROM2SHORT(LIT_SORTASCENDING, 0), MPFROMP(s));
162 }
[2]163 }
164 fclose(fp);
165 }
[551]166 Abort:
[528]167 ;
168 }
[1073]169 DosForceDelete(szTempFile);
[1009]170 xfree(undelinfo, pszSrcFile, __LINE__);
[528]171 if (thmq) {
[551]172 PostMsg(hwnd, UM_CONTAINER_FILLED, MPVOID, MPVOID);
[528]173 if (killme)
[551]174 PostMsg(hwnd, WM_CLOSE, MPVOID, MPVOID);
[2]175 WinDestroyMsgQueue(thmq);
[528]176 }
177 if (thab) {
178 DecrThreadUsage();
[2]179 WinTerminate(thab);
180 }
[1038]181# ifdef FORTIFY
[1063]182 Fortify_LeaveScope();
183# endif
[2]184}
185
[551]186MRESULT EXPENTRY UndeleteDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[328]187{
[551]188 SHORT sSelect;
189 static BOOL listdone, changed = FALSE, refresh = FALSE;
190 static HPOINTER hptrIcon = (HPOINTER) 0;
[2]191
[551]192 switch (msg) {
193 case WM_INITDLG:
194 listdone = TRUE;
[1009]195 if (!mp2 || !*(CHAR *)mp2) {
[1398]196 Runtime_Error(pszSrcFile, __LINE__, NULL);
[551]197 WinDismissDlg(hwnd, 0);
[2]198 break;
[551]199 }
200 hptrIcon = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, UNDEL_FRAME);
201 WinDefDlgProc(hwnd, WM_SETICON, MPFROMLONG(hptrIcon), MPVOID);
202 WinSendDlgItemMsg(hwnd, UNDEL_ENTRY, EM_SETTEXTLIMIT,
203 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
204 {
205 CHAR s[CCHMAXPATH];
[2]206
[1009]207 strcpy(s, (CHAR *)mp2);
[551]208 if (s[strlen(s) - 1] != '\\')
209 strcat(s, "\\");
210 strcat(s, "*");
211 WinSetDlgItemText(hwnd, UNDEL_ENTRY, s);
212 WinCheckButton(hwnd, UNDEL_SUBDIRS, TRUE);
213 FillPathListBox(hwnd, WinWindowFromID(hwnd, UNDEL_DRIVELIST), (HWND) 0,
214 s, TRUE);
215 }
216 PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
217 break;
[2]218
[551]219 case UM_SETUP:
220 if (listdone) {
[2]221
[551]222 struct tempstruct *undelinfo;
223 CHAR s[CCHMAXPATH];
224
225 listdone = FALSE;
226 undelinfo = xmallocz(sizeof(struct tempstruct), pszSrcFile, __LINE__);
227 if (!undelinfo) {
228 listdone = TRUE;
229 WinDismissDlg(hwnd, 0);
230 }
231 else {
232 undelinfo->hwnd = hwnd;
233 WinQueryDlgItemText(hwnd,
234 UNDEL_ENTRY,
235 sizeof(undelinfo->path), undelinfo->path);
236 bstrip(undelinfo->path);
237 MakeFullName(undelinfo->path);
238 undelinfo->inclsubdirs = WinQueryButtonCheckstate(hwnd,
239 UNDEL_SUBDIRS);
240 sprintf(s,
241 GetPString(IDS_UNDELETETITLETEXT), toupper(*undelinfo->path));
242 WinSetWindowText(hwnd, s);
[1335]243 if (xbeginthread(FillUndelListThread,
244 65536,
245 undelinfo,
246 pszSrcFile,
247 __LINE__) == -1)
248 {
[1039]249 free(undelinfo);
[551]250 listdone = TRUE;
251 WinDismissDlg(hwnd, 0);
[328]252 }
[551]253 else
[771]254 DosSleep(100);//05 Aug 07 GKY 500
[2]255 }
[551]256 refresh = FALSE;
257 }
258 else
259 refresh = TRUE;
260 changed = FALSE;
261 return 0;
[2]262
[551]263 case UM_CONTAINER_FILLED:
264 listdone = TRUE;
265 {
266 CHAR s[33];
[2]267
[551]268 sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
269 UNDEL_LISTBOX,
270 LM_QUERYITEMCOUNT, MPVOID, MPVOID);
271 sprintf(s, "%d", sSelect);
272 WinSetDlgItemText(hwnd, UNDEL_COUNT, s);
273 if (refresh)
274 PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
275 refresh = FALSE;
276 }
277 return 0;
[2]278
[551]279 case WM_CONTROL:
280 switch (SHORT1FROMMP(mp1)) {
281 case UNDEL_SUBDIRS:
282 PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
283 break;
[2]284
[551]285 case UNDEL_ENTRY:
286 switch (SHORT2FROMMP(mp1)) {
287 case EN_CHANGE:
288 changed = TRUE;
289 break;
290 case EN_KILLFOCUS:
291 if (changed)
292 PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
293 break;
[2]294 }
295 break;
296
[551]297 case UNDEL_DRIVELIST:
298 if (!listdone) {
299 Runtime_Error(pszSrcFile, __LINE__, "not listdone");
300 break;
[2]301 }
[551]302 switch (SHORT2FROMMP(mp1)) {
303 case CBN_ENTER:
304 {
305 CHAR s[CCHMAXPATH], drive, *p;
[2]306
[551]307 strset(s, 0);
308 WinQueryDlgItemText(hwnd, UNDEL_DRIVELIST, 3, s);
309 if (!isalpha(*s)) {
[1398]310 Runtime_Error(pszSrcFile, __LINE__, NULL);
[328]311 }
312 else {
[551]313 drive = toupper(*s);
314 WinQueryDlgItemText(hwnd, UNDEL_ENTRY, sizeof(s), s);
315 *s = drive;
316 s[1] = ':';
317 s[2] = '\\';
318 p = strrchr(s + 2, '\\');
319 if (p) {
320 p++;
321 if (*p)
322 memmove(s + 3, p, strlen(p) + 1);
323 else {
324 s[3] = '*';
325 s[4] = 0;
326 }
327 }
328 else {
329 s[3] = '*';
330 s[4] = 0;
331 }
332 s[CCHMAXPATH - 1] = 0;
333 WinSetDlgItemText(hwnd, UNDEL_ENTRY, s);
334 PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
335 }
336 }
337 break;
338 }
339 break;
[2]340
[551]341 case UNDEL_LISTBOX:
342 switch (SHORT2FROMMP(mp2)) {
343 case LN_ENTER:
344 WinSendDlgItemMsg(hwnd, DID_OK, BM_CLICK, MPFROMSHORT(TRUE), MPVOID);
345 break;
346 }
347 break;
[2]348
[551]349 default:
350 break;
351 }
352 return 0;
[2]353
[551]354 case WM_ADJUSTWINDOWPOS:
355 PostMsg(hwnd, UM_STRETCH, MPVOID, MPVOID);
356 break;
[2]357
[551]358 case UM_STRETCH:
359 {
360 SWP swpC, swp, swpM, swpD, swpL, swpE;
[2]361
[551]362 WinQueryWindowPos(hwnd, &swp);
363 if (!(swp.fl & (SWP_HIDE | SWP_MINIMIZE))) {
364 WinQueryWindowPos(WinWindowFromID(hwnd, UNDEL_LISTBOX), &swpC);
365 WinQueryWindowPos(WinWindowFromID(hwnd, UNDEL_MASKHDR), &swpM);
366 WinQueryWindowPos(WinWindowFromID(hwnd, UNDEL_DRVHDR), &swpD);
367 WinQueryWindowPos(WinWindowFromID(hwnd, UNDEL_DRIVELIST), &swpL);
368 WinQueryWindowPos(WinWindowFromID(hwnd, UNDEL_ENTRY), &swpE);
369 WinSetWindowPos(WinWindowFromID(hwnd, UNDEL_LISTBOX), HWND_TOP,
370 SysVal(SV_CXSIZEBORDER),
371 swpC.y,
372 swp.cx - (SysVal(SV_CXSIZEBORDER) * 2),
373 (swp.cy - swpC.y) - (SysVal(SV_CYTITLEBAR) +
374 SysVal(SV_CYSIZEBORDER) +
375 swpM.cy + 16),
376 SWP_MOVE | SWP_SIZE);
377 WinSetWindowPos(WinWindowFromID(hwnd, UNDEL_MASKHDR), HWND_TOP,
378 swpM.x,
379 (swp.cy - swpM.cy) - (SysVal(SV_CYTITLEBAR) +
380 SysVal(SV_CYSIZEBORDER) + 8),
381 swpM.cx, swpM.cy, SWP_MOVE | SWP_SIZE);
382 WinSetWindowPos(WinWindowFromID(hwnd, UNDEL_DRVHDR), HWND_TOP,
383 swpD.x,
384 (swp.cy - swpM.cy) - (SysVal(SV_CYTITLEBAR) +
385 SysVal(SV_CYSIZEBORDER) + 8),
386 swpD.cx, swpM.cy, SWP_MOVE | SWP_SIZE);
387 WinSetWindowPos(WinWindowFromID(hwnd, UNDEL_DRIVELIST), HWND_TOP,
388 swpL.x,
389 SysVal(SV_CYSIZEBORDER),
390 swpL.cx,
391 swp.cy - (SysVal(SV_CYTITLEBAR) +
392 (SysVal(SV_CYSIZEBORDER) * 2) + 6),
393 SWP_MOVE | SWP_SIZE);
394 WinSetWindowPos(WinWindowFromID(hwnd, UNDEL_ENTRY), HWND_TOP,
395 swpM.x + swpM.cx + 4,
396 (swp.cy - swpM.cy) - (SysVal(SV_CYTITLEBAR) +
397 SysVal(SV_CYSIZEBORDER) + 8),
398 swp.cx - ((swpM.x + swpM.cx + 4) +
399 (SysVal(SV_CXSIZEBORDER) + 8)),
400 swpM.cy + 2, SWP_MOVE | SWP_SIZE);
401 WinInvalidateRect(WinWindowFromID(hwnd, UNDEL_ENTRY), NULL, FALSE);
[2]402 }
[551]403 }
404 return 0;
[2]405
[551]406 case WM_COMMAND:
407 switch (SHORT1FROMMP(mp1)) {
408 case UNDEL_DEL:
409 case DID_OK:
410 if (changed || !listdone) {
411 Runtime_Error(pszSrcFile, __LINE__, "not done");
[328]412 }
[551]413 else {
414 sSelect = (USHORT) WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX,
415 LM_QUERYSELECTION,
416 MPFROMSHORT(LIT_FIRST), MPVOID);
417 if (sSelect >= 0) {
418
419 FILE *fp;
420 CHAR s[CCHMAXPATH + 1];
421
422 DosForceDelete("\\FMUNDEL.CMD");
423 fp = xfopen("\\FMUNDEL.CMD", "w", pszSrcFile, __LINE__);
424 if (fp) {
425 while (sSelect >= 0) {
426 *s = 0;
427 WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX, LM_QUERYITEMTEXT,
428 MPFROM2SHORT(sSelect, CCHMAXPATH),
429 MPFROMP(s));
430 if (SHORT1FROMMP(mp1) == UNDEL_DEL)
431 WinSendDlgItemMsg(hwnd, UNDEL_LISTBOX, LM_DELETEITEM,
432 MPFROM2SHORT(sSelect, 0), MPVOID);
433 if (*s) {
434 if (SHORT1FROMMP(mp1) == DID_OK)
435 fprintf(fp,
436 "IF NOT EXIST \"%s\" UNDELETE.COM \"%s\" /A\n",
437 s, s);
438 else
439 fprintf(fp, "UNDELETE.COM \"%s\" /F /A\n", s);
440 }
441 sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
442 UNDEL_LISTBOX,
443 LM_QUERYSELECTION,
444 (SHORT1FROMMP(mp1) ==
445 DID_OK) ?
446 MPFROMSHORT(sSelect) :
447 MPFROMSHORT(LIT_FIRST),
448 MPVOID);
449 }
450 fprintf(fp, "DEL \\FMUNDEL.CMD /F\n");
451 fclose(fp);
452 runemf2(WINDOWED | BACKGROUND | SEPARATE | INVISIBLE,
[888]453 hwnd, pszSrcFile, __LINE__,
[551]454 NULL, NULL, "%s /C \\FMUNDEL.CMD", GetCmdSpec(FALSE));
455 }
456 }
457 if (SHORT1FROMMP(mp1) == DID_OK)
458 WinDismissDlg(hwnd, 0);
459 {
460 CHAR s[33];
461
462 sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
463 UNDEL_LISTBOX,
464 LM_QUERYITEMCOUNT,
465 MPVOID, MPVOID);
466 sprintf(s, "%d", sSelect);
467 WinSetDlgItemText(hwnd, UNDEL_COUNT, s);
468 }
469 }
[328]470 break;
[2]471
[551]472 case DID_CANCEL:
473 if (!listdone)
474 Runtime_Error(pszSrcFile, __LINE__, "is busy");
475 else
476 WinDismissDlg(hwnd, 0);
[2]477 break;
[551]478
479 case IDM_HELP:
480 saymsg(MB_ENTER | MB_ICONASTERISK,
481 hwnd,
482 GetPString(IDS_UNDELETEHELPTITLETEXT),
483 GetPString(IDS_UNDELETEHELPTEXT));
484 break;
485 }
486 return 0;
487
488 case WM_CLOSE:
489 if (!listdone) {
490 Runtime_Error(pszSrcFile, __LINE__, "not listdone");
491 return 0;
492 }
493 break;
494
495 case WM_DESTROY:
496 if (hptrIcon)
497 WinDestroyPointer(hptrIcon);
498 hptrIcon = (HPOINTER) 0;
499 break;
[2]500 }
[551]501 return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]502}
[793]503
504#pragma alloc_text(UNDELETE,FillUndelListThread,UndeleteDlgProc)
Note: See TracBrowser for help on using the repository browser.