netgen/ng/ngtcl.cpp
2021-10-11 16:04:00 +02:00

17 lines
389 B
C++

#include "ngtcl.hpp"
#include <inctcl.hpp>
namespace netgen
{
void Ng_Tcl_SetResult(Tcl_Interp *interp, char *result, const int freeProc)
{
Tcl_SetResult(interp, result, (Tcl_FreeProc*)freeProc);
}
void Ng_Tcl_CreateCommand(Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc)
{
Tcl_CreateCommand(interp, cmdName, proc, nullptr, nullptr);
}
}