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.com.au

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

        Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft

        Copyright (C) 2018-2021 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 "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

struct node *tree[4];

struct node *tree[4];

char *err[4];

char *err[4];

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

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

char *expr[4];

char *expr[4];

// long maxSpace;

// long maxSpace;

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 get_parm_hash(PARM_T *parm) {

unsigned long get_parm_hash(PARM_T *parm) {

        unsigned long hash;

        unsigned long hash;

        int i;

        int i;

        hash = djb2((char*)parm->category);

        hash = djb2((char*)parm->category);

        hash += djb2((char*)parm->title);

        hash += djb2((char*)parm->title);

        hash += djb2((char*)parm->copyright);

        hash += djb2((char*)parm->copyright);

        hash += djb2((char*)parm->author);

        hash += djb2((char*)parm->author);

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

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

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

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

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

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

        return hash;

        return hash;

}

}

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;

        OSErr e = noErr;

        OSErr e = noErr;

        char *reason;

        char *reason;

        #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

        // The first 64KB of address space is always invalid

        // The first 64KB of address space is always invalid

        if ((intptr_t)result <= 0xffff) {

        if ((intptr_t)result <= 0xffff) {

                // 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

                //    C:\Windows\System32\rundll32.exe rundll32.exe FilterFoundry.8bf,PluginMain

                //    C:\Windows\System32\rundll32.exe rundll32.exe FilterFoundry.8bf,PluginMain

                // But RunDLL32 requires following signature:

                // But RunDLL32 requires following signature:

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

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

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

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

                // 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 processes like "MicrosoftEdgeUpdate.exe" and "SpeechRuntime.exe" are reported to be our

                // Even 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

                // 

                // 

                // TODO: Not 100% sure if the calling convention is correct...

                // TODO: Not 100% sure if the calling convention is correct...

                //       are we corrupting the stack? At least WER isn't triggered...

                //       are we corrupting the stack? At least WER isn't triggered...

                return;

                return;

        }

        }

        #endif

        #endif

        #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->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->numBufferProcs);

        simplealert(tmp);

        simplealert(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 (yes, that's possible,

                // DM 19.07.2021 : Tried running the 8BF file in Adobe Premiere 5 (yes, that's possible,

                // and there is even a FilterFactory for Premeire!),

                // and there is even a FilterFactory for Premeire!),

                // 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".

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

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

                if (!premiereWarnedOnce) {

                if (!premiereWarnedOnce) {

                        simplealert(_strdup("This version of Filter Foundry is not compatible with Adobe Premiere!"));

                        simplealert(_strdup("This version of Filter Foundry is not compatible with Adobe Premiere!"));

                }

                }

                premiereWarnedOnce = true;

                premiereWarnedOnce = true;

                *result = errPlugInHostInsufficient;

                *result = errPlugInHostInsufficient;

                return;

                return;

        }

        }

        #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

        // 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 then in *data

        // and preserve then in *data

        // TODO: memory leak? where is the stuff freed?

        // TODO: memory leak? where is the stuff freed?

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

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

                /*

                /*

                PSBufferSuite1* pSBufferSuite32 = NULL;

                PSBufferSuite1* pSBufferSuite32 = NULL;

                if ((pb->sSPBasic == 0) ||

                if ((pb->sSPBasic == 0) ||

                        (pb->sSPBasic->AcquireSuite(kPSBufferSuite, kPSBufferSuiteVersion1, (const void**)&pSBufferSuite32)) ||

                        (pb->sSPBasic->AcquireSuite(kPSBufferSuite, kPSBufferSuiteVersion1, (const void**)&pSBufferSuite32)) ||

                        (pSBufferSuite32 == NULL))

                        (pSBufferSuite32 == NULL))

                {

                {

                                // Old deprecated buffer suite

                                // Old deprecated buffer suite

                                BufferID tempId;

                                BufferID tempId;

                                if ((*result = pb->bufferProcs->allocateProc(sizeof(globals_t), &tempId))) return;

                                if ((*result = pb->bufferProcs->allocateProc(sizeof(globals_t), &tempId))) return;

                                *data = (intptr_t)pb->bufferProcs->lockProc(tempId, true);

                                *data = (intptr_t)pb->bufferProcs->lockProc(tempId, true);

                                gdata = (globals_t*)*data;

                                gdata = (globals_t*)*data;

                }

                }

                else

                else

                {

                {

                                // New buffer suite (but only 32-bit version 1, because version 2 has problems with old Photoshop versions)

                                // New buffer suite (but only 32-bit version 1, because version 2 has problems with old Photoshop versions)

                                // Windows Photoshop 7 and CS 2 accepts kPSBufferSuiteVersion2, but doesn't correctly implement it:

                                // Windows Photoshop 7 and CS 2 accepts kPSBufferSuiteVersion2, but doesn't correctly implement it:

                                // The symbols "New" and "GetSpace64" point to memory memory addresses outside the Photoshop.exe address range.

                                // The symbols "New" and "GetSpace64" point to memory memory addresses outside the Photoshop.exe address range.

                                // (Other Photoshop versions were not tested.)

                                // (Other Photoshop versions were not tested.)

                                // 64-bit support for Windows was established in Photoshop CS 4,

                                // 64-bit support for Windows was established in Photoshop CS 4,

                                // and PSBufferSuite2 was first documented in SDK CS 6.

                                // and PSBufferSuite2 was first documented in SDK CS 6.

                                // So, kPSBufferSuiteVersion2 probably was partically implemented as hidden "Work in progress" version

                                // So, kPSBufferSuiteVersion2 probably was partically implemented as hidden "Work in progress" version

                                // before it was publicly documented.

                                // before it was publicly documented.

                                // Side note:  pb->bufferSpace64/pb->maxSpace64 was documented in SDK CC 2017.

                                // Side note:  pb->bufferSpace64/pb->maxSpace64 was documented in SDK CC 2017.

                                //             pb->bufferProcs->allocateProc64/spaceProc64 was documented in SDK CS 6.

                                //             pb->bufferProcs->allocateProc64/spaceProc64 was documented in SDK CS 6.

                                unsigned32 siz = sizeof(globals_t);

                                unsigned32 siz = sizeof(globals_t);

                                *data = (intptr_t)pSBufferSuite32->New(&siz, siz);

                                *data = (intptr_t)pSBufferSuite32->New(&siz, siz);

                                if ((*data == 0) || (siz == 0)) {

                                if ((*data == 0) || (siz == 0)) {

                                                *result = errPlugInHostInsufficient; // TODO: what is the correct error code for "out of memory"?

                                                *result = errPlugInHostInsufficient; // TODO: what is the correct error code for "out of memory"?

                                                return;

                                                return;

                                }

                                }

                                gdata = (globals_t*)*data;

                                gdata = (globals_t*)*data;

                                pb->sSPBasic->ReleaseSuite(kPSBufferSuite, kPSBufferSuiteVersion1);

                                pb->sSPBasic->ReleaseSuite(kPSBufferSuite, kPSBufferSuiteVersion1);

                }

                }

                gdata->standalone = gdata->parmloaded = false;

                gdata->standalone = gdata->parmloaded = false;

                */

                */

                // We have 3 options:

                // We have 3 options:

                // - The deprecated buffer suite (pb->bufferProcs), works fine

                // - The deprecated buffer suite (pb->bufferProcs), works fine

                // - The recommended buffer suite (kPSBufferSuite), does NOT work (causes memory corruption?) and is not available on some hosts!

                // - The recommended buffer suite (kPSBufferSuite), does NOT work (causes memory corruption?) and is not available on some hosts!

                //   Either I do something wrong, or maybe it cannot be used to store data between invocations?

                //   Either I do something wrong, or maybe it cannot be used to store data between invocations?

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

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

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

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

                if (*data == 0) return;

                if (*data == 0) return;

                gdata = (globals_t*)*data;

                gdata = (globals_t*)*data;

                gdata->standalone = gdata->parmloaded = false; // they will be set later

                gdata->standalone = gdata->parmloaded = false; // they will be set later

        }

        }

        else {

        else {

                // We have data from the previous invocation. Use it instead

                // We have data from the previous invocation. Use it instead

                gdata = (globals_t*)*data;

                gdata = (globals_t*)*data;

        }

        }

        #ifdef WIN_ENV

        #ifdef WIN_ENV

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

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

        #endif

        #endif

        gpb = pb;

        gpb = pb;

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

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

        switch (selector){

        switch (selector){

        case filterSelectorAbout:

        case filterSelectorAbout:

                if (!gdata) {

                if (!gdata) {

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

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

                        if (!gdata) break;

                        if (!gdata) break;

                        gdata->standalone = gdata->parmloaded = readPARMresource((HMODULE)hDllInstance,&reason,READ_OBFUSC);

                        gdata->standalone = gdata->parmloaded = readPARMresource((HMODULE)hDllInstance,&reason,READ_OBFUSC);

                        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:

                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.

                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->standalone || gdata->parm.popDialog) ){

                if( wantdialog && (!gdata->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

                                        char outfilename[255];

                                        char outfilename[255];

                                        char* tempdir;

                                        char* tempdir;

                                        int hash;

                                        int hash;

                                        StandardFileReply sfr;

                                        StandardFileReply sfr;

                                        char* bakexpr[4];

                                        char* bakexpr[4];

                                        sfr.sfGood = true;

                                        sfr.sfGood = true;

                                        sfr.sfReplacing = true;

                                        sfr.sfReplacing = true;

                                        sfr.sfType = PS_FILTER_FILETYPE;

                                        sfr.sfType = PS_FILTER_FILETYPE;

                                        tempdir = getenv("TMP");

                                        tempdir = getenv("TMP");

                                        #ifdef WIN_ENV

                                        #ifdef WIN_ENV

                                        if (strlen(tempdir) > 0) strcat(tempdir, "\\");

                                        if (strlen(tempdir) > 0) strcat(tempdir, "\\");

                                        #else

                                        #else

                                        if (strlen(tempdir) > 0) strcat(tempdir, "/");

                                        if (strlen(tempdir) > 0) strcat(tempdir, "/");

                                        #endif

                                        #endif

                                        hash = (gdata->standalone) ? get_parm_hash(&gdata->parm) : 0;

                                        hash = (gdata->standalone) ? get_parm_hash(&gdata->parm) : 0;

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

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

                                        myc2pstrcpy(sfr.sfFile.name, outfilename);

                                        myc2pstrcpy(sfr.sfFile.name, outfilename);

                                        #ifdef WIN_ENV

                                        #ifdef WIN_ENV

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

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

                                        #endif

                                        #endif

                                        sfr.sfScript = 0; // FIXME: is that ok?

                                        sfr.sfScript = 0; // FIXME: is that ok?

                                        // 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.

                                        // revealed in the temporary files.

                                        bakexpr[0] = expr[0]; // moved out of the if-definition to make the compiler happy

                                        bakexpr[0] = expr[0]; // moved out of the if-definition to make the compiler happy

                                        bakexpr[1] = expr[1];

                                        bakexpr[1] = expr[1];

                                        bakexpr[2] = expr[2];

                                        bakexpr[2] = expr[2];

                                        bakexpr[3] = expr[3];

                                        bakexpr[3] = expr[3];

                                        if (gdata->standalone) {

                                        if (gdata->standalone) {

                                                expr[0] = _strdup("r");

                                                expr[0] = _strdup("r");

                                                expr[1] = _strdup("g");

                                                expr[1] = _strdup("g");

                                                expr[2] = _strdup("b");

                                                expr[2] = _strdup("b");

                                                expr[3] = _strdup("a");

                                                expr[3] = _strdup("a");

                                        }

                                        }

                                        savefile(&sfr);

                                        savefile(&sfr);

                                        if (gdata->standalone) {

                                        if (gdata->standalone) {

                                                free(expr[0]); expr[0] = bakexpr[0];

                                                free(expr[0]); expr[0] = bakexpr[0];

                                                free(expr[1]); expr[1] = bakexpr[1];

                                                free(expr[1]); expr[1] = bakexpr[1];

                                                free(expr[2]); expr[2] = bakexpr[2];

                                                free(expr[2]); expr[2] = bakexpr[2];

                                                free(expr[3]); expr[3] = bakexpr[3];

                                                free(expr[3]); expr[3] = bakexpr[3];

                                        }

                                        }

                                } else {

                                } else {

                                        /* update stored parameters from new user settings */

                                        /* update stored parameters from new user settings */

                                        saveparams(pb->parameters);

                                        saveparams(pb->parameters);

                                }

                                }

                        }else

                        }else

                                e = userCanceledErr;

                                e = userCanceledErr;

                }

                }

                wantdialog = false;

                wantdialog = false;

                if(!e){

                if(!e){

                        if(setup(pb)){

                        if(setup(pb)){

                                DoStart(pb);

                                DoStart(pb);

                        }else{

                        }else{

                                SYSBEEP(1);

                                SYSBEEP(1);

                                e = filterBadParameters;

                                e = filterBadParameters;

                        }

                        }

                }

                }

                break;

                break;

        case filterSelectorContinue:

        case filterSelectorContinue:

                e = DoContinue(pb);

                e = DoContinue(pb);

                break;

                break;

        case filterSelectorFinish:

        case filterSelectorFinish:

                DoFinish(pb);

                DoFinish(pb);

                break;

                break;

        default:

        default:

                e = filterBadParameters;

                e = filterBadParameters;

        }

        }

        *result = e;

        *result = e;

        #ifdef WIN_ENV

        #ifdef WIN_ENV

        if (activationContextUsed) DeactivateManifest(&manifestVars);

        if (activationContextUsed) DeactivateManifest(&manifestVars);

        #endif

        #endif

        ExitCodeResource();

        ExitCodeResource();

}

}

