diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
| commit | 9f6e608ac5b1a6b4bb9382774a7ae4e263533dde (patch) | |
| tree | bb3ca2b92677cccc5b5f36dbbcc5eee5aafa3e7d /generic/tclFCmd.c | |
| parent | eaefb7d9cf0d3569d504889654cc1ca47d6e6d92 (diff) | |
| download | tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.zip tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.gz tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.bz2 | |
Pure whitespace changes, changing to follow Engineering Manual style.
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 6e84177..8ff6e39 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.50 2009/09/07 07:28:38 das Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.51 2010/02/24 10:32:17 dkf Exp $ */ #include "tclInt.h" @@ -959,7 +959,7 @@ TclFileAttrsCmd( filePtr = objv[2]; if (Tcl_FSConvertToPathType(interp, filePtr) != TCL_OK) { - return TCL_ERROR; + return TCL_ERROR; } objc -= 3; @@ -1048,7 +1048,7 @@ TclFileAttrsCmd( goto end; } - Tcl_SetObjResult(interp, listPtr); + Tcl_SetObjResult(interp, listPtr); } else if (objc == 1) { /* * Get one attribute. @@ -1087,21 +1087,21 @@ TclFileAttrsCmd( goto end; } - for (i = 0; i < objc ; i += 2) { - if (Tcl_GetIndexFromObj(interp, objv[i], attributeStrings, + for (i = 0; i < objc ; i += 2) { + if (Tcl_GetIndexFromObj(interp, objv[i], attributeStrings, "option", 0, &index) != TCL_OK) { goto end; - } + } if (i + 1 == objc) { Tcl_AppendResult(interp, "value for \"", TclGetString(objv[i]), "\" missing", NULL); goto end; } - if (Tcl_FSFileAttrsSet(interp, index, filePtr, - objv[i + 1]) != TCL_OK) { + if (Tcl_FSFileAttrsSet(interp, index, filePtr, + objv[i + 1]) != TCL_OK) { goto end; - } - } + } + } } result = TCL_OK; @@ -1111,7 +1111,7 @@ TclFileAttrsCmd( * Free up the array we allocated. */ - TclStackFree(interp, (void *)attributeStringsAllocated); + TclStackFree(interp, (void *) attributeStringsAllocated); /* * We don't need this object that was passed to us any more. |