sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-06-23 13:40:34 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
ports/databases/p5-DBD-InterBase/files/patch-Makefile.PL
Ying-Chieh Liao 897b3979a4 add p5-DBD-InterBase 
DBI driver for InterBase RDBMS server

PR:		31283
Submitted by:	Sergey Skvortsov <skv@protey.ru>
2001-10-18 18:52:15 +00:00

427 lines
12 KiB
Perl
Raw Blame History

--- Makefile.PL.orig Fri Jul 13 12:48:14 2001
+++ Makefile.PL Mon Oct 15 14:37:54 2001
@@ -30,51 +30,11 @@
my $ib_dir_prefix;
# init stuff
-my $IB_Bin_path = '';
-my $isql_name;
-my @ib_bin_dirs;
-my @ib_inc_dirs;
-my $ib_lib_dir = '';
-
-################################################################################
-# OS specific configuration
-################################################################################
-if ($Config::Config{osname} eq 'MSWin32')
-{
- $isql_name = 'isql.exe';
-
- # try to find InterBase installation via the registry
- my $ib_bin_dir = '';
- my $ib_inc_dir = '';
- eval
- {
- require Win32::TieRegistry;
- Win32::TieRegistry->import('$Registry');
- $Registry->Delimiter("/");
-
- my $sw = $Registry->{"LMachine/Software/"};
-
- # We have to check more than one keys, because different
- # releases of InterBase have used different key hierarchies.
- my $key = $sw->{"InterBase Corp/InterBase/CurrentVersion/"} ||
- $sw->{"Borland/InterBase/CurrentVersion/"};
-
- if (defined($key))
- {
- $ib_bin_dir = $key->{"/ServerDirectory"};
- $ib_inc_dir = $key->{"/RootDirectory"} . "SDK\\include";
- $ib_lib_dir = $key->{"/RootDirectory"} . "SDK\\";
- }
- };
- @ib_bin_dirs = ($ib_bin_dir);
- @ib_inc_dirs = ($ib_inc_dir);
-}
-else
-{
- $isql_name = 'isql';
- @ib_bin_dirs = (qw(/usr/interbase/bin /opt/interbase/bin /usr/bin /usr/local/bin));
- @ib_inc_dirs = (qw(/usr/interbase/include /opt/interbase/include /usr/include));
-}
+my $IB_BASE='%%IB_BASE%%';
+my $IB_Bin_path = $IB_BASE.'/bin';
+my $isql_name = 'isql';
+my $ib_lib_dir = $IB_BASE.'/lib';
+my $ib_inc = $IB_BASE.'/include';
################################################################################
# sub test_files - checks if at least one of the files in the list exists
@@ -92,171 +52,12 @@
}
################################################################################
-# sub dir_choice - promts for a directory
-# Paramters:
-# 0: prompt string
-# 1: reference to direcotry list
-# 2: reference to file list
-# Return value: directory name
-################################################################################
-sub dir_choice
-{
- my($prompt, $dirs, $files) = @_;
- my %dirs = ('a' => 'other');
- my $i;
- my $ret;
-
- test_files($_, $files) && ($dirs{++$i} = $_) for @$dirs;
- while()
- {
- print "\n$prompt\n\n";
- print "$_) $dirs{$_}\n" for sort keys %dirs;
-
- my $choice = prompt("Your choice:");
- next unless $dirs{$choice};
-
- $ret = ($choice eq 'a') ? prompt("Directory:", $ret) : $dirs{$choice};
- return $ret if test_files($ret, $files);
- print "\nDirectory is bad\n";
- }
-}
-
-################################################################################
-# sub make_test_conf - configure for test (save to ./t/test.conf)
-# Parameters: <none>
-# Return value: <none>
-################################################################################
-sub make_test_conf
-{
- my $test_conf = './t/test.conf';
- my ($dsn, $user, $pass, $path);
-
- # read cached config if available
- if (-r $test_conf)
- {
- print "Reading cached test configuration...\n";
- open F, $test_conf or die "Can't open $test_conf: $!";
- local @ARGV = ($test_conf);
- ($dsn, $user, $pass) = map {chomp;$_} <>;
- ($path) = $dsn =~ /(?!db|database)=([^;]+);/;
- close F;
- }
-
- # ask for database path
- for (1..3)
- {
- $path = prompt("\nFull path to your test database:", $path);
- last if $path;
- }
-
- die "Must specify a test database" unless $path;
-
- #PFW - isql on windows doesn't seem to work without the localhost in the db path
- my $hostpath = $path;
- if ($path =~ /^localhost:(.+)/) {
- $hostpath = $1;
- }
- # if DB doesn't exist ask for creation
- unless (-f $hostpath)
- {
- print <<"EOM";
-Can't find $path
-Trying to create the test database..
-Please enter a username with CREATE DATABASE permission.
-EOM
-
- $user = prompt("Username:", $user);
- $pass = prompt("Password:", $pass);
- create_test_db($path, $user, $pass);
- }
- else
- {
- $user = prompt("Username:", $user);
- $pass = prompt("Password:", $pass);
- }
-
- # save test config to file
- open F, ">$test_conf" or die "Can't write $test_conf: $!";
- print F "dbi:InterBase:db=$path;ib_dialect=3\n$user\n$pass\n";
- close F;
-}
-
-################################################################################
-# sub create_test_db - Creates the test database
-# Parameters:
-# 0: path to testdatabase to be created
-# 1: username used to connect to the DB
-# 2: password
-# Return value: <none>
-################################################################################
-sub create_test_db
-{
- my ($path, $user, $pass) = @_;
-
- # create the SQL file with CREATE statement
- open(T, ">./t/create.sql") or die "Can't write to t/create.sql";
- while(<DATA>)
- {
- s/__TESTDB__/$path/;
- s/__USER__/$user/;
- s/__PASS__/$pass/;
- print T;
- }
- close T;
-
- # try to find isql
- my $isql;
- if (-x "$IB_Bin_path/$isql_name")
- { $isql = "$IB_Bin_path/$isql_name"; }
- else
- {
- for (split /:/, $ENV{PATH})
- {
- s#/+$##g;
- if (-x "$_/$isql_name")
- { $isql = "$_/$isql_name"; last; }
- }
- }
-
- EXEC:
- {
- for (1..3)
- {
- $isql = prompt("Enter full path to isql: ", $isql);
- last EXEC if (-x $isql);
- }
- die "Unable to execute isql. Aborting..";
- }
-
- #PFW - isql on windows doesn't seem to work without the localhost in the db path
- my $hostpath = $path;
- if ($path =~ /^localhost:(.+)/) {
- $hostpath = $1;
- }
- # if test db directory doesn't exist -> try to create
- my $dir = dirname $hostpath;
- unless (-d $dir)
- {
- print "Can't find $dir. Trying to mkdir..\n";
- system('mkdir', '-p', $dir) == 0
- or die "Can't mkdir -p $dir";
- }
-
- # try to execute isql and create the test database
- system($isql, '-i', './t/create.sql') == 0
- or die "Fail calling $isql -i t/create/sql: $?";
-}
-
-################################################################################
# MAIN
################################################################################
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
-# prompt for InterBase bin directory
-$IB_Bin_path = dir_choice("InterBase bin directory", [@ib_bin_dirs], [qw(gfix gfix.exe)]);
-
unless(-x $IB_Bin_path)
{
carp "I cannot find your InterBase installation.\nDBD::InterBase cannot build or run without InterBase.\n";
@@ -270,10 +71,6 @@
$IBVERSION =~ s/^gfix version //o;
my $is_final = $IBVERSION =~ /\.6\d+$/ ? 1 : 0;
-# prompt for IB include dir
-my $ib_inc = dir_choice("Interbase include directory", [@ib_inc_dirs], [qw(gds.h ibase.h)]);
-
-
# we use a hash for the MakeMaker parameters
my %MakeParams = (
'NAME' => 'DBD::InterBase',
@@ -283,183 +80,13 @@
'CCFLAGS' => '',
'INC' => "-I\"$ib_inc\" -I\"$dbi_arch_dir\"",
'OBJECT' => "InterBase.o dbdimp.o",
- 'LIBS' => [''],
+ 'LIBS' => "-L$ib_lib_dir -lgds",
'OPTIMIZE' => $Config::Config{'optimize'},
'XSPROTOARG' => '-noprototypes',
'dist' => {COMPRESS=>'gzip -9f', SUFFIX=>'gz'},
'realclean' => '*.xsi test.conf',
);
-# the OS specific build environment setup
-my $os = $Config::Config{'osname'};
-if ($os eq 'MSWin32')
-{
- # set up PPM package parameters
- $MakeParams{'AUTHOR'} = 'Edwin Pratomo (edpratomo@users.sourceforge.net';
- $MakeParams{'ABSTRACT'} = 'DBD::InterBase is a DBI driver for InterBase, written using InterBase C API.';
-
- my $vc_dir = '';
- if ($Config::Config{'cc'} eq "cl")
- {
- # try to find Microsoft Visual C++ compiler
- eval
- {
- require Win32::TieRegistry;
- Win32::TieRegistry->import('$Registry');
- $Registry->Delimiter("/");
-
- my $sw = $Registry->{"LMachine/Software/"};
-
-
-
- # We have to check more than one keys, because different
- # releases of Visual C++ have used different key hierarchies.
- my $key
- = $sw->{"Microsoft/VisualStudio/6.0/Setup/Microsoft Visual C++"} ||
- $sw->{"Microsoft/VisualStudio/7.0/Setup/VC"};
-
- if (defined($key))
- {
- $vc_dir = $key->{"/ProductDir"};
- }
- };
- my @vc_dirs = ($vc_dir . "/bin");
-
- my $VC_PATH = dir_choice("Visual C++ directory", [@vc_dirs], [qw(cl.exe)]);
-
- unless (-x $VC_PATH){
- carp "I can't find your MS VC++ installation.\nDBD::InterBase cannot build.\n";
- exit 1;
- }
-
- my $vc_inc = $VC_PATH . "/include";
- my $vc_lib = $VC_PATH . "/lib";
-
- $INC .= " -I\"$vc_inc\"";
-
- my $ib_lib = dir_choice("Interbase lib directory", [$ib_lib_dir . "lib_ms"],
- [qw(gds32_ms.lib)]);
-
- my $cur_libs = $Config::Config{'libs'} ;
- my $cur_lddlflags = $Config::Config{'lddlflags'} ;
-
- eval "
- sub MY::const_loadlibs {
- '
-LDLOADLIBS = \"$ib_lib/gds32_ms.lib\" \"$ib_lib/ib_util_ms.lib\" $cur_libs
-LDDLFLAGS = /LIBPATH:\"$vc_lib\" $cur_lddlflags
- '
- } ";
- }
- else
- {
- # Borland C++ 5.5
- my $bcc = $Config::Config{'bcc_path'} . "\\";
-
- my $BCC_PATH = dir_choice("Borland C++ directory",
- [qw(c:/borland/bcc55), $bcc],
- [qw(bin/bcc32.exe)]);
-
- unless(-x $BCC_PATH)
- {
- carp "I can't find your Borland C++ installation.\nDBD::InterBase cannot build.\n";
- exit 1;
- }
-
- my $bcc_inc = $BCC_PATH . "include";
- $MakeParams{'CCFLAGS'} = '-a4 -w- -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX';
- $MakeParams{'OPTIMIZE'} = "-O2";
- $MakeParams{'INC'} .= " -I\"$bcc_inc\"";
-
- eval "
- sub MY::const_loadlibs {
- '
-LDLOADLIBS = \$(LIBC) import32.lib gds32.lib cw32.lib
-LDDLFLAGS = -L\"$ib_lib_dir\\lib\" -L\"$BCC_PATH\\lib\"
- '
- }
- ";
- }
- # Will I need Cygwin rules too?
-}
-elsif ($os eq 'solaris')
-{
- $MakeParams{'LIBS'} = '-lgdsmt -lm -lc';
-}
-elsif ($os eq 'linux')
-{
- # This is for both:
- # o Free IB 4.0 for Red Hat Linux 4.2
- # o Commercial IB 5.1.1 for Red Hat Linux 5.1
- my $ib_lib = dir_choice("Interbase lib directory",
- [qw(/usr/interbase/lib /opt/interbase/lib /usr/lib /usr/local/lib)],
- [qw(libgds.a libgds.so)]);
-
- $MakeParams{'LIBS'} = "-L$ib_lib -lgds -ldl ";
-
- # o Commercial IB 5.1.1 for Red Hat Linux 6.x
- # requires a compatibilty library to resolve
- # symbols such as _xstat that were removed
- # from glibc 2.1. IB 5.6 and later don't need
- # this, but it doesn't hurt to list the library.
- if (-f ('/lib/libNoVersion-2.1.2.so'))
- {
- $MakeParams{'LIBS'} .= ' -lNoVersion-2.1.2'
- }
-}
-elsif ($os eq 'freebsd')
-{
- my $ib_lib = dir_choice("Interbase lib directory",
- [qw(/usr/interbase/lib /usr/lib)],
- [qw(libgds.a libgds.so)]);
- $MakeParams{'LIBS'} = "-L$ib_lib -lgds";
-}
-elsif ($os eq 'hpux')
-{
- $MakeParams{'LIBS'} = '-lgds -ldld';
-}
-elsif ($os eq 'sco')
-{
- # Uncomment this line if you use InterBase 4.0 for SCO OSR5:
- # $LIBS = '-b elf -B dynamic -lgds -lsocket -lcrypt_i';
-
- # Uncomment this line if you use InterBase 5.5 for SCO OSR5:
- $MakeParams{'LIBS'} = '-lgds -lsocket -lcrypt_i -lc -lm';
-}
-elsif ($os eq 'sunos')
-{
- $MakeParams{'LIBS'} = '-lgdslib -ldl';
-}
-elsif ($os eq 'irix')
-{
- $MakeParams{'LIBS'} = '-lgds -lsun';
-}
-elsif ($os eq 'aix')
-{
- $MakeParams{'LIBS'} = '-lgdsshr';
-}
-elsif ($os eq 'dgux')
-{
- $MakeParams{'LIBS'} = '-lgds -lgdsf -ldl -ldgc';
-}
-elsif ($os eq 'osf1')
-{
- $MakeParams{'LIBS'} = '-lgds';
-}
-elsif ($os eq 'sysv')
-{
- $MakeParams{'LIBS'} = '-lgds -lnsl -lsocket -ldl';
-}
-else
-{
- carp "DBD::InterBase is not supported on platform $os.\n";
- exit 1;
-}
-
-# create the test config file
-make_test_conf();
-
-# and last but not least write the makefile
WriteMakefile(%MakeParams);
package MY;
Reference in a new issue View git blame Copy permalink