aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/Makefile.PL117
1 files changed, 117 insertions, 0 deletions
diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL
new file mode 100644
index 0000000..ec615e6
--- /dev/null
+++ b/Perl/Makefile.PL
@@ -0,0 +1,117 @@
+use 5.008;
+use Tk;
+use Tk::Config;
+use ExtUtils::MakeMaker;
+use strict;
+
+my $TkLibDir = $Tk::library;
+my $platform = $Tk::platform;
+
+my $VERSION = CONF_VERS;
+
+
+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 = ('Track.c', 'Tabular.c', 'Reticle.c', 'Map.c', 'Rectangle.c', 'Arc.c', 'Curve.c',
+ 'Item.c', 'PostScript.c', 'MapInfo.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', 'Zinc.c');
+
+my @LIBTESS_C = ('dict.c', 'geom.c', 'memalloc.c', 'mesh.c', 'normal.c', 'priorityq.c',
+ 'render.c', 'sweep.c', 'tess.c', 'tessmono.c');
+
+my @OM_C = ('OverlapMan.c');
+
+my @WIN_C = ('WinPort.c');
+
+my @C;
+
+push @C, @LIBTESS_C, @GENERIC_C ;
+
+if ($platform =~ /win/i)
+{
+ push @C, @WIN_C;
+}
+
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+ 'AUTHOR' => 'Somanos Sar <sar@ath.cena.fr>',
+ 'NAME' => 'Tk::Zinc',
+ 'VERSION' => $VERSION,
+ 'PREREQ_PM' => {Tk => 8.0},
+ 'LIBS' => ['-L/usr/X11R6/lib -lXext -lX11 -lGL -lpthread -L.'],
+ 'DEFINE' => &get_flags,
+ 'INC' => "-I. -I$TkLibDir -I$TkLibDir/pTk",
+ 'C' => [@C],
+ 'XS_VERSION' => $Tk::Config::VERSION,
+ 'XS' => {'Zinc.sx' => 'Zinc.c'},
+ 'linkext' => {LINKTYPE => 'dynamic'},
+ 'depend' => {'Zinc.o' => '$(O_FILES) Zinc.o'},
+ 'LDFROM' => '$(O_FILES)',
+ );
+
+sub get_flags
+{
+ my %DEF_FLAGS = ('GL' => 1,
+ 'SHAPE' => 1,
+ 'GL_DAMAGE' => 1,
+ 'OM' => 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-om)/i)
+ {
+ if ($value =~ /no/i)
+ {
+ $DEF_FLAGS{'OM'} = 0;
+ }
+ }
+ elsif ($name =~ /(with-shape)/i)
+ {
+ if ($value =~ /no/i)
+ {
+ $DEF_FLAGS{'SHAPE'} = 0;
+ }
+ }
+ }
+
+ my $defines = '-DPTK';
+ print "Configuring with:\n ";
+ foreach my $flag (keys %DEF_FLAGS)
+ {
+ print "$flag=$DEF_FLAGS{$flag} ";
+ if ($DEF_FLAGS{$flag})
+ {
+ $defines = $defines . " " . "-D$flag";
+ if ($flag eq 'OM') {
+ push @C, @OM_C
+ }
+ }
+ }
+ print "\n";
+ return $defines;
+}
+