PIKApp/libpika/pikaprocedure-params.h

/* LIBPIKA - The PIKA Library
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * pikaprocedure-params.h
 * Copyright (C) 2019  Michael Natterer <mitch@gimp.org>
 *
 * This library is free software: you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 3 of the License, or (at your option) any later version.
 *
 * This library 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library.  If not, see
 * <https://www.gnu.org/licenses/>.
 */

#if !defined (__PIKA_H_INSIDE__) && !defined (PIKA_COMPILATION)
#error "Only <libpika/pika.h> can be included directly."
#endif

#ifndef __PIKA_PROCEDURE_PARAMS_H__
#define __PIKA_PROCEDURE_PARAMS_H__

G_BEGIN_DECLS

/* For information look into the C source or the html documentation */


/**
 * SECTION: pikaprocedure-params
 * @title: PikaProcedure-params
 * @short_description: Macros and defines to add procedure arguments
 *                     and return values.
 *
 * Macros and defines to add procedure arguments and return values.
 **/


/*  boolean  */

#define PIKA_PROC_ARG_BOOLEAN(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_boolean (name, nick, blurb,\
                               default,\
                               flags))

#define PIKA_PROC_AUX_ARG_BOOLEAN(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_boolean (name, nick, blurb,\
                                   default,\
                                   flags))

#define PIKA_PROC_VAL_BOOLEAN(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_boolean (name, nick, blurb,\
                                   default,\
                                   flags))

