You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
libtqt-perl/PerlTQt/Makefile.PL.in

224 lines
5.9 KiB

### do not edit Makefile.PL, edit Makefile.PL.in
use Config;
use File::Spec;
use strict;
my %x;
$x{'prefix'} = '@prefix@';
$x{'exec_prefix'}='@exec_prefix@';
$x{'libdir'} = '@libdir@';
$x{'datadir'} = '@datadir@';
$x{'qt_libraries'} = '@qt_libraries@';
$x{'LIBPNG'} = '@LIBPNG@';
$x{'LIBJPEG'} = '@LIBJPEG@';
$x{'LIBSM'} = '@LIBSM@';
$x{'LIBSOCKET'} = '@LIBSOCKET@';
$x{'LIBRESOLV'} = '@LIBRESOLV@';
$x{'LIB_X11'} = '@LIB_X11@';
$x{'X_PRE_LIBS'} = '@X_PRE_LIBS@';
interpolate('LIB_X11', 'exec_prefix', 'libdir', 'datadir');
my $objects='TQt$(OBJ_EXT) handlers$(OBJ_EXT)';
my $tqtlib ='@LIB_TQT@';
interpolate(\$tqtlib);
my $rpath='@USE_RPATH@';
my $cxx = '@CXX@';
my $sh= '@SHELL@';
my $topdir= '@top_builddir@';
if($^O =~ /solaris/i && $cxx eq 'CC') {
# we have Forte/Sunworkshop on Solaris
# do we build only static libs?
my $only_static = 0;
foreach(`$topdir/libtool --config 2>&1`) {
/^build_libtool_libs=no/ && $only_static++;
/^build_old_libs=yes/ && $only_static++;
}
# ...then add the C++ runtime lib
$tqtlib .= ' -lCrun' if($only_static == 2);
}
my $libtool = File::Spec->catfile( $topdir, "libtool" );
my $devnull = File::Spec->devnull();
my $libtool_rpath = `$libtool --mode=link $cxx -o foo.so foo.o -R $x{'libdir'} -R $x{'qt_libraries'} 2>${devnull}`;
$libtool_rpath = "" unless $libtool_rpath =~ s/.*foo.so foo.o//s;
chomp $libtool_rpath;
$rpath = $rpath eq "yes" ?
($libtool_rpath ?
$libtool_rpath :
('@CXX@' eq 'g++' ?
"-Wl,--rpath -Wl,$x{'libdir'} -Wl,--rpath -Wl,$x{'qt_libraries'}" : ""
)
) : "";
my @scripts = ("bin/pqtsh", "bin/pqtapi");
my $cxxflags = '@CXXFLAGS@';
$cxxflags =~ s/ -pedantic / /g;
$cxxflags =~ s/ -Wwrite-strings / /g;
$cxxflags =~ s/ -Wall / /g;
my $doc_dir_glob;
###
use ExtUtils::MakeMaker;
use Cwd;
my $pwd = getcwd;
my @pwd = File::Spec->splitdir( $pwd );
pop @pwd;
my $abs_topdir = File::Spec->catdir(@pwd);
my $localsmoke = File::Spec->catdir($abs_topdir,"smoke","tqt",".libs");
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'TQt',
'VERSION_FROM' => 'TQt.pm', # finds $VERSION
'PREREQ_PM' => {}, # e.g., Module::Name => 1.1,
'INC' => '@all_includes@ -I. -I../smoke',
'LIBS' => ['@all_libraries@'." -L$localsmoke -lsmoketqt ".'@LIBCRYPT@'." $tqtlib"],
# 'XS' => {'TQt.xs' => 'TQt.cpp'}, # does not work ... still expects TQt.c
'XSOPT' => "-C++",
'OBJECT' => "$objects", # Object files
'CC' => '@CXX@',
# use the CC/g++ utility to link if linking is done with cc/gcc
($Config{ld} =~ /cc/ ? (
'LD' => '@CXX@'
) : ()),
'INST_BIN' => './bin',
'DEFINE' => $cxxflags,
'H' => ["marshall.h", "perlqt.h", "smokeperl.h"],
'ABSTRACT' => "An OO interface to Trolltech's TQt toolkit",
'dynamic_lib' => {'OTHERLDFLAGS' => $rpath},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(
AUTHOR => 'Ashley Winters <qaqortog@nwlink.com>') : ()),
);
sub MY::clean {
package MY;
my $i = shift->SUPER::clean(@_);
my $pl = '$(PERL) Makefile.PL';
$i =~ s/\n+$/\n\t$pl$&/s;
$i;
}
sub MY::const_loadlibs {
package MY;
my $i = shift->SUPER::const_loadlibs(@_);
# hacks for linking against a non-yet-installed smoke
$i =~ s/((?:EXTRALIBS|LDLOADLIBS).*?)\n/$1 -L$localsmoke -lsmoketqt\n/gs unless $i =~/-lsmoketqt/;
$i =~ s#(LD_RUN_PATH.*?)(${localsmoke})?\n#"$1".($2?"":":")."$x{'libdir'}\n"#se;
$i;
}
sub MY::dist {
package MY;
my $i = shift->SUPER::dist(@_);
$i =~ s#(DISTVNAME =).*?\n#$1 \$(distdir)\n#s;
$i;
}
sub MY::install {
package MY;
my $i = shift->SUPER::install(@_);
my $lng = $ENV{LANG};
my $doc_dir = "/usr/share/doc/libtqt-perl/tutorial";
my $src= File::Spec->catdir(File::Spec->updir, "doc");
my $found = 0;
# for my $l( split(":", $lng) )
# {
# $l =~ s/^(.*?)_.*$/$1/;
# $l = lc($l);
# if( $l and -d File::Spec->catdir( $src, $l ) )
# {
# $src = File::Spec->catdir( $src, $l);
# $found++;
# last;
# }
# }
$i =~ s/^install\s+::\s+all.*$/$& install_my_perlqt_doc/m;
# $src = File::Spec->catdir( $src, "en" ) unless $found;
$i .= "\ninstall_my_perlqt_doc:\n".
"\t\@echo Installing documentation in ${doc_dir}\n".
"\t\@$^X -MExtUtils::Install -MConfig -e \\\n".
"\t\t'install({ \"$src\" => \"\$(PREFIX)/share/doc/libtqt-perl/tutorial\" },0,0)' \$(DEV_NULL)\n";
$doc_dir_glob = $doc_dir;
$i;
}
sub interpolate
{
for( @_ )
{
my $r = ref( $_ ) ? $_ : \$x{"$_"};
$$r =~ s/\$\(\s*(.*?)\s*\)/$x{$1}/g;
$$r =~ s/\$\{\s*(.*?)\s*\}/$x{$1}/g;
}
}
#########
for my $s( @scripts )
{
MY->fixin( $s );
chmod 0755, $s;
}
open(IN, ">TQt.pod") or die "couldn't write TQt.pod: $!\n";
print IN <<STOP;
=head1 NAME
PerlTQt - Perl interface to the TQt GUI Widget toolkit
=head1 TQt
Given the huge size of the TQt module
(more than 400 classes and 13000 methods)
it doesn't have any formal documentation.
Instead, it provides two introspection tools
=over 4
=item * pqtapi:
a command line PerlTQt API introspector
=item * pqtsh:
a graphical PerlTQt shell
=back
and a detailed B<tutorial> with comprehensive
explanations.
This is where anyone new to PerlTQt
should start.
The tutorial has been originally installed
on this system in C<$doc_dir_glob>, in both B<POD> and
B<HTML> format.
For a complete IDE allowing RAD and visual programming,
check the pqt-designer package.
--- The PerlTQt team
http://perlqt.sf.net - PerlTQt Project Homepage
=cut
STOP
close IN;