1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
|
=out
libgnomeprint-2.2
libgnomeprintui-2.2
=cut
@dirs = (
'/usr/include/libgnomeprint-2.2/libgnomeprint/',
'/usr/include/libgnomeprintui-2.2/libgnomeprintui/',
);
foreach $dir (@dirs) {
@lines = `grep _TYPE_ $dir/*.h | grep get_type`;
foreach (@lines) {
chomp;
s/^.*\s([A-Z][A-Z0-9_]*_TYPE_[A-Z0-9_]*)\s.*$/$1/;
# print "$1\n";
push @types, $_;
}
}
open FOO, "> foo.c";
select FOO;
print '#include <stdio.h>
#include <gnome.h>
#include <libgnomeprint/gnome-font.h>
#include <libgnomeprint/gnome-font-face.h>
#include <libgnomeprint/gnome-glyphlist.h>
#include <libgnomeprint/gnome-print.h>
#include <libgnomeprint/gnome-print-config.h>
#include <libgnomeprint/gnome-print-job.h>
#include <libgnomeprint/libgnomeprint-enum-types.h>
#include <libgnomeprintui/gnome-font-dialog.h>
#include <libgnomeprintui/gnome-print-dialog.h>
#include <libgnomeprintui/gnome-print-job-preview.h>
#include <libgnomeprintui/gnome-print-preview.h>
#include <libgnomeprintui/gnome-print-paper-selector.h>
#include <libgnomeprintui/gnome-print-unit-selector.h>
const char * find_base (GType gtype)
{
if (g_type_is_a (gtype, GTK_TYPE_OBJECT))
return "GtkObject";
if (g_type_is_a (gtype, G_TYPE_OBJECT))
return "GObject";
if (g_type_is_a (gtype, G_TYPE_BOXED))
return "GBoxed";
if (g_type_is_a (gtype, G_TYPE_FLAGS))
return "GFlags";
if (g_type_is_a (gtype, G_TYPE_ENUM))
return "GEnum";
if (g_type_is_a (gtype, G_TYPE_INTERFACE))
return "GInterface";
if (g_type_is_a (gtype, G_TYPE_STRING))
return "GString";
{
GType parent = gtype;
while (parent != 0) {
gtype = parent;
parent = g_type_parent (gtype);
}
return g_type_name (gtype);
}
return "-";
}
int main (int argc, char * argv [])
{
g_type_init ();
';
foreach (@types) {
print '#ifdef '.$_.'
{
GType gtype = '.$_.';
printf ("%s\t%s\t%s\n",
"'.$_.'",
g_type_name (gtype),
find_base (gtype));
}
#endif /* '.$_.' */
';
}
print '
return 0;
}
';
close FOO;
select STDOUT;
system 'gcc -DGTK_DISABLE_DEPRECATED -Wall -o foo foo.c `pkg-config libgnomeui-2.0 libgnomeprint-2.2 libgnomeprintui-2.2 --cflags --libs`'
and die "couldn't compile helper program";
@packagemap = (
[ GnomePrint => 'Gnome2::Print' ],
[ GnomeFont => 'Gnome2::Print::Font' ],
[ GnomeGlyphList => 'Gnome2::Print::GlyphList' ],
[ Gnome => 'Gnome2' ], # fallback
);
foreach (`./foo`) {
chomp;
my @p = split;
my $pkg = 'Gnome2';
my $prefix = 'Gnome';
foreach $f (@packagemap) {
my $t = $f->[0];
if ($p[1] =~ /^$t/) {
$prefix = $f->[0];
$pkg = $f->[1];
last;
}
}
(my $fullname = $p[1]) =~ s/^$prefix/$pkg\::/;
print join("\t", @p, $fullname), "\n";
}
|