#define PIKA_VALUES_GET_BOOLEAN(args, n) \
  g_value_get_boolean (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_BOOLEAN(args, n, value) \
  g_value_set_boolean (pika_value_array_index (args, n), value)


/*  int  */

#define PIKA_PROC_ARG_INT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_int (name, nick, blurb,\
                               min, max, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_INT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_int (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_PROC_VAL_INT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_int (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_VALUES_GET_INT(args, n) \
  g_value_get_int (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_INT(args, n, value) \
  g_value_set_int (pika_value_array_index (args, n), value)


/*  uint  */

#define PIKA_PROC_ARG_UINT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_uint (name, nick, blurb,\
                               min, max, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_UINT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_uint (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_PROC_VAL_UINT(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_uint (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_VALUES_GET_UINT(args, n) \
  g_value_get_uint (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_UINT(args, n, value) \
  g_value_set_uint (pika_value_array_index (args, n), value)


/* uchar  */

#define PIKA_PROC_ARG_UCHAR(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_uchar (name, nick, blurb,\
                               min, max, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_UCHAR(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_uchar (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_PROC_VAL_UCHAR(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_uchar (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_VALUES_GET_UCHAR(args, n) \
  g_value_get_uchar (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_UCHAR(args, n, value) \
  g_value_set_uchar (pika_value_array_index (args, n), value)


/*  unit  */

#define PIKA_PROC_ARG_UNIT(procedure, name, nick, blurb, pixels, percent, default, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_unit (name, nick, blurb,\
                               pixels, percent, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_UNIT(procedure, name, nick, blurb, pixels, percent, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_unit (name, nick, blurb,\
                                   pixels, percent, default,\
                                   flags))

#define PIKA_PROC_VAL_UNIT(procedure, name, nick, blurb, pixels, percent, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_unit (name, nick, blurb,\
                                   pixels, percent, default,\
                                   flags))


/*  double  */

#define PIKA_PROC_ARG_DOUBLE(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_double (name, nick, blurb,\
                               min, max, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_DOUBLE(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_double (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_PROC_VAL_DOUBLE(procedure, name, nick, blurb, min, max, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_double (name, nick, blurb,\
                                   min, max, default,\
                                   flags))

#define PIKA_VALUES_GET_DOUBLE(args, n) \
  g_value_get_double (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_DOUBLE(args, n, value) \
  g_value_set_double (pika_value_array_index (args, n), value)


/*  enum  */

#define PIKA_PROC_ARG_ENUM(procedure, name, nick, blurb, enum_type, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_enum (name, nick, blurb,\
                               enum_type, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_ENUM(procedure, name, nick, blurb, enum_type, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_enum (name, nick, blurb,\
                                   enum_type, default,\
                                   flags))

#define PIKA_PROC_VAL_ENUM(procedure, name, nick, blurb, enum_type, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_enum (name, nick, blurb,\
                                   enum_type, default,\
                                   flags))

#define PIKA_VALUES_GET_ENUM(args, n) \
  g_value_get_enum (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_ENUM(args, n, value) \
  g_value_set_enum (pika_value_array_index (args, n), value)


/*  choice  */

#define PIKA_PROC_ARG_CHOICE(procedure, name, nick, blurb, choice, default, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_choice (name, nick, blurb,\
                               choice, default,\
                               flags))

#define PIKA_PROC_AUX_ARG_CHOICE(procedure, name, nick, blurb, choice, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_choice (name, nick, blurb,\
                                   choice, default,\
                                   flags))

#define PIKA_PROC_VAL_CHOICE(procedure, name, nick, blurb, enum_type, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_choice (name, nick, blurb,\
                                   choice, default,\
                                   flags))

#define PIKA_VALUES_GET_CHOICE(args, n) \
  g_value_get_int (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_CHOICE(args, n, value) \
  g_value_set_int (pika_value_array_index (args, n), value)


/*  string  */

#define PIKA_PROC_ARG_STRING(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_string (name, nick, blurb,\
                               default,\
                               flags))

#define PIKA_PROC_AUX_ARG_STRING(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_string (name, nick, blurb,\
                                   default,\
                                   flags))

#define PIKA_PROC_VAL_STRING(procedure, name, nick, blurb, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_string (name, nick, blurb,\
                                   default,\
                                   flags))

#define PIKA_VALUES_GET_STRING(args, n) \
  g_value_get_string (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_STRING(args, n) \
  g_value_dup_string (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_STRING(args, n, value) \
  g_value_set_string (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_STRING(args, n, value) \
  g_value_take_string (pika_value_array_index (args, n), value)


/*  rgb  */

#define PIKA_PROC_ARG_RGB(procedure, name, nick, blurb, has_alpha, default, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_rgb (name, nick, blurb,\
                               has_alpha, default, \
                               flags))

#define PIKA_PROC_AUX_ARG_RGB(procedure, name, nick, blurb, has_alpha, default, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_rgb (name, nick, blurb,\
                                   has_alpha, default, \
                                   flags))

#define PIKA_PROC_VAL_RGB(procedure, name, nick, blurb, has_alpha, default, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_rgb (name, nick, blurb,\
                                   has_alpha, default, \
                                   flags))

#define PIKA_VALUES_GET_RGB(args, n, value) \
  pika_value_get_rgb (pika_value_array_index (args, n), value)

#define PIKA_VALUES_SET_RGB(args, n, value) \
  pika_value_set_rgb (pika_value_array_index (args, n), value)


/*  parasite  */

#define PIKA_PROC_ARG_PARASITE(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_parasite (name, nick, blurb,\
                               flags))

#define PIKA_PROC_AUX_ARG_PARASITE(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_parasite (name, nick, blurb,\
                                   flags))

#define PIKA_PROC_VAL_PARASITE(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_parasite (name, nick, blurb,\
                                   flags))

#define PIKA_VALUES_GET_PARASITE(args, n) \
  g_value_get_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_PARASITE(args, n) \
  g_value_dup_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_PARASITE(args, n, value) \
  g_value_set_boxed (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_PARASITE(args, n, value)                \
  g_value_take_boxed (pika_value_array_index (args, n), value)


/*  param  */

#define PIKA_PROC_ARG_PARAM(procedure, name, nick, blurb, param_type, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_param (name, nick, blurb, param_type, \
                               flags))

#define PIKA_PROC_AUX_ARG_PARAM(procedure, name, nick, blurb, param_type, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_param (name, nick, blurb, param_type, \
                                   flags))

