int ir_tcl_method (Tcl_Interp *interp, int argc, char **argv,
IrTcl_Methods *tab, int *ret);
int ir_tcl_get_set_int (int *val, Tcl_Interp *interp, int argc, char **argv);
int ir_tcl_method (Tcl_Interp *interp, int argc, char **argv,
IrTcl_Methods *tab, int *ret);
int ir_tcl_get_set_int (int *val, Tcl_Interp *interp, int argc, char **argv);