From f3d4c9225f35c662a0085685d20610dfcbcb8e2d Mon Sep 17 00:00:00 2001
From: Kevin Turner <acapnotic@src.gnome.org>
Date: Thu, 10 Aug 2000 20:26:36 +0000
Subject: [PATCH] Generates gimpenums.py for pygimp

---
 tools/pdbgen/enumcode-py.pl | 99 +++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100755 tools/pdbgen/enumcode-py.pl

diff --git a/tools/pdbgen/enumcode-py.pl b/tools/pdbgen/enumcode-py.pl
new file mode 100755
index 0000000000..8f39935779
--- /dev/null
+++ b/tools/pdbgen/enumcode-py.pl
@@ -0,0 +1,99 @@
+#!/usr/bin/perl -w
+
+# The GIMP -- an image manipulation program
+# Copyright (C) 1999-2000 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 WITHOUTFILE 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.
+
+# This file would be included in enumcode.pl, but plug-ins/pygimp isn't
+# currently in the distribution, so keep it seperate for now.
+
+BEGIN {
+    $srcdir  = $ENV{srcdir}  || '.';
+    $destdir = $ENV{destdir} || '.';
+}
+
+use lib $srcdir;
+
+require 'enums.pl';
+require 'util.pl';
+
+*enums = \%Gimp::CodeGen::enums::enums;
+
+*write_file = \&Gimp::CodeGen::util::write_file;
+*FILE_EXT   = \$Gimp::CodeGen::util::FILE_EXT;
+
+my $enumfile = "$destdir/plug-ins/pygimp/gimpenums.py$FILE_EXT";
+open ENUMFILE, "> $enumfile" or die "Can't open $enumfile: $!\n";
+
+print ENUMFILE <<'GPL';
+#   Gimp-Python - allows the writing of Gimp plugins in Python.
+#   Copyright (C) 1997  James Henstridge <james@daa.com.au>
+#
+# 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.
+
+# gimpenums.py -- constants for use with the gimp module
+#
+# this file contains constants that are useful for use in
+# gimp plugins.  Just add 'from gimpenums import *' to the top
+# of the script
+
+# NOTE: This file is autogenerated by enumcode-py.pl.
+
+GPL
+
+print ENUMFILE <<'CODE';
+TRUE = 1
+FALSE = 0
+CODE
+
+foreach (sort keys %enums) {
+    my $enum = $enums{$_}; my $body = ""; my $i=0;
+    $body .= "\n# ";
+    $body .= "Gimp" if !/^Gimp/;
+    $body .= "$_\n";    
+    foreach $symbol (@{$enum->{symbols}}) {
+	my $sym = $symbol; 
+	$sym = $enum->{nicks}->{$sym} if exists $enum->{nicks}->{$sym};
+	# Maybe Python has nice enough namespace handling that we don't
+	# need to prefix all constants with GIMP_
+	$body .= "$sym";
+	if (!$enum->{contig}) {
+	  $i = $enum->{mapping}->{$symbol};
+	}
+
+	$body .= " = $i\n";	
+
+	$i++ if($enum->{contig});
+      }
+    print ENUMFILE $body;
+}
+
+print ENUMFILE "\n";
+
+close ENUMFILE;
+&write_file($enumfile);