/*========================================================================= Program: CMake - Cross-Platform Makefile Generator Module: $RCSfile$ Language: C++ Date: $Date$ Version: $Revision$ Copyright (c) 2002 Kitware, Inc., Insight Consortium. All rights reserved. See Copyright.txt or http://www.cmake.org/HTML/Copyright.html for details. This software is distributed WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the above copyright notices for more information. =========================================================================*/ #include "cmVTKWrapTclCommand.h" // cmVTKWrapTclCommand bool cmVTKWrapTclCommand::InitialPass(std::vector<std::string> const& argsIn) { if(argsIn.size() < 3 ) { this->SetError("called with incorrect number of arguments"); return false; } std::vector<std::string> args; // keep the library name m_LibraryName = argsIn[0]; if (argsIn[1] == std::string("SOURCES")) { m_Makefile->ExpandSourceListArguments(argsIn, args, 3); } else { m_Makefile->ExpandSourceListArguments(argsIn, args, 2); } // Now check and see if the value has been stored in the cache // already, if so use that value and don't look for the program if(!m_Makefile->IsOn("VTK_WRAP_TCL")) { return true; } // extract the sources and commands parameters std::vector<std::string> sources; bool doing_sources = true; for(std::vector<std::string>::const_iterator j = (args.begin() + 1); j != args.end(); ++j) { if(*j == "SOURCES") { doing_sources = true; } else if (*j == "COMMANDS") { doing_sources = false; } else { if(doing_sources) { sources.push_back(*j); } else { m_Commands.push_back(*j); } } } // get the list of classes for this library if (sources.size()) { // what is the current source dir std::string cdir = m_Makefile->GetCurrentDirectory(); // get the resulting source list name m_SourceList = sources[0]; std::string sourceListValue; // was the list already populated const char *def = m_Makefile->GetDefinition(m_SourceList.c_str()); if (def) { sourceListValue = def; sourceListValue += ";"; } // Create the init file std::string res = m_LibraryName; res += "Init.cxx"; sourceListValue += res; for(std::vector<std::string>::iterator j = (sources.begin() + 1); j != sources.end(); ++j) { cmSourceFile *curr = m_Makefile->GetSource(j->c_str()); // if we should wrap the class if (!curr || !curr->GetPropertyAsBool("WRAP_EXCLUDE")) { cmSourceFile file; std::string srcDir = cdir; if (curr) { file.SetProperty("ABSTRACT",curr->GetProperty("ABSTRACT")); srcDir = cmSystemTools::GetFilenamePath(curr->GetFullPath()); } std::string srcName = cmSystemTools::GetFilenameWithoutExtension(*j); std::string newName = srcName + "Tcl"; std::string hname = srcDir + "/" + srcName + ".h"; file.SetName(newName.c_str(), m_Makefile->GetCurrentOutputDirectory(), "cxx",false); m_WrapHeaders.push_back(hname); // add starting depends file.GetDepends().push_back(hname); m_WrapClasses.push_back(file); sourceListValue += ";"; sourceListValue += newName + ".cxx"; } } // add the init file cmSourceFile cfile; cfile.SetProperty("ABSTRACT","0"); std::string newName = m_LibraryName; newName += "Init"; this->CreateInitFile(res); cfile.SetName(newName.c_str(), m_Makefile->GetCurrentOutputDirectory(), "cxx",false); m_Makefile->AddSource(cfile); m_Makefile->AddDefinition(m_SourceList.c_str(), sourceListValue.c_str()); } return true; } void cmVTKWrapTclCommand::FinalPass() { // first we add the rules for all the .h to Tcl.cxx files size_t lastClass = m_WrapClasses.size(); std::vector<std::string> depends; const char* wtcl = m_Makefile->GetRequiredDefinition("VTK_WRAP_TCL_EXE"); const char* hints = m_Makefile->GetDefinition("VTK_WRAP_HINTS"); // wrap all the .h files depends.push_back(wtcl); if(hints) { depends.push_back(hints); } for(size_t classNum = 0; classNum < lastClass; classNum++) { m_Makefile->AddSource(m_WrapClasses[classNum]); cmCustomCommandLine commandLine; commandLine.push_back(wtcl); commandLine.push_back(m_WrapHeaders[classNum]); if(hints) { commandLine.push_back(hints); } commandLine.push_back((m_WrapClasses[classNum].GetPropertyAsBool("ABSTRACT") ? "0" : "1")); std::string res = m_Makefile->GetCurrentOutputDirectory(); res += "/"; res += m_WrapClasses[classNum].GetSourceName() + ".cxx"; commandLine.push_back(res); cmCustomCommandLines commandLines; commandLines.push_back(commandLine); std::vector<std::string> outputs; outputs.push_back(res); const char* no_comment = 0; m_Makefile->AddCustomCommandOldStyle(m_LibraryName.c_str(), outputs, depends, m_WrapHeaders[classNum].c_str(), commandLines, no_comment); } } bool cmVTKWrapTclCommand::CreateInitFile(std::string& res) { /* we have to make sure that the name is the correct case */ std::string kitName = cmSystemTools::Capitalized(m_LibraryName); std::vector<std::string> classes; size_t lastClass = m_WrapHeaders.size(); size_t classNum; for(classNum = 0; classNum < lastClass; classNum++) { if (!m_WrapClasses[classNum].GetPropertyAsBool("ABSTRACT")) { std::string cls = m_WrapHeaders[classNum]; cls = cls.substr(0,cls.size()-2); std::string::size_type pos = cls.rfind('/'); if(pos != std::string::npos) { cls = cls.substr(pos+1); } classes.push_back(cls); } } // open the init file std::string outFileName = m_Makefile->GetCurrentOutputDirectory(); outFileName += "/" + res; return this->WriteInit(kitName.c_str(), outFileName, classes); } /* warning this code is also in getclasses.cxx under pcmaker */ bool cmVTKWrapTclCommand::WriteInit(const char *kitName, std::string& outFileName, std::vector<std::string>& classes) { unsigned int i; std::string tempOutputFile = outFileName + ".tmp"; FILE *fout = fopen(tempOutputFile.c_str(),"w"); if (!fout) { cmSystemTools::Error("Failed to open TclInit file for ", tempOutputFile.c_str()); cmSystemTools::ReportLastSystemError(""); return false; } // capitalized commands just once std::vector<std::string> capcommands; for (i = 0; i < m_Commands.size(); i++) { capcommands.push_back(cmSystemTools::Capitalized(m_Commands[i])); } 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" "{\n" "#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4) && (TCL_RELEASE_LEVEL >= TCL_FINAL_RELEASE)\n" " typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, CONST84 char *[]);\n" "#else\n" " typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, char *[]);\n" "#endif\n" "}\n" "\n"); for (i = 0; i < classes.size(); i++) { fprintf(fout,"int %sCommand(ClientData cd, Tcl_Interp *interp,\n int argc, char *argv[]);\n",classes[i].c_str()); fprintf(fout,"ClientData %sNewCommand();\n",classes[i].c_str()); } if (!strcmp(kitName,"Vtkcommontcl")) { fprintf(fout,"int vtkCommand(ClientData cd, Tcl_Interp *interp,\n" " int argc, char *argv[]);\n"); fprintf(fout,"\nTcl_HashTable vtkInstanceLookup;\n"); fprintf(fout,"Tcl_HashTable vtkPointerLookup;\n"); fprintf(fout,"Tcl_HashTable vtkCommandLookup;\n"); fprintf(fout,"int vtkCommandForward(ClientData cd, Tcl_Interp *interp,\n" " int argc, char *argv[]){\n" " return vtkCommand(cd, interp, argc, argv);\n" "}\n"); } else { fprintf(fout,"\nextern Tcl_HashTable vtkInstanceLookup;\n"); fprintf(fout,"extern Tcl_HashTable vtkPointerLookup;\n"); fprintf(fout,"extern Tcl_HashTable vtkCommandLookup;\n"); } fprintf(fout,"extern void vtkTclDeleteObjectFromHash(void *);\n"); fprintf(fout,"extern void vtkTclListInstances(Tcl_Interp *interp, ClientData arg);\n"); for (i = 0; i < m_Commands.size(); i++) { fprintf(fout,"\nextern \"C\" {int VTK_EXPORT %s_Init(Tcl_Interp *interp);}\n", capcommands[i].c_str()); } fprintf(fout,"\n\nextern \"C\" {int VTK_EXPORT %s_SafeInit(Tcl_Interp *interp);}\n", kitName); fprintf(fout,"\nextern \"C\" {int VTK_EXPORT %s_Init(Tcl_Interp *interp);}\n", kitName); /* create an extern ref to the generic delete function */ fprintf(fout,"\nextern void vtkTclGenericDeleteObject(ClientData cd);\n"); if (!strcmp(kitName,"Vtkcommontcl")) { fprintf(fout,"extern \"C\"\n{\nvoid vtkCommonDeleteAssocData(ClientData cd)\n"); fprintf(fout," {\n"); fprintf(fout," vtkTclInterpStruct *tis = static_cast<vtkTclInterpStruct*>(cd);\n"); fprintf(fout," delete tis;\n }\n}\n"); } /* the main declaration */ fprintf(fout,"\n\nint VTK_EXPORT %s_SafeInit(Tcl_Interp *interp)\n{\n",kitName); fprintf(fout," return %s_Init(interp);\n}\n",kitName); fprintf(fout,"\n\nint VTK_EXPORT %s_Init(Tcl_Interp *interp)\n{\n", kitName); if (!strcmp(kitName,"Vtkcommontcl")) { fprintf(fout, " vtkTclInterpStruct *info = new vtkTclInterpStruct;\n"); fprintf(fout, " info->Number = 0; info->InDelete = 0; info->DebugOn = 0;\n"); fprintf(fout,"\n"); fprintf(fout,"\n"); fprintf(fout, " Tcl_InitHashTable(&info->InstanceLookup, TCL_STRING_KEYS);\n"); fprintf(fout, " Tcl_InitHashTable(&info->PointerLookup, TCL_STRING_KEYS);\n"); fprintf(fout, " Tcl_InitHashTable(&info->CommandLookup, TCL_STRING_KEYS);\n"); fprintf(fout, " Tcl_SetAssocData(interp,(char *) \"vtk\",NULL,(ClientData *)info);\n"); fprintf(fout, " Tcl_CreateExitHandler(vtkCommonDeleteAssocData,(ClientData *)info);\n"); /* create special vtkCommand command */ fprintf(fout," Tcl_CreateCommand(interp,(char *) \"vtkCommand\",\n" " reinterpret_cast<vtkTclCommandType>(vtkCommandForward),\n" " (ClientData *)NULL, NULL);\n\n"); } for (i = 0; i < m_Commands.size(); i++) { fprintf(fout," %s_Init(interp);\n", capcommands[i].c_str()); } fprintf(fout,"\n"); for (i = 0; i < classes.size(); i++) { fprintf(fout," vtkTclCreateNew(interp,(char *) \"%s\", %sNewCommand,\n", classes[i].c_str(), classes[i].c_str()); fprintf(fout," %sCommand);\n",classes[i].c_str()); } fprintf(fout," char pkgName[]=\"%s\";\n", m_LibraryName.c_str()); fprintf(fout," char pkgVers[]=VTK_TCL_TO_STRING(VTK_MAJOR_VERSION)" " \".\" " "VTK_TCL_TO_STRING(VTK_MINOR_VERSION);\n"); fprintf(fout," Tcl_PkgProvide(interp, pkgName, pkgVers);\n"); fprintf(fout," return TCL_OK;\n}\n"); fclose(fout); // copy the file if different cmSystemTools::CopyFileIfDifferent(tempOutputFile.c_str(), outFileName.c_str()); cmSystemTools::RemoveFile(tempOutputFile.c_str()); return true; }