int checkandinitparams(Handle params){

int checkandinitparams(Handle params){

        char *reasonstr,*reason;

        char *reasonstr,*reason;

        int i,bUninitializedParams;

        int i,bUninitializedParams;

        Boolean showdialog;

        Boolean showdialog;

        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

                char outfilename[255];

                char outfilename[255];

                char* tempdir;

                char* tempdir;

                int hash;

                int hash;

                Boolean isStandalone;

                Boolean isStandalone;

                StandardFileReply sfr;

                StandardFileReply sfr;

                char* bakexpr[4];

                char* bakexpr[4];

                sfr.sfGood = true;

                sfr.sfGood = true;

                sfr.sfReplacing = true;

                sfr.sfReplacing = true;

                sfr.sfType = PS_FILTER_FILETYPE;

                sfr.sfType = PS_FILTER_FILETYPE;

                // We need to set gdata->standalone after loadfile(), but we must call readPARMresource() before loadfile()

                // We need to set gdata->standalone after loadfile(), but we must call readPARMresource() before loadfile()

                // Reason: readPARMresource() reads parameters from the DLL while loadfile() reads parameters from the AFS file

                // Reason: readPARMresource() reads parameters from the DLL while loadfile() reads parameters from the AFS file

                // But loadfile() will reset gdata->standalone ...

                // But loadfile() will reset gdata->standalone ...

                isStandalone = readPARMresource((HMODULE)hDllInstance, &reason, READ_OBFUSC);

                isStandalone = readPARMresource((HMODULE)hDllInstance, &reason, READ_OBFUSC);

                tempdir = getenv("TMP");

                tempdir = getenv("TMP");

                #ifdef WIN_ENV

                #ifdef WIN_ENV

                if (strlen(tempdir) > 0) strcat(tempdir, "\\");

                if (strlen(tempdir) > 0) strcat(tempdir, "\\");

                #else

                #else

                if (strlen(tempdir) > 0) strcat(tempdir, "/");

                if (strlen(tempdir) > 0) strcat(tempdir, "/");

                #endif

                #endif

                hash = (isStandalone) ? get_parm_hash(&gdata->parm) : 0;

                hash = (isStandalone) ? get_parm_hash(&gdata->parm) : 0;

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

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

                myc2pstrcpy(sfr.sfFile.name, outfilename);

                myc2pstrcpy(sfr.sfFile.name, outfilename);

                #ifdef WIN_ENV

                #ifdef WIN_ENV

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

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

                #endif

                #endif

                sfr.sfScript = 0; // FIXME: is that ok?

                sfr.sfScript = 0; // FIXME: is that ok?

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

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

                if (isStandalone) {

                if (isStandalone) {

                        bakexpr[0] = my_strdup(expr[0]);

                        bakexpr[0] = my_strdup(expr[0]);

                        bakexpr[1] = my_strdup(expr[1]);

                        bakexpr[1] = my_strdup(expr[1]);

                        bakexpr[2] = my_strdup(expr[2]);

                        bakexpr[2] = my_strdup(expr[2]);

                        bakexpr[3] = my_strdup(expr[3]);

                        bakexpr[3] = my_strdup(expr[3]);

                }

                }

                if (loadfile(&sfr, &reason)) {

                if (loadfile(&sfr, &reason)) {

                        gdata->standalone = gdata->parmloaded = isStandalone;

                        gdata->standalone = gdata->parmloaded = isStandalone;

                        if (isStandalone) {

                        if (isStandalone) {

                                free(expr[0]); expr[0] = bakexpr[0];

                                free(expr[0]); expr[0] = bakexpr[0];

                                free(expr[1]); expr[1] = bakexpr[1];

                                free(expr[1]); expr[1] = bakexpr[1];

                                free(expr[2]); expr[2] = bakexpr[2];

                                free(expr[2]); expr[2] = bakexpr[2];

                                free(expr[3]); expr[3] = bakexpr[3];

                                free(expr[3]); expr[3] = bakexpr[3];

                        }

                        }

                        return true;

                        return true;

                }

                }

        }

        }

        if( (bUninitializedParams = !(params && readparams(params,false,&reasonstr))) ){

        if( (bUninitializedParams = !(params && readparams(params,false,&reasonstr))) ){

                /* either the parameter handle was uninitialised,

                /* either the parameter handle was uninitialised,

                   or the parameter data couldn't be read; set default values */

                   or the parameter data couldn't be read; set default values */

                // see if saved parameters exist

                // see if saved parameters exist

                gdata->standalone = gdata->parmloaded = readPARMresource((HMODULE)hDllInstance,&reason,READ_OBFUSC);

                gdata->standalone = gdata->parmloaded = readPARMresource((HMODULE)hDllInstance,&reason,READ_OBFUSC);

                if(!gdata->standalone){

                if(!gdata->standalone){

                        // no saved settings (not standalone)

                        // no saved settings (not standalone)

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

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

                                slider[i] = i*10+100;

                                slider[i] = i*10+100;

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

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

                                if(expr[i])

                                if(expr[i])

                                        free(expr[i]);

                                        free(expr[i]);

                        if(gpb->imageMode == plugInModeRGBColor){

                        if(gpb->imageMode == plugInModeRGBColor){

                                expr[0] = _strdup("r");

                                expr[0] = _strdup("r");

                                expr[1] = _strdup("g");

                                expr[1] = _strdup("g");

                                expr[2] = _strdup("b");

                                expr[2] = _strdup("b");

                                expr[3] = _strdup("a");

                                expr[3] = _strdup("a");

                        }else{

                        }else{

                                expr[0] = _strdup("c");

                                expr[0] = _strdup("c");

                                expr[1] = _strdup("c");

                                expr[1] = _strdup("c");

                                expr[2] = _strdup("c");

                                expr[2] = _strdup("c");

                                expr[3] = _strdup("c");

                                expr[3] = _strdup("c");

                        }

                        }

                }

                }

        }

        }

        // let scripting system change parameters, if we're scripted;

        // let scripting system change parameters, if we're scripted;

        // user may want to force display of dialog during scripting playback

        // user may want to force display of dialog during scripting playback

        switch (ReadScriptParamsOnRead()) {

        switch (ReadScriptParamsOnRead()) {

        case SCR_SHOW_DIALOG:

        case SCR_SHOW_DIALOG:

                showdialog = true;

                showdialog = true;

                break;

                break;

        case SCR_HIDE_DIALOG:

        case SCR_HIDE_DIALOG:

                showdialog = false;

                showdialog = false;

                break;

                break;

        default:

        default:

        case SCR_NO_SCRIPT:

        case SCR_NO_SCRIPT:

                showdialog = bUninitializedParams;

                showdialog = bUninitializedParams;

                break;

                break;

        }

        }

        saveparams(params);

        saveparams(params);

        return showdialog;

        return showdialog;

}

}

