WebSVN – filter_foundry – Diff – /trunk/make_mac.c


/*
    This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop
    Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.com.au
    Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
 
#include <plstringfuncs.h>
#include <ASRegistry.h>
#include <ctype.h>
 
#include "ff.h"
 
#include "file_compat.h"
 
// MoreFiles headers
#include "FileCopy.h"
#include "MoreFilesExtras.h"
 
// prototype for a function included in Carbon's stdlib and declared in /usr/include/string.h
// but missing from MPW Universal header string.h
#ifndef _STRING_H_
        char *strnstr(const char *, const char *, size_t);
#endif
 
static OSErr doresources(FSSpec *srcplug, FSSpec *rsrccopy){
        short srcrn,dstrn;
        Handle hpipl,h;
        long origsize,newsize,parm_type,parm_id;
        OSErr e = noErr;
        Str255 title, category;
        long event_id;
 
        #ifdef MACMACHO
        FSRef inref,outref;
        // work with resources in data fork
        if( !(e = FSpMakeFSRef(srcplug,&inref))
         && !(e = FSOpenResourceFile(&inref,0/*forkNameLength*/,NULL/*forkName*/,fsRdPerm,&srcrn))
         && ((e = FSpMakeFSRef(rsrccopy,&outref))
                 || (e = FSOpenResourceFile(&outref,0/*forkNameLength*/,NULL/*forkName*/,fsWrPerm,&dstrn))) )
                CloseResFile(srcrn);
        #else
        // ordinary resource fork files
        srcrn = FSpOpenResFile(srcplug,fsRdPerm);
        if(srcrn != -1){
                dstrn = FSpOpenResFile(rsrccopy,fsWrPerm);
                if(dstrn == -1){
                        e = ResError();
                        CloseResFile(srcrn);
                }
        }else e = ResError();
        #endif
 
        if(!e){
                /* create a new PiPL resource for the standalone plugin,
                   with updated title and category strings */
 
                if( (hpipl = Get1Resource('tpLT',16000))
                 && (h = Get1Resource('PiPL',16000)) )
                {
                        RemoveResource(h);
 
                        DetachResource(hpipl);
 
                        myc2pstrcpy(title,gdata->parm.szTitle);
                        if(gdata->parm.popDialog)
                                PLstrcat(title,"\pÉ");
                       
                        myc2pstrcpy(category,gdata->parm.szCategory);
 
                        origsize = GetHandleSize(hpipl);
                        SetHandleSize(hpipl,origsize+0x300); /* some slop for fixup to work with */
                        HLock(hpipl);
                        newsize = fixpipl((PIPropertyList*) *hpipl,origsize,title,gdata->parm.szCategory,category,&event_id);
                        HUnlock(hpipl);
                        SetHandleSize(hpipl,newsize);
 
                        AddResource(hpipl,'PiPL',16000,"\p");
 
                        /* convert C strings to Pascal strings */
                        PARM_T pascal_parm = (PARM_T)malloc(sizeof(PARM_T));
                        memcpy(pascal_parm, gdata->parm, sizeof(PARM_T));
                        myc2pstr(pascal_parm->szCategory);
                        myc2pstr(pascal_parm->szTitle);
                        myc2pstr(pascal_parm->szCopyright);
                        myc2pstr(pascal_parm->szAuthor);
                        for (i = 0; i < 4; ++i)
                                myc2pstr(pascal_parm->szMap[i]);
                        for (i = 0; i < 8; ++i)
                                myc2pstr(pascal_parm->szCtl[i]);
 
                        if( !(e = ResError()) ){
                                /* do a similar trick with the terminology resource,
                                   so the scripting system can distinguish the standalone plugin */
 
                                if( (h = Get1Resource(typeAETE,AETE_ID)) ){
                                        SetHandleSize(h,4096);
                                        HLock(h);
                                        newsize = aete_generate((unsigned char*)*h, &pascal_parm, event_id);
                                        HUnlock(h);
                                        SetHandleSize(h,newsize);
 
                                        ChangedResource(h);
 
                                        if( !(e = ResError()) ){
                                                /* add PARM resource */
                                                if( !(e = PtrToHand(&pascal_parm,&h,sizeof(PARM_T))) ){
                                                        if(gdata->obfusc){
                                                                HLock(h);
                                                                obfusc((PARM_T*)*h);
                                                                HUnlock(h);
                                                                parm_type = OBFUSCDATA_TYPE_NEW;
                                                                parm_id = OBFUSCDATA_ID_NEW;
                                                        }else{
                                                                parm_type = PARM_TYPE;
                                                                parm_id = PARM_ID_NEW;
                                                        }
                                                        AddResource(h,parm_type,parm_id,"\p");
                                                }
                                        }
                                }
 
                        }
 
                }
                if(!e)
                        e = ResError();
 
                CloseResFile(dstrn);
                CloseResFile(srcrn);
        }
 
        return e;
}
 
