diff options
author | dkf <dkf@noemail.net> | 2010-02-24 10:32:16 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-02-24 10:32:16 (GMT) |
commit | 9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a (patch) | |
tree | bb3ca2b92677cccc5b5f36dbbcc5eee5aafa3e7d /generic/tclFCmd.c | |
parent | 957eb6dc492a11633d5333641c4a5c3b10ba5c88 (diff) | |
download | tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.zip tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.tar.gz tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.tar.bz2 |
Pure whitespace changes, changing to follow Engineering Manual style.
FossilOrigin-Name: c81eddebbb969209a42ab4c210dd62f3080909d4
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. |