WebSVN – filter_foundry – Blame – /trunk/read.c

Rev	Author	Line No.	Line
256	daniel-mar	1	/*
		2	This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop
		3	Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.com.au
		4	Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft
		5
		6	This program is free software; you can redistribute it and/or modify
		7	it under the terms of the GNU General Public License as published by
		8	the Free Software Foundation; either version 2 of the License, or
		9	(at your option) any later version.
		10
		11	This program is distributed in the hope that it will be useful,
		12	but WITHOUT ANY WARRANTY; without even the implied warranty of
		13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		14	GNU General Public License for more details.
		15
		16	You should have received a copy of the GNU General Public License
		17	along with this program; if not, write to the Free Software
		18	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
		19	*/
		20
		21	#include "ff.h"
		22
		23	#include "file_compat.h"
		24
		25	#ifdef MAC_ENV
		26	#include <Endian.h>
		27	#else
		28	int EndianS32_LtoN(int num) {
272	daniel-mar	29	return ((num>>24)&0xff) + // move byte 3 to byte 0
		30	((num<<8)&0xff0000) + // move byte 1 to byte 2
		31	((num>>8)&0xff00) + // move byte 2 to byte 1
256	daniel-mar	32	((num<<24)&0xff000000); // byte 0 to byte 3
		33	}
		34	#endif
		35
		36	enum{
		37	BUFSIZE = 4L<<10,
		38	MAXLINE = 0x200,
		39	};
		40
		41	Boolean readparams(Handle h,Boolean alerts,char **reason){
		42	Boolean res = false;
		43	char linebuf[MAXLINE+1],curexpr[MAXEXPR+1],p,dataend,*q;
		44	char c;
		45	int linecnt, lineptr, exprcnt;
		46
		47	if(!h){
		48	*reason = _strdup("readparams: Null parameter handle.");
		49	return false;
		50	}
		51
		52	p = PILOCKHANDLE(h,false);
		53	dataend = p + PIGETHANDLESIZE(h);
		54
		55	q = curexpr;
		56	linecnt = exprcnt = lineptr = 0;
		57
		58	*reason = _strdup("File was too short.");
		59	while(p < dataend){
		60
		61	c = *p++;
		62
		63	if(c==CR \|\| c==LF){ /* detected end of line */
		64
		65	/* look ahead to see if we need to skip a line feed (DOS EOL convention) */
		66	if(c == CR && *p == LF && p < dataend)
		67	++p;
		68
		69	linebuf[lineptr] = 0; /* add terminating NUL to line buffer */
		70
		71	/* process complete line */
		72	if(linecnt==0){
		73	if(strcmp(linebuf,"%RGB-1.0")){
		74	if(alerts)
		75	*reason = _strdup("This doesn't look like a Filter Factory file (first line is not \"%RGB-1.0\").");
		76	break;
		77	}
		78	}else if(linecnt<=8){
		79	slider[linecnt-1] = atoi(linebuf);
		80	}else{
		81	if(lineptr){
		82	/* it's not an empty line; append it to current expr string */
		83	if( q+lineptr > curexpr+MAXEXPR ){
		84	*reason = _strdup("Found an expression longer than 1024 characters.");
		85	break;
		86	}
		87	q = cat(q,linebuf);
		88	}else{
		89	/* it's an empty line: we've completed the expr string */
		90	if(expr[exprcnt])
		91	free(expr[exprcnt]);
		92	*q = 0;
		93	if(!(expr[exprcnt] = my_strdup(curexpr))){
		94	*reason = _strdup("Could not get memory for expression.");
		95	break;
		96	}
		97
		98	if(++exprcnt == 4){
		99	res = true;
		100	break; /* got everything we want */
		101	}
		102
		103	q = curexpr; /* empty current expr, ready for next one */
		104	}
		105	}
		106
		107	++linecnt;
		108	lineptr = 0;
		109	}else{
		110	/* store character */
		111	if(c=='\\'){ /* escape sequence */
		112	if(p < dataend){
		113	c = *p++;
		114	switch(c){
		115	case 'r':
268	daniel-mar	116	#if WIN_ENV
		117	c = CR;
		118	if (lineptr < MAXLINE)
274	daniel-mar	119	linebuf[lineptr++] = c;
268	daniel-mar	120	c = LF;
		121	#else
		122	c = CR;
		123	#endif
		124	break;
256	daniel-mar	125	case '\\': break;
		126	default:
		127	if(alerts) alertuser(_strdup("Warning:"),_strdup("Unknown escape sequence in input."));
		128	}
		129	}//else if(alerts) alertuser(_strdup("Warning:"),_strdup("truncated escape sequence ends input"));
		130	}
		131
		132	if(lineptr < MAXLINE)
		133	linebuf[lineptr++] = c;
		134	}
		135	}
		136
		137	PIUNLOCKHANDLE(h);
		138
		139	if (res) *reason = NULL; // no error
		140	return res;
		141	}
		142
		143	void convert_premiere_to_photoshop(PARM_T* photoshop, PARM_T_PREMIERE* premiere) {
		144	int i;
		145
		146	photoshop->cbSize = sizeof(PARM_T);
		147	photoshop->standalone = premiere->standalone;
		148	for (i=0;i<8;++i)
272	daniel-mar	149	photoshop->val[i] = premiere->val[i];
256	daniel-mar	150	photoshop->popDialog = premiere->popDialog;
		151	photoshop->unknown1 = premiere->unknown1;
		152	photoshop->unknown2 = premiere->unknown2;
		153	photoshop->unknown3 = premiere->unknown3;
		154	for (i=0;i<4;++i)
272	daniel-mar	155	photoshop->map_used[i] = premiere->map_used[i];
256	daniel-mar	156	for (i=0;i<8;++i)
272	daniel-mar	157	photoshop->ctl_used[i] = premiere->ctl_used[i];
256	daniel-mar	158	sprintf((char*)photoshop->category, "Filter Factory"); // Premiere plugins do not have a category attribute
		159	photoshop->iProtected = 0; // Premiere plugins do not have a protect flag
		160	memcpy((void)photoshop->title, (void)premiere->title, sizeof(photoshop->title));
		161	memcpy((void)photoshop->copyright, (void)premiere->copyright, sizeof(photoshop->copyright));
		162	memcpy((void)photoshop->author, (void)premiere->author, sizeof(photoshop->author));
		163	for (i=0;i<4;++i)
272	daniel-mar	164	memcpy((void)photoshop->map[i], (void)premiere->map[i], sizeof(photoshop->map[i]));
256	daniel-mar	165	for (i=0;i<8;++i)
272	daniel-mar	166	memcpy((void)photoshop->ctl[i], (void)premiere->ctl[i], sizeof(photoshop->ctl[i]));
256	daniel-mar	167
		168	if (premiere->singleExpression) {
		169	memcpy((void)photoshop->formula[0], (void)premiere->formula[3], sizeof(photoshop->formula[3]));
		170	memcpy((void)photoshop->formula[1], (void)premiere->formula[3], sizeof(photoshop->formula[3]));
		171	memcpy((void)photoshop->formula[2], (void)premiere->formula[3], sizeof(photoshop->formula[3]));
		172	memcpy((void)photoshop->formula[3], (void)premiere->formula[3], sizeof(photoshop->formula[3]));
		173	} else {
		174	memcpy((void)photoshop->formula[0], (void)premiere->formula[2], sizeof(photoshop->formula[2]));
		175	memcpy((void)photoshop->formula[1], (void)premiere->formula[1], sizeof(photoshop->formula[1]));
		176	memcpy((void)photoshop->formula[2], (void)premiere->formula[0], sizeof(photoshop->formula[0]));
		177	memcpy((void)photoshop->formula[3], (void)premiere->formula[3], sizeof(photoshop->formula[3]));
		178	}
		179	}
		180
366	daniel-mar	181	char* _ffx_read_str(char** q) {
		182	uint32_t len;
		183	char* val;
		184
		185	len = ((uint32_t)*q);
		186	*q += sizeof(uint32_t);
		187	val = (char*)malloc(len + 1);
		188	if (val != NULL) {
		189	memcpy(val, (char)q, len);
		190	val[len] = 0;
		191	}
		192	*q += len;
		193	return val;
		194	}
		195
		196	Boolean readfile_ffx(StandardFileReply* sfr, char** reason) {
		197	Handle h;
		198	Boolean res = false;
		199	FILEREF refnum;
		200	uint32_t len;
		201	char* val;
367	daniel-mar	202	int format_version = -1;
366	daniel-mar	203	int i;
		204
		205	if (FSpOpenDF(&sfr->sfFile, fsRdPerm, &refnum) == noErr) {
		206	if ((h = readfileintohandle(refnum))) {
		207	char* q = (char*)PILOCKHANDLE(h, false);
		208
		209	len = ((uint32_t)q);
		210	if (len == 6) {
		211	val = _ffx_read_str(&q);
367	daniel-mar	212	if (strcmp(val, "FFX1.0") == 0) format_version = 10;
		213	else if (strcmp(val, "FFX1.1") == 0) format_version = 11;
		214	else if (strcmp(val, "FFX1.2") == 0) format_version = 12;
366	daniel-mar	215	free(val);
367	daniel-mar	216	if (format_version > 0) {
368	daniel-mar	217	simplewarning(_strdup("Attention! You are loading a \"Filters Unlimited\" file. Please note that Filter Foundry only implements the basic Filter Factory functions. Therefore, most \"Filters Unlimited\" filters won't work with Filter Foundry."));
		218
366	daniel-mar	219	val = _ffx_read_str(&q);
		220	myc2pstrcpy(gdata->parm.title, val);
		221	free(val);
		222
		223	val = _ffx_read_str(&q);
		224	myc2pstrcpy(gdata->parm.category, val);
		225	free(val);
		226
		227	val = _ffx_read_str(&q);
		228	myc2pstrcpy(gdata->parm.author, val);
		229	free(val);
		230
		231	val = _ffx_read_str(&q);
		232	myc2pstrcpy(gdata->parm.copyright, val);
		233	free(val);
		234
		235	// Channels I, R, G, B, A
		236	for (i = 0; i < 4; i++) {
		237	val = _ffx_read_str(&q);
		238	if (i == 0) {
370	daniel-mar	239	char* val2 = _ffx_read_str(&q);
366	daniel-mar	240	if (strcmp(val, "0") != 0) {
		241	// "Intro channel" existing
370	daniel-mar	242	// C++ wrong warning: Using uninitialized memory "val2" (C6001)
		243	#pragma warning(suppress : 6001)
		244	char* combined = (char*)malloc(strlen(val) + strlen(",") + strlen(val2) + 1);
		245	if (combined != NULL) {
		246	sprintf(combined, "%s,%s", val, val2);
		247	free(val);
		248	free(val2);
		249	val = combined;
		250	}
366	daniel-mar	251	}
		252	else {
		253	free(val);
370	daniel-mar	254	val = val2;
366	daniel-mar	255	}
		256	}
368	daniel-mar	257	if (strlen(val) >= sizeof(gdata->parm.formula[i])) {
		258	if (i == 0) {
		259	simplealert("Attention! The formula for channel I/R was too long (longer than 1023 characters) and was truncated.");
		260	}
		261	else if (i == 1) {
		262	simplealert("Attention! The formula for channel G was too long (longer than 1023 characters) and was truncated.");
		263	}
		264	else if (i == 2) {
		265	simplealert("Attention! The formula for channel B was too long (longer than 1023 characters) and was truncated.");
		266	}
		267	else if (i == 3) {
		268	simplealert("Attention! The formula for channel A was too long (longer than 1023 characters) and was truncated.");
		269	}
370	daniel-mar	270	// C++ wrong warning: Buffer overflow (C6386)
		271	#pragma warning(suppress : 6386)
368	daniel-mar	272	val[sizeof(gdata->parm.formula[i]) - 1] = '\0';
		273	}
366	daniel-mar	274	expr[i] = my_strdup(val);
368	daniel-mar	275	strcpy((char*)gdata->parm.formula[i], val); // Attention! This is not a Pascal string!
366	daniel-mar	276	free(val);
		277	}
		278
		279	// Sliders
		280	for (i = 0; i < 8; i++) {
367	daniel-mar	281	char* sliderName;
366	daniel-mar	282	val = _ffx_read_str(&q);
367	daniel-mar	283	sliderName = val;
		284	if (format_version >= 12) {
		285	// Format FFX1.2 has prefixes {S} = Slider, {C} = Checkbox, none = Slider
		286	if ((sliderName[0] == '{') && (sliderName[1] == 'S') && (sliderName[2] == '}')) sliderName += 3;
		287	else if ((sliderName[0] == '{') && (sliderName[1] == 'C') && (sliderName[2] == '}')) sliderName += 3;
		288	}
		289	myc2pstrcpy(gdata->parm.ctl[i], sliderName);
366	daniel-mar	290	free(val);
367	daniel-mar	291	gdata->parm.ctl_used[i] = (bool32_t)((byte)q);
366	daniel-mar	292	q += sizeof(byte);
		293	gdata->parm.val[i] = ((uint32_t)q);
		294	slider[i] = ((uint32_t)q);
		295	q += sizeof(uint32_t);
		296	}
		297
		298	res = true;
		299	}
		300	}
		301	PIDISPOSEHANDLE(h);
		302	}
		303	FSClose(refnum);
		304	}
		305
		306	if (res) gdata->obfusc = false;
		307	return res;
		308	}
		309
373	daniel-mar	310	Boolean readfile_8bf(StandardFileReply sfr,char *reason){
256	daniel-mar	311	unsigned char magic[2];
		312	FILECOUNT count;
		313	Handle h;
		314	Boolean res = false;
		315	FILEREF refnum;
		316
		317	if(FSpOpenDF(&sfr->sfFile,fsRdPerm,&refnum) == noErr){
		318	// check DOS EXE magic number
		319	count = 2;
		320	if(FSRead(refnum,&count,magic) == noErr /&& magic[0]=='M' && magic[1]=='Z'/){
309	daniel-mar	321	if(GetEOF(refnum,(FILEPOS*)&count) == noErr && count < 4096L<<10){ // sanity check file size < 4MiB (note that "Debug" builds can have approx 700 KiB while "Release" builds have approx 300 KiB)
256	daniel-mar	322	if( (h = readfileintohandle(refnum)) ){
		323	long q = (long)PILOCKHANDLE(h,false);
		324
		325	// look for signature at start of valid PARM resource
		326	// This signature is observed in Filter Factory standalones.
		327	for( count /= 4 ; count >= PARM_SIZE/4 ; --count, ++q )
		328	{
		329
268	daniel-mar	330	#ifdef MAC_ENV
256	daniel-mar	331	// Case #1: Mac is reading Windows (Win16/32/64) plugin
		332	if( ((EndianS32_LtoN(q[0]) == PARM_SIZE) \|\|
		333	(EndianS32_LtoN(q[0]) == PARM_SIZE_PREMIERE) \|\|
		334	(EndianS32_LtoN(q[0]) == PARM_SIG_MAC)) && EndianS32_LtoN(q[1]) == 1
		335	&& (res = readPARM((char)q, &gdata->parm, reason, 1 /Windows format resource*/)) )
		336	{
		337	// these are the only numeric fields we have to swap
		338	// all the rest are flags which (if we're careful) will work in either ordering
		339	for(i = 0; i < 8; ++i)
		340	slider[i] = EndianS32_LtoN(slider[i]);
		341	}
268	daniel-mar	342	#else
256	daniel-mar	343	// Case #2: Windows is reading a Windows plugin (if Resource API failed, e.g. Win64 tries to open NE file, Win32 tries to open 64bit file)
		344	if( ((q[0] == PARM_SIZE) \|\|
		345	(q[0] == PARM_SIZE_PREMIERE) \|\|
		346	(q[0] == PARM_SIG_MAC)) && q[1] == 1
308	daniel-mar	347	&& (res = readPARM((char)q, &gdata->parm, reason, 1/fromwin*/)))
256	daniel-mar	348	{
		349	}
		350
339	daniel-mar	351	// Case #3: Windows is reading an old FilterFactory Mac file
		352	// Note: You must read the ".rsrc" resource fork, not the standalone binary!
256	daniel-mar	353	else if( ((EndianS32_LtoN(q[0]) == PARM_SIZE) \|\|
		354	(EndianS32_LtoN(q[0]) == PARM_SIZE_PREMIERE) \|\|
		355	(EndianS32_LtoN(q[0]) == PARM_SIG_MAC)) && EndianS32_LtoN(q[1]) == 1
		356	&& (res = readPARM((char)q, &gdata->parm, reason, 0 /Strings are already PStrings*/)) )
		357	{
339	daniel-mar	358	// Note: slider[i] = EndianS32_LtoN(slider[i]); will be done in readPARM()
		359	// All the rest are flags which (if we're careful) will work in either ordering
		360
341	daniel-mar	361	// Convert '\r' in the copyright field to '\r\n'.
		362	int i, j;
339	daniel-mar	363	for (i = 1; i < gdata->parm.copyright[0]; i++) {
		364	if (gdata->parm.copyright[i] == '\r') {
341	daniel-mar	365	for (j = gdata->parm.copyright[0]; j>i; j--) {
		366	gdata->parm.copyright[j+1] = gdata->parm.copyright[j];
		367	}
		368	gdata->parm.copyright[0]++;
		369	gdata->parm.copyright[i+1] = '\n';
339	daniel-mar	370	}
		371	}
256	daniel-mar	372	}
268	daniel-mar	373	#endif
256	daniel-mar	374
		375	if (res) break;
		376	}
341	daniel-mar	377
256	daniel-mar	378	PIDISPOSEHANDLE(h);
		379	}
		380	}
		381	} // else no point in proceeding
		382	FSClose(refnum);
		383	}else
		384	*reason = _strdup("Could not open file.");
		385
		386	if (res) gdata->obfusc = false;
		387	return res;
		388	}
		389
		390	Boolean readPARM(Ptr p,PARM_T pparm,char *reasonstr,int fromwin){
		391	int i;
		392
		393	if (((unsigned int)p) == PARM_SIZE_PREMIERE) {
		394	convert_premiere_to_photoshop(pparm, (PARM_T_PREMIERE*)p);
		395	} else {
		396	// Assume it is Photoshop. Signature either PARM_SIZE (0x2068) or 0x1C68
		397	memcpy(pparm,p,sizeof(PARM_T));
		398	}
		399
		400	if(fromwin){
		401	/* Windows PARM resource stores C strings - convert to Pascal strings */
		402	myc2pstr((char*)pparm->category);
		403	myc2pstr((char*)pparm->title);
		404	myc2pstr((char*)pparm->copyright);
		405	myc2pstr((char*)pparm->author);
		406	for(i = 0; i < 4; ++i)
		407	myc2pstr((char*)pparm->map[i]);
		408	for(i = 0; i < 8; ++i)
		409	myc2pstr((char*)pparm->ctl[i]);
		410	}
		411
		412	for(i = 0; i < 4; ++i){
		413	if(expr[i]) free(expr[i]);
366	daniel-mar	414	expr[i] = my_strdup((char*)pparm->formula[i]);
256	daniel-mar	415	}
		416
339	daniel-mar	417	for (i = 0; i < 8; ++i) {
		418	if (pparm->val[i] > 0xFF) {
		419	// Wrong endianess (e.g. reading a Mac rsrc on Windows)
		420	slider[i] = (uint8_t)EndianS32_LtoN(pparm->val[i]);
		421	}
		422	else {
		423	slider[i] = (uint8_t)pparm->val[i];
		424	}
		425	}
256	daniel-mar	426
		427	return true;
		428	}
		429
		430	Handle readfileintohandle(FILEREF r){
		431	FILEPOS n;
		432	Handle h;
		433	Ptr p;
		434
		435	if( GetEOF(r,&n) == noErr && (h = PINEWHANDLE(n)) ){
		436	p = PILOCKHANDLE(h,false);
		437	if(SetFPos(r,fsFromStart,0) == noErr && FSRead(r,(FILECOUNT*)&n,p) == noErr){
		438	PIUNLOCKHANDLE(h);
		439	return h;
		440	}
		441	PIDISPOSEHANDLE(h);
		442	}
		443	return NULL;
		444	}
		445
366	daniel-mar	446	Boolean readfile_afs_pff(StandardFileReply sfr,char *reason){
256	daniel-mar	447	FILEREF r;
		448	Handle h;
		449	Boolean res = false;
		450
		451	if(FSpOpenDF(&sfr->sfFile,fsRdPerm,&r) == noErr){
		452	if( (h = readfileintohandle(r)) ){
		453	if( (res = readparams(h,true,reason)) ) {
		454	gdata->standalone = false; // so metadata fields will default, if user chooses Make...
		455
		456	if (fileHasExtension(sfr, ".pff")) {
		457	// If it is a Premiere settings file, we need to swap the channels red and blue
263	daniel-mar	458	// We just swap the pointers!
256	daniel-mar	459	char* tmp;
263	daniel-mar	460	tmp = expr[0];
		461	expr[0] = expr[2];
		462	expr[2] = tmp;
256	daniel-mar	463	}
		464	}
		465
		466	PIDISPOSEHANDLE(h);
		467	}
		468	FSClose(r);
		469	}else
		470	*reason = _strdup("Could not open the file.");
		471
		472	return res;
		473	}

Subversion Repositories filter_foundry

filter_foundry/trunk/read.c – Rev 373