From 4e3226d9c81078ec820fab6335987f7a2a2c2020 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 13 Feb 2007 00:30:19 +0000 Subject: Fix minor K&R-ism --- generic/tkOldConfig.c | 108 +++++++++++++++++++++++++------------------------- 1 file changed, 54 insertions(+), 54 deletions(-) diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c index ce2c544..944c4ef 100644 --- a/generic/tkOldConfig.c +++ b/generic/tkOldConfig.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkOldConfig.c,v 1.20 2005/11/17 16:21:56 dkf Exp $ + * RCS: @(#) $Id: tkOldConfig.c,v 1.21 2007/02/13 00:30:19 dkf Exp $ */ #include "tkPort.h" @@ -71,16 +71,16 @@ static void DeleteSpecCacheTable(ClientData clientData, */ int -Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags) - Tcl_Interp *interp; /* Interpreter for error reporting. */ - Tk_Window tkwin; /* Window containing widget (needed to set up +Tk_ConfigureWidget( + Tcl_Interp *interp, /* Interpreter for error reporting. */ + Tk_Window tkwin, /* Window containing widget (needed to set up * X resources). */ - Tk_ConfigSpec *specs; /* Describes legal options. */ - int argc; /* Number of elements in argv. */ - CONST char **argv; /* Command-line options. */ - char *widgRec; /* Record whose fields are to be modified. + Tk_ConfigSpec *specs, /* Describes legal options. */ + int argc, /* Number of elements in argv. */ + CONST char **argv, /* Command-line options. */ + char *widgRec, /* Record whose fields are to be modified. * Values must be properly initialized. */ - int flags; /* Used to specify additional flags that must + int flags) /* Used to specify additional flags that must * be present in config specs for them to be * considered. Also, may have * TK_CONFIG_ARGV_ONLY set. */ @@ -239,15 +239,15 @@ Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags) */ static Tk_ConfigSpec * -FindConfigSpec(interp, specs, argvName, needFlags, hateFlags) - Tcl_Interp *interp; /* Used for reporting errors. */ - Tk_ConfigSpec *specs; /* Pointer to table of configuration +FindConfigSpec( + Tcl_Interp *interp, /* Used for reporting errors. */ + Tk_ConfigSpec *specs, /* Pointer to table of configuration * specifications for a widget. */ - CONST char *argvName; /* Name (suitable for use in a "config" + CONST char *argvName, /* Name (suitable for use in a "config" * command) identifying particular option. */ - int needFlags; /* Flags that must be present in matching + int needFlags, /* Flags that must be present in matching * entry. */ - int hateFlags; /* Flags that must NOT be present in matching + int hateFlags) /* Flags that must NOT be present in matching * entry. */ { register Tk_ConfigSpec *specPtr; @@ -331,15 +331,15 @@ FindConfigSpec(interp, specs, argvName, needFlags, hateFlags) */ static int -DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec) - Tcl_Interp *interp; /* Interpreter for error reporting. */ - Tk_Window tkwin; /* Window containing widget (needed to set up +DoConfig( + Tcl_Interp *interp, /* Interpreter for error reporting. */ + Tk_Window tkwin, /* Window containing widget (needed to set up * X resources). */ - Tk_ConfigSpec *specPtr; /* Specifier to apply. */ - Tk_Uid value; /* Value to use to fill in widgRec. */ - int valueIsUid; /* Non-zero means value is a Tk_Uid; zero + Tk_ConfigSpec *specPtr, /* Specifier to apply. */ + Tk_Uid value, /* Value to use to fill in widgRec. */ + int valueIsUid, /* Non-zero means value is a Tk_Uid; zero * means it's an ordinary string. */ - char *widgRec; /* Record whose fields are to be modified. + char *widgRec) /* Record whose fields are to be modified. * Values must be properly initialized. */ { char *ptr; @@ -592,16 +592,16 @@ DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec) */ int -Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags) - Tcl_Interp *interp; /* Interpreter for error reporting. */ - Tk_Window tkwin; /* Window corresponding to widgRec. */ - Tk_ConfigSpec *specs; /* Describes legal options. */ - char *widgRec; /* Record whose fields contain current values +Tk_ConfigureInfo( + Tcl_Interp *interp, /* Interpreter for error reporting. */ + Tk_Window tkwin, /* Window corresponding to widgRec. */ + Tk_ConfigSpec *specs, /* Describes legal options. */ + char *widgRec, /* Record whose fields contain current values * for options. */ - CONST char *argvName; /* If non-NULL, indicates a single option + CONST char *argvName, /* If non-NULL, indicates a single option * whose info is to be returned. Otherwise * info is returned for all options. */ - int flags; /* Used to specify additional flags that must + int flags) /* Used to specify additional flags that must * be present in config specs for them to be * considered. */ { @@ -683,14 +683,14 @@ Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags) */ static char * -FormatConfigInfo(interp, tkwin, specPtr, widgRec) - Tcl_Interp *interp; /* Interpreter to use for things like +FormatConfigInfo( + Tcl_Interp *interp, /* Interpreter to use for things like * floating-point precision. */ - Tk_Window tkwin; /* Window corresponding to widget. */ - register Tk_ConfigSpec *specPtr; + Tk_Window tkwin, /* Window corresponding to widget. */ + register Tk_ConfigSpec *specPtr, /* Pointer to information describing * option. */ - char *widgRec; /* Pointer to record holding current values of + char *widgRec) /* Pointer to record holding current values of * info for widget. */ { CONST char *argv[6]; @@ -751,16 +751,16 @@ FormatConfigInfo(interp, tkwin, specPtr, widgRec) */ static CONST char * -FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr) - Tcl_Interp *interp; /* Interpreter for use in real conversions. */ - Tk_Window tkwin; /* Window corresponding to widget. */ - Tk_ConfigSpec *specPtr; /* Pointer to information describing option. +FormatConfigValue( + Tcl_Interp *interp, /* Interpreter for use in real conversions. */ + Tk_Window tkwin, /* Window corresponding to widget. */ + Tk_ConfigSpec *specPtr, /* Pointer to information describing option. * Must not point to a synonym option. */ - char *widgRec; /* Pointer to record holding current values of + char *widgRec, /* Pointer to record holding current values of * info for widget. */ - char *buffer; /* Static buffer to use for small values. + char *buffer, /* Static buffer to use for small values. * Must have at least 200 bytes of storage. */ - Tcl_FreeProc **freeProcPtr; /* Pointer to word to fill in with address of + Tcl_FreeProc **freeProcPtr) /* Pointer to word to fill in with address of * function to free the result, or NULL if * result is static. */ { @@ -904,15 +904,15 @@ FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr) */ int -Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags) - Tcl_Interp *interp; /* Interpreter for error reporting. */ - Tk_Window tkwin; /* Window corresponding to widgRec. */ - Tk_ConfigSpec *specs; /* Describes legal options. */ - char *widgRec; /* Record whose fields contain current values +Tk_ConfigureValue( + Tcl_Interp *interp, /* Interpreter for error reporting. */ + Tk_Window tkwin, /* Window corresponding to widgRec. */ + Tk_ConfigSpec *specs, /* Describes legal options. */ + char *widgRec, /* Record whose fields contain current values * for options. */ - CONST char *argvName; /* Gives the command-line name for the option + CONST char *argvName, /* Gives the command-line name for the option * whose value is to be returned. */ - int flags; /* Used to specify additional flags that must + int flags) /* Used to specify additional flags that must * be present in config specs for them to be * considered. */ { @@ -975,13 +975,13 @@ Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags) /* ARGSUSED */ void -Tk_FreeOptions(specs, widgRec, display, needFlags) - Tk_ConfigSpec *specs; /* Describes legal options. */ - char *widgRec; /* Record whose fields contain current values +Tk_FreeOptions( + Tk_ConfigSpec *specs, /* Describes legal options. */ + char *widgRec, /* Record whose fields contain current values * for options. */ - Display *display; /* X display; needed for freeing some + Display *display, /* X display; needed for freeing some * resources. */ - int needFlags; /* Used to specify additional flags that must + int needFlags) /* Used to specify additional flags that must * be present in config specs for them to be * considered. */ { @@ -1110,7 +1110,7 @@ GetCachedSpecs( */ cachedSpecs = (Tk_ConfigSpec *) ckalloc(entrySpace); - memcpy((void *) cachedSpecs, (void *) staticSpecs, entrySpace); + memcpy(cachedSpecs, staticSpecs, entrySpace); Tcl_SetHashValue(entryPtr, (ClientData) cachedSpecs); /* -- cgit v0.12