summaryrefslogtreecommitdiffstats
path: root/generic/tclFileName.c
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@noemail.net>2008-05-02 20:02:35 (GMT)
committerpatthoyts <patthoyts@noemail.net>2008-05-02 20:02:35 (GMT)
commit2d5cdd796c9d7a3cc382738d566744bfcf8b922c (patch)
tree54e57119f56dd4fe2e44e51dd3aa2d4e374b1be5 /generic/tclFileName.c
parenta419beb7b08f6cd264d8208589d89af2981bd95a (diff)
downloadtcl-2d5cdd796c9d7a3cc382738d566744bfcf8b922c.zip
tcl-2d5cdd796c9d7a3cc382738d566744bfcf8b922c.tar.gz
tcl-2d5cdd796c9d7a3cc382738d566744bfcf8b922c.tar.bz2
Reverted dkf's accidental commit of the TIP 316 APIs as part of a code cleanup
FossilOrigin-Name: e4acb9c1462ec5e2ab936e036fd80c27b75a042f
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r--generic/tclFileName.c109
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