simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-08 22:58:17 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: time to let getsqlite.pl fetch the amalgamated source

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-04-21 06:27:47 +00:00
parent c9f3ea08ab
commit f12011a5a0
1 changed files with 4 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
getsqlite.pl
View file

@ -12,22 +12,13 @@ if (getstore(
} }
print("done\n"); print("done\n");
rm_rf('sqlite'); rm_rf('sqlite') || rm_rf("sqlite-$version");
xsystem("tar zxvf sqlite.tar.gz"); xsystem("tar zxvf sqlite.tar.gz");
chdir("sqlite") || chdir("sqlite-$version") || die "SQLite directory not found"; chdir("sqlite") || chdir("sqlite-$version") || die "SQLite directory not found";
xsystem("sh configure --enable-utf8");
xsystem("make parse.c sqlite3.h opcodes.h opcodes.c");
eval { xsystem("make keywordhash.h") };
my %skip = map { $_ => 1 } map { chomp; $_ } <DATA>; xsystem("cp sqlite3.c ../");
warn("Skip: $_\n") for keys %skip; xsystem("cp sqlite3.h ../");
xsystem("cp sqlite3ext.h ../");
foreach (<*.[ch]>, `find src -name \\*.[ch]`) {
chomp;
next if $skip{$_};
next if /\btest.*\.c$/;
xsystem("cp $_ ../");
}
exit(0); exit(0);
@ -39,13 +30,3 @@ sub xsystem {
die "system(@_) failed: $?"; die "system(@_) failed: $?";
} }
} }
__DATA__
lempar.c
src/threadtest.c
src/tclsqlite.c
src/shell.c
src/lemon.c
src/md5.c
src/encode.c
src/experimental.c