diff options
author | dkf <dkf@noemail.net> | 2011-04-16 11:51:35 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2011-04-16 11:51:35 (GMT) |
commit | 9c4eddb6b33e7126e75ac1b7c422b6727e455b3a (patch) | |
tree | bc4481b91b1bec8be4f57db173c7050374b47165 /generic/tclFCmd.c | |
parent | 3728c198530134d5dd442b27921bfebb63f4c6c7 (diff) | |
download | tcl-9c4eddb6b33e7126e75ac1b7c422b6727e455b3a.zip tcl-9c4eddb6b33e7126e75ac1b7c422b6727e455b3a.tar.gz tcl-9c4eddb6b33e7126e75ac1b7c422b6727e455b3a.tar.bz2 |
Added comments to try to tame the file attributes guts, while trying to simplify
things enough that I can puzzle out AK's TclVFS problems. I suspect this is not
a real fix though; just an attempt to make the problem tractable.
FossilOrigin-Name: f1162c3bd2b9536734affc339f47f542a5aa61cf
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r-- | generic/tclFCmd.c | 36 |
1 files changed, 22 insertions, 14 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index e9176ca..048fa57 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -966,6 +966,10 @@ TclFileAttrsCmd( result = TCL_ERROR; Tcl_SetErrno(0); + /* + * Get the set of attribute names from the filesystem. + */ + attributeStrings = Tcl_FSFileAttrStrings(filePtr, &objStrings); if (attributeStrings == NULL) { int index; @@ -980,9 +984,8 @@ TclFileAttrsCmd( Tcl_AppendResult(interp, "could not read \"", TclGetString(filePtr), "\": ", Tcl_PosixError(interp), NULL); - return TCL_ERROR; } - goto end; + return TCL_ERROR; } /* @@ -1006,7 +1009,16 @@ TclFileAttrsCmd( } attributeStringsAllocated[index] = NULL; attributeStrings = attributeStringsAllocated; + } else if (objStrings != NULL) { + Tcl_Panic("must not update objPtrRef's variable and return non-NULL"); } + + /* + * Process the attributes to produce a list of all of them, the value of a + * particular attribute, or to set one or more attributes (depending on + * the number of arguments). + */ + if (objc == 0) { /* * Get all attributes. @@ -1114,21 +1126,17 @@ TclFileAttrsCmd( } result = TCL_OK; + /* + * Free up the array we allocated and drop our reference to any list of + * attribute names issued by the filesystem. + */ + end: if (attributeStringsAllocated != NULL) { - /* - * Free up the array we allocated. - */ - TclStackFree(interp, (void *) attributeStringsAllocated); - - /* - * We don't need this object that was passed to us any more. - */ - - if (objStrings != NULL) { - Tcl_DecrRefCount(objStrings); - } + } + if (objStrings != NULL) { + Tcl_DecrRefCount(objStrings); } return result; } |