From 1c40db8eb0360454ae157ca8883ae8b5f1609bcc Mon Sep 17 00:00:00 2001 From: Jon Trulson Date: Thu, 20 Sep 2018 16:50:28 -0600 Subject: [PATCH] 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. --- cde/programs/dtdocbook/tcl/tcl.h | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 */ -- 2.25.1