stop editing header by hand, expose script I'm going to use for next versions

1 files changed, 41 insertions, 0 deletions

diff --git a/lib/libsqlite3/tsrc/header_regen b/lib/libsqlite3/tsrc/header_regen
new file mode 100644
index 00000000000..97663506067
--- /dev/null
+++ b/lib/libsqlite3/tsrc/header_regen
@@ -0,0 +1,41 @@
+#! /usr/bin/perl
+# Written by Marc Espie 2012, Public Domain
+use strict;
+use warnings;
+
+@ARGV == 3 or
+	die "Usage: $0 version src dest\n";
+
+my ($vfname, $src, $dest) = @ARGV;
+open(my $fh, '<', $vfname)
+	or die "Can't read $vfname: $!\n";
+my $version = <$fh>;
+chomp $version;
+my @l = split(/\./, $version);
+my $v2 = sprintf("%d%03d%03d", @l);
+
+open(my $in, '<', $src)
+	or die "Can't read $src: $!\n";
+open(my $out, '>', $dest)
+	or die "Can't write to $dest: $!\n";
+
+select($out);
+
+while (<$in>) {
+	s/\-\-VERS\-\-/$version/;
+	s/\-\-VERSION\-NUMBER\-\-/$v2/;
+	s/\-\-SOURCE\-ID\-\-/OpenBSD/;
+
+	if (m/^\#ifdef\s+SQLITE_INT64_TYPE/) {
+		while(<$in>) {
+			last if m/^\#endif/;
+		}
+		print "typedef int64_t sqlite_int64;\n";
+		print "typedef uint64_t sqlite_uint64;\n";
+	} else {
+		print $_;
+	}
+	if (m/^\#\s*include\s*\<stdarg\.h\>/) {
+		print "#include <stdint.h>\n";
+	}
+}