mirror of
https://github.com/NGSolve/netgen.git
synced 2024-11-14 10:08:32 +05:00
17 lines
389 B
C++
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);
|
|
}
|
|
}
|