static int copyletters(char *dst,char* src){
        int i, n;
 
        for(i=0; i<strlen(src); ++i) {
                if(isalpha(src[i])){
                        *dst++ = src[i];
                        ++n;
                }
        }
 
        return n;
}
 
// Info.plist in new standalone copy needs to be edited -
// at least the CFBundleIdentifier property must be unique
 
static OSErr copyplist(FSSpec *fss, short dstvol, long dstdir){
        static char *key = "com.telegraphics.FilterFoundry";
        static unsigned char *fname="\pInfo.plist";
        char *buf,*save,*p;
        short rn,dstrn,i,n,m;
        FILEPOS eof;
        FILECOUNT count;
        OSErr e;
 
        if( !(e = HCreate(dstvol,dstdir,fname,'pled','TEXT')) ){
                if( !(e = HOpenDF(dstvol,dstdir,fname,fsWrPerm,&dstrn)) ){
                        if( !(e = FSpOpenDF(fss,fsRdPerm,&rn)) ){
                                if( !(e = GetEOF(rn,&eof)) && (buf = malloc(eof+1024)) ){
                                        if( !(e = FSRead(rn,&eof,buf)) ){
                                                buf[eof] = 0;
                                                if( (p = strnstr(buf,key,eof)) && (save = malloc(eof-(p-buf)+1)) ){
                                                        p += strlen(key);
                                                        // store text after matched string
                                                        strcpy(save,p);
 
                                                        *p++ = '.';
                                                        n = copyletters(p,gdata->parm.szCategory);
                                                        p += n;
                                                        if(n) *p++ = '.';
                                                        m = copyletters(p,gdata->parm.szTitle);
                                                        p += m;
                                                        if(!m){
                                                                // generate a random ASCII identifier
                                                                srand(TICKCOUNT());
                                                                for(i = 8; i--;)
                                                                        *p++ = 'a' + (rand() % 26);
                                                        }
                                                        strcpy(p,save);
 
                                                        count = strlen(buf);
                                                        e = FSWrite(dstrn,&count,buf);
 
                                                        free(save);
                                                }else e = paramErr; // not found?? shouldn't happen
                                        }
                                        free(buf);
                                }
                                FSClose(rn);
                        }
                        FSClose(dstrn);
                }
                if(e) HDelete(dstvol,dstdir,fname);
        }
        return e;
}
 
static OSErr make_bundle(StandardFileReply *sfr, short plugvol,
                                                 long plugdir, StringPtr plugname, char *reason)
{
        short dstvol = sfr->sfFile.vRefNum;
        long bundledir,contentsdir,macosdir,rsrcdir;
        DInfo fndrInfo;
        OSErr e;
        FSSpec fss,macosfss,rsrcfss,rsrccopyfss;
        char *why;
 
        if( !(e = FSpDirCreate(&sfr->sfFile,sfr->sfScript,&bundledir)) ){
                if(!(e = FSpGetDInfo(&sfr->sfFile,&fndrInfo)) ){
                        fndrInfo.frFlags |= kHasBundle;
                        FSpSetDInfo(&sfr->sfFile,&fndrInfo);
                }
                if( !(e = DirCreate(dstvol,bundledir,"\pContents",&contentsdir)) ){
                        if( !(e = DirCreate(dstvol,contentsdir,"\pMacOS",&macosdir)) ){
                                if( !(e = DirCreate(dstvol,contentsdir,"\pResources",&rsrcdir)) ){
                                        /* copy the Info.plist file, resource file, and executable */
                                        if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::MacOS:FilterFoundry",&macosfss))
                                         && !(e = FileCopy(macosfss.vRefNum,macosfss.parID,macosfss.name, dstvol,macosdir,NULL, NULL,NULL,0,false)) )
                                        {
                                                /* add PARM resources to each binary, and edit PiPLs */
                                                if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Resources:FilterFoundry.rsrc",&rsrcfss))
                                                 && !(e = FileCopy(rsrcfss.vRefNum,rsrcfss.parID,rsrcfss.name, dstvol,rsrcdir,NULL, NULL,NULL,0,false))
                                                 && !(e = FSMakeFSSpec(dstvol,rsrcdir,"\pFilterFoundry.rsrc",&rsrccopyfss)) )
                                                {
                                                        if( !(e = doresources(&rsrcfss, &rsrccopyfss))
                                                         && !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Info.plist",&fss)) )
                                                        {
                                                                e = copyplist(&fss,dstvol,contentsdir);
                                                                if(e){
                                                                        FSpDelete(&rsrccopyfss);
                                                                        why = "Can't copy Info.plist file.";
                                                                }
                                                        }else why = "Can't copy resources.";
                                                        if(e) HDelete(dstvol,macosdir,"\pFilterFoundry");
                                                }else why = "Can't copy FilterFoundry.rsrc file.";
                                                if(e) HDelete(dstvol,rsrcdir,plugname);
                                        }else why = "Can't copy FilterFoundry executable.";
                                        if(e) HDelete(dstvol,contentsdir,"\pResources");
                                }else why = "Can't create bundle Contents/Resources directory.";
                                if(e) HDelete(dstvol,contentsdir,"\pMacOS");
                        }else why = "Can't create bundle Contents/MacOS directory.";
                        if(e) HDelete(dstvol,bundledir,"\pContents");
                }else why = "Can't create bundle Contents directory.";
                if(e) FSpDelete(&sfr->sfFile);
        }else why = "Can't create new bundle directory.";
 
        if(e)
                sprintf(reason, "%s (%d)", why, e);
        else
                reason[0] = 0;
 
        return e;
}
 
