Commit 6ccc7bdd authored by Sven Neumann's avatar Sven Neumann Committed by Sven Neumann
Browse files

removed trailing commmas from output.

2004-10-27  Sven Neumann  <sven@gimp.org>

	* tools/pdbgen/enumcode.pl: removed trailing commmas from output.
parent 1ce390fe
......@@ -21,6 +21,10 @@
dialogs for the tool options in a GtkNotebook showing the options
within one page for each tool.
 
2004-10-27 Sven Neumann <sven@gimp.org>
* tools/pdbgen/enumcode.pl: removed trailing commmas from output.
2004-10-27 Sven Neumann <sven@gimp.org>
 
* tools/pdbgen/enumcode.pl: fixed loop control in
......
......@@ -121,6 +121,7 @@ static GimpGetTypeFunc get_type_funcs[] =
{
CODE
my $first = 1;
foreach (sort keys %enums) {
if (! ($_ =~ /GimpUnit/)) {
my $enum = $enums{$_};
......@@ -128,9 +129,13 @@ foreach (sort keys %enums) {
for ($func) { s/Gimp//; s/PDB/Pdb/; s/([A-Z][^A-Z]+)/\L$1\E_/g; s/_$// }
print ENUMFILE " gimp_$func\_get_type,\n";
print ENUMFILE ",\n" unless $first;
print ENUMFILE " gimp_$func\_get_type";
$first = 0;
}
}
print ENUMFILE "\n" unless $first;
print ENUMFILE <<CODE;
};
......@@ -139,14 +144,19 @@ static const gchar *type_names[] =
{
CODE
my $first = 1;
foreach (sort keys %enums) {
if (! ($_ =~ /GimpUnit/)) {
my $enum = $enums{$_};
my $gtype = $_;
print ENUMFILE " \"$gtype\",\n";
print ENUMFILE ",\n" unless $first;
print ENUMFILE " \"$gtype\"";
$first = 0;
}
}
print ENUMFILE "\n" unless $first;
print ENUMFILE <<CODE;
};
......@@ -187,7 +197,6 @@ gimp_enums_get_type_names (gint *n_type_names)
return type_names;
}
CODE
close ENUMFILE;
......
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