1#include <tcl.h> 2 3extern int ruby_open_tcl_dll(char *); 4extern int ruby_open_tk_dll(); 5extern int ruby_open_tcltk_dll(char *); 6extern int tcl_stubs_init_p(); 7extern int tk_stubs_init_p(); 8extern Tcl_Interp *ruby_tcl_create_ip_and_stubs_init(int*); 9extern int ruby_tcl_stubs_init(); 10extern int ruby_tk_stubs_init(Tcl_Interp*); 11extern int ruby_tk_stubs_safeinit(Tcl_Interp*); 12extern int ruby_tcltk_stubs(); 13 14/* no error */ 15#define TCLTK_STUBS_OK (0) 16 17/* return value of ruby_open_tcl_dll() */ 18#define NO_TCL_DLL (1) 19#define NO_FindExecutable (2) 20 21/* return value of ruby_open_tk_dll() */ 22#define NO_TK_DLL (-1) 23 24/* status value of ruby_tcl_create_ip_and_stubs_init(st) */ 25#define NO_CreateInterp (3) 26#define NO_DeleteInterp (4) 27#define FAIL_CreateInterp (5) 28#define FAIL_Tcl_InitStubs (6) 29 30/* return value of ruby_tk_stubs_init() */ 31#define NO_Tk_Init (7) 32#define FAIL_Tk_Init (8) 33#define FAIL_Tk_InitStubs (9) 34