summaryrefslogtreecommitdiff
path: root/src/if_tcl.c
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2009-05-22 19:08:31 +0000
committerBram Moolenaar <Bram@vim.org>2009-05-22 19:08:31 +0000
commit30f9ca9f5983ebbbc4c8ffeafaf5a00de69fe6a5 (patch)
tree88add50a1c9fb5997655737ed0b6ff2c6b0127b9 /src/if_tcl.c
parentcd8b20a91474d576cb5db319fc3b2a32ca20b6fe (diff)
downloadvim-git-30f9ca9f5983ebbbc4c8ffeafaf5a00de69fe6a5.tar.gz
updated for version 7.2-186v7.2.186
Diffstat (limited to 'src/if_tcl.c')
-rw-r--r--src/if_tcl.c55
1 files changed, 25 insertions, 30 deletions
diff --git a/src/if_tcl.c b/src/if_tcl.c
index ce00246bb..0f4daed0a 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -290,10 +290,9 @@ tcl_end()
*/
#define TCL_EXIT 5
-/* ARGSUSED */
static int
exitcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -315,10 +314,9 @@ exitcmd(dummy, interp, objc, objv)
return TCL_ERROR;
}
-/* ARGSUSED */
static int
catchcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -356,10 +354,9 @@ catchcmd(dummy, interp, objc, objv)
/*
* "::vim::beep" - what Vi[m] does best :-)
*/
-/* ARGSUSED */
static int
beepcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -378,10 +375,9 @@ beepcmd(dummy, interp, objc, objv)
* "::vim::buffer {N}" - create buffer command for buffer N.
* "::vim::buffer new" - create a new buffer (not implemented)
*/
-/* ARGSUSED */
static int
buffercmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -475,10 +471,9 @@ buffercmd(dummy, interp, objc, objv)
/*
* "::vim::window list" - create list of window commands.
*/
-/* ARGSUSED */
static int
windowcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -1130,10 +1125,9 @@ winselfcmd(ref, interp, objc, objv)
}
-/* ARGSUSED */
static int
commandcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -1145,10 +1139,9 @@ commandcmd(dummy, interp, objc, objv)
return err;
}
-/* ARGSUSED */
static int
optioncmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -1160,10 +1153,9 @@ optioncmd(dummy, interp, objc, objv)
return err;
}
-/* ARGSUSED */
static int
exprcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
@@ -1584,11 +1576,10 @@ tclsetdelcmd(interp, reflist, vimobj, delcmd)
I/O Channel
********************************************/
-/* ARGSUSED */
static int
channel_close(instance, interp)
ClientData instance;
- Tcl_Interp *interp;
+ Tcl_Interp *interp UNUSED;
{
int err = 0;
@@ -1602,12 +1593,11 @@ channel_close(instance, interp)
return err;
}
-/* ARGSUSED */
static int
channel_input(instance, buf, bufsiz, errptr)
- ClientData instance;
- char *buf;
- int bufsiz;
+ ClientData instance UNUSED;
+ char *buf UNUSED;
+ int bufsiz UNUSED;
int *errptr;
{
@@ -1659,21 +1649,19 @@ channel_output(instance, buf, bufsiz, errptr)
return result;
}
-/* ARGSUSED */
static void
channel_watch(instance, mask)
- ClientData instance;
- int mask;
+ ClientData instance UNUSED;
+ int mask UNUSED;
{
Tcl_SetErrno(EINVAL);
}
-/* ARGSUSED */
static int
channel_gethandle(instance, direction, handleptr)
- ClientData instance;
- int direction;
- ClientData *handleptr;
+ ClientData instance UNUSED;
+ int direction UNUSED;
+ ClientData *handleptr UNUSED;
{
Tcl_SetErrno(EINVAL);
return EINVAL;
@@ -1691,7 +1679,14 @@ static Tcl_ChannelType channel_type =
NULL, /* set option */
NULL, /* get option */
channel_watch,
- channel_gethandle
+ channel_gethandle,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
};
/**********************************