use 5.008; use ExtUtils::MakeMaker; use Cwd; use File::Spec; use ExtUtils::Depends; use ExtUtils::PkgConfig; use Gtk2::CodeGen; # minimum required version of dependancies we need to build our %build_reqs = ( 'perl-ExtUtils-Depends' => '0.1', 'perl-ExtUtils-PkgConfig' => '0.1', 'perl-Glib' => '1.00', 'perl-Gtk2' => '1.00', ); # Writing a fake Makefile ensures that CPAN will pick up the correct # dependencies and install them. unless (eval "use ExtUtils::Depends;" . "use ExtUtils::PkgConfig;" . "use Glib::MakeHelper;" . "use Gtk2::CodeGen;" # just seeing if Glib is available isn't enough, make sure # it's recent enough, too . "use Glib '$build_reqs{'perl-Glib'}';" . "use Gtk2 '$build_reqs{'perl-Gtk2'}';" . "1") { warn "$@\n"; WriteMakefile( PREREQ_FATAL => 1, PREREQ_PM => { Glib:: => $build_reqs{'perl-Glib'}, Gtk2:: => $build_reqs{'perl-Gtk2'}, ExtUtils::Depends:: => $build_reqs{'perl-ExtUtils-Depends'}, ExtUtils::PkgConfig:: => $build_reqs{'perl-ExtUtils-PkgConfig'}, }, ); exit 1; # not reached } mkdir 'build', 0777; my %pkgcfg = ExtUtils::PkgConfig->find ('gtk+-2.0'); Gtk2::CodeGen->parse_maps ('traymanager'); Gtk2::CodeGen->write_boot; my $genmarshal= `which glib-genmarshal`; unless($genmarshal) { print STDERR "glib-genmarshal needs to be installed\n"; exit 1; } chomp $genmarshal; print STDERR "writing build/eggmarshalers.h\n"; system("$genmarshal --prefix=_egg_marshal eggmarshalers.list --header > build/eggmarshalers.h"); print STDERR "writing build/eggmarshalers.c\n"; system("$genmarshal --prefix=_egg_marshal eggmarshalers.list --body > build/eggmarshalers.c"); $traymanager = ExtUtils::Depends->new ('Gtk2::TrayManager', 'Gtk2', 'Glib'); $traymanager->set_inc ($pkgcfg{cflags} . " -DEGG_COMPILATION"); $traymanager->set_libs ($pkgcfg{libs}); $traymanager->add_c(qw(egg-marshal.c eggtraymanager.c)); $traymanager->add_xs ("TrayManager.xs"); $traymanager->add_pm ('TrayManager.pm' => '$(INST_LIBDIR)/TrayManager.pm'); my $cwd = cwd(); $traymanager->add_typemaps (map {File::Spec->catfile($cwd,$_)} 'build/traymanager.typemap'); # $traymanager->install (qw(traymanager.h build/traymanager-autogen.h)); $traymanager->install (qw(build/traymanager-autogen.h)); $traymanager->save_config ('build/IFiles.pm'); WriteMakefile( NAME => 'Gtk2::TrayManager', VERSION_FROM => 'TrayManager.pm', # finds $VERSION # ABSTRACT_FROM => 'TrayManager.pm', # retrieve abstract from module XSPROTOARG => '-noprototypes', $traymanager->get_makefile_vars, PREREQ_PM => { Gtk2 => $build_reqs{'perl-Gtk2'}, }, ); package MY; use Cwd; sub postamble { return Glib::MakeHelper->postamble_clean () . Glib::MakeHelper->postamble_docs (@main::xs_files) . Glib::MakeHelper->postamble_rpms ( 'PERL_EXTUTILS_DEPENDS' => $build_reqs{'perl-ExtUtils-Depends'}, 'PERL_EXTUTILS_PKGCONFIG' => $build_reqs{'perl-ExtUtils-PkgConfig'}, 'PERL_GLIB' => $build_reqs{'perl-Glib'}, 'PERL_GTK' => $build_reqs{'perl-Gtk2'}, ); } package MAIN;