netgen/ng/ngtcl.cpp

21 lines
592 B
C++
Raw Normal View History

2022-05-07 20:40:40 +02:00
#include <meshing.hpp>
2022-05-07 15:13:00 +02:00
#include <inctcl.hpp>
#include "../libsrc/meshing/visual_interface.hpp"
2022-05-07 15:13:00 +02:00
2022-05-07 19:40:16 +02:00
static void Impl_Ng_Tcl_SetResult(Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc)
2022-05-07 15:13:00 +02:00
{
2022-05-07 19:40:16 +02:00
Tcl_SetResult(interp, result, freeProc);
2022-05-07 15:13:00 +02:00
}
static void Impl_Ng_Tcl_CreateCommand(Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc)
{
Tcl_CreateCommand(interp, cmdName, proc, nullptr, nullptr);
}
static bool dummy_init_pointers = [](){
2022-05-07 15:13:00 +02:00
netgen::Ptr_Ng_Tcl_SetResult = Impl_Ng_Tcl_SetResult;
netgen::Ptr_Ng_Tcl_CreateCommand = Impl_Ng_Tcl_CreateCommand;
return true;
}();