/* PIKA - Photo and Image Kooker Application
 * a rebranding of The GNU Image Manipulation Program (created with heckimp)
 * A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio
 *
 * Original copyright, applying to most contents (license remains unchanged): 
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * pikapluginmanager-call.c
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */

#include "config.h"

#include <gdk-pixbuf/gdk-pixbuf.h>
#include <gegl.h>

#ifdef G_OS_WIN32
#include <windows.h>
#endif

#include "libpikabase/pikabase.h"
#include "libpikabase/pikaprotocol.h"
#include "libpikabase/pikawire.h"

#include "libpika/pikagpparams.h"

#include "plug-in-types.h"

#include "config/pikaguiconfig.h"

#include "core/pika.h"
#include "core/pikadisplay.h"
#include "core/pikaprogress.h"

#include "pdb/pikapdbcontext.h"

#include "pikaplugin.h"
#include "pikaplugin-message.h"
#include "pikaplugindef.h"
#include "pikapluginerror.h"
#include "pikapluginmanager.h"
#define __YES_I_NEED_PIKA_PLUG_IN_MANAGER_CALL__
#include "pikapluginmanager-call.h"
#include "pikapluginshm.h"
#include "pikatemporaryprocedure.h"

#include "pika-intl.h"


static void
pika_allow_set_foreground_window (PikaPlugIn *plug_in)
{
#ifdef G_OS_WIN32
  AllowSetForegroundWindow (GetProcessId (plug_in->pid));
#endif
}


/*  public functions  */

void
pika_plug_in_manager_call_query (PikaPlugInManager *manager,
                                 PikaContext       *context,
                                 PikaPlugInDef     *plug_in_def)
{
  PikaPlugIn *plug_in;

  g_return_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager));
  g_return_if_fail (PIKA_IS_PDB_CONTEXT (context));
  g_return_if_fail (PIKA_IS_PLUG_IN_DEF (plug_in_def));

  plug_in = pika_plug_in_new (manager, context, NULL,
                              NULL, plug_in_def->file);

  if (plug_in)
    {
      plug_in->plug_in_def = plug_in_def;

      if (pika_plug_in_open (plug_in, PIKA_PLUG_IN_CALL_QUERY, TRUE))
        {
          while (plug_in->open)
            {
              PikaWireMessage msg;

              if (! pika_wire_read_msg (plug_in->my_read, &msg, plug_in))
                {
                  pika_plug_in_close (plug_in, TRUE);
                }
              else
                {
                  pika_plug_in_handle_message (plug_in, &msg);
                  pika_wire_destroy (&msg);
                }
            }
        }

      g_object_unref (plug_in);
    }
}

void
pika_plug_in_manager_call_init (PikaPlugInManager *manager,
                                PikaContext       *context,
                                PikaPlugInDef     *plug_in_def)
{
  PikaPlugIn *plug_in;

  g_return_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager));
  g_return_if_fail (PIKA_IS_PDB_CONTEXT (context));
  g_return_if_fail (PIKA_IS_PLUG_IN_DEF (plug_in_def));

  plug_in = pika_plug_in_new (manager, context, NULL,
                              NULL, plug_in_def->file);

  if (plug_in)
    {
      plug_in->plug_in_def = plug_in_def;

      if (pika_plug_in_open (plug_in, PIKA_PLUG_IN_CALL_INIT, TRUE))
        {
          while (plug_in->open)
            {
              PikaWireMessage msg;

              if (! pika_wire_read_msg (plug_in->my_read, &msg, plug_in))
                {
                  pika_plug_in_close (plug_in, TRUE);
                }
              else
                {
                  pika_plug_in_handle_message (plug_in, &msg);
                  pika_wire_destroy (&msg);
                }
            }
        }

      g_object_unref (plug_in);
    }
}

