419 lines
15 KiB
C
419 lines
15 KiB
C
|
/***
|
||
|
|
*stat.c - get file status
|
||
|
|
*
|
||
|
|
* Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* defines _stat() - get file status
|
||
|
|
*
|
||
|
|
*Revision History:
|
||
|
|
* 03-??-84 RLB Module created
|
||
|
|
* 05-??-84 DCW Some cleanup and addition of register variables
|
||
|
|
* 05-17-86 SKS Ported to OS/2
|
||
|
|
* 11-19-86 SKS Better check for root directory; KANJI support
|
||
|
|
* 05-22-87 SKS Cleaned up declarations and include files
|
||
|
|
* 11-18-87 SKS Make _dtoxmode a static near procedure
|
||
|
|
* 12-11-87 JCR Added "_LOAD_DS" to declaration
|
||
|
|
* 12-21-87 WAJ stat no longer uses chdir to figure out if it has been
|
||
|
|
* passed a root directory in the MTHREAD case.
|
||
|
|
* 01-05-88 WAJ now uses _MAX_PATH (defined in stdlib.h)
|
||
|
|
* 06-22-88 SKS find Hidden and System files, not just normal ones
|
||
|
|
* 06-22-88 SKS Always use better algorithm to detect root dirs
|
||
|
|
* 06-29-88 WAJ When looking for root dir makes sure it exists
|
||
|
|
* 09-28-88 JCR Use new 386 dostypes.h structures
|
||
|
|
* 10-03-88 JCR 386: Change DOS calls to SYS calls
|
||
|
|
* 10-04-88 JCR 386: Removed 'far' keyword
|
||
|
|
* 10-10-88 GJF Made API names match DOSCALLS.H
|
||
|
|
* 11-24-88 GJF ".cmd" should be considered executable, not ".bat"
|
||
|
|
* 01-31-89 JCR _canonic() is now _fullpath() and args reversed
|
||
|
|
* 04-12-89 JCR New syscall interace
|
||
|
|
* 05-25-89 JCR 386 OS/2 calls use '_syscall' calling convention
|
||
|
|
* 03-07-90 GJF Replaced _LOAD_DS with _CALLTYPE1, added #include
|
||
|
|
* <cruntime.h>, removed #include <register.h> and
|
||
|
|
* removed some leftover 16-bit support. Also, fixed
|
||
|
|
* the copyright.
|
||
|
|
* 04-02-90 GJF Made _ValidDrive() and _dtoxmode() _CALLTYPE1. Removed
|
||
|
|
* #include <dos.h>.
|
||
|
|
* 07-23-90 SBM Compiles cleanly with -W3 (added/removed appropriate
|
||
|
|
* includes), removed '32' from API names
|
||
|
|
* 08-10-90 SBM Compiles cleanly with -W3 with new build of compiler
|
||
|
|
* 09-03-90 SBM Removed EXT macro
|
||
|
|
* 09-27-90 GJF New-style function declarators.
|
||
|
|
* 12-04-90 SRW Changed to include <oscalls.h> instead of <doscalls.h>
|
||
|
|
* 12-06-90 SRW Added _CRUISER_ and _WIN32 conditionals.
|
||
|
|
* 12-28-90 SRW Added cast of void * to char * for Mips C Compiler
|
||
|
|
* 01-18-91 GJF ANSI naming.
|
||
|
|
* 01-28-91 GJF Fixed call to DOSFINDFIRST (removed last arg).
|
||
|
|
* 02-28-91 SRW Fixed bug in _dtoxtime calls [_WIN32_]
|
||
|
|
* 03-05-91 MHL Fixed stat to not use _ValidDrive for stat of root
|
||
|
|
* 05-19-92 SKS .BAT is a valid "executable" extension for NT, as
|
||
|
|
* well as CMD. Also, File Creation and File Last Access
|
||
|
|
* timestamps may be 0 on some file systems (e.g. FAT)
|
||
|
|
* in which case the File Last Write time should be used.
|
||
|
|
* 05-29-92 SKS Files with SYSTEM bit set should NOT be marked
|
||
|
|
* READ-ONLY; these two attributes are independent.
|
||
|
|
* 08-18-92 SKS Add a call to FileTimeToLocalFileTime
|
||
|
|
* as a temporary fix until _dtoxtime takes UTC
|
||
|
|
* 11-20-92 SKS _doserrno must always be set whenever errno is.
|
||
|
|
* 11-30-92 KRS Port _MBCS support from 16-bit tree.
|
||
|
|
* 03-29-93 GJF Converted from using _dtoxtime() to __gmtotime_t().
|
||
|
|
* 04-06-93 SKS Replace _CRTAPI* with __cdecl
|
||
|
|
* Change _ValidDrive to _validdrive
|
||
|
|
* 04-07-93 GJF Changed first arg type to const char *.
|
||
|
|
* 04-18-93 SKS Move _validdrive to getcwd.c and make it static
|
||
|
|
* 07-21-93 GJF Converted from using __gmtotime_t to __loctotime_t
|
||
|
|
* (amounts to reversing the change of 03-29-93).
|
||
|
|
* 12-16-93 CFW Enable Unicode variant.
|
||
|
|
* 12-28-94 GJF Added _stati64 and _wstati64.
|
||
|
|
* 02-08-95 JWM Spliced _WIN32 & Mac versions.
|
||
|
|
* 03-27-95 SKS loctotime_t uses absolute years (not year-1900)!
|
||
|
|
* 09-25-95 GJF __loctotime_t now takes a DST flag, pass -1 in this
|
||
|
|
* slot to indicate DST is undetermined.
|
||
|
|
* 11-29-95 SKS Add support for calls such as stat("//server/share/")
|
||
|
|
* 07-01-96 GJF Replaced defined(_WIN32) with !defined(_MAC). Also,
|
||
|
|
* detab-ed and cleaned up the format.
|
||
|
|
* 05-17-99 PML Remove all Macintosh support.
|
||
|
|
* 10-27-99 GB Remove #inlcude <dostypes.h>
|
||
|
|
*
|
||
|
|
*******************************************************************************/
|
||
|
|
|
||
|
|
#include <cruntime.h>
|
||
|
|
#include <sys/types.h>
|
||
|
|
#include <sys/stat.h>
|
||
|
|
#include <errno.h>
|
||
|
|
#include <ctype.h>
|
||
|
|
#include <msdos.h>
|
||
|
|
#include <oscalls.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <internal.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <direct.h>
|
||
|
|
#include <mbstring.h>
|
||
|
|
#include <tchar.h>
|
||
|
|
|
||
|
|
|
||
|
|
#define ISSLASH(a) ((a) == _T('\\') || (a) == _T('/'))
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef _UNICODE
|
||
|
|
#define __tdtoxmode __wdtoxmode
|
||
|
|
#else /* ndef _UNICODE */
|
||
|
|
#define __tdtoxmode __dtoxmode
|
||
|
|
#endif /* _UNICODE */
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Local routine which returns true if the argument is a UNC name
|
||
|
|
* specifying the root name of a share, such as '\\server\share\'.
|
||
|
|
*/
|
||
|
|
|
||
|
|
static int IsRootUNCName(const _TSCHAR *path);
|
||
|
|
|
||
|
|
|
||
|
|
/***
|
||
|
|
*unsigned __tdtoxmode(attr, name) -
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
*
|
||
|
|
*Entry:
|
||
|
|
*
|
||
|
|
*Exit:
|
||
|
|
*
|
||
|
|
*Exceptions:
|
||
|
|
*
|
||
|
|
*******************************************************************************/
|
||
|
|
|
||
|
|
#ifdef _USE_INT64
|
||
|
|
|
||
|
|
extern unsigned short __cdecl __tdtoxmode(int, const _TSCHAR *);
|
||
|
|
|
||
|
|
#else /* ndef _USE_INT64 */
|
||
|
|
|
||
|
|
unsigned short __cdecl __tdtoxmode (
|
||
|
|
int attr,
|
||
|
|
const _TSCHAR *name
|
||
|
|
)
|
||
|
|
{
|
||
|
|
REG1 unsigned short uxmode;
|
||
|
|
unsigned dosmode;
|
||
|
|
REG2 const _TSCHAR *p;
|
||
|
|
|
||
|
|
dosmode = attr & 0xff;
|
||
|
|
if ((p = name)[1] == _T(':'))
|
||
|
|
p += 2;
|
||
|
|
|
||
|
|
/* check to see if this is a directory - note we must make a special
|
||
|
|
* check for the root, which DOS thinks is not a directory
|
||
|
|
*/
|
||
|
|
|
||
|
|
uxmode = (unsigned short)
|
||
|
|
(((ISSLASH(*p) && !p[1]) || (dosmode & A_D) || !*p)
|
||
|
|
? _S_IFDIR|_S_IEXEC : _S_IFREG);
|
||
|
|
|
||
|
|
/* If attribute byte does not have read-only bit, it is read-write */
|
||
|
|
|
||
|
|
uxmode |= (dosmode & A_RO) ? _S_IREAD : (_S_IREAD|_S_IWRITE);
|
||
|
|
|
||
|
|
/* see if file appears to be executable - check extension of name */
|
||
|
|
|
||
|
|
if (p = _tcsrchr(name, _T('.'))) {
|
||
|
|
if ( !_tcsicmp(p, _T(".exe")) ||
|
||
|
|
!_tcsicmp(p, _T(".cmd")) ||
|
||
|
|
!_tcsicmp(p, _T(".bat")) ||
|
||
|
|
!_tcsicmp(p, _T(".com")) )
|
||
|
|
uxmode |= _S_IEXEC;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* propagate user read/write/execute bits to group/other fields */
|
||
|
|
|
||
|
|
uxmode |= (uxmode & 0700) >> 3;
|
||
|
|
uxmode |= (uxmode & 0700) >> 6;
|
||
|
|
|
||
|
|
return(uxmode);
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif /* _USE_INT64 */
|
||
|
|
|
||
|
|
/***
|
||
|
|
*int _stat(name, buf) - get file status info
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* _stat obtains information about the file and stores it in the
|
||
|
|
* structure pointed to by buf.
|
||
|
|
*
|
||
|
|
* Note: We cannot directly use the file time stamps returned in the
|
||
|
|
* WIN32_FIND_DATA structure. The values are supposedly in system time
|
||
|
|
* and system time is ambiguously defined (it is UTC for Windows NT, local
|
||
|
|
* time for Win32S and probably local time for Win32C). Therefore, these
|
||
|
|
* values must be converted to local time before than can be used.
|
||
|
|
*
|
||
|
|
*Entry:
|
||
|
|
* _TSCHAR *name - pathname of given file
|
||
|
|
* struct _stat *buffer - pointer to buffer to store info in
|
||
|
|
*
|
||
|
|
*Exit:
|
||
|
|
* fills in structure pointed to by buffer
|
||
|
|
* returns 0 if successful
|
||
|
|
* returns -1 and sets errno if unsuccessful
|
||
|
|
*
|
||
|
|
*Exceptions:
|
||
|
|
*
|
||
|
|
*******************************************************************************/
|
||
|
|
|
||
|
|
#ifdef _USE_INT64
|
||
|
|
|
||
|
|
int __cdecl _tstati64 (
|
||
|
|
REG1 const _TSCHAR *name,
|
||
|
|
REG2 struct _stati64 *buf
|
||
|
|
)
|
||
|
|
|
||
|
|
#else /* ndef _USE_INT64 */
|
||
|
|
|
||
|
|
int __cdecl _tstat (
|
||
|
|
REG1 const _TSCHAR *name,
|
||
|
|
REG2 struct _stat *buf
|
||
|
|
)
|
||
|
|
|
||
|
|
#endif /* _USE_INT64 */
|
||
|
|
|
||
|
|
{
|
||
|
|
_TSCHAR * path;
|
||
|
|
_TSCHAR pathbuf[ _MAX_PATH ];
|
||
|
|
int drive; /* A: = 1, B: = 2, etc. */
|
||
|
|
HANDLE findhandle;
|
||
|
|
WIN32_FIND_DATA findbuf;
|
||
|
|
|
||
|
|
/* Don't allow wildcards to be interpreted by system */
|
||
|
|
|
||
|
|
#ifdef _UNICODE
|
||
|
|
if (wcspbrk(name, L"?*")) {
|
||
|
|
#else
|
||
|
|
if (_mbspbrk(name, "?*")) {
|
||
|
|
#endif
|
||
|
|
errno = ENOENT;
|
||
|
|
_doserrno = E_nofile;
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Try to get disk from name. If none, get current disk. */
|
||
|
|
|
||
|
|
if (name[1] == _T(':')){
|
||
|
|
if ( *name && !name[2] ){
|
||
|
|
errno = ENOENT; /* return an error if name is */
|
||
|
|
_doserrno = E_nofile; /* just drive letter then colon */
|
||
|
|
return( -1 );
|
||
|
|
}
|
||
|
|
drive = _totlower(*name) - _T('a') + 1;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
drive = _getdrive();
|
||
|
|
|
||
|
|
/* Call Find Match File */
|
||
|
|
findhandle = FindFirstFile((_TSCHAR *)name, &findbuf);
|
||
|
|
if ( findhandle == INVALID_HANDLE_VALUE ) {
|
||
|
|
#ifdef _UNICODE
|
||
|
|
if ( !( wcspbrk(name, L"./\\") &&
|
||
|
|
#else
|
||
|
|
if ( !( _mbspbrk(name, "./\\") &&
|
||
|
|
#endif
|
||
|
|
(path = _tfullpath( pathbuf, name, _MAX_PATH )) &&
|
||
|
|
/* root dir. ('C:\') or UNC root dir. ('\\server\share\') */
|
||
|
|
((_tcslen( path ) == 3) || IsRootUNCName(path)) &&
|
||
|
|
(GetDriveType( path ) > 1) ) )
|
||
|
|
{
|
||
|
|
errno = ENOENT;
|
||
|
|
_doserrno = E_nofile;
|
||
|
|
return( -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Root directories (such as C:\ or \\server\share\ are fabricated.
|
||
|
|
*/
|
||
|
|
|
||
|
|
findbuf.dwFileAttributes = A_D;
|
||
|
|
findbuf.nFileSizeHigh = 0;
|
||
|
|
findbuf.nFileSizeLow = 0;
|
||
|
|
findbuf.cFileName[0] = _T('\0');
|
||
|
|
|
||
|
|
buf->st_mtime = __loctotime_t(1980,1,1,0,0,0, -1);
|
||
|
|
buf->st_atime = buf->st_mtime;
|
||
|
|
buf->st_ctime = buf->st_mtime;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
SYSTEMTIME SystemTime;
|
||
|
|
FILETIME LocalFTime;
|
||
|
|
|
||
|
|
if ( !FileTimeToLocalFileTime( &findbuf.ftLastWriteTime,
|
||
|
|
&LocalFTime ) ||
|
||
|
|
!FileTimeToSystemTime( &LocalFTime, &SystemTime ) )
|
||
|
|
{
|
||
|
|
_dosmaperr( GetLastError() );
|
||
|
|
FindClose( findhandle );
|
||
|
|
return( -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
buf->st_mtime = __loctotime_t( SystemTime.wYear,
|
||
|
|
SystemTime.wMonth,
|
||
|
|
SystemTime.wDay,
|
||
|
|
SystemTime.wHour,
|
||
|
|
SystemTime.wMinute,
|
||
|
|
SystemTime.wSecond,
|
||
|
|
-1 );
|
||
|
|
|
||
|
|
if ( findbuf.ftLastAccessTime.dwLowDateTime ||
|
||
|
|
findbuf.ftLastAccessTime.dwHighDateTime )
|
||
|
|
{
|
||
|
|
if ( !FileTimeToLocalFileTime( &findbuf.ftLastAccessTime,
|
||
|
|
&LocalFTime ) ||
|
||
|
|
!FileTimeToSystemTime( &LocalFTime, &SystemTime ) )
|
||
|
|
{
|
||
|
|
_dosmaperr( GetLastError() );
|
||
|
|
FindClose( findhandle );
|
||
|
|
return( -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
buf->st_atime = __loctotime_t( SystemTime.wYear,
|
||
|
|
SystemTime.wMonth,
|
||
|
|
SystemTime.wDay,
|
||
|
|
SystemTime.wHour,
|
||
|
|
SystemTime.wMinute,
|
||
|
|
SystemTime.wSecond,
|
||
|
|
-1 );
|
||
|
|
} else
|
||
|
|
buf->st_atime = buf->st_mtime ;
|
||
|
|
|
||
|
|
if ( findbuf.ftCreationTime.dwLowDateTime ||
|
||
|
|
findbuf.ftCreationTime.dwHighDateTime )
|
||
|
|
{
|
||
|
|
if ( !FileTimeToLocalFileTime( &findbuf.ftCreationTime,
|
||
|
|
&LocalFTime ) ||
|
||
|
|
!FileTimeToSystemTime( &LocalFTime, &SystemTime ) )
|
||
|
|
{
|
||
|
|
_dosmaperr( GetLastError() );
|
||
|
|
FindClose( findhandle );
|
||
|
|
return( -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
buf->st_ctime = __loctotime_t( SystemTime.wYear,
|
||
|
|
SystemTime.wMonth,
|
||
|
|
SystemTime.wDay,
|
||
|
|
SystemTime.wHour,
|
||
|
|
SystemTime.wMinute,
|
||
|
|
SystemTime.wSecond,
|
||
|
|
-1 );
|
||
|
|
} else
|
||
|
|
buf->st_ctime = buf->st_mtime ;
|
||
|
|
|
||
|
|
FindClose(findhandle);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Fill in buf */
|
||
|
|
|
||
|
|
buf->st_mode = __tdtoxmode(findbuf.dwFileAttributes, name);
|
||
|
|
buf->st_nlink = 1;
|
||
|
|
|
||
|
|
#ifdef _USE_INT64
|
||
|
|
buf->st_size = ((__int64)(findbuf.nFileSizeHigh)) * (0x100000000i64) +
|
||
|
|
(__int64)(findbuf.nFileSizeLow);
|
||
|
|
#else /* ndef _USE_INT64 */
|
||
|
|
buf->st_size = findbuf.nFileSizeLow;
|
||
|
|
#endif /* _USE_INT64 */
|
||
|
|
|
||
|
|
/* now set the common fields */
|
||
|
|
|
||
|
|
buf->st_uid = buf->st_gid = buf->st_ino = 0;
|
||
|
|
|
||
|
|
buf->st_rdev = buf->st_dev = (_dev_t)(drive - 1); /* A=0, B=1, etc. */
|
||
|
|
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* IsRootUNCName - returns TRUE if the argument is a UNC name specifying
|
||
|
|
* a root share. That is, if it is of the form \\server\share\.
|
||
|
|
* This routine will also return true if the argument is of the
|
||
|
|
* form \\server\share (no trailing slash) but Win32 currently
|
||
|
|
* does not like that form.
|
||
|
|
*
|
||
|
|
* Forward slashes ('/') may be used instead of backslashes ('\').
|
||
|
|
*/
|
||
|
|
|
||
|
|
static int IsRootUNCName(const _TSCHAR *path)
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* If a root UNC name, path will start with 2 (but not 3) slashes
|
||
|
|
*/
|
||
|
|
|
||
|
|
if ( ( _tcslen ( path ) >= 5 ) /* minimum string is "//x/y" */
|
||
|
|
&& ISSLASH(path[0]) && ISSLASH(path[1]))
|
||
|
|
{
|
||
|
|
const _TSCHAR * p = path + 2 ;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* find the slash between the server name and share name
|
||
|
|
*/
|
||
|
|
while ( * ++ p )
|
||
|
|
if ( ISSLASH(*p) )
|
||
|
|
break ;
|
||
|
|
|
||
|
|
if ( *p && p[1] )
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* is there a further slash?
|
||
|
|
*/
|
||
|
|
while ( * ++ p )
|
||
|
|
if ( ISSLASH(*p) )
|
||
|
|
break ;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* just final slash (or no final slash)
|
||
|
|
*/
|
||
|
|
if ( !*p || !p[1])
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0 ;
|
||
|
|
}
|