Subversion Repositories filter_foundry

/*

/*

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

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

    Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.net

    Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.net

    Copyright (C) 2018-2023 Daniel Marschall, ViaThinkSoft

    Copyright (C) 2018-2023 Daniel Marschall, ViaThinkSoft

    This program is free software; you can redistribute it and/or modify

    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

    it under the terms of the GNU General Public License as published by

    the Free Software Foundation; either version 2 of the License, or

    the Free Software Foundation; either version 2 of the License, or

    (at your option) any later version.

    (at your option) any later version.

    This program is distributed in the hope that it will be useful,

    This program is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    GNU General Public License for more details.

    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License

    You should have received a copy of the GNU General Public License

    along with this program; if not, write to the Free Software

    along with this program; if not, write to the Free Software

    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/

*/

//#include <stdio.h>

//#include <stdio.h>

//#include <sound.h>

//#include <sound.h>

#include "ff.h"

#include "ff.h"

#include "str.h"

#include "str.h"

#include "node.h"

#include "node.h"

#include "funcs.h"

#include "funcs.h"

#include "y.tab.h"

#include "y.tab.h"

#include "scripting.h"

#include "scripting.h"

#include <math.h>

#include <math.h>

#include "PIBufferSuite.h"

#include "PIBufferSuite.h"

// GIMP (PSPI) and IrfanView preserve neither *data(gdata), nor pb->parameters between invocations!

// GIMP (PSPI) and IrfanView preserve neither *data(gdata), nor pb->parameters between invocations!

// For debugging, we can simulate it here

// For debugging, we can simulate it here

//#define DEBUG_SIMULATE_GIMP

//#define DEBUG_SIMULATE_GIMP

// Used to find out which host signatures and memory settings a plugin host has

// Used to find out which host signatures and memory settings a plugin host has

//#define SHOW_HOST_DEBUG

//#define SHOW_HOST_DEBUG

// Here are working variables:

// Here are working variables:

struct node *tree[4];

struct node *tree[4];

TCHAR *err[4];

TCHAR *err[4];

int errpos[4],errstart[4],nplanes,cnvused,chunksize,toprow;

int errpos[4],errstart[4],nplanes,cnvused,chunksize,toprow;

value_type cell[NUM_CELLS];

value_type cell[NUM_CELLS];

// this is the only memory area that keeps preserved by Photoshop:

// this is the only memory area that keeps preserved by Photoshop:

globals_t *gdata;

globals_t *gdata;

FilterRecordPtr gpb;

FilterRecordPtr gpb;

#ifdef MAC_ENV

#ifdef MAC_ENV

#define HINSTANCE HANDLE

#define HINSTANCE HANDLE

#define hDllInstance NULL /* fake this Windows-only global */

#define hDllInstance NULL /* fake this Windows-only global */

#endif

#endif

#ifdef WIN_ENV

#ifdef WIN_ENV

#include "manifest.h"

#include "manifest.h"

#endif

#endif

extern struct sym_rec predefs[];

extern struct sym_rec predefs[];

extern int nplanes,varused[];

extern int nplanes,varused[];

int checkandinitparams(Handle params);

int checkandinitparams(Handle params);

// MPW MrC requires prototype

// MPW MrC requires prototype

DLLEXPORT MACPASCAL

DLLEXPORT MACPASCAL

void ENTRYPOINT(short selector,FilterRecordPtr pb,intptr_t *data,short *result);

void ENTRYPOINT(short selector,FilterRecordPtr pb,intptr_t *data,short *result);

unsigned long parm_hash(PARM_T *parm) {

unsigned long parm_hash(PARM_T *parm) {

        unsigned long hash;

        unsigned long hash;

        int i;

        int i;

        hash = djb2(parm->szCategory);

        hash = djb2(parm->szCategory);

        hash += djb2(parm->szTitle);

        hash += djb2(parm->szTitle);

        hash += djb2(parm->szCopyright);

        hash += djb2(parm->szCopyright);

        hash += djb2(parm->szAuthor);

        hash += djb2(parm->szAuthor);

        for (i = 0; i < 4; i++) hash += djb2(parm->szMap[i]);

        for (i = 0; i < 4; i++) hash += djb2(parm->szMap[i]);

        for (i = 0; i < 8; i++) hash += djb2(parm->szCtl[i]);

        for (i = 0; i < 8; i++) hash += djb2(parm->szCtl[i]);

        for (i = 0; i < 4; i++) hash += djb2(parm->szFormula[i]);

        for (i = 0; i < 4; i++) hash += djb2(parm->szFormula[i]);

        return hash;

        return hash;

}

}

        char* atempdir;

        char* atempdir;

        int hash;

        int hash;

        size_t i, j;

        size_t i, j;

        TCHAR out[MAX_PATH + 1];

        TCHAR out[MAX_PATH + 1];

        char ahash[20];

        char ahash[20];

        // out = getenv("TMP")

        // out = getenv("TMP")

        atempdir = getenv("TMP");

        atempdir = getenv("TMP");

        for (i = 0; i < strlen(atempdir); i++) {

        for (i = 0; i < strlen(atempdir); i++) {

                out[i] = (TCHAR)atempdir[i];

                out[i] = (TCHAR)atempdir[i];

                out[i + 1] = 0;

                out[i + 1] = 0;

        }

        }

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        if (xstrlen(out) > 0) xstrcat(out, TEXT("\\"));

        if (xstrlen(out) > 0) xstrcat(out, TEXT("\\"));

        #else

        #else

        if (xstrlen(out) > 0) xstrcat(out, TEXT("/"));

        if (xstrlen(out) > 0) xstrcat(out, TEXT("/"));

        #endif

        #endif

        hash = (isStandalone) ? parm_hash(parm) : 0;

        hash = (isStandalone) ? parm_hash(parm) : 0;

        // sprintf(outfilename, "%sFilterFoundry%d.afs", atempdir, hash);

        // sprintf(outfilename, "%sFilterFoundry%d.afs", atempdir, hash);

        xstrcat(out, TEXT("FilterFoundry"));

        xstrcat(out, TEXT("FilterFoundry"));

        _itoa(hash, &ahash[0], 10);

        _itoa(hash, &ahash[0], 10);

        for (i = 0; i < strlen(ahash); i++) {

        for (i = 0; i < strlen(ahash); i++) {

                j = xstrlen(out);

                j = xstrlen(out);

                out[j] = (TCHAR)ahash[i];

                out[j] = (TCHAR)ahash[i];

                out[j + 1] = 0;

                out[j + 1] = 0;

        }

        }

        xstrcat(out, TEXT(".afs"));

        xstrcat(out, TEXT(".afs"));

        if (outfilename != NULL) {

        if (outfilename != NULL) {

                xstrcpy(outfilename, out);

                xstrcpy(outfilename, out);

        }

        }

        return xstrlen(out);

        return xstrlen(out);

}

}

