diff options
author | dkf <dkf@noemail.net> | 2005-08-26 13:41:22 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2005-08-26 13:41:22 (GMT) |
commit | f9b055efa10a895d1e3ceada95fab531caf60b72 (patch) | |
tree | e32967bd71fd1f0f67203fdd136d17f15097c51e /generic/tclLink.c | |
parent | 148e62fd916a13eda1da2f19bfa388b013046793 (diff) | |
download | tcl-f9b055efa10a895d1e3ceada95fab531caf60b72.zip tcl-f9b055efa10a895d1e3ceada95fab531caf60b72.tar.gz tcl-f9b055efa10a895d1e3ceada95fab531caf60b72.tar.bz2 |
Remove _ANSI_ARGS_
FossilOrigin-Name: 63474c1c0a99a602d81606c37d71df85da7d448b
Diffstat (limited to 'generic/tclLink.c')
-rw-r--r-- | generic/tclLink.c | 38 |
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) { |