File nxtvepg-no-hardcoded-tcl-dir.patch of Package nxtvepg

Overview Repositories Revisions Requests Users Attributes Meta

File nxtvepg-no-hardcoded-tcl-dir.patch of Package nxtvepg (Revision 47e66649cf6912f44e0baf9abee2454b)

Currently displaying revision 47e66649cf6912f44e0baf9abee2454b , Show latest

---
 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
    }

Places

File nxtvepg-no-hardcoded-tcl-dir.patch of Package nxtvepg (Revision 47e66649cf6912f44e0baf9abee2454b)

Places