char* stristr(const char* str, const char* strSearch) {

char* stristr(const char* str, const char* strSearch) {

        // Source: https://stackoverflow.com/questions/27303062/strstr-function-like-that-ignores-upper-or-lower-case

        // Source: https://stackoverflow.com/questions/27303062/strstr-function-like-that-ignores-upper-or-lower-case

        char *sors, *subs, *res = NULL;

        char *sors, *subs, *res = NULL;

        if ((sors = _strdup(str)) != NULL) {

        if ((sors = _strdup(str)) != NULL) {

                if ((subs = _strdup(strSearch)) != NULL) {

                if ((subs = _strdup(strSearch)) != NULL) {

                        res = strstr(_strlwr(sors), _strlwr(subs));

                        res = strstr(_strlwr(sors), _strlwr(subs));

                        if (res != NULL)

                        if (res != NULL)

                                res = (char*)str + (res - sors);

                                res = (char*)str + (res - sors);

                        free(subs);

                        free(subs);

                }

                }

                free(sors);

                free(sors);

        }

        }

        return res;

        return res;

}

}

BOOL CalledFromRunDLL32(HINSTANCE hinst) {

BOOL CalledFromRunDLL32(HINSTANCE hinst) {

        char exename[MAX_PATH];

        char exename[MAX_PATH];

        if (GetModuleFileNameA(hinst, exename, MAX_PATH) == 0) return false;

        if (GetModuleFileNameA(hinst, exename, MAX_PATH) == 0) return false;

        return stristr(exename, "rundll32") != NULL;

        return stristr(exename, "rundll32") != NULL;

}

}

void CALLBACK FakeRundll32(HWND hwnd, HINSTANCE hinst, LPSTR lpszCmdLine, int nCmdShow) {

void CALLBACK FakeRundll32(HWND hwnd, HINSTANCE hinst, LPSTR lpszCmdLine, int nCmdShow) {

        UNREFERENCED_PARAMETER(hwnd);

        UNREFERENCED_PARAMETER(hwnd);

        UNREFERENCED_PARAMETER(hinst);

        UNREFERENCED_PARAMETER(hinst);

        UNREFERENCED_PARAMETER(lpszCmdLine);

        UNREFERENCED_PARAMETER(lpszCmdLine);

        UNREFERENCED_PARAMETER(nCmdShow);

        UNREFERENCED_PARAMETER(nCmdShow);

        /*

        /*

        char* tmp = (char*)malloc(512);

        char* tmp = (char*)malloc(512);

        if (tmp != 0) {

        if (tmp != 0) {

                sprintf(tmp, "hwnd: %p\nhinst: %p\nlpszCmdLine: %s\nCmdShow: %d", (void*)(hwnd), (void*)(hinst), lpszCmdLine, nCmdShow);

                sprintf(tmp, "hwnd: %p\nhinst: %p\nlpszCmdLine: %s\nCmdShow: %d", (void*)(hwnd), (void*)(hinst), lpszCmdLine, nCmdShow);

                MessageBoxA(0, tmp, 0, 0);

                MessageBoxA(0, tmp, 0, 0);

                free(tmp);

                free(tmp);

        }

        }

        */

        */

        simplealert_id(MSG_RUNDLL_ERR_ID);

        simplealert_id(MSG_RUNDLL_ERR_ID);

        return;

        return;

}

}

