2015-05-19 09:04:10 +02:00
|
|
|
#ifdef SWIG
|
|
|
|
|
%module i2tcl
|
|
|
|
|
%{
|
|
|
|
|
#include "i2tcl.hpp"
|
|
|
|
|
%}
|
|
|
|
|
|
2017-12-19 15:50:05 +01:00
|
|
|
%typemap(in,numinputs=0) Tcl_Interp *interp {
|
2015-05-19 09:04:10 +02:00
|
|
|
$1 = interp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* SWIG */
|
|
|
|
|
|
|
|
|
|
#include <tcl.h>
|
|
|
|
|
|
|
|
|
|
#ifndef I2TCL_H
|
|
|
|
|
#define I2TCL_H
|
|
|
|
|
|
|
|
|
|
void i2_register_command(const char *icmd, const char *tcmd, const char *mtype, Tcl_Interp *interp);
|
|
|
|
|
void *i2_new_frame(Tcl_Interp *interp);
|
|
|
|
|
void i2_free_frame(void *frame, Tcl_Interp *interp);
|
|
|
|
|
char *i2_eval(void *frame, const char *text, Tcl_Interp *interp);
|
|
|
|
|
|
|
|
|
|
#endif /* I2TCL_H */
|
