ENH: remove old commands

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;
-}
-
-