source: trunk/dll/flesh.c@ 761

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

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