void CreateDataPointer(intptr_t* data) {

void CreateDataPointer(intptr_t* data) {

        // Register "gdata" that contains the PARM information and other things which need to be persistant

        // Register "gdata" that contains the PARM information and other things which need to be persistant

        // and preserve them in *data

        // and preserve them in *data

        // This memory allocation is never freed, because the filter can always be invoked again.

        // This memory allocation is never freed, because the filter can always be invoked again.

        // The memory allocation will be kept for the lifetime of the Photoshop process and

        // The memory allocation will be kept for the lifetime of the Photoshop process and

        // freed together with the application termination.

        // freed together with the application termination.

        // We have at least 5 options to allocate memory:

        // We have at least 5 options to allocate memory:

        // (Method 1)

        // (Method 1)

        // 1. The deprecated Standard Buffer Suite (pb->bufferProcs) - works fine!

        // 1. The deprecated Standard Buffer Suite (pb->bufferProcs) - works fine!

        /*

        /*

        BufferID tempId;

        BufferID tempId;

        if (gpb->bufferProcs->allocateProc(sizeof(globals_t), &tempId) != noErr) {

        if (gpb->bufferProcs->allocateProc(sizeof(globals_t), &tempId) != noErr) {

                *data = NULL;

                *data = NULL;

        }

        }

        else {

        else {

                *data = (void*)gpb->bufferProcs->lockProc(tempId, true);

                *data = (void*)gpb->bufferProcs->lockProc(tempId, true);

                if (*data) memset((void*)*data, 0, sizeof(globals_t));

                if (*data) memset((void*)*data, 0, sizeof(globals_t));

        }

        }

        */

        */

        // (Method 2) *DOES NOT WORK*

        // (Method 2) *DOES NOT WORK*

        // 2. The recommended buffer suite (kPSBufferSuite),

        // 2. The recommended buffer suite (kPSBufferSuite),

        //    It does not work, since it causes memory corruption when the filter is invoked a second time.

        //    It does not work, since it causes memory corruption when the filter is invoked a second time.

        //    Probably the BufferSuite cannot be used to share data between filter invocations?

        //    Probably the BufferSuite cannot be used to share data between filter invocations?

        //    Also, the buffer suite is only available on the Adobe Photoshop host application.

        //    Also, the buffer suite is only available on the Adobe Photoshop host application.

        /*

        /*

        FFBuffer buf;

        FFBuffer buf;

        newBuffer(&buf, sizeof(globals_t));

        newBuffer(&buf, sizeof(globals_t));

        *data = (intptr_t)lockBuffer(&buf);

        *data = (intptr_t)lockBuffer(&buf);

        if (*data) memset((void*)*data, 0, sizeof(globals_t));

        if (*data) memset((void*)*data, 0, sizeof(globals_t));

        */

        */

        // (Method 3)

        // (Method 3)

        // 3. Using malloc(), which works also fine and is more independent from the host. It is also easier.

        // 3. Using malloc(), which works also fine and is more independent from the host. It is also easier.

        //    However, we do not know how malloc() is implemented, and it might cause problems if the

        //    However, we do not know how malloc() is implemented, and it might cause problems if the

        //    DLL is unloaded between invocations.

        //    DLL is unloaded between invocations.

        /*

        /*

        *data = (intptr_t)malloc(sizeof(globals_t));

        *data = (intptr_t)malloc(sizeof(globals_t));

        if (*data) memset((void*)*data, 0, sizeof(globals_t));

        if (*data) memset((void*)*data, 0, sizeof(globals_t));

        */

        */

        // (Method 4)

        // (Method 4)

        // 4. Using PLUGIN.DLL:NewPtr(). This does FilterFactory 3.0.4, but requires an Adobe host.

        // 4. Using PLUGIN.DLL:NewPtr(). This does FilterFactory 3.0.4, but requires an Adobe host.

        //    In Plugin.dll, the function NewPtr() and NewPtrClear() are implemented as GlobalAlloc/GlobalLock.

        //    In Plugin.dll, the function NewPtr() and NewPtrClear() are implemented as GlobalAlloc/GlobalLock.

        //    Nothing special.

        //    Nothing special.

        // (Method 5)

        // (Method 5)

        // 5. Using GlobalAlloc/GlobalLock. This does FilterFactory 3.00 (Flags GHND = GMEM_MOVEABLE and GMEM_ZEROINIT).

        // 5. Using GlobalAlloc/GlobalLock. This does FilterFactory 3.00 (Flags GHND = GMEM_MOVEABLE and GMEM_ZEROINIT).

        //    This is Windows dependant. (However, on Mac we will just call NewPtr.)

        //    This is Windows dependant. (However, on Mac we will just call NewPtr.)

        //    GlobalAlloc and LocalAlloc are equal in 32-bit windows. The memory allocation is NOT global anymore,

        //    GlobalAlloc and LocalAlloc are equal in 32-bit windows. The memory allocation is NOT global anymore,

        //    instead it is on the private heap of the application. (Therefore we do not cause a leak when

        //    instead it is on the private heap of the application. (Therefore we do not cause a leak when

        //    Photoshop is closed).

        //    Photoshop is closed).

        // In Filter Foundry 1.7.0.17 we define a function called NewPtrClear, which is natively supported by Mac,

        // In Filter Foundry 1.7.0.17 we define a function called NewPtrClear, which is natively supported by Mac,

        // and in Windows it will be implemented using GlobalAlloc/GlobalLock.

        // and in Windows it will be implemented using GlobalAlloc/GlobalLock.

        *data = (intptr_t)NewPtrClear(sizeof(globals_t));

        *data = (intptr_t)NewPtrClear(sizeof(globals_t));

}

}

DLLEXPORT MACPASCAL

DLLEXPORT MACPASCAL

