Attachment #145584 for bug #212711




#define TCL_NAMESPACE_ONLY TCL_GLOBAL_ONLY
#endif

/*
EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,
	char *name, Tcl_Namespace *nsPtr, int flags));
*/
#define NS_SEARCH_NONE		(0)
#define NS_SEARCH_CURRENT	(1<<0)
#define NS_SEARCH_GLOBAL	(1<<1)

EXTERN Tcl_Namespace *Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp *interp));

#if (TCL_MAJOR_VERSION >= 8)
/*
EXTERN Tcl_Namespace *Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp,
	char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc));
*/
EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((Tcl_Namespace *nsPtr));
/*
EXTERN Tcl_Namespace *Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp *interp,
	char *name, Tcl_Namespace *context, int flags));

EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr,
	char *name, int resetFlag));
*/
EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name,
	Tcl_Namespace *contextNsPtr, int flags));


Return to bug 212711

Lines 46-55 Link Here

(-)blt2.4z.orig/src/bltNsUtil.h (-5 / +6 lines)
46	#define TCL_NAMESPACE_ONLY TCL_GLOBAL_ONLY	46	#define TCL_NAMESPACE_ONLY TCL_GLOBAL_ONLY
47	#endif	47	#endif
48		48
49		49	/*
50	EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,	50	EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,
51	char name, Tcl_Namespace nsPtr, int flags));	51	char name, Tcl_Namespace nsPtr, int flags));
52		52	*/
53	#define NS_SEARCH_NONE (0)	53	#define NS_SEARCH_NONE (0)
54	#define NS_SEARCH_CURRENT (1<<0)	54	#define NS_SEARCH_CURRENT (1<<0)
55	#define NS_SEARCH_GLOBAL (1<<1)	55	#define NS_SEARCH_GLOBAL (1<<1)
Lines 64-80 Link Here
64	EXTERN Tcl_Namespace Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp interp));	64	EXTERN Tcl_Namespace Tcl_GetGlobalNamespace _ANSI_ARGS_((Tcl_Interp interp));
65		65
66	#if (TCL_MAJOR_VERSION >= 8)	66	#if (TCL_MAJOR_VERSION >= 8)
		67	/*
67	EXTERN Tcl_Namespace Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp interp,	68	EXTERN Tcl_Namespace Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp interp,
68	char name, ClientData clientData, Tcl_NamespaceDeleteProc nsDelProc));	69	char name, ClientData clientData, Tcl_NamespaceDeleteProc nsDelProc));
69		70	*/
70	EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((Tcl_Namespace *nsPtr));	71	EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((Tcl_Namespace *nsPtr));
71		72	/*
72	EXTERN Tcl_Namespace Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp interp,	73	EXTERN Tcl_Namespace Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp interp,
73	char name, Tcl_Namespace context, int flags));	74	char name, Tcl_Namespace context, int flags));
74		75
75	EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp interp, Tcl_Namespace nsPtr,	76	EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp interp, Tcl_Namespace nsPtr,
76	char *name, int resetFlag));	77	char *name, int resetFlag));
77		78	*/
78	EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp interp, char name,	79	EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp interp, char name,
79	Tcl_Namespace *contextNsPtr, int flags));	80	Tcl_Namespace *contextNsPtr, int flags));
80		81