/*** *fstat.c - OS/2 return file status info * * Copyright (c) 1985-1993, Microsoft Corporation. All rights reserved. * *Purpose: * defines fstat() - return file status info * *Revision History: * 03-??-84 RLB Module created * 05-??-84 DCW Added register variables * 05-19-86 SKS Ported to OS/2 * 05-21-87 SKS Cleaned up declarations and include files * 11-01-87 JCR Multi-thread support * 12-11-87 JCR Added "_LOAD_DS" to declaration * 05-25-88 PHG Merged DLL and normal version * 10-03-88 GJF Adapted for new DOSCALLS.H, DOSTYPES.H. * 10-04-88 JCR 386: Removed 'far' keyword * 10-10-88 GJF Made API names match DOSCALLS.H * 11-07-88 GJF Cleanup, now specific to 386 * 04-13-89 JCR New syscall interface * 05-23-89 PHG Added mask to ignore network bit when testing handle * type * 05-25-89 JCR 386 OS/2 calls use '_syscall' calling convention * 03-12-90 GJF Replaced _LOAD_DS with _CALLTYPE1, added #include * , removed #include and fixed * the copyright. Also, cleaned up the formatting a bit. * 04-04-90 GJF Removed #include . * 07-24-90 SBM Removed '32' from API names * 08-13-90 SBM Compiles cleanly with -W3 * 09-28-90 GJF New-style function declarator. * 12-04-90 SRW Changed to include instead of * 12-06-90 SRW Added _CRUISER_ and _WIN32 conditionals. * 01-21-91 GJF ANSI naming. * 04-26-91 SRW Implemented fstat for _WIN32_ and removed level 3 * warnings. * 02-13-92 GJF Replaced _nfile by _nhandle for Win32. * 05-27-92 SKS 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 instead. * 06-04-92 SKS Changed comment that used to say "This is a BUG!" * to explain that this value cannot be computed on * OS/2 or NT. Only MS-DOS provides this functionality. * The drive number is not valid for UNC names. * 06-25-92 GJF Use GetFileInformationByHandle API, also cleaned up * formatting of Win32 verson [_WIN32_]. * 08-18-92 SKS Add a call to FileTimeToLocalFileTime * as a temporary fix until _dtoxtime takes UTC * 08-20-92 GJF Merged two changes above. * 12-16-92 GJF Win32 GetFileInformationByHandle API doesn't like * device or pipe handles. Use _S_IFIFO for pipes. * 04-06-93 GJF Made computation of file times consistent with _stat(). * *******************************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include #ifndef _CRUISER_ #include #endif #define IO_DEVNBR 0x3f /*** *int _fstat(fildes, buf) - fills supplied buffer with status info * *Purpose: * Fills the supplied buffer with status information on the * file represented by the specified file designator. * WARNING: the dev/rdev fields are zero for files. This is * incompatible with DOS 3 version of this routine. * *Entry: * int fildes - file descriptor * struct stat *buf - buffer to store result in * *Exit: * fills in buffer pointed to by buf * returns 0 if successful * returns -1 and sets errno if unsuccessful * *Exceptions: * *******************************************************************************/ #ifdef _CRUISER_ int _CRTAPI1 _fstat ( REG2 int fildes, REG1 struct _stat *buf ) { long cpos; int isdev; /* 0 for a file, 1 for a device */ int retval = 0; /* assume good return */ if (fildes < 0 || fildes >= _nfile) { errno = EBADF; return(-1); } /* Lock the file */ _lock_fh(fildes); /* Issue the get-device-info call. */ { int descrip; /* device descriptor word */ if (DOSQUERYHTYPE(fildes, (unsigned *)&isdev, (unsigned *)&descrip)) { errno = EBADF; retval = -1; /* error from DOS call - bad file designator */ goto done; /* join common return code */ } /* set the common fields */ buf->st_ino = buf->st_uid = buf->st_gid = buf->st_mode = 0; buf->st_nlink = 1; buf->st_mode |= (_osfile[fildes] & FRDONLY) ? (_S_IREAD + (_S_IREAD >> 3) + (_S_IREAD >> 6)) : ((_S_IREAD|_S_IWRITE) + ((_S_IREAD|_S_IWRITE) >> 3) + ((_S_IREAD|_S_IWRITE) >> 6)); /* set file date fields - NOTE for code below, it should be * remembered that calls to QFILEINFO cannot fail since the file * handle is known to be good since we got by the QHANDTYPE call. */ { FILESTATUS fs; (void)DOSQUERYFILEINFO(fildes, 1, (FILESTATUS *) & fs, sizeof(fs)); buf->st_mtime = XTIME(fs.fdateLastWrite, fs.ftimeLastWrite); if ( _DATECAST(fs.fdateLastAccess) || _TIMECAST(fs.ftimeLastAccess) ) buf->st_atime = XTIME(fs.fdateLastAccess, fs.ftimeLastAccess); else buf->st_atime = buf->st_mtime ; if ( _DATECAST(fs.fdateCreation) || _TIMECAST(fs.ftimeCreation) ) buf->st_ctime = XTIME(fs.fdateCreation, fs.ftimeCreation); else buf->st_ctime = buf->st_mtime ; buf->st_mtime = XTIME(fs.fdateLastWrite, fs.ftimeLastWrite); } /* check for device or file */ if (isdev & 0xFF) { /* file designator refers to a device - set file size to 0 */ buf->st_size = 0; buf->st_mode |= _S_IFCHR; buf->st_rdev = buf->st_dev = (_dev_t)fildes; } else { /* file designator refers to a file - set actual file size */ cpos = _lseek_lk(fildes, 0L, 1); buf->st_size = _lseek_lk(fildes, 0L, 2); _lseek_lk(fildes, cpos, 0); buf->st_mode |= _S_IFREG; /* * On DOS, this field contains the drive number, but * the drive number is not available on this platform. * Also, for UNC network names, there is no drive number. */ buf->st_rdev = buf->st_dev = 0; } /* Common return code */ done: _unlock_fh(fildes); return(retval); } #else /* ndef _CRUISER_ */ #ifdef _WIN32_ int _CRTAPI1 _fstat ( int fildes, struct _stat *buf ) { int isdev; /* 0 for a file, 1 for a device */ int retval = 0; /* assume good return */ BY_HANDLE_FILE_INFORMATION bhfi; SYSTEMTIME SystemTime; if ( (unsigned)fildes >= (unsigned)_nhandle ) { errno = EBADF; return(-1); } /* Lock the file */ _lock_fh(fildes); /* Find out what kind of handle underlies filedes */ isdev = GetFileType((HANDLE)_osfhnd[fildes]) & ~FILE_TYPE_REMOTE; if ( isdev != FILE_TYPE_DISK ) { /* not a disk file. probably a device or pipe */ if ( (isdev == FILE_TYPE_CHAR) || (isdev == FILE_TYPE_PIPE) ) { /* treat pipes and devices similarly. no further info is * available from any API, so set the fields as reasonably * as possible and return. */ if ( isdev == FILE_TYPE_CHAR ) buf->st_mode = _S_IFCHR; else buf->st_mode = _S_IFIFO; buf->st_rdev = buf->st_dev = (_dev_t)fildes; buf->st_nlink = 1; buf->st_uid = buf->st_gid = buf->st_ino = 0; buf->st_atime = buf->st_mtime = buf->st_ctime = buf->st_size = 0; goto done; } else if ( isdev == FILE_TYPE_UNKNOWN ) { errno = EBADF; retval = -1; goto done; /* join common return code */ } else { /* according to the documentation, this cannot happen, but * play it safe anyway. */ _dosmaperr(GetLastError()); retval = -1; goto done; } } /* set the common fields */ buf->st_ino = buf->st_uid = buf->st_gid = buf->st_mode = 0; buf->st_nlink = 1; /* use the file handle to get all the info about the file */ if ( !GetFileInformationByHandle((HANDLE)_osfhnd[fildes], &bhfi) ) { _dosmaperr(GetLastError()); retval = -1; goto done; } if ( bhfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY ) buf->st_mode |= (_S_IREAD + (_S_IREAD >> 3) + (_S_IREAD >> 6)); else buf->st_mode |= ((_S_IREAD|_S_IWRITE) + ((_S_IREAD|_S_IWRITE) >> 3) + ((_S_IREAD|_S_IWRITE) >> 6)); /* set file date fields */ FileTimeToSystemTime( &(bhfi.ftLastWriteTime), &SystemTime ); buf->st_mtime = __gmtotime_t(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay, SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond ); if ( bhfi.ftLastAccessTime.dwLowDateTime || bhfi.ftLastAccessTime. dwHighDateTime ) { FileTimeToSystemTime( &(bhfi.ftLastAccessTime), &SystemTime ); buf->st_atime = __gmtotime_t(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay, SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond ); } else buf->st_atime = buf->st_mtime; if ( bhfi.ftCreationTime.dwLowDateTime || bhfi.ftCreationTime. dwHighDateTime ) { FileTimeToSystemTime( &(bhfi.ftCreationTime), &SystemTime ); buf->st_ctime = __gmtotime_t(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay, SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond ); } else buf->st_ctime = buf->st_mtime; buf->st_size = bhfi.nFileSizeLow; buf->st_mode |= _S_IFREG; /* On DOS, this field contains the drive number, but * the drive number is not available on this platform. * Also, for UNC network names, there is no drive number. */ buf->st_rdev = buf->st_dev = 0; /* Common return code */ done: _unlock_fh(fildes); return(retval); } #else /* ndef _WIN32_ */ #error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED! #endif /* _WIN32_ */ #endif /* _CRUISER_ */