void ENTRYPOINT(short selector, FilterRecordPtr pb, intptr_t *data, short *result){

void ENTRYPOINT(short selector, FilterRecordPtr pb, intptr_t *data, short *result){

        static Boolean wantdialog = false;

        static Boolean wantdialog = false;

        static Boolean premiereWarnedOnce = false;

        static Boolean premiereWarnedOnce = false;

        #ifdef SHOW_HOST_DEBUG

        #ifdef SHOW_HOST_DEBUG

        char* tmp;

        char* tmp;

        #endif

        #endif

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        // For Windows, we use an activation context to enforce that our Manifest resource will

        // For Windows, we use an activation context to enforce that our Manifest resource will

        // be used. This allows us to use Visual Styles, even if the host application does not

        // be used. This allows us to use Visual Styles, even if the host application does not

        // support it.

        // support it.

        ManifestActivationCtx manifestVars;

        ManifestActivationCtx manifestVars;

        BOOL activationContextUsed;

        BOOL activationContextUsed;

        #endif

        #endif

        // ---------------------------------------------------------------------

        // ---------------------------------------------------------------------

        EnterCodeResource();

        EnterCodeResource();

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        activationContextUsed = ActivateManifest((HMODULE)hDllInstance, 1, &manifestVars);

        activationContextUsed = ActivateManifest((HMODULE)hDllInstance, 1, &manifestVars);

        #endif

        #endif

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        if ((intptr_t)result == SW_SHOWDEFAULT && CalledFromRunDLL32((HINSTANCE)pb)) {

        if ((intptr_t)result == SW_SHOWDEFAULT && CalledFromRunDLL32((HINSTANCE)pb)) {

                // When the 8BF file is analyzed with VirusTotal.com, it will invoke each

                // When the 8BF file is analyzed with VirusTotal.com, it will invoke each

                // exported function by calling

                // exported function by calling

                // loaddll64.exe 'C:\Users\user\Desktop\attachment.dll'

                // loaddll64.exe 'C:\Users\user\Desktop\attachment.dll'

                //        ==>  rundll32.exe C:\Users\user\Desktop\attachment.dll,PluginMain

                //        ==>  rundll32.exe C:\Users\user\Desktop\attachment.dll,PluginMain

                //           ==> C:\Windows\system32\WerFault.exe -u -p 6612 -s 480

                //           ==> C:\Windows\system32\WerFault.exe -u -p 6612 -s 480

                //

                //

                // But RunDLL32 requires the following signature:

                // But RunDLL32 requires the following signature:

                //    void __stdcall EntryPoint(HWND hwnd,      HINSTANCE hinst,    LPSTR lpszCmdLine, int nCmdShow);

                //    void __stdcall EntryPoint(HWND hwnd,      HINSTANCE hinst,    LPSTR lpszCmdLine, int nCmdShow);

                // Our signature is:

                // Our signature is:

                //    void           PluginMain(short selector, FilterRecordPtr pb, intptr_t *data,    short *result);

                //    void           PluginMain(short selector, FilterRecordPtr pb, intptr_t *data,    short *result);

                //

                //

                // Obviously, this will cause an Exception. (It crashes at *result=e because result is 0xA, which is SW_SHOWDEFAULT)

                // Obviously, this will cause an Exception. (It crashes at *result=e because result is 0xA, which is SW_SHOWDEFAULT)

                // Here is the problem: The crash will be handled by WerFault.exe inside the

                // Here is the problem: The crash will be handled by WerFault.exe inside the

                // VirusTotal virtual machine. WerFault connects to various servers (9 DNS resolutions!) and does

                // VirusTotal virtual machine. WerFault connects to various servers (9 DNS resolutions!) and does

                // a lot of weird things, but VirusTotal thinks that our plugin does all that stuff,

                // a lot of weird things, but VirusTotal thinks that our plugin does all that stuff,

                // and so they mark our plugin as "malware"!

                // and so they mark our plugin as "malware"!

                // This is a problem with VirusTotal! It shall not assume that WerFault.exe actions are our actions!

                // This is a problem with VirusTotal! It shall not assume that WerFault.exe actions are our actions!

                // Even actions from processes like "MicrosoftEdgeUpdate.exe" and "SpeechRuntime.exe" are reported to be our

                // Even actions from processes like "MicrosoftEdgeUpdate.exe" and "SpeechRuntime.exe" are reported to be our

                // actions, although they have nothing to do with us!

                // actions, although they have nothing to do with us!

                // See https://www.virustotal.com/gui/file/1f1012c567208186be455b81afc1ee407ae6476c197d633c70cc70929113223a/behavior

                // See https://www.virustotal.com/gui/file/1f1012c567208186be455b81afc1ee407ae6476c197d633c70cc70929113223a/behavior

                //

                //

                // Note in re "*result": Usually, The first 64KB of address space are always invalid. However, in Win32s (Windows 3.11), the

                // Note in re "*result": Usually, The first 64KB of address space are always invalid. However, in Win32s (Windows 3.11), the

                // variable "result" is <=0xFFFF. So we cannot assume that result<=0xFFFF means that the call came from RunDLL32.

                // variable "result" is <=0xFFFF. So we cannot assume that result<=0xFFFF means that the call came from RunDLL32.

                FakeRundll32((HWND)(intptr_t)selector, (HINSTANCE)pb, (LPSTR)data, (int)(intptr_t)result);

                FakeRundll32((HWND)(intptr_t)selector, (HINSTANCE)pb, (LPSTR)data, (int)(intptr_t)result);

                // (I don't understand why this works! Aren't we __cdecl and rundll expected __stdcall? But why is the parameter order correct and not reversed?)

                // (I don't understand why this works! Aren't we __cdecl and rundll expected __stdcall? But why is the parameter order correct and not reversed?)

                goto endmain;

                goto endmain;

        }

        }

                // will be changed if an error happens

        // will be changed if an error happens

                *result = noErr;

        *result = noErr;

        #ifdef SHOW_HOST_DEBUG

        #ifdef SHOW_HOST_DEBUG

        tmp = (char*)malloc(512);

        tmp = (char*)malloc(512);

        sprintf(tmp, "Host signature: '%c%c%c%c' (%d)\nMaxSpace32 = %d\nMaxSpace64 = %lld\nNum buffer procs: %d", (pb->hostSig >> 24) & 0xFF, (pb->hostSig >> 16) & 0xFF, (pb->hostSig >> 8) & 0xFF, pb->hostSig & 0xFF, pb->hostSig, pb->maxSpace, pb->maxSpace64, pb->bufferProcs == 0 ? -999/*About has no BufferProcs*/ : pb->bufferProcs->numBufferProcs);

        sprintf(tmp, "Host signature: '%c%c%c%c' (%d)\nMaxSpace32 = %d\nMaxSpace64 = %lld\nNum buffer procs: %d", (pb->hostSig >> 24) & 0xFF, (pb->hostSig >> 16) & 0xFF, (pb->hostSig >> 8) & 0xFF, pb->hostSig & 0xFF, pb->hostSig, pb->maxSpace, pb->maxSpace64, pb->bufferProcs == 0 ? -999/*About has no BufferProcs*/ : pb->bufferProcs->numBufferProcs);

        simplealert(tmp);

        simplealert(tmp);

        free(tmp);

        free(tmp);

        #endif

        #endif

        if (pb->hostSig == HOSTSIG_ADOBE_PREMIERE) {

        if (pb->hostSig == HOSTSIG_ADOBE_PREMIERE) {

                // DM 19.07.2021 : Tried running the 8BF file in Adobe Premiere 5 + Win98

                // DM 19.07.2021 : Tried running the 8BF file in Adobe Premiere 5 + Win98

                // (yes, that's possible, and there is even a FilterFactory for Premiere!),

                // (yes, that's possible, and there is even a FilterFactory for Premiere!),

                // but it crashes in evalpixel() where there is write-access to the "outp".

                // but it crashes in evalpixel() where there is write-access to the "outp".

                // DM 24.04.2022 : On Adobe Premiere 6 + Win10, the filter opens sometimes (and sometimes crashes inside DialogBoxParam),

                // DM 24.04.2022 : On Adobe Premiere 6 + Win10, the filter opens sometimes (and sometimes crashes inside DialogBoxParam),

                // but the filter is not applied when you click "OK" (because it crashes internally; only the debugger sees it)...

                // but the filter is not applied when you click "OK" (because it crashes internally; only the debugger sees it)...

                // Maybe the canvas structure is different (maybe it contains frames to achieve transitions?)

                // Maybe the canvas structure is different (maybe it contains frames to achieve transitions?)

                // TODO: make Filter Foundry compatible with Premiere!

                // TODO: make Filter Foundry compatible with Premiere!

                if (!premiereWarnedOnce) {

                if (!premiereWarnedOnce) {

                        simplealert_id(MSG_PREMIERE_COMPAT_ID);

                        simplealert_id(MSG_PREMIERE_COMPAT_ID);

                }

                }

                premiereWarnedOnce = true;

                premiereWarnedOnce = true;

                *result = errPlugInHostInsufficient;

                *result = errPlugInHostInsufficient;

                goto endmain;

                goto endmain;

        }

        }

        #ifdef DEBUG_SIMULATE_GIMP

        #ifdef DEBUG_SIMULATE_GIMP

        *data = 0;

        *data = 0;

        pb->parameters = pb->handleProcs->newProc(1);

        pb->parameters = pb->handleProcs->newProc(1);

        #endif

        #endif

        gpb = pb; // required for CreateDataPointer()

        gpb = pb; // required for CreateDataPointer()

        if (selector != filterSelectorAbout && !*data) {

        if (selector != filterSelectorAbout && !*data) {

                // The filter was never called before. We allocate (zeroed) memory now.

                // The filter was never called before. We allocate (zeroed) memory now.

                CreateDataPointer(data);

                CreateDataPointer(data);

                if (!*data) {

                if (!*data) {

                        *result = memFullErr;

                        *result = memFullErr;

                        goto endmain;

                        goto endmain;

                }

                }

        }

        }

        gdata = (globals_t*)*data;

        gdata = (globals_t*)*data;

        nplanes = MIN(pb->planes,4);

        nplanes = MIN(pb->planes,4);

        switch (selector){

        switch (selector){

        case filterSelectorAbout:

        case filterSelectorAbout:

                if (!gdata) {

                if (!gdata) {

                        Boolean parmReadOk;

                        Boolean parmReadOk;

                        // This is a temporary gdata structure just for the About dialog!

                        // This is a temporary gdata structure just for the About dialog!

                        // Not to be confused with the "real" gdata during the filter invocation (containing more data).

                        // Not to be confused with the "real" gdata during the filter invocation (containing more data).

                        gdata = (globals_t*)malloc(sizeof(globals_t));

                        gdata = (globals_t*)malloc(sizeof(globals_t));

                        if (!gdata) break;

                        if (!gdata) break;

                        gdata->hWndMainDlg = (HWND)((PlatformData*)((AboutRecordPtr)pb)->platformData)->hwnd; // so that simplealert() works

                        gdata->hWndMainDlg = (HWND)((PlatformData*)((AboutRecordPtr)pb)->platformData)->hwnd; // so that simplealert() works

                        parmReadOk = (LOADING_OK == readPARMresource((HMODULE)hDllInstance));

                        parmReadOk = (LOADING_OK == readPARMresource((HMODULE)hDllInstance));

                        if (!parmReadOk) gdata->parm.standalone = false;

                        if (!parmReadOk) gdata->parm.standalone = false;

                        if (parmReadOk && (gdata->parm.cbSize != PARM_SIZE) && (gdata->parm.cbSize != PARM_SIZE_PREMIERE) && (gdata->parm.cbSize != PARM_SIG_MAC)) {

                        if (parmReadOk && (gdata->parm.cbSize != PARM_SIZE) && (gdata->parm.cbSize != PARM_SIZE_PREMIERE) && (gdata->parm.cbSize != PARM_SIG_MAC)) {

                                parm_reset(true, true, true, true);

                                parm_reset(true, true, true, true);

                                if (gdata->obfusc) {

                                if (gdata->obfusc) {

                                        simplealert_id(MSG_INCOMPATIBLE_OBFUSCATION_ID);

                                        simplealert_id(MSG_INCOMPATIBLE_OBFUSCATION_ID);

                                }

                                }

                                else {

                                else {

                                        simplealert_id(MSG_INVALID_PARAMETER_DATA_ID);

                                        simplealert_id(MSG_INVALID_PARAMETER_DATA_ID);

                                }

                                }

                        }

                        }

                        else {

                        else {

                                DoAbout((AboutRecordPtr)pb);

                                DoAbout((AboutRecordPtr)pb);

                        }

                        }

                        free(gdata);

                        free(gdata);

                        gdata = NULL;

                        gdata = NULL;

                } else {

                } else {

                        DoAbout((AboutRecordPtr)pb);

                        DoAbout((AboutRecordPtr)pb);

                }

                }

                break;

                break;

        case filterSelectorParameters:

        case filterSelectorParameters:

                wantdialog = true;

                wantdialog = true;

                break;

                break;

        case filterSelectorPrepare:

        case filterSelectorPrepare:

                gdata->hWndMainDlg = 0;

                gdata->hWndMainDlg = 0;

                DoPrepare(pb);

                DoPrepare(pb);

                init_symtab(predefs); // ready for parser calls

                init_symtab(predefs); // ready for parser calls

                init_trigtab();

                init_trigtab();

                break;

                break;

        case filterSelectorStart:

        case filterSelectorStart:

                if (HAS_BIG_DOC(pb)) {

                if (HAS_BIG_DOC(pb)) {

                        // The BigDocument structure is required if the document is larger than 30,000 pixels

                        // The BigDocument structure is required if the document is larger than 30,000 pixels

                        // It deprecates imageSize, filterRect, inRect, outRect, maskRect, floatCoord, and wholeSize.

                        // It deprecates imageSize, filterRect, inRect, outRect, maskRect, floatCoord, and wholeSize.

                        // By setting it to nonzero, we communicate to Photoshop that we support the BigDocument structure.

                        // By setting it to nonzero, we communicate to Photoshop that we support the BigDocument structure.

                        pb->bigDocumentData->PluginUsing32BitCoordinates = true;

                        pb->bigDocumentData->PluginUsing32BitCoordinates = true;

                }

                }

                /* initialise the parameter handle that Photoshop keeps for us */

                /* initialise the parameter handle that Photoshop keeps for us */

                if(!pb->parameters)

                if(!pb->parameters)

                        pb->parameters = PINEWHANDLE(1); // don't set initial size to 0, since some hosts (e.g. GIMP/PSPI) are incompatible with that.

                        pb->parameters = PINEWHANDLE(1); // don't set initial size to 0, since some hosts (e.g. GIMP/PSPI) are incompatible with that.

                if (!pb->parameters) {

                if (!pb->parameters) {

                        *result = memFullErr;

                        *result = memFullErr;

                }

                }

                else

                else

                {

                {

                        wantdialog |= checkandinitparams(pb->parameters);

                        wantdialog |= checkandinitparams(pb->parameters);

                        /* wantdialog = false means that we never got a Parameters call, so we're not supposed to ask user */

                        /* wantdialog = false means that we never got a Parameters call, so we're not supposed to ask user */

                        if (wantdialog && (!gdata->parm.standalone || gdata->parm.popDialog)) {

                        if (wantdialog && (!gdata->parm.standalone || gdata->parm.popDialog)) {

                                if (maindialog(pb)) {

                                if (maindialog(pb)) {

                                        if (!host_preserves_parameters()) {

                                        if (!host_preserves_parameters()) {

                                                /* Workaround for GIMP/PSPI, to avoid that formulas vanish when you re-open the main window.

                                                /* Workaround for GIMP/PSPI, to avoid that formulas vanish when you re-open the main window.

                                                   The reason is a bug in PSPI: The host should preserve the value of pb->parameters, which PSPI does not do.

                                                   The reason is a bug in PSPI: The host should preserve the value of pb->parameters, which PSPI does not do.

                                                   Also, all global variables are unloaded, so the plugin cannot preserve any data.

                                                   Also, all global variables are unloaded, so the plugin cannot preserve any data.

                                                   Workaround in FF 1.7: If the host GIMP is detected, then a special mode will be activated.

                                                   Workaround in FF 1.7: If the host GIMP is detected, then a special mode will be activated.

                                                   This mode saves the filter data into a temporary file "FilterFoundryXX.afs" and loads it

                                                   This mode saves the filter data into a temporary file "FilterFoundryXX.afs" and loads it

                                                   when the window is opened again. */

                                                   when the window is opened again. */

                                                   // Workaround: Save settings in "FilterFoundryXX.afs" if the host does not preserve pb->parameters

                                                   // Workaround: Save settings in "FilterFoundryXX.afs" if the host does not preserve pb->parameters

                                                TCHAR outfilename[MAX_PATH + 1];

                                                TCHAR outfilename[MAX_PATH + 1];

                                                StandardFileReply sfr;

                                                StandardFileReply sfr;

                                                InternalState tmpState;

                                                InternalState tmpState;

                                                FFSavingResult saveres;

                                                FFSavingResult saveres;

                                                sfr.sfGood = true;

                                                sfr.sfGood = true;

                                                sfr.sfReplacing = true;

                                                sfr.sfReplacing = true;

                                                sfr.sfType = PS_FILTER_FILETYPE;

                                                sfr.sfType = PS_FILTER_FILETYPE;

                                                get_temp_afs(&outfilename[0], gdata->parm.standalone, &gdata->parm);

                                                get_temp_afs(&outfilename[0], gdata->parm.standalone, &gdata->parm);

                                                xstrcpy(sfr.sfFile.szName, outfilename);

                                                xstrcpy(sfr.sfFile.szName, outfilename);

                                                #ifdef WIN_ENV

                                                #ifdef WIN_ENV

                                                sfr.nFileExtension = (WORD)(xstrlen(outfilename) - strlen(".afs") + 1);

                                                sfr.nFileExtension = (WORD)(xstrlen(outfilename) - strlen(".afs") + 1);

                                                #endif

                                                #endif

                                                sfr.sfScript = smSystemScript;

                                                sfr.sfScript = smSystemScript;

                                                // We only want the parameters (ctl,map) in the temporary .afs file

                                                // We only want the parameters (ctl,map) in the temporary .afs file

                                                // It is important to remove the expressions, otherwise they would be

                                                // It is important to remove the expressions, otherwise they would be

                                                // revealed in the temporary files (That might be bad for obfuscated filters).

                                                // revealed in the temporary files (That might be bad for obfuscated filters).

                                                if (gdata->parm.standalone) {

                                                if (gdata->parm.standalone) {

                                                        tmpState = saveInternalState();

                                                        tmpState = saveInternalState();

                                                        parm_reset(false, false, false, true);

                                                        parm_reset(false, false, false, true);

                                                }

                                                }

                                                saveres = savefile_afs_pff_picotxt_guf(&sfr);

                                                saveres = savefile_afs_pff_picotxt_guf(&sfr);

                                                if (gdata->parm.standalone) {

                                                if (gdata->parm.standalone) {

                                                        restoreInternalState(tmpState);

                                                        restoreInternalState(tmpState);

                                                }

                                                }

                                                if (saveres != SAVING_OK) {

                                                if (saveres != SAVING_OK) {

                                                        TCHAR* reason = FF_GetMsg_Cpy(saveres);

                                                        TCHAR* reason = FF_GetMsg_Cpy(saveres);

                                                        alertuser_id(MSG_CANNOT_SAVE_SETTINGS_ID, reason);

                                                        alertuser_id(MSG_CANNOT_SAVE_SETTINGS_ID, reason);

                                                        FF_GetMsg_Free(reason);

                                                        FF_GetMsg_Free(reason);

                                                        *result = filterBadParameters;

                                                        *result = filterBadParameters;

                                                }

                                                }

                                        }

                                        }

                                        else {

                                        else {

                                                /* update stored parameters from new user settings */

                                                /* update stored parameters from new user settings */

                                                if (pb->parameters)

                                                if (pb->parameters)

                                                        saveparams_afs_pff(pb->parameters, false);

                                                        saveparams_afs_pff(pb->parameters, false);

                                        }

                                        }

                                }

                                }

                                else

                                else

                                        *result = userCanceledErr;

                                        *result = userCanceledErr;

                        }

                        }

                        wantdialog = false;

                        wantdialog = false;

                }

                }

                if(*result == noErr){

                if(*result == noErr){

                        if(setup(pb)){

                        if(setup(pb)){

                                DoStart(pb);

                                DoStart(pb);

                        }else{

                        }else{

                                simplealert_id(MSG_SAVED_EXPR_ERR_ID);

                                simplealert_id(MSG_SAVED_EXPR_ERR_ID);

                                *result = filterBadParameters;

                                *result = filterBadParameters;

                        }

                        }

                }

                }

                break;

                break;

        case filterSelectorContinue:

        case filterSelectorContinue:

                *result = DoContinue(pb);

                *result = DoContinue(pb);

                break;

                break;

        case filterSelectorFinish:

        case filterSelectorFinish:

                DoFinish(pb);

                DoFinish(pb);

                break;

                break;

        default:

        default:

                *result = filterBadParameters;

                *result = filterBadParameters;

        }

        }

endmain:

endmain:

        // TODO: Question: Is that OK to call this every invocation, or should it be only around UI stuff?

        // TODO: Question: Is that OK to call this every invocation, or should it be only around UI stuff?

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        if (activationContextUsed) DeactivateManifest(&manifestVars);

        if (activationContextUsed) DeactivateManifest(&manifestVars);

        #endif

        #endif

        ExitCodeResource();

        ExitCodeResource();

}

}

