Import DBD-ODBC 0.28

perl5-dbi · Feb 19, 2004 · 02429bd · 02429bd
1 parent 408df83
commit 02429bd
Show file tree

Hide file tree

Showing 26 changed files with 5,076 additions and 0 deletions.
diff --git a/MANIFEST b/MANIFEST
@@ -0,0 +1,27 @@
+MANIFEST
+MANIFEST.SKIP
+Makefile.PL
+README
+README.adabas
+README.cygwin
+ODBC.h
+ODBC.pm
+ODBC.xs
+dbdimp.c
+dbdimp.h
+fixup_c.h
+fixup_t.h
+t/01base.t
+t/02simple.t
+t/03dbatt.t
+t/05meth.t
+t/09bind.t
+t/ODBCTEST.pm
+mytest/listtabs.pl
+mytest/testfunc.pl
+mytest/contest.pl
+mytest/moreresults.pl
+mytest/testdatasources.pl
+iodbcsrc/libiodbc-2.50.3.tar.gz
+iodbcsrc/readme.txt
+
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
@@ -0,0 +1,11 @@
+\bRCS\b
+^MANIFEST\.
+^Makefile$
+~$
+\.html$
+\.old$
+^blib/
+^DBD-\d
+^tags$
+\.rej$
+\.orig$
diff --git a/Makefile.PL b/Makefile.PL
@@ -0,0 +1,329 @@
+#!/usr/local/bin/perl -sw
+#
+# $Id: Makefile.PL,v 1.11 1998/08/14 18:28:20 timbo Exp $
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+#
+BEGIN { require 5.004 }	# 5.004 is required for Win32
+use Config;
+use ExtUtils::MakeMaker 5.16, qw(&WriteMakefile $Verbose);
+use File::Basename;
+use Getopt::Long;
+
+use DBI 0.93;		# must be installed first
+use DBI::DBD;
+use strict;
+
+my %opts = 
+(
+    NAME	=> 'DBD::ODBC',
+    VERSION_FROM => 'ODBC.pm',
+    clean	=> { FILES=> 'ODBC.xsi dbdodbc.h' },
+    dist	=> {
+	#DIST_DEFAULT=> 'clean distcheck disttest ci tardist',
+	DIST_DEFAULT=> 'clean distcheck ci tardist',
+	PREOP    => '$(MAKE) -f Makefile.old distdir',
+	COMPRESS => 'gzip -v9', SUFFIX => 'gz'
+    },
+    OBJECT	=> '$(O_FILES)',
+);
+if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
+    $opts{AUTHOR} = 'Tim Bunce and Jeff Urlwin ( http://www.isc.org/dbi-lists.html )';
+    $opts{ABSTRACT} = 'ODBC driver for the DBI module.';
+    $opts{PREREQ_PM} = { DBI => 0 };
+    $opts{CAPI} = 'TRUE' if $Config{archname} =~ /-object\b/i;
+}
+
+$::opt_g = 0;
+$::opt_o = '';
+GetOptions(qw(g! o=s)) or die "Invalid arguments";
+
+$opts{OPTIMIZE} = '-g -O0' if $::opt_g;
+
+
+print "\nConfiguring DBD::ODBC ...\n
+>>>\tRemember to actually *READ* the README file!
+   \tAnd re-read it if you have any problems.\n
+";
+
+my $dbi_dir      = dbd_dbi_dir();
+my $dbi_arch_dir = dbd_dbi_arch_dir();
+
+open(SQLH, ">dbdodbc.h") || die "Can't open dbdodbc.h: $!\n";
+print SQLH "/* Do not edit this file. It is automatically written by Makefile.PL.\n";
+print SQLH "   Any changes made here will be lost. \n*/\n\n";
+print SQLH "#undef WORD /* from perly.y */\n";
+
+if ($^O eq 'MSWin32') {
+    my $extrainc = "";
+    $extrainc = ";$Config{incpath}\\mfc" if $Config{cc} eq 'bcc32';
+    $opts{SKIP} = ['processPL'];
+    $opts{DEFINE}  = "";
+    $opts{INC}  = "-I$dbi_arch_dir" . $extrainc;
+    $opts{LIBS} = ["ODBC32.LIB"];
+    $opts{macro}->{EXTRALIB} = 'ODBC32.LIB';
+    print SQLH "#include <windows.h>\n";
+    print SQLH "#include <sql.h> \n#include <sqlext.h>\n";
+}
+else {
+
+    # for Adabas
+    $ENV{ODBCHOME} = $ENV{DBROOT} if $ENV{DBROOT} && -f "$ENV{DBROOT}/lib/odbclib.a";
+
+    my $odbchome= $::opt_o || $ENV{ODBCHOME};
+
+    # per patches from Teun Burgers
+    if (!$odbchome && $ENV{WINDIR} && $^O =~ /^cygwin/) {
+	my $tmp_odbchome = $ENV{WINDIR};
+	$tmp_odbchome =~ s/^([A-Za-z]):*$/\/\/$1/;
+	$tmp_odbchome =~ s/\\/\//g;
+	$odbchome = $tmp_odbchome if (-e "$tmp_odbchome/odbc.ini")
+    }
+
+    unless ($odbchome) {
+	print "\n";
+	print "The DBD::ODBC module needs to link with an ODBC 'Driver Manager'.\n";
+	print "(The Driver Manager, in turn, needs one or more database specific ODBC drivers.\n";
+	print "The DBD::ODBC module does _not_ include any ODBC drivers!)\n\n";
+	print "You need to indicate where your ODBC Driver Manager is installed.\n";
+	print "You can do this ether by setting the ODBCHOME environment variable\n";
+	print "or by runing 'perl Makefile.PL -o odbcdir'.\n\n";
+	print "If you do not have an ODBC Driver Manager you can try building\n";
+	print "the free iODBC Driver Manager in the iodbcsrc directory.\n\n";
+	die "Makefile.PL aborted.\n";
+    }
+    die "ODBCHOME environment variable ($odbchome) does not refer to a directory.\n"
+	unless -d $odbchome;
+    warn "Using ODBC in $odbchome\n";
+    $opts{INC}  = "-I. -I$dbi_arch_dir";
+
+    # Try to work out which driver manager is being used.
+    # Feel free to come up with neat (or un-neat) hacks to get your's to build!
+
+    my $lib_d1 = "$odbchome/lib";
+    my $lib_d2 = "$odbchome/dlls";
+    my $libs   = "odbc";
+    $opts{LIBS} = " -L$lib_d1 -R$lib_d1 -L$lib_d2 -R$lib_d2 -l$libs";
+
+    my $myodbc ='';	# edit and hack to suit!
+
+    $myodbc = 'MicroSoft ODBC'
+                 if (    -e "$odbchome/system/odbc32.dll" or
+			 -e "$odbchome/system32/odbc32.dll" or
+                         -e "$odbchome/odbc32.dll");
+    # per patches from Nick Gorham
+    $myodbc = 'unixodbc'
+		if <$odbchome/lib/libodbc*>;
+
+    $myodbc = 'iodbc'
+		if (<$odbchome/*iodbc*> || <$odbchome/lib/*iodbc*>);
+
+    $myodbc = 'esodbc'
+		if <$odbchome/*esoobclient*>;
+
+    $myodbc = 'empress'
+		if <$odbchome/lib/libempodbc.*>;
+
+    $myodbc = 'intersolve'
+		if -f "$odbchome/include/qeodbc.h";
+
+    $myodbc = 'adabas'
+		if $ENV{DBROOT} && $odbchome eq $ENV{DBROOT} && -f "$odbchome/lib/odbclib.a";
+
+    $myodbc = 'udbc'
+    		if ($myodbc eq '' && <$odbchome/lib/libudbc.a>);
+
+    $myodbc = 'easysoft'
+	      if ($myodbc eq '' && -f "$odbchome/lib/libesoobclient.so");
+
+    $myodbc = 'solid'
+	      if ($myodbc eq '' && -f "$odbchome/lib/libsolcli.so");
+
+    warn "\nUmm, this looks like a $myodbc type of driver manager.\n";
+
+    if ($myodbc =~ /^MicroSoft ODBC/) {
+	print "\nBuilding for MicroSoft under CygWin32\n";
+	$opts{LIBS} = "-lodbc32 -lodbccp32";
+        print SQLH "#include <sql.h>\n";
+        print SQLH "#include <sqlext.h>\n";
+        $opts{dynamic_lib} = {OTHERLDFLAGS => "-lodbc32 -lodbccp32"};
+    }
+    if ($myodbc eq 'iodbc') {
+	my $ilibdir = "$odbchome/lib"; 
+	my @ilibs = <$ilibdir/*iodbc*.*>;
+	@ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
+	die "That's odd, I can't see any iodbc libs in $ilibdir" unless @ilibs;
+	# This is a hack using Intersolve's free Solaris ODBC manager
+	# Since it doesn't come with the sql header files (!) we get them from iODBC!
+	# Note: we use DEFINE not INC for iODBC so we don't get its config.h
+	print "\n";
+	print "We expect to find the isql.h, isqlext.h and iodbc.h files (which were\n";
+	print "supplied with iODBC) in \$ODBCHOME/include directory alongside\n";
+	print "the @ilibs library.\n\n";
+	my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+	my $ilibname = basename($ilibpath);
+	$opts{DEFINE} = "-I$odbchome/include";
+	if ($ilibname =~ /^iodbc/) { # no "lib" prefix
+	    $opts{LIBS} = "";
+	    $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+	}
+	else {
+	    # remove lib prefix and .so suffix so "-l" style link can be used
+	    $ilibname =~ s/^lib(iodbc.*?)\.\w+$/$1/;
+	    $opts{LIBS} = "-L$ilibdir -l$ilibname";
+
+	    # changed /\Q$ilibpath/ to /\Q$ilibdir/ per recommendation
+	    # by Ron Savage
+	    warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome/lib\n"
+		unless $ENV{LD_LIBRARY_PATH} =~ /\Q$ilibdir/;
+	}
+	#print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
+	#print SQLH qq{#include <iodbc.h>\n};
+	print SQLH qq{#include <isqlext.h>\n};
+	print SQLH qq{#include <sql.h>\n};
+	#print SQLH qq{#include "fixup_t.h"\n};
+    }
+    elsif ($myodbc eq 'unixodbc') {
+	my @ilibs = <$odbchome/lib/*odbc*.*>;
+	@ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
+	die "That's odd, I can't see any unixodbc libs in $odbchome" unless @ilibs;
+	print "We expect to find the sql.h, sqlext.h and (which were\n";
+	print "supplied with unixODBC) in \$ODBCHOME/include directory alongside\n";
+	print "the @ilibs library. in \$ODBCHOME/lib\n\n";
+	my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+	my $ilibname = basename($ilibpath);
+	$opts{DEFINE} = "-I$odbchome/include";
+	if ($ilibname =~ /^odbc/) { # no "lib" prefix
+	    $opts{LIBS} = "";
+	    $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+	}
+	else {
+	    # remove lib prefix and .so suffix so "-l" style link can be used
+	    $ilibname =~ s/^lib(odbc.*?)\.\w+$/$1/;
+	    $opts{LIBS} = "-L$odbchome/lib -l$ilibname";
+	    warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
+		unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome\/lib/;
+	}
+	print SQLH qq{#include <sql.h>\n};
+	print SQLH qq{#include <sqlext.h>\n};
+    }
+    elsif ($myodbc eq 'esodbc') {
+	my @ilibs = <$odbchome/*esoobclient.*>;
+	print "Located library @ilibs\n";
+	@ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
+	die "That's odd, I can't see any esoobclient libs in $odbchome" unless @ilibs;
+	print "We expect to find the sql.h and sqlext.h files (which were\n";
+	print "supplied with esoobclient) in \$ODBCHOME\include directory alongside\n";
+	print "the @ilibs library.\n\n";
+	my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+	my $ilibname = basename($ilibpath);
+	print "Using library $ilibname\n";
+	$opts{DEFINE} = "-I$odbchome/include";
+	if ($ilibname =~ /^esoobclient/) { # no "lib" prefix
+	    $opts{LIBS} = "";
+	    $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+	}
+	else {
+	    # remove lib prefix and .so suffix so "-l" style link can be used
+	    $ilibname =~ s/^lib(esoobclient.*?)\.\w+$/$1/;
+	    $opts{LIBS} = "-L$odbchome -l$ilibname";
+	    warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
+		unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome/;
+	}
+	print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
+	print SQLH qq{#include <sqlext.h>\n};
+	print SQLH qq{#include <sql.h>\n};
+    }    
+    elsif ($myodbc eq 'intersolve') {
+	$opts{DEFINE}  = "";
+  	print SQLH qq{#include <qeodbc.h>\n};
+	if (-f "$odbchome/include/sql.h") {
+	    print "You seem to have the official header files.\n";
+	    $opts{INC} .= " -I$odbchome/include";
+	    print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
+	}
+	else {
+	    # This is common on Solaris
+	    print "You don't seem to have the official header files,\n";
+	    print "so I'll use the iODBC ones instead.\n";
+	    $opts{INC} .= " -I$odbchome/include -Iiodbcsrc";
+	    print SQLH qq{#include <isql.h> \n#include <isqlext.h>\n};
+	}
+    }
+    elsif ($myodbc eq 'empress') {
+	$opts{INC} .= " -I$odbchome/include";
+	$opts{DEFINE}  = "";
+	print SQLH qq{#include <odbcsys.h>\n};
+	print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
+	$opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -lempodbc";
+    }
+    elsif ($myodbc eq 'adabas') {
+	print SQLH "#define FAR \n#define EXPORT \n#define CALLBACK \n";
+	print SQLH "#include <WINDOWS.H>\n";
+	print SQLH "#include <sql.h>\n";
+	print SQLH "#include <sqlext.h>\n";
+	$opts{INC} .= " -I$odbchome/incl";
+	$opts{LIBS} = "-L$odbchome/lib -lsqlrte -lsqlptc";
+	$opts{LDFROM} = "\$(OBJECT) $odbchome/lib/odbclib.a";
+    }
+    elsif ($myodbc eq 'udbc') {
+        print SQLH qq{#include <libudbc.h>\n};
+        $opts{INC} .= " -I$odbchome/include";
+        $opts{DEFINE}  = "";
+        $opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -ludbc";
+    }
+    elsif ($myodbc eq 'easysoft') {
+        $opts{INC} .= " -I$odbchome/include";
+        $opts{LIBS} = "-L$odbchome/lib -lesoobclient";
+        print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
+    }
+    elsif ($myodbc eq 'solid') {
+        $opts{INC} .= " -I$odbchome/include";
+        $opts{LIBS} = "-L$odbchome/lib -lsolcli";
+	# Solid does not support DataSources
+	print SQLH qq{#define DBD_ODBC_NO_DATASOURCES\n};
+	# Solid does not support DataSources
+	print SQLH qq{#define DBD_ODBC_NO_SQLDRIVERCONNECT\n};
+        print SQLH qq{#include <cli0cli.h>\n};
+    }
+    else {
+	print "\n*** WARNING ***\a\n";
+	print "Unknown driver manager. Using default build process.\n";
+	print "This will almost certainly fail at some point.\n";
+	print "In which case you will need to edit/hack the Makefile.PL\n";
+	print "to suit your needs. (Specifically to locate your odbc\n";
+	print "library and header files.)\n\n";
+	$opts{DEFINE}  = "";
+	print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
+    }
+}
+print SQLH qq{\n};
+print SQLH qq{#include "fixup_c.h"\n};
+print SQLH qq{\n};
+close(SQLH);
+
+print "\n";
+WriteMakefile(%opts);
+
+local($^W)=0;
+print qq{
+The DBD::ODBC tests will use these values for the database connection:
+    DBI_DSN=$ENV{DBI_DSN}		e.g. dbi:ODBC:demo
+    DBI_USER=$ENV{DBI_USER}
+    DBI_PASS=$ENV{DBI_PASS}
+};
+print "Warning: not all required environment variables are set.\n"
+	unless ($ENV{DBI_DSN} && $ENV{DBI_USER} && $ENV{DBI_PASS});
+print "Warning: DBI_DSN ($ENV{DBI_DSN}) doesn't start with 'dbi:ODBC:'\n"
+	if ($ENV{DBI_DSN} && $ENV{DBI_DSN} !~ m/^dbi:ODBC:/);
+print "\n";
+
+
+sub MY::postamble {
+    return dbd_postamble(@_);
+}
+
+__END__
+
+