PikaValueArray *
pika_plug_in_manager_call_run (PikaPlugInManager   *manager,
                               PikaContext         *context,
                               PikaProgress        *progress,
                               PikaPlugInProcedure *procedure,
                               PikaValueArray      *args,
                               gboolean             synchronous,
                               PikaDisplay         *display)
{
  PikaValueArray *return_vals = NULL;
  PikaPlugIn     *plug_in;

  g_return_val_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager), NULL);
  g_return_val_if_fail (PIKA_IS_PDB_CONTEXT (context), NULL);
  g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), NULL);
  g_return_val_if_fail (PIKA_IS_PLUG_IN_PROCEDURE (procedure), NULL);
  g_return_val_if_fail (args != NULL, NULL);
  g_return_val_if_fail (display == NULL || PIKA_IS_DISPLAY (display), NULL);

  plug_in = pika_plug_in_new (manager, context, progress, procedure, NULL);

  if (plug_in)
    {
      PikaCoreConfig    *core_config    = manager->pika->config;
      PikaGeglConfig    *gegl_config    = PIKA_GEGL_CONFIG (core_config);
      PikaDisplayConfig *display_config = PIKA_DISPLAY_CONFIG (core_config);
      PikaGuiConfig     *gui_config     = PIKA_GUI_CONFIG (core_config);
      GPConfig           config;
      GPProcRun          proc_run;
      gint               display_id;
      GObject           *monitor;
      GFile             *icon_theme_dir;

      if (! pika_plug_in_open (plug_in, PIKA_PLUG_IN_CALL_RUN, FALSE))
        {
          const gchar *name  = pika_object_get_name (plug_in);
          GError      *error = g_error_new (PIKA_PLUG_IN_ERROR,
                                            PIKA_PLUG_IN_EXECUTION_FAILED,
                                            _("Failed to run plug-in \"%s\""),
                                            name);

          g_object_unref (plug_in);

          return_vals = pika_procedure_get_return_values (PIKA_PROCEDURE (procedure),
                                                          FALSE, error);
          g_error_free (error);

          return return_vals;
        }

      if (! display)
        display = pika_context_get_display (context);

      display_id = display ? pika_display_get_id (display) : -1;

      icon_theme_dir = pika_get_icon_theme_dir (manager->pika);

      config.tile_width           = PIKA_PLUG_IN_TILE_WIDTH;
      config.tile_height          = PIKA_PLUG_IN_TILE_HEIGHT;
      config.shm_id               = (manager->shm ?
                                     pika_plug_in_shm_get_id (manager->shm) :
                                     -1);
      config.check_size           = display_config->transparency_size;
      config.check_type           = display_config->transparency_type;
      config.check_custom_color1  = display_config->transparency_custom_color1;
      config.check_custom_color2  = display_config->transparency_custom_color2;
      config.show_help_button     = (gui_config->use_help &&
                                     gui_config->show_help_button);
      config.use_cpu_accel        = manager->pika->use_cpu_accel;
      config.use_opencl           = gegl_config->use_opencl;
      config.export_color_profile = core_config->export_color_profile;
      config.export_comment       = core_config->export_comment;
      config.export_exif          = core_config->export_metadata_exif;
      config.export_xmp           = core_config->export_metadata_xmp;
      config.export_iptc          = core_config->export_metadata_iptc;
      config.default_display_id   = display_id;
      config.app_name             = (gchar *) g_get_application_name ();
      config.wm_class             = (gchar *) pika_get_program_class (manager->pika);
      config.display_name         = pika_get_display_name (manager->pika,
                                                           display_id,
                                                           &monitor,
                                                           &config.monitor_number);
      config.timestamp            = pika_get_user_time (manager->pika);
      config.icon_theme_dir       = (icon_theme_dir ?
                                     g_file_get_path (icon_theme_dir) :
                                     NULL);
      config.tile_cache_size      = gegl_config->tile_cache_size;
      config.swap_path            = gegl_config->swap_path;
      config.swap_compression     = gegl_config->swap_compression;
      config.num_processors       = gegl_config->num_processors;

      proc_run.name     = (gchar *) pika_object_get_name (procedure);
      proc_run.n_params = pika_value_array_length (args);
      proc_run.params   = _pika_value_array_to_gp_params (args, FALSE);

      if (! gp_config_write (plug_in->my_write, &config, plug_in)     ||
          ! gp_proc_run_write (plug_in->my_write, &proc_run, plug_in) ||
          ! pika_wire_flush (plug_in->my_write, plug_in))
        {
          const gchar *name  = pika_object_get_name (plug_in);
          GError      *error = g_error_new (PIKA_PLUG_IN_ERROR,
                                            PIKA_PLUG_IN_EXECUTION_FAILED,
                                            _("Failed to run plug-in \"%s\""),
                                            name);

          g_free (config.display_name);
          g_free (config.icon_theme_dir);

          _pika_gp_params_free (proc_run.params, proc_run.n_params, FALSE);

          g_object_unref (plug_in);

          return_vals = pika_procedure_get_return_values (PIKA_PROCEDURE (procedure),
                                                          FALSE, error);
          g_error_free (error);

          return return_vals;
        }

      g_free (config.display_name);
      g_free (config.icon_theme_dir);

      _pika_gp_params_free (proc_run.params, proc_run.n_params, FALSE);

      /* If this is an extension,
       * wait for an installation-confirmation message
       */
      if (PIKA_PROCEDURE (procedure)->proc_type == PIKA_PDB_PROC_TYPE_EXTENSION)
        {
          plug_in->ext_main_loop = g_main_loop_new (NULL, FALSE);

          g_main_loop_run (plug_in->ext_main_loop);

          /*  main_loop is quit in pika_plug_in_handle_extension_ack()  */

          g_clear_pointer (&plug_in->ext_main_loop, g_main_loop_unref);
        }

      /* If this plug-in is requested to run synchronously,
       * wait for its return values
       */
      if (synchronous)
        {
          PikaPlugInProcFrame *proc_frame = &plug_in->main_proc_frame;

          proc_frame->main_loop = g_main_loop_new (NULL, FALSE);

          g_main_loop_run (proc_frame->main_loop);

          /*  main_loop is quit in pika_plug_in_handle_proc_return()  */

          g_clear_pointer (&proc_frame->main_loop, g_main_loop_unref);

          return_vals = pika_plug_in_proc_frame_get_return_values (proc_frame);
        }

      g_object_unref (plug_in);
    }

  return return_vals;
}

