source: trunk/dll/undel.c@ 528

Last change on this file since 528 was 528, checked in by root, 19 years ago

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