diff options
Diffstat (limited to 'PerlQt/Makefile.PL.in')
-rw-r--r-- | PerlQt/Makefile.PL.in | 223 |
1 files changed, 0 insertions, 223 deletions
diff --git a/PerlQt/Makefile.PL.in b/PerlQt/Makefile.PL.in deleted file mode 100644 index e4009db..0000000 --- a/PerlQt/Makefile.PL.in +++ /dev/null @@ -1,223 +0,0 @@ - -### 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 $qtlib ='@LIB_QT@'; - -interpolate(\$qtlib); - -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 - $qtlib .= ' -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","qt",".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 - 'PRERETTQ_PM' => {}, # e.g., Module::Name => 1.1, - 'INC' => '@all_includes@ -I. -I../smoke', - 'LIBS' => ['@all_libraries@'." -L$localsmoke -lsmokeqt ".'@LIBCRYPT@'." $qtlib"], -# '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 -lsmokeqt\n/gs unless $i =~/-lsmokeqt/; - $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/libqt-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/libqt-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; - |