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.
140 lines
3.5 KiB
140 lines
3.5 KiB
#!/usr/bin/perl -w
|
|
|
|
#
|
|
# This Makefile.PL is an interface to ./configure intended to be used
|
|
# by automatic CPAN builds. It just checks that some needed environment
|
|
# variables are set and eventually tries to guess their value...
|
|
#
|
|
# You should use it instead of the ./configure program ;
|
|
# it accepts the same options.
|
|
#
|
|
|
|
use strict;
|
|
|
|
my $libname = "libtqt-mt.so";
|
|
my @prefix = ('/usr', '/usr/local');
|
|
|
|
my $res="";
|
|
my %p;
|
|
my @alt;
|
|
|
|
exec "./configure --help" if grep /^-?-h(elp)?$/, @ARGV;
|
|
|
|
unless ($ENV{'TQTDIR'} or grep /--with-qt-dir/, @ARGV)
|
|
{
|
|
print "\n!!!!!!!!!!!! WARNING !!!!!!!!!!!!\n".
|
|
" Your TQTDIR environment variable is not set and you\n".
|
|
"did not use the '--with-qt-dir=' commandline option.\n".
|
|
"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n\n";
|
|
print "Nevermind, I'll try to guess TQt's location.\n";
|
|
sleep(6);
|
|
for(@prefix)
|
|
{
|
|
my $stdpath = $_."/lib/qt3/lib";
|
|
if(-s $stdpath."/$libname")
|
|
{
|
|
push @alt, glob($stdpath."/$libname*");
|
|
print "Found what looks like a TQt-3 tree in $_/lib/qt3\n";
|
|
sleep(1);
|
|
}
|
|
}
|
|
|
|
unless (@alt)
|
|
{
|
|
@alt=`locate $libname 2>/dev/null`;
|
|
|
|
if(!check_exit_status($?) || !@alt)
|
|
{
|
|
print "mmh... locate did not help. We'll try a find then.\n";
|
|
sleep(2);
|
|
|
|
print "Scanning local file system (ctrl-c to abort)...\n";
|
|
@alt=`find / -name "$libname*" 2>/dev/null`;
|
|
}
|
|
}
|
|
|
|
if(!check_exit_status($?) || !@alt)
|
|
{
|
|
print "Still no luck... I'll give up and let ./configure work it out\n";
|
|
}
|
|
elsif(@alt>1)
|
|
{
|
|
print "We have several answers. I'll try to discriminate a bit...\n";
|
|
sleep(3);
|
|
for(@alt) { /(.*)\/lib\// and $p{$1}++ }
|
|
if(keys %p == 1)
|
|
{
|
|
$res = each %p;
|
|
}
|
|
else
|
|
{
|
|
my ($ver,$tmp)=(0,0);
|
|
for(@alt)
|
|
{
|
|
/$libname(?:\.(\d+))?(?:\.(\d+))?(?:\.(\d+))?$/o;
|
|
$tmp = (($1?$1:0)*100)+(($2?$2:0)*10)+($3?$3:0);
|
|
if($tmp>=$ver)
|
|
{
|
|
$ver = $tmp;
|
|
$res = (/(.*)\/lib\//)[0]
|
|
}
|
|
}
|
|
$res = each %p if keys %p ==1;
|
|
}
|
|
print $res?"OK. We can try --with-qt-dir=$res.\n":"No, that's too fuzzy. I'll give up and let ./configure decide.\n";
|
|
}
|
|
else
|
|
{
|
|
($res=$alt[0])=~s|(.*)/lib/.*|$1|;
|
|
print "Fine. We'll try with --with-qt-dir=$res.\n";
|
|
}
|
|
sleep(3);
|
|
}
|
|
|
|
unshift(@ARGV, "--with-qt-dir=$res") if $res;
|
|
|
|
unless ($ENV{'TDEDIR'} or grep /--prefix/, @ARGV)
|
|
{
|
|
print "\n!!!!!!!!!!!! WARNING !!!!!!!!!!!!\n".
|
|
" Your TDEDIR environment variable is not set and you\n".
|
|
"did not use the '--prefix=' commandline option.\n";
|
|
print "TDE isn't required at all. However, if it's installed on your system,\n".
|
|
"it is much better to specify it's location since PerlTQt uses (or build, if\n".
|
|
"it can't find it) a TDE library named smoketqt.\n";
|
|
print "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n\n";
|
|
sleep(5);
|
|
}
|
|
|
|
print "\nNow starting ./configure ...\n\n";
|
|
|
|
exec join " ", "./configure", @ARGV;
|
|
|
|
#--------------------------------------------------------------#
|
|
|
|
sub check_exit_status
|
|
{
|
|
my $a = 0xFFFF & shift;
|
|
if( !$a )
|
|
{
|
|
return 1;
|
|
}
|
|
elsif( $a == 0xFF00 )
|
|
{
|
|
#die "\nSystem call failed: $!\n";
|
|
}
|
|
elsif( $a > 0x80 )
|
|
{
|
|
# non-zero status.
|
|
}
|
|
else
|
|
{
|
|
if( $a & 0x80 )
|
|
{
|
|
#die "\nProgram coredumped with signal ". ($a & ~0x80);
|
|
}
|
|
die "\nProgram interrupted by signal $a\n";
|
|
}
|
|
return 0;
|
|
}
|
|
|