diff options
Diffstat (limited to 'Source/cmVTKWrapTclCommand.cxx')
| -rw-r--r-- | Source/cmVTKWrapTclCommand.cxx | 388 |
1 files changed, 0 insertions, 388 deletions
diff --git a/Source/cmVTKWrapTclCommand.cxx b/Source/cmVTKWrapTclCommand.cxx deleted file mode 100644 index 57e3f99..0000000 --- a/Source/cmVTKWrapTclCommand.cxx +++ /dev/null @@ -1,388 +0,0 @@ -/*========================================================================= - - 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 - this->LibraryName = argsIn[0]; - - if (argsIn[1] == std::string("SOURCES")) - { - this->Makefile->ExpandSourceListArguments(argsIn, args, 3); - } - else - { - this->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(!this->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 - { - this->Commands.push_back(*j); - } - } - } - - // get the list of classes for this library - if (sources.size()) - { - // what is the current source dir - std::string cdir = this->Makefile->GetCurrentDirectory(); - - // get the resulting source list name - this->SourceList = sources[0]; - std::string sourceListValue; - - // was the list already populated - const char *def = - this->Makefile->GetDefinition(this->SourceList.c_str()); - if (def) - { - sourceListValue = def; - sourceListValue += ";"; - } - - // Create the init file - std::string res = this->LibraryName; - res += "Init.cxx"; - sourceListValue += res; - - for(std::vector<std::string>::iterator j = (sources.begin() + 1); - j != sources.end(); ++j) - { - cmSourceFile *curr = this->Makefile->GetSource(j->c_str()); - - // if we should wrap the class - if (!curr || !curr->GetPropertyAsBool("WRAP_EXCLUDE")) - { - cmSourceFile file; - file.GetProperties().SetCMakeInstance - (this->Makefile->GetCMakeInstance()); - 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(), - this->Makefile->GetCurrentOutputDirectory(), - "cxx",false); - this->WrapHeaders.push_back(hname); - // add starting depends - file.GetDepends().push_back(hname); - this->WrapClasses.push_back(file); - sourceListValue += ";"; - sourceListValue += newName + ".cxx"; - } - } - // add the init file - cmSourceFile cfile; - cfile.GetProperties().SetCMakeInstance - (this->Makefile->GetCMakeInstance()); - cfile.SetProperty("ABSTRACT","0"); - std::string newName = this->LibraryName; - newName += "Init"; - this->CreateInitFile(res); - cfile.SetName(newName.c_str(), - this->Makefile->GetCurrentOutputDirectory(), - "cxx",false); - this->Makefile->AddSource(cfile); - this->Makefile->AddDefinition(this->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 = this->WrapClasses.size(); - std::vector<std::string> depends; - const char* wtcl = - this->Makefile->GetRequiredDefinition("VTK_WRAP_TCL_EXE"); - const char* hints = this->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++) - { - this->Makefile->AddSource(this->WrapClasses[classNum]); - cmCustomCommandLine commandLine; - commandLine.push_back(wtcl); - commandLine.push_back(this->WrapHeaders[classNum]); - if(hints) - { - commandLine.push_back(hints); - } - commandLine.push_back((this->WrapClasses[classNum]. - GetPropertyAsBool("ABSTRACT") ? "0" : "1")); - std::string res = this->Makefile->GetCurrentOutputDirectory(); - res += "/"; - res += this->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; - this->Makefile->AddCustomCommandOldStyle(this->LibraryName.c_str(), - outputs, - depends, - this->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(this->LibraryName); - - std::vector<std::string> classes; - size_t lastClass = this->WrapHeaders.size(); - size_t classNum; - for(classNum = 0; classNum < lastClass; classNum++) - { - if (!this->WrapClasses[classNum].GetPropertyAsBool("ABSTRACT")) - { - std::string cls = this->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 = - this->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 < this->Commands.size(); i++) - { - capcommands.push_back(cmSystemTools::Capitalized(this->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" - ,classes[i].c_str()); - fprintf(fout," int argc, char *argv[]);\n"); - 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 < this->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 < this->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", this->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; -} - - |