Subversion Repositories filter_foundry

/*

    This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop

    Copyright (C) 2003-5 Toby Thain, toby@telegraphics.com.au

    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 "ff.h"

#include "file_compat.h"

#include "compat_string.h"

//#include "UpdateResource.h"

extern HANDLE hDllInstance;

Boolean doresources(HMODULE srcmod,char *dstname);

void dbglasterror(char *func){

        char s[0x100];

        strcpy(s,func);

        strcat(s," failed: ");

        FormatMessage( FORMAT_MESSAGE_FROM_SYSTEM,NULL,GetLastError(),0,s+strlen(s),0x100,NULL );

        DBG(s);

}

/*

BOOL CALLBACK enumfunc(HMODULE hModule,LPCTSTR lpszType,LPCTSTR lpszName,WORD wIDLanguage,LONG lParam){

        char s[0x100];

        sprintf(s,"EnumResourceLanguages callback: module=%#x type=%s name=%s lang=%d",

                hModule,lpszType,lpszName,wIDLanguage);

        dbg(s);

        return TRUE;

}

*/

Boolean doresources(HMODULE srcmod,char *dstname){

        OSErr e = noErr;

        int i;

        HRSRC datarsrc,piplrsrc,aetersrc;

        HANDLE datah,aeteh,hpipl,hupdate;

        Ptr newpipl = NULL,newaete = NULL,datap,aetep;

        PARM_T *pparm = NULL;

        PIPropertyList *pipl;

        short srcrn,dstrn;

        Handle h;

        long piplsize,aetesize,titlesize,catsize,*lp,origsize;

        Str255 title;

        char s[0x100];

        Boolean discard = true;

//      if(!EnumResourceLanguages(srcmod,"PiPL",MAKEINTRESOURCE(16000),enumfunc,0)) 

//              dbglasterror("EnumResourceLanguages");

        if(hupdate = BeginUpdateResource(dstname,false)){

                DBG("BeginUpdateResource OK");

                if( (datarsrc = FindResource(srcmod,MAKEINTRESOURCE(16000),RT_RCDATA))

                        && (datah = LoadResource(srcmod,datarsrc))

                        && (datap = LockResource(datah))

                        && (aetersrc = FindResource(srcmod,MAKEINTRESOURCE(16000),"AETE"))

                        && (aeteh = LoadResource(srcmod,aetersrc))

                        && (aetep = LockResource(aeteh))

                ){

                        DBG("loaded DATA, PiPL");

                        PLstrcpy(title,gdata->parm.title);

                        if(gdata->parm.popDialog)

                                PLstrcat(title,(StringPtr)"\003...");

                        origsize = SizeofResource(srcmod,datarsrc);

                        aetesize = SizeofResource(srcmod,aetersrc);

                        if( (newpipl = malloc(origsize+0x300))

                         && (newaete = malloc(aetesize+0x100))

                         && (pparm = malloc(sizeof(PARM_T))) ){

                                /* add user-specified title and category to new PiPL */

                                memcpy(newpipl,datap,origsize);

                                /* note that Windows PiPLs have 2 byte version datum in front

                                   that isn't reflected in struct definition or Mac resource template: */

                                piplsize = fixpipl((PIPropertyList*)(newpipl+2),origsize-2,title) + 2;

//sprintf(s,"origsize=%d titlesize=%d catsize=%d piplsize=%d",origsize,titlesize,catsize,piplsize);dbg(s);

                                /* copy old aete data to new block */

                                /* Windows 'aete' also has 2 byte version prefix */

                                memcpy(newaete,aetep,aetesize);

                                aetesize = fixaete((unsigned char*)newaete+2,aetesize-2,gdata->parm.title) + 2;

                                /* set up the PARM resource with saved parameters */

                                memcpy(pparm,&gdata->parm,sizeof(PARM_T));

                                /* convert to C strings for Windows PARM resource */

                                myp2cstr(pparm->category);

                                myp2cstr(pparm->title);

                                myp2cstr(pparm->copyright);

                                myp2cstr(pparm->author);

                                for(i=0;i<4;++i)

                                        myp2cstr(pparm->map[i]);

                                for(i=0;i<8;++i)

                                        myp2cstr(pparm->ctl[i]);

                                if( UpdateResource(hupdate,"PIPL" /* note: caps!! */,MAKEINTRESOURCE(16000),

                                                                   MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),newpipl,piplsize)

                                 && UpdateResource(hupdate,"AETE" /* note: caps!! */,MAKEINTRESOURCE(16000),

                                                                   MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),newaete,aetesize)

                                 && UpdateResource(hupdate,"PARM",MAKEINTRESOURCE(PARM_ID),

                                                                   MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),pparm,sizeof(PARM_T)) )

                                        discard = false;

                                else

                                        dbglasterror("UpdateResource");

                        }

                }else dbglasterror("Find-, Load- or LockResource");

                if(!EndUpdateResource(hupdate,discard))

                        dbglasterror("EndUpdateResource");     

                if(pparm) free(pparm);

                if(newpipl) free(newpipl);

                if(newaete) free(newaete);

        }else

                dbglasterror("BeginUpdateResource");

        return !discard;

}

OSErr make_standalone(StandardFileReply *sfr){

        Boolean res;

        char dstname[0x100],srcname[MAX_PATH+1];

        //FSpDelete(&sfr->sfFile);

        myp2cstrcpy(dstname,sfr->sfFile.name);

        res = GetModuleFileName(hDllInstance,srcname,MAX_PATH)

                && CopyFile(srcname,dstname,false)

                && doresources(hDllInstance,dstname);

        if(!res)

                alertuser("Could not create standalone plugin.","");

        return res ? ioErr : noErr;

}