pdb/enumcode.pl

   1 #!/usr/bin/perl -w
   2
   3 # GIMP - The GNU Image Manipulation Program
   4 # Copyright (C) 1999-2003 Manish Singh <yosh@gimp.org>
   5
   6 # This program is free software: you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 3 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUTFILE ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  18
  19 BEGIN {
  20     $srcdir   = $ENV{srcdir}  || '.';
  21     $destdir  = $ENV{destdir} || '.';
  22     $builddir = $ENV{builddir} || '.';
  23 }
  24
  25 use lib $srcdir;
  26
  27 require 'enums.pl';
  28 require 'util.pl';
  29
  30 *enums = \%Gimp::CodeGen::enums::enums;
  31
  32 *write_file = \&Gimp::CodeGen::util::write_file;
  33 *FILE_EXT   = \$Gimp::CodeGen::util::FILE_EXT;
  34
  35 my $enumfile = "$builddir/libgimp/gimpenums.h$FILE_EXT";
  36 open ENUMFILE, "> $enumfile" or die "Can't open $enumfile: $!\n";
  37
  38 print ENUMFILE <<'LGPL';
  39 /* LIBGIMP - The GIMP Library
  40  * Copyright (C) 1995-2003 Peter Mattis and Spencer Kimball
  41  *
  42  * This library is free software: you can redistribute it and/or
  43  * modify it under the terms of the GNU Lesser General Public
  44  * License as published by the Free Software Foundation; either
  45  * version 3 of the License, or (at your option) any later version.
  46  *
  47  * This library is distributed in the hope that it will be useful,
  48  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  49  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  50  * Lesser General Public License for more details.
  51  *
  52  * You should have received a copy of the GNU Lesser General Public
  53  * License along with this library.  If not, see
  54  * <https://www.gnu.org/licenses/>.
  55  */
  56
  57 /* NOTE: This file is autogenerated by enumcode.pl */
  58
  59 LGPL
  60
  61 my $guard = "__GIMP_ENUMS_H__";
  62 print ENUMFILE <<HEADER;
  63 #ifndef $guard
  64 #define $guard
  65
  66 G_BEGIN_DECLS
  67
  68 HEADER
  69
  70 foreach (sort keys %enums) {
  71     if (! ($enums{$_}->{header} =~ /libgimp/) &&
  72         ! $enums{$_}->{external}) {
  73         my $gtype = $func = $_;
  74
  75         for ($gtype) { s/Gimp//; s/([A-Z][^A-Z]+)/\U$1\E_/g; s/_$// }
  76         for ($func) { s/Gimp//; s/([A-Z][^A-Z]+)/\L$1\E_/g; s/_$// }
  77
  78         print ENUMFILE "\n#define GIMP_TYPE_$gtype (gimp_$func\_get_type ())\n\n";
  79         print ENUMFILE "GType gimp_$func\_get_type (void) G_GNUC_CONST;\n\n";
  80         print ENUMFILE "typedef enum\n{\n";
  81
  82         my $enum = $enums{$_}; my $body = "";
  83
  84         foreach $symbol (@{$enum->{symbols}}) {
  85             my $sym = $symbol;
  86             $body .= "  $sym";
  87             $body .= " = $enum->{mapping}->{$symbol}" if !$enum->{contig};
  88             $body .= ",\n";
  89         }
  90
  91         $body =~ s/,\n$//s;
  92         $body .= "\n} ";
  93         $body .= "$_;\n\n";
  94         print ENUMFILE $body
  95     }
  96 }
  97
  98 print ENUMFILE <<HEADER;
  99
 100 void           gimp_enums_init           (void);
 101
 102 const gchar ** gimp_enums_get_type_names (gint *n_type_names);
 103
 104
 105 G_END_DECLS
 106
 107 #endif /* $guard */
 108 HEADER
 109
 110 close ENUMFILE;
 111 &write_file($enumfile, "$destdir/libgimp");
 112
 113 $enumfile = "$builddir/libgimp/gimpenums.c.tail$FILE_EXT";
 114 open ENUMFILE, "> $enumfile" or die "Can't open $enumfile: $!\n";
 115
 116 print ENUMFILE <<CODE;
 117
 118 typedef GType (* GimpGetTypeFunc) (void);
 119
 120 static const GimpGetTypeFunc get_type_funcs[] =
 121 {
 122 CODE
 123
 124 my $first = 1;
 125 foreach (sort keys %enums) {
 126     if (! ($_ =~ /GimpUnit/)) {
 127         my $enum = $enums{$_};
 128         my $func = $_;
 129         my $gegl_enum = ($func =~ /Gegl/);
 130
 131         for ($func) { s/Gimp//; s/Gegl//; s/PDB/Pdb/;
 132                       s/([A-Z][^A-Z]+)/\L$1\E_/g; s/_$// }
 133
 134         print ENUMFILE ",\n" unless $first;
 135
 136         if ($gegl_enum) {
 137             print ENUMFILE "  gegl_$func\_get_type";
 138         } else {
 139             print ENUMFILE "  gimp_$func\_get_type";
 140         }
 141
 142         $first = 0;
 143     }
 144 }
 145 print ENUMFILE "\n" unless $first;
 146
 147 print ENUMFILE <<CODE;
 148 };
 149
 150 static const gchar * const type_names[] =
 151 {
 152 CODE
 153
 154 $first = 1;
 155 foreach (sort keys %enums) {
 156     if (! ($_ =~ /GimpUnit/)) {
 157         my $enum = $enums{$_};
 158         my $gtype = $_;
 159
 160         print ENUMFILE ",\n" unless $first;
 161         print ENUMFILE "  \"$gtype\"";
 162
 163         $first = 0;
 164     }
 165 }
 166 print ENUMFILE "\n" unless $first;
 167
 168 print ENUMFILE <<CODE;
 169 };
 170
 171 static gboolean enums_initialized = FALSE;
 172
 173 #if 0
 174 /*  keep around as documentation how to do compat enums  */
 175 GType gimp_convert_dither_type_compat_get_type (void);
 176 #endif
 177
 178 /**
 179  * gimp_enums_init:
 180  *
 181  * This function makes sure all the enum types are registered
 182  * with the #GType system. This is intended for use by language
 183  * bindings that need the symbols early, before gimp_main is run.
 184  * It's not necessary for plug-ins to call this directly, because
 185  * the normal plug-in initialization code will handle it implicitly.
 186  *
 187  * Since: 2.4
 188  **/
 189 void
 190 gimp_enums_init (void)
 191 {
 192   const GimpGetTypeFunc *funcs = get_type_funcs;
 193 #if 0
 194   GQuark                 quark;
 195 #endif
 196   gint                   i;
 197
 198   if (enums_initialized)
 199     return;
 200
 201   for (i = 0; i < G_N_ELEMENTS (get_type_funcs); i++, funcs++)
 202     {
 203       GType type = (*funcs) ();
 204
 205       g_type_class_ref (type);
 206     }
 207
 208 #if 0
 209   /*  keep around as documentation how to do compat enums  */
 210
 211   /*  keep compat enum code in sync with app/app.c (app_libs_init)  */
 212   quark = g_quark_from_static_string ("gimp-compat-enum");
 213
 214   g_type_set_qdata (GIMP_TYPE_CONVERT_DITHER_TYPE, quark,
 215                     (gpointer) gimp_convert_dither_type_compat_get_type ());
 216 #endif
 217
 218   gimp_base_compat_enums_init ();
 219
 220   enums_initialized = TRUE;
 221 }
 222
 223 /**
 224  * gimp_enums_get_type_names:
 225  * \@n_type_names: return location for the number of names
 226  *
 227  * This function gives access to the list of enums registered by libgimp.
 228  * The returned array is static and must not be modified.
 229  *
 230  * Return value: an array with type names
 231  *
 232  * Since: 2.2
 233  **/
 234 const gchar **
 235 gimp_enums_get_type_names (gint *n_type_names)
 236 {
 237   g_return_val_if_fail (n_type_names != NULL, NULL);
 238
 239   *n_type_names = G_N_ELEMENTS (type_names);
 240
 241   return (const gchar **) type_names;
 242 }
 243 CODE
 244
 245 close ENUMFILE;
 246 &write_file($enumfile, "$destdir/libgimp");