From 514638fd758486513ea7eb842bb8972fd854ca06 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 4 Jun 2024 15:54:35 +0000 Subject: Make function definitions have right argument style --- generic/tclClockFmt.c | 10 +++++++--- generic/tclDictObj.c | 3 ++- generic/tclEncoding.c | 3 ++- generic/tclExecute.c | 6 ++++-- generic/tclListObj.c | 26 +++++++++++++++++++------- generic/tclZipfs.c | 12 +++++++----- unix/tclUnixFile.c | 5 +++-- win/tclWinConsole.c | 3 ++- 8 files changed, 46 insertions(+), 22 deletions(-) diff --git a/generic/tclClockFmt.c b/generic/tclClockFmt.c index ea5f0a5..fead7fd 100644 --- a/generic/tclClockFmt.c +++ b/generic/tclClockFmt.c @@ -1241,9 +1241,13 @@ ObjListSearch( /* currently unused */ static int -LocaleListSearch(ClockFmtScnCmdArgs *opts, - DateInfo *info, int mcKey, int *val, - int minLen, int maxLen) +LocaleListSearch( + ClockFmtScnCmdArgs *opts, + DateInfo *info, + int mcKey, + int *val, + int minLen, + int maxLen) { Tcl_Obj **lstv; Tcl_Size lstc; diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 428a3a6..ea989be 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -1058,7 +1058,8 @@ Tcl_DictObjRemove( */ Tcl_Size -TclDictGetSize(Tcl_Obj *dictPtr) +TclDictGetSize( + Tcl_Obj *dictPtr) { Dict *dict; DictGetInternalRep(dictPtr, dict); diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index f48bf63..129ca51 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -4373,7 +4373,8 @@ TclEncodingProfileIdToName( *------------------------------------------------------------------------ */ void -TclGetEncodingProfiles(Tcl_Interp *interp) +TclGetEncodingProfiles( + Tcl_Interp *interp) { size_t i, n; Tcl_Obj *objPtr; diff --git a/generic/tclExecute.c b/generic/tclExecute.c index a0d04e8..5d4bff3 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -7865,8 +7865,10 @@ FinalizeOONextFilter( * Helper to calculate small powers of integers whose result is wide. */ static inline Tcl_WideInt -WidePwrSmallExpon(Tcl_WideInt w1, long exponent) { - +WidePwrSmallExpon( + Tcl_WideInt w1, + long exponent) +{ Tcl_WideInt wResult; wResult = w1 * w1; /* b**2 */ diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 2ffaf87..683a0e7 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -266,7 +266,8 @@ ListSpanNew( *------------------------------------------------------------------------ */ static inline void -ListSpanDecrRefs(ListSpan *spanPtr) +ListSpanDecrRefs( + ListSpan *spanPtr) { if (spanPtr->refCount <= 1) { Tcl_Free(spanPtr); @@ -343,7 +344,8 @@ ListSpanMerited( *------------------------------------------------------------------------ */ static inline void -ListRepFreeUnreferenced(const ListRep *repPtr) +ListRepFreeUnreferenced( + const ListRep *repPtr) { if (! ListRepIsShared(repPtr) && repPtr->spanPtr) { /* T:listrep-1.5.1 */ @@ -492,7 +494,8 @@ MemoryAllocationError( *------------------------------------------------------------------------ */ static int -ListLimitExceededError(Tcl_Interp *interp) +ListLimitExceededError( + Tcl_Interp *interp) { if (interp != NULL) { Tcl_SetObjResult( @@ -523,7 +526,9 @@ ListLimitExceededError(Tcl_Interp *interp) *------------------------------------------------------------------------ */ static inline void -ListRepUnsharedShiftDown(ListRep *repPtr, Tcl_Size shiftCount) +ListRepUnsharedShiftDown( + ListRep *repPtr, + Tcl_Size shiftCount) { ListStore *storePtr; @@ -578,7 +583,9 @@ ListRepUnsharedShiftDown(ListRep *repPtr, Tcl_Size shiftCount) */ #if 0 static inline void -ListRepUnsharedShiftUp(ListRep *repPtr, Tcl_Size shiftCount) +ListRepUnsharedShiftUp( + ListRep *repPtr, + Tcl_Size shiftCount) { ListStore *storePtr; @@ -624,7 +631,10 @@ ListRepUnsharedShiftUp(ListRep *repPtr, Tcl_Size shiftCount) *------------------------------------------------------------------------ */ static void -ListRepValidate(const ListRep *repPtr, const char *file, int lineNum) +ListRepValidate( + const ListRep *repPtr, + const char *file, + int lineNum) { ListStore *storePtr = repPtr->storePtr; const char *condition; @@ -689,7 +699,9 @@ failure: *------------------------------------------------------------------------ */ void -TclListObjValidate(Tcl_Interp *interp, Tcl_Obj *listObj) +TclListObjValidate( + Tcl_Interp *interp, + Tcl_Obj *listObj) { ListRep listRep; if (TclListObjGetRep(interp, listObj, &listRep) != TCL_OK) { diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index b41126e..4fef38c 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -875,7 +875,7 @@ static char * DecodeZipEntryText( const unsigned char *inputBytes, unsigned int inputLength, - Tcl_DString *dstPtr) /* Must have been initialized by caller! */ + Tcl_DString *dstPtr) /* Must have been initialized by caller! */ { Tcl_Encoding encoding; const char *src; @@ -980,9 +980,10 @@ DecodeZipEntryText( *------------------------------------------------------------------------ */ static int -NormalizeMountPoint(Tcl_Interp *interp, - const char *mountPath, - Tcl_DString *dsPtr) /* Must be initialized by caller! */ +NormalizeMountPoint( + Tcl_Interp *interp, + const char *mountPath, + Tcl_DString *dsPtr) /* Must be initialized by caller! */ { const char *joiner[2]; char *joinedPath; @@ -2230,7 +2231,8 @@ ListMountPoints( *------------------------------------------------------------------------ */ static void -CleanupMount(ZipFile *zf) /* Mount point */ +CleanupMount( + ZipFile *zf) /* Mount point */ { ZipEntry *z, *znext; Tcl_HashEntry *hPtr; diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 93f6aa8..e91ed41 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -13,8 +13,9 @@ #include "tclInt.h" #include "tclFileSystem.h" -static int NativeMatchType(Tcl_Interp *interp, const char* nativeEntry, - const char* nativeName, Tcl_GlobTypeData *types); +static int NativeMatchType(Tcl_Interp *interp, + const char* nativeEntry, const char* nativeName, + Tcl_GlobTypeData *types); /* *--------------------------------------------------------------------------- diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index d7be807..a498200 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -2067,7 +2067,8 @@ AllocateConsoleHandleInfo( *------------------------------------------------------------------------ */ static ConsoleHandleInfo * -FindConsoleInfo(const ConsoleChannelInfo *chanInfoPtr) +FindConsoleInfo( + const ConsoleChannelInfo *chanInfoPtr) { ConsoleHandleInfo *handleInfoPtr; for (handleInfoPtr = gConsoleHandleInfoList; handleInfoPtr; handleInfoPtr = handleInfoPtr->nextPtr) { -- cgit v0.12