diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-04 00:06:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-04 00:06:49 (GMT) |
| commit | 1917d75e5fe50a58035bc8a2a47fdca8338ec9d7 (patch) | |
| tree | 86211e81a05bc3c61493644f91017b9b65f71771 /win/tclWinReg.c | |
| parent | 169a78358af41a6e77a814a0a73f663542c51a6f (diff) | |
| download | tcl-1917d75e5fe50a58035bc8a2a47fdca8338ec9d7.zip tcl-1917d75e5fe50a58035bc8a2a47fdca8338ec9d7.tar.gz tcl-1917d75e5fe50a58035bc8a2a47fdca8338ec9d7.tar.bz2 | |
ANSIfy
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 902237d..cebb97c 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.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: tclWinReg.c,v 1.33 2005/07/24 22:56:49 dkf Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.34 2005/11/04 00:06:51 dkf Exp $ */ #include "tclInt.h" @@ -195,8 +195,8 @@ static int SetValue(Tcl_Interp *interp, Tcl_Obj *keyNameObj, Tcl_Obj *valueNameObj, Tcl_Obj *dataObj, Tcl_Obj *typeObj); -EXTERN int Registry_Init(Tcl_Interp *interp); -EXTERN int Registry_Unload(Tcl_Interp *interp, int flags); +EXTERN int Registry_Init(Tcl_Interp *interp); +EXTERN int Registry_Unload(Tcl_Interp *interp, int flags); /* *---------------------------------------------------------------------- @@ -304,7 +304,8 @@ Registry_Unload( */ static void -DeleteCmd(ClientData clientData) +DeleteCmd( + ClientData clientData) { Tcl_Interp *interp = clientData; Tcl_SetAssocData(interp, REGISTRY_ASSOC_KEY, NULL, (ClientData)NULL); @@ -337,8 +338,7 @@ RegistryObjCmd( char *errString = NULL; static CONST char *subcommands[] = { - "broadcast", "delete", "get", "keys", "set", "type", "values", - (char *) NULL + "broadcast", "delete", "get", "keys", "set", "type", "values", NULL }; enum SubCmdIdx { BroadcastIdx, DeleteIdx, GetIdx, KeysIdx, SetIdx, TypeIdx, ValuesIdx @@ -1390,7 +1390,7 @@ static int BroadcastValue( Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ - Tcl_Obj * CONST objv[]) /* Argument values. */ + Tcl_Obj *CONST objv[]) /* Argument values. */ { LRESULT result, sendResult; UINT timeout = 3000; @@ -1516,7 +1516,7 @@ AppendSystemError( } sprintf(id, "%ld", error); - Tcl_SetErrorCode(interp, "WINDOWS", id, msg, (char *) NULL); + Tcl_SetErrorCode(interp, "WINDOWS", id, msg, NULL); Tcl_AppendToObj(resultPtr, msg, length); Tcl_SetObjResult(interp, resultPtr); |