From 89e49bb157da949c30167212e0223e3b0002593a Mon Sep 17 00:00:00 2001
From: gitlost <burmartke@gmail.com>
Date: Wed, 17 Dec 2025 16:26:05 +0000
Subject: [PATCH] backend_tcl: enable "-gs1strict" for Unix

---
 backend_tcl/configure    |  4 ++--
 backend_tcl/configure.ac |  4 ++--
 backend_tcl/zint.c       | 21 +++++++++++++++++++--
 3 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/backend_tcl/configure b/backend_tcl/configure
index 910376ff..33dc86f1 100755
--- a/backend_tcl/configure
+++ b/backend_tcl/configure
@@ -5810,7 +5810,7 @@ printf "%s\n" "$ac_cv_c_bigendian" >&6; }
 
 
 
-    vars=""
+    vars="-lgs1encoders"
     for i in $vars; do
 	if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then
 	    # Convert foo.lib to -lfoo for GCC.  No-op if not *.lib
@@ -5821,7 +5821,7 @@ printf "%s\n" "$ac_cv_c_bigendian" >&6; }
 
 
 
-    PKG_CFLAGS="$PKG_CFLAGS -I../backend -DZINT_NO_PNG=1 -DZINT_VERSION=PACKAGE_VERSION"
+    PKG_CFLAGS="$PKG_CFLAGS -I../backend -DZINT_NO_PNG=1 -DZINT_HAVE_GS1SE=1 -DZINT_VERSION=PACKAGE_VERSION"
 
 
 
diff --git a/backend_tcl/configure.ac b/backend_tcl/configure.ac
index 0f4327bc..52f4ae8b 100644
--- a/backend_tcl/configure.ac
+++ b/backend_tcl/configure.ac
@@ -130,8 +130,8 @@ TEA_ADD_SOURCES([
 ])
 TEA_ADD_HEADERS([])
 TEA_ADD_INCLUDES([])
-TEA_ADD_LIBS()
-TEA_ADD_CFLAGS([-I../backend -DZINT_NO_PNG=1 -DZINT_VERSION=PACKAGE_VERSION])
+TEA_ADD_LIBS(-lgs1encoders)
+TEA_ADD_CFLAGS([-I../backend -DZINT_NO_PNG=1 -DZINT_HAVE_GS1SE=1 -DZINT_VERSION=PACKAGE_VERSION])
 TEA_ADD_STUB_SOURCES([])
 TEA_ADD_TCL_SOURCES([demo/demo.tcl])
 
diff --git a/backend_tcl/zint.c b/backend_tcl/zint.c
index fbf8d8cc..26cd1292 100644
--- a/backend_tcl/zint.c
+++ b/backend_tcl/zint.c
@@ -576,7 +576,9 @@ static const char help_message[] = "zint tcl(stub,obj) dll\n"
     /* cli option --gs1 replaced by -format */
     "   -gs1nocheck bool: for gs1, do not check validity of data (allows non-standard symbols)\n"
     "   -gs1parens bool: for gs1, AIs enclosed in parentheses instead of square brackets\n"
+#ifdef ZINT_HAVE_GS1SE
     "   -gs1strict bool: Use GS1 Syntax Engine to strictly validate GS1 data\n"
+#endif
     "   -gssep bool: for gs1, use gs as separator instead fnc1 (Datamatrix only)\n"
     "   -guarddescent double: Height of guard bar descent in modules (EAN/UPC only)\n"
     "   -guardwhitespace bool: add quiet zone indicators (EAN/UPC only)\n"
@@ -901,7 +903,11 @@ static int Encode(Tcl_Interp *interp, int objc,
             "-addongap", "-barcode", "-bg", "-bind", "-bindtop", "-bold", "-border", "-box",
             "-cols", "-compliantheight", "-dmiso144", "-dmre", "-dotsize", "-dotty",
             "-eci", "-esc", "-extraesc", "-fast", "-fg", "-format", "-fullmultibyte",
-            "-gs1nocheck", "-gs1parens", "-gs1strict", "-gssep", "-guarddescent",
+            "-gs1nocheck", "-gs1parens",
+#ifdef ZINT_HAVE_GS1SE
+            "-gs1strict",
+#endif
+            "-gssep", "-guarddescent",
             "-guardwhitespace", "-height", "-heightperrow", "-init", "-mask", "-mode",
             "-nobackground", "-noquietzones", "-notext", "-primary", "-quietzones",
             "-reverse", "-rotate", "-rows", "-scale", "-scalexdimdp", "-scmvv", "-secure",
@@ -913,7 +919,11 @@ static int Encode(Tcl_Interp *interp, int objc,
             iAddonGap, iBarcode, iBG, iBind, iBindTop, iBold, iBorder, iBox,
             iCols, iCompliantHeight, iDMISO144, iDMRE, iDotSize, iDotty,
             iECI, iEsc, iExtraEsc, iFast, iFG, iFormat, iFullMultiByte,
-            iGS1NoCheck, iGS1Parens, iGS1Strict, iGSSep, iGuardDescent,
+            iGS1NoCheck, iGS1Parens,
+#ifdef ZINT_HAVE_GS1SE
+            iGS1Strict,
+#endif
+            iGSSep, iGuardDescent,
             iGuardWhitespace, iHeight, iHeightPerRow, iInit, iMask, iMode,
             iNoBackground, iNoQuietZones, iNoText, iPrimary, iQuietZones,
             iReverse, iRotate, iRows, iScale, iScaleXdimDp, iSCMvv, iSecure,
@@ -949,7 +959,9 @@ static int Encode(Tcl_Interp *interp, int objc,
         case iFast:
         case iGS1NoCheck:
         case iGS1Parens:
+#ifdef ZINT_HAVE_GS1SE
         case iGS1Strict:
+#endif
         case iGSSep:
         case iGuardWhitespace:
         case iHeightPerRow:
@@ -1145,6 +1157,7 @@ static int Encode(Tcl_Interp *interp, int objc,
         case iGS1NoCheck:
             if (intValue) {
                 my_symbol->input_mode |= GS1NOCHECK_MODE;
+                my_symbol->input_mode = (my_symbol->input_mode & ~0x07) | GS1_MODE; /* Now sets GS1_MODE also */
             } else {
                 my_symbol->input_mode &= ~GS1NOCHECK_MODE;
             }
@@ -1152,17 +1165,21 @@ static int Encode(Tcl_Interp *interp, int objc,
         case iGS1Parens:
             if (intValue) {
                 my_symbol->input_mode |= GS1PARENS_MODE;
+                my_symbol->input_mode = (my_symbol->input_mode & ~0x07) | GS1_MODE; /* Now sets GS1_MODE also */
             } else {
                 my_symbol->input_mode &= ~GS1PARENS_MODE;
             }
             break;
+#ifdef ZINT_HAVE_GS1SE
         case iGS1Strict:
             if (intValue) {
                 my_symbol->input_mode |= GS1SYNTAXENGINE_MODE;
+                my_symbol->input_mode = (my_symbol->input_mode & ~0x07) | GS1_MODE; /* Now sets GS1_MODE also */
             } else {
                 my_symbol->input_mode &= ~GS1SYNTAXENGINE_MODE;
             }
             break;
+#endif
         case iGSSep:
             if (intValue) {
                 my_symbol->output_options |= GS1_GS_SEPARATOR;