source: trunk/dll/walkem.c@ 1010

Last change on this file since 1010 was 1009, checked in by Steven Levine, 17 years ago

Add xfree xstrdup Fortify support
Add MT capable Fortify scope logic
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 42.8 KB
Line 
1
2/***********************************************************************
3
4 $Id: walkem.c 1009 2008-05-10 07:51:58Z stevenhl $
5
6 Copyright (c) 1993-98 M. Kimes
7 Copyright (c) 2005, 2007 Steven H. Levine
8
9 01 Aug 04 SHL Rework lstrip/rstrip usage
10 05 Jun 05 SHL Use QWL_USER
11 13 Aug 05 SHL Run through indent
12 13 Aug 05 SHL remove_udir - avoid corrupting last dirs list
13 17 Jul 06 SHL Use Runtime_Error
14 29 Jul 06 SHL Use xfgets
15 20 Oct 06 SHL Correct . .. check
16 06 Nov 06 SHL Oops - need to allow .. here
17 14 Nov 06 SHL Correct FillPathListBox regression
18 22 Mar 07 GKY Use QWL_USER
19 20 Apr 07 SHL Avoid spurious add_udir error reports
20 16 Aug 07 SHL Update add_setups for ticket# 109
21 19 Aug 07 SHL Correct load_setups error reporting
22 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
23 25 Aug 07 SHL Correct #pragma alloc_text typos
24 11 Nov 07 GKY Cancel now directly closes dialog even if directory path text has changed
25 20 Jan 08 GKY Walk & walk2 dialogs now save and restore size and position
26 19 Feb 08 JBS Add "State at last FM/2 close" to the states combo box
27 29 Feb 08 GKY Use xfree where appropriate
28 29 Feb 08 GKY Refactor global command line variables to notebook.h
29
30***********************************************************************/
31
32#include <stdlib.h>
33#include <string.h>
34#include <ctype.h>
35#include <share.h>
36
37#define INCL_WIN
38#define INCL_DOS
39#define INCL_DOSERRORS
40#define INCL_SHLERRORS // PMERR_NOT_IN_IDX
41#define INCL_LONGLONG
42
43#include "fm3dlg.h"
44#include "fm3str.h"
45#include "errutil.h" // Dos_Error...
46#include "strutil.h" // GetPString
47#include "notebook.h" // targetdirectory
48#include "fm3dll.h"
49
50#pragma data_seg(DATA1)
51
52static PSZ pszSrcFile = __FILE__;
53
54
55typedef struct
56{
57 USHORT size;
58 USHORT changed;
59 BOOL nounwriteable;
60 CHAR szCurrentPath[CCHMAXPATH];
61 CHAR *szReturnPath;
62}
63WALKER;
64
65static CHAR WalkFont[CCHMAXPATH] = "";
66static ULONG WalkFontSize = sizeof(WalkFont);
67
68/**
69 * States names management
70 */
71
72static BOOL fSetupsLoaded;
73static LINKDIRS *pFirstSetup;
74static const PSZ pszLastSetups = "LastSetups";
75// 18 Aug 07 SHL fixme to stop supporting old style 1 year from now?
76static const ULONG ulOldSetupsBytes = 100 * 13; // Prior to 3.0.7
77
78/**
79 * Fill States drop down list with known state names
80 */
81
82VOID fill_setups_list(VOID)
83{
84 WinSendMsg(hwndStatelist, LM_DELETEALL, MPVOID, MPVOID);
85 if (fUserComboBox) {
86 LINKDIRS *pld;
87 load_setups();
88 for (pld = pFirstSetup; pld; pld = pld->next) {
89 // DbgMsg(pszSrcFile, __LINE__, "Inserted %s", pld->path);
90 WinSendMsg(hwndStatelist,
91 LM_INSERTITEM,
92 MPFROM2SHORT(LIT_SORTASCENDING, 0),
93 MPFROMP(pld->path));
94 }
95 if (fSaveState) {
96 WinSendMsg(hwndStatelist,
97 LM_INSERTITEM,
98 MPFROM2SHORT(LIT_SORTASCENDING, 0),
99 MPFROMP(GetPString(IDS_SHUTDOWNSTATE)));
100 }
101 WinSetWindowText(hwndStatelist, GetPString(IDS_STATETEXT));
102 }
103}
104
105/**
106 * Lookup setup and do requested action
107 * @param - action, Support old/new style storage method
108 * @return 1 if found and action OK, 0 if not found and action OK, -1 if error during action
109 */
110
111#define LS_FIND 0
112#define LS_ADD 1
113#define LS_DELETE 2
114
115static INT lookup_setup(PSZ name, UINT action)
116{
117 LINKDIRS *pld;
118 LINKDIRS *pldLast = NULL;
119
120 if (!name || !*name) {
121 Runtime_Error(pszSrcFile, __LINE__, "no data");
122 return -1;
123 }
124
125 load_setups();
126
127 for (pld = pFirstSetup; pld; pld = pld->next) {
128 if (!stricmp(pld->path, name)) {
129 if (action == LS_DELETE) {
130 if (pldLast)
131 pldLast->next = pld->next;
132 else
133 pFirstSetup = pld->next;
134 xfree(pld->path, pszSrcFile, __LINE__);
135 xfree(pld, pszSrcFile, __LINE__);
136 }
137 return 1; // Found or added
138 }
139 pldLast = pld; // In case deleting
140 } // for
141
142 // Not found
143 if (action == LS_ADD) {
144 pld = xmalloc(sizeof(LINKDIRS), pszSrcFile, __LINE__);
145 if (!pld)
146 return -1;
147 pld->path = xstrdup(name, pszSrcFile, __LINE__);
148 if (!pld->path) {
149 xfree(pld, pszSrcFile, __LINE__);
150 return -1;
151 }
152 // Insert at front of list - drop down will sort
153 pld->next = pFirstSetup;
154 pFirstSetup = pld;
155 return 0;
156 }
157
158 return FALSE; // Not found
159}
160
161/**
162 * Load state names from ini
163 * Support old/new style storage method
164 */
165
166VOID load_setups(VOID)
167{
168 ULONG ulDataBytes;
169 ULONG l;
170 PSZ pszBuf;
171 PSZ psz;
172 LINKDIRS *pld;
173
174 if (fSetupsLoaded)
175 return;
176
177 if (!PrfQueryProfileSize(fmprof, FM3Str, pszLastSetups, &ulDataBytes)) {
178 // fixme to use generic hab
179 ERRORID eid = WinGetLastError((HAB)0);
180 if ((eid & 0xffff) != PMERR_NOT_IN_IDX) {
181 // Get error info back
182 PrfQueryProfileSize(fmprof, FM3Str, pszLastSetups, &ulDataBytes);
183 Win_Error(HWND_DESKTOP, HWND_DESKTOP, pszSrcFile, __LINE__, "PrfQueryProfileSize");
184 }
185 else
186 fSetupsLoaded = TRUE; // Nothing saved
187 return;
188 }
189
190 if (ulDataBytes == 0) {
191 Runtime_Error(pszSrcFile, __LINE__, "PrfQueryProfileSize reported 0 bytes");
192 return;
193 }
194
195 pszBuf = xmalloc(ulDataBytes + 1, pszSrcFile, __LINE__); // One extra for end marker
196 if (!pszBuf)
197 return;
198 l = ulDataBytes;
199 if (!PrfQueryProfileData(fmprof, FM3Str, pszLastSetups, pszBuf, &l)) {
200 Win_Error(HWND_DESKTOP, HWND_DESKTOP, pszSrcFile, __LINE__, "PrfQueryProfileData");
201 xfree(pszBuf, pszSrcFile, __LINE__);
202 return;
203 }
204
205 if (ulDataBytes != l) {
206 Runtime_Error(pszSrcFile, __LINE__, "PrfQueryProfileData reported %u expected %u", l, ulDataBytes);
207 xfree(pszBuf, pszSrcFile, __LINE__);
208 return;
209 }
210
211 *(pszBuf + ulDataBytes) = 0; // Insert end marker
212
213 psz = pszBuf;
214 if (!*psz && ulDataBytes == ulOldSetupsBytes)
215 psz += 13; // Rarely used 1st fixed width entry prior to 3.0.7
216
217 while (*psz) {
218 pld = xmalloc(sizeof(LINKDIRS), pszSrcFile, __LINE__);
219 if (!pld) {
220 xfree(pszBuf, pszSrcFile, __LINE__);
221 return;
222 }
223 pld->path = xstrdup(psz, pszSrcFile, __LINE__);
224 if (!pld->path) {
225 xfree(pszBuf, pszSrcFile, __LINE__);
226 xfree(pld, pszSrcFile, __LINE__);
227 return;
228 }
229
230 // Insert at front of list - drop down will sort
231 pld->next = pFirstSetup;
232 pFirstSetup = pld;
233 // DbgMsg(pszSrcFile, __LINE__, "Inserted %s", pld->path);
234
235 if (ulDataBytes == ulOldSetupsBytes)
236 psz += 13; // Buffers fixed width prior to 3.0.7
237 else
238 psz += strlen(psz) + 1;
239 } // while
240
241 xfree(pszBuf, pszSrcFile, __LINE__);
242
243 fSetupsLoaded = TRUE;
244}
245
246VOID save_setups(VOID)
247{
248 ULONG ulBufBytes;
249 ULONG ulFillBytes;
250 ULONG l;
251 PSZ pszBuf;
252 PSZ psz;
253 LINKDIRS *pld;
254
255 if (!fSetupsLoaded)
256 return;
257
258 ulBufBytes = 0;
259 for (pld = pFirstSetup; pld; pld = pld->next) {
260 ulBufBytes += strlen(pld->path) + 1;
261 } // for
262
263 if (!ulBufBytes)
264 pszBuf = NULL;
265 else {
266 // Ensure different than size prior to 3.0.7
267 ulFillBytes = ulBufBytes == ulOldSetupsBytes ? 1 : 0;
268 pszBuf = xmalloc(ulBufBytes + ulFillBytes, pszSrcFile, __LINE__);
269 if (!pszBuf)
270 return;
271
272 psz = pszBuf;
273 for (pld = pFirstSetup; pld; pld = pld->next) {
274 l = strlen(pld->path) + 1;
275 memcpy(psz, pld->path, l);
276 psz += l;
277 } // for
278 if (ulFillBytes)
279 *psz = 0;
280 }
281
282 if (!PrfWriteProfileData(fmprof,
283 FM3Str,
284 pszLastSetups, pszBuf, ulBufBytes)) {
285 // Win_Error(pszSrcFile, __LINE__, HWND_DESKTOP, HWND_DESKTOP, "PrfWriteProfileData");
286 ERRORID eid = WinGetLastError((HAB)0);
287 if ((eid & 0xffff) != PMERR_NOT_IN_IDX)
288 Runtime_Error(pszSrcFile, __LINE__, "PrfWriteProfileData returned %u", eid);
289 }
290
291 // Delete obsolete INI entry
292 PrfWriteProfileData(fmprof, FM3Str, "LastSetup", NULL, 0);
293}
294
295/**
296 * Add named state to setups list
297 * @return same as lookup_setup
298 */
299
300INT add_setup(PSZ name)
301{
302 return lookup_setup(name, LS_ADD);
303}
304
305/**
306 * Delete named state from setups list
307 * @return same as lookup_setup
308 */
309
310INT remove_setup(PSZ name)
311{
312 return lookup_setup(name, LS_DELETE);
313}
314
315VOID load_udirs(VOID)
316{
317 /* load linked list of user directories from USERDIRS.DAT file */
318
319 FILE *fp;
320 LINKDIRS *info;
321 LINKDIRS *last = NULL;
322 CHAR s[CCHMAXPATH + 24];
323
324 loadedudirs = TRUE;
325 fUdirsChanged = FALSE;
326 save_dir2(s);
327 if (s[strlen(s) - 1] != '\\')
328 strcat(s, "\\");
329 strcat(s, "USERDIRS.DAT");
330 fp = _fsopen(s, "r", SH_DENYWR);
331 if (fp) {
332 while (!feof(fp)) {
333 if (!xfgets(s, CCHMAXPATH + 24, fp, pszSrcFile, __LINE__))
334 break;
335 s[CCHMAXPATH] = 0;
336 bstripcr(s);
337 if (*s && *s != ';') {
338 info = xmalloc(sizeof(LINKDIRS), pszSrcFile, __LINE__);
339 if (info) {
340 info->path = xstrdup(s, pszSrcFile, __LINE__);
341 if (!info->path)
342 xfree(info, pszSrcFile, __LINE__);
343 else {
344 info->next = NULL;
345 if (!udirhead)
346 udirhead = info;
347 else
348 last->next = info;
349 last = info;
350 }
351 }
352 }
353 }
354 fclose(fp);
355 }
356}
357
358VOID save_udirs(VOID)
359{
360 FILE *fp;
361 LINKDIRS *info;
362 CHAR s[CCHMAXPATH + 14];
363
364 if (loadedudirs) {
365 fUdirsChanged = FALSE;
366 if (udirhead) {
367 save_dir2(s);
368 if (s[strlen(s) - 1] != '\\')
369 strcat(s, "\\");
370 strcat(s, "USERDIRS.DAT");
371 fp = xfopen(s, "w", pszSrcFile, __LINE__);
372 if (fp) {
373 fputs(GetPString(IDS_USERDEFDIRSTEXT), fp);
374 info = udirhead;
375 while (info) {
376 fprintf(fp, "%0.*s\n", CCHMAXPATH, info->path);
377 info = info->next;
378 }
379 fclose(fp);
380 }
381 }
382 }
383}
384
385/**
386 * Add path to user directory list or last used directory list.
387 * Callers need to check fUdirsChanged to know if user dirs change occured.
388 * Callers need to check return code to know if last dirs change occured.
389 * @param userdirs TRUE to process user directory list. Otherwise last used list.
390 * @return TRUE if added, FALSE if already in list or error.
391 */
392
393BOOL add_udir(BOOL userdirs, CHAR *inpath)
394{
395 CHAR path[CCHMAXPATH];
396 LINKDIRS *info;
397 LINKDIRS *last = NULL;
398 LINKDIRS *temp;
399
400 if (inpath && *inpath) {
401 if (DosQueryPathInfo(inpath, FIL_QUERYFULLNAME, path, sizeof(path)))
402 strcpy(path, inpath);
403 if (!userdirs && IsRoot(path))
404 return FALSE;
405 if (IsFullName(path)) {
406 if (!loadedudirs)
407 load_udirs();
408 // Search user dir list first unless doing last dirs
409 info = userdirs ? udirhead : ldirhead;
410 while (info) {
411 if (!stricmp(info->path, path))
412 return FALSE; // Already in list
413 last = info; // Remember append to location
414 info = info->next;
415 }
416 // Search last dir list unless doing just last dirs
417 if (!userdirs) {
418 info = udirhead;
419 while (info) {
420 if (!stricmp(info->path, path))
421 return FALSE;
422 info = info->next;
423 }
424 }
425 else {
426 /* if adding manual directory, remove from auto list if present */
427 info = ldirhead;
428 temp = NULL;
429 while (info) {
430 if (!stricmp(info->path, path)) {
431 if (temp)
432 temp->next = info->next;
433 else
434 ldirhead = info->next;
435 xfree(info->path, pszSrcFile, __LINE__);
436 xfree(info, pszSrcFile, __LINE__);
437 break;
438 }
439 temp = info;
440 info = info->next;
441 }
442 }
443 // Append entry to end of user dirs list
444 info = xmalloc(sizeof(LINKDIRS), pszSrcFile, __LINE__);
445 if (info) {
446 info->path = xstrdup(path, pszSrcFile, __LINE__);
447 if (!info->path)
448 xfree(info, pszSrcFile, __LINE__);
449 else {
450 info->next = NULL;
451 if (userdirs) {
452 fUdirsChanged = TRUE;
453 if (!udirhead)
454 udirhead = info;
455 else
456 last->next = info;
457 }
458 else {
459 if (!ldirhead)
460 ldirhead = info;
461 else
462 last->next = info;
463 }
464 return TRUE;
465 }
466 }
467 }
468 }
469 return FALSE;
470}
471
472//=== remove_udir - remove path from user dir list or last directory list ===
473
474BOOL remove_udir(CHAR * path)
475{
476 LINKDIRS *info;
477 LINKDIRS *last = NULL;
478
479 if (path && *path) {
480 if (!loadedudirs)
481 load_udirs();
482 info = udirhead;
483 while (info) {
484 if (!stricmp(info->path, path)) {
485 if (last)
486 last->next = info->next;
487 else
488 udirhead = info->next;
489 xfree(info->path, pszSrcFile, __LINE__);
490 xfree(info, pszSrcFile, __LINE__);
491 fUdirsChanged = TRUE;
492 return TRUE;
493 }
494 last = info;
495 info = info->next;
496 }
497
498 info = ldirhead;
499 last = NULL;
500 while (info) {
501 if (!stricmp(info->path, path)) {
502 if (last)
503 last->next = info->next;
504 else
505 ldirhead = info->next;
506 xfree(info->path, pszSrcFile, __LINE__);
507 xfree(info, pszSrcFile, __LINE__);
508 return TRUE;
509 }
510 last = info;
511 info = info->next;
512 }
513 }
514 return FALSE;
515}
516
517BOOL remove_ldir(CHAR * path)
518{
519 LINKDIRS *info;
520 LINKDIRS *last = NULL;
521
522 if (path && *path) {
523 info = ldirhead;
524 while (info) {
525 if (!stricmp(info->path, path)) {
526 if (last)
527 last->next = info->next;
528 else
529 ldirhead = info->next;
530 xfree(info->path, pszSrcFile, __LINE__);
531 xfree(info, pszSrcFile, __LINE__);
532 return TRUE;
533 }
534 last = info;
535 info = info->next;
536 }
537 }
538 return FALSE;
539}
540
541VOID FillPathListBox(HWND hwnd, HWND hwnddrive, HWND hwnddir, CHAR * pszPath,
542 BOOL nounwriteable)
543{
544 /*
545 * this function fills one or two list boxes with drive and directory
546 * information showing all available drives and all directories off of
547 * the directory represented by path. This works independently of the
548 * current directory.
549 */
550
551 CHAR szDrive[] = " :", szTemp[1032];
552 FILEFINDBUF3 findbuf;
553 HDIR hDir = HDIR_CREATE;
554 SHORT sDrive;
555 ULONG ulDriveNum, ulSearchCount = 1, ulDriveMap;
556
557 DosError(FERR_DISABLEHARDERR);
558 DosQCurDisk(&ulDriveNum, &ulDriveMap);
559 if (hwnddrive)
560 WinSendMsg(hwnddrive, LM_DELETEALL, MPVOID, MPVOID);
561 if (hwnddrive != hwnddir && hwnddir)
562 WinSendMsg(hwnddir, LM_DELETEALL, MPVOID, MPVOID);
563
564 if (hwnddrive) {
565 // Fill drive listbox
566 for (sDrive = 0; sDrive < 26; sDrive++) {
567 if (ulDriveMap & (1 << sDrive)) {
568 *szDrive = (CHAR) (sDrive + 'A');
569 if ((!nounwriteable || !(driveflags[sDrive] & DRIVE_NOTWRITEABLE)) &&
570 !(driveflags[sDrive] & (DRIVE_IGNORE | DRIVE_INVALID)))
571 WinSendMsg(hwnddrive, LM_INSERTITEM, MPFROM2SHORT(LIT_END, 0),
572 MPFROMP(szDrive));
573 }
574 }
575 if (hwnddrive != hwnddir && pszPath && isalpha(*pszPath)
576 && pszPath[1] == ':') {
577 *szDrive = toupper(*pszPath);
578 WinSetWindowText(hwnddrive, szDrive);
579 }
580 }
581
582 if (hwnddir) {
583 // Fill directory listbox
584 sprintf(szTemp,
585 "%s%s*",
586 pszPath, (pszPath[strlen(pszPath) - 1] == '\\') ? "" : "\\");
587 DosError(FERR_DISABLEHARDERR);
588 if (!DosFindFirst(szTemp,
589 &hDir,
590 FILE_DIRECTORY | MUST_HAVE_DIRECTORY |
591 FILE_READONLY | FILE_ARCHIVED | FILE_SYSTEM |
592 FILE_HIDDEN,
593 &findbuf,
594 sizeof(FILEFINDBUF3), &ulSearchCount, FIL_STANDARD)) {
595 do {
596 if (findbuf.attrFile & FILE_DIRECTORY) {
597 // Skip .. unless full path supplied
598 if (strcmp(findbuf.achName, "..") ||
599 strlen(pszPath) > 3 || pszPath[1] != ':') {
600 // Skip . allow ..
601 if (findbuf.achName[0] != '.' || findbuf.achName[1]) {
602 WinSendMsg(hwnddir,
603 LM_INSERTITEM,
604 MPFROM2SHORT(LIT_SORTASCENDING, 0),
605 MPFROMP(findbuf.achName));
606 }
607 }
608 }
609 ulSearchCount = 1;
610 } while (!DosFindNext(hDir,
611 &findbuf, sizeof(FILEFINDBUF3), &ulSearchCount));
612 DosFindClose(hDir);
613 }
614 DosError(FERR_DISABLEHARDERR);
615 }
616}
617
618MRESULT EXPENTRY TextSubProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
619{
620 PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER);
621
622 switch (msg) {
623 case WM_CHAR:
624 if (SHORT1FROMMP(mp1) & KC_KEYUP) {
625 if ((SHORT1FROMMP(mp1) & KC_VIRTUALKEY) &&
626 (SHORT1FROMMP(mp2) & 255) == '\r')
627 PostMsg(WinQueryWindow(hwnd, QW_PARENT), WM_COMMAND,
628 MPFROM2SHORT(DID_OK, 0), MPVOID);
629 }
630 break;
631 }
632 return oldproc(hwnd, msg, mp1, mp2);
633}
634
635MRESULT EXPENTRY WalkDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
636{
637 WALKER *wa;
638 CHAR szBuff[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1], *p;
639 SHORT sSelect;
640 static BOOL okay; /* avoid combobox selecting as filled */
641 static CHAR lastdir[CCHMAXPATH + 1];
642
643 switch (msg) {
644 case UM_SETUP2:
645 case WM_INITDLG:
646 okay = FALSE;
647 *lastdir = 0;
648 if (!mp2) {
649 Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
650 WinDismissDlg(hwnd, 0);
651 break;
652 }
653 wa = xmallocz(sizeof(WALKER), pszSrcFile, __LINE__);
654 if (!wa) {
655 WinDismissDlg(hwnd, 0);
656 break;
657 }
658 wa->size = (USHORT) sizeof(WALKER);
659 WinSetWindowPtr(hwnd, QWL_USER, (PVOID) wa);
660 wa->szReturnPath = (CHAR *)mp2;
661 {
662 PFNWP oldproc;
663
664 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK_PATH),
665 (PFNWP) TextSubProc);
666 if (oldproc)
667 WinSetWindowPtr(WinWindowFromID(hwnd, WALK_PATH),
668 QWL_USER, (PVOID) oldproc);
669 WinSendDlgItemMsg(WinWindowFromID(hwnd, WALK_RECENT),
670 CBID_EDIT,
671 EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
672 WinSendDlgItemMsg(WinWindowFromID(hwnd, WALK_RECENT),
673 CBID_EDIT,
674 EM_SETREADONLY, MPFROM2SHORT(TRUE, 0), MPVOID);
675 }
676 {
677 SWP swp;
678 ULONG size = sizeof(SWP);
679
680 PrfQueryProfileData(fmprof, FM3Str, "WalkDir.Position", (PVOID) &swp, &size);
681 WinSetWindowPos(hwnd,
682 HWND_TOP,
683 swp.x,
684 swp.y,
685 swp.cx,
686 swp.cy,
687 swp.fl);
688 }
689 PosOverOkay(hwnd);
690 if (msg == UM_SETUP2)
691 wa->nounwriteable = FALSE;
692 else
693 wa->nounwriteable = TRUE;
694 if (!*wa->szReturnPath)
695 save_dir2(wa->szCurrentPath);
696 else {
697 strcpy(wa->szCurrentPath, wa->szReturnPath);
698 MakeFullName(wa->szCurrentPath);
699 }
700 if (wa->nounwriteable &&
701 (driveflags[toupper(*wa->szCurrentPath) - 'A'] &
702 DRIVE_NOTWRITEABLE)) {
703
704 ULONG bd;
705
706 strcpy(wa->szCurrentPath, "C:\\");
707 if (DosQuerySysInfo(QSV_BOOT_DRIVE,
708 QSV_BOOT_DRIVE,
709 (PVOID) & bd, (ULONG) sizeof(ULONG)))
710 bd = 3;
711 *wa->szCurrentPath = (CHAR) bd + '@';
712 }
713 WinSendDlgItemMsg(hwnd,
714 WALK_PATH,
715 EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
716 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
717 if (!loadedudirs)
718 load_udirs();
719 { /* fill user list box */
720 ULONG ulDriveNum, ulDriveMap;
721 ULONG ulSearchCount;
722 FILEFINDBUF3 findbuf;
723 HDIR hDir;
724 APIRET rc;
725 LINKDIRS *info, *temp;
726
727 DosError(FERR_DISABLEHARDERR);
728 DosQCurDisk(&ulDriveNum, &ulDriveMap);
729 info = udirhead;
730 while (info) {
731 if (IsFullName(info->path) &&
732 !(driveflags[toupper(*info->path) - 'A'] &
733 (DRIVE_IGNORE | DRIVE_INVALID))) {
734 DosError(FERR_DISABLEHARDERR);
735 hDir = HDIR_CREATE;
736 ulSearchCount = 1;
737 if (!IsRoot(info->path))
738 rc = DosFindFirst(info->path, &hDir, FILE_DIRECTORY |
739 MUST_HAVE_DIRECTORY | FILE_READONLY |
740 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
741 &findbuf, sizeof(FILEFINDBUF3),
742 &ulSearchCount, FIL_STANDARD);
743 else {
744 rc = 0;
745 findbuf.attrFile = FILE_DIRECTORY;
746 }
747 if (!rc) {
748 if (!IsRoot(info->path))
749 DosFindClose(hDir);
750 if (findbuf.attrFile & FILE_DIRECTORY)
751 WinSendDlgItemMsg(hwnd, WALK_USERLIST, LM_INSERTITEM,
752 MPFROM2SHORT(LIT_SORTASCENDING, 0),
753 MPFROMP(info->path));
754 else {
755 temp = info->next;
756 remove_udir(info->path);
757 info = temp;
758 continue;
759 }
760 }
761 else if (!(ulDriveMap & (1 << (toupper(*info->path) - 'A')))) {
762 temp = info->next;
763 remove_udir(info->path);
764 info = temp;
765 continue;
766 }
767 }
768 info = info->next;
769 }
770 info = ldirhead;
771 while (info) {
772 if (IsFullName(info->path) &&
773 !(driveflags[toupper(*info->path) - 'A'] &
774 (DRIVE_IGNORE | DRIVE_INVALID))) {
775 DosError(FERR_DISABLEHARDERR);
776 hDir = HDIR_CREATE;
777 ulSearchCount = 1;
778 if (!IsRoot(info->path))
779 rc = DosFindFirst(info->path, &hDir, FILE_DIRECTORY |
780 MUST_HAVE_DIRECTORY | FILE_READONLY |
781 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
782 &findbuf, sizeof(FILEFINDBUF3),
783 &ulSearchCount, FIL_STANDARD);
784 else {
785 rc = 0;
786 findbuf.attrFile = FILE_DIRECTORY;
787 }
788 if (!rc) {
789 if (!IsRoot(info->path))
790 DosFindClose(hDir);
791 if (findbuf.attrFile & FILE_DIRECTORY)
792 WinSendDlgItemMsg(hwnd, WALK_RECENT, LM_INSERTITEM,
793 MPFROM2SHORT(LIT_SORTASCENDING, 0),
794 MPFROMP(info->path));
795 else {
796 temp = info->next;
797 remove_ldir(info->path);
798 info = temp;
799 continue;
800 }
801 WinSetDlgItemText(hwnd, WALK_RECENT,
802 GetPString(IDS_WALKRECENTDIRSTEXT));
803 }
804 else if (!(ulDriveMap & (1 << (toupper(*info->path) - 'A')))) {
805 temp = info->next;
806 remove_ldir(info->path);
807 info = temp;
808 continue;
809 }
810 }
811 info = info->next;
812 }
813 }
814 FillPathListBox(hwnd,
815 WinWindowFromID(hwnd, WALK_DRIVELIST),
816 WinWindowFromID(hwnd, WALK_DIRLIST),
817 wa->szCurrentPath, wa->nounwriteable);
818 if (!PostMsg(hwnd, UM_SETUP4, MPVOID, MPVOID))
819 okay = TRUE;
820 {
821 MRESULT ret;
822
823 ret = WinDefDlgProc(hwnd, WM_INITDLG, mp1, mp2);
824 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
825 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
826 return ret;
827 }
828
829 case UM_SETUP4:
830 okay = TRUE;
831 return 0;
832
833 case WM_ADJUSTWINDOWPOS:
834 PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
835 break;
836
837 case UM_SETDIR:
838 PaintRecessedWindow(WinWindowFromID(hwnd, WALK_HELP), (HPS) 0, FALSE,
839 TRUE);
840 return 0;
841
842 case WM_PRESPARAMCHANGED:
843 {
844 ULONG AttrFound, AttrValue[64], cbRetLen;
845
846 cbRetLen = WinQueryPresParam(hwnd, (ULONG) mp1, 0, &AttrFound,
847 (ULONG) sizeof(AttrValue), &AttrValue, 0);
848 if (cbRetLen) {
849 switch (AttrFound) {
850 case PP_FONTNAMESIZE:
851 PrfWriteProfileData(fmprof,
852 appname,
853 "WalkFont", (PVOID) AttrValue, cbRetLen);
854 *WalkFont = 0;
855 WalkFontSize = sizeof(WalkFont);
856 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
857 break;
858 }
859 }
860 }
861 break;
862
863 case UM_SETUP3:
864 save_udirs();
865 if (hwndMain)
866 PostMsg(hwndMain, UM_FILLUSERLIST, MPVOID, MPVOID);
867 return 0;
868
869 case UM_SETUP:
870 {
871 INT x;
872 USHORT id[] = { WALK_PATH, WALK_DIRLIST, WALK_USERLIST,
873 WALK_RECENT, 0
874 };
875
876 if (*WalkFont ||
877 (PrfQueryProfileData(fmprof,
878 appname,
879 "WalkFont",
880 (PVOID) WalkFont,
881 &WalkFontSize) && WalkFontSize)) {
882 for (x = 0; id[x]; x++)
883 WinSetPresParam(WinWindowFromID(hwnd, id[x]),
884 PP_FONTNAMESIZE, WalkFontSize, (PVOID) WalkFont);
885 }
886 }
887 return 0;
888
889 case UM_CONTROL:
890 case WM_CONTROL:
891 wa = WinQueryWindowPtr(hwnd, QWL_USER);
892 if (SHORT1FROMMP(mp1) == WALK_DRIVELIST ||
893 SHORT1FROMMP(mp1) == WALK_DIRLIST ||
894 SHORT1FROMMP(mp1) == WALK_USERLIST ||
895 SHORT1FROMMP(mp1) == WALK_RECENT) {
896 sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
897 SHORT1FROMMP(mp1),
898 LM_QUERYSELECTION, MPVOID, MPVOID);
899 *szBuffer = 0;
900 if (sSelect >= 0)
901 WinSendDlgItemMsg(hwnd, SHORT1FROMMP(mp1), LM_QUERYITEMTEXT,
902 MPFROM2SHORT(sSelect, CCHMAXPATH),
903 MPFROMP(szBuffer));
904 }
905 switch (SHORT1FROMMP(mp1)) {
906 case WALK_PATH:
907 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
908 WinSetDlgItemText(hwnd, WALK_HELP, GetPString(IDS_WALKCURRDIRTEXT));
909 else if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
910 WinSetDlgItemText(hwnd, WALK_HELP,
911 GetPString(IDS_WALKDEFAULTHELPTEXT));
912 break;
913
914 case WALK_RECENT:
915 if (okay && SHORT2FROMMP(mp1) == CBN_LBSELECT) {
916
917 ULONG ulSearchCount;
918 FILEFINDBUF3 findbuf;
919 HDIR hDir;
920 APIRET rc;
921
922 // *szBuffer = 0;
923 // WinQueryDlgItemText(hwnd,WALK_RECENT,CCHMAXPATH,szBuffer);
924 if (!*szBuffer)
925 break;
926 DosError(FERR_DISABLEHARDERR);
927 hDir = HDIR_CREATE;
928 ulSearchCount = 1;
929 if (!IsRoot(szBuffer)) {
930 rc = DosFindFirst(szBuffer, &hDir, FILE_DIRECTORY |
931 MUST_HAVE_DIRECTORY | FILE_READONLY |
932 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
933 &findbuf, sizeof(FILEFINDBUF3),
934 &ulSearchCount, FIL_STANDARD);
935 if (!rc)
936 DosFindClose(hDir);
937 }
938 else {
939 findbuf.attrFile = FILE_DIRECTORY;
940 rc = 0;
941 }
942 if (rc)
943 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
944 "xDosFindFirst");
945 else if (~findbuf.attrFile & FILE_DIRECTORY)
946 Runtime_Error(pszSrcFile, __LINE__, "not a directory");
947 else {
948 strcpy(wa->szCurrentPath, szBuffer);
949 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
950 WinSetDlgItemText(hwnd, WALK_RECENT, wa->szCurrentPath);
951 FillPathListBox(hwnd,
952 WinWindowFromID(hwnd, WALK_DRIVELIST),
953 WinWindowFromID(hwnd, WALK_DIRLIST),
954 wa->szCurrentPath, FALSE);
955 }
956 }
957 else if (SHORT2FROMMP(mp1) == CBN_ENTER)
958 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
959 else if (SHORT2FROMMP(mp1) == CBN_SHOWLIST)
960 WinSetDlgItemText(hwnd, WALK_HELP,
961 GetPString(IDS_WALKRECENTDIRSHELPTEXT));
962 break;
963
964 case WALK_USERLIST:
965 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_SELECT) {
966
967 ULONG ulSearchCount;
968 FILEFINDBUF3 findbuf;
969 HDIR hDir;
970 APIRET rc;
971
972 DosError(FERR_DISABLEHARDERR);
973 hDir = HDIR_CREATE;
974 ulSearchCount = 1;
975 if (!IsRoot(szBuffer)) {
976 rc = DosFindFirst(szBuffer,
977 &hDir,
978 FILE_DIRECTORY |
979 MUST_HAVE_DIRECTORY | FILE_READONLY |
980 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
981 &findbuf,
982 sizeof(FILEFINDBUF3),
983 &ulSearchCount, FIL_STANDARD);
984 if (!rc)
985 DosFindClose(hDir);
986 }
987 else {
988 findbuf.attrFile = FILE_DIRECTORY;
989 rc = 0;
990 }
991 if (rc)
992 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
993 "xDosFindFirst");
994 else if (~findbuf.attrFile & FILE_DIRECTORY)
995 Runtime_Error(pszSrcFile, __LINE__, "not a directory");
996 else {
997 strcpy(wa->szCurrentPath, szBuffer);
998 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
999 FillPathListBox(hwnd,
1000 WinWindowFromID(hwnd, WALK_DRIVELIST),
1001 WinWindowFromID(hwnd, WALK_DIRLIST),
1002 wa->szCurrentPath, FALSE);
1003 }
1004 }
1005 else if (SHORT2FROMMP(mp1) == LN_ENTER)
1006 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
1007 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
1008 WinSetDlgItemText(hwnd,
1009 WALK_HELP, GetPString(IDS_WALKUSERDIRSHELPTEXT));
1010 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
1011 WinSetDlgItemText(hwnd,
1012 WALK_HELP, GetPString(IDS_WALKDEFAULTHELPTEXT));
1013 break;
1014
1015 case WALK_DRIVELIST:
1016 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER) {
1017
1018 ULONG ulDirLen = CCHMAXPATH;
1019 APIRET rc;
1020
1021 rc = DosQCurDir(toupper(*szBuffer) - '@', &szBuff[3], &ulDirLen);
1022 if (!rc) {
1023 strcpy(wa->szCurrentPath, "C:\\");
1024 *wa->szCurrentPath = toupper(*szBuffer);
1025 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
1026 FillPathListBox(hwnd,
1027 WinWindowFromID(hwnd, WALK_DRIVELIST),
1028 WinWindowFromID(hwnd, WALK_DIRLIST),
1029 wa->szCurrentPath, FALSE);
1030 }
1031 }
1032 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
1033 WinSetDlgItemText(hwnd, WALK_HELP,
1034 GetPString(IDS_WALKDRIVELISTHELPTEXT));
1035 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
1036 WinSetDlgItemText(hwnd, WALK_HELP,
1037 GetPString(IDS_WALKDEFAULTHELPTEXT));
1038 break;
1039
1040 case WALK_DIRLIST:
1041 if (okay && SHORT2FROMMP(mp1) == LN_ENTER) {
1042
1043 ULONG ulSearchCount;
1044 FILEFINDBUF3 findbuf;
1045 HDIR hDir;
1046 APIRET rc;
1047
1048 bstrip(szBuffer);
1049 if (*szBuffer) {
1050 strcpy(szBuff, wa->szCurrentPath);
1051 if (szBuff[strlen(szBuff) - 1] != '\\')
1052 strcat(szBuff, "\\");
1053 strcat(szBuff, szBuffer);
1054 MakeFullName(szBuff);
1055 DosError(FERR_DISABLEHARDERR);
1056 hDir = HDIR_CREATE;
1057 ulSearchCount = 1;
1058 if (!IsRoot(szBuff)) {
1059 rc = DosFindFirst(szBuff,
1060 &hDir,
1061 FILE_DIRECTORY |
1062 MUST_HAVE_DIRECTORY | FILE_READONLY |
1063 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
1064 &findbuf,
1065 sizeof(FILEFINDBUF3),
1066 &ulSearchCount, FIL_STANDARD);
1067 if (!rc)
1068 DosFindClose(hDir);
1069 }
1070 else {
1071 findbuf.attrFile = FILE_DIRECTORY;
1072 rc = 0;
1073 }
1074 if (!rc && (findbuf.attrFile & FILE_DIRECTORY)) {
1075 strcpy(wa->szCurrentPath, szBuff);
1076 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
1077 FillPathListBox(hwnd,
1078 WinWindowFromID(hwnd, WALK_DRIVELIST),
1079 WinWindowFromID(hwnd, WALK_DIRLIST),
1080 wa->szCurrentPath, FALSE);
1081 }
1082 }
1083 }
1084 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
1085 WinSetDlgItemText(hwnd, WALK_HELP,
1086 GetPString(IDS_WALKDIRLISTHELPTEXT));
1087 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
1088 WinSetDlgItemText(hwnd, WALK_HELP,
1089 GetPString(IDS_WALKDEFAULTHELPTEXT));
1090 break;
1091 }
1092 return 0;
1093
1094 case WM_COMMAND:
1095 wa = WinQueryWindowPtr(hwnd, QWL_USER);
1096 if (!wa)
1097 WinDismissDlg(hwnd, 0);
1098 *szBuff = 0;
1099 WinQueryDlgItemText(hwnd, WALK_PATH, CCHMAXPATH, szBuff);
1100 bstrip(szBuff);
1101 while ((p = strchr(szBuff, '/')) != NULL)
1102 *p = '\\';
1103 while (strlen(szBuff) > 3 && szBuff[strlen(szBuff) - 1] == '\\')
1104 szBuff[strlen(szBuff) - 1] = 0;
1105 MakeFullName(szBuff);
1106 if (*szBuff && stricmp(szBuff, wa->szCurrentPath) && SHORT1FROMMP(mp1) != DID_CANCEL) {
1107 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1108 QW_OWNER), hwnd, szBuff, 0))
1109 strcpy(wa->szCurrentPath, szBuff);
1110 else
1111 return 0;
1112 }
1113 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath);
1114 switch (SHORT1FROMMP(mp1)) {
1115 case WALK_ADD:
1116 *szBuff = 0;
1117 WinQueryDlgItemText(hwnd, WALK_PATH, CCHMAXPATH, szBuff);
1118 bstrip(szBuff);
1119 while ((p = strchr(szBuff, '/')) != NULL)
1120 *p = '\\';
1121 if (*szBuff && !IsFile(szBuff)) {
1122 MakeFullName(szBuff);
1123 add_udir(TRUE, szBuff);
1124 if (fUdirsChanged) {
1125 WinSendDlgItemMsg(hwnd,
1126 WALK_USERLIST,
1127 LM_INSERTITEM,
1128 MPFROM2SHORT(LIT_SORTASCENDING, 0),
1129 MPFROMP(szBuff));
1130 wa->changed = 1;
1131 }
1132 }
1133 break;
1134
1135 case WALK_DELETE:
1136 *szBuff = 0;
1137 WinQueryDlgItemText(hwnd, WALK_PATH, CCHMAXPATH, szBuff);
1138 bstrip(szBuff);
1139 while ((p = strchr(szBuff, '/')) != NULL)
1140 *p = '\\';
1141 if (*szBuff && !IsFile(szBuff)) {
1142 MakeFullName(szBuff);
1143 sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
1144 WALK_USERLIST,
1145 LM_SEARCHSTRING,
1146 MPFROM2SHORT(0, LIT_FIRST),
1147 MPFROMP(szBuff));
1148 if (sSelect >= 0) {
1149 WinSendDlgItemMsg(hwnd,
1150 WALK_USERLIST,
1151 LM_DELETEITEM, MPFROM2SHORT(sSelect, 0), MPVOID);
1152 remove_udir(szBuff);
1153 wa->changed = 1;
1154 }
1155 }
1156 break;
1157
1158 case DID_OK:
1159 if (*wa->szCurrentPath) {
1160 strcpy(wa->szReturnPath, wa->szCurrentPath);
1161 MakeValidDir(wa->szReturnPath);
1162 if (fAutoAddAllDirs)
1163 add_udir(FALSE, wa->szReturnPath);
1164 if (fChangeTarget) {
1165 strcpy(targetdir, wa->szReturnPath);
1166 PrfWriteProfileString(fmprof, appname, "Targetdir", targetdir);
1167 }
1168 }
1169 {
1170 SWP swp;
1171 ULONG size = sizeof(SWP);
1172
1173 WinQueryWindowPos(hwnd, &swp);
1174 PrfWriteProfileData(fmprof, FM3Str, "WalkDir.Position", (PVOID) &swp,
1175 size);
1176 }
1177 if (wa->changed)
1178 WinSendMsg(hwnd, UM_SETUP3, MPVOID, MPVOID);
1179 WinDismissDlg(hwnd, 1);
1180 break;
1181
1182 case IDM_HELP:
1183 if (hwndHelp)
1184 WinSendMsg(hwndHelp,
1185 HM_DISPLAY_HELP,
1186 MPFROM2SHORT(HELP_WALKEM, 0), MPFROMSHORT(HM_RESOURCEID));
1187 break;
1188
1189 case DID_CANCEL:
1190 {
1191 SWP swp;
1192 ULONG size = sizeof(SWP);
1193
1194 WinQueryWindowPos(hwnd, &swp);
1195 PrfWriteProfileData(fmprof, FM3Str, "WalkDir.Position", (PVOID) &swp,
1196 size);
1197 }
1198 if (wa->changed)
1199 WinSendMsg(hwnd, UM_SETUP3, MPVOID, MPVOID);
1200 xfree(wa, pszSrcFile, __LINE__);
1201 WinDismissDlg(hwnd, 0);
1202 break;
1203 }
1204 return 0;
1205
1206 case WM_CLOSE:
1207 break;
1208 }
1209 return WinDefDlgProc(hwnd, msg, mp1, mp2);
1210}
1211
1212MRESULT EXPENTRY WalkAllDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1213{
1214 switch (msg) {
1215 case WM_INITDLG:
1216 return WalkDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1217 }
1218 return WalkDlgProc(hwnd, msg, mp1, mp2);
1219}
1220
1221MRESULT EXPENTRY WalkCopyDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1222{
1223 switch (msg) {
1224 case WM_INITDLG:
1225 WinSetWindowText(hwnd, GetPString(IDS_WALKCOPYDLGTEXT));
1226 return WalkDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1227 }
1228 return WalkDlgProc(hwnd, msg, mp1, mp2);
1229}
1230
1231MRESULT EXPENTRY WalkMoveDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1232{
1233 switch (msg) {
1234 case WM_INITDLG:
1235 WinSetWindowText(hwnd, GetPString(IDS_WALKMOVEDLGTEXT));
1236 return WalkDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1237 }
1238 return WalkDlgProc(hwnd, msg, mp1, mp2);
1239}
1240
1241MRESULT EXPENTRY WalkExtractDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1242 MPARAM mp2)
1243{
1244 switch (msg) {
1245 case WM_INITDLG:
1246 WinSetWindowText(hwnd, GetPString(IDS_WALKEXTRACTDLGTEXT));
1247 return WalkDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1248 }
1249 return WalkDlgProc(hwnd, msg, mp1, mp2);
1250}
1251
1252MRESULT EXPENTRY WalkTargetDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1253 MPARAM mp2)
1254{
1255 switch (msg) {
1256 case WM_INITDLG:
1257 {
1258 char s[CCHMAXPATH + 32];
1259
1260 sprintf(s,
1261 GetPString(IDS_WALKTARGETDLGTEXT),
1262 (*targetdir) ?
1263 NullStr :
1264 " (",
1265 (*targetdir) ?
1266 NullStr : GetPString(IDS_NONE), (*targetdir) ? NullStr : ")");
1267 WinSetWindowText(hwnd, s);
1268 }
1269 return WalkDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1270 }
1271 return WalkDlgProc(hwnd, msg, mp1, mp2);
1272}
1273
1274MRESULT EXPENTRY WalkTwoDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1275{
1276 WALK2 *wa;
1277 CHAR szBuff[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1], *p;
1278 SHORT sSelect;
1279 static BOOL okay; /* avoid combobox selecting as filled */
1280
1281 switch (msg) {
1282 case UM_SETUP2:
1283 case WM_INITDLG:
1284 okay = FALSE;
1285 if (!mp2) {
1286 WinDismissDlg(hwnd, 0);
1287 break;
1288 }
1289 WinSetWindowPtr(hwnd, QWL_USER, mp2);
1290 wa = mp2;
1291 {
1292 PFNWP oldproc;
1293
1294 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK_PATH),
1295 (PFNWP) TextSubProc);
1296 if (oldproc)
1297 WinSetWindowPtr(WinWindowFromID(hwnd, WALK_PATH),
1298 QWL_USER, (PVOID) oldproc);
1299 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK2_PATH),
1300 (PFNWP) TextSubProc);
1301 if (oldproc)
1302 WinSetWindowPtr(WinWindowFromID(hwnd, WALK2_PATH),
1303 QWL_USER, (PVOID) oldproc);
1304 }
1305 {
1306 SWP swp;
1307 ULONG size = sizeof(SWP);
1308
1309 PrfQueryProfileData(fmprof, FM3Str, "WalkDir2.Position", (PVOID) &swp, &size);
1310 WinSetWindowPos(hwnd,
1311 HWND_TOP,
1312 swp.x,
1313 swp.y,
1314 swp.cx,
1315 swp.cy,
1316 swp.fl);
1317 }
1318 if (!*wa->szCurrentPath1)
1319 save_dir2(wa->szCurrentPath1);
1320 MakeFullName(wa->szCurrentPath1);
1321 if (!*wa->szCurrentPath2)
1322 save_dir2(wa->szCurrentPath2);
1323 MakeFullName(wa->szCurrentPath2);
1324 WinSendDlgItemMsg(hwnd,
1325 WALK_PATH,
1326 EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
1327 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath1);
1328 WinSendDlgItemMsg(hwnd, WALK2_PATH, EM_SETTEXTLIMIT,
1329 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
1330 WinSetDlgItemText(hwnd, WALK2_PATH, wa->szCurrentPath2);
1331 FillPathListBox(hwnd,
1332 WinWindowFromID(hwnd, WALK_DRIVELIST),
1333 WinWindowFromID(hwnd, WALK_DIRLIST),
1334 wa->szCurrentPath1, FALSE);
1335 FillPathListBox(hwnd,
1336 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1337 WinWindowFromID(hwnd, WALK2_DIRLIST),
1338 wa->szCurrentPath2, FALSE);
1339 if (!PostMsg(hwnd, UM_SETUP4, MPVOID, MPVOID))
1340 okay = TRUE;
1341 {
1342 MRESULT ret;
1343
1344 ret = WinDefDlgProc(hwnd, WM_INITDLG, mp1, mp2);
1345 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
1346 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
1347 WinInvalidateRect(WinWindowFromID(hwnd, WALK2_PATH), NULL, TRUE);
1348 return ret;
1349 }
1350
1351 case UM_SETUP4:
1352 okay = TRUE;
1353 return 0;
1354
1355 case WM_PRESPARAMCHANGED:
1356 {
1357 ULONG AttrFound, AttrValue[64], cbRetLen;
1358
1359 cbRetLen = WinQueryPresParam(hwnd, (ULONG) mp1, 0, &AttrFound,
1360 (ULONG) sizeof(AttrValue), &AttrValue, 0);
1361 if (cbRetLen) {
1362 switch (AttrFound) {
1363 case PP_FONTNAMESIZE:
1364 PrfWriteProfileData(fmprof,
1365 appname,
1366 "WalkFont", (PVOID) AttrValue, cbRetLen);
1367 *WalkFont = 0;
1368 WalkFontSize = sizeof(WalkFont);
1369 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
1370 break;
1371 }
1372 }
1373 }
1374 break;
1375
1376 case UM_SETUP:
1377 {
1378 INT x;
1379 USHORT id[] = { WALK_PATH, WALK_DIRLIST,
1380 WALK2_PATH, WALK2_DIRLIST, 0
1381 };
1382
1383 if (*WalkFont ||
1384 (PrfQueryProfileData(fmprof,
1385 appname,
1386 "WalkFont",
1387 (PVOID) WalkFont,
1388 &WalkFontSize) && WalkFontSize)) {
1389 for (x = 0; id[x]; x++)
1390 WinSetPresParam(WinWindowFromID(hwnd, id[x]),
1391 PP_FONTNAMESIZE, WalkFontSize, (PVOID) WalkFont);
1392 }
1393 }
1394 return 0;
1395
1396 case UM_CONTROL:
1397 case WM_CONTROL:
1398 wa = WinQueryWindowPtr(hwnd, QWL_USER);
1399 if (SHORT1FROMMP(mp1) == WALK_DRIVELIST ||
1400 SHORT1FROMMP(mp1) == WALK_DIRLIST ||
1401 SHORT1FROMMP(mp1) == WALK2_DRIVELIST ||
1402 SHORT1FROMMP(mp1) == WALK2_DIRLIST) {
1403 sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
1404 SHORT1FROMMP(mp1),
1405 LM_QUERYSELECTION, MPVOID, MPVOID);
1406 *szBuffer = 0;
1407 if (sSelect >= 0)
1408 WinSendDlgItemMsg(hwnd, SHORT1FROMMP(mp1), LM_QUERYITEMTEXT,
1409 MPFROM2SHORT(sSelect, CCHMAXPATH),
1410 MPFROMP(szBuffer));
1411 }
1412 switch (SHORT1FROMMP(mp1)) {
1413 case WALK_DRIVELIST:
1414 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER) {
1415
1416 ULONG ulDirLen = CCHMAXPATH;
1417 APIRET rc;
1418
1419 rc = DosQCurDir(toupper(*szBuffer) - '@', &szBuff[3], &ulDirLen);
1420 if (!rc) {
1421 strcpy(wa->szCurrentPath1, "C:\\");
1422 *wa->szCurrentPath1 = toupper(*szBuffer);
1423 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath1);
1424 FillPathListBox(hwnd,
1425 WinWindowFromID(hwnd, WALK_DRIVELIST),
1426 WinWindowFromID(hwnd, WALK_DIRLIST),
1427 wa->szCurrentPath1, FALSE);
1428 }
1429 }
1430 break;
1431
1432 case WALK_DIRLIST:
1433 if (okay && SHORT2FROMMP(mp1) == LN_ENTER) {
1434
1435 ULONG ulSearchCount;
1436 FILEFINDBUF3 findbuf;
1437 HDIR hDir;
1438 APIRET rc;
1439
1440 bstrip(szBuffer);
1441 if (*szBuffer) {
1442 strcpy(szBuff, wa->szCurrentPath1);
1443 if (szBuff[strlen(szBuff) - 1] != '\\')
1444 strcat(szBuff, "\\");
1445 strcat(szBuff, szBuffer);
1446 MakeFullName(szBuff);
1447 DosError(FERR_DISABLEHARDERR);
1448 hDir = HDIR_CREATE;
1449 ulSearchCount = 1;
1450 if (!IsRoot(szBuff)) {
1451 rc = DosFindFirst(szBuff,
1452 &hDir,
1453 FILE_DIRECTORY |
1454 MUST_HAVE_DIRECTORY | FILE_READONLY |
1455 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
1456 &findbuf,
1457 sizeof(FILEFINDBUF3),
1458 &ulSearchCount, FIL_STANDARD);
1459 if (!rc)
1460 DosFindClose(hDir);
1461 }
1462 else {
1463 findbuf.attrFile = FILE_DIRECTORY;
1464 rc = 0;
1465 }
1466 if (!rc && (findbuf.attrFile & FILE_DIRECTORY)) {
1467 strcpy(wa->szCurrentPath1, szBuff);
1468 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath1);
1469 FillPathListBox(hwnd,
1470 WinWindowFromID(hwnd, WALK_DRIVELIST),
1471 WinWindowFromID(hwnd, WALK_DIRLIST),
1472 wa->szCurrentPath1, FALSE);
1473 }
1474 }
1475 }
1476 break;
1477
1478 case WALK2_DRIVELIST:
1479 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER) {
1480
1481 ULONG ulDirLen = CCHMAXPATH;
1482 APIRET rc;
1483
1484 rc = DosQCurDir(toupper(*szBuffer) - '@', &szBuff[3], &ulDirLen);
1485 if (!rc) {
1486 strcpy(wa->szCurrentPath2, "C:\\");
1487 *wa->szCurrentPath2 = toupper(*szBuffer);
1488 WinSetDlgItemText(hwnd, WALK2_PATH, wa->szCurrentPath2);
1489 FillPathListBox(hwnd,
1490 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1491 WinWindowFromID(hwnd, WALK2_DIRLIST),
1492 wa->szCurrentPath2, FALSE);
1493 }
1494 }
1495 break;
1496
1497 case WALK2_DIRLIST:
1498 if (okay && SHORT2FROMMP(mp1) == LN_ENTER) {
1499
1500 ULONG ulSearchCount;
1501 FILEFINDBUF3 findbuf;
1502 HDIR hDir;
1503 APIRET rc;
1504
1505 bstrip(szBuffer);
1506 if (*szBuffer) {
1507 strcpy(szBuff, wa->szCurrentPath2);
1508 if (szBuff[strlen(szBuff) - 1] != '\\')
1509 strcat(szBuff, "\\");
1510 strcat(szBuff, szBuffer);
1511 MakeFullName(szBuff);
1512 DosError(FERR_DISABLEHARDERR);
1513 hDir = HDIR_CREATE;
1514 ulSearchCount = 1;
1515 if (!IsRoot(szBuff)) {
1516 rc = DosFindFirst(szBuff,
1517 &hDir,
1518 FILE_DIRECTORY |
1519 MUST_HAVE_DIRECTORY | FILE_READONLY |
1520 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
1521 &findbuf,
1522 sizeof(FILEFINDBUF3),
1523 &ulSearchCount, FIL_STANDARD);
1524 if (!rc)
1525 DosFindClose(hDir);
1526 }
1527 else {
1528 findbuf.attrFile = FILE_DIRECTORY;
1529 rc = 0;
1530 }
1531 if (!rc && (findbuf.attrFile & FILE_DIRECTORY)) {
1532 strcpy(wa->szCurrentPath2, szBuff);
1533 WinSetDlgItemText(hwnd, WALK2_PATH, wa->szCurrentPath2);
1534 FillPathListBox(hwnd,
1535 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1536 WinWindowFromID(hwnd, WALK2_DIRLIST),
1537 wa->szCurrentPath2, FALSE);
1538 }
1539 }
1540 }
1541 break;
1542 }
1543 return 0;
1544
1545 case WM_COMMAND:
1546 wa = WinQueryWindowPtr(hwnd, QWL_USER);
1547 if (!wa)
1548 WinDismissDlg(hwnd, 0);
1549 *szBuff = 0;
1550 WinQueryDlgItemText(hwnd, WALK_PATH, CCHMAXPATH, szBuff);
1551 bstrip(szBuff);
1552 while ((p = strchr(szBuff, '/')) != NULL)
1553 *p = '\\';
1554 while (strlen(szBuff) > 3 && szBuff[strlen(szBuff) - 1] == '\\')
1555 szBuff[strlen(szBuff) - 1] = 0;
1556 MakeFullName(szBuff);
1557 if (*szBuff && stricmp(szBuff, wa->szCurrentPath1) && SHORT1FROMMP(mp1) != DID_CANCEL) {
1558 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1559 QW_OWNER), hwnd, szBuff, 0))
1560 strcpy(wa->szCurrentPath1, szBuff);
1561 else
1562 return 0;
1563 }
1564 WinSetDlgItemText(hwnd, WALK_PATH, wa->szCurrentPath1);
1565 *szBuff = 0;
1566 WinQueryDlgItemText(hwnd, WALK2_PATH, CCHMAXPATH, szBuff);
1567 bstrip(szBuff);
1568 while ((p = strchr(szBuff, '/')) != NULL)
1569 *p = '\\';
1570 while (strlen(szBuff) > 3 && szBuff[strlen(szBuff) - 1] == '\\')
1571 szBuff[strlen(szBuff) - 1] = 0;
1572 MakeFullName(szBuff);
1573 if (*szBuff && stricmp(szBuff, wa->szCurrentPath2) && SHORT1FROMMP(mp1) != DID_CANCEL) {
1574 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1575 QW_OWNER), hwnd, szBuff, 0))
1576 strcpy(wa->szCurrentPath2, szBuff);
1577 else
1578 return 0;
1579 }
1580 WinSetDlgItemText(hwnd, WALK2_PATH, wa->szCurrentPath2);
1581 switch (SHORT1FROMMP(mp1)) {
1582 case DID_OK:
1583 {
1584 SWP swp;
1585 ULONG size = sizeof(SWP);
1586
1587 WinQueryWindowPos(hwnd, &swp);
1588 PrfWriteProfileData(fmprof, FM3Str, "WalkDir2.Position", (PVOID) &swp,
1589 size);
1590 }
1591 WinDismissDlg(hwnd, 1);
1592 break;
1593
1594 case IDM_HELP:
1595 if (hwndHelp)
1596 WinSendMsg(hwndHelp,
1597 HM_DISPLAY_HELP,
1598 MPFROM2SHORT(HELP_WALKEM2, 0), MPFROMSHORT(HM_RESOURCEID));
1599 break;
1600
1601 case DID_CANCEL:
1602 {
1603 SWP swp;
1604 ULONG size = sizeof(SWP);
1605
1606 WinQueryWindowPos(hwnd, &swp);
1607 PrfWriteProfileData(fmprof, FM3Str, "WalkDir2.Position", (PVOID) &swp,
1608 size);
1609 }
1610 WinDismissDlg(hwnd, 0);
1611 break;
1612 }
1613 return 0;
1614
1615 case WM_CLOSE:
1616 break;
1617 }
1618 return WinDefDlgProc(hwnd, msg, mp1, mp2);
1619}
1620
1621MRESULT EXPENTRY WalkTwoCmpDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1622 MPARAM mp2)
1623{
1624 switch (msg) {
1625 case WM_INITDLG:
1626 WinSetWindowText(hwnd, GetPString(IDS_WALKCOMPAREDLGTEXT));
1627 return WalkTwoDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1628 }
1629 return WalkTwoDlgProc(hwnd, msg, mp1, mp2);
1630}
1631
1632MRESULT EXPENTRY WalkTwoSetDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1633 MPARAM mp2)
1634{
1635 switch (msg) {
1636 case WM_INITDLG:
1637 WinSetWindowText(hwnd, GetPString(IDS_WALKSETDIRSDLGTEXT));
1638 return WalkTwoDlgProc(hwnd, UM_SETUP2, mp1, mp2);
1639 }
1640 return WalkTwoDlgProc(hwnd, msg, mp1, mp2);
1641}
1642
1643#pragma alloc_text(WALKER,FillPathListBox,WalkDlgProc,TextSubProc)
1644#pragma alloc_text(WALKER,WalkAllDlgProc,WalkCopyDlgProc)
1645#pragma alloc_text(WALKER,WalkMoveDlgProc,WalkExtractDlgProc,WalkTargetDlgProc)
1646#pragma alloc_text(WALK2,WalkTwoDlgProc,WalkTwoCmpDlgProc,WalkTwoSetDlgProc)
1647#pragma alloc_text(UDIRS,add_udir,remove_udir,remove_ldir,load_udirs)
1648#pragma alloc_text(UDIRS,save_udirs,load_setups,save_setups,add_setups)
1649#pragma alloc_text(UDIRS,remove_setup)
Note: See TracBrowser for help on using the repository browser.