443 lines
10 KiB
C
443 lines
10 KiB
C
/*
|
|
* Copyright © 2000 Keith Packard
|
|
* Copyright © 2005 Patrick Lam
|
|
*
|
|
* Permission to use, copy, modify, distribute, and sell this software and its
|
|
* documentation for any purpose is hereby granted without fee, provided that
|
|
* the above copyright notice appear in all copies and that both that
|
|
* copyright notice and this permission notice appear in supporting
|
|
* documentation, and that the name of the author(s) not be used in
|
|
* advertising or publicity pertaining to distribution of the software without
|
|
* specific, written prior permission. The authors make no
|
|
* representations about the suitability of this software for any purpose. It
|
|
* is provided "as is" without express or implied warranty.
|
|
*
|
|
* THE AUTHOR(S) DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
|
|
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
|
|
* EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR
|
|
* CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
|
|
* DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
* PERFORMANCE OF THIS SOFTWARE.
|
|
*/
|
|
#include "fcint.h"
|
|
#include "fcarch.h"
|
|
#include <dirent.h>
|
|
#include <limits.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#ifdef HAVE_SYS_VFS_H
|
|
#include <sys/vfs.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_STATVFS_H
|
|
#include <sys/statvfs.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_STATFS_H
|
|
#include <sys/statfs.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_PARAM_H
|
|
#include <sys/param.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_MOUNT_H
|
|
#include <sys/mount.h>
|
|
#endif
|
|
#include <errno.h>
|
|
|
|
#ifdef _WIN32
|
|
#ifdef __GNUC__
|
|
typedef long long INT64;
|
|
#define EPOCH_OFFSET 11644473600ll
|
|
#else
|
|
#define EPOCH_OFFSET 11644473600i64
|
|
typedef __int64 INT64;
|
|
#endif
|
|
|
|
/* Workaround for problems in the stat() in the Microsoft C library:
|
|
*
|
|
* 1) stat() uses FindFirstFile() to get the file
|
|
* attributes. Unfortunately this API doesn't return correct values
|
|
* for modification time of a directory until some time after a file
|
|
* or subdirectory has been added to the directory. (This causes
|
|
* run-test.sh to fail, for instance.) GetFileAttributesEx() is
|
|
* better, it returns the updated timestamp right away.
|
|
*
|
|
* 2) stat() does some strange things related to backward
|
|
* compatibility with the local time timestamps on FAT volumes and
|
|
* daylight saving time. This causes problems after the switches
|
|
* to/from daylight saving time. See
|
|
* http://bugzilla.gnome.org/show_bug.cgi?id=154968 , especially
|
|
* comment #30, and http://www.codeproject.com/datetime/dstbugs.asp .
|
|
* We don't need any of that, FAT and Win9x are as good as dead. So
|
|
* just use the UTC timestamps from NTFS, converted to the Unix epoch.
|
|
*/
|
|
|
|
int
|
|
FcStat (const FcChar8 *file, struct stat *statb)
|
|
{
|
|
WIN32_FILE_ATTRIBUTE_DATA wfad;
|
|
char full_path_name[MAX_PATH];
|
|
char *basename;
|
|
DWORD rc;
|
|
|
|
if (!GetFileAttributesEx ((LPCSTR) file, GetFileExInfoStandard, &wfad))
|
|
return -1;
|
|
|
|
statb->st_dev = 0;
|
|
|
|
/* Calculate a pseudo inode number as a hash of the full path name.
|
|
* Call GetLongPathName() to get the spelling of the path name as it
|
|
* is on disk.
|
|
*/
|
|
rc = GetFullPathName ((LPCSTR) file, sizeof (full_path_name), full_path_name, &basename);
|
|
if (rc == 0 || rc > sizeof (full_path_name))
|
|
return -1;
|
|
|
|
rc = GetLongPathName (full_path_name, full_path_name, sizeof (full_path_name));
|
|
statb->st_ino = FcStringHash ((const FcChar8 *) full_path_name);
|
|
|
|
statb->st_mode = _S_IREAD | _S_IWRITE;
|
|
statb->st_mode |= (statb->st_mode >> 3) | (statb->st_mode >> 6);
|
|
|
|
if (wfad.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
|
|
statb->st_mode |= _S_IFDIR;
|
|
else
|
|
statb->st_mode |= _S_IFREG;
|
|
|
|
statb->st_nlink = 1;
|
|
statb->st_uid = statb->st_gid = 0;
|
|
statb->st_rdev = 0;
|
|
|
|
if (wfad.nFileSizeHigh > 0)
|
|
return -1;
|
|
statb->st_size = wfad.nFileSizeLow;
|
|
|
|
statb->st_atime = (*(INT64 *)&wfad.ftLastAccessTime)/10000000 - EPOCH_OFFSET;
|
|
statb->st_mtime = (*(INT64 *)&wfad.ftLastWriteTime)/10000000 - EPOCH_OFFSET;
|
|
statb->st_ctime = statb->st_mtime;
|
|
|
|
return 0;
|
|
}
|
|
|
|
#else
|
|
|
|
int
|
|
FcStat (const FcChar8 *file, struct stat *statb)
|
|
{
|
|
return stat ((char *) file, statb);
|
|
}
|
|
|
|
/* Adler-32 checksum implementation */
|
|
struct Adler32 {
|
|
int a;
|
|
int b;
|
|
};
|
|
|
|
static void
|
|
Adler32Init (struct Adler32 *ctx)
|
|
{
|
|
ctx->a = 1;
|
|
ctx->b = 0;
|
|
}
|
|
|
|
static void
|
|
Adler32Update (struct Adler32 *ctx, const char *data, int data_len)
|
|
{
|
|
while (data_len--)
|
|
{
|
|
ctx->a = (ctx->a + *data++) % 65521;
|
|
ctx->b = (ctx->b + ctx->a) % 65521;
|
|
}
|
|
}
|
|
|
|
static int
|
|
Adler32Finish (struct Adler32 *ctx)
|
|
{
|
|
return ctx->a + (ctx->b << 16);
|
|
}
|
|
|
|
#ifdef HAVE_STRUCT_DIRENT_D_TYPE
|
|
/* dirent.d_type can be relied upon on FAT filesystem */
|
|
static FcBool
|
|
FcDirChecksumScandirFilter(const struct dirent *entry)
|
|
{
|
|
return entry->d_type != DT_DIR;
|
|
}
|
|
#endif
|
|
|
|
static int
|
|
FcDirChecksumScandirSorter(const struct dirent **lhs, const struct dirent **rhs)
|
|
{
|
|
return strcmp((*lhs)->d_name, (*rhs)->d_name);
|
|
}
|
|
|
|
static void
|
|
free_dirent (struct dirent **p)
|
|
{
|
|
struct dirent **x;
|
|
|
|
for (x = p; *x != NULL; x++)
|
|
free (*x);
|
|
|
|
free (p);
|
|
}
|
|
|
|
int
|
|
FcScandir (const char *dirp,
|
|
struct dirent ***namelist,
|
|
int (*filter) (const struct dirent *),
|
|
int (*compar) (const struct dirent **, const struct dirent **));
|
|
|
|
int
|
|
FcScandir (const char *dirp,
|
|
struct dirent ***namelist,
|
|
int (*filter) (const struct dirent *),
|
|
int (*compar) (const struct dirent **, const struct dirent **))
|
|
{
|
|
DIR *d;
|
|
struct dirent *dent, *p, **dlist, **dlp;
|
|
size_t lsize = 128, n = 0;
|
|
|
|
d = opendir (dirp);
|
|
if (!d)
|
|
return -1;
|
|
|
|
dlist = (struct dirent **) malloc (sizeof (struct dirent *) * lsize);
|
|
if (!dlist)
|
|
{
|
|
closedir (d);
|
|
errno = ENOMEM;
|
|
|
|
return -1;
|
|
}
|
|
*dlist = NULL;
|
|
while ((dent = readdir (d)))
|
|
{
|
|
if (!filter || (filter) (dent))
|
|
{
|
|
size_t dentlen = FcPtrToOffset (dent, dent->d_name) + strlen (dent->d_name) + 1;
|
|
dentlen = ((dentlen + ALIGNOF_VOID_P - 1) & ~(ALIGNOF_VOID_P - 1));
|
|
p = (struct dirent *) malloc (dentlen);
|
|
memcpy (p, dent, dentlen);
|
|
if ((n + 1) >= lsize)
|
|
{
|
|
lsize += 128;
|
|
dlp = (struct dirent **) realloc (dlist, sizeof (struct dirent *) * lsize);
|
|
if (!dlp)
|
|
{
|
|
free_dirent (dlist);
|
|
closedir (d);
|
|
errno = ENOMEM;
|
|
|
|
return -1;
|
|
}
|
|
dlist = dlp;
|
|
}
|
|
dlist[n++] = p;
|
|
dlist[n] = NULL;
|
|
}
|
|
}
|
|
closedir (d);
|
|
|
|
qsort (dlist, n, sizeof (struct dirent *), (int (*) (const void *, const void *))compar);
|
|
|
|
*namelist = dlist;
|
|
|
|
return n;
|
|
}
|
|
|
|
static int
|
|
FcDirChecksum (const FcChar8 *dir, time_t *checksum)
|
|
{
|
|
struct Adler32 ctx;
|
|
struct dirent **files;
|
|
int n;
|
|
int ret = 0;
|
|
size_t len = strlen ((const char *)dir);
|
|
|
|
Adler32Init (&ctx);
|
|
|
|
n = FcScandir ((const char *)dir, &files,
|
|
#ifdef HAVE_STRUCT_DIRENT_D_TYPE
|
|
&FcDirChecksumScandirFilter,
|
|
#else
|
|
NULL,
|
|
#endif
|
|
&FcDirChecksumScandirSorter);
|
|
if (n == -1)
|
|
return -1;
|
|
|
|
while (n--)
|
|
{
|
|
size_t dlen = strlen (files[n]->d_name);
|
|
int dtype;
|
|
|
|
#ifdef HAVE_STRUCT_DIRENT_D_TYPE
|
|
dtype = files[n]->d_type;
|
|
if (dtype == DT_UNKNOWN)
|
|
{
|
|
#endif
|
|
struct stat statb;
|
|
char *f = malloc (len + 1 + dlen + 1);
|
|
|
|
if (!f)
|
|
{
|
|
ret = -1;
|
|
goto bail;
|
|
}
|
|
memcpy (f, dir, len);
|
|
f[len] = FC_DIR_SEPARATOR;
|
|
memcpy (&f[len + 1], files[n]->d_name, dlen);
|
|
f[len + 1 + dlen] = 0;
|
|
if (lstat (f, &statb) < 0)
|
|
{
|
|
ret = -1;
|
|
free (f);
|
|
goto bail;
|
|
}
|
|
if (S_ISDIR (statb.st_mode))
|
|
{
|
|
free (f);
|
|
goto bail;
|
|
}
|
|
|
|
free (f);
|
|
dtype = statb.st_mode;
|
|
#ifdef HAVE_STRUCT_DIRENT_D_TYPE
|
|
}
|
|
#endif
|
|
Adler32Update (&ctx, files[n]->d_name, dlen + 1);
|
|
Adler32Update (&ctx, (char *)&dtype, sizeof (int));
|
|
|
|
bail:
|
|
free (files[n]);
|
|
}
|
|
free (files);
|
|
if (ret == -1)
|
|
return -1;
|
|
|
|
*checksum = Adler32Finish (&ctx);
|
|
|
|
return 0;
|
|
}
|
|
#endif /* _WIN32 */
|
|
|
|
int
|
|
FcStatChecksum (const FcChar8 *file, struct stat *statb)
|
|
{
|
|
if (FcStat (file, statb) == -1)
|
|
return -1;
|
|
|
|
#ifndef _WIN32
|
|
/* We have a workaround of the broken stat() in FcStat() for Win32.
|
|
* No need to do something further more.
|
|
*/
|
|
if (FcIsFsMtimeBroken (file))
|
|
{
|
|
if (FcDirChecksum (file, &statb->st_mtime) == -1)
|
|
return -1;
|
|
}
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
FcFStatFs (int fd, FcStatFS *statb)
|
|
{
|
|
const char *p = NULL;
|
|
int ret = -1;
|
|
FcBool flag = FcFalse;
|
|
|
|
#if defined(HAVE_FSTATVFS) && (defined(HAVE_STRUCT_STATVFS_F_BASETYPE) || defined(HAVE_STRUCT_STATVFS_F_FSTYPENAME))
|
|
struct statvfs buf;
|
|
|
|
memset (statb, 0, sizeof (FcStatFS));
|
|
|
|
if ((ret = fstatvfs (fd, &buf)) == 0)
|
|
{
|
|
# if defined(HAVE_STRUCT_STATVFS_F_BASETYPE)
|
|
p = buf.f_basetype;
|
|
# elif defined(HAVE_STRUCT_STATVFS_F_FSTYPENAME)
|
|
p = buf.f_fstypename;
|
|
# endif
|
|
}
|
|
#elif defined(HAVE_FSTATFS) && (defined(HAVE_STRUCT_STATFS_F_FLAGS) || defined(HAVE_STRUCT_STATFS_F_FSTYPENAME) || defined(__linux__))
|
|
struct statfs buf;
|
|
|
|
memset (statb, 0, sizeof (FcStatFS));
|
|
|
|
if ((ret = fstatfs (fd, &buf)) == 0)
|
|
{
|
|
# if defined(HAVE_STRUCT_STATFS_F_FLAGS) && defined(MNT_LOCAL)
|
|
statb->is_remote_fs = !(buf.f_flags & MNT_LOCAL);
|
|
flag = FcTrue;
|
|
# endif
|
|
# if defined(HAVE_STRUCT_STATFS_F_FSTYPENAME)
|
|
p = buf.f_fstypename;
|
|
# elif defined(__linux__)
|
|
switch (buf.f_type)
|
|
{
|
|
case 0x6969: /* nfs */
|
|
statb->is_remote_fs = FcTrue;
|
|
break;
|
|
case 0x4d44: /* fat */
|
|
statb->is_mtime_broken = FcTrue;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return ret;
|
|
# else
|
|
# error "BUG: No way to figure out with fstatfs()"
|
|
# endif
|
|
}
|
|
#endif
|
|
if (p)
|
|
{
|
|
if (!flag && strcmp (p, "nfs") == 0)
|
|
statb->is_remote_fs = FcTrue;
|
|
if (strcmp (p, "msdosfs") == 0 ||
|
|
strcmp (p, "pcfs") == 0)
|
|
statb->is_mtime_broken = FcTrue;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
FcBool
|
|
FcIsFsMmapSafe (int fd)
|
|
{
|
|
FcStatFS statb;
|
|
|
|
if (FcFStatFs (fd, &statb) < 0)
|
|
return FcTrue;
|
|
|
|
return !statb.is_remote_fs;
|
|
}
|
|
|
|
FcBool
|
|
FcIsFsMtimeBroken (const FcChar8 *dir)
|
|
{
|
|
int fd = FcOpen ((const char *) dir, O_RDONLY);
|
|
|
|
if (fd != -1)
|
|
{
|
|
FcStatFS statb;
|
|
int ret = FcFStatFs (fd, &statb);
|
|
|
|
close (fd);
|
|
if (ret < 0)
|
|
return FcFalse;
|
|
|
|
return statb.is_mtime_broken;
|
|
}
|
|
|
|
return FcFalse;
|
|
}
|
|
|
|
#define __fcstat__
|
|
#include "fcaliastail.h"
|
|
#undef __fcstat__
|