mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-09 07:08:07 -04:00
09f58b864d
- Dropping support for uncode before 5.8.5 to simplify support and
to prevent people hurting themselves on platforms that don't
properly support Unicode anyway (ADAMK)
267 lines
7.1 KiB
Perl
267 lines
7.1 KiB
Perl
# From ExtUtils::MakeMaker 6.48 and DBI 1.43
|
|
use 5.006;
|
|
use strict;
|
|
use ExtUtils::MakeMaker;
|
|
use Config;
|
|
|
|
# Some dependencies need to be more aggressive on Windows
|
|
sub WINLIKE () {
|
|
return 1 if $^O eq 'MSWin32';
|
|
return 1 if $^O eq 'cygwin';
|
|
return '';
|
|
}
|
|
|
|
# Make setting optional MakeMaker parameters more readable
|
|
sub OPTIONAL {
|
|
return () unless $ExtUtils::MakeMaker::VERSION ge shift;
|
|
return @_;
|
|
}
|
|
|
|
# Are we upgrading from a critically out of date version?
|
|
eval {
|
|
require DBD::SQLite;
|
|
if ( $DBD::SQLite::VERSION < 1.0 ) {
|
|
print <<EOT;
|
|
|
|
**** WARNING **** WARNING **** WARNING **** WARNING **** WARNING ****
|
|
|
|
Your version of DBD::SQLite currently installed ($DBD::SQLite::VERSION) uses
|
|
the old sqlite database format. This version of DBD::SQLite will *NOT*
|
|
open these files, and installing this module may cause problems on your
|
|
system. If this is a live environment you should upgrade with caution.
|
|
|
|
To upgrade a database, download and install both sqlite 2.x and 3.x from
|
|
http://www.sqlite.org/ and issue:
|
|
|
|
sqlite OLD.DB .dump | sqlite3 NEW.DB
|
|
|
|
DBD::SQLite will NOT automatically upgrade a database for you, and using
|
|
this version against an old SQLite database WILL lead to database
|
|
corruption.
|
|
|
|
EOT
|
|
if ( prompt("Continue?", "N") !~ /^y/i ) {
|
|
print "Exiting\n";
|
|
exit(-1);
|
|
}
|
|
}
|
|
};
|
|
|
|
# Because DBI generates a postamble at configure-time, we need
|
|
# the required version of DBI very early.
|
|
my $DBI_required = 1.57;
|
|
eval {
|
|
require DBI;
|
|
};
|
|
if ( $@ or DBI->VERSION < $DBI_required ) {
|
|
print "DBI 1.57 is required to configure this module, please install it or upgrade your CPAN/CPANPLUS shell\n";
|
|
exit(0);
|
|
}
|
|
|
|
# 2005/6/19, by rjray@blackperl.com
|
|
#
|
|
# Determine if we are going to use the provided SQLite code, or an already-
|
|
# installed copy. To this end, look for two command-line parameters:
|
|
#
|
|
# USE_LOCAL_SQLITE -- If non-false, force use of the installed version
|
|
# SQLITE_LOCATION -- If passed, look for headers and libs under this root
|
|
#
|
|
# In absense of either of those, expect SQLite 3.X.X libs and headers in the
|
|
# common places known to Perl or the C compiler.
|
|
|
|
# 2009/04/02
|
|
# But why do we need to use an older, system-installed library?
|
|
# Let's always use the bundled one. -- ISHIGAKI
|
|
# 2009/04/03
|
|
# For the moment, while we're fixing things, this is reasonable.
|
|
# However, logic in the form "I lack knowledge, thereforce lets do
|
|
# it this way" is not a sufficiently robust decision making process.
|
|
# Let's find out the full story first, so we can make an informed
|
|
# decision to whether to do this. -- ADAMK
|
|
my ($force_local, $sqlite_base, $sqlite_lib, $sqlite_inc);
|
|
if ( 0 ) {
|
|
require File::Spec;
|
|
if ( $sqlite_base = (grep(/SQLITE_LOCATION=.*/, @ARGV))[0] ) {
|
|
$sqlite_base =~ /=(.*)/;
|
|
$sqlite_base = $1;
|
|
$sqlite_lib = File::Spec->catdir( $sqlite_base, 'lib' );
|
|
$sqlite_inc = File::Spec->catdir( $sqlite_base, 'include' );
|
|
}
|
|
if ( $force_local = (grep(/USE_LOCAL_SQLITE=.*/, @ARGV))[0] ) {
|
|
$force_local =~ /=(.*)/;
|
|
$force_local = "$1" ? 1 : 0;
|
|
if ( $force_local ) {
|
|
# Keep these from making into CFLAGS/LDFLAGS
|
|
undef $sqlite_lib;
|
|
undef $sqlite_inc;
|
|
}
|
|
}
|
|
|
|
# Now check for a compatible sqlite3
|
|
unless ( $force_local ) {
|
|
my ($dir, $file, $fh, $version);
|
|
print "Checking installed SQLite version...\n" if $ENV{AUTOMATED_TESTING};
|
|
if ( $sqlite_inc ) {
|
|
open($fh, '< ' , File::Spec->catfile($sqlite_inc, 'sqlite3.h'))
|
|
or die "Error opening sqlite3.h in $sqlite_inc: $!";
|
|
while ( defined($_ = <$fh>) ) {
|
|
if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
|
|
$version = $1;
|
|
last;
|
|
}
|
|
}
|
|
close($fh);
|
|
} else {
|
|
# Go hunting for the file (Matt: Add more dirs here as you see fit)
|
|
foreach $dir ( [ qw(usr include) ], [ qw(usr local include) ] ) {
|
|
$file = File::Spec->catfile('', @$dir, 'sqlite3.h');
|
|
next unless (-f $file);
|
|
open($fh, "<", $file) or die "Error opening $file: $!";
|
|
while ( defined($_ = <$fh>) ) {
|
|
if (/\#define\s+SQLITE_VERSION_NUMBER\s+(\d+)/) {
|
|
$version = $1;
|
|
last;
|
|
}
|
|
}
|
|
close($fh);
|
|
last if $version;
|
|
}
|
|
}
|
|
unless ( $version && ($version >= 3006000) ) {
|
|
warn "SQLite version must be at least 3.6.0. No header file at that\n";
|
|
warn "version or higher was found. Using the local version instead.\n";
|
|
$force_local = 1;
|
|
undef $sqlite_lib;
|
|
undef $sqlite_inc;
|
|
} else {
|
|
print "Looks good\n" if $ENV{AUTOMATED_TESTING};
|
|
}
|
|
}
|
|
}
|
|
|
|
# Use always the bundled one.
|
|
# XXX: ... and this message should be more informative.
|
|
$force_local = 1;
|
|
print "We're using the bundled sqlite library.\n" if $ENV{AUTOMATED_TESTING};
|
|
|
|
@ARGV = grep( ! /SQLITE_LOCATION|USE_LOCAL_SQLITE/, @ARGV );
|
|
|
|
|
|
|
|
|
|
|
|
#####################################################################
|
|
# Prepare Compiler Options
|
|
|
|
my @CC_LIBS = ();
|
|
if ( $sqlite_lib ) {
|
|
push @CC_LIBS, "-L$sqlite_lib";
|
|
}
|
|
unless ( $force_local ) {
|
|
push @CC_LIBS, '-lsqlite3';
|
|
}
|
|
|
|
my @CC_INC = (
|
|
'-I.',
|
|
'-I$(DBI_INSTARCH_DIR)',
|
|
);
|
|
if ( $sqlite_inc ) {
|
|
push @CC_INC, "-I$sqlite_inc";
|
|
}
|
|
|
|
my @CC_DEFINE = (
|
|
'-DSQLITE_CORE',
|
|
'-DSQLITE_ENABLE_FTS3',
|
|
'-DSQLITE_ENABLE_COLUMN_METADATA',
|
|
'-DNDEBUG=1',
|
|
"-DSQLITE_PTR_SZ=$Config{ptrsize}"
|
|
);
|
|
if ( $Config{d_usleep} || $Config{osname} =~ m/linux/ ) {
|
|
push @CC_DEFINE, '-DHAVE_USLEEP=1';
|
|
}
|
|
unless ( $Config{usethreads} ) {
|
|
push @CC_DEFINE, '-DTHREADSAFE=0';
|
|
}
|
|
|
|
my @CC_OPTIONS = (
|
|
INC => join( ' ', @CC_INC ),
|
|
DEFINE => join( ' ', @CC_DEFINE ),
|
|
( @CC_LIBS ? (
|
|
LIBS => join( ' ', @CC_LIBS )
|
|
) : () ),
|
|
);
|
|
|
|
|
|
|
|
|
|
|
|
#####################################################################
|
|
# Hand off to ExtUtils::MakeMaker
|
|
|
|
WriteMakefile(
|
|
NAME => 'DBD::SQLite',
|
|
ABSTRACT => 'Self Contained SQLite RDBMS in a DBI Driver',
|
|
VERSION_FROM => 'lib/DBD/SQLite.pm',
|
|
PREREQ_PM => {
|
|
'File::Spec' => (WINLIKE ? '3.27' : '0.82'),
|
|
'DBI' => $DBI_required,
|
|
'Test::More' => '0.42',
|
|
},
|
|
OPTIONAL( '6.48',
|
|
MIN_PERL_VERSION => '5.006',
|
|
),
|
|
OPTIONAL( '6.31',
|
|
LICENSE => 'perl',
|
|
),
|
|
OPTIONAL( '6.11',
|
|
AUTHOR => 'Adam Kennedy <adamk@cpan.org>', # Release manager (can this be an array?)
|
|
),
|
|
OPTIONAL( '6.46',
|
|
META_MERGE => {
|
|
configure_requires => {
|
|
'ExtUtils::MakeMaker' => '6.48',
|
|
'File::Spec' => '0.82', # This is not allowed to be computed
|
|
'DBI' => $DBI_required,
|
|
},
|
|
build_requires => {
|
|
'File::Spec' => (WINLIKE ? '3.27' : '0.82'),
|
|
'Test::More' => '0.42',
|
|
# 'Test::NoWarnings' => '0.081', # Bundled in /inc
|
|
},
|
|
resources => {
|
|
license => 'http://dev.perl.org/licenses/',
|
|
bugtracker => 'http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DBD-SQLite',
|
|
repository => 'http://svn.ali.as/cpan/trunk/DBD-SQLite',
|
|
MailingList => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbd-sqlite',
|
|
},
|
|
},
|
|
),
|
|
OBJECT => ( $force_local
|
|
? '$(O_FILES)'
|
|
: 'SQLite.o dbdimp.o'
|
|
),
|
|
OPTIMIZE => '-O2',
|
|
clean => {
|
|
FILES => 'SQLite.xsi config.h tv.log',
|
|
},
|
|
PL_FILES => {},
|
|
EXE_FILES => [],
|
|
|
|
@CC_OPTIONS,
|
|
);
|
|
|
|
package MY;
|
|
|
|
sub postamble {
|
|
require DBI;
|
|
require DBI::DBD;
|
|
eval {
|
|
DBI::DBD::dbd_postamble(@_)
|
|
};
|
|
}
|
|
|
|
sub libscan {
|
|
my ($self, $path) = @_;
|
|
return if $path =~ /\.pl$/;
|
|
($path =~ m/\~$/) ? undef : $path;
|
|
}
|