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 15757472fd9310ca71a23b6817025b397acc35e1..819e5acc8d029c0943260603569f5898f170d46e 100644 (file)
--- 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 */