odbc: Check ODBC attribute list is sorted

Signed-off-by: Frediano Ziglio <freddy77@gmail.com>

Author: freddy77

include/freetds/Makefile.am

@@ -49,7 +49,7 @@ DISTCLEANFILES = sysconfdir.h \
 sysconfdir.h: Makefile
 	echo '#define FREETDS_SYSCONFDIR "$(sysconfdir)"' >$@
 
-all-am: sysconfdir.h
+all-am: sysconfdir.h odbc_attributes_sorted
 
 GENERATED_HEADER_FILES = encodings.h charset_lookup.h
 EXTRA_DIST = $(GENERATED_HEADER_FILES)
@@ -65,4 +65,11 @@ charset_lookup.h: encodings.h
 encodings.h: encodings.pl alternative_character_sets.h character_sets.h Makefile
 	perl $(srcdir)/encodings.pl $(srcdir) $(GPERF) > $@.tmp 2> /dev/null
 	mv $@.tmp $@
+
+odbc_attributes_sorted: odbc_attributes.pl odbc.h Makefile
+	perl $(srcdir)/odbc_attributes.pl $(srcdir)
+	touch $@
+else
+odbc_attributes_sorted: odbc.h Makefile
+	touch $@
 endif

include/freetds/odbc_attributes.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+## This file is in the public domain.
+use strict;
+use File::Basename;
+
+my $basename = basename($0);
+my $srcdir = "$ARGV[0]/";
+
+# check list of attributes is alphabetically sorted
+my $filename = "${srcdir}odbc.h";
+my $prev = '';
+open ODBC, $filename or die qq($basename: could not open "$filename"\n);
+while(<ODBC>){
+	next unless /^\sODBC_PARAM\((.*?)\)/;
+	my $attr = $1;
+	die "$attr following $prev" if lc($attr) le lc($prev);
+	$prev = $attr;
+}
+close ODBC;