Ruby: ext/tk/stubs.h Source File

00001 #include <tcl.h>
00002 
00003 extern int ruby_open_tcl_dll(char *);
00004 extern int ruby_open_tk_dll();
00005 extern int ruby_open_tcltk_dll(char *);
00006 extern int tcl_stubs_init_p();
00007 extern int tk_stubs_init_p();
00008 extern Tcl_Interp *ruby_tcl_create_ip_and_stubs_init(int*);
00009 extern int ruby_tcl_stubs_init();
00010 extern int ruby_tk_stubs_init(Tcl_Interp*);
00011 extern int ruby_tk_stubs_safeinit(Tcl_Interp*);
00012 extern int ruby_tcltk_stubs();
00013 
00014 /* no error */
00015 #define TCLTK_STUBS_OK     (0)
00016 
00017 /* return value of ruby_open_tcl_dll() */
00018 #define NO_TCL_DLL         (1)
00019 #define NO_FindExecutable  (2)
00020 
00021 /* return value of ruby_open_tk_dll() */
00022 #define NO_TK_DLL         (-1)
00023 
00024 /* status value of ruby_tcl_create_ip_and_stubs_init(st) */
00025 #define NO_CreateInterp    (3)
00026 #define NO_DeleteInterp    (4)
00027 #define FAIL_CreateInterp  (5)
00028 #define FAIL_Tcl_InitStubs (6)
00029 
00030 /* return value of ruby_tk_stubs_init() */
00031 #define NO_Tk_Init         (7)
00032 #define FAIL_Tk_Init       (8)
00033 #define FAIL_Tk_InitStubs  (9)
00034