Context Navigation

saveclip.c@ 1790

Visit:

Last change on this file since 1790 was 1673, checked in by Gregg Young, 13 years ago
Update to Doxygen comment style Ticket 55. Also some minor code cleanup.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 27.1 KB

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

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

Context Navigation

source: trunk/dll/saveclip.c@ 1790

Download in other formats: