Mercurial > vim
changeset 1889:c7537662746d v7.2.186
updated for version 7.2-186
author | vimboss |
---|---|
date | Fri, 22 May 2009 19:08:31 +0000 |
parents | ae2251be41f9 |
children | 2928a6b338c3 |
files | src/if_tcl.c src/version.c |
diffstat | 2 files changed, 27 insertions(+), 30 deletions(-) [+] |
line wrap: on
line diff
--- 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, de 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, er 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 }; /**********************************