source: trunk/dll/saveclip.c@ 841

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

This implements large file support; The wrappers to allow WARP3 compatibility are not done so this will not run on Warp3or Warp 4 pre fixpack 12(?)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 23.3 KB
Line 
1
2/***********************************************************************
3
4 $Id: saveclip.c 841 2007-09-23 16:27:51Z gyoung $
5
6 Save file list to clipboard
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2005, 2007 Steven H. Levine
10
11 12 Feb 03 SHL SaveListDlgProc: standardize EA math
12 01 Aug 04 SHL Rework lstrip/rstrip usage
13 01 Aug 04 SHL Rework fixup usage
14 24 May 05 SHL Rework for CNRITEM.szSubject
15 17 Jul 06 SHL Use Runtime_Error
16 29 Jul 06 SHL Use xfgets
17 22 Mar 07 GKY Use QWL_USER
18 06 Aug 07 GKY Increase Subject EA to 1024
19 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
20
21***********************************************************************/
22
23#define INCL_DOS
24#define INCL_WIN
25#define INCL_LONGLONG
26#include <os2.h>
27
28#include <stdarg.h>
29#include <stdio.h>
30#include <stdlib.h>
31#include <string.h>
32#include <share.h>
33
34#include "fm3dll.h"
35#include "fm3dlg.h"
36#include "fm3str.h"
37
38static PSZ pszSrcFile = __FILE__;
39
40BOOL SaveToClip(HWND hwnd, CHAR * text, BOOL append)
41{
42 HAB hab = WinQueryAnchorBlock(hwnd);
43
44 return SaveToClipHab(hab, text, append);
45}
46
47BOOL SaveToClipHab(HAB hab, CHAR * text, BOOL append)
48{
49 CHAR *clip = NULL, *hold = NULL, *p;
50 ULONG len;
51 BOOL ret = FALSE;
52
53 if (text) {
54 len = strlen(text);
55 p = text;
56 while (*p) {
57 if (*p == '\n' && (p == text || *(p - 1) != '\r'))
58 len++;
59 p++;
60 }
61 if (len) {
62 if (WinOpenClipbrd(hab)) {
63 if (append)
64 clip = (CHAR *) WinQueryClipbrdData(hab, CF_TEXT);
65 if (clip)
66 len += strlen(clip) + 1;
67 if (!DosAllocSharedMem((PPVOID) & hold, (PSZ) NULL, len, PAG_COMMIT |
68 OBJ_GIVEABLE | PAG_READ | PAG_WRITE)) {
69 *hold = 0;
70 if (clip)
71 strcpy(hold, clip);
72 p = hold + strlen(hold);
73 strcpy(p, text);
74 while (*p) {
75 if (*p == '\n' && (p == hold || *(p - 1) != '\r')) {
76 memmove(p + 1, p, strlen(p) + 1);
77 *p = '\r';
78 }
79 p++;
80 }
81 WinEmptyClipbrd(hab);
82 if (!WinSetClipbrdData(hab, (ULONG) hold, CF_TEXT, CFI_POINTER))
83 DosFreeMem(hold);
84 else
85 ret = TRUE;
86 }
87 WinCloseClipbrd(hab);
88 }
89 }
90 }
91 return ret;
92}
93
94VOID ListToClipboard(HWND hwnd, CHAR ** list, BOOL append)
95{
96 HAB hab = WinQueryAnchorBlock(hwnd);
97
98 ListToClipboardHab(hab, list, append);
99}
100
101VOID ListToClipboardHab(HAB hab, CHAR ** list, BOOL append)
102{
103 CHAR *text = NULL, **clip = NULL;
104 INT x;
105 ULONG len = 0;
106
107 if (list && list[0]) {
108 for (x = 0; list[x]; x++)
109 len += strlen(list[x]) + 2;
110 if (len)
111 len++;
112 if (len) {
113 if (append)
114 clip = ListFromClipboardHab(hab);
115 if (clip && clip[0]) {
116 for (x = 0; clip[x]; x++)
117 len += strlen(clip[x]) + 2;
118 len++;
119 }
120 if (WinOpenClipbrd(hab)) {
121 if (!DosAllocSharedMem((PPVOID) & text, (PSZ) NULL, len, PAG_COMMIT |
122 OBJ_GIVEABLE | PAG_READ | PAG_WRITE)) {
123 *text = 0;
124 if (clip && clip[0]) {
125 for (x = 0; clip[x]; x++) {
126 strcat(text, clip[x]);
127 strcat(text, "\r\n");
128 }
129 }
130 for (x = 0; list[x]; x++) {
131 strcat(text, list[x]);
132 strcat(text, "\r\n");
133 }
134 WinEmptyClipbrd(hab);
135 if (!WinSetClipbrdData(hab, (ULONG) text, CF_TEXT, CFI_POINTER))
136 DosFreeMem(text);
137 }
138 WinCloseClipbrd(hab);
139 }
140 if (clip)
141 FreeList(clip);
142 }
143 }
144}
145
146CHAR **ListFromClipboard(HWND hwnd)
147{
148 HAB hab = WinQueryAnchorBlock(hwnd);
149
150 return ListFromClipboardHab(hab);
151}
152
153CHAR **ListFromClipboardHab(HAB hab)
154{
155 CHAR *p, *pp, *text = NULL, **list = NULL;
156 INT numfiles = 0, numalloced = 0;
157
158 if (WinOpenClipbrd(hab)) {
159 p = (CHAR *) WinQueryClipbrdData(hab, CF_TEXT);
160 if (p && *p)
161 text = xstrdup(p, pszSrcFile, __LINE__);
162 WinCloseClipbrd(hab);
163 if (text) {
164 bstrip(text);
165 pp = text;
166 p = strchr(pp, '\r');
167 if (!p)
168 p = strchr(pp, '\n');
169 while (p && *p) {
170 *p = 0;
171 p++;
172 while (*p == '\r' || *p == '\n' || *p == ' ' || *p == '\t')
173 p++;
174 rstrip(pp);
175 if (*pp) {
176 if (AddToList(pp, &list, &numfiles, &numalloced))
177 break;
178 }
179 pp = p;
180 p = strchr(pp, '\r');
181 if (!p)
182 p = strchr(pp, '\n');
183 }
184 free(text);
185 }
186 }
187 return list;
188}
189
190MRESULT EXPENTRY SaveListDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
191{
192 HWND hwndCnr;
193 CHAR savename[CCHMAXPATH] = "", pattern[81];
194
195 switch (msg) {
196 case WM_INITDLG:
197 if (!mp2) {
198 Runtime_Error(pszSrcFile, __LINE__, "no data");
199 WinDismissDlg(hwnd, 0);
200 }
201 else {
202 WinSetWindowPtr(hwnd, QWL_USER, mp2);
203 hwndCnr = *(HWND *) mp2;
204 WinSendDlgItemMsg(hwnd,
205 SAV_FILENAME,
206 EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
207 WinSendDlgItemMsg(hwnd,
208 SAV_PATTERN,
209 EM_SETTEXTLIMIT, MPFROM2SHORT(80, 0), MPVOID);
210 *savename = *pattern = 0;
211 {
212 ULONG size;
213
214 size = CCHMAXPATH;
215 PrfQueryProfileData(fmprof,
216 appname, "SaveToListName", savename, &size);
217 size = 81;
218 PrfQueryProfileData(fmprof,
219 appname, "SaveToListPattern", pattern, &size);
220 }
221 WinSetDlgItemText(hwnd, SAV_FILENAME, savename);
222 if (!*pattern)
223 strcpy(pattern, "%F %s");
224 {
225 CHAR temp[162];
226
227 fixup(pattern, temp, sizeof(temp), strlen(pattern));
228 WinSetDlgItemText(hwnd, SAV_PATTERN, temp);
229 }
230 {
231 FILE *fp;
232 CHAR s[CCHMAXPATH + 14];
233
234 save_dir2(s);
235 if (s[strlen(s) - 1] != '\\')
236 strcat(s, "\\");
237 strcat(s, "PATTERNS.DAT");
238 fp = _fsopen(s, "r", SH_DENYWR);
239 if (fp) {
240 while (xfgets(s, 81, fp, pszSrcFile, __LINE__)) {
241 stripcr(s);
242 if (*s && *s != ';')
243 WinSendMsg(WinWindowFromID(hwnd, SAV_LISTBOX), LM_INSERTITEM,
244 MPFROM2SHORT(LIT_SORTASCENDING, 0), MPFROMP(s));
245 }
246 fclose(fp);
247 }
248 if (!WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_QUERYITEMCOUNT,
249 MPVOID, MPVOID))
250 WinEnableWindow(WinWindowFromID(hwnd, SAV_LISTBOX), FALSE);
251 }
252 }
253 break;
254
255 case UM_SETDIR:
256 {
257 SHORT sSelect, sMax;
258 CHAR szBuffer[CCHMAXPATH + 14];
259 FILE *fp;
260
261 sMax = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
262 LM_QUERYITEMCOUNT, MPVOID, MPVOID);
263 if (sMax > 0) {
264 save_dir2(szBuffer);
265 if (szBuffer[strlen(szBuffer) - 1] != '\\')
266 strcat(szBuffer, "\\");
267 strcat(szBuffer, "PATTERNS.DAT");
268 fp = xfopen(szBuffer, "w", pszSrcFile, __LINE__);
269 if (fp) {
270 fputs(GetPString(IDS_LISTPATTERNTEXT), fp);
271 for (sSelect = 0; sSelect < sMax; sSelect++) {
272 *szBuffer = 0;
273 WinSendDlgItemMsg(hwnd,
274 SAV_LISTBOX,
275 LM_QUERYITEMTEXT,
276 MPFROM2SHORT(sSelect, 81), MPFROMP(szBuffer));
277 if (*szBuffer)
278 fprintf(fp, "%s\n", szBuffer);
279 }
280 fclose(fp);
281 }
282 }
283 else if (!sMax) {
284 save_dir2(szBuffer);
285 if (szBuffer[strlen(szBuffer) - 1] != '\\')
286 strcat(szBuffer, "\\");
287 strcat(szBuffer, "PATTERNS.DAT");
288 unlinkf("%s", szBuffer);
289 }
290 }
291 return 0;
292
293 case WM_CONTROL:
294 if (SHORT1FROMMP(mp1) == SAV_LISTBOX) {
295
296 SHORT sSelect;
297 CHAR szBuffer[81];
298
299 switch (SHORT2FROMMP(mp1)) {
300 case LN_SELECT:
301 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
302 LM_QUERYSELECTION,
303 MPFROMSHORT(LIT_FIRST), MPVOID);
304 if (sSelect >= 0) {
305 *szBuffer = 0;
306 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_QUERYITEMTEXT,
307 MPFROM2SHORT(sSelect, 81), MPFROMP(szBuffer));
308 if (*szBuffer)
309 WinSetDlgItemText(hwnd, SAV_PATTERN, szBuffer);
310 }
311 break;
312
313 case LN_ENTER:
314 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
315 break;
316 }
317 }
318 return 0;
319
320 case WM_COMMAND:
321 hwndCnr = *(HWND *) INSTDATA(hwnd);
322 switch (SHORT1FROMMP(mp1)) {
323 case DID_CANCEL:
324 WinDismissDlg(hwnd, 0);
325 break;
326
327 case IDM_HELP:
328 if (hwndHelp)
329 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
330 MPFROM2SHORT(HELP_SAVETOLIST, 0),
331 MPFROMSHORT(HM_RESOURCEID));
332 break;
333
334 case SAV_FIND:
335 {
336 *savename = 0;
337 WinQueryDlgItemText(hwnd, SAV_FILENAME, CCHMAXPATH, savename);
338 if (!*savename)
339 strcpy(savename, "*.LST");
340 if (export_filename(hwnd, savename, 1) && *savename) {
341 if (!strchr(savename, '.'))
342 strcat(savename, ".LST");
343 WinSetDlgItemText(hwnd, SAV_FILENAME, savename);
344 }
345 }
346 break;
347
348 case SAV_ADD:
349 case SAV_DEL:
350 case DID_OK:
351 WinEnableWindow(hwnd, FALSE);
352 {
353 PCNRITEM pci;
354 FILE *fp;
355 CHAR *p, *pp, temp;
356 INT attribute = CRA_CURSORED;
357 SHORT sSelect;
358
359 *pattern = 0;
360 WinQueryDlgItemText(hwnd, SAV_PATTERN, 80, pattern);
361 if (!*pattern) {
362 WinEnableWindow(hwnd, TRUE);
363 DosBeep(150, 100);
364 break;
365 }
366 {
367 switch (SHORT1FROMMP(mp1)) {
368 case SAV_ADD:
369 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
370 LM_SEARCHSTRING,
371 MPFROM2SHORT(0, LIT_FIRST),
372 MPFROMP(pattern));
373 if (sSelect < 0) {
374 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_INSERTITEM,
375 MPFROM2SHORT(LIT_SORTASCENDING, 0),
376 MPFROMP(pattern));
377 WinSendMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
378 }
379 WinEnableWindow(hwnd, TRUE);
380 return 0;
381
382 case SAV_DEL:
383 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
384 LM_QUERYSELECTION,
385 MPFROM2SHORT(LIT_FIRST, 0),
386 MPVOID);
387 if (sSelect >= 0) {
388 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_DELETEITEM,
389 MPFROM2SHORT(sSelect, 0), MPVOID);
390 WinSendMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
391 }
392 WinEnableWindow(hwnd, TRUE);
393 return 0;
394 }
395 }
396 literal(pattern);
397 if (!*pattern) {
398 WinEnableWindow(hwnd, TRUE);
399 DosBeep(250, 100);
400 break;
401 }
402 PrfWriteProfileString(fmprof, appname, "SaveToListPattern", pattern);
403 *savename = 0;
404 WinQueryDlgItemText(hwnd, SAV_FILENAME, CCHMAXPATH, savename);
405 bstrip(savename);
406 if (!*savename) {
407 WinEnableWindow(hwnd, TRUE);
408 DosBeep(100, 100);
409 break;
410 }
411 if (stricmp(savename, "PRN") &&
412 strnicmp(savename, "\\DEV\\LPT", 8) && !strchr(savename, '.'))
413 strcat(savename, ".LST");
414 PrfWriteProfileString(fmprof, appname, "SaveToListName", savename);
415 pci = (PCNRITEM) WinSendMsg(hwndCnr,
416 CM_QUERYRECORDEMPHASIS,
417 MPFROMLONG(CMA_FIRST),
418 MPFROMSHORT(attribute));
419 if (pci && (INT) pci != -1) {
420 if (pci->rc.flRecordAttr & CRA_SELECTED) {
421 attribute = CRA_SELECTED;
422 pci = WinSendMsg(hwndCnr, CM_QUERYRECORDEMPHASIS,
423 MPFROMLONG(CMA_FIRST), MPFROMSHORT(attribute));
424 }
425 }
426 if (!pci || (INT) pci == -1)
427 Runtime_Error(pszSrcFile, __LINE__, "no data");
428 else {
429 fp = _fsopen(savename, "r+", SH_DENYWR);
430 if (!fp)
431 Runtime_Error(pszSrcFile, __LINE__, "_fsopen");
432 else {
433 fseek(fp, 0, SEEK_SET);
434 if (WinQueryButtonCheckstate(hwnd, SAV_APPEND) == 0)
435 DosSetFileSizeL((HFILE) fileno(fp), 0);
436 else
437 fseek(fp, 0, SEEK_END);
438 while (pci && (INT) pci != -1) {
439 if (!(pci->rc.flRecordAttr & CRA_FILTERED)) {
440 p = pattern;
441 while (*p) {
442 if (*p == '%') {
443 p++;
444 switch (*p) {
445 case 's':
446 fputs(pci->pszSubject, fp);
447 break;
448 case 'S':
449 fprintf(fp, "%-40s", pci->pszSubject);
450 break;
451 case 'Z':
452 fprintf(fp, "%-13lu", pci->cbFile);
453 break;
454 case 'z':
455 fprintf(fp, "%lu", pci->cbFile);
456 break;
457 case 'E':
458 fprintf(fp, "%-5u", pci->easize);
459 break;
460 case 'e':
461 fprintf(fp, "%u", pci->easize);
462 break;
463 case 'd':
464 case 'D':
465 fprintf(fp,
466 "%04u/%02u/%02u",
467 pci->date.year, pci->date.month, pci->date.day);
468 break;
469 case 't':
470 case 'T':
471 fprintf(fp,
472 "%02u:%02u:%02u",
473 pci->time.hours,
474 pci->time.minutes, pci->time.seconds);
475 break;
476 case 'l':
477 fputs(pci->pszLongName, fp);
478 break;
479 case 'L':
480 fprintf(fp, "%-40s", pci->pszLongName);
481 break;
482 case 'F':
483 case 'f':
484 if (IsRoot(pci->pszFileName))
485 pp = pci->pszFileName;
486 else {
487 pp = strrchr(pci->pszFileName, '\\');
488 if (pp)
489 pp++;
490 else
491 pp = pci->pszFileName;
492 }
493 if (*p == 'F')
494 fprintf(fp, "%-13s", pp);
495 else
496 fputs(pp, fp);
497 break;
498 case 'p':
499 fputs(pci->pszFileName, fp);
500 break;
501 case 'P':
502 temp = 0;
503 if (!IsRoot(pci->pszFileName)) {
504 pp = strrchr(pci->pszFileName, '\\');
505 if (pp) {
506 temp = *pp;
507 *pp = 0;
508 }
509 }
510 fputs(pci->pszFileName, fp);
511 if (temp)
512 *pp = temp;
513 break;
514 case '$':
515 fputc(*pci->pszFileName, fp);
516 break;
517 case '%':
518 fputc('%', fp);
519 break;
520 }
521 }
522 else
523 fputc(*p, fp);
524 p++;
525 }
526 fputs("\n", fp);
527 }
528 pci = WinSendMsg(hwndCnr, CM_QUERYRECORDEMPHASIS, MPFROMP(pci),
529 MPFROMSHORT(attribute));
530 }
531 fclose(fp);
532 }
533 }
534 }
535 WinEnableWindow(hwnd, TRUE);
536 WinDismissDlg(hwnd, 1);
537 break;
538 }
539 return 0;
540 }
541 return WinDefDlgProc(hwnd, msg, mp1, mp2);
542}
543
544MRESULT EXPENTRY SaveAllListDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
545 MPARAM mp2)
546{
547
548 CHAR **list;
549 CHAR savename[CCHMAXPATH] = "", pattern[81];
550
551 switch (msg) {
552 case WM_INITDLG:
553 if (!mp2) {
554 Runtime_Error(pszSrcFile, __LINE__, "no data");
555 WinDismissDlg(hwnd, 0);
556 }
557 else {
558 WinSetWindowPtr(hwnd, QWL_USER, mp2);
559 list = (CHAR **) mp2;
560 WinSendDlgItemMsg(hwnd,
561 SAV_FILENAME,
562 EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
563 WinSendDlgItemMsg(hwnd,
564 SAV_PATTERN,
565 EM_SETTEXTLIMIT, MPFROM2SHORT(80, 0), MPVOID);
566 *savename = *pattern = 0;
567 {
568 ULONG size;
569
570 size = CCHMAXPATH;
571 PrfQueryProfileData(fmprof,
572 appname, "SaveToListName", savename, &size);
573 size = 81;
574 PrfQueryProfileData(fmprof,
575 appname, "SaveToListPattern", pattern, &size);
576 }
577 WinSetDlgItemText(hwnd, SAV_FILENAME, savename);
578 if (!*pattern)
579 strcpy(pattern, "%F %s");
580 {
581 CHAR temp[162];
582
583 fixup(pattern, temp, sizeof(temp), strlen(pattern));
584 WinSetDlgItemText(hwnd, SAV_PATTERN, temp);
585 }
586 {
587 FILE *fp;
588 CHAR s[CCHMAXPATH + 14];
589
590 save_dir2(s);
591 if (s[strlen(s) - 1] != '\\')
592 strcat(s, "\\");
593 strcat(s, "PATTERNS.DAT");
594 fp = _fsopen(s, "r", SH_DENYWR);
595 if (fp) {
596 while (xfgets(s, 81, fp, pszSrcFile, __LINE__)) {
597 stripcr(s);
598 if (*s && *s != ';')
599 WinSendMsg(WinWindowFromID(hwnd, SAV_LISTBOX), LM_INSERTITEM,
600 MPFROM2SHORT(LIT_SORTASCENDING, 0), MPFROMP(s));
601 }
602 fclose(fp);
603 }
604 if (!WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_QUERYITEMCOUNT,
605 MPVOID, MPVOID))
606 WinEnableWindow(WinWindowFromID(hwnd, SAV_LISTBOX), FALSE);
607 }
608 }
609 break;
610
611 case UM_SETDIR:
612 {
613 SHORT sSelect, sMax;
614 CHAR szBuffer[CCHMAXPATH + 14];
615 FILE *fp;
616
617 sMax = (SHORT) WinSendDlgItemMsg(hwnd,
618 SAV_LISTBOX,
619 LM_QUERYITEMCOUNT, MPVOID, MPVOID);
620 if (sMax > 0) {
621 save_dir2(szBuffer);
622 if (szBuffer[strlen(szBuffer) - 1] != '\\')
623 strcat(szBuffer, "\\");
624 strcat(szBuffer, "PATTERNS.DAT");
625 fp = xfopen(szBuffer, "w", pszSrcFile, __LINE__);
626 if (fp) {
627 fputs(GetPString(IDS_LISTPATTERNTEXT), fp);
628 for (sSelect = 0; sSelect < sMax; sSelect++) {
629 *szBuffer = 0;
630 WinSendDlgItemMsg(hwnd,
631 SAV_LISTBOX,
632 LM_QUERYITEMTEXT,
633 MPFROM2SHORT(sSelect, 81), MPFROMP(szBuffer));
634 if (*szBuffer)
635 fprintf(fp, "%s\n", szBuffer);
636 }
637 fclose(fp);
638 }
639 }
640 else if (!sMax) {
641 save_dir2(szBuffer);
642 if (szBuffer[strlen(szBuffer) - 1] != '\\')
643 strcat(szBuffer, "\\");
644 strcat(szBuffer, "PATTERNS.DAT");
645 unlinkf("%s", szBuffer);
646 }
647 }
648 return 0;
649
650 case WM_CONTROL:
651 if (SHORT1FROMMP(mp1) == SAV_LISTBOX) {
652
653 SHORT sSelect;
654 CHAR szBuffer[81];
655
656 switch (SHORT2FROMMP(mp1)) {
657 case LN_SELECT:
658 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
659 LM_QUERYSELECTION,
660 MPFROMSHORT(LIT_FIRST), MPVOID);
661 if (sSelect >= 0) {
662 *szBuffer = 0;
663 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_QUERYITEMTEXT,
664 MPFROM2SHORT(sSelect, 81), MPFROMP(szBuffer));
665 if (*szBuffer)
666 WinSetDlgItemText(hwnd, SAV_PATTERN, szBuffer);
667 }
668 break;
669
670 case LN_ENTER:
671 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
672 break;
673 }
674 }
675 return 0;
676
677 case WM_COMMAND:
678 list = (CHAR **) INSTDATA(hwnd);
679 switch (SHORT1FROMMP(mp1)) {
680 case DID_CANCEL:
681 WinDismissDlg(hwnd, 0);
682 break;
683
684 case IDM_HELP:
685 if (hwndHelp)
686 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
687 MPFROM2SHORT(HELP_SAVETOLIST, 0),
688 MPFROMSHORT(HM_RESOURCEID));
689 break;
690
691 case SAV_FIND:
692 {
693 *savename = 0;
694 WinQueryDlgItemText(hwnd, SAV_FILENAME, CCHMAXPATH, savename);
695 if (!*savename)
696 strcpy(savename, "*.LST");
697 if (export_filename(hwnd, savename, 1) && *savename) {
698 if (!strchr(savename, '.'))
699 strcat(savename, ".LST");
700 WinSetDlgItemText(hwnd, SAV_FILENAME, savename);
701 }
702 }
703 break;
704
705 case SAV_ADD:
706 case SAV_DEL:
707 case DID_OK:
708 WinEnableWindow(hwnd, FALSE);
709 {
710 FILE *fp;
711 CHAR *p, *pp, temp;
712 INT x = 0;
713 SHORT sSelect;
714 FILEFINDBUF4L ffb4;
715 ULONG nm;
716 HDIR hdir;
717 CHAR longname[CCHMAXPATH], subject[1024];
718
719 *pattern = 0;
720 WinQueryDlgItemText(hwnd, SAV_PATTERN, 80, pattern);
721 if (!*pattern) {
722 WinEnableWindow(hwnd, TRUE);
723 DosBeep(150, 100);
724 break;
725 }
726 {
727 switch (SHORT1FROMMP(mp1)) {
728 case SAV_ADD:
729 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
730 LM_SEARCHSTRING,
731 MPFROM2SHORT(0, LIT_FIRST),
732 MPFROMP(pattern));
733 if (sSelect < 0) {
734 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_INSERTITEM,
735 MPFROM2SHORT(LIT_SORTASCENDING, 0),
736 MPFROMP(pattern));
737 WinSendMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
738 }
739 WinEnableWindow(hwnd, TRUE);
740 return 0;
741
742 case SAV_DEL:
743 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SAV_LISTBOX,
744 LM_QUERYSELECTION,
745 MPFROM2SHORT(LIT_FIRST, 0),
746 MPVOID);
747 if (sSelect >= 0) {
748 WinSendDlgItemMsg(hwnd, SAV_LISTBOX, LM_DELETEITEM,
749 MPFROM2SHORT(sSelect, 0), MPVOID);
750 WinSendMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
751 }
752 WinEnableWindow(hwnd, TRUE);
753 return 0;
754 }
755 }
756 literal(pattern);
757 if (!*pattern) {
758 WinEnableWindow(hwnd, TRUE);
759 DosBeep(250, 100);
760 break;
761 }
762 PrfWriteProfileString(fmprof, appname, "SaveToListPattern", pattern);
763 *savename = 0;
764 WinQueryDlgItemText(hwnd, SAV_FILENAME, CCHMAXPATH, savename);
765 bstrip(savename);
766 if (!*savename) {
767 WinEnableWindow(hwnd, TRUE);
768 DosBeep(100, 100);
769 break;
770 }
771 if (stricmp(savename, "PRN") &&
772 strnicmp(savename, "\\DEV\\LPT", 8) && !strchr(savename, '.'))
773 strcat(savename, ".LST");
774 PrfWriteProfileString(fmprof, appname, "SaveToListName", savename);
775 if (!list || !list[0])
776 Runtime_Error(pszSrcFile, __LINE__, "no data");
777 else {
778 fp = _fsopen(savename, "r+", SH_DENYWR);
779 if (!fp)
780 Runtime_Error(pszSrcFile, __LINE__, "_fsopen");
781 else {
782 fseek(fp, 0, SEEK_SET);
783 if (WinQueryButtonCheckstate(hwnd, SAV_APPEND) == 0)
784 DosSetFileSizeL((HFILE) fileno(fp), 0);
785 else
786 fseek(fp, 0, SEEK_END);
787 while (list[x]) {
788 hdir = HDIR_CREATE;
789 nm = 1;
790 *subject = *longname = 0;
791 if (!xDosFindFirst(list[x], &hdir,
792 FILE_NORMAL | FILE_DIRECTORY |
793 FILE_READONLY | FILE_ARCHIVED |
794 FILE_HIDDEN | FILE_SYSTEM,
795 &ffb4, sizeof(ffb4), &nm, FIL_QUERYEASIZEL)) {
796 /* load the object's Subject, if required */
797 if (ffb4.cbList > 4) {
798 APIRET rc;
799 EAOP2 eaop;
800 PGEA2LIST pgealist;
801 PFEA2LIST pfealist;
802 PGEA2 pgea;
803 PFEA2 pfea;
804 CHAR *value;
805
806 pgealist =
807 xmallocz(sizeof(GEA2LIST) + 64, pszSrcFile, __LINE__);
808 if (pgealist) {
809 pgea = &pgealist->list[0];
810 strcpy(pgea->szName, SUBJECT);
811 pgea->cbName = strlen(pgea->szName);
812 pgea->oNextEntryOffset = 0;
813 pgealist->cbList = sizeof(GEA2LIST) + pgea->cbName;
814 pfealist = xmallocz(1024, pszSrcFile, __LINE__);
815 if (pfealist) {
816 pfealist->cbList = 1024;
817 eaop.fpGEA2List = pgealist;
818 eaop.fpFEA2List = pfealist;
819 eaop.oError = 0;
820 rc = DosQueryPathInfo(list[x],
821 FIL_QUERYEASFROMLIST,
822 (PVOID) & eaop,
823 (ULONG) sizeof(EAOP2));
824 if (!rc) {
825 pfea = &eaop.fpFEA2List->list[0];
826 value = pfea->szName + pfea->cbName + 1;
827 value[pfea->cbValue] = 0;
828 if (*(USHORT *) value == EAT_ASCII)
829 strncpy(subject, value + (sizeof(USHORT) * 2), 1023);
830 subject[1023] = 0;
831 }
832 free(pfealist);
833 }
834 free(pgealist);
835 }
836 }
837 /* load the object's longname */
838 if (ffb4.cbList > 4) {
839 APIRET rc;
840 EAOP2 eaop;
841 PGEA2LIST pgealist;
842 PFEA2LIST pfealist;
843 PGEA2 pgea;
844 PFEA2 pfea;
845 CHAR *value;
846
847 pgealist =
848 xmallocz(sizeof(GEA2LIST) + 64, pszSrcFile, __LINE__);
849 if (pgealist) {
850 pgea = &pgealist->list[0];
851 strcpy(pgea->szName, LONGNAME);
852 pgea->cbName = strlen(pgea->szName);
853 pgea->oNextEntryOffset = 0;
854 pgealist->cbList = sizeof(GEA2LIST) + pgea->cbName;
855 pfealist = xmallocz(1024, pszSrcFile, __LINE__);
856 if (pfealist) {
857 pfealist->cbList = 1024;
858 eaop.fpGEA2List = pgealist;
859 eaop.fpFEA2List = pfealist;
860 eaop.oError = 0L;
861 rc = DosQueryPathInfo(list[x],
862 FIL_QUERYEASFROMLIST,
863 (PVOID) & eaop,
864 (ULONG) sizeof(EAOP2));
865 if (!rc) {
866 pfea = &eaop.fpFEA2List->list[0];
867 value = pfea->szName + pfea->cbName + 1;
868 value[pfea->cbValue] = 0;
869 if (*(USHORT *) value == EAT_ASCII)
870 strncpy(longname, value +
871 (sizeof(USHORT) * 2), CCHMAXPATHCOMP);
872 longname[CCHMAXPATHCOMP - 1] = 0;
873 }
874 free(pfealist);
875 }
876 free(pgealist);
877 }
878 }
879
880 p = pattern;
881 while (*p) {
882 if (*p == '%') {
883 p++;
884 switch (*p) {
885 case 's':
886 fputs(subject, fp);
887 break;
888 case 'S':
889 fprintf(fp, "%-40s", subject);
890 break;
891 case 'Z':
892 fprintf(fp, "%-13lu", ffb4.cbFile);
893 break;
894 case 'z':
895 fprintf(fp, "%lu", ffb4.cbFile);
896 break;
897 case 'E':
898 fprintf(fp, "%-5u", CBLIST_TO_EASIZE(ffb4.cbList));
899 break;
900 case 'e':
901 fprintf(fp, "%u", CBLIST_TO_EASIZE(ffb4.cbList));
902 break;
903 case 'd':
904 case 'D':
905 fprintf(fp,
906 "%04u/%02u/%02u",
907 ffb4.fdateLastWrite.year + 1980,
908 ffb4.fdateLastWrite.month,
909 ffb4.fdateLastWrite.day);
910 break;
911 case 't':
912 case 'T':
913 fprintf(fp,
914 "%02u:%02u:%02u",
915 ffb4.ftimeLastWrite.hours,
916 ffb4.ftimeLastWrite.minutes,
917 ffb4.ftimeLastWrite.twosecs * 2);
918 break;
919 case 'l':
920 fputs(longname, fp);
921 break;
922 case 'L':
923 fprintf(fp, "%-40s", longname);
924 break;
925 case 'F':
926 case 'f':
927 if (IsRoot(list[x]))
928 pp = list[x];
929 else {
930 pp = strrchr(list[x], '\\');
931 if (pp)
932 pp++;
933 else
934 pp = list[x];
935 }
936 if (*p == 'F')
937 fprintf(fp, "%-13s", pp);
938 else
939 fputs(pp, fp);
940 break;
941 case 'p':
942 fputs(list[x], fp);
943 break;
944 case 'P':
945 temp = 0;
946 if (!IsRoot(list[x])) {
947 pp = strrchr(list[x], '\\');
948 if (pp) {
949 temp = *pp;
950 *pp = 0;
951 }
952 }
953 fputs(list[x], fp);
954 if (temp)
955 *pp = temp;
956 break;
957 case '$':
958 fputc(*list[x], fp);
959 break;
960 case '%':
961 fputc('%', fp);
962 break;
963 }
964 }
965 else
966 fputc(*p, fp);
967 p++;
968 }
969 fputs("\n", fp);
970 DosFindClose(hdir);
971 }
972 x++;
973 }
974 fclose(fp);
975 }
976 }
977 }
978 WinEnableWindow(hwnd, TRUE);
979 WinDismissDlg(hwnd, 1);
980 break;
981 }
982 return 0;
983 }
984 return WinDefDlgProc(hwnd, msg, mp1, mp2);
985}
986
987#pragma alloc_text(FMCLIPBOARDIN,SaveToClip,SaveToClipHab)
988#pragma alloc_text(FMCLIPBOARDOUT,ListToClipboard,ListToClipboardHab)
989#pragma alloc_text(FMCLIPBOARDOUT,ListFromClipboard,ListFromClipboardHab)
990#pragma alloc_text(SAVELIST,SaveListDlgProc,SaveAllListDlgProc)
Note: See TracBrowser for help on using the repository browser.