source: trunk/dll/saveclip.c@ 775

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

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