static OSErr make_singlefile(StandardFileReply *sfr, short plugvol, long plugdir, StringPtr plugname){
        OSErr e;
        FSSpec origfss;
 
        e = FSpDelete(&sfr->sfFile);
        if(e && e != fnfErr){
                alertuser(_strdup("Can't replace the existing file. Try a different name or location."),_strdup(""));
                return userCanceledErr;
        }
 
        if( !(e = FileCopy(plugvol,plugdir,plugname, sfr->sfFile.vRefNum,sfr->sfFile.parID,NULL, sfr->sfFile.name,NULL,0,false))
         && !(e = FSMakeFSSpec(plugvol,plugdir,plugname,&origfss)) )
                /* add PARM resources, and edit PiPL */
                e = doresources(&origfss, &sfr->sfFile);
 
        return e;
}
 
OSErr make_standalone(StandardFileReply *sfr){
        OSErr e;
        short plugvol;
        long plugdir;
        Str255 plugname;
        char reason[0x100] = {0};
 
        if(!(e = GetFileLocation(CurResFile(),&plugvol,&plugdir,plugname))){
                #ifdef MACMACHO
                e = make_bundle(sfr,plugvol,plugdir,plugname,reason);
                #else
                e = make_singlefile(sfr,plugvol,plugdir,plugname);
                #endif
        }
 
        if(e && e != userCanceledErr) {
                alertuser(_strdup("Could not create standalone plugin."),reason);
        } else {
                showmessage(_strdup("Filter was sucessfully created"));
        }
 
        return e;
}
 

