diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclFileName.c | 109 |
2 files changed, 5 insertions, 108 deletions
@@ -1,3 +1,7 @@ +2008-05-02 Pat Thoyts <patthoyts@users.sourceforge.net> + + * generic/tclFileName.c: Reverted accidental commit of TIP 316 APIs. + 2008-04-27 Donal K. Fellows <dkf@users.sf.net> * */*.c: A large tranche of getting rid of pre-C89-isms; if your diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 5c58052..723b993 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFileName.c,v 1.87 2008/05/02 10:27:05 dkf Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.88 2008/05/02 20:02:39 patthoyts Exp $ */ #include "tclInt.h" @@ -2523,113 +2523,6 @@ Tcl_AllocStatBuf(void) } /* - *--------------------------------------------------------------------------- - * - * Tcl_Get*FromStat -- - * - * These functions provide portable read-only access to a Tcl_StatBuf. - * - * Results: - * The contents of the relevant field. - * - * Side effects: - * None. - * - *--------------------------------------------------------------------------- - */ - -unsigned -Tcl_GetFSDeviceFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_dev; -} - -unsigned -Tcl_GetFSInodeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_ino; -} - -unsigned -Tcl_GetModeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_mode; -} - -int -Tcl_GetLinkCountFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_nlink; -} - -int -Tcl_GetUserIdFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_uid; -} - -int -Tcl_GetGroupIdFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_gid; -} - -int -Tcl_GetDeviceTypeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_rdev; -} - -Tcl_WideInt -Tcl_GetAccessTimeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_atime; -} - -Tcl_WideInt -Tcl_GetModificationTimeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_mtime; -} - -Tcl_WideInt -Tcl_GetChangeTimeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_ctime; -} - -Tcl_WideUInt -Tcl_GetSizeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return (Tcl_WideUInt) statBufPtr->st_size; -} - -Tcl_WideUInt -Tcl_GetBlocksFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_blocks; -} - -unsigned -Tcl_GetBlockSizeFromStat( - Tcl_StatBuf *statBufPtr) -{ - return statBufPtr->st_blksize; -} - -/* * Local Variables: * mode: c * c-basic-offset: 4 |