Boolean host_preserves_parameters() {

Boolean host_preserves_parameters() {

        #ifdef DEBUG_SIMULATE_GIMP

        #ifdef DEBUG_SIMULATE_GIMP

        return false;

        return false;

        #endif

        #endif

        if (gpb->hostSig == HOSTSIG_GIMP) return false;

        if (gpb->hostSig == HOSTSIG_GIMP) return false;

        if (gpb->hostSig == HOSTSIG_IRFANVIEW) return false;

        if (gpb->hostSig == HOSTSIG_IRFANVIEW) return false;

        // We just assume the other hosts preserve the parameters

        // We just assume the other hosts preserve the parameters

        return true;

        return true;

}

}

int64_t maxspace(){

int64_t maxspace(){

        // Please see "Hosts.md" for details about the MaxSpace implementations of tested plugins

        // Please see "Hosts.md" for details about the MaxSpace implementations of tested plugins

        // Plugins that don't support MaxSpace64 shall set the field to zero; then we will use MaxSpace instead.

        // Plugins that don't support MaxSpace64 shall set the field to zero; then we will use MaxSpace instead.

        // Also check "gpb->bufferProcs->numBufferProcs" to see if 64 bit API is available

        // Also check "gpb->bufferProcs->numBufferProcs" to see if 64 bit API is available

        if ((gpb->bufferProcs->numBufferProcs >= 8) && (gpb->maxSpace64 > 0)) {

        if ((gpb->bufferProcs->numBufferProcs >= 8) && (gpb->maxSpace64 > 0)) {

                uint64_t maxSpace64 = gpb->maxSpace64;

                uint64_t maxSpace64 = gpb->maxSpace64;

                return maxSpace64;

                return maxSpace64;

        } else {

        } else {

                // Note: If maxSpace gets converted from Int32 to unsigned int, we can reach up to 4 GB RAM. However, after this, there will be a wrap to 0 GB again.

                // Note: If maxSpace gets converted from Int32 to unsigned int, we can reach up to 4 GB RAM. However, after this, there will be a wrap to 0 GB again.

                unsigned int maxSpace32 = (unsigned int) gpb->maxSpace;

                unsigned int maxSpace32 = (unsigned int) gpb->maxSpace;

                uint64_t maxSpace64 = maxSpace32;

                uint64_t maxSpace64 = maxSpace32;

                if (gpb->hostSig == HOSTSIG_IRFANVIEW) maxSpace64 *= 1024; // IrfanView is giving Kilobytes instead of Bytes

                if (gpb->hostSig == HOSTSIG_IRFANVIEW) maxSpace64 *= 1024; // IrfanView is giving Kilobytes instead of Bytes

                //if (gpb->hostSig == HOSTSIG_SERIF_PHOTOPLUS) maxSpace64 *= 1024; // TODO: Serif PhotoPlus also gives Kilobytes instead of bytes. But since it uses not a unique host signature, there is nothing we can do???

                //if (gpb->hostSig == HOSTSIG_SERIF_PHOTOPLUS) maxSpace64 *= 1024; // TODO: Serif PhotoPlus also gives Kilobytes instead of bytes. But since it uses not a unique host signature, there is nothing we can do???

                return maxSpace64;

                return maxSpace64;

        }

        }

}

}

