kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* eval.c, file.c, etc.: code-cleanup patch from Stefan Huehner

Browse source 
<stefan at huehner.org>.  [ruby-core:08029]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10351 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 2006-06-20 18:02:17 +00:00
parent 866e083484
commit 1b7465e893
25 changed files with 254 additions and 567 deletions
Download patch file Download diff file Expand all files Collapse all files

30
ext/tk/stubs.c
View file

@ -86,8 +86,7 @@ static DL_HANDLE tcl_dll = (DL_HANDLE)0;
static DL_HANDLE tk_dll = (DL_HANDLE)0;
int
ruby_open_tcl_dll(appname)
char *appname;
ruby_open_tcl_dll(char *appname)
{
void (*p_Tcl_FindExecutable)(const char *);
int n;
@ -169,8 +168,7 @@ ruby_open_tk_dll()
}
int
ruby_open_tcltk_dll(appname)
char *appname;
ruby_open_tcltk_dll(char *appname)
{
return( ruby_open_tcl_dll(appname) || ruby_open_tk_dll() );
}
@ -189,8 +187,7 @@ tk_stubs_init_p()
Tcl_Interp *
ruby_tcl_create_ip_and_stubs_init(st)
int *st;
ruby_tcl_create_ip_and_stubs_init(int *st)
{
Tcl_Interp *tcl_ip;
@ -272,8 +269,7 @@ ruby_tcl_stubs_init()
}
int
ruby_tk_stubs_init(tcl_ip)
Tcl_Interp *tcl_ip;
ruby_tk_stubs_init(Tcl_Interp *tcl_ip)
{
Tcl_ResetResult(tcl_ip);
@ -308,8 +304,7 @@ ruby_tk_stubs_init(tcl_ip)
}
int
ruby_tk_stubs_safeinit(tcl_ip)
Tcl_Interp *tcl_ip;
ruby_tk_stubs_safeinit(Tcl_Interp *tcl_ip)
{
Tcl_ResetResult(tcl_ip);
@ -395,8 +390,7 @@ static int open_tcl_dll = 0;
static int call_tk_stubs_init = 0;
int
ruby_open_tcl_dll(appname)
char *appname;
ruby_open_tcl_dll(char *appname)
{
if (appname) {
Tcl_FindExecutable(appname);
@ -418,8 +412,7 @@ int ruby_open_tk_dll()
return TCLTK_STUBS_OK;
}
int ruby_open_tcltk_dll(appname)
char *appname;
int ruby_open_tcltk_dll(char *appname)
{
return( ruby_open_tcl_dll(appname) || ruby_open_tk_dll() );
}
@ -437,8 +430,7 @@ tk_stubs_init_p()
}
Tcl_Interp *
ruby_tcl_create_ip_and_stubs_init(st)
int *st;
ruby_tcl_create_ip_and_stubs_init(int *st)
{
Tcl_Interp *tcl_ip;
@ -466,8 +458,7 @@ ruby_tcl_stubs_init()
}
int
ruby_tk_stubs_init(tcl_ip)
Tcl_Interp *tcl_ip;
ruby_tk_stubs_init(Tcl_Interp *tcl_ip)
{
if (Tk_Init(tcl_ip) == TCL_ERROR)
return FAIL_Tk_Init;
@ -483,8 +474,7 @@ ruby_tk_stubs_init(tcl_ip)
}
int
ruby_tk_stubs_safeinit(tcl_ip)
Tcl_Interp *tcl_ip;
ruby_tk_stubs_safeinit(Tcl_Interp *tcl_ip)
{
#if TCL_MAJOR_VERSION >= 8
if (Tk_SafeInit(tcl_ip) == TCL_ERROR)