very early version of a wrapper
This commit is contained in:
Ken Martin
parent
3b338dacaf
commit
32e738cd0c
|
|
@ -0,0 +1,220 @@
|
||||||
|
/*=========================================================================
|
||||||
|
|
||||||
|
Program: Insight Segmentation & Registration Toolkit
|
||||||
|
Module: $RCSfile$
|
||||||
|
Language: C++
|
||||||
|
Date: $Date$
|
||||||
|
Version: $Revision$
|
||||||
|
|
||||||
|
|
||||||
|
Copyright (c) 2000 National Library of Medicine
|
||||||
|
All rights reserved.
|
||||||
|
|
||||||
|
See COPYRIGHT.txt for copyright details.
|
||||||
|
|
||||||
|
=========================================================================*/
|
||||||
|
#include "cmWrapTclCommand.h"
|
||||||
|
|
||||||
|
// cmWrapTclCommand
|
||||||
|
bool cmWrapTclCommand::Invoke(std::vector<std::string>& args)
|
||||||
|
{
|
||||||
|
if(args.size() < 0 )
|
||||||
|
{
|
||||||
|
this->SetError("called with incorrect number of arguments");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// get the list of classes for this library
|
||||||
|
std::vector<cmClassFile> &classes = m_Makefile->GetClasses();
|
||||||
|
|
||||||
|
// add in new classes for the wrappers
|
||||||
|
int lastClass = classes.size();
|
||||||
|
// what is the current source dir
|
||||||
|
std::string cdir = m_Makefile->GetCurrentDirectory();
|
||||||
|
|
||||||
|
for(int classNum = 0; classNum < lastClass; classNum++)
|
||||||
|
{
|
||||||
|
cmClassFile &curr = classes[classNum];
|
||||||
|
cmClassFile file;
|
||||||
|
file.m_AbstractClass = curr.m_AbstractClass;
|
||||||
|
std::string newName = curr.m_ClassName + "Tcl";
|
||||||
|
file.SetName(newName.c_str(), m_Makefile->GetCurrentOutputDirectory(),
|
||||||
|
"cxx",false);
|
||||||
|
m_WrapClasses.push_back(file);
|
||||||
|
std::string hname = cdir + "/" + curr.m_ClassName + ".h";
|
||||||
|
m_WrapHeaders.push_back(hname);
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
void cmWrapTclCommand::FinalPass()
|
||||||
|
{
|
||||||
|
// first we add the rules for all the .h to Tcl.cxx files
|
||||||
|
int lastClass = m_WrapClasses.size();
|
||||||
|
std::vector<std::string> depends;
|
||||||
|
std::string wtcl = "${WRAP_TCL_EXE}";
|
||||||
|
std::string hints = "${WRAP_HINTS}";
|
||||||
|
std::string wti = "${WRAP_TCL_INIT_EXE}";
|
||||||
|
|
||||||
|
m_Makefile->ExpandVariablesInString(wtcl);
|
||||||
|
m_Makefile->ExpandVariablesInString(hints);
|
||||||
|
m_Makefile->ExpandVariablesInString(wti);
|
||||||
|
|
||||||
|
depends.push_back(wti);
|
||||||
|
|
||||||
|
// Create the init file
|
||||||
|
std::string res = m_Makefile->GetLibraryName();
|
||||||
|
res += "Init.cxx";
|
||||||
|
this->CreateInitFile(res);
|
||||||
|
|
||||||
|
// add the init file
|
||||||
|
cmClassFile cfile;
|
||||||
|
cfile.m_AbstractClass = false;
|
||||||
|
std::string newName = m_Makefile->GetLibraryName();
|
||||||
|
newName += "Init";
|
||||||
|
cfile.SetName(newName.c_str(), m_Makefile->GetCurrentOutputDirectory(),
|
||||||
|
"cxx",false);
|
||||||
|
m_Makefile->AddClass(cfile);
|
||||||
|
|
||||||
|
// wrap all the .h files
|
||||||
|
depends.push_back(wtcl);
|
||||||
|
for(int classNum = 0; classNum < lastClass; classNum++)
|
||||||
|
{
|
||||||
|
m_Makefile->AddClass(m_WrapClasses[classNum]);
|
||||||
|
std::string res = m_WrapClasses[classNum].m_ClassName + ".cxx";
|
||||||
|
std::string cmd = wtcl + " " + m_WrapHeaders[classNum] + " "
|
||||||
|
+ hints + (m_WrapClasses[classNum].m_AbstractClass ? " 0 " : " 1 ") + " > " + m_WrapClasses[classNum].m_ClassName + ".cxx";
|
||||||
|
m_Makefile->AddCustomCommand(m_WrapHeaders[classNum].c_str(),
|
||||||
|
res.c_str(),
|
||||||
|
cmd.c_str(), depends);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
char *names[1000];
|
||||||
|
int anindex = 0;
|
||||||
|
|
||||||
|
bool cmWrapTclCommand::CreateInitFile(std::string& res)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
/* we have to make sure that the name is the correct case */
|
||||||
|
std::string kitName = m_Makefile->GetLibraryName();
|
||||||
|
if (kitName[0] > 90) kitName[0] -= 32;
|
||||||
|
for (i = 1; i < kitName.size(); i++)
|
||||||
|
{
|
||||||
|
if ((kitName[i] > 64)&&(kitName[i] < 91))
|
||||||
|
{
|
||||||
|
kitName[i] += 32;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
std::vector<std::string> classes;
|
||||||
|
int lastClass = m_WrapHeaders.size();
|
||||||
|
int classNum;
|
||||||
|
for(classNum = 0; classNum < lastClass; classNum++)
|
||||||
|
{
|
||||||
|
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 cmWrapTclCommand::WriteInit(const char *kitName, std::string& outFileName,
|
||||||
|
std::vector<std::string>& classes)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
FILE *fout = fopen(outFileName.c_str(),"w");
|
||||||
|
if (!fout)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
fprintf(fout,"#include \"vtkTclUtil.h\"\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,"Vtkcommon"))
|
||||||
|
{
|
||||||
|
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");
|
||||||
|
}
|
||||||
|
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");
|
||||||
|
|
||||||
|
fprintf(fout,"\n\nextern \"C\" {int VTK_EXPORT %s_SafeInit(Tcl_Interp *interp);}\n\n",
|
||||||
|
kitName);
|
||||||
|
fprintf(fout,"\n\nextern \"C\" {int VTK_EXPORT %s_Init(Tcl_Interp *interp);}\n\n",
|
||||||
|
kitName);
|
||||||
|
|
||||||
|
/* create an extern ref to the generic delete function */
|
||||||
|
fprintf(fout,"\n\nextern void vtkTclGenericDeleteObject(ClientData cd);\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");
|
||||||
|
|
||||||
|
/* create special vtkCommand command */
|
||||||
|
fprintf(fout," Tcl_CreateCommand(interp,(char *) \"vtkCommand\",vtkCommand,\n (ClientData *)NULL, NULL);\n\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," return TCL_OK;\n}\n");
|
||||||
|
fclose(fout);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -0,0 +1,81 @@
|
||||||
|
#ifndef cmWrapTclCommand_h
|
||||||
|
#define cmWrapTclCommand_h
|
||||||
|
|
||||||
|
#include "cmStandardIncludes.h"
|
||||||
|
#include "cmCommand.h"
|
||||||
|
|
||||||
|
/** \class cmWrapTclCommand
|
||||||
|
* \brief Define a command that searches for an include file.
|
||||||
|
*
|
||||||
|
* cmWrapTclCommand is used to define a CMake variable include
|
||||||
|
* path location by specifying a file and list of directories.
|
||||||
|
*/
|
||||||
|
class cmWrapTclCommand : public cmCommand
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
/**
|
||||||
|
* This is a virtual constructor for the command.
|
||||||
|
*/
|
||||||
|
virtual cmCommand* Clone()
|
||||||
|
{
|
||||||
|
return new cmWrapTclCommand;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This is called when the command is first encountered in
|
||||||
|
* the CMakeLists.txt file.
|
||||||
|
*/
|
||||||
|
virtual bool Invoke(std::vector<std::string>& args);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This is called at the end after all the information
|
||||||
|
* specified by the command is accumulated. Most commands do
|
||||||
|
* not implement this method. At this point, reading and
|
||||||
|
* writing to the cache can be done.
|
||||||
|
*/
|
||||||
|
virtual void FinalPass();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This determines if the command gets propagated down
|
||||||
|
* to makefiles located in subdirectories.
|
||||||
|
*/
|
||||||
|
virtual bool IsInherited()
|
||||||
|
{return true;}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The name of the command as specified in CMakeList.txt.
|
||||||
|
*/
|
||||||
|
virtual const char* GetName() { return "WRAP_TCL";}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Succinct documentation.
|
||||||
|
*/
|
||||||
|
virtual const char* GetTerseDocumentation()
|
||||||
|
{
|
||||||
|
return "Create Tcl Wrappers.";
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* More documentation.
|
||||||
|
*/
|
||||||
|
virtual const char* GetFullDocumentation()
|
||||||
|
{
|
||||||
|
return
|
||||||
|
"WRAP_TCL()";
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Helper methods
|
||||||
|
*/
|
||||||
|
virtual bool CreateInitFile(std::string &name);
|
||||||
|
virtual bool WriteInit(const char *kitName, std::string& outFileName,
|
||||||
|
std::vector<std::string>& classes);
|
||||||
|
|
||||||
|
private:
|
||||||
|
std::vector<cmClassFile> m_WrapClasses;
|
||||||
|
std::vector<std::string> m_WrapHeaders;
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#endif
|
||||||
Loading…
Reference in New Issue