]>
Commit | Line | Data |
---|---|---|
a7afa0bd JB |
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)); |