PikaValueArray *
pika_plug_in_manager_call_run_temp (PikaPlugInManager      *manager,
                                    PikaContext            *context,
                                    PikaProgress           *progress,
                                    PikaTemporaryProcedure *procedure,
                                    PikaValueArray         *args)
{
  PikaValueArray *return_vals = NULL;
  PikaPlugIn     *plug_in;

  g_return_val_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager), NULL);
  g_return_val_if_fail (PIKA_IS_PDB_CONTEXT (context), NULL);
  g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), NULL);
  g_return_val_if_fail (PIKA_IS_TEMPORARY_PROCEDURE (procedure), NULL);
  g_return_val_if_fail (args != NULL, NULL);

  plug_in = procedure->plug_in;

  if (plug_in)
    {
      PikaPlugInProcFrame *proc_frame;
      GPProcRun            proc_run;

      proc_frame = pika_plug_in_proc_frame_push (plug_in, context, progress,
                                                 procedure);

      proc_run.name     = (gchar *) pika_object_get_name (procedure);
      proc_run.n_params = pika_value_array_length (args);
      proc_run.params   = _pika_value_array_to_gp_params (args, FALSE);

      if (! gp_temp_proc_run_write (plug_in->my_write, &proc_run, plug_in) ||
          ! pika_wire_flush (plug_in->my_write, plug_in))
        {
          const gchar *name  = pika_object_get_name (plug_in);
          GError      *error = g_error_new (PIKA_PLUG_IN_ERROR,
                                            PIKA_PLUG_IN_EXECUTION_FAILED,
                                            _("Failed to run plug-in \"%s\""),
                                            name);


          _pika_gp_params_free (proc_run.params, proc_run.n_params, FALSE);
          pika_plug_in_proc_frame_pop (plug_in);

          return_vals = pika_procedure_get_return_values (PIKA_PROCEDURE (procedure),
                                                          FALSE, error);
          g_error_free (error);

          return return_vals;
        }

      pika_allow_set_foreground_window (plug_in);

      _pika_gp_params_free (proc_run.params, proc_run.n_params, FALSE);

      g_object_ref (plug_in);
      pika_plug_in_proc_frame_ref (proc_frame);

      pika_plug_in_main_loop (plug_in);

      /*  main_loop is quit and proc_frame is popped in
       *  pika_plug_in_handle_temp_proc_return()
       */

      return_vals = pika_plug_in_proc_frame_get_return_values (proc_frame);

      pika_plug_in_proc_frame_unref (proc_frame, plug_in);
      g_object_unref (plug_in);
    }

  return return_vals;
}