kolan/CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ENH: Tcl packages now Tcl_PkgProvide their own name and version.

Browse Source
This commit is contained in:
Brad King 2002-12-18 16:58:03 -05:00
parent f958a7dc85
commit 190424b29c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/cmVTKWrapTclCommand.cxx
View File

@ -228,6 +228,9 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
} }
fprintf(fout,"#include \"vtkTclUtil.h\"\n"); 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, fprintf(fout,
"extern \"C\"\n" "extern \"C\"\n"
@ -333,6 +336,10 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout," %sCommand);\n",classes[i].c_str()); 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"); fprintf(fout," return TCL_OK;\n}\n");
fclose(fout); fclose(fout);