diff options
author | patthoyts <patthoyts@users.sourceforge.net> | 2008-05-02 20:02:35 (GMT) |
---|---|---|
committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-05-02 20:02:35 (GMT) |
commit | 650e24f8fcb8f1ae4346ffe2110c471bb7637b01 (patch) | |
tree | 54e57119f56dd4fe2e44e51dd3aa2d4e374b1be5 /generic | |
parent | cf23acaf691cce2fe2edb70428580c9cee877f2c (diff) | |
download | tcl-650e24f8fcb8f1ae4346ffe2110c471bb7637b01.zip tcl-650e24f8fcb8f1ae4346ffe2110c471bb7637b01.tar.gz tcl-650e24f8fcb8f1ae4346ffe2110c471bb7637b01.tar.bz2 |
Reverted dkf's accidental commit of the TIP 316 APIs as part of a code cleanup
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclFileName.c | 109 |
1 files changed, 1 insertions, 108 deletions
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 |