Boolean maxspace_available() {

Boolean maxspace_available() {

        // Please see "Hosts.md" for details about the MaxSpace implementations of tested plugins

        // Please see "Hosts.md" for details about the MaxSpace implementations of tested plugins

        // GIMP PSPI sets MaxSpace to hardcoded 100 MB

        // GIMP PSPI sets MaxSpace to hardcoded 100 MB

        if (gpb->hostSig == HOSTSIG_GIMP) return false;

        if (gpb->hostSig == HOSTSIG_GIMP) return false;

        // HOSTSIG_PAINT_NET sets MaxSpace to hardcoded 1 GB, see https://github.com/0xC0000054/PSFilterPdn/issues/5

        // HOSTSIG_PAINT_NET sets MaxSpace to hardcoded 1 GB, see https://github.com/0xC0000054/PSFilterPdn/issues/5

        // Comment by the host author "This was done to avoid any compatibility issues with plugins handling 2 GB - 1"

        // Comment by the host author "This was done to avoid any compatibility issues with plugins handling 2 GB - 1"

        if (gpb->hostSig == HOSTSIG_PAINT_NET) return false;

        if (gpb->hostSig == HOSTSIG_PAINT_NET) return false;

        return true;

        return true;

}

}

void DoPrepare(FilterRecordPtr pb){

void DoPrepare(FilterRecordPtr pb){

        int i;

        int i;

        for(i = 4; i--;){

        for(i = 4; i--;){

                if(expr[i]||tree[i]) DBG("expr[] or tree[] non-NULL in Prepare!");

                if(expr[i]||tree[i]) DBG("expr[] or tree[] non-NULL in Prepare!");

                expr[i] = NULL;

                expr[i] = NULL;

                tree[i] = NULL;

                tree[i] = NULL;

        }

        }

        // Commented out by DM, 18 Dec 2018:

        // Commented out by DM, 18 Dec 2018:

        // This code did not work on systems with 8 GB RAM:

        // This code did not work on systems with 8 GB RAM:

        /*

        /*

        long space = (pb->maxSpace*9)/10; // don't ask for more than 90% of available memory

        long space = (pb->maxSpace*9)/10; // don't ask for more than 90% of available memory

        maxSpace = 512L<<10; // this is a wild guess, actually

        maxSpace = 512L<<10; // this is a wild guess, actually

        if(maxSpace > space)

        if(maxSpace > space)

                        maxSpace = space;

                        maxSpace = space;

        pb->maxSpace = maxSpace;

        pb->maxSpace = maxSpace;

        */

        */

        // New variant:

        // New variant:

        if (maxspace_available()) {

        if (maxspace_available()) {

                pb->maxSpace = (int32)ceil((maxspace()/10.)*9); // don't ask for more than 90% of available memory

                pb->maxSpace = (int32)ceil((maxspace()/10.)*9); // don't ask for more than 90% of available memory

                // FIXME: Also maxSpace64

                // FIXME: Also maxSpace64

        }

        }

}

}

