libtqt-perl/PerlTQt/Makefile.PL.in

### 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;