*/
#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[];
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[];
/*
* "::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[];
* "::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[];
/*
* "::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[];
}
-/* ARGSUSED */
static int
commandcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST 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[];
return err;
}
-/* ARGSUSED */
static int
exprcmd(dummy, interp, objc, objv)
- ClientData dummy;
+ ClientData dummy UNUSED;
Tcl_Interp *interp;
int objc;
Tcl_Obj *CONST objv[];
I/O Channel
********************************************/
-/* ARGSUSED */
static int
channel_close(instance, interp)
ClientData instance;
- Tcl_Interp *interp;
+ Tcl_Interp *interp UNUSED;
{
int err = 0;
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;
{
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;
NULL, /* set option */
NULL, /* get option */
channel_watch,
- channel_gethandle
+ channel_gethandle,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
};
/**********************************