netgen/ng/ngtcl.cpp

21 lines
592 B
C++
Raw Permalink Normal View History

2022-05-07 23:40:40 +05:00
#include <meshing.hpp>
2022-05-07 18:13:00 +05:00
#include <inctcl.hpp>
#include "../libsrc/meshing/visual_interface.hpp"
2022-05-07 18:13:00 +05:00
2022-05-07 22:40:16 +05:00
static void Impl_Ng_Tcl_SetResult(Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc)
2022-05-07 18:13:00 +05:00
{
2022-05-07 22:40:16 +05:00
Tcl_SetResult(interp, result, freeProc);
2022-05-07 18:13:00 +05: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 18:13:00 +05:00
netgen::Ptr_Ng_Tcl_SetResult = Impl_Ng_Tcl_SetResult;
netgen::Ptr_Ng_Tcl_CreateCommand = Impl_Ng_Tcl_CreateCommand;
return true;
}();