From 1b7465e893131c8a8b27078704223ecfb2311119 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 20 Jun 2006 18:02:17 +0000
Subject: * eval.c, file.c, etc.: code-cleanup patch from Stefan Huehner  
 <stefan at huehner.org>.  [ruby-core:08029]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10351 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/stubs.c    | 30 ++++++++++--------------------
 ext/tk/tcltklib.c |  8 ++------
 2 files changed, 12 insertions(+), 26 deletions(-)

(limited to 'ext/tk')

diff --git a/ext/tk/stubs.c b/ext/tk/stubs.c
index 23ff42a4f4..654b926e67 100644
--- a/ext/tk/stubs.c
+++ b/ext/tk/stubs.c
@@ -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)
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index e43b98e2c1..862e817a7e 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -124,9 +124,7 @@ static VALUE tk_funcall _((VALUE(), int, VALUE*, VALUE));
 
 /* safe Tcl_Eval and Tcl_GlobalEval */
 static int
-tcl_eval(interp, cmd)
-    Tcl_Interp *interp;
-    const char *cmd; /* don't have to be writable */
+tcl_eval(Tcp_Interp interp, const char *cmd)
 {
     char *buf = strdup(cmd);
     const int ret = Tcl_Eval(interp, buf);
@@ -138,9 +136,7 @@ tcl_eval(interp, cmd)
 #define Tcl_Eval tcl_eval
 
 static int
-tcl_global_eval(interp, cmd)
-    Tcl_Interp *interp;
-    const char *cmd; /* don't have to be writable */
+tcl_global_eval(Tcp_Interp *interp, const char *cmd)
 {
     char *buf = strdup(cmd);
     const int ret = Tcl_GlobalEval(interp, buf);
-- 
cgit v1.2.3