Context Navigation

source: trunk/dll/saveclip.c@ 1400

Visit:

Last change on this file since 1400 was 1400, checked in by Gregg Young, 17 years ago
Remainder of changes to rename commafmt.h/c (Ticket 28, 82); Additional strings moved to PCSZs in init.c (Ticket 6); Added WriteDetailsSwitches used it and LoadDetailsSwitches to consolidate inline code (Ticket 343, 344)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.6 KB

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

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

Download in other formats: