dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
gimp/pdb/pdb.pl

404 lines
19 KiB
Perl
Raw Normal View History

In all files, changed the standard copyright notice to say "GIMP - The GNU 2006-12-09 Sven Neumann <sven@gimp.org> * In all files, changed the standard copyright notice to say "GIMP - The GNU Image Manipulation Program".
2006-12-10 05:33:38 +08:00
# GIMP - The GNU Image Manipulation Program
fix spelling of "quality" in comment 2003-07-03 Manish Singh <yosh@gimp.org> * plug-ins/common/jpeg.c: fix spelling of "quality" in comment * tools/pdbgen/*.pl: update copyright strings to 2003 * libgimp/gimpenums.h * libgimp/*_pdb.[ch] * app/pdb/*_cmds.[ch] * app/pdb/internal_procs.[ch] * plug-ins/pygimp/gimpenums.py * plug-ins/script-fu/script-fu-constants.c: regenerated
2003-07-03 08:47:26 +08:00
# Copyright (C) 1998-2003 Manish Singh <yosh@gimp.org>
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
Change licence to GPLv3 (and to LGPLv3 for libgimp). 2009-01-17 Michael Natterer <mitch@gimp.org> * all files with a GPL header and all COPYING files: Change licence to GPLv3 (and to LGPLv3 for libgimp). Cleaned up some copyright headers and regenerated the parsers in the ImageMap plugin. svn path=/trunk/; revision=27913
2009-01-18 06:28:01 +08:00
# This program is free software: you can redistribute it and/or modify
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
# it under the terms of the GNU General Public License as published by
Change licence to GPLv3 (and to LGPLv3 for libgimp). 2009-01-17 Michael Natterer <mitch@gimp.org> * all files with a GPL header and all COPYING files: Change licence to GPLv3 (and to LGPLv3 for libgimp). Cleaned up some copyright headers and regenerated the parsers in the ImageMap plugin. svn path=/trunk/; revision=27913
2009-01-18 06:28:01 +08:00
# the Free Software Foundation; either version 3 of the License, or
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +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
Change the license URL from http://www.gnu.org/licenses/ to https://
2018-07-12 05:27:07 +08:00
# along with this program. If not, see <https://www.gnu.org/licenses/>.
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
package Gimp::CodeGen::pdb;
%arg_types = (
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
int32 => { name => 'INT32',
Remove GIMP_TYPE_INT32 and GimpParamSpecInt32 Use gint and GParamSpecInt instead.
2019-08-15 20:04:56 +08:00
gtype => 'G_TYPE_INT',
type => 'gint ',
const_type => 'gint ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => '0',
get_value_func => '$var = g_value_get_int ($value)',
dup_value_func => '$var = g_value_get_int ($value)',
set_value_func => 'g_value_set_int ($value, $var)',
take_value_func => 'g_value_set_int ($value, $var)' },
pdb: remove int16 from the PDB types and rename int8 to uchar
2019-08-15 21:11:18 +08:00
uchar => { name => 'UCHAR',
Remove GIMP_TYPE_INT8 and GimpParamSpecInt8 Use guchar and GParamSpecUChar instead.
2019-08-15 19:34:11 +08:00
gtype => 'G_TYPE_UCHAR',
pdb: remove int16 from the PDB types and rename int8 to uchar
2019-08-15 21:11:18 +08:00
type => 'guchar ',
const_type => 'guchar ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => '0',
Remove GIMP_TYPE_INT8 and GimpParamSpecInt8 Use guchar and GParamSpecUChar instead.
2019-08-15 19:34:11 +08:00
get_value_func => '$var = g_value_get_uchar ($value)',
dup_value_func => '$var = g_value_get_uchar ($value)',
set_value_func => 'g_value_set_uchar ($value, $var)',
take_value_func => 'g_value_set_uchar ($value, $var)' },
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
float => { name => 'FLOAT',
gtype => 'G_TYPE_DOUBLE',
type => 'gdouble ',
const_type => 'gdouble ',
init_value => '0.0',
get_value_func => '$var = g_value_get_double ($value)',
dup_value_func => '$var = g_value_get_double ($value)',
set_value_func => 'g_value_set_double ($value, $var)',
take_value_func => 'g_value_set_double ($value, $var)' },
string => { name => 'STRING',
gtype => 'G_TYPE_STRING',
type => 'gchar *',
const_type => 'const gchar *',
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = g_value_get_string ($value)',
dup_value_func => '$var = g_value_dup_string ($value)',
set_value_func => 'g_value_set_string ($value, $var)',
take_value_func => 'g_value_take_string ($value, $var)' },
int32array => { name => 'INT32ARRAY',
gtype => 'GIMP_TYPE_INT32_ARRAY',
type => 'gint32 *',
const_type => 'const gint32 *',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type gint32)',
out_annotate => '(element-type gint32) (transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_int32_array ($value)',
dup_value_func => '$var = gimp_value_dup_int32_array ($value)',
set_value_func => 'gimp_value_set_int32_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_int32_array ($value, $var, $var_len)' },
int16array => { name => 'INT16ARRAY',
gtype => 'GIMP_TYPE_INT16_ARRAY',
type => 'gint16 *',
const_type => 'const gint16 *',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type gint16)',
out_annotate => '(element-type gint16) (transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_int16_array ($value)',
dup_value_func => '$var = gimp_value_dup_int16_array ($value)',
set_value_func => 'gimp_value_set_int16_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_int16_array ($value, $var, $var_len)' },
int8array => { name => 'INT8ARRAY',
Rename GIMP_TYPE_INT8_ARRAY to GIMP_TYPE_UINT8_ARRAY and GimpParamSpecInt8Array to GimpParamSpecUInt8Array
2019-08-15 21:04:34 +08:00
gtype => 'GIMP_TYPE_UINT8_ARRAY',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
type => 'guint8 *',
const_type => 'const guint8 *',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type guint8)',
out_annotate => '(element-type guint8) (transfer full)',
Rename GIMP_TYPE_INT8_ARRAY to GIMP_TYPE_UINT8_ARRAY and GimpParamSpecInt8Array to GimpParamSpecUInt8Array
2019-08-15 21:04:34 +08:00
get_value_func => '$var = gimp_value_get_uint8_array ($value)',
dup_value_func => '$var = gimp_value_dup_uint8_array ($value)',
set_value_func => 'gimp_value_set_uint8_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_uint8_array ($value, $var, $var_len)' },
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
floatarray => { name => 'FLOATARRAY',
gtype => 'GIMP_TYPE_FLOAT_ARRAY',
type => 'gdouble *',
const_type => 'const gdouble *',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type gdouble)',
out_annotate => '(element-type gdouble) (transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_float_array ($value)',
dup_value_func => '$var = gimp_value_dup_float_array ($value)',
set_value_func => 'gimp_value_set_float_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_float_array ($value, $var, $var_len)' },
stringarray => { name => 'STRINGARRAY',
gtype => 'GIMP_TYPE_STRING_ARRAY',
type => 'gchar **',
const_type => 'const gchar **',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type gchar*)',
out_annotate => '(element-type gchar*) (transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_string_array ($value)',
dup_value_func => '$var = gimp_value_dup_string_array ($value)',
set_value_func => 'gimp_value_set_string_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_string_array ($value, $var, $var_len)' },
colorarray => { name => 'COLORARRAY',
gtype => 'GIMP_TYPE_RGB_ARRAY',
type => 'GimpRGB *',
const_type => 'const GimpRGB *',
array => 1,
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
in_annotate => '(element-type GimpRGB)',
out_annotate => '(element-type GimpRGB) (transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_rgb_array ($value)',
dup_value_func => '$var = gimp_value_dup_rgb_array ($value)',
set_value_func => 'gimp_value_set_rgb_array ($value, $var, $var_len)',
take_value_func => 'gimp_value_take_rgb_array ($value, $var, $var_len)' },
color => { name => 'COLOR',
gtype => 'GIMP_TYPE_RGB',
type => 'GimpRGB ',
const_type => 'GimpRGB ',
struct => 1,
init_value => '{ 0.0, 0.0, 0.0, 1.0 }',
get_value_func => 'gimp_value_get_rgb ($value, &$var)',
dup_value_func => 'gimp_value_get_rgb ($value, &$var)',
set_value_func => 'gimp_value_set_rgb ($value, $var)',
take_value_func => 'gimp_value_set_rgb ($value, &$var)',
headers => [ qw(<cairo.h> "libgimpcolor/gimpcolor.h") ] },
display => { name => 'DISPLAY',
gtype => 'GIMP_TYPE_DISPLAY_ID',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
type => 'GimpDisplay *',
const_type => 'GimpDisplay *',
app_type => 'GimpObject *',
app_const_type => 'GimpObject *',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
id => 1,
init_value => 'NULL',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_display ($value, gimp)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
dup_value_func => '$var = gimp_display_new_by_id (gimp_value_get_display_id ($value))',
dup_value_func_d=> '$var = gimp_value_get_display_id ($value)',
set_value_func => 'gimp_value_set_display_id ($value, gimp_display_get_id ($var))',
take_value_func => 'gimp_value_set_display ($value, $var)' ,
convert_func => 'gimp_display_get_id ($var)'},
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
image => { name => 'IMAGE',
gtype => 'GIMP_TYPE_IMAGE_ID',
type => 'GimpImage *',
const_type => 'GimpImage *',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
id => 1,
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => 'NULL',
libgimp: s/gimp_image_new_by_id()/gimp_image_get_by_id()/ This means that images' ownership is not given to caller in particular. libgimp will now keep a reference of all GimpImage-s it creates and return this same reference if called again. It also means that you can now compare images by pointer comparison (as 2 GimpImage objects representing the same image ID will be equal). Obviously as a side effect, gimp_image_list() is changed to (transfer container) as you must only free the container now, not the elements. Also various other functions creating new images are now (transfer none) too. Long-time plug-ins will have to be taken in consideration in a further step (we currently never free GimpImage for destroyed images in particular).
2019-08-15 16:01:08 +08:00
out_annotate => '(transfer none)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_image ($value, gimp)',
libgimp: s/gimp_image_new_by_id()/gimp_image_get_by_id()/ This means that images' ownership is not given to caller in particular. libgimp will now keep a reference of all GimpImage-s it creates and return this same reference if called again. It also means that you can now compare images by pointer comparison (as 2 GimpImage objects representing the same image ID will be equal). Obviously as a side effect, gimp_image_list() is changed to (transfer container) as you must only free the container now, not the elements. Also various other functions creating new images are now (transfer none) too. Long-time plug-ins will have to be taken in consideration in a further step (we currently never free GimpImage for destroyed images in particular).
2019-08-15 16:01:08 +08:00
dup_value_func => '$var = gimp_image_get_by_id (gimp_value_get_image_id ($value))',
libgimp: generate functions both for old and new GimpImage APIs. This way, it would still be possible to use the old API. WIP.
2019-08-12 20:44:07 +08:00
dup_value_func_d=> '$var = gimp_value_get_image_id ($value)',
app, pdb, libgimp: add a new GimpImage class for plug-ins. This means that all functions which were returning or taking as parameter an image id (as gint32) are now taking a GimpImage object instead. The PDB is still passing around an id only over the wire. But we create an object for plug-ins to work on. This is quite a huge API break, but is probably the best bet for the future quality. It will make nicer API instrospection (and nicer API in binding), will fix the issues with pspec on GimpImageID in Python bindings (which makes the current Python API unusable as soon as we need to work on images, which is most of our plug-ins!), etc. Also it will allow to use signals on images, which will be a great asset when we will finally have bi-directionnal communications (i.e. plug-ins would be able to connect to image changes, destructions, and whatnot).
2019-08-11 20:20:05 +08:00
set_value_func => 'gimp_value_set_image_id ($value, gimp_image_get_id ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
take_value_func => 'gimp_value_set_image ($value, $var)',
app, pdb, libgimp: add a new GimpImage class for plug-ins. This means that all functions which were returning or taking as parameter an image id (as gint32) are now taking a GimpImage object instead. The PDB is still passing around an id only over the wire. But we create an object for plug-ins to work on. This is quite a huge API break, but is probably the best bet for the future quality. It will make nicer API instrospection (and nicer API in binding), will fix the issues with pspec on GimpImageID in Python bindings (which makes the current Python API unusable as soon as we need to work on images, which is most of our plug-ins!), etc. Also it will allow to use signals on images, which will be a great asset when we will finally have bi-directionnal communications (i.e. plug-ins would be able to connect to image changes, destructions, and whatnot).
2019-08-11 20:20:05 +08:00
convert_func => 'gimp_image_get_id ($var)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimpimage.h") ] },
item => { name => 'ITEM',
gtype => 'GIMP_TYPE_ITEM_ID',
type => 'GimpItem *',
const_type => 'GimpItem *',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
id => 1,
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => 'NULL',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_item ($value, gimp)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
dup_value_func => '$var = gimp_item_new_by_id (gimp_value_get_item_id ($value))',
dup_value_func_d=> '$var = gimp_value_get_item_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_item_id ($value, $var)',
take_value_func => 'gimp_value_set_item ($value, $var)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimpitem.h") ] },
layer => { name => 'LAYER',
gtype => 'GIMP_TYPE_LAYER_ID',
type => 'GimpLayer *',
const_type => 'GimpLayer *',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
id => 1,
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => 'NULL',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_layer ($value, gimp)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
dup_value_func => '$var = GIMP_LAYER (gimp_item_new_by_id (gimp_value_get_layer_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_layer_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_layer_id ($value, $var)',
take_value_func => 'gimp_value_set_layer ($value, $var)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimplayer.h") ] },
channel => { name => 'CHANNEL',
gtype => 'GIMP_TYPE_CHANNEL_ID',
type => 'GimpChannel *',
const_type => 'GimpChannel *',
id => 1,
init_value => 'NULL',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_channel ($value, gimp)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
dup_value_func => '$var = GIMP_CHANNEL (gimp_item_new_by_id (gimp_value_get_channel_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_channel_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_channel_id ($value, $var)',
take_value_func => 'gimp_value_set_channel ($value, $var)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimpchannel.h") ] },
drawable => { name => 'DRAWABLE',
gtype => 'GIMP_TYPE_DRAWABLE_ID',
type => 'GimpDrawable *',
const_type => 'GimpDrawable *',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
id => 1,
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => 'NULL',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_drawable ($value, gimp)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
dup_value_func => '$var = GIMP_DRAWABLE (gimp_item_new_by_id (gimp_value_get_drawable_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_drawable_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_drawable_id ($value, $var)',
take_value_func => 'gimp_value_set_drawable ($value, $var)',
libgimp, pdb: add GimpItem > GimpDrawable > GimpLayer classes. Only class and subclasses creation and PDB generation for this first step. I'll later do other types of items.
2019-08-13 19:59:33 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimpdrawable.h") ] },
selection => { name => 'SELECTION',
gtype => 'GIMP_TYPE_SELECTION_ID',
type => 'GimpSelection *',
const_type => 'GimpSelection *',
id => 1,
init_value => 'NULL',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_selection ($value, gimp)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
dup_value_func => '$var = GIMP_SELECTION (gimp_item_new_by_id (gimp_value_get_selection_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_selection_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_selection_id ($value, $var)',
take_value_func => 'gimp_value_set_selection ($value, $var)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimpselection.h") ] },
layer_mask => { name => 'CHANNEL',
gtype => 'GIMP_TYPE_LAYER_MASK_ID',
type => 'GimpLayerMask *',
const_type => 'GimpLayerMask *',
id => 1,
init_value => 'NULL',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_layer_mask ($value, gimp)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
dup_value_func => '$var = GIMP_LAYER_MASK (gimp_item_new_by_id (gimp_value_get_layer_mask_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_layer_mask_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_layer_mask_id ($value, $var)',
take_value_func => 'gimp_value_set_layer_mask ($value, $var)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("core/gimplayermask.h") ] },
vectors => { name => 'VECTORS',
gtype => 'GIMP_TYPE_VECTORS_ID',
type => 'GimpVectors *',
const_type => 'GimpVectors *',
id => 1,
init_value => 'NULL',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = gimp_value_get_vectors ($value, gimp)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
dup_value_func => '$var = GIMP_VECTORS (gimp_item_new_by_id (gimp_value_get_vectors_id ($value)))',
dup_value_func_d=> '$var = gimp_value_get_vectors_id ($value)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
set_value_func => 'gimp_value_set_vectors_id ($value, $var)',
take_value_func => 'gimp_value_set_vectors ($value, $var)',
pdb, libgimp: now make all ID types classes of their own. No need of is_id_arg() anymore in pdb/lib.pl. Let's reuse the {id} value. Also I had to add an additional trick for GimpDisplay which we will now generate as such in libgimp PDB files, but still need to show as GimpObject on app/pdb/. As previously, only the new classes and the PDB generation for a first step.
2019-08-14 03:36:03 +08:00
convert_func => 'gimp_item_get_id (GIMP_ITEM ($var))',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
headers => [ qw("vectors/gimpvectors.h") ] },
parasite => { name => 'PARASITE',
gtype => 'GIMP_TYPE_PARASITE',
type => 'GimpParasite *',
const_type => 'const GimpParasite *',
init_value => 'NULL',
pdb, libgimp: annotate input arrays with (element-type foo)
2019-08-01 00:58:52 +08:00
out_annotate => '(transfer full)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = g_value_get_boxed ($value)',
dup_value_func => '$var = g_value_dup_boxed ($value)',
set_value_func => 'g_value_set_boxed ($value, $var)',
take_value_func => 'g_value_take_boxed ($value, $var)',
headers => [ qw("libgimpbase/gimpbase.h") ] },
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
pdb: add gimp_procedural_db_proc_argument() and _return_value() Which return proper GParamSpecs. Incuding some useless testing code in gimp_procedural_db_proc_info(), to make sure things work, will go away again soon.
2019-08-05 16:46:55 +08:00
param => { name => 'PARAM',
gtype => 'G_TYPE_PARAM_SPEC',
type => 'GParamSpec *',
const_type => 'GParamSpec *',
init_value => 'NULL',
out_annotate => '(transfer full)',
get_value_func => '$var = g_value_get_param ($value)',
dup_value_func => '$var = g_value_dup_param ($value)',
set_value_func => 'g_value_set_param ($value, $var)',
take_value_func => 'g_value_take_param ($value, $var)' },
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
# Special cases
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
enum => { name => 'ENUM',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
gtype => 'G_TYPE_ENUM',
Remove GIMP_TYPE_INT32 and GimpParamSpecInt32 Use gint and GParamSpecInt instead.
2019-08-15 20:04:56 +08:00
type => 'gint ',
const_type => 'gint ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => '0',
get_value_func => '$var = g_value_get_enum ($value)',
dup_value_func => '$var = g_value_get_enum ($value)',
set_value_func => 'g_value_set_enum ($value, $var)',
take_value_func => 'g_value_set_enum ($value, $var)' },
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
boolean => { name => 'BOOLEAN',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
gtype => 'G_TYPE_BOOLEAN',
type => 'gboolean ',
const_type => 'gboolean ',
init_value => 'FALSE',
get_value_func => '$var = g_value_get_boolean ($value)',
dup_value_func => '$var = g_value_get_boolean ($value)',
set_value_func => 'g_value_set_boolean ($value, $var)',
take_value_func => 'g_value_set_boolean ($value, $var)' },
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
tattoo => { name => 'TATTOO',
gtype => 'G_TYPE_UINT',
type => 'guint ',
const_type => 'guint ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
init_value => '0',
get_value_func => '$var = g_value_get_uint ($value)',
dup_value_func => '$var = g_value_get_uint ($value)',
set_value_func => 'g_value_set_uint ($value, $var)',
take_value_func => 'g_value_set_uint ($value, $var)' },
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
guide => { name => 'GUIDE',
gtype => 'G_TYPE_UINT',
type => 'guint ',
const_type => 'guint ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
id => 1,
init_value => '0',
get_value_func => '$var = g_value_get_uint ($value)',
dup_value_func => '$var = g_value_get_uint ($value)',
set_value_func => 'g_value_set_uint ($value, $var)',
take_value_func => 'g_value_set_uint ($value, $var)' },
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
sample_point => { name => 'SAMPLE_POINT',
gtype => 'G_TYPE_UINT',
type => 'guint ',
const_type => 'guint ',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
id => 1,
init_value => '0',
get_value_func => '$var = g_value_get_uint ($value)',
dup_value_func => '$var = g_value_get_uint ($value)',
set_value_func => 'g_value_set_uint ($value, $var)',
take_value_func => 'g_value_set_uint ($value, $var)' },
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
unit => { name => 'UNIT',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
gtype => 'GIMP_TYPE_UNIT',
type => 'GimpUnit ',
const_type => 'GimpUnit ',
pdb: use guint for tatoo, guide, sample point, which they are and initialize GimpUnit with PIXEL instead of just 0.
2019-08-15 22:41:39 +08:00
init_value => 'GIMP_UNIT_PIXEL',
pdb, libgimp: more docs and annotations
2019-08-05 21:31:12 +08:00
out_annotate => '(transfer none)',
pdb: "gtype", "dup_value_func" and "take_value_func" to all PDB types so we have the toolkit for generating proper GType-based code in libgimp. This commit changes no code yet.
2019-07-30 16:39:56 +08:00
get_value_func => '$var = g_value_get_int ($value)',
dup_value_func => '$var = g_value_get_int ($value)',
set_value_func => 'g_value_set_int ($value, $var)',
take_value_func => 'g_value_set_int ($value, $var)' }
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
);
# Split out the parts of an arg constraint
sub arg_parse {
my $arg = shift;
Bunch more stuff -Yosh
1999-03-18 07:08:08 +08:00
if ($arg =~ /^enum (\w+)(.*)/) {
my ($name, $remove) = ($1, $2);
my @retvals = ('enum', $name);
Stuff -Yosh
1999-03-28 14:36:11 +08:00
if ($remove && $remove =~ m@ \(no @) {
chop $remove; ($remove = substr($remove, 5)) =~ s/ $//;
Bunch more stuff -Yosh
1999-03-18 07:08:08 +08:00
push @retvals, split(/,\s*/, $remove);
}
return @retvals;
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
}
Stuff -Yosh
1999-04-27 12:33:41 +08:00
elsif ($arg =~ /^unit(?: \(min (.*?)\))?/) {
my @retvals = ('unit');
push @retvals, $1 if $1;
return @retvals;
}
allow the use of constants when specifying limits for a PDB type. 2007-07-05 Sven Neumann <sven@gimp.org> * tools/pdbgen/pdb.pl (arg_parse): allow the use of constants when specifying limits for a PDB type. * tools/pdbgen/pdb/channel.pdb * tools/pdbgen/pdb/image.pdb * tools/pdbgen/pdb/layer.pdb: use GIMP_MAX_IMAGE_SIZE as limit for image and drawable sizes. * tools/pdbgen/pdb/selection_tools.pdb: added missing include. * app/pdb/channel_cmds.c * app/pdb/image_cmds.c * app/pdb/layer_cmds.c * app/pdb/selection_tools_cmds.c: regenerated. svn path=/trunk/; revision=22870
2007-07-05 22:31:42 +08:00
elsif ($arg =~ /^(?:([+-.\dA-Z_][^\s]*) \s* (<=|<))?
More stuff -Yosh
1999-03-21 10:14:08 +08:00
\s* (\w+) \s*
allow the use of constants when specifying limits for a PDB type. 2007-07-05 Sven Neumann <sven@gimp.org> * tools/pdbgen/pdb.pl (arg_parse): allow the use of constants when specifying limits for a PDB type. * tools/pdbgen/pdb/channel.pdb * tools/pdbgen/pdb/image.pdb * tools/pdbgen/pdb/layer.pdb: use GIMP_MAX_IMAGE_SIZE as limit for image and drawable sizes. * tools/pdbgen/pdb/selection_tools.pdb: added missing include. * app/pdb/channel_cmds.c * app/pdb/image_cmds.c * app/pdb/layer_cmds.c * app/pdb/selection_tools_cmds.c: regenerated. svn path=/trunk/; revision=22870
2007-07-05 22:31:42 +08:00
(?:(<=|<) \s* ([+-.\dA-Z_][^\s]*))?
The enum parser, other stuff -Yosh
1999-03-20 07:04:16 +08:00
/x) {
Bug 620604 - Description of "histogram" procedure is slightly inaccurate Fix totally broken value ranges of integer PDB parameters. Magically, the bug was affecting only exactly the two cases mentioned in above bug report. * tools/pdbgen/pdb.pl (arg_parse): return <, <=, > and >= literally instead of applying a mapping that was originally meant for generated C code that would e.g. transform "0 <= int32 < 10" into "if (value < 0 || value >= 10) fail". This inversion of all operators is now wrong because PDB parameters have been turned into GParamSpecs which always need inclusive ranges as min and max values. * tools/pdbgen/pdbgen.pl (arrayexpand): generated array length type specs must be "0 <= int32", not "0 < int32". * tools/pdbgen/app.pl: when generating integer param specs, check if the value range is specified in terms of < instead of <=, and add/subtract 1, resuting in the inclusive range needed for integer GParamSpecs. * app/pdb/color-cmds.c: regenerated, fixing the two broken ranges mentioned in the bug report.
2010-06-06 01:26:06 +08:00
return ($3, $1, $2, $5, $4);
PDB autogen stuff. Unfinished and undocumented -Yosh
1998-10-24 13:19:30 +08:00
}
}
Lossa stuff -Yosh
1999-04-04 13:59:08 +08:00
1;