From 190424b29ca2367bf2893736b9f929efbe35b127 Mon Sep 17 00:00:00 2001 From: Brad King Date: Wed, 18 Dec 2002 16:58:03 -0500 Subject: ENH: Tcl packages now Tcl_PkgProvide their own name and version. --- Source/cmVTKWrapTclCommand.cxx | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Source/cmVTKWrapTclCommand.cxx b/Source/cmVTKWrapTclCommand.cxx index c8fa20f..5760a83 100644 --- a/Source/cmVTKWrapTclCommand.cxx +++ b/Source/cmVTKWrapTclCommand.cxx @@ -228,6 +228,9 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName, } fprintf(fout,"#include \"vtkTclUtil.h\"\n"); + fprintf(fout,"#include \"vtkVersion.h\"\n"); + fprintf(fout,"#define VTK_TCL_TO_STRING(x) VTK_TCL_TO_STRING0(x)\n"); + fprintf(fout,"#define VTK_TCL_TO_STRING0(x) #x\n"); fprintf(fout, "extern \"C\"\n" @@ -333,6 +336,10 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName, fprintf(fout," %sCommand);\n",classes[i].c_str()); } + fprintf(fout," Tcl_PkgProvide(interp, \"%s\", " + "VTK_TCL_TO_STRING(VTK_MAJOR_VERSION) \".\" " + "VTK_TCL_TO_STRING(VTK_MINOR_VERSION));\n", + m_LibraryName.c_str()); fprintf(fout," return TCL_OK;\n}\n"); fclose(fout); -- cgit v0.12