diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/Makefile.PL | 117 |
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; +} + |