diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-11-06 15:35:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-11-06 15:35:39 (GMT) |
| commit | 038dfd11b370a3cfa4b3aba72975da86ffbf0f85 (patch) | |
| tree | 7ae5beebb3ebfaf167186503d9b06cd55f22baec | |
| parent | 28fb151fd7e657361b27b69214c2526e416ccd02 (diff) | |
| download | tcl-038dfd11b370a3cfa4b3aba72975da86ffbf0f85.zip tcl-038dfd11b370a3cfa4b3aba72975da86ffbf0f85.tar.gz tcl-038dfd11b370a3cfa4b3aba72975da86ffbf0f85.tar.bz2 | |
Make more use of the Tcl_ObjCmdProc typedef for tidier branch merging.
| -rw-r--r-- | generic/tclBinary.c | 32 |
1 files changed, 8 insertions, 24 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index eb85103..d42eb50 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -71,31 +71,15 @@ static int NeedReversing(int format); static void CopyNumber(const void *from, void *to, unsigned length, int type); /* Binary ensemble commands */ -static int BinaryFormatCmd(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryScanCmd(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); +static Tcl_ObjCmdProc BinaryFormatCmd; +static Tcl_ObjCmdProc BinaryScanCmd; /* Binary encoding sub-ensemble commands */ -static int BinaryEncodeHex(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryDecodeHex(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryEncode64(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryDecode64(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryEncodeUu(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -static int BinaryDecodeUu(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); +static Tcl_ObjCmdProc BinaryEncodeHex; +static Tcl_ObjCmdProc BinaryDecodeHex; +static Tcl_ObjCmdProc BinaryEncode64; +static Tcl_ObjCmdProc BinaryDecode64; +static Tcl_ObjCmdProc BinaryEncodeUu; +static Tcl_ObjCmdProc BinaryDecodeUu; /* * The following tables are used by the binary encoders |