Commit 618064c4 authored by Manish Singh's avatar Manish Singh

Still a work-in-progress, ignore

-Yosh
parent aaf116b0
......@@ -42,7 +42,7 @@ package Gimp::CodeGen::pdb;
},
image => {
name => 'IMAGE',
type => 'GImage *',
type => 'GimpImage *',
id_func => 'pdb_id_to_image',
id_ret_func => 'pdb_image_to_id ($var)',
id_headers => [ qw("procedural_db.h") ]
......@@ -66,7 +66,8 @@ package Gimp::CodeGen::pdb;
type => 'GimpDrawable *',
id_func => 'gimp_drawable_get_ID',
id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
id_headers => [ qw("drawable.h") ]
id_headers => [ qw("drawable.h") ],
gimage => 'drawable_gimage (GIMP_DRAWABLE ($var))'
},
selection => {
name => 'SELECTION',
......
......@@ -34,9 +34,8 @@ HELP
$date = '1997';
@inargs = (
&std_image_arg,
{ name => 'drawable', type => 'drawable',
desc => 'The drawable to offset' },
desc => 'The drawable to offset', gimage => 1 },
{ name => 'wrap_around', type => 'boolean',
desc => 'wrap image around or fill vacated regions' },
{ name => 'fill_type', type => 'enum GimpOffsetType',
......
......@@ -6,7 +6,7 @@ sub std_pdb_misc {
$date = '1995-1996';
}
sub std_image_arg {
sub std_image_arg () {
{
name => 'image',
type => 'image',
......
......@@ -17,15 +17,18 @@
package Gimp::CodeGen::util;
use File::Copy cp;
use File::Compare cmp;
$DEBUG_OUTPUT = 1;
sub write_file {
my $file = shift; my $realfile = $file;
$realfile =~ s/\.tmp\.\d+$//;
if (-e $realfile) {
if (`diff $realfile $file`) {
`cp $realfile $realfile~` if $DEBUG_OUTPUT;
`cp $file $realfile`;
if (cmp($realfile, $file)) {
cp($realfile, "$realfile~") if $DEBUG_OUTPUT;
cp($file, $realfile);
print "Wrote $realfile\n";
}
else {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment