Complete the purge of K&R function definitions from manually-written code.

8 files changed, 83 insertions, 55 deletions

diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c
index 8875b92..a5058d8 100644
--- a/unix/tclAppInit.c
+++ b/unix/tclAppInit.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclAppInit.c,v 1.16 2005/07/20 23:16:00 dkf Exp $
+ * RCS: @(#) $Id: tclAppInit.c,v 1.17 2007/04/16 13:36:35 dkf Exp $
  */
 
 #include "tcl.h"
@@ -50,9 +50,9 @@ extern int		Tclxttest_Init _ANSI_ARGS_((Tcl_Interp *interp));
  */
 
 int
-main(argc, argv)
-    int argc;			/* Number of command-line arguments. */
-    char **argv;		/* Values of command-line arguments. */
+main(
+    int argc,			/* Number of command-line arguments. */
+    char **argv)		/* Values of command-line arguments. */
 {
     /*
      * The following #if block allows you to change the AppInit function by
@@ -109,8 +109,8 @@ main(argc, argv)
  */
 
 int
-Tcl_AppInit(interp)
-    Tcl_Interp *interp;		/* Interpreter for application. */
+Tcl_AppInit(
+    Tcl_Interp *interp)		/* Interpreter for application. */
 {
     if (Tcl_Init(interp) == TCL_ERROR) {
 	return TCL_ERROR;
diff --git a/unix/tclLoadAix.c b/unix/tclLoadAix.c
index f093896..d238e9a 100644
--- a/unix/tclLoadAix.c
+++ b/unix/tclLoadAix.c
@@ -17,7 +17,7 @@
  *	for any results of using the software, alterations are clearly marked
  *	as such, and this notice is not modified.
  *
- * RCS: @(#) $Id: tclLoadAix.c,v 1.5 2005/11/11 23:46:34 dkf Exp $
+ * RCS: @(#) $Id: tclLoadAix.c,v 1.6 2007/04/16 13:36:36 dkf Exp $
  *
  * Note: this file has been altered from the original in a few ways in order
  * to work properly with Tcl.
@@ -316,7 +316,8 @@ dlerror(void)
 }
 
 int
-dlclose(void *handle)
+dlclose(
+    void *handle)
 {
     register ModulePtr mp = (ModulePtr)handle;
     int result;
diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c
index 332c6c1..94cca40 100644
--- a/unix/tclLoadDyld.c
+++ b/unix/tclLoadDyld.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclLoadDyld.c,v 1.24 2006/07/20 06:18:38 das Exp $
+ * RCS: @(#) $Id: tclLoadDyld.c,v 1.25 2007/04/16 13:36:36 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -55,7 +55,9 @@ MODULE_SCOPE long tclMacOSXDarwinRelease;
  */
 
 static CONST char*
-DyldOFIErrorMsg(int err) {
+DyldOFIErrorMsg(
+    int err)
+{
     switch(err) {
     case NSObjectFileImageSuccess:
 	return NULL;
diff --git a/unix/tclUnixCompat.c b/unix/tclUnixCompat.c
index d9deb8a..23905a4 100644
--- a/unix/tclUnixCompat.c
+++ b/unix/tclUnixCompat.c
@@ -6,7 +6,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixCompat.c,v 1.8 2006/09/12 21:59:53 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclUnixCompat.c,v 1.9 2007/04/16 13:36:36 dkf Exp $
  *
  */
 
@@ -88,7 +88,11 @@ static Tcl_Mutex compatLock;
  */
 
 static int
-CopyArray(char **src, int elsize, char *buf, int buflen)
+CopyArray(
+    char **src,
+    int elsize,
+    char *buf,
+    int buflen)
 {
     int i, j, len = 0;
     char *p, **new;
@@ -147,7 +151,10 @@ CopyArray(char **src, int elsize, char *buf, int buflen)
 
 
 static int
-CopyString(char *src, char *buf, int buflen)
+CopyString(
+    char *src,
+    char *buf,
+    int buflen)
 {
     int len = 0;
 
@@ -187,7 +194,10 @@ CopyString(char *src, char *buf, int buflen)
  */
 
 static int
-CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
+CopyHostent(
+    struct hostent *tgtPtr,
+    char *buf,
+    int buflen)
 {
     char *p = buf;
     int copied, len = 0;
@@ -244,7 +254,10 @@ CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
  */
 
 static int
-CopyPwd(struct passwd *tgtPtr, char *buf, int buflen)
+CopyPwd(
+    struct passwd *tgtPtr,
+    char *buf,
+    int buflen)
 {
     char *p = buf;
     int copied, len = 0;
@@ -305,7 +318,10 @@ CopyPwd(struct passwd *tgtPtr, char *buf, int buflen)
  */
 
 static int
-CopyGrp(struct group *tgtPtr, char *buf, int buflen)
+CopyGrp(
+    struct group *tgtPtr,
+    char *buf,
+    int buflen)
 {
     register char *p = buf;
     register int copied, len = 0;
@@ -363,7 +379,8 @@ CopyGrp(struct group *tgtPtr, char *buf, int buflen)
  */
 
 struct passwd *
-TclpGetPwNam(const char *name)
+TclpGetPwNam(
+    const char *name)
 {
 #if !defined(TCL_THREADS)
     return getpwnam(name);
@@ -415,7 +432,8 @@ TclpGetPwNam(const char *name)
  */
 
 struct passwd *
-TclpGetPwUid(uid_t uid)
+TclpGetPwUid(
+    uid_t uid)
 {
 #if !defined(TCL_THREADS)
     return getpwuid(uid);
@@ -467,7 +485,8 @@ TclpGetPwUid(uid_t uid)
  */
 
 struct group *
-TclpGetGrNam(const char *name)
+TclpGetGrNam(
+    const char *name)
 {
 #if !defined(TCL_THREADS)
     return getgrnam(name);
@@ -519,7 +538,8 @@ TclpGetGrNam(const char *name)
  */
 
 struct group *
-TclpGetGrGid(gid_t gid)
+TclpGetGrGid(
+    gid_t gid)
 {
 #if !defined(TCL_THREADS)
     return getgrgid(gid);
@@ -571,7 +591,8 @@ TclpGetGrGid(gid_t gid)
  */
 
 struct hostent *
-TclpGetHostByName(const char *name)
+TclpGetHostByName(
+    const char *name)
 {
 #if !defined(TCL_THREADS) || defined(HAVE_MTSAFE_GETHOSTBYNAME)
     return gethostbyname(name);
@@ -632,7 +653,10 @@ TclpGetHostByName(const char *name)
  */
 
 struct hostent *
-TclpGetHostByAddr(const char *addr, int length, int type)
+TclpGetHostByAddr(
+    const char *addr,
+    int length,
+    int type)
 {
 #if !defined(TCL_THREADS) || defined(HAVE_MTSAFE_GETHOSTBYADDR)
     return gethostbyaddr(addr, length, type);
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c
index 819fca6..934b8ec 100644
--- a/unix/tclUnixSock.c
+++ b/unix/tclUnixSock.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixSock.c,v 1.17 2006/09/07 09:17:33 vasiljevic Exp $
+ * RCS: @(#) $Id: tclUnixSock.c,v 1.18 2007/04/16 13:36:36 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -175,7 +175,7 @@ TclpHasSockets(
  */
 
 void
-TclpFinalizeSockets()
+TclpFinalizeSockets(void)
 {
     return;
 }
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index 54b77b7..eb339aa 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixTest.c,v 1.23 2006/11/13 08:23:12 das Exp $
+ * RCS: @(#) $Id: tclUnixTest.c,v 1.24 2007/04/16 13:36:36 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -698,11 +698,11 @@ TestgotsigCmd(
  */
 
 static int
-TestchmodCmd(dummy, interp, argc, argv)
-    ClientData dummy;			/* Not used. */
-    Tcl_Interp *interp;			/* Current interpreter. */
-    int argc;				/* Number of arguments. */
-    CONST char **argv;			/* Argument strings. */
+TestchmodCmd(
+    ClientData dummy,			/* Not used. */
+    Tcl_Interp *interp,			/* Current interpreter. */
+    int argc,				/* Number of arguments. */
+    CONST char **argv)			/* Argument strings. */
 {
     int i, mode;
     char *rest;
diff --git a/unix/tclUnixTime.c b/unix/tclUnixTime.c
index d73808d..660a831 100644
--- a/unix/tclUnixTime.c
+++ b/unix/tclUnixTime.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixTime.c,v 1.28 2007/03/19 16:59:09 dgp Exp $
+ * RCS: @(#) $Id: tclUnixTime.c,v 1.29 2007/04/16 13:36:36 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -193,7 +193,8 @@ TclpGetWideClicks(void)
  */
 
 Tcl_WideInt
-TclpWideClicksToNanoseconds(Tcl_WideInt clicks)
+TclpWideClicksToNanoseconds(
+    Tcl_WideInt clicks)
 {
     Tcl_WideInt nsec;
 
diff --git a/unix/tclXtNotify.c b/unix/tclXtNotify.c
index 3a8a749..f21e938 100644
--- a/unix/tclXtNotify.c
+++ b/unix/tclXtNotify.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclXtNotify.c,v 1.8 2005/11/02 23:26:50 dkf Exp $
+ * RCS: @(#) $Id: tclXtNotify.c,v 1.9 2007/04/16 13:36:36 dkf Exp $
  */
 
 #include <X11/Intrinsic.h>
@@ -111,8 +111,8 @@ EXTERN XtAppContext	TclSetAppContext(XtAppContext ctx);
  */
 
 XtAppContext
-TclSetAppContext(appContext)
-    XtAppContext appContext;
+TclSetAppContext(
+    XtAppContext appContext)
 {
     if (!initialized) {
 	InitNotifier();
@@ -178,7 +178,7 @@ TclSetAppContext(appContext)
  */
 
 void
-InitNotifier()
+InitNotifier(void)
 {
     Tcl_NotifierProcs notifier;
 
@@ -260,8 +260,8 @@ NotifierExitHandler(
  */
 
 static void
-SetTimer(timePtr)
-    Tcl_Time *timePtr;		/* Timeout value, may be NULL. */
+SetTimer(
+    Tcl_Time *timePtr)		/* Timeout value, may be NULL. */
 {
     long timeout;
 
@@ -299,9 +299,9 @@ SetTimer(timePtr)
  */
 
 static void
-TimerProc(data, id)
-    caddr_t data;		/* Not used. */
-    XtIntervalId *id;
+TimerProc(
+    caddr_t data,		/* Not used. */
+    XtIntervalId *id)
 {
     if (*id != notifier.currentTimeout) {
 	return;
@@ -329,15 +329,15 @@ TimerProc(data, id)
  */
 
 static void
-CreateFileHandler(fd, mask, proc, clientData)
-    int fd;			/* Handle of stream to watch. */
-    int mask;			/* OR'ed combination of TCL_READABLE,
+CreateFileHandler(
+    int fd,			/* Handle of stream to watch. */
+    int mask,			/* OR'ed combination of TCL_READABLE,
 				 * TCL_WRITABLE, and TCL_EXCEPTION: indicates
 				 * conditions under which proc should be
 				 * called. */
-    Tcl_FileProc *proc;		/* Procedure to call for each selected
+    Tcl_FileProc *proc,		/* Procedure to call for each selected
 				 * event. */
-    ClientData clientData;	/* Arbitrary data to pass to proc. */
+    ClientData clientData)	/* Arbitrary data to pass to proc. */
 {
     FileHandler *filePtr;
 
@@ -421,8 +421,8 @@ CreateFileHandler(fd, mask, proc, clientData)
  */
 
 static void
-DeleteFileHandler(fd)
-    int fd;			/* Stream id for which to remove callback
+DeleteFileHandler(
+    int fd)			/* Stream id for which to remove callback
 				 * procedure. */
 {
     FileHandler *filePtr, *prevPtr;
@@ -486,10 +486,10 @@ DeleteFileHandler(fd)
  */
 
 static void
-FileProc(clientData, fd, id)
-    caddr_t clientData;
-    int *fd;
-    XtInputId *id;
+FileProc(
+    caddr_t clientData,
+    int *fd,
+    XtInputId *id)
 {
     FileHandler *filePtr = (FileHandler *)clientData;
     FileHandlerEvent *fileEvPtr;
@@ -555,9 +555,9 @@ FileProc(clientData, fd, id)
  */
 
 static int
-FileHandlerEventProc(evPtr, flags)
-    Tcl_Event *evPtr;		/* Event to service. */
-    int flags;			/* Flags that indicate what events to handle,
+FileHandlerEventProc(
+    Tcl_Event *evPtr,		/* Event to service. */
+    int flags)			/* Flags that indicate what events to handle,
 				 * such as TCL_FILE_EVENTS. */
 {
     FileHandler *filePtr;