Context Navigation

source: trunk/dll/saveclip.c@ 1481

Visit:

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

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

Download in other formats: