source: trunk/dll/flesh.c@ 423

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

Check more run time errors
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 15.7 KB
RevLine 
[145]1
2/***********************************************************************
3
4 $Id: flesh.c 340 2006-07-26 01:48:27Z root $
5
6 Flesh
7
8 Copyright (c) 1993-98 M. Kimes
[340]9 Copyright (c) 2006 Steven H. Levine
[145]10
11 24 May 05 SHL Rework Win_Error usage
[166]12 25 May 05 SHL Rework for ProcessDirectory
[284]13 28 May 05 SHL Clean while reading code
14 24 Oct 05 SHL Delete obsolete code
[340]15 22 Jul 06 SHL Check more run time errors
[145]16
17***********************************************************************/
18
[2]19#define INCL_DOS
20#define INCL_DOSERRORS
21#define INCL_WIN
[340]22#include <os2.h>
[2]23
24#include <stdarg.h>
25#include <stdio.h>
26#include <stdlib.h>
27#include <string.h>
28#include <ctype.h>
[145]29
[2]30#include "fm3dll.h"
31#include "fm3str.h"
32
33#pragma data_seg(DATA1)
[340]34
35static PSZ pszSrcFile = __FILE__;
36
[2]37#pragma alloc_text(FLESH,Flesh,FleshEnv,Unflesh,Stubby)
38
39
[175]40BOOL FleshEnv (HWND hwndCnr,PCNRITEM pciParent)
41{
[2]42 PCNRITEM pciL;
43 DIRCNRDATA *dcd;
44 CHAR path[CCHMAXPATH + 12],
45 fullpath[CCHMAXPATH + 12],
46 *env,
47 *p,
48 *pp,
49 *var = NULL;
50
51 if(!pciParent ||
52 (INT)pciParent == -1 ||
53 !hwndCnr)
54 return FALSE;
55 dcd = (DIRCNRDATA *)WinQueryWindowPtr(hwndCnr,0);
56 if(!dcd)
57 return FALSE;
58
59 strcpy(path,
60 pciParent->szFileName + 1);
61 if(stricmp(path,GetPString(IDS_ENVVARSTEXT) + 1))
62 UnFlesh(hwndCnr,pciParent);
63 if(*path) {
64 path[strlen(path) - 1] = 0;
65 if(!stricmp(path,"LIBPATH")) {
[340]66 var = xmalloc(65536,pszSrcFile,__LINE__);
[2]67 if(var)
68 LoadLibPath(var,65536);
69 env = var;
70 }
71 else
72 env = getenv(path);
73 if(env && *env) {
74 p = env;
75 while(*p) {
76 pp = path;
77 while(*p == ';')
78 p++;
79 while(*p && *p != ';') {
80 *pp = *p;
81 p++;
82 pp++;
83 }
84 *pp = 0;
85 if(*path &&
86 strcmp(path,".") &&
87 strcmp(path,".\\") &&
88 strcmp(path,"..") &&
89 strcmp(path,"..\\") &&
90 strncmp(path,".\\",2) &&
91 strncmp(path,"..\\",3)) {
92 if(!DosQueryPathInfo(path,
93 FIL_QUERYFULLNAME,
94 fullpath,
95 sizeof(fullpath)) &&
96 IsValidDir(fullpath)) {
97 pciL = FindCnrRecord(hwndCnr,
98 fullpath,
99 pciParent,
100 FALSE,
101 FALSE,
102 FALSE);
103 if(pciL) {
104 while(pciL && pciL != (PCNRITEM)-1 && pciL != pciParent)
105 pciL = WinSendMsg(hwndCnr,
106 CM_QUERYRECORD,
107 MPFROMP(pciL),
108 MPFROM2SHORT(CMA_PARENT,CMA_ITEMORDER));
109 }
110 if(!pciL) {
111
112 RECORDINSERT ri;
113
114 pciL = WinSendMsg(hwndCnr,
115 CM_ALLOCRECORD,
116 MPFROMLONG(EXTRA_RECORD_BYTES2),
117 MPFROMLONG(1));
118 if(pciL) {
119 strcpy(pciL->szFileName,fullpath);
120 pciL->pszFileName = pciL->szFileName;
121 pciL->rc.pszIcon = pciL->pszFileName;
122 if(!fNoIconsDirs &&
123 (!isalpha(*fullpath) ||
124 !(driveflags[toupper(*fullpath) - 'A'] & DRIVE_NOLOADICONS)))
125 pciL->rc.hptrIcon = WinLoadFileIcon(fullpath,FALSE);
126 if(!pciL->rc.hptrIcon)
127 pciL->rc.hptrIcon = hptrDir;
128 pciL->attrFile = FILE_DIRECTORY;
129 strcpy(pciL->szDispAttr,"----D-");
130 pciL->pszDispAttr = pciL->szDispAttr;
131 memset(&ri,0,sizeof(ri));
132 ri.cb = sizeof(ri);
133 ri.pRecordOrder = (PRECORDCORE)CMA_END;
134 ri.pRecordParent = (PRECORDCORE)pciParent;
135 ri.zOrder = (ULONG)CMA_TOP;
136 ri.cRecordsInsert = 1;
137 ri.fInvalidateRecord = FALSE;
138 if(!WinSendMsg(hwndCnr,
139 CM_INSERTRECORD,
140 MPFROMP(pciL),
141 MPFROMP(&ri)))
142 WinSendMsg(hwndCnr,
143 CM_FREERECORD,
144 MPFROMP(&pciL),
145 MPFROMSHORT(1));
146 }
147 }
148 }
149 }
150 }
151 }
152 if(var)
153 free(var);
154 pciL = (PCNRITEM)WinSendMsg(hwndCnr,
155 CM_QUERYRECORD,
156 MPFROMP(pciParent),
157 MPFROM2SHORT(CMA_FIRSTCHILD,
158 CMA_ITEMORDER));
159 while(pciL && (INT)pciL != -1) {
160 pciL->flags |= (RECFLAGS_NODRAG | RECFLAGS_UNDERENV);
161 WinSendMsg(hwndCnr,
162 CM_INVALIDATERECORD,
163 MPFROMP(&pciL),
164 MPFROM2SHORT(1,0));
165 pciL = WinSendMsg(hwndCnr,
166 CM_QUERYRECORD,
167 MPFROMP(pciL),
168 MPFROM2SHORT(CMA_NEXT,
169 CMA_ITEMORDER));
170 }
171 }
172 return TRUE;
173}
174
175
[166]176BOOL Flesh(HWND hwndCnr,PCNRITEM pciParent)
177{
[2]178 PCNRITEM pciL;
179 DIRCNRDATA *dcd;
180 BOOL includefiles = fFilesInTree;
181
[340]182 if (!pciParent || (INT)pciParent == -1 || !hwndCnr)
[2]183 return FALSE;
184 pciL = (PCNRITEM)WinSendMsg(hwndCnr,
185 CM_QUERYRECORD,
186 MPFROMP(pciParent),
187 MPFROM2SHORT(CMA_FIRSTCHILD,
188 CMA_ITEMORDER));
[166]189 if (!pciL || !*pciL->szFileName)
190 {
191 if (pciL && (INT)pciL != -1)
192 {
[2]193 WinSendMsg(hwndCnr,
194 CM_REMOVERECORD,
195 MPFROMP(&pciL),
196 MPFROM2SHORT(1,CMA_FREE));
[166]197 }
[2]198 dcd = INSTDATA(hwndCnr);
[166]199 if (dcd && dcd->size != sizeof(DIRCNRDATA))
[2]200 dcd = NULL;
[166]201 if (driveflags[toupper(*pciParent->szFileName) - 'A'] & DRIVE_INCLUDEFILES)
[2]202 includefiles = TRUE;
203 ProcessDirectory(hwndCnr,
204 pciParent,
205 pciParent->szFileName,
206 includefiles,
207 TRUE,
208 TRUE,
209 NULL,
210 dcd,
[166]211 NULL,
212 NULL);
[2]213 }
214 return TRUE;
215}
216
217
[175]218BOOL UnFlesh (HWND hwndCnr,PCNRITEM pciParent)
219{
[2]220 BOOL ret = FALSE;
221 PCNRITEM pciL;
222
[175]223 if (!pciParent || !hwndCnr)
[2]224 return FALSE;
[175]225 for (;;)
226 {
[2]227 pciL = (PCNRITEM)WinSendMsg(hwndCnr,
228 CM_QUERYRECORD,
229 MPFROMP(pciParent),
230 MPFROM2SHORT(CMA_FIRSTCHILD,
231 CMA_ITEMORDER));
[175]232 if (pciL && (INT)pciL != -1)
233 {
[2]234 ret = TRUE;
235 WinSendMsg(hwndCnr,
236 CM_REMOVERECORD,
237 MPFROMP(&pciL),
238 MPFROM2SHORT(1,CMA_FREE));
239 }
240 else
241 break;
242 }
[175]243 if (ret)
244 {
[2]245 WinSendMsg(hwndCnr,
246 CM_INVALIDATERECORD,
247 MPFROMP(&pciParent),
248 MPFROM2SHORT(1,
249 CMA_ERASE | CMA_REPOSITION));
[175]250 }
[2]251 return ret;
252}
253
254#define DDEPTH 16
255
[175]256BOOL Stubby (HWND hwndCnr,PCNRITEM pciParent)
257{
[2]258 /*
259 * this code is full of workarounds for screwed up LANs.
260 * let's hope all the current LAN programmers fall into
261 * a black hole and make way for people who can get it right...
262 */
263
264 BOOL ret = FALSE;
265 FILEFINDBUF3 ffb[DDEPTH];
266 PFILEFINDBUF3 pffb;
267 HDIR hDir = HDIR_CREATE;
268 ULONG nm,ulM = 1L,total = 0L,fl = MUST_HAVE_DIRECTORY;
269 CHAR str[CCHMAXPATH];
270 register INT len;
271 APIRET rc,prc;
272 BOOL isadir = FALSE,isremote = FALSE,includefiles = fFilesInTree;
273 ULONG ddepth = 3L;
274 static BOOL brokenlan = FALSE,isbroken = FALSE;
275
276 if(!pciParent || !*pciParent->szFileName || !hwndCnr)
277 return FALSE;
278
279 len = strlen(pciParent->szFileName);
280 memcpy(str,pciParent->szFileName,len + 1);
281 if(str[len - 1] != '\\')
282 str[len++] = '\\';
283 str[len++] = '*';
284 str[len] = 0;
285
286 if(!isalpha(*str) ||
287 str[1] != ':' ||
288 str[2] != '\\')
289 MakeFullName(str);
290
291 if(!isalpha(*str) ||
292 str[1] != ':' ||
293 str[2] != '\\' ||
294 ((driveflags[toupper(*str) - 'A'] & DRIVE_IGNORE)))
295 return FALSE;
296
297 if(isalpha(*str) &&
298 driveflags[toupper(*str) - 'A'] & DRIVE_INCLUDEFILES)
299 includefiles = TRUE;
300
301 if(!isalpha(*str) ||
302 str[1] != ':' ||
303 str[2] != '\\' ||
304 ((driveflags[toupper(*str) - 'A'] & DRIVE_REMOTE)))
305 isremote = TRUE;
306
307 if(isremote) {
308 ddepth = 14;
309 if(fRemoteBug) {
310 if(brokenlan) {
311 ddepth = (ULONG)-1;
312 ddepth--;
313 }
314 ulM = 1L;
315 }
316 }
317 else if(isbroken)
318 ddepth = 14;
319
320 if(!isremote || !fRemoteBug)
321 ulM = (ddepth < 16L) ? ddepth : 1L;
322
323 nm = ulM;
324
325 DosError(FERR_DISABLEHARDERR);
326 if(includefiles)
327 fl = FILE_DIRECTORY;
328 rc = DosFindFirst(str,
329 &hDir,
330 FILE_NORMAL | fl |
331 FILE_READONLY | FILE_ARCHIVED |
332 FILE_SYSTEM | FILE_HIDDEN,
333 &ffb,
334 ulM * sizeof(FILEFINDBUF3),
335 &nm,
336 FIL_STANDARD);
337 if(ulM == 1L && !rc) {
338 do {
339 pffb = &ffb[0];
340 if(!includefiles && !(pffb->attrFile & FILE_DIRECTORY) && !brokenlan) {
341 brokenlan = TRUE;
342 ddepth = (ULONG)-1L;
343 ddepth--;
344 if(!NoBrokenNotify) {
345 prc = saymsg(MB_YESNO | MB_ICONEXCLAMATION,
346 HWND_DESKTOP,
347 GetPString(IDS_LANERRORTITLETEXT),
348 GetPString(IDS_LANERRORTEXT));
349 if(prc == MBID_NO) {
350 saymsg(MB_ENTER,
351 HWND_DESKTOP,
352 GetPString(IDS_LANERROR2TITLETEXT),
353 GetPString(IDS_LANERROR2TEXT));
354 NoBrokenNotify = 255L;
355 PrfWriteProfileData(fmprof,
356 FM3Str,
357 "NoBrokenNotify",
358 &NoBrokenNotify,
359 sizeof(ULONG));
360 }
361 }
362 else {
363 NoBrokenNotify--;
364 PrfWriteProfileData(fmprof,
365 FM3Str,
366 "NoBrokenNotify",
367 &NoBrokenNotify,
368 sizeof(ULONG));
369 }
370 }
371 if(*pffb->achName &&
372 (includefiles || (pffb->attrFile & FILE_DIRECTORY)) &&
373 (*pffb->achName != '.' || (pffb->achName[1] &&
374 pffb->achName[1] != '.'))) {
375 DosFindClose(hDir);
376 isadir = TRUE;
377 goto Interruptus;
378 }
379 nm = 1L;
380 DosError(FERR_DISABLEHARDERR);
381 } while(++total < ddepth && !(rc = (DosFindNext(hDir,
382 &ffb,
383 sizeof(FILEFINDBUF3),
384 &nm))));
385 DosFindClose(hDir);
386 if(toupper(*pciParent->szFileName) > 'B' &&
387 pciParent->szFileName[1] == ':' &&
388 pciParent->szFileName[2] == '\\' &&
389 !pciParent->szFileName[3]) {
390
391 CHAR s[132];
392
393 sprintf(s,
394 GetPString(IDS_NOSUBDIRSTEXT),
395 total,
396 toupper(*pciParent->szFileName));
397 if(rc && rc != ERROR_NO_MORE_FILES)
398 sprintf(&s[strlen(s)],
399 GetPString(IDS_SEARCHERRORTEXT),
400 rc,
401 str);
402 else if(ddepth < 16L)
403 brokenlan = TRUE;
404 Notify(s);
405 }
406 goto None;
407 }
408
409 if(!rc) {
410 DosFindClose(hDir);
411 if(nm) {
412
413 register PBYTE fb = (PBYTE)&ffb[0];
414
415 for(len = 0;len < nm;len++) {
416 pffb = (PFILEFINDBUF3)fb;
417 if(!includefiles && !(pffb->attrFile & FILE_DIRECTORY)) {
418 if(!isbroken) {
419 isbroken = TRUE;
420 if(!NoBrokenNotify) {
421 prc = saymsg(MB_YESNO | MB_ICONEXCLAMATION,
422 HWND_DESKTOP,
423 GetPString(IDS_FSDERRORTITLETEXT),
424 GetPString(IDS_FSDERRORTEXT),
425 (isremote) ?
426 GetPString(IDS_REMOTETEXT) :
427 GetPString(IDS_LOCALTEXT),
428 *str);
429 if(prc == MBID_NO) {
430 saymsg(MB_ENTER,
431 HWND_DESKTOP,
432 GetPString(IDS_FSDERROR2TITLETEXT),
433 GetPString(IDS_FSDERROR2TEXT));
434 NoBrokenNotify = 255L;
435 PrfWriteProfileData(fmprof,
436 FM3Str,
437 "NoBrokenNotify",
438 &NoBrokenNotify,
439 sizeof(ULONG));
440 }
441 }
442 else {
443 NoBrokenNotify--;
444 PrfWriteProfileData(fmprof,
445 FM3Str,
446 "NoBrokenNotify",
447 &NoBrokenNotify,
448 sizeof(ULONG));
449 }
450 }
451 }
452 if(*pffb->achName &&
453 (includefiles || (pffb->attrFile & FILE_DIRECTORY)) &&
454 (*pffb->achName != '.' || (pffb->achName[1] &&
455 pffb->achName[1] != '.'))) {
456 isadir = TRUE;
457 break;
458 }
459 fb += pffb->oNextEntryOffset;
460 }
461
462Interruptus:
463
464 if(isadir) {
465
466 PCNRITEM pci;
467
468 pci = WinSendMsg(hwndCnr,
469 CM_ALLOCRECORD,
470 MPFROMLONG(EXTRA_RECORD_BYTES2),
471 MPFROMLONG(1L));
[340]472 if(!pci) {
473 Win_Error(hwndCnr,HWND_DESKTOP,__FILE__,__LINE__,
474 GetPString(IDS_RECORDALLOCFAILEDTEXT));
475 }
476 else {
[2]477 RECORDINSERT ri;
478
479 *pci->szFileName = 0;
480 pci->pszFileName = pci->szFileName;
481 pci->rc.pszIcon = pci->pszFileName;
482 memset(&ri,0,sizeof(RECORDINSERT));
483 ri.cb = sizeof(RECORDINSERT);
484 ri.pRecordOrder = (PRECORDCORE)CMA_END;
485 ri.pRecordParent = (PRECORDCORE)pciParent;
486 ri.zOrder = (ULONG)CMA_TOP;
487 ri.cRecordsInsert = 1L;
488 ri.fInvalidateRecord = TRUE;
489 if(!WinSendMsg(hwndCnr,
490 CM_INSERTRECORD,
491 MPFROMP(pci),
492 MPFROMP(&ri))) {
493 DosSleep(100L);
494 WinSetFocus(HWND_DESKTOP,hwndCnr);
[340]495 if (WinIsWindow((HAB)0,hwndCnr)) {
496 if (!WinSendMsg(hwndCnr,
497 CM_INSERTRECORD,
498 MPFROMP(pci),
499 MPFROMP(&ri))) {
[145]500 Win_Error(hwndCnr,HWND_DESKTOP,__FILE__,__LINE__,
501 GetPString(IDS_RECORDINSERTFAILEDTEXT));
[2]502 WinSendMsg(hwndCnr,
503 CM_FREERECORD,
504 MPFROMP(&pci),
505 MPFROMSHORT(1));
[340]506 }
507 else
508 ret = TRUE;
[2]509 }
510 }
511 else
512 ret = TRUE;
513 }
514 }
515 else if(toupper(*str) > 'B' && str[1] == ':' && str[2] == '\\' &&
516 !str[3]) {
517
518 CHAR s[162];
519
520 sprintf(s,
521 GetPString(IDS_NOSUBDIRS2TEXT),
522 nm,
523 toupper(*pciParent->szFileName),
524 (isremote) ? GetPString(IDS_NOSUBDIRS3TEXT) : NullStr);
525 Notify(s);
526 }
527 }
528 }
529 else if(toupper(*str) > 'B' &&
530 rc != ERROR_NO_MORE_FILES) {
531
532 CHAR s[CCHMAXPATH + 80];
533
534 sprintf(s,
535 GetPString(IDS_SEARCHERRORTEXT),
536 rc,
537 str);
538 Notify(s);
539 }
540
541None:
542
543 DosError(FERR_DISABLEHARDERR);
544 return ret;
545}
Note: See TracBrowser for help on using the repository browser.