diff options
author | dkf <dkf@noemail.net> | 2008-09-24 09:41:08 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-09-24 09:41:08 (GMT) |
commit | 29c12ae0d08e29695991284a60af4c23124c55c9 (patch) | |
tree | 12490c1ca7097e4a1a4f6616fe350aa1cbf6b8e2 /generic/tcl.decls | |
parent | 0e53271a657ea3296c16337236cf930827546f18 (diff) | |
download | tcl-29c12ae0d08e29695991284a60af4c23124c55c9.zip tcl-29c12ae0d08e29695991284a60af4c23124c55c9.tar.gz tcl-29c12ae0d08e29695991284a60af4c23124c55c9.tar.bz2 |
Implement TIP #316.
FossilOrigin-Name: 05e3bb92fddd1036e881f212607acb1f284ddc1c
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 43 |
1 files changed, 42 insertions, 1 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 1351e02..0d8fea6 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.143 2008/08/21 21:35:37 dgp Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.144 2008/09/24 09:41:13 dkf Exp $ library tcl @@ -2146,6 +2146,47 @@ declare 588 generic { Tcl_Obj *CONST objv[]) } +# Tcl_StatBuf reader functions. [TIP #316] +declare 589 generic { + unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr) +} +declare 590 generic { + unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr) +} +declare 591 generic { + unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr) +} +declare 592 generic { + int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr) +} +declare 593 generic { + int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr) +} +declare 594 generic { + int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr) +} +declare 595 generic { + int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr) +} +declare 596 generic { + Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr) +} +declare 597 generic { + Tcl_WideInt Tcl_GetModificationTimeFromStat(const Tcl_StatBuf *statPtr) +} +declare 598 generic { + Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr) +} +declare 599 generic { + Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr) +} +declare 600 generic { + Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr) +} +declare 601 generic { + unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr) +} + ############################################################################## # Define the platform specific public Tcl interface. These functions are |