diff options
Diffstat (limited to '')
| -rw-r--r-- | pdb/groups/plug_in.pdb | 449 |
1 files changed, 449 insertions, 0 deletions
diff --git a/pdb/groups/plug_in.pdb b/pdb/groups/plug_in.pdb new file mode 100644 index 0000000..5addf6a --- /dev/null +++ b/pdb/groups/plug_in.pdb @@ -0,0 +1,449 @@ +# GIMP - The GNU Image Manipulation Program +# Copyright (C) 1995 Spencer Kimball and Peter Mattis + +# 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/>. + +# "Perlized" from C source by Manish Singh <yosh@gimp.org> + +sub plugins_query { + $blurb = 'Queries the plug-in database for its contents.'; + $help = 'This procedure queries the contents of the plug-in database.'; + + &andy_pdb_misc('1998'); + + @inargs = ( + { name => 'search_string', type => 'string', no_validate => 1, + desc => 'If not an empty string then use this as a search pattern' } + ); + + @outargs = ( + { name => 'menu_path', type => 'stringarray', + desc => 'The menu path of the plug-in', + array => { name => 'num_plugins', + desc => 'The number of plug-ins' } }, + { name => 'plugin_accelerator', type => 'stringarray', + desc => 'String representing keyboard accelerator (could be empty + string)', + array => { name => 'num_plugins', no_declare => 1, + desc => 'The number of plug-ins' } }, + { name => 'plugin_location', type => 'stringarray', + desc => 'Location of the plug-in program', + array => { name => 'num_plugins', no_declare => 1, + desc => 'The number of plug-ins' } }, + { name => 'plugin_image_type', type => 'stringarray', + desc => 'Type of image that this plug-in will work on', + array => { name => 'num_plugins', no_declare => 1, + desc => 'The number of plug-ins' } }, + { name => 'plugin_install_time', type => 'int32array', + desc => 'Time that the plug-in was installed', + array => { name => 'num_plugins', no_declare => 1, + desc => 'The number of plug-ins' } }, + { name => 'plugin_real_name', type => 'stringarray', + desc => 'The internal name of the plug-in', + array => { name => 'num_plugins', no_declare => 1, + desc => 'The number of plug-ins' } } + ); + + %invoke = ( + code => <<'CODE' +{ + num_plugins = gimp_plug_in_manager_query (gimp->plug_in_manager, + search_string, + &menu_path, + &plugin_accelerator, + &plugin_location, + &plugin_image_type, + &plugin_real_name, + &plugin_install_time); +} +CODE + ); +} + +sub plugin_domain_register { + $blurb = 'Registers a textdomain for localisation.'; + + $help = <<'HELP'; +This procedure adds a textdomain to the list of domains Gimp searches +for strings when translating its menu entries. There is no need to +call this function for plug-ins that have their strings included in +the 'gimp-std-plugins' domain as that is used by default. If the compiled +message catalog is not in the standard location, you may specify an +absolute path to another location. This procedure can only be called +in the query function of a plug-in and it has to be called before any +procedure is installed. +HELP + + &neo_pdb_misc('2000'); + + @inargs = ( + { name => 'domain_name', type => 'string', + desc => 'The name of the textdomain (must be unique)' }, + { name => 'domain_path', type => 'string', no_validate => 1, + desc => 'The absolute path to the compiled message catalog (may be + NULL)' } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in && plug_in->call_mode == GIMP_PLUG_IN_CALL_QUERY) + { + gimp_plug_in_def_set_locale_domain (plug_in->plug_in_def, + domain_name, domain_path); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_help_register { + $blurb = "Register a help path for a plug-in."; + + $help = <<HELP; + +This procedure registers user documentation for the calling plug-in +with the GIMP help system. The domain_uri parameter points to the root +directory where the plug-in help is installed. For each supported +language there should be a file called 'gimp-help.xml' that maps the +help IDs to the actual help files. +HELP + + &mitch_pdb_misc('2000'); + + @inargs = ( + { name => 'domain_name', type => 'string', + desc => "The XML namespace of the plug-in's help pages" }, + { name => 'domain_uri', type => 'string', + desc => "The root URI of the plug-in's help pages" } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in && plug_in->call_mode == GIMP_PLUG_IN_CALL_QUERY) + { + gimp_plug_in_def_set_help_domain (plug_in->plug_in_def, + domain_name, domain_uri); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_menu_register { + $blurb = "Register an additional menu path for a plug-in procedure."; + + $help = <<HELP; +This procedure installs an additional menu entry for the given procedure. +HELP + + &mitch_pdb_misc('2004', '2.2'); + + @inargs = ( + { name => 'procedure_name', type => 'string', non_empty => 1, + desc => 'The procedure for which to install the menu path' }, + { name => 'menu_path', type => 'string', + desc => "The procedure's additional menu path" } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + gchar *canonical = gimp_canonicalize_identifier (procedure_name); + success = gimp_plug_in_menu_register (plug_in, canonical, menu_path); + g_free (canonical); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_menu_branch_register { + $blurb = "Register a sub-menu."; + + $help = <<HELP; +This procedure installs a sub-menu which does not belong to any procedure. +The menu-name should be the untranslated menu label. GIMP will look up the +translation in the textdomain registered for the plug-in. +HELP + + &mitch_pdb_misc('2005', '2.4'); + + @inargs = ( + { name => 'menu_path', type => 'string', + desc => "The sub-menu's menu path" }, + { name => 'menu_name', type => 'string', + desc => 'The name of the sub-menu' } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + gimp_plug_in_manager_add_menu_branch (gimp->plug_in_manager, + plug_in->file, menu_path, menu_name); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_icon_register { + $blurb = "Register an icon for a plug-in procedure."; + + $help = <<HELP; +This procedure installs an icon for the given procedure. +HELP + + &mitch_pdb_misc('2004', '2.2'); + + @inargs = ( + { name => 'procedure_name', type => 'string', wrap => 1, non_empty => 1, + desc => 'The procedure for which to install the icon' }, + { name => 'icon_type', type => 'enum GimpIconType', + desc => 'The type of the icon' }, + { name => 'icon_data', type => 'int8array', + desc => "The procedure's icon. The format depends on the + 'icon_type' parameter", + array => { name => 'icon_data_length', type => '1 <= int32', + desc => "The length of 'icon-data'" } } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in && plug_in->call_mode == GIMP_PLUG_IN_CALL_QUERY) + { + GimpPlugInProcedure *proc; + gchar *canonical; + + canonical = gimp_canonicalize_identifier (procedure_name); + + proc = gimp_plug_in_procedure_find (plug_in->plug_in_def->procedures, + canonical); + + g_free (canonical); + + if (proc) + gimp_plug_in_procedure_set_icon (proc, icon_type, + icon_data, icon_data_length); + else + success = FALSE; + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_set_pdb_error_handler { + $blurb = "Sets an error handler for procedure calls."; + + $help = <<HELP; +This procedure changes the way that errors in procedure calls are +handled. By default GIMP will raise an error dialog if a procedure +call made by a plug-in fails. Using this procedure the plug-in can +change this behavior. If the error handler is set to +%GIMP_PDB_ERROR_HANDLER_PLUGIN, then the plug-in is responsible for +calling gimp_get_pdb_error() and handling the error whenever one if +its procedure calls fails. It can do this by displaying the error +message or by forwarding it in its own return values. +HELP + + &neo_pdb_misc('2008', '2.6'); + + @inargs = ( + { name => 'handler', type => 'enum GimpPDBErrorHandler', + desc => "Who is responsible for handling procedure call errors" } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + gimp_plug_in_set_error_handler (plug_in, handler); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_get_pdb_error_handler { + $blurb = "Retrieves the active error handler for procedure calls."; + + $help = <<HELP; +This procedure retrieves the currently active error handler for +procedure calls made by the calling plug-in. See +gimp_plugin_set_pdb_error_handler() for details. +HELP + + &neo_pdb_misc('2008', '2.6'); + + @outargs = ( + { name => 'handler', type => 'enum GimpPDBErrorHandler', + desc => "Who is responsible for handling procedure call errors" } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + handler = gimp_plug_in_get_error_handler (plug_in); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_enable_precision { + $blurb = "Switches this plug-in to using the real bit depth of drawables."; + + $help = <<HELP; +Switches this plug-in to using the real bit depth of drawables. This +setting can only be enabled, and not disabled again during the +lifetime of the plug-in. Using gimp_drawable_get_buffer(), +gimp_drawable_get_shadow_buffer() or gimp_drawable_get_format() will +automatically call this function. +HELP + + &mitch_pdb_misc('2012', '2.10'); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + gimp_plug_in_enable_precision (plug_in); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +sub plugin_precision_enabled { + $blurb = "Whether this plug-in is using the real bit depth of drawables."; + + $help = <<HELP; +Returns whether this plug-in is using the real bit depth of drawables, +which can be more than 8 bits per channel. +HELP + + &mitch_pdb_misc('2012', '2.10'); + + @outargs = ( + { name => 'enabled', type => 'boolean', + desc => "Whether precision is enabled" } + ); + + %invoke = ( + code => <<'CODE' +{ + GimpPlugIn *plug_in = gimp->plug_in_manager->current_plug_in; + + if (plug_in) + { + enabled = gimp_plug_in_precision_enabled (plug_in); + } + else + { + success = FALSE; + } +} +CODE + ); +} + +@headers = qw(<string.h> + <stdlib.h> + "libgimpbase/gimpbase.h" + "core/gimp.h" + "plug-in/gimpplugin.h" + "plug-in/gimpplugindef.h" + "plug-in/gimppluginmanager.h" + "plug-in/gimppluginmanager-menu-branch.h" + "plug-in/gimppluginmanager-query.h" + "plug-in/gimppluginprocedure.h"); + +@procs = qw(plugins_query + plugin_domain_register + plugin_help_register + plugin_menu_register + plugin_menu_branch_register + plugin_icon_register + plugin_set_pdb_error_handler + plugin_get_pdb_error_handler + plugin_enable_precision + plugin_precision_enabled); + +%exports = (app => [@procs], lib => [@procs[1,2,3,4,5,6,7,8,9]]); + +$desc = 'Plug-in'; +$doc_title = 'gimpplugin'; +$doc_short_desc = 'Functions useful for plug-ins, e.g. registration and progress indicators.'; +$doc_long_desc = 'Functions useful for plug-ins, e.g. registration and progress indicators.'; + +1; |