feat: check FLINT version at runtime

Add a runtime check that disallows FLINT versions earlier than 3.2.0.
Note that the version check is also performed during the configure step.
A runtime failure typically indicates that an incorrect shared library
was linked.

Author: tueda

sources/declare.h

@@ -1626,6 +1626,7 @@ extern WORD* flint_ratfun_add(PHEAD WORD *, WORD *);
 extern int   flint_ratfun_normalize(PHEAD WORD *);
 extern WORD* flint_rem(PHEAD WORD *, WORD *, const WORD);
 extern void  flint_startup_init(void);
+extern void  flint_check_version(void);
 #endif
 
 extern void optimize_print_code (int);

sources/flintwrap.cc

@@ -7,6 +7,7 @@ extern "C" {
 #include "form3.h"
 }
 
+#include <sstream>
 #include "flintinterface.h"
 
 
@@ -289,4 +290,38 @@ void flint_startup_init(void) {
 }
 /*
 	#] flint_startup_init :
+	#[ flint_check_version :
+*/
+
+/**
+ * Checks the FLINT library version at runtime.
+ *
+ * This function should be called at startup.
+ * The program will terminate if a known buggy version of FLINT is detected.
+ */
+void flint_check_version(void) {
+	bool ok = true;
+	std::stringstream ss(flint_version);
+	int major, minor, patch;
+	char dot1, dot2;
+	if ( ss >> major >> dot1 >> minor >> dot2 >> patch ) {
+		if ( dot1 != '.' || dot2 != '.' || major < 0 || minor < 0 || patch < 0 ) {
+			ok = false;
+		}
+		else if ( major * 10000 + minor * 100 + patch < 30200 ) {
+			// flint < 3.2.0: https://github.com/form-dev/form/issues/679
+			ok = false;
+		}
+	}
+	else {
+		ok = false;
+	}
+	if ( !ok ) {
+		MesPrint("Bad FLINT version detected at runtime: %s",flint_version);
+		Terminate(-2);
+	}
+}
+
+/*
+	#] flint_check_version :
 */

sources/startup.c

@@ -1739,6 +1739,9 @@ int main(int argc, char **argv)
 	Globalize(1);
 #ifdef WITH_ALARM
 	if ( AM.TimeLimit > 0 ) alarm(AM.TimeLimit);
+#endif
+#ifdef WITHFLINT
+	flint_check_version();
 #endif
 	TimeCPU(0);
 	TimeChildren(0);