2006-12-10 05:33:38 +08:00
|
|
|
# GIMP - The GNU Image Manipulation Program
|
2003-07-03 08:47:26 +08:00
|
|
|
# Copyright (C) 1998-2003 Manish Singh <yosh@gimp.org>
|
1999-03-20 07:04:16 +08:00
|
|
|
|
2009-01-18 06:28:01 +08:00
|
|
|
# This program is free software: you can redistribute it and/or modify
|
1999-03-20 07:04:16 +08:00
|
|
|
# it under the terms of the GNU General Public License as published by
|
2009-01-18 06:28:01 +08:00
|
|
|
# the Free Software Foundation; either version 3 of the License, or
|
1999-03-20 07:04:16 +08:00
|
|
|
# (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
|
2018-07-12 05:27:07 +08:00
|
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
1999-03-20 07:04:16 +08:00
|
|
|
|
1998-10-24 13:19:30 +08:00
|
|
|
# Boilerplate PDB stuff
|
|
|
|
|
|
|
|
sub std_pdb_misc {
|
1999-03-11 02:56:56 +08:00
|
|
|
$author = $copyright = 'Spencer Kimball & Peter Mattis';
|
2004-10-06 21:13:08 +08:00
|
|
|
$date = '1995-1996';
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub contrib_pdb_misc {
|
|
|
|
my $a = shift;
|
|
|
|
my $e = shift;
|
|
|
|
my $d = shift;
|
|
|
|
my $s = shift;
|
|
|
|
|
|
|
|
if ($e eq '') {
|
|
|
|
$author = "$a";
|
|
|
|
} else {
|
|
|
|
$author = "$a <$e>";
|
|
|
|
}
|
|
|
|
|
|
|
|
$copyright = "$a";
|
|
|
|
$date = "$d";
|
|
|
|
|
|
|
|
if ($s) {
|
|
|
|
$since = "$s";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub adam_pdb_misc {
|
|
|
|
contrib_pdb_misc('Adam D. Moss', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub adrian_pdb_misc {
|
|
|
|
contrib_pdb_misc('Adrian Likins', 'adrian@gimp.org', @_);
|
|
|
|
}
|
|
|
|
|
2014-11-13 20:47:32 +08:00
|
|
|
sub adeath_pdb_misc {
|
|
|
|
contrib_pdb_misc('Alexia Death', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub andy_pdb_misc {
|
|
|
|
contrib_pdb_misc('Andy Thomas', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub austin_pdb_misc {
|
|
|
|
contrib_pdb_misc('Austin Donnelly', '', @_);
|
|
|
|
}
|
|
|
|
|
2010-09-14 20:38:35 +08:00
|
|
|
sub barak_pdb_misc {
|
|
|
|
contrib_pdb_misc('Barak Itkin', 'lightningismyname@gmail.com', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub bill_pdb_misc {
|
|
|
|
contrib_pdb_misc('Bill Skaggs', 'weskaggs@primate.ucdavis.edu', @_);
|
|
|
|
}
|
|
|
|
|
2006-08-05 03:59:39 +08:00
|
|
|
sub david_pdb_misc {
|
|
|
|
contrib_pdb_misc('David Gowers', '', @_);
|
|
|
|
}
|
|
|
|
|
2012-03-01 19:58:26 +08:00
|
|
|
sub ejs_pdb_misc {
|
|
|
|
contrib_pdb_misc('Ed Swartz', '', @_);
|
|
|
|
}
|
|
|
|
|
2017-02-02 07:38:25 +08:00
|
|
|
sub ell_pdb_misc {
|
|
|
|
contrib_pdb_misc('Ell', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub federico_pdb_misc {
|
|
|
|
contrib_pdb_misc('Federico Mena Quintero', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub jay_pdb_misc {
|
|
|
|
contrib_pdb_misc('Jay Cox', '', @_);
|
|
|
|
}
|
|
|
|
|
2018-03-18 20:57:43 +08:00
|
|
|
sub jehan_pdb_misc {
|
|
|
|
contrib_pdb_misc('Jehan', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub joao_pdb_misc {
|
2008-04-27 07:51:51 +08:00
|
|
|
contrib_pdb_misc('Jo\xc3\xa3o S. O. Bueno', '', @_);
|
2006-03-15 05:35:50 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
sub josh_pdb_misc {
|
|
|
|
contrib_pdb_misc('Josh MacDonald', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-09-03 02:54:35 +08:00
|
|
|
sub kevins_pdb_misc {
|
|
|
|
contrib_pdb_misc('Kevin Sookocheff', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub larry_pdb_misc {
|
|
|
|
contrib_pdb_misc('Larry Ewing', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub marc_pdb_misc {
|
|
|
|
contrib_pdb_misc('Marc Lehmann', '', @_);
|
|
|
|
}
|
|
|
|
|
2008-04-03 03:29:17 +08:00
|
|
|
sub marcus_pdb_misc {
|
2008-04-03 04:18:07 +08:00
|
|
|
contrib_pdb_misc('Marcus Heese', 'heese@cip.ifi.lmu.de', @_);
|
2008-04-03 03:29:17 +08:00
|
|
|
}
|
|
|
|
|
2006-10-21 05:20:29 +08:00
|
|
|
sub martin_pdb_misc {
|
|
|
|
contrib_pdb_misc('Martin Nordholts', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub mitch_pdb_misc {
|
|
|
|
contrib_pdb_misc('Michael Natterer', 'mitch@gimp.org', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub neo_pdb_misc {
|
|
|
|
contrib_pdb_misc('Sven Neumann', 'sven@gimp.org', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub nick_pdb_misc {
|
|
|
|
contrib_pdb_misc('Nick Lamb', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub raphael_pdb_misc {
|
2006-08-05 03:59:39 +08:00
|
|
|
contrib_pdb_misc('Rapha\xc3\xabl Quinet', 'raphael@gimp.org', @_);
|
2006-03-15 05:35:50 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
sub rock_pdb_misc {
|
|
|
|
contrib_pdb_misc('Nathan Summers', 'rock@gimp.org', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub seth_pdb_misc {
|
|
|
|
contrib_pdb_misc('Seth Burgess', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub shlomi_pdb_misc {
|
|
|
|
contrib_pdb_misc('Shlomi Fish', 'shlomif@iglu.org.il', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub simon_pdb_misc {
|
|
|
|
contrib_pdb_misc('Simon Budig', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-24 05:17:16 +08:00
|
|
|
sub sylvain_pdb_misc {
|
|
|
|
contrib_pdb_misc('Sylvain Foret', '', @_);
|
|
|
|
}
|
|
|
|
|
2006-03-15 05:35:50 +08:00
|
|
|
sub wolfgang_pdb_misc {
|
|
|
|
contrib_pdb_misc('Wolfgang Hofer', '', @_);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub yosh_pdb_misc {
|
|
|
|
contrib_pdb_misc('Manish Singh', '', @_);
|
|
|
|
}
|
|
|
|
|
2022-06-01 04:59:31 +08:00
|
|
|
sub alxsa_pdb_misc {
|
|
|
|
contrib_pdb_misc('Alex S.', '', @_);
|
|
|
|
}
|
|
|
|
|
2004-10-06 21:13:08 +08:00
|
|
|
sub std_pdb_deprecated {
|
2004-11-19 20:38:34 +08:00
|
|
|
if (@_) {
|
2018-04-15 22:06:00 +08:00
|
|
|
$blurb = $help = '';
|
2004-11-19 20:38:34 +08:00
|
|
|
$deprecated = "@_";
|
|
|
|
} else {
|
2018-04-15 22:06:00 +08:00
|
|
|
$blurb = $help = '';
|
2004-11-19 20:38:34 +08:00
|
|
|
$deprecated = "NONE";
|
|
|
|
}
|
2004-10-06 21:13:08 +08:00
|
|
|
$author = $copyright = $date = '';
|
1998-10-24 13:19:30 +08:00
|
|
|
}
|
|
|
|
|
2013-03-09 00:06:53 +08:00
|
|
|
sub std_pdb_compat {
|
|
|
|
$author = $copyright = "Compatibility procedure. Please see '@_' for credits.";
|
|
|
|
}
|
|
|
|
|
pdb: add debug group; add debug-timer-{start,end} procs
Add a debug procedure group, living in 'debug.pdb', which would host
useful debug helper functions. Functions in this group are not part
of the stable API, and may be changed at any point.
All procedures added to 'debug.pdb' should have a 'debug_' prefix,
and use the new std_pdb_debug() macro, which adds the proper "here be
dragons" warning to their description.
Add two debug procedures: gimp-debug-timer-start() and
gimp-debug-timer-end(), which measure elapsed time, a la
GIMP_TIMER_{START,END}, and can be used to profile script-fu
commands.
2017-04-06 23:00:20 +08:00
|
|
|
sub std_pdb_debug {
|
|
|
|
$help .= <<'HELP';
|
|
|
|
|
|
|
|
|
|
|
|
This is a debug utility procedure. It is subject to change at any point,
|
|
|
|
and should not be used in production.
|
|
|
|
HELP
|
|
|
|
}
|
|
|
|
|
2013-03-09 00:06:53 +08:00
|
|
|
|
1998-10-24 13:19:30 +08:00
|
|
|
1;
|