From: Jon Trulson <jon@radscan.com>
Date: Thu, 20 Sep 2018 22:50:28 +0000 (-0600)
Subject: dtdocbook/tcl/tcl.h: Add compatibility defines for old Tcl
X-Git-Tag: 2.3.0a~26^2~2
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=1c40db8eb0360454ae157ca8883ae8b5f1609bcc;p=oweals%2Fcde.git

dtdocbook/tcl/tcl.h: Add compatibility defines for old Tcl

dtdocbook/instant has been modified to use a more modern Tcl (8.6),
which means certain functions are not present when we are using the
dtdocbook/tcl (7.5) version of tcl instead of a modern system version.

So, create some defines that should work around this problem.
---

diff --git a/cde/programs/dtdocbook/tcl/tcl.h b/cde/programs/dtdocbook/tcl/tcl.h
index 15757472..819e5acc 100644
--- a/cde/programs/dtdocbook/tcl/tcl.h
+++ b/cde/programs/dtdocbook/tcl/tcl.h
@@ -1069,4 +1069,19 @@ EXTERN void		Tcl_WatchFile _ANSI_ARGS_((Tcl_File file,
 EXTERN int		Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
         		    char *s, int slen));
 
+/* JET 8/2018
+ *
+ * dtdocbook/instant has been modified to use a more modern Tcl (8.6),
+ * which means certain functions are not present when we are using the
+ * dtdocbook/tcl (7.5) version of tcl instead of a modern system
+ * version.  So, create some defines that should work around this
+ * problem.
+ */
+
+#define Tcl_Alloc(n)  malloc(n)
+#define Tcl_Free(p)   free(p)
+
+#define Tcl_GetStringResult(i)  ((i)->result)
+#define Tcl_GetErrorLine(i)     ((i)->errorLine)
+
 #endif /* _TCL */