VMS: configure from trunk (almost)

    Also, read version from version.h instead of Configure.
    Previous code mistakenly included single quotes in config.h VERSION
    Manual install of two headers is still required, as they
    depend on gperf which we don't have a VMS port for.

Signed-off-by: Matt McNabb <matthew.mcnabb@vmssoftware.com>

Author: mmcnabb-vms

vms/README.vms

@@ -29,10 +29,14 @@ run the configuration script like so:
 
     $ @[.vms]configure
 
+or if you are building from a github checkout (as opposed to a release tarball)
+
+    $ @[.vms]configure_trunk
+
 This creates a descrip.mms in the top-level source directory which you may
 execute by simply running MMK (a freeware MMS alternative available from
 https://github.com/endlesssoftware/mmk).  You may change some default behaviors
-by sypplying one or more of the following macros to the make utility:
+by supplying one or more of the following macros to the make utility:
 
 TDSVER
 

vms/configure.com

@@ -24,12 +24,19 @@ $! from Perl's configure.com, largely the work of Peter Prymmer.
 $!
 $ SAY := "write sys$output"
 $!
-$ SEARCH/KEY=(POS:2,SIZE:8) SYS$DISK:[]Configure. "VERSION="/EXACT/OUTPUT=version.tmp
+$! Extract the version string from version.h
+$ SEARCH [.include.freetds]version.h "#define TDS_VERSION_NO"/EXACT/OUTPUT=version.tmp
 $ open/read version version.tmp
 $ read version versionline
 $ close version
 $ delete/noconfirm/nolog version.tmp;*
-$ versionstring = f$element(1, "=", f$edit(versionline, "COLLAPSE"))
+$ quote = """"
+$ vers1 = f$element(1, quote, versionline)
+$! Expect "FreeTDS v1.6.dev" etc. - want to put the 1.6.dev bit into config.h
+$ offset = f$locate("v", vers1)
+$ versionstring = f$extract(offset+1, 99, vers1)
+$ write sys$output "Version: ''versionstring'"
+$ if versionstring .EQS. "" THEN EXIT 44
 $ gosub check_crtl
 $!
 $! The system-supplied iconv() is fine, but unless the internationalization
@@ -212,7 +219,9 @@ $ @vmsconfigtmp.com
 $ delete/noconfirm/nolog vmsconfigtmp.com;
 $!
 $ Say ""
-$ Say "Configuration complete; run MMK or MMS to build."
+$ Say "Configuration complete; run MMK to build."
+$ Say "Sample build command: mmk/MACRO=(""MSDBLIB""=1,""ODBC""=1,""ODBC_MARS""=1,""ODBC_WIDE""=1)"
+$ Say "  append 'check' to run tests"
 $ EXIT
 $!
 $ CHECK_CRTL:

vms/configure_trunk.com

@@ -0,0 +1,27 @@
+$! Setup for build from github trunk.
+$! @configure.com depends on files present in release tarballs.
+$!
+$! Requires PERL;  Tested with VSI-packaged Perl 5.40-0
+$!
+$! This is intended to be run by @[.vms]configure_trunk, from project root
+$
+$! Read version number from configure.ac and apply to version.h and Configure
+$ perl [.vms]generate_version.pl
+$
+$ perl [.src.tds]tds_willconvert.pl include/freetds/proto.h >[.src.tds]tds_willconvert.h
+$ perl [.src.tds]num_limits.pl >[.src.tds]num_limits.h
+$ perl [.src.tds]types.pl misc/types.csv include/freetds/proto.h >[.src.tds]tds_types.h
+$ perl [.src.replacements]iconv_charsets.pl >[.src.replacements]iconv_charsets.h
+$ perl [.src.odbc]odbc_export.pl [.src.odbc]odbc.c >[.src.odbc]odbc_export.h
+$ perl [.src.odbc]odbc_export.pl [.src.odbc]error.c >[.src.odbc]error_export.h
+$
+$! encodings.h and charset_lookup.h are generated by PERL with GPerf
+$! There's no current port of this at the moment
+$! perl [.include.freetds]encodings.pl [.include.freetds] gperf >encodings.h
+$ if F$SEARCH("[.include.freetds]encodings.h") .EQS. ""
+$ THEN
+$    write sys$output "Please obtain include/freetds/encodings.h and include/freetds/charset_lookup.h from a FreeTDS nightly tarball"
+$    EXIT 44
+$ endif
+$
+$ @[.vms]configure

vms/generate_version.pl

@@ -0,0 +1,68 @@
+
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $input_file     = 'configure.ac';
+my $version_in     = 'include/freetds/version.h.in';
+my $version_out    = 'include/freetds/version.h';
+
+# Extract version from AC_INIT in configure.ac
+open my $in, '<', $input_file or die "Cannot open $input_file: $!";
+my $version;
+while (<$in>) {
+    if (/AC_INIT\s*\(\s*FreeTDS\s*,\s*([^\)]+)\)/) {
+        $version = $1;
+        last;
+    }
+}
+close $in;
+die "AC_INIT line not found" unless defined $version;
+
+# Replace dev suffix with dev.CURRENTDATE
+my @t = localtime();
+my $build_number = sprintf("%04d%02d%02d", $t[5]+1900, $t[4]+1, $t[3]);
+$version =~ s/\.dev\..*/.dev.$build_number/;
+my $output_version = $version;
+
+# Prepare values for usages that require numbers only
+# For this purpose, translate 1.6.dev to 1.5.9999
+# Currently this appears only to be the ODBC driver version report,
+# which expects subversion to have a maximum of 4 digits.
+my $ver = $version;
+$ver =~ s/dev.*$/9999/;      # Replace dev with 9999
+$ver =~ s/rc\d*/9999/i;      # Replace rc with 9999
+my ($major, $minor, $subversion) = split(/\./, $ver);
+$major      //= 0;
+$minor      //= 0;
+$subversion //= 0;
+
+if ($subversion !~ /^\d{1,4}$/) {
+    die "Invalid SUBVERSION format: $subversion";
+}
+
+if ($subversion eq '9999') {
+    $minor = $minor - 1;
+}
+
+# Substitute tokens in version.h.in
+open my $vin, '<', $version_in or die "Cannot open $version_in: $!";
+my @lines = <$vin>;
+close $vin;
+
+foreach my $line (@lines) {
+    $line =~ s/\@PACKAGE\@/FreeTDS/g;
+    $line =~ s/\@VERSION\@/$output_version/g;
+    $line =~ s/\@MAJOR\@/$major/g;
+    $line =~ s/\@MINOR\@/$minor/g;
+    $line =~ s/\@SUBVERSION\@/$subversion/g;
+    $line =~ s/\@BUILD_NUMBER\@/$build_number/g;
+}
+
+open my $vout, '>', $version_out or die "Cannot write $version_out: $!";
+print $vout @lines;
+close $vout;
+
+print "Generated $version_out successfully.\n";
+print "VERSION=$output_version MAJOR=$major MINOR=$minor SUBVERSION=$subversion BUILD_NUMBER=$build_number\n";
+