blt-tcl85.patch

   1 --- blt2.4z/src/bltNsUtil.h.orig        2002-07-18 08:35:32.000000000 +0200
   2 +++ blt2.4z/src/bltNsUtil.h     2005-07-24 12:07:44.825339104 +0200
   3 @@ -47,8 +47,10 @@
   4  #endif
   5
   6
   7 +#if (TCL_VERSION_NUMBER < _VERSION(8,0,0))
   8  EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,
   9         char *name, Tcl_Namespace *nsPtr, int flags));
  10 +#endif
  11
  12  #define NS_SEARCH_NONE         (0)
  13  #define NS_SEARCH_CURRENT      (1<<0)
  14 @@ -56,14 +58,17 @@
  15  #define NS_SEARCH_BOTH         (NS_SEARCH_GLOBAL | NS_SEARCH_CURRENT)
  16
  17
  18 +#if (TCL_VERSION_NUMBER < _VERSION(8,5,0))
  19  /*
  20   * Namespace procedures not prototyped defined in Tcl.h
  21   */
  22  EXTERN Tcl_Namespace *Tcl_GetCurrentNamespace _ANSI_ARGS_((Tcl_Interp *interp));
  23
  24  EXTERN Tcl_Namespace *Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp *interp));
  25 +#endif
  26
  27  #if (TCL_MAJOR_VERSION >= 8)
  28 +#  if (TCL_VERSION_NUMBER < _VERSION(8,5,0))
  29  EXTERN Tcl_Namespace *Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp,
  30         char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc));
  31
  32 @@ -74,6 +79,7 @@
  33
  34  EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr,
  35         char *name, int resetFlag));
  36 +#  endif
  37
  38  EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name,
  39         Tcl_Namespace *contextNsPtr, int flags));