void parm_reset(Boolean resetMetadata, Boolean resetSliderValues, Boolean resetSliderNames, Boolean resetFormulas) {

void parm_reset(Boolean resetMetadata, Boolean resetSliderValues, Boolean resetSliderNames, Boolean resetFormulas) {

        gdata->parm.cbSize = PARM_SIZE;

        gdata->parm.cbSize = PARM_SIZE;

        if (resetMetadata) {

        if (resetMetadata) {

                strcpy(gdata->parm.szCategory, "Filter Foundry");

                strcpy(gdata->parm.szCategory, "Filter Foundry");

                strcpy(gdata->parm.szTitle, "Untitled");

                strcpy(gdata->parm.szTitle, "Untitled");

                strcpy(gdata->parm.szCopyright, ""); //"Filter Foundry Copyright (C) 2003-2009 Toby Thain, 2018-" RELEASE_YEAR " Daniel Marschall"

                strcpy(gdata->parm.szCopyright, ""); //"Filter Foundry Copyright (C) 2003-2009 Toby Thain, 2018-" RELEASE_YEAR " Daniel Marschall"

                strcpy(gdata->parm.szAuthor, "Anonymous");

                strcpy(gdata->parm.szAuthor, "Anonymous");

        }

        }

        if (resetSliderValues) {

        if (resetSliderValues) {

                int i;

                int i;

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

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

                        gdata->parm.val[i] = (uint8_t)(i * 10 + 100);

                        gdata->parm.val[i] = (uint8_t)(i * 10 + 100);

                }

                }

        }

        }

        if (resetSliderNames) {

        if (resetSliderNames) {

                int i;

                int i;

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

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

                        strcpy(gdata->parm.szCtl[i], "ctl(X)");

                        strcpy(gdata->parm.szCtl[i], "ctl(X)");

                        gdata->parm.szCtl[i][4] = '0' + i;

                        gdata->parm.szCtl[i][4] = '0' + i;

                }

                }

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

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

                        strcpy(gdata->parm.szMap[i], "Map X");

                        strcpy(gdata->parm.szMap[i], "Map X");

                        gdata->parm.szMap[i][4] = '0' + i;

                        gdata->parm.szMap[i][4] = '0' + i;

                }

                }

        }

        }

        if (resetFormulas) {

        if (resetFormulas) {

                if (gpb->imageMode == plugInModeRGBColor) {

                if (gpb->imageMode == plugInModeRGBColor) {

                        strcpy(gdata->parm.szFormula[0], "r");

                        strcpy(gdata->parm.szFormula[0], "r");

                        strcpy(gdata->parm.szFormula[1], "g");

                        strcpy(gdata->parm.szFormula[1], "g");

                        strcpy(gdata->parm.szFormula[2], "b");

                        strcpy(gdata->parm.szFormula[2], "b");

                        strcpy(gdata->parm.szFormula[3], "a");

                        strcpy(gdata->parm.szFormula[3], "a");

                }

                }

                else {

                else {

                        strcpy(gdata->parm.szFormula[0], "c");

                        strcpy(gdata->parm.szFormula[0], "c");

                        strcpy(gdata->parm.szFormula[1], "c");

                        strcpy(gdata->parm.szFormula[1], "c");

                        strcpy(gdata->parm.szFormula[2], "c");

                        strcpy(gdata->parm.szFormula[2], "c");

                        strcpy(gdata->parm.szFormula[3], "c");

                        strcpy(gdata->parm.szFormula[3], "c");

                }

                }

        }

        }

}

}

void parm_cleanup() {

void parm_cleanup() {

        // Cleanup "PARM" resource by removing stuff after the null terminators, to avoid that parts of confidential formulas are leaked

        // Cleanup "PARM" resource by removing stuff after the null terminators, to avoid that parts of confidential formulas are leaked

        int i;

        int i;

        {

        {

                char tmp[256];

                char tmp[256];

                strcpy(tmp, gdata->parm.szCategory);

                strcpy(tmp, gdata->parm.szCategory);

                memset(gdata->parm.szCategory, 0, sizeof(gdata->parm.szCategory));

                memset(gdata->parm.szCategory, 0, sizeof(gdata->parm.szCategory));

                strcpy(gdata->parm.szCategory, tmp);

                strcpy(gdata->parm.szCategory, tmp);

                strcpy(tmp, gdata->parm.szTitle);

                strcpy(tmp, gdata->parm.szTitle);

                memset(gdata->parm.szTitle, 0, sizeof(gdata->parm.szTitle));

                memset(gdata->parm.szTitle, 0, sizeof(gdata->parm.szTitle));

                strcpy(gdata->parm.szTitle, tmp);

                strcpy(gdata->parm.szTitle, tmp);

                strcpy(tmp, gdata->parm.szCopyright);

                strcpy(tmp, gdata->parm.szCopyright);

                memset(gdata->parm.szCopyright, 0, sizeof(gdata->parm.szCopyright));

                memset(gdata->parm.szCopyright, 0, sizeof(gdata->parm.szCopyright));

                strcpy(gdata->parm.szCopyright, tmp);

                strcpy(gdata->parm.szCopyright, tmp);

                strcpy(tmp, gdata->parm.szAuthor);

                strcpy(tmp, gdata->parm.szAuthor);

                memset(gdata->parm.szAuthor, 0, sizeof(gdata->parm.szAuthor));

                memset(gdata->parm.szAuthor, 0, sizeof(gdata->parm.szAuthor));

                strcpy(gdata->parm.szAuthor, tmp);

                strcpy(gdata->parm.szAuthor, tmp);

        }

        }

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

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

                char tmp[256];

                char tmp[256];

                strcpy(tmp, gdata->parm.szMap[i]);

                strcpy(tmp, gdata->parm.szMap[i]);

                memset(gdata->parm.szMap[i], 0, sizeof(gdata->parm.szMap[i]));

                memset(gdata->parm.szMap[i], 0, sizeof(gdata->parm.szMap[i]));

                strcpy(gdata->parm.szMap[i], tmp);

                strcpy(gdata->parm.szMap[i], tmp);

        }

        }

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

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

                char tmp[256];

                char tmp[256];

                strcpy(tmp, gdata->parm.szCtl[i]);

                strcpy(tmp, gdata->parm.szCtl[i]);

                memset(gdata->parm.szCtl[i], 0, sizeof(gdata->parm.szCtl[i]));

                memset(gdata->parm.szCtl[i], 0, sizeof(gdata->parm.szCtl[i]));

                strcpy(gdata->parm.szCtl[i], tmp);

                strcpy(gdata->parm.szCtl[i], tmp);

        }

        }

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

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

                char tmp[1024];

                char tmp[1024];

                strcpy(tmp, gdata->parm.szFormula[i]);

                strcpy(tmp, gdata->parm.szFormula[i]);

                memset(gdata->parm.szFormula[i], 0, sizeof(gdata->parm.szFormula[i]));

                memset(gdata->parm.szFormula[i], 0, sizeof(gdata->parm.szFormula[i]));

                strcpy(gdata->parm.szFormula[i], tmp);

                strcpy(gdata->parm.szFormula[i], tmp);

        }

        }

}

}

int checkandinitparams(Handle params){

int checkandinitparams(Handle params){

        int i;

        int i;

        Boolean bUninitializedParams;

        Boolean bUninitializedParams;

        Boolean showdialog;

        Boolean showdialog;

        InternalState tmpState;

        InternalState tmpState;

        if (!host_preserves_parameters()) {

        if (!host_preserves_parameters()) {

                // Workaround: Load settings in "FilterFoundryXX.afs" if host does not preserve pb->parameters

                // Workaround: Load settings in "FilterFoundryXX.afs" if host does not preserve pb->parameters

                TCHAR outfilename[MAX_PATH + 1];

                TCHAR outfilename[MAX_PATH + 1];

                Boolean parmReadOk;

                Boolean parmReadOk;

                StandardFileReply sfr;

                StandardFileReply sfr;

                char bakexpr[4][MAXEXPR];