Added function gedcom_check_version.

diff --git a/gedcom/multilex.c b/gedcom/multilex.c
index 5b0aa4eec262861c492e5745115b7bbcd957ddb2..75563117c55f8f51f6bbd151491f5e31a40cf1af 100644 (file)
--- a/gedcom/multilex.c
+++ b/gedcom/multilex.c
@@ -215,3 +215,19 @@ int gedcom_new_model()
   }
   return result;
 }
+
+int gedcom_check_version(int major, int minor, int patch)
+{
+  if (major < GEDCOM_PARSE_VERSION_MAJOR)
+    return 1;
+  else if (major > GEDCOM_PARSE_VERSION_MAJOR)
+    return 0;
+  else if (minor < GEDCOM_PARSE_VERSION_MINOR)
+    return 1;
+  else if (minor > GEDCOM_PARSE_VERSION_MINOR)
+    return 0;
+  else if (patch <= GEDCOM_PARSE_VERSION_PATCH)
+    return 1;
+  else {
+    return 0;
+}

diff --git a/include/gedcom.h.in b/include/gedcom.h.in
index 263f9fba4d34055f46943ab1b3088e571bb4769b..f9a6bd4ff793e90fa9f156aedaec85f1c70ced30 100644 (file)
--- a/include/gedcom.h.in
+++ b/include/gedcom.h.in
@@ -37,9 +37,12 @@ extern "C" {
 
 #define GEDCOM_PARSE_VERSION_MAJOR @VERSION_MAJOR@
 #define GEDCOM_PARSE_VERSION_MINOR @VERSION_MINOR@
+#define GEDCOM_PARSE_VERSION_PATCH 0
 #define GEDCOM_PARSE_VERSION \
   (GEDCOM_PARSE_VERSION_MAJOR * 1000 + GEDCOM_PARSE_VERSION_MINOR)
 
+int gedcom_check_version(int major, int minor, int patch);
+
 /**************************************************************************/
 /***  First the records and elements to subscribe upon                  ***/
 /**************************************************************************/