Context Navigation

source: trunk/dll/saveclip.c@ 1525

Visit:

Last change on this file since 1525 was 1525, checked in by Gregg Young, 15 years ago
Fix save list files so it appends to a file when the append checkbox is selected (ticket 436)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.8 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: