Context Navigation

source: trunk/dll/saveclip.c@ 1118

Visit:

Last change on this file since 1118 was 1118, checked in by Gregg Young, 17 years ago
Clean up of fix for trap caused by FM/2 being on a full disk. It now preserves the data files. (Ticket 152, 271)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 24.9 KB

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

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

Download in other formats: