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