1998-10-24 13:19:30 +08:00
|
|
|
# The GIMP -- an image manipulation program
|
|
|
|
# Copyright (C) 1998 Manish Singh <yosh@gimp.org>
|
|
|
|
|
|
|
|
# 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 2 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, write to the Free Software
|
|
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
|
|
|
|
package Gimp::CodeGen::pdb;
|
|
|
|
|
|
|
|
%arg_types = (
|
|
|
|
int32 => { name => 'INT32', type => 'gint32 ' },
|
|
|
|
int16 => { name => 'INT16', type => 'gint16 ' },
|
|
|
|
int8 => { name => 'INT8' , type => 'gint8 ' },
|
|
|
|
|
|
|
|
float => { name => 'FLOAT' , type => 'gdouble ' },
|
|
|
|
string => { name => 'STRING', type => 'gchar *' },
|
|
|
|
|
1999-03-11 02:56:56 +08:00
|
|
|
int32array => { name => 'INT32ARRAY' , type => 'gint32 *' , array => 1 },
|
|
|
|
int16array => { name => 'INT16ARRAY' , type => 'gint16 *' , array => 1 },
|
|
|
|
int8array => { name => 'INT8ARRAY' , type => 'gint8 *' , array => 1 },
|
|
|
|
floatarray => { name => 'FLOATARRAY' , type => 'gdouble *', array => 1 },
|
|
|
|
stringarray => { name => 'STRINGARRAY', type => 'gchar **' , array => 1 },
|
1998-10-24 13:19:30 +08:00
|
|
|
|
|
|
|
color => { name => 'COLOR' , type => 'guchar *' },
|
|
|
|
|
1999-03-18 07:08:08 +08:00
|
|
|
display => { name => 'DISPLAY',
|
|
|
|
type => 'GDisplay *',
|
|
|
|
id_func => 'gdisplay_get_ID',
|
|
|
|
id_ret_func => '$var->ID',
|
|
|
|
id_headers => [ qw("gdisplay.h") ] },
|
|
|
|
image => { name => 'IMAGE',
|
|
|
|
type => 'GimpImage *',
|
|
|
|
id_func => 'pdb_id_to_image',
|
|
|
|
id_ret_func => 'pdb_image_to_id ($var)',
|
|
|
|
id_headers => [ qw("procedural_db.h") ] },
|
|
|
|
layer => { name => 'LAYER',
|
|
|
|
type => 'GimpLayer *',
|
|
|
|
id_func => 'layer_get_ID',
|
|
|
|
id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
|
|
|
|
id_headers => [ qw("drawable.h" "layer.h") ] },
|
|
|
|
channel => { name => 'CHANNEL',
|
|
|
|
type => 'Channel *',
|
|
|
|
id_func => 'channel_get_ID',
|
|
|
|
id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
|
|
|
|
id_headers => [ qw("drawable.h" "channel.h") ] },
|
|
|
|
drawable => { name => 'DRAWABLE',
|
|
|
|
type => 'GimpDrawable *',
|
|
|
|
id_func => 'gimp_drawable_get_ID',
|
|
|
|
id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
|
|
|
|
id_headers => [ qw("drawable.h") ] },
|
|
|
|
selection => { name => 'SELECTION',
|
|
|
|
type => 'Channel *',
|
|
|
|
id_func => 'channel_get_ID',
|
|
|
|
id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
|
|
|
|
id_headers => [ qw("drawable.h" "channel.h") ] },
|
1998-10-24 13:19:30 +08:00
|
|
|
|
|
|
|
boundary => { name => 'BOUNDARY', type => 'gpointer ' }, # ??? FIXME
|
|
|
|
path => { name => 'PATH' , type => 'gpointer ' }, # ??? FIXME
|
|
|
|
status => { name => 'STATUS' , type => 'gpointer ' }, # ??? FIXME
|
|
|
|
|
|
|
|
# Special cases
|
|
|
|
enum => { name => 'INT32', type => 'gint32 ' },
|
|
|
|
boolean => { name => 'INT32', type => 'gboolean ' },
|
|
|
|
|
|
|
|
region => { name => 'REGION', type => 'gpointer ' }, # not supported
|
|
|
|
);
|
|
|
|
|
|
|
|
# Split out the parts of an arg constraint
|
|
|
|
sub arg_parse {
|
1999-03-18 07:08:08 +08:00
|
|
|
my %testmap = (
|
|
|
|
'<' => '>',
|
|
|
|
'>' => '<',
|
|
|
|
'<=' => '>=',
|
|
|
|
'>=' => '<='
|
|
|
|
);
|
|
|
|
|
1998-10-24 13:19:30 +08:00
|
|
|
my $arg = shift;
|
1999-03-18 07:08:08 +08:00
|
|
|
|
|
|
|
if ($arg =~ /^enum (\w+)(.*)/) {
|
|
|
|
my ($name, $remove) = ($1, $2);
|
|
|
|
my @retvals = ('enum', $name);
|
|
|
|
|
|
|
|
if ($remove && $remove =~ / \(no /) {
|
|
|
|
$remove =~ s/ \(no (.*?)\)$/$1/;
|
|
|
|
push @retvals, split(/,\s*/, $remove);
|
|
|
|
}
|
|
|
|
|
|
|
|
return @retvals;
|
1998-10-24 13:19:30 +08:00
|
|
|
}
|
1999-03-18 07:08:08 +08:00
|
|
|
elsif ($arg =~ /^([\d\.-].*?)? *(<=|<)? *(\w+) *(<=|<)? *([\d\.-].*?)?/) {
|
|
|
|
return ($3, $1, $2 ? $testmap{$2} : $2, $5, $4 ? $testmap{$4} : $4);
|
1998-10-24 13:19:30 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# Return the marshaller data type
|
|
|
|
sub arg_ptype {
|
|
|
|
my $arg = shift;
|
|
|
|
do {
|
|
|
|
if (exists $arg->{id_func}) { 'int' }
|
|
|
|
elsif ($arg->{type} =~ /\*/) { 'pointer' }
|
|
|
|
elsif ($arg->{type} =~ /boolean/) { 'int' }
|
|
|
|
elsif ($arg->{type} =~ /int/) { 'int' }
|
|
|
|
elsif ($arg->{type} =~ /float/) { 'float' }
|
|
|
|
else { 'pointer' }
|
|
|
|
};
|
|
|
|
}
|
|
|
|
|
|
|
|
# Return the alias if defined, otherwise the name
|
|
|
|
sub arg_vname { exists $_[0]->{alias} ? $_[0]->{alias} : $_[0]->{name} }
|
1999-03-11 02:56:56 +08:00
|
|
|
|
|
|
|
sub arg_numtype () { 'gint32 ' }
|