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
|
sub d_do {
# undef $@; undef $!;
do $_[0];
# die("Error: $@ or $! when executing $_[0]") if $@ or $!;
}
add_pm 'Gdk.pm' => '$(INST_LIBDIR)/Gtk/Gdk.pm',
'Gtk.pm' => '$(INST_LIBDIR)/Gtk.pm',
'Atoms.pm' => '$(INST_LIBDIR)/Gtk/Atoms.pm',
'GtkColorSelectButton.pm' => '$(INST_LIBDIR)/Gtk/ColorSelectButton.pm',
'LogHandler.pm' => '$(INST_LIBDIR)/Gtk/LogHandler.pm';
add_c qw(GdkTypes.c GtkTypes.c MiscTypes.c Derived.c);
add_xs "Gtk.xs";
if ($gtk_major == 0) {
if ($gtk_minor < 99 or $gtk_micro < 10) {
die "Gtk+ <= 0.99.10 is not supported by this package.\n";
} else {
print "0.99\n";
d_do "Gtk/gtk-0.99.pl";
print "0.99-only\n";
d_do "Gtk/gtk-0.99-only.pl";
}
} elsif ($gtk_major == 1) {
if ($gtk_minor == 0) {
print "0.99\n";
d_do "Gtk/gtk-0.99.pl";
print "1.0\n";
d_do "Gtk/gtk-1.0.pl";
print "1.0-only\n";
d_do "Gtk/gtk-1.0-only.pl";
} elsif ($gtk_minor == 1) {
print "0.99\n";
d_do "Gtk/gtk-0.99.pl";
print "1.0\n";
d_do "Gtk/gtk-1.0.pl";
print "1.1\n";
d_do "Gtk/gtk-1.1.pl";
if ($gtk_micro >= 1) {
print "1.1.1\n";
d_do "Gtk/gtk-1.1.1.pl";
}
if ($gtk_micro >= 3) {
print "1.1.3\n";
d_do "Gtk/gtk-1.1.3.pl";
}
if ($gtk_micro >= 4) {
print "1.1.4\n";
d_do "Gtk/gtk-1.1.4.pl";
}
if ($gtk_micro >= 6) {
print "1.1.6\n";
d_do "Gtk/gtk-1.1.6.pl";
}
print "1.1-only\n";
d_do "Gtk/gtk-1.1-only.pl";
} elsif ($gtk_minor == 2) {
print "0.99\n";
d_do "Gtk/gtk-0.99.pl";
print "1.0\n";
d_do "Gtk/gtk-1.0.pl";
print "1.1\n";
d_do "Gtk/gtk-1.1.pl";
print "1.1.1\n";
d_do "Gtk/gtk-1.1.1.pl";
print "1.1.3\n";
d_do "Gtk/gtk-1.1.3.pl";
print "1.1.4\n";
d_do "Gtk/gtk-1.1.4.pl";
print "1.1.6\n";
d_do "Gtk/gtk-1.1.6.pl";
print "1.2\n";
d_do "Gtk/gtk-1.2.pl";
} elsif ($gtk_minor == 3) {
print "0.99\n";
d_do "Gtk/gtk-0.99.pl";
print "1.0\n";
d_do "Gtk/gtk-1.0.pl";
print "1.1\n";
d_do "Gtk/gtk-1.1.pl";
print "1.1.1\n";
d_do "Gtk/gtk-1.1.1.pl";
print "1.1.3\n";
d_do "Gtk/gtk-1.1.3.pl";
print "1.1.4\n";
d_do "Gtk/gtk-1.1.4.pl";
print "1.1.6\n";
d_do "Gtk/gtk-1.1.6.pl";
print "1.2\n";
d_do "Gtk/gtk-1.2.pl";
print "1.3\n";
d_do "Gtk/gtk-1.3.pl";
}
} elsif ($gtk_major >= 2) {
die "I don't know where you got a version higher than 1.3 of gtk+\n";
}
|