Rev 511	Rev 515
1	/*	1	/*
2	This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop	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	3	Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.com.au
4	Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft	4	Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft
5		5
6	This program is free software; you can redistribute it and/or modify	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	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	8	the Free Software Foundation; either version 2 of the License, or
9	(at your option) any later version.	9	(at your option) any later version.
10		10
11	This program is distributed in the hope that it will be useful,	11	This program is distributed in the hope that it will be useful,
12	but WITHOUT ANY WARRANTY; without even the implied warranty of	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	GNU General Public License for more details.	14	GNU General Public License for more details.
15		15
16	You should have received a copy of the GNU General Public License	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	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	18	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19	*/	19	*/
20		20
21	#include <plstringfuncs.h>	21	#include <plstringfuncs.h>
22	#include <ASRegistry.h>	22	#include <ASRegistry.h>
23	#include <ctype.h>	23	#include <ctype.h>
24		24
25	#include "ff.h"	25	#include "ff.h"
26		26
27	#include "file_compat.h"	27	#include "file_compat.h"
28		28
29	// MoreFiles headers	29	// MoreFiles headers
30	#include "FileCopy.h"	30	#include "FileCopy.h"
31	#include "MoreFilesExtras.h"	31	#include "MoreFilesExtras.h"
32		32
33	// prototype for a function included in Carbon's stdlib and declared in /usr/include/string.h	33	// prototype for a function included in Carbon's stdlib and declared in /usr/include/string.h
34	// but missing from MPW Universal header string.h	34	// but missing from MPW Universal header string.h
35	#ifndef _STRING_H_	35	#ifndef _STRING_H_
36	char strnstr(const char , const char *, size_t);	36	char strnstr(const char , const char *, size_t);
37	#endif	37	#endif
38		38
39	static OSErr doresources(FSSpec srcplug, FSSpec rsrccopy){	39	static OSErr doresources(FSSpec srcplug, FSSpec rsrccopy){
40	short srcrn,dstrn;	40	short srcrn,dstrn;
41	Handle hpipl,h;	41	Handle hpipl,h;
42	long origsize,newsize,parm_type,parm_id;	42	long origsize,newsize,parm_type,parm_id;
43	OSErr e = noErr;	43	OSErr e = noErr;
44	Str255 title, category;	44	Str255 title, category;
45	long event_id;	45	long event_id;
46		46
47	#ifdef MACMACHO	47	#ifdef MACMACHO
48	FSRef inref,outref;	48	FSRef inref,outref;
49	// work with resources in data fork	49	// work with resources in data fork
50	if( !(e = FSpMakeFSRef(srcplug,&inref))	50	if( !(e = FSpMakeFSRef(srcplug,&inref))
51	&& !(e = FSOpenResourceFile(&inref,0/forkNameLength/,NULL/forkName/,fsRdPerm,&srcrn))	51	&& !(e = FSOpenResourceFile(&inref,0/forkNameLength/,NULL/forkName/,fsRdPerm,&srcrn))
52	&& ((e = FSpMakeFSRef(rsrccopy,&outref))	52	&& ((e = FSpMakeFSRef(rsrccopy,&outref))
53	\|\| (e = FSOpenResourceFile(&outref,0/forkNameLength/,NULL/forkName/,fsWrPerm,&dstrn))) )	53	\|\| (e = FSOpenResourceFile(&outref,0/forkNameLength/,NULL/forkName/,fsWrPerm,&dstrn))) )
54	CloseResFile(srcrn);	54	CloseResFile(srcrn);
55	#else	55	#else
56	// ordinary resource fork files	56	// ordinary resource fork files
57	srcrn = FSpOpenResFile(srcplug,fsRdPerm);	57	srcrn = FSpOpenResFile(srcplug,fsRdPerm);
58	if(srcrn != -1){	58	if(srcrn != -1){
59	dstrn = FSpOpenResFile(rsrccopy,fsWrPerm);	59	dstrn = FSpOpenResFile(rsrccopy,fsWrPerm);
60	if(dstrn == -1){	60	if(dstrn == -1){
61	e = ResError();	61	e = ResError();
62	CloseResFile(srcrn);	62	CloseResFile(srcrn);
63	}	63	}
64	}else e = ResError();	64	}else e = ResError();
65	#endif	65	#endif
66		66
67	if(!e){	67	if(!e){
68	/* create a new PiPL resource for the standalone plugin,	68	/* create a new PiPL resource for the standalone plugin,
69	with updated title and category strings */	69	with updated title and category strings */
70		70
71	if( (hpipl = Get1Resource('tpLT',16000))	71	if( (hpipl = Get1Resource('tpLT',16000))
72	&& (h = Get1Resource('PiPL',16000)) )	72	&& (h = Get1Resource('PiPL',16000)) )
73	{	73	{
74	RemoveResource(h);	74	RemoveResource(h);
75		75
76	DetachResource(hpipl);	76	DetachResource(hpipl);
77		77
78	myc2pstrcpy(title,gdata->parm.szTitle);	78	myc2pstrcpy(title,gdata->parm.szTitle);
79	if(gdata->parm.popDialog)	79	if(gdata->parm.popDialog)
80	PLstrcat(title,"\pÉ");	80	PLstrcat(title,"\pÉ");
81		81
82	myc2pstrcpy(category,gdata->parm.szCategory);	82	myc2pstrcpy(category,gdata->parm.szCategory);
83		83
84	origsize = GetHandleSize(hpipl);	84	origsize = GetHandleSize(hpipl);
85	SetHandleSize(hpipl,origsize+0x300); /* some slop for fixup to work with */	85	SetHandleSize(hpipl,origsize+0x300); /* some slop for fixup to work with */
86	HLock(hpipl);	86	HLock(hpipl);
87	newsize = fixpipl((PIPropertyList) hpipl,origsize,title,category,&event_id);	87	newsize = fixpipl((PIPropertyList) hpipl,origsize,title,gdata->parm.szCategory,category,&event_id);
88	HUnlock(hpipl);	88	HUnlock(hpipl);
89	SetHandleSize(hpipl,newsize);	89	SetHandleSize(hpipl,newsize);
90		90
91	AddResource(hpipl,'PiPL',16000,"\p");	91	AddResource(hpipl,'PiPL',16000,"\p");
92		92
93	/* convert C strings to Pascal strings */	93	/* convert C strings to Pascal strings */
94	PARM_T pascal_parm = (PARM_T)malloc(sizeof(PARM_T));	94	PARM_T pascal_parm = (PARM_T)malloc(sizeof(PARM_T));
95	memcpy(pascal_parm, gdata->parm, sizeof(PARM_T));	95	memcpy(pascal_parm, gdata->parm, sizeof(PARM_T));
96	myc2pstr(pascal_parm->szCategory);	96	myc2pstr(pascal_parm->szCategory);
97	myc2pstr(pascal_parm->szTitle);	97	myc2pstr(pascal_parm->szTitle);
98	myc2pstr(pascal_parm->szCopyright);	98	myc2pstr(pascal_parm->szCopyright);
99	myc2pstr(pascal_parm->szAuthor);	99	myc2pstr(pascal_parm->szAuthor);
100	for (i = 0; i < 4; ++i)	100	for (i = 0; i < 4; ++i)
101	myc2pstr(pascal_parm->szMap[i]);	101	myc2pstr(pascal_parm->szMap[i]);
102	for (i = 0; i < 8; ++i)	102	for (i = 0; i < 8; ++i)
103	myc2pstr(pascal_parm->szCtl[i]);	103	myc2pstr(pascal_parm->szCtl[i]);
104		104
105	if( !(e = ResError()) ){	105	if( !(e = ResError()) ){
106	/* do a similar trick with the terminology resource,	106	/* do a similar trick with the terminology resource,
107	so the scripting system can distinguish the standalone plugin */	107	so the scripting system can distinguish the standalone plugin */
108		108
109	if( (h = Get1Resource(typeAETE,AETE_ID)) ){	109	if( (h = Get1Resource(typeAETE,AETE_ID)) ){
110	SetHandleSize(h,4096);	110	SetHandleSize(h,4096);
111	HLock(h);	111	HLock(h);
112	newsize = aete_generate((unsigned char)h, &pascal_parm, event_id);	112	newsize = aete_generate((unsigned char)h, &pascal_parm, event_id);
113	HUnlock(h);	113	HUnlock(h);
114	SetHandleSize(h,newsize);	114	SetHandleSize(h,newsize);
115		115
116	ChangedResource(h);	116	ChangedResource(h);
117		117
118	if( !(e = ResError()) ){	118	if( !(e = ResError()) ){
119	/* add PARM resource */	119	/* add PARM resource */
120	if( !(e = PtrToHand(&pascal_parm,&h,sizeof(PARM_T))) ){	120	if( !(e = PtrToHand(&pascal_parm,&h,sizeof(PARM_T))) ){
121	if(gdata->obfusc){	121	if(gdata->obfusc){
122	HLock(h);	122	HLock(h);
123	obfusc((PARM_T)h);	123	obfusc((PARM_T)h);
124	HUnlock(h);	124	HUnlock(h);
125	parm_type = OBFUSCDATA_TYPE_NEW;	125	parm_type = OBFUSCDATA_TYPE_NEW;
126	parm_id = OBFUSCDATA_ID_NEW;	126	parm_id = OBFUSCDATA_ID_NEW;
127	}else{	127	}else{
128	parm_type = PARM_TYPE;	128	parm_type = PARM_TYPE;
129	parm_id = PARM_ID_NEW;	129	parm_id = PARM_ID_NEW;
130	}	130	}
131	AddResource(h,parm_type,parm_id,"\p");	131	AddResource(h,parm_type,parm_id,"\p");
132	}	132	}
133	}	133	}
134	}	134	}
135		135
136	}	136	}
137		137
138	}	138	}
139	if(!e)	139	if(!e)
140	e = ResError();	140	e = ResError();
141		141
142	CloseResFile(dstrn);	142	CloseResFile(dstrn);
143	CloseResFile(srcrn);	143	CloseResFile(srcrn);
144	}	144	}
145		145
146	return e;	146	return e;
147	}	147	}
148		148
149	static int copyletters(char dst,char src){	149	static int copyletters(char dst,char src){
150	int i, n;	150	int i, n;
151		151
152	for(i=0; i<strlen(src); ++i) {	152	for(i=0; i<strlen(src); ++i) {
153	if(isalpha(src[i])){	153	if(isalpha(src[i])){
154	*dst++ = src[i];	154	*dst++ = src[i];
155	++n;	155	++n;
156	}	156	}
157	}	157	}
158		158
159	return n;	159	return n;
160	}	160	}
161		161
162	// Info.plist in new standalone copy needs to be edited -	162	// Info.plist in new standalone copy needs to be edited -
163	// at least the CFBundleIdentifier property must be unique	163	// at least the CFBundleIdentifier property must be unique
164		164
165	static OSErr copyplist(FSSpec *fss, short dstvol, long dstdir){	165	static OSErr copyplist(FSSpec *fss, short dstvol, long dstdir){
166	static char *key = "com.telegraphics.FilterFoundry";	166	static char *key = "com.telegraphics.FilterFoundry";
167	static unsigned char *fname="\pInfo.plist";	167	static unsigned char *fname="\pInfo.plist";
168	char buf,save,*p;	168	char buf,save,*p;
169	short rn,dstrn,i,n,m;	169	short rn,dstrn,i,n,m;
170	FILEPOS eof;	170	FILEPOS eof;
171	FILECOUNT count;	171	FILECOUNT count;
172	OSErr e;	172	OSErr e;
173		173
174	if( !(e = HCreate(dstvol,dstdir,fname,'pled','TEXT')) ){	174	if( !(e = HCreate(dstvol,dstdir,fname,'pled','TEXT')) ){
175	if( !(e = HOpenDF(dstvol,dstdir,fname,fsWrPerm,&dstrn)) ){	175	if( !(e = HOpenDF(dstvol,dstdir,fname,fsWrPerm,&dstrn)) ){
176	if( !(e = FSpOpenDF(fss,fsRdPerm,&rn)) ){	176	if( !(e = FSpOpenDF(fss,fsRdPerm,&rn)) ){
177	if( !(e = GetEOF(rn,&eof)) && (buf = malloc(eof+1024)) ){	177	if( !(e = GetEOF(rn,&eof)) && (buf = malloc(eof+1024)) ){
178	if( !(e = FSRead(rn,&eof,buf)) ){	178	if( !(e = FSRead(rn,&eof,buf)) ){
179	buf[eof] = 0;	179	buf[eof] = 0;
180	if( (p = strnstr(buf,key,eof)) && (save = malloc(eof-(p-buf)+1)) ){	180	if( (p = strnstr(buf,key,eof)) && (save = malloc(eof-(p-buf)+1)) ){
181	p += strlen(key);	181	p += strlen(key);
182	// store text after matched string	182	// store text after matched string
183	strcpy(save,p);	183	strcpy(save,p);
184		184
185	*p++ = '.';	185	*p++ = '.';
186	n = copyletters(p,gdata->parm.szCategory);	186	n = copyletters(p,gdata->parm.szCategory);
187	p += n;	187	p += n;
188	if(n) *p++ = '.';	188	if(n) *p++ = '.';
189	m = copyletters(p,gdata->parm.szTitle);	189	m = copyletters(p,gdata->parm.szTitle);
190	p += m;	190	p += m;
191	if(!m){	191	if(!m){
192	// generate a random ASCII identifier	192	// generate a random ASCII identifier
193	srand(TICKCOUNT());	193	srand(TICKCOUNT());
194	for(i = 8; i--;)	194	for(i = 8; i--;)
195	*p++ = 'a' + (rand() % 26);	195	*p++ = 'a' + (rand() % 26);
196	}	196	}
197	strcpy(p,save);	197	strcpy(p,save);
198		198
199	count = strlen(buf);	199	count = strlen(buf);
200	e = FSWrite(dstrn,&count,buf);	200	e = FSWrite(dstrn,&count,buf);
201		201
202	free(save);	202	free(save);
203	}else e = paramErr; // not found?? shouldn't happen	203	}else e = paramErr; // not found?? shouldn't happen
204	}	204	}
205	free(buf);	205	free(buf);
206	}	206	}
207	FSClose(rn);	207	FSClose(rn);
208	}	208	}
209	FSClose(dstrn);	209	FSClose(dstrn);
210	}	210	}
211	if(e) HDelete(dstvol,dstdir,fname);	211	if(e) HDelete(dstvol,dstdir,fname);
212	}	212	}
213	return e;	213	return e;
214	}	214	}
215		215
216	static OSErr make_bundle(StandardFileReply *sfr, short plugvol,	216	static OSErr make_bundle(StandardFileReply *sfr, short plugvol,
217	long plugdir, StringPtr plugname, char *reason)	217	long plugdir, StringPtr plugname, char *reason)
218	{	218	{
219	short dstvol = sfr->sfFile.vRefNum;	219	short dstvol = sfr->sfFile.vRefNum;
220	long bundledir,contentsdir,macosdir,rsrcdir;	220	long bundledir,contentsdir,macosdir,rsrcdir;
221	DInfo fndrInfo;	221	DInfo fndrInfo;
222	OSErr e;	222	OSErr e;
223	FSSpec fss,macosfss,rsrcfss,rsrccopyfss;	223	FSSpec fss,macosfss,rsrcfss,rsrccopyfss;
224	char *why;	224	char *why;
225		225
226	if( !(e = FSpDirCreate(&sfr->sfFile,sfr->sfScript,&bundledir)) ){	226	if( !(e = FSpDirCreate(&sfr->sfFile,sfr->sfScript,&bundledir)) ){
227	if(!(e = FSpGetDInfo(&sfr->sfFile,&fndrInfo)) ){	227	if(!(e = FSpGetDInfo(&sfr->sfFile,&fndrInfo)) ){
228	fndrInfo.frFlags \|= kHasBundle;	228	fndrInfo.frFlags \|= kHasBundle;
229	FSpSetDInfo(&sfr->sfFile,&fndrInfo);	229	FSpSetDInfo(&sfr->sfFile,&fndrInfo);
230	}	230	}
231	if( !(e = DirCreate(dstvol,bundledir,"\pContents",&contentsdir)) ){	231	if( !(e = DirCreate(dstvol,bundledir,"\pContents",&contentsdir)) ){
232	if( !(e = DirCreate(dstvol,contentsdir,"\pMacOS",&macosdir)) ){	232	if( !(e = DirCreate(dstvol,contentsdir,"\pMacOS",&macosdir)) ){
233	if( !(e = DirCreate(dstvol,contentsdir,"\pResources",&rsrcdir)) ){	233	if( !(e = DirCreate(dstvol,contentsdir,"\pResources",&rsrcdir)) ){
234	/* copy the Info.plist file, resource file, and executable */	234	/* copy the Info.plist file, resource file, and executable */
235	if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::MacOS:FilterFoundry",&macosfss))	235	if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::MacOS:FilterFoundry",&macosfss))
236	&& !(e = FileCopy(macosfss.vRefNum,macosfss.parID,macosfss.name, dstvol,macosdir,NULL, NULL,NULL,0,false)) )	236	&& !(e = FileCopy(macosfss.vRefNum,macosfss.parID,macosfss.name, dstvol,macosdir,NULL, NULL,NULL,0,false)) )
237	{	237	{
238	/* add PARM resources to each binary, and edit PiPLs */	238	/* add PARM resources to each binary, and edit PiPLs */
239	if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Resources:FilterFoundry.rsrc",&rsrcfss))	239	if( !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Resources:FilterFoundry.rsrc",&rsrcfss))
240	&& !(e = FileCopy(rsrcfss.vRefNum,rsrcfss.parID,rsrcfss.name, dstvol,rsrcdir,NULL, NULL,NULL,0,false))	240	&& !(e = FileCopy(rsrcfss.vRefNum,rsrcfss.parID,rsrcfss.name, dstvol,rsrcdir,NULL, NULL,NULL,0,false))
241	&& !(e = FSMakeFSSpec(dstvol,rsrcdir,"\pFilterFoundry.rsrc",&rsrccopyfss)) )	241	&& !(e = FSMakeFSSpec(dstvol,rsrcdir,"\pFilterFoundry.rsrc",&rsrccopyfss)) )
242	{	242	{
243	if( !(e = doresources(&rsrcfss, &rsrccopyfss))	243	if( !(e = doresources(&rsrcfss, &rsrccopyfss))
244	&& !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Info.plist",&fss)) )	244	&& !(e = FSMakeFSSpec(plugvol,plugdir,"\p::Info.plist",&fss)) )
245	{	245	{
246	e = copyplist(&fss,dstvol,contentsdir);	246	e = copyplist(&fss,dstvol,contentsdir);
247	if(e){	247	if(e){
248	FSpDelete(&rsrccopyfss);	248	FSpDelete(&rsrccopyfss);
249	why = "Can't copy Info.plist file.";	249	why = "Can't copy Info.plist file.";
250	}	250	}
251	}else why = "Can't copy resources.";	251	}else why = "Can't copy resources.";
252	if(e) HDelete(dstvol,macosdir,"\pFilterFoundry");	252	if(e) HDelete(dstvol,macosdir,"\pFilterFoundry");
253	}else why = "Can't copy FilterFoundry.rsrc file.";	253	}else why = "Can't copy FilterFoundry.rsrc file.";
254	if(e) HDelete(dstvol,rsrcdir,plugname);	254	if(e) HDelete(dstvol,rsrcdir,plugname);
255	}else why = "Can't copy FilterFoundry executable.";	255	}else why = "Can't copy FilterFoundry executable.";
256	if(e) HDelete(dstvol,contentsdir,"\pResources");	256	if(e) HDelete(dstvol,contentsdir,"\pResources");
257	}else why = "Can't create bundle Contents/Resources directory.";	257	}else why = "Can't create bundle Contents/Resources directory.";
258	if(e) HDelete(dstvol,contentsdir,"\pMacOS");	258	if(e) HDelete(dstvol,contentsdir,"\pMacOS");
259	}else why = "Can't create bundle Contents/MacOS directory.";	259	}else why = "Can't create bundle Contents/MacOS directory.";
260	if(e) HDelete(dstvol,bundledir,"\pContents");	260	if(e) HDelete(dstvol,bundledir,"\pContents");
261	}else why = "Can't create bundle Contents directory.";	261	}else why = "Can't create bundle Contents directory.";
262	if(e) FSpDelete(&sfr->sfFile);	262	if(e) FSpDelete(&sfr->sfFile);
263	}else why = "Can't create new bundle directory.";	263	}else why = "Can't create new bundle directory.";
264		264
265	if(e)	265	if(e)
266	sprintf(reason, "%s (%d)", why, e);	266	sprintf(reason, "%s (%d)", why, e);
267	else	267	else
268	reason[0] = 0;	268	reason[0] = 0;
269		269
270	return e;	270	return e;
271	}	271	}
272		272
273	static OSErr make_singlefile(StandardFileReply *sfr, short plugvol, long plugdir, StringPtr plugname){	273	static OSErr make_singlefile(StandardFileReply *sfr, short plugvol, long plugdir, StringPtr plugname){
274	OSErr e;	274	OSErr e;
275	FSSpec origfss;	275	FSSpec origfss;
276		276
277	e = FSpDelete(&sfr->sfFile);	277	e = FSpDelete(&sfr->sfFile);
278	if(e && e != fnfErr){	278	if(e && e != fnfErr){
279	alertuser(_strdup("Can't replace the existing file. Try a different name or location."),_strdup(""));	279	alertuser(_strdup("Can't replace the existing file. Try a different name or location."),_strdup(""));
280	return userCanceledErr;	280	return userCanceledErr;
281	}	281	}
282		282
283	if( !(e = FileCopy(plugvol,plugdir,plugname, sfr->sfFile.vRefNum,sfr->sfFile.parID,NULL, sfr->sfFile.name,NULL,0,false))	283	if( !(e = FileCopy(plugvol,plugdir,plugname, sfr->sfFile.vRefNum,sfr->sfFile.parID,NULL, sfr->sfFile.name,NULL,0,false))
284	&& !(e = FSMakeFSSpec(plugvol,plugdir,plugname,&origfss)) )	284	&& !(e = FSMakeFSSpec(plugvol,plugdir,plugname,&origfss)) )
285	/* add PARM resources, and edit PiPL */	285	/* add PARM resources, and edit PiPL */
286	e = doresources(&origfss, &sfr->sfFile);	286	e = doresources(&origfss, &sfr->sfFile);
287		287
288	return e;	288	return e;
289	}	289	}
290		290
291	OSErr make_standalone(StandardFileReply *sfr){	291	OSErr make_standalone(StandardFileReply *sfr){
292	OSErr e;	292	OSErr e;
293	short plugvol;	293	short plugvol;
294	long plugdir;	294	long plugdir;
295	Str255 plugname;	295	Str255 plugname;
296	char reason[0x100] = {0};	296	char reason[0x100] = {0};
297		297
298	if(!(e = GetFileLocation(CurResFile(),&plugvol,&plugdir,plugname))){	298	if(!(e = GetFileLocation(CurResFile(),&plugvol,&plugdir,plugname))){
299	#ifdef MACMACHO	299	#ifdef MACMACHO
300	e = make_bundle(sfr,plugvol,plugdir,plugname,reason);	300	e = make_bundle(sfr,plugvol,plugdir,plugname,reason);
301	#else	301	#else
302	e = make_singlefile(sfr,plugvol,plugdir,plugname);	302	e = make_singlefile(sfr,plugvol,plugdir,plugname);
303	#endif	303	#endif
304	}	304	}
305		305
306	if(e && e != userCanceledErr) {	306	if(e && e != userCanceledErr) {
307	alertuser(_strdup("Could not create standalone plugin."),reason);	307	alertuser(_strdup("Could not create standalone plugin."),reason);
308	} else {	308	} else {
309	showmessage(_strdup("Filter was sucessfully created"));	309	showmessage(_strdup("Filter was sucessfully created"));
310	}	310	}
311		311
312	return e;	312	return e;
313	}	313	}
314		314

Subversion Repositories filter_foundry

filter_foundry/trunk/make_mac.c – Rev 511 → 515