source: trunk/dll/saveclip.c@ 551

Last change on this file since 551 was 551, checked in by Gregg Young, 19 years ago

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