# 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 .
# "Perlized" from C source by Manish Singh
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');
$lib_private = 1;
@inargs = (
{ name => 'search_string', type => 'string', no_validate => 1,
desc => 'If not an empty string then use this as a search pattern' }
);
@outargs = (
{ name => 'procedures', type => 'stringarray',
desc => 'The plug-in procedure name',
array => { name => 'num_procedures',
desc => 'The number of matching procedures' } },
{ name => 'accelerators', type => 'stringarray',
desc => 'String representing keyboard accelerator (could be empty
string)',
array => { name => 'num_accelerators',
desc => 'The number of matching procedures' } },
{ name => 'locations', type => 'stringarray',
desc => 'Location of the plug-in program',
array => { name => 'num_locations',
desc => 'The number of matching procedures' } },
{ name => 'install_times', type => 'int32array',
desc => 'Time that the plug-in was installed',
array => { name => 'num_install_times',
desc => 'The number of matching procedures' } }
);
%invoke = (
code => <<'CODE'
{
num_procedures = gimp_plug_in_manager_query (gimp->plug_in_manager,
search_string,
&procedures,
&accelerators,
&locations,
&install_times);
num_accelerators = num_procedures;
num_locations = num_procedures;
num_install_times = num_procedures;
}
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');
$lib_private = 1;
@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 = < '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_branch_register {
$blurb = "Register a sub-menu.";
$help = < '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_set_pdb_error_handler {
$blurb = "Sets an error handler for procedure calls.";
$help = < '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 = < '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
);
}
@headers = qw(
"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"
"gimppdb-utils.h");
@procs = qw(plugins_query
plugin_domain_register
plugin_help_register
plugin_menu_branch_register
plugin_set_pdb_error_handler
plugin_get_pdb_error_handler);
%exports = (app => [@procs], lib => [@procs[1,2,3,4,5]]);
$desc = 'Plug-in';
$lib_private = 1;
1;