summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-08-26 13:41:23 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-08-26 13:41:23 (GMT)
commite08f4fb074582dfbdbea021407ab05f11b214346 (patch)
treee32967bd71fd1f0f67203fdd136d17f15097c51e /generic
parent29e1d6e604156f693e68b0fa10ebca41e402b80d (diff)
downloadtcl-e08f4fb074582dfbdbea021407ab05f11b214346.zip
tcl-e08f4fb074582dfbdbea021407ab05f11b214346.tar.gz
tcl-e08f4fb074582dfbdbea021407ab05f11b214346.tar.bz2
Remove _ANSI_ARGS_
Diffstat (limited to 'generic')
-rw-r--r--generic/tclLink.c38
1 files changed, 18 insertions, 20 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c
index d04db83..16910b6 100644
--- a/generic/tclLink.c
+++ b/generic/tclLink.c
@@ -1,8 +1,8 @@
-/*
+/*
* tclLink.c --
*
* This file implements linked variables (a C variable that is tied to a
- * Tcl variable). The idea of linked variables was first suggested by
+ * Tcl variable). The idea of linked variables was first suggested by
* Andreas Stolcke and this implementation is based heavily on a
* prototype implementation provided by him.
*
@@ -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.10 2005/07/17 21:17:43 dkf Exp $
+ * RCS: @(#) $Id: tclLink.c,v 1.11 2005/08/26 13:41:23 dkf Exp $
*/
#include "tclInt.h"
@@ -25,7 +25,7 @@
typedef struct Link {
Tcl_Interp *interp; /* Interpreter containing Tcl variable. */
- Tcl_Obj *varName; /* Name of variable (must be global). This is
+ Tcl_Obj *varName; /* Name of variable (must be global). This is
* needed during trace callbacks, since the
* actual variable may be aliased at that time
* via upvar. */
@@ -57,10 +57,9 @@ typedef struct Link {
* Forward references to procedures defined later in this file:
*/
-static char * LinkTraceProc _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, CONST char *name1,
- CONST char *name2, int flags));
-static Tcl_Obj * ObjValue _ANSI_ARGS_((Link *linkPtr));
+static char * LinkTraceProc(ClientData clientData,Tcl_Interp *interp,
+ CONST char *name1, CONST char *name2, int flags);
+static Tcl_Obj * ObjValue(Link *linkPtr);
/*
*----------------------------------------------------------------------
@@ -88,9 +87,8 @@ Tcl_LinkVar(interp, varName, addr, type)
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 may have TCL_LINK_READ_ONLY OR'ed
- * in. */
+ int type; /* Type of C variable: TCL_LINK_INT, etc. Also
+ * may have TCL_LINK_READ_ONLY OR'ed in. */
{
Tcl_Obj *objPtr;
Link *linkPtr;
@@ -137,7 +135,7 @@ Tcl_LinkVar(interp, varName, addr, type)
*
* Side effects:
* If "varName" was previously linked to a C variable, the link is broken
- * to make the variable independent. If there was no previous link for
+ * to make the variable independent. If there was no previous link for
* "varName" then nothing happens.
*
*----------------------------------------------------------------------
@@ -168,7 +166,7 @@ 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
+ * C code. It updates the Tcl variable so that traces on the variable
* will trigger.
*
* Results:
@@ -257,7 +255,7 @@ LinkTraceProc(clientData, interp, name1, name2, flags)
/*
* If we were invoked because of a call to Tcl_UpdateLinkedVar, then don't
- * do anything at all. In particular, we don't want to get upset that the
+ * do anything at all. In particular, we don't want to get upset that the
* variable is being modified, even if it is supposed to be read-only.
*/
@@ -296,12 +294,12 @@ LinkTraceProc(clientData, interp, name1, name2, flags)
}
/*
- * For writes, first make sure that the variable is writable. Then
- * convert the Tcl value to C if possible. If the variable isn't writable
- * or can't be converted, then restore the varaible's old value and return
- * an error. Another tricky thing: we have to save and restore the
- * interpreter's result, since the variable access could occur when the
- * result has been partially set.
+ * For writes, first make sure that the variable is writable. Then convert
+ * the Tcl value to C if possible. If the variable isn't writable or can't
+ * be converted, then restore the varaible's old value and return an
+ * error. Another tricky thing: we have to save and restore the interp's
+ * result, since the variable access could occur when the result has been
+ * partially set.
*/
if (linkPtr->flags & LINK_READ_ONLY) {