From 09e37ffea9f0871dc8396a0a10b68fd0561e1930 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 16 May 2005 12:27:51 +0000
Subject: Reverted to the old method for updating the version number in Zinc.pm
 and Makefile.PL (using export2cpan).

---
 Perl/Makefile.PL | 138 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100644 Perl/Makefile.PL

(limited to 'Perl/Makefile.PL')

diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL
new file mode 100644
index 0000000..d731648
--- /dev/null
+++ b/Perl/Makefile.PL
@@ -0,0 +1,138 @@
+use 5.006;
+use Tk;
+use Config;
+use Tk::Config;
+use ExtUtils::MakeMaker;
+use strict;
+
+my $TkLibDir = $Tk::library;
+my $platform = $Tk::platform;
+
+my $VERSION = SEEexport2cpan;
+
+
+if (!$TkLibDir)
+{
+    print stderr "==================================================================\n";
+    print stderr "Could not find the Perl/Tk (pTk) library.\n";
+    print stderr "Please, install first Perl/Tk interface before installing Tk::Zinc\n";
+    print stderr "==================================================================\n";
+    die;
+}
+
+
+print "Configuring version $VERSION for $platform platform...\n";
+print "Using $TkLibDir as Tk library...\n";
+
+my @GENERIC_C = ('Tabular.c', 'Rectangle.c', 'Arc.c', 'Curve.c',
+		 'Item.c', 'PostScript.c', 'Attrs.c', 'Draw.c', 'Geo.c', 'List.c',
+		 'perfos.c', 'Transfo.c', 'Group.c', 'Icon.c', 'Text.c', 'Image.c', 'Color.c',
+		 'Field.c', 'Triangles.c', 'Window.c', 'tkZinc.c');
+
+my @ATC_C = ('OverlapMan.c', 'Track.c', 'Reticle.c', 'Map.c', 'MapInfo.c');
+
+my @WIN_C = ('WinPort.c');
+
+my @C;
+
+my $WIN = ($platform =~ /win/i);
+
+push @C, @GENERIC_C ;
+
+my $NeededLibs = ['-L/usr/X11R6/lib -lXext -lX11 -lGLU -lGL -L.'];
+
+if ($WIN) {
+    push @C, @WIN_C;
+    $NeededLibs = ['-lglu32 -lopengl32']
+}
+my $ZincObj = "Zinc" . $Config{"_o"};
+
+my $INC = "-I. -I$TkLibDir -I$TkLibDir/pTk -I$TkLibDir/X11";
+
+unless ($WIN) {
+  $INC .= " -I/usr/X11R6/include";
+}
+
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+              'ABSTRACT'        => 'a canvas offering groups, tranformations, transparency, color gradient...',
+	      'AUTHOR'          => 'Patrick Lecoanet <lecoanet@cena.fr>',
+	      'NAME'		=> 'Tk::Zinc',
+	      'VERSION'	        => $VERSION,
+	      'PREREQ_PM'	=> $WIN ? {Tk => 8.004} : {Tk => 8.0},
+	      'LIBS'		=> $NeededLibs, 
+	      'DEFINE'		=> &get_flags,
+	      'INC'             => $INC,
+	      'C'               => [@C],
+	      'XS_VERSION'      => $Tk::Config::VERSION,
+	      'XS'              => {'Zinc.xs' => 'Zinc.c'},
+	      'linkext'         => {LINKTYPE => 'dynamic'},
+	      'depend'          => {$ZincObj => '$(O_FILES) Zinc.c'},
+	      'LDFROM'		=> "\$(O_FILES) $ZincObj",
+	      );
+
+sub get_flags {
+    my %DEF_FLAGS = ('GL'        => 1,
+		     'SHAPE'     => 1,
+		     'GL_DAMAGE' => 1,
+		     'ATC'        => 1
+		     );
+    
+    foreach my $arg (@ARGV) {
+	print "$arg ....\n";
+	my ($name, $value) = split(/[=]+/, $arg);
+	if ($name =~ /(with-gl)/i) {
+	    if ($value =~ /no/i) {
+		$DEF_FLAGS{'GL'} = 0;
+		$DEF_FLAGS{'GL_DAMAGE'} = 0;
+	    }
+	}
+	elsif ($name =~ /(with-atc)/i) {
+	    if ($value =~ /no/i) {
+		$DEF_FLAGS{'ATC'} = 0;
+	    }
+	}
+	elsif ($name =~ /(with-shape)/i) {
+	    if ($value =~ /no/i) {
+		$DEF_FLAGS{'SHAPE'} = 0;
+	    }
+	}
+    }
+    
+    my $defines = '-DPTK';
+
+    if ($WIN) {
+	#
+	# No shape extension on Windows (planned later).
+	$DEF_FLAGS{'SHAPE'} = 0;
+	#
+	# Visual C++ does not define __STDC__ by default
+	$defines .= ' -D__STDC__';
+    }
+
+    print "Configuring with:\n    ";
+    foreach my $flag (keys %DEF_FLAGS) {
+	print "$flag=", $DEF_FLAGS{$flag} ? 'ok' : 'no', " ";
+	if ($DEF_FLAGS{$flag}) {	    
+	    $defines = $defines . " " . "-D$flag";
+	    if ($flag eq 'ATC') {
+		push @C, @ATC_C
+	    }
+	}
+    }
+    if ($Tk::VERSION =~ /^800/) {
+      $defines .= " -DPTK_800";
+      print "PTK=800";
+    } else {
+      print "PTK=804";
+    }
+    print "\n";
+    return $defines;
+}
+
+#
+# For the demo
+#
+# perl -Mblib demos/zinc-demos
+
-- 
cgit v1.1