#define PIKA_PROC_VAL_PARAM(procedure, name, nick, blurb, param_type, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_param (name, nick, blurb, param_type, \
                                   flags))

#define PIKA_VALUES_GET_PARAM(args, n) \
  g_value_get_param (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_PARAM(args, n) \
  g_value_dup_param (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_PARAM(args, n, value) \
  g_value_set_param (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_PARAM(args, n, value)                \
  g_value_take_param (pika_value_array_index (args, n), value)


/*  bytes  */

#define PIKA_PROC_ARG_BYTES(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_boxed (name, nick, blurb,\
                               G_TYPE_BYTES, flags))

#define PIKA_PROC_AUX_ARG_BYTES(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_boxed (name, nick, blurb,\
                                   G_TYPE_BYTES, flags))

#define PIKA_PROC_VAL_BYTES(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_boxed (name, nick, blurb,\
                                   G_TYPE_BYTES, flags))

#define PIKA_VALUES_GET_BYTES(args, n) \
  g_value_get_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_BYTES(args, n) \
  g_value_dup_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_BYTES(args, n, value) \
  g_value_set_boxed (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_BYTES(args, n, value, length) \
  g_value_take_boxed (pika_value_array_index (args, n), value)


/*  int32 array  */

#define PIKA_PROC_ARG_INT32_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_int32_array (name, nick, blurb,\
                               flags))

#define PIKA_PROC_AUX_ARG_INT32_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_int32_array (name, nick, blurb,\
                                   flags))

#define PIKA_PROC_VAL_INT32_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_int32_array (name, nick, blurb,\
                                   flags))

#define PIKA_VALUES_GET_INT32_ARRAY(args, n) \
  pika_value_get_int32_array (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_INT32_ARRAY(args, n) \
  pika_value_dup_int32_array (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_INT32_ARRAY(args, n, value, length) \
  pika_value_set_int32_array (pika_value_array_index (args, n), value, length)

#define PIKA_VALUES_TAKE_INT32_ARRAY(args, n, value, length) \
  pika_value_take_int32_array (pika_value_array_index (args, n), value, length)


/*  float array  */

#define PIKA_PROC_ARG_FLOAT_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_float_array (name, nick, blurb,\
                               flags))

#define PIKA_PROC_AUX_ARG_FLOAT_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_float_array (name, nick, blurb,\
                                   flags))

#define PIKA_PROC_VAL_FLOAT_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_float_array (name, nick, blurb,\
                                   flags))

#define PIKA_VALUES_GET_FLOAT_ARRAY(args, n) \
  pika_value_get_float_array (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_FLOAT_ARRAY(args, n) \
  pika_value_dup_float_array (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_FLOAT_ARRAY(args, n, value, length) \
  pika_value_set_float_array (pika_value_array_index (args, n), value, length)

#define PIKA_VALUES_TAKE_FLOAT_ARRAY(args, n, value, length) \
  pika_value_take_float_array (pika_value_array_index (args, n), value, length)


/*  string array (strv)  */

#define PIKA_PROC_ARG_STRV(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_boxed (name, nick, blurb,\
                               G_TYPE_STRV, flags))

#define PIKA_PROC_AUX_ARG_STRV(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_boxed (name, nick, blurb,\
                                   G_TYPE_STRV, flags))

#define PIKA_PROC_VAL_STRV(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_boxed (name, nick, blurb,\
                                   G_TYPE_STRV, flags))

#define PIKA_VALUES_GET_STRV(args, n) \
  g_value_get_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_STRV(args, n) \
  g_value_dup_boxed (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_STRV(args, n, value) \
  g_value_set_boxed (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_STRV(args, n, value) \
  g_value_take_boxed (pika_value_array_index (args, n), value)


/*  rgb array  */

#define PIKA_PROC_ARG_RGB_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_rgb_array (name, nick, blurb,\
                               flags))