void RequestNext(FilterRecordPtr pb,long toprow){

void RequestNext(FilterRecordPtr pb,long toprow){

        /* Request next block of the image */

        /* Request next block of the image */

        pb->inLoPlane = pb->outLoPlane = 0;

        pb->inLoPlane = pb->outLoPlane = 0;

        pb->inHiPlane = pb->outHiPlane = nplanes-1;

        pb->inHiPlane = pb->outHiPlane = nplanes-1;

        if (HAS_BIG_DOC(pb)) {

        if (HAS_BIG_DOC(pb)) {

                // if any of the formulae involve random access to image pixels,

                // if any of the formulae involve random access to image pixels,

                // ask for the entire image

                // ask for the entire image

                if (needall) {

                if (needall) {

                        SETRECT(BIGDOC_IN_RECT(pb), 0, 0, BIGDOC_IMAGE_SIZE(pb).h, BIGDOC_IMAGE_SIZE(pb).v);

                        SETRECT(BIGDOC_IN_RECT(pb), 0, 0, BIGDOC_IMAGE_SIZE(pb).h, BIGDOC_IMAGE_SIZE(pb).v);

                } else {

                } else {

                        // TODO: This does not work with GIMP. So, if we are using GIMP, we should

                        // TODO: This does not work with GIMP. So, if we are using GIMP, we should

                        //       somehow always use "needall=true", and/or find out why this doesn't work

                        //       somehow always use "needall=true", and/or find out why this doesn't work

                        //       with GIMP.

                        //       with GIMP.

                        // otherwise, process the filtered area, by chunksize parts

                        // otherwise, process the filtered area, by chunksize parts

                        BIGDOC_IN_RECT(pb).left = BIGDOC_FILTER_RECT(pb).left;

                        BIGDOC_IN_RECT(pb).left = BIGDOC_FILTER_RECT(pb).left;

                        BIGDOC_IN_RECT(pb).right = BIGDOC_FILTER_RECT(pb).right;

                        BIGDOC_IN_RECT(pb).right = BIGDOC_FILTER_RECT(pb).right;

                        BIGDOC_IN_RECT(pb).top = (int32)toprow;

                        BIGDOC_IN_RECT(pb).top = (int32)toprow;

                        BIGDOC_IN_RECT(pb).bottom = (int32)MIN(toprow + chunksize, BIGDOC_FILTER_RECT(pb).bottom);

                        BIGDOC_IN_RECT(pb).bottom = (int32)MIN(toprow + chunksize, BIGDOC_FILTER_RECT(pb).bottom);

                        if (cnvused) {

                        if (cnvused) {

                                // cnv() needs one extra pixel in each direction

                                // cnv() needs one extra pixel in each direction

                                if (BIGDOC_IN_RECT(pb).left > 0)

                                if (BIGDOC_IN_RECT(pb).left > 0)

                                        --BIGDOC_IN_RECT(pb).left;

                                        --BIGDOC_IN_RECT(pb).left;

                                if (BIGDOC_IN_RECT(pb).right < BIGDOC_IMAGE_SIZE(pb).h)

                                if (BIGDOC_IN_RECT(pb).right < BIGDOC_IMAGE_SIZE(pb).h)

                                        ++BIGDOC_IN_RECT(pb).right;

                                        ++BIGDOC_IN_RECT(pb).right;

                                if (BIGDOC_IN_RECT(pb).top > 0)

                                if (BIGDOC_IN_RECT(pb).top > 0)

                                        --BIGDOC_IN_RECT(pb).top;

                                        --BIGDOC_IN_RECT(pb).top;

                                if (BIGDOC_IN_RECT(pb).bottom < BIGDOC_IMAGE_SIZE(pb).v)

                                if (BIGDOC_IN_RECT(pb).bottom < BIGDOC_IMAGE_SIZE(pb).v)

                                        ++BIGDOC_IN_RECT(pb).bottom;

                                        ++BIGDOC_IN_RECT(pb).bottom;

                        }

                        }

                }

                }

                BIGDOC_OUT_RECT(pb) = BIGDOC_FILTER_RECT(pb);

                BIGDOC_OUT_RECT(pb) = BIGDOC_FILTER_RECT(pb);

                /*

                /*

                {char s[0x100];sprintf(s,"RequestNext needall=%d inRect=(%d,%d,%d,%d) filterRect=(%d,%d,%d,%d)",

                {char s[0x100];sprintf(s,"RequestNext needall=%d inRect=(%d,%d,%d,%d) filterRect=(%d,%d,%d,%d)",

                                needall,

                                needall,

                                BIGDOC_IN_RECT(pb).left,BIGDOC_IN_RECT(pb).top,BIGDOC_IN_RECT(pb).right,BIGDOC_IN_RECT(pb).bottom,

                                BIGDOC_IN_RECT(pb).left,BIGDOC_IN_RECT(pb).top,BIGDOC_IN_RECT(pb).right,BIGDOC_IN_RECT(pb).bottom,

                                BIGDOC_FILTER_RECT(pb).left,BIGDOC_FILTER_RECT(pb).top,BIGDOC_FILTER_RECT(pb).right,BIGDOC_FILTER_RECT(pb).bottom);dbg(s);}

                                BIGDOC_FILTER_RECT(pb).left,BIGDOC_FILTER_RECT(pb).top,BIGDOC_FILTER_RECT(pb).right,BIGDOC_FILTER_RECT(pb).bottom);dbg(s);}

                */

                */

        } else {

        } else {

                // if any of the formulae involve random access to image pixels,

                // if any of the formulae involve random access to image pixels,

                // ask for the entire image

                // ask for the entire image

                if (needall) {

                if (needall) {

                        SETRECT(IN_RECT(pb), 0, 0, IMAGE_SIZE(pb).h, IMAGE_SIZE(pb).v);

                        SETRECT(IN_RECT(pb), 0, 0, IMAGE_SIZE(pb).h, IMAGE_SIZE(pb).v);

                }

                }

                else {

                else {