File nxtvepg-no-hardcoded-tcl-dir.patch of Package nxtvepg
---
Makefile | 13 ++-----------
epgui/epgmain.c | 17 +++++++++++------
tvsim/tvsim_main.c | 17 +++++++++++------
tvsim/vbirec_main.c | 17 +++++++++++------
4 files changed, 35 insertions(+), 29 deletions(-)
--- Makefile.orig
+++ Makefile
@@ -78,8 +78,8 @@ DEFS += -DX11_APP_DEFAULTS=\"$(resdir)
# path to Tcl/Tk script library (note Tk is sometimes in X11/lib/tk#.#)
TK_LIBRARY_PATH = /usr/lib/tk$(TCL_VER)
TCL_LIBRARY_PATH = /usr/lib/tcl$(TCL_VER)
-DEFS += -DTK_LIBRARY_PATH=\"$(TK_LIBRARY_PATH)\"
-DEFS += -DTCL_LIBRARY_PATH=\"$(TCL_LIBRARY_PATH)\"
+#DEFS += -DTK_LIBRARY_PATH=\"$(TK_LIBRARY_PATH)\"
+#DEFS += -DTCL_LIBRARY_PATH=\"$(TCL_LIBRARY_PATH)\"
# enable use of multi-threading
DEFS += -DUSE_THREADS
@@ -295,15 +295,6 @@ tcl_headers_tvsim: $(addprefix $(BUILD_D
$(BUILD_DIR)/tcl2c: tcl2c.c
$(CC) $(CFLAGS) -o $(BUILD_DIR)/tcl2c tcl2c.c
-$(TCL_LIBRARY_PATH)/tclIndex $(TK_LIBRARY_PATH)/tclIndex :
- @if [ ! -f $(TCL_LIBRARY_PATH) -o ! -f $(TK_LIBRARY_PATH) ] ; then \
- echo "$(@D) is not a valid Tcl/Tk library directory"; \
- echo "Check the definitions of TCL_LIBRARY_PATH and TK_LIBRARY_PATH"; \
- false; \
- fi
-
-epgui/loadtcl.c :: $(TCL_LIBRARY_PATH)/tclIndex $(TK_LIBRARY_PATH)/tclIndex
-
.PHONY: bak
bak:
cd .. && tar cvf /tmp/pc.tar -X pc/tar-ex pc ttx
--- epgui/epgmain.c.orig
+++ epgui/epgmain.c
@@ -107,11 +107,7 @@
#include "epgui/epgmain.h"
-#ifndef USE_PRECOMPILED_TCL_LIBS
-# if !defined(TCL_LIBRARY_PATH) || !defined(TK_LIBRARY_PATH)
-# error "Must define both TK_ and TCL_LIBRARY_PATH"
-# endif
-#else
+#ifdef USE_PRECOMPILED_TCL_LIBS
# define TCL_LIBRARY_PATH "."
# define TK_LIBRARY_PATH "."
#endif
@@ -1991,8 +1987,12 @@ static int ui_init( int argc, char **arg
}
Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY);
+#ifdef TCL_LIBRARY_PATH
Tcl_SetVar(interp, "tcl_library", TCL_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
+#ifdef TK_LIBRARY_PATH
Tcl_SetVar(interp, "tk_library", TK_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
#ifndef WIN32
@@ -2020,7 +2020,12 @@ static int ui_init( int argc, char **arg
{
#ifndef USE_PRECOMPILED_TCL_LIBS
fprintf(stderr, "Failed to initialise the Tk library at '%s' - exiting.\nTk error message: %s\n",
- TK_LIBRARY_PATH, Tcl_GetStringResult(interp));
+#ifdef TK_LIBRARY_PATH
+ TK_LIBRARY_PATH,
+#else
+ "<default Tk library path>",
+#endif
+ Tcl_GetStringResult(interp));
exit(1);
#endif
}
--- tvsim/tvsim_main.c.orig
+++ tvsim/tvsim_main.c
@@ -83,11 +83,7 @@
# define TCL_EVAL_CONST(INTERP, SCRIPT) Tcl_VarEval(INTERP, "uplevel #0 {", (char *) SCRIPT, "}", NULL)
#endif
-#ifndef USE_PRECOMPILED_TCL_LIBS
-# if !defined(TCL_LIBRARY_PATH) || !defined(TK_LIBRARY_PATH)
-# error "Must define both TK_ and TCL_LIBRARY_PATH"
-# endif
-#else
+#ifdef USE_PRECOMPILED_TCL_LIBS
# define TCL_LIBRARY_PATH "."
# define TK_LIBRARY_PATH "."
# include "epgtcl/tcl_libs.h"
@@ -1969,8 +1965,12 @@ static int ui_init( int argc, char **arg
Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY);
#endif
+#ifdef TCL_LIBRARY_PATH
Tcl_SetVar(interp, "tcl_library", TCL_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
+#ifdef TK_LIBRARY_PATH
Tcl_SetVar(interp, "tk_library", TK_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
Tcl_SetVar(interp, "TVSIM_VERSION", TVSIM_VERSION_STR, TCL_GLOBAL_ONLY);
@@ -1986,7 +1986,12 @@ static int ui_init( int argc, char **arg
{
#ifndef USE_PRECOMPILED_TCL_LIBS
fprintf(stderr, "Failed to initialise the Tk library at '%s' - exiting.\nTk error message: %s\n",
- TK_LIBRARY_PATH, Tcl_GetStringResult(interp));
+#ifdef TK_LIBRARY_PATH
+ TK_LIBRARY_PATH,
+#else
+ "<default Tk library path>",
+#endif
+ Tcl_GetStringResult(interp));
exit(1);
#endif
}
--- tvsim/vbirec_main.c.orig
+++ tvsim/vbirec_main.c
@@ -80,11 +80,7 @@
# define TCL_EVAL_CONST(INTERP, SCRIPT) Tcl_VarEval(INTERP, (char *) SCRIPT, NULL)
#endif
-#ifndef USE_PRECOMPILED_TCL_LIBS
-# if !defined(TCL_LIBRARY_PATH) || !defined(TK_LIBRARY_PATH)
-# error "Must define both TK_ and TCL_LIBRARY_PATH"
-# endif
-#else
+#ifdef USE_PRECOMPILED_TCL_LIBS
# define TCL_LIBRARY_PATH "."
# define TK_LIBRARY_PATH "."
# include "epgtcl/tcl_libs.h"
@@ -1136,8 +1132,12 @@ static int ui_init( int argc, char **arg
}
Tcl_SetVar(interp, "argv0", argv[0], TCL_GLOBAL_ONLY);
+#ifdef TCL_LIBRARY_PATH
Tcl_SetVar(interp, "tcl_library", TCL_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
+#ifdef TK_LIBRARY_PATH
Tcl_SetVar(interp, "tk_library", TK_LIBRARY_PATH, TCL_GLOBAL_ONLY);
+#endif
Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
Tcl_SetVar(interp, "TVSIM_VERSION", TVSIM_VERSION_STR, TCL_GLOBAL_ONLY);
@@ -1155,7 +1155,12 @@ static int ui_init( int argc, char **arg
{
#ifndef USE_PRECOMPILED_TCL_LIBS
fprintf(stderr, "Failed to initialise the Tk library at '%s' - exiting.\nTk error message: %s\n",
- TK_LIBRARY_PATH, Tcl_GetStringResult(interp));
+#ifdef TK_LIBRARY_PATH
+ TK_LIBRARY_PATH,
+#else
+ "<default Tk library path>",
+#endif
+ Tcl_GetStringResult(interp));
exit(1);
#endif
}