#define PIKA_PROC_AUX_ARG_RGB_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_rgb_array (name, nick, blurb,\
                                   flags))

#define PIKA_PROC_VAL_RGB_ARRAY(procedure, name, nick, blurb, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_rgb_array (name, nick, blurb,\
                                   flags))

#define PIKA_VALUES_GET_RGB_ARRAY(args, n) \
  pika_value_get_rgb_array (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_RGB_ARRAY(args, n) \
  pika_value_dup_rgb_array (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_RGB_ARRAY(args, n, value, length) \
  pika_value_set_rgb_array (pika_value_array_index (args, n), value, length)

#define PIKA_VALUES_TAKE_RGB_ARRAY(args, n, value, length) \
  pika_value_take_rgb_array (pika_value_array_index (args, n), value, length)


/*  object array  */

#define PIKA_PROC_ARG_OBJECT_ARRAY(procedure, name, nick, blurb, object_type, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_object_array (name, nick, blurb,\
                                                             object_type, flags))

#define PIKA_PROC_AUX_ARG_OBJECT_ARRAY(procedure, name, nick, blurb, object_type, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_object_array (name, nick, blurb,\
                                                                 object_type, flags))

#define PIKA_PROC_VAL_OBJECT_ARRAY(procedure, name, nick, blurb, object_type, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_object_array (name, nick, blurb,\
                                                                 object_type, flags))

#define PIKA_VALUES_GET_OBJECT_ARRAY(args, n) \
  (gpointer) pika_value_get_object_array (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_OBJECT_ARRAY(args, n) \
  (gpointer) pika_value_dup_object_array (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_OBJECT_ARRAY(args, n, object_type, value, length) \
  pika_value_set_object_array (pika_value_array_index (args, n),\
                               object_type, (gpointer) value, length)

#define PIKA_VALUES_TAKE_OBJECT_ARRAY(args, n, object_type, value, length) \
  pika_value_take_object_array (pika_value_array_index (args, n),\
                                object_type, (gpointer) value, length)


/*  display  */

#define PIKA_PROC_ARG_DISPLAY(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_display (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_DISPLAY(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_display (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_DISPLAY(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_display (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_DISPLAY(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_DISPLAY_ID(args, n) \
  pika_display_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_DISPLAY(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  image  */

#define PIKA_PROC_ARG_IMAGE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_image (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_IMAGE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                               pika_param_spec_image (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_VAL_IMAGE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_image (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_IMAGE(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_IMAGE_ID(args, n) \
  pika_image_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_IMAGE(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  item  */

#define PIKA_PROC_ARG_ITEM(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_item (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_ITEM(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_item (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_ITEM(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_item (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_ITEM(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_ITEM_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_ITEM(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  drawable  */

#define PIKA_PROC_ARG_DRAWABLE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_drawable (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_DRAWABLE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_drawable (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_DRAWABLE(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_drawable (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_DRAWABLE(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_DRAWABLE_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_DRAWABLE(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  layer */

#define PIKA_PROC_ARG_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_layer (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_layer (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_layer (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_LAYER(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_LAYER_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_LAYER(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  text layer */

#define PIKA_PROC_ARG_TEXT_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_text_layer (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_TEXT_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_text_layer (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_TEXT_LAYER(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_text_layer (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_TEXT_LAYER(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_TEXT_LAYER_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_TEXT_LAYER(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  channel  */

#define PIKA_PROC_ARG_CHANNEL(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_channel (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_CHANNEL(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_channel (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_CHANNEL(procedure, name, nick, blurb, none_ok, flags)  \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_channe (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_CHANNEL(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_CHANNEL_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_CHANNEL(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  layer mask  */

#define PIKA_PROC_ARG_LAYER_MASK(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_layer_mask (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_LAYER_MASK(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_layer_mask (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_LAYER_MASK(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_layer_mask (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_LAYER_MASK(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_LAYER_MASK_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_LAYER_MASK(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  selection  */

#define PIKA_PROC_ARG_SELECTION(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_selection (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_SELECTION(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_selection (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_SELECTION(procedure, name, nick, blurb, none_ok, flags) \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_selection (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_SELECTION(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_SELECTION_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_SELECTION(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  vectors  */

#define PIKA_PROC_ARG_VECTORS(procedure, name, nick, blurb, none_ok, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_vectors (name, nick, blurb,\
                               none_ok,\
                               flags))

#define PIKA_PROC_AUX_ARG_VECTORS(procedure, name, nick, blurb, none_ok, flags)  \
  pika_procedure_add_aux_argument (procedure,\
                                   pika_param_spec_vectors (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_PROC_VAL_VECTORS(procedure, name, nick, blurb, none_ok, flags)  \
  pika_procedure_add_return_value (procedure,\
                                   pika_param_spec_vectors (name, nick, blurb,\
                                   none_ok,\
                                   flags))

#define PIKA_VALUES_GET_VECTORS(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_GET_VECTORS_ID(args, n) \
  pika_item_get_id (g_value_get_object (pika_value_array_index (args, n)))

#define PIKA_VALUES_SET_VECTORS(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)


/*  file  */

#define PIKA_PROC_ARG_FILE(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               g_param_spec_object (name, nick, blurb,\
                                                    G_TYPE_FILE,\
                                                    flags))

#define PIKA_PROC_AUX_ARG_FILE(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_aux_argument (procedure,\
                                   g_param_spec_object (name, nick, blurb,\
                                                        G_TYPE_FILE,\
                                                        flags))

#define PIKA_PROC_VAL_FILE(procedure, name, nick, blurb, none_ok, flags)  \
  pika_procedure_add_return_value (procedure,\
                                   g_param_spec_object (name, nick, blurb,\
                                                        G_TYPE_FILE,\
                                                        flags))

#define PIKA_VALUES_GET_FILE(args, n) \
  g_value_get_object (pika_value_array_index (args, n))

#define PIKA_VALUES_DUP_FILE(args, n) \
  g_value_dup_object (pika_value_array_index (args, n))

#define PIKA_VALUES_SET_FILE(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_TAKE_FILE(args, n, value) \
  g_value_take_object (pika_value_array_index (args, n), value)


/*  Resource  */

#define PIKA_PROC_ARG_RESOURCE(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_resource (name, nick, blurb,\
                                                         PIKA_TYPE_RESOURCE,\
                                                         flags))

#define PIKA_PROC_ARG_BRUSH(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_brush (name, nick, blurb,\
                                                      PIKA_TYPE_BRUSH,\
                                                      flags))
#define PIKA_PROC_ARG_FONT(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_font (name, nick, blurb,\
                                                      PIKA_TYPE_FONT,\
                                                      flags))
#define PIKA_PROC_ARG_GRADIENT(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_gradient (name, nick, blurb,\
                                                         PIKA_TYPE_GRADIENT,\
                                                         flags))
#define PIKA_PROC_ARG_PALETTE(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_palette (name, nick, blurb,\
                                                        PIKA_TYPE_PALETTE,\
                                                        flags))
#define PIKA_PROC_ARG_PATTERN(procedure, name, nick, blurb, flags)  \
  pika_procedure_add_argument (procedure,\
                               pika_param_spec_pattern (name, nick, blurb,\
                                                        PIKA_TYPE_PATTERN,\
                                                        flags))

#define PIKA_VALUES_GET_RESOURCE(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_RESOURCE(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_GET_BRUSH(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_BRUSH(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_GET_FONT(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_FONT(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_GET_GRADIENT(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_GRADIENT(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_GET_PALETTE(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_PALETTE(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

#define PIKA_VALUES_GET_PATTERN(args, n) \
  g_value_get_object (pika_value_array_index (args, n))
#define PIKA_VALUES_SET_PATTERN(args, n, value) \
  g_value_set_object (pika_value_array_index (args, n), value)

G_END_DECLS

#endif /* __PIKA_PROCEDURE_PARAMS_H__ */