summaryrefslogtreecommitdiffstats
path: root/generic/tclPkg.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2024-05-13 15:41:44 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2024-05-13 15:41:44 (GMT)
commit444e06f208e9503a7e93cd68a51ed73c3c82298b (patch)
tree5b346cf1401c23c69c43d84a1eb6986e442c7dfd /generic/tclPkg.c
parent6b9279d4f7c2ab12d40ffbce3629b8c79bc94136 (diff)
downloadtcl-444e06f208e9503a7e93cd68a51ed73c3c82298b.zip
tcl-444e06f208e9503a7e93cd68a51ed73c3c82298b.tar.gz
tcl-444e06f208e9503a7e93cd68a51ed73c3c82298b.tar.bz2
Clean up a lot of small whitespace issues
This is the dullest commit ever. Sorry.
Diffstat (limited to 'generic/tclPkg.c')
-rw-r--r--generic/tclPkg.c46
1 files changed, 28 insertions, 18 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c
index 50884a1..ffc038d 100644
--- a/generic/tclPkg.c
+++ b/generic/tclPkg.c
@@ -96,26 +96,36 @@ static void AddRequirementsToResult(Tcl_Interp *interp, int reqc,
static void AddRequirementsToDString(Tcl_DString *dstring,
int reqc, Tcl_Obj *const reqv[]);
static Package * FindPackage(Tcl_Interp *interp, const char *name);
-static int PkgRequireCore(void *data[], Tcl_Interp *interp, int result);
-static int PkgRequireCoreFinal(void *data[], Tcl_Interp *interp, int result);
-static int PkgRequireCoreCleanup(void *data[], Tcl_Interp *interp, int result);
-static int PkgRequireCoreStep1(void *data[], Tcl_Interp *interp, int result);
-static int PkgRequireCoreStep2(void *data[], Tcl_Interp *interp, int result);
-static int TclNRPkgRequireProc(void *clientData, Tcl_Interp *interp, int reqc, Tcl_Obj *const reqv[]);
-static int SelectPackage(void *data[], Tcl_Interp *interp, int result);
-static int SelectPackageFinal(void *data[], Tcl_Interp *interp, int result);
-static int TclNRPackageObjCmdCleanup(void *data[], Tcl_Interp *interp, int result);
+static int PkgRequireCore(void *data[], Tcl_Interp *interp,
+ int result);
+static int PkgRequireCoreFinal(void *data[], Tcl_Interp *interp,
+ int result);
+static int PkgRequireCoreCleanup(void *data[], Tcl_Interp *interp,
+ int result);
+static int PkgRequireCoreStep1(void *data[], Tcl_Interp *interp,
+ int result);
+static int PkgRequireCoreStep2(void *data[], Tcl_Interp *interp,
+ int result);
+static int TclNRPkgRequireProc(void *clientData,
+ Tcl_Interp *interp, int reqc,
+ Tcl_Obj *const reqv[]);
+static int SelectPackage(void *data[], Tcl_Interp *interp,
+ int result);
+static int SelectPackageFinal(void *data[], Tcl_Interp *interp,
+ int result);
+static int TclNRPackageObjCmdCleanup(void *data[],
+ Tcl_Interp *interp, int result);
/*
* Helper macros.
*/
-#define DupBlock(v,s,len) \
- ((v) = (char *)Tcl_Alloc(len), memcpy((v),(s),(len)))
-#define DupString(v,s) \
- do { \
- size_t local__len = strlen(s) + 1; \
- DupBlock((v),(s),local__len); \
+#define DupBlock(var, str, len) \
+ ((var) = (char *) Tcl_Alloc(len), memcpy((var), (str), (len)))
+#define DupString(var, str) \
+ do { \
+ size_t local__len = strlen(str) + 1; \
+ DupBlock((var), (str), local__len); \
} while (0)
/*
@@ -1250,7 +1260,7 @@ TclNRPackageObjCmd(
hPtr = Tcl_NextHashEntry(&search)) {
pkgPtr = (Package *)Tcl_GetHashValue(hPtr);
if ((pkgPtr->version != NULL) || (pkgPtr->availPtr != NULL)) {
- Tcl_ListObjAppendElement(NULL,resultObj, Tcl_NewStringObj(
+ Tcl_ListObjAppendElement(NULL, resultObj, Tcl_NewStringObj(
(char *)Tcl_GetHashKey(tablePtr, hPtr), -1));
}
}
@@ -1365,7 +1375,7 @@ TclNRPackageObjCmd(
TclListObjGetElements(interp, objvListPtr, &newobjc, &newObjvPtr);
Tcl_NRAddCallback(interp,
- TclNRPackageObjCmdCleanup, objv[3], objvListPtr, NULL,NULL);
+ TclNRPackageObjCmdCleanup, objv[3], objvListPtr, NULL, NULL);
Tcl_NRAddCallback(interp,
PkgRequireCore, (void *) argv3, INT2PTR(newobjc),
newObjvPtr, NULL);
@@ -1391,7 +1401,7 @@ TclNRPackageObjCmd(
}
TclListObjGetElements(interp, objvListPtr, &newobjc, &newObjvPtr);
Tcl_NRAddCallback(interp,
- TclNRPackageObjCmdCleanup, objv[2], objvListPtr, NULL,NULL);
+ TclNRPackageObjCmdCleanup, objv[2], objvListPtr, NULL, NULL);
Tcl_NRAddCallback(interp,
PkgRequireCore, (void *) argv2, INT2PTR(newobjc),
newObjvPtr, NULL);