From 93b10873c6edf504fe3aa5358bf31b80a6bd97b1 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 9 Nov 2005 13:52:42 +0000
Subject: More ANSIfying

---
 generic/tclLink.c | 50 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/generic/tclLink.c b/generic/tclLink.c
index 0dcb995..9a1f53f 100644
--- a/generic/tclLink.c
+++ b/generic/tclLink.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: tclLink.c,v 1.14 2005/11/04 22:38:38 msofer Exp $
+ * RCS: @(#) $Id: tclLink.c,v 1.15 2005/11/09 13:52:42 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -63,7 +63,7 @@ typedef struct Link {
 #define LINK_BEING_UPDATED	2
 
 /*
- * Forward references to procedures defined later in this file:
+ * Forward references to functions defined later in this file:
  */
 
 static char *		LinkTraceProc(ClientData clientData,Tcl_Interp *interp,
@@ -91,12 +91,12 @@ static Tcl_Obj *	ObjValue(Link *linkPtr);
  */
 
 int
-Tcl_LinkVar(interp, varName, addr, type)
-    Tcl_Interp *interp;		/* Interpreter in which varName exists. */
-    CONST char *varName;	/* Name of a global variable in interp. */
-    char *addr;			/* Address of a C variable to be linked to
+Tcl_LinkVar(
+    Tcl_Interp *interp,		/* Interpreter in which varName exists. */
+    CONST char *varName,	/* Name of a global variable in interp. */
+    char *addr,			/* Address of a C variable to be linked to
 				 * varName. */
-    int type;			/* Type of C variable: TCL_LINK_INT, etc. Also
+    int type)			/* Type of C variable: TCL_LINK_INT, etc. Also
 				 * may have TCL_LINK_READ_ONLY OR'ed in. */
 {
     Tcl_Obj *objPtr;
@@ -150,9 +150,9 @@ Tcl_LinkVar(interp, varName, addr, type)
  */
 
 void
-Tcl_UnlinkVar(interp, varName)
-    Tcl_Interp *interp;		/* Interpreter containing variable to unlink */
-    CONST char *varName;	/* Global variable in interp to unlink. */
+Tcl_UnlinkVar(
+    Tcl_Interp *interp,		/* Interpreter containing variable to unlink */
+    CONST char *varName)	/* Global variable in interp to unlink. */
 {
     Link *linkPtr;
 
@@ -173,9 +173,9 @@ Tcl_UnlinkVar(interp, varName)
  *
  * Tcl_UpdateLinkedVar --
  *
- *	This procedure is invoked after a linked variable has been changed by
- *	C code. It updates the Tcl variable so that traces on the variable
- *	will trigger.
+ *	This function is invoked after a linked variable has been changed by C
+ *	code. It updates the Tcl variable so that traces on the variable will
+ *	trigger.
  *
  * Results:
  *	None.
@@ -188,9 +188,9 @@ Tcl_UnlinkVar(interp, varName)
  */
 
 void
-Tcl_UpdateLinkedVar(interp, varName)
-    Tcl_Interp *interp;		/* Interpreter containing variable. */
-    CONST char *varName;	/* Name of global variable that is linked. */
+Tcl_UpdateLinkedVar(
+    Tcl_Interp *interp,		/* Interpreter containing variable. */
+    CONST char *varName)	/* Name of global variable that is linked. */
 {
     Link *linkPtr;
     int savedFlag;
@@ -212,7 +212,7 @@ Tcl_UpdateLinkedVar(interp, varName)
  *
  * LinkTraceProc --
  *
- *	This procedure is invoked when a linked Tcl variable is read, written,
+ *	This function is invoked when a linked Tcl variable is read, written,
  *	or unset from Tcl. It's responsible for keeping the C variable in sync
  *	with the Tcl variable.
  *
@@ -229,12 +229,12 @@ Tcl_UpdateLinkedVar(interp, varName)
  */
 
 static char *
-LinkTraceProc(clientData, interp, name1, name2, flags)
-    ClientData clientData;	/* Contains information about the link. */
-    Tcl_Interp *interp;		/* Interpreter containing Tcl variable. */
-    CONST char *name1;		/* First part of variable name. */
-    CONST char *name2;		/* Second part of variable name. */
-    int flags;			/* Miscellaneous additional information. */
+LinkTraceProc(
+    ClientData clientData,	/* Contains information about the link. */
+    Tcl_Interp *interp,		/* Interpreter containing Tcl variable. */
+    CONST char *name1,		/* First part of variable name. */
+    CONST char *name2,		/* Second part of variable name. */
+    int flags)			/* Miscellaneous additional information. */
 {
     Link *linkPtr = (Link *) clientData;
     int changed, valueLength;
@@ -543,8 +543,8 @@ LinkTraceProc(clientData, interp, name1, name2, flags)
  */
 
 static Tcl_Obj *
-ObjValue(linkPtr)
-    Link *linkPtr;		/* Structure describing linked variable. */
+ObjValue(
+    Link *linkPtr)		/* Structure describing linked variable. */
 {
     char *p;
 
-- 
cgit v0.12