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

minor fix

Browse Source
This commit is contained in:
Ken Martin 2002-01-03 13:56:30 -05:00
parent d163cb7014
commit d8088655ff
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Source/cmVTKWrapTclCommand.cxx
View File

@ -157,7 +157,10 @@ void cmVTKWrapTclCommand::FinalPass()
// wrap all the .h files // wrap all the .h files
depends.push_back(wtcl); depends.push_back(wtcl);
depends.push_back(hints); if (strcmp("${VTK_WRAP_HINTS}",hints.c_str()))
{
depends.push_back(hints);
}
for(int classNum = 0; classNum < lastClass; classNum++) for(int classNum = 0; classNum < lastClass; classNum++)
{ {
m_Makefile->AddSource(m_WrapClasses[classNum],m_SourceList.c_str()); m_Makefile->AddSource(m_WrapClasses[classNum],m_SourceList.c_str());
@ -270,7 +273,7 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
if (!strcmp(kitName,"Vtkcommontcl")) if (!strcmp(kitName,"Vtkcommontcl"))
{ {
fprintf(fout,"void vtkCommonDeleteAssocData(ClientData cd, Tcl_Interp *)\n"); fprintf(fout,"void vtkCommonDeleteAssocData(ClientData cd)\n");
fprintf(fout," {\n"); fprintf(fout," {\n");
fprintf(fout," vtkTclInterpStruct *tis = static_cast<vtkTclInterpStruct*>(cd);\n"); fprintf(fout," vtkTclInterpStruct *tis = static_cast<vtkTclInterpStruct*>(cd);\n");
fprintf(fout," delete tis;\n }\n"); fprintf(fout," delete tis;\n }\n");
@ -297,7 +300,9 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout, fprintf(fout,
" Tcl_InitHashTable(&info->CommandLookup, TCL_STRING_KEYS);\n"); " Tcl_InitHashTable(&info->CommandLookup, TCL_STRING_KEYS);\n");
fprintf(fout, fprintf(fout,
" Tcl_SetAssocData(interp,(char *) \"vtk\",vtkCommonDeleteAssocData,(ClientData *)info);\n"); " Tcl_SetAssocData(interp,(char *) \"vtk\",NULL,(ClientData *)info);\n");
fprintf(fout,
" Tcl_CreateExitHandler(vtkCommonDeleteAssocData,(ClientData *)info);\n");
/* create special vtkCommand command */ /* create special vtkCommand command */
fprintf(fout," Tcl_CreateCommand(interp,(char *) \"vtkCommand\",vtkCommand,\n (ClientData *)NULL, NULL);\n\n"); fprintf(fout," Tcl_CreateCommand(interp,(char *) \"vtkCommand\",vtkCommand,\n (ClientData *)NULL, NULL);\n\n");