/* * $RCSId: xc/lib/fontconfig/src/fccache.c,v 1.12 2002/08/22 07:36:44 keithp Exp $ * * 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 Keith Packard not be used in * advertising or publicity pertaining to distribution of the software without * specific, written prior permission. Keith Packard makes no * representations about the suitability of this software for any purpose. It * is provided "as is" without express or implied warranty. * * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO * EVENT SHALL KEITH PACKARD 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 #include #include #include #include #include #include #include "fcint.h" #include #define ENDIAN_TEST 0x12345678 #define MACHINE_SIGNATURE_SIZE 9 + 5*20 + 1 static int FcDirCacheOpen (char * cache_file); static char * FcDirCacheHashName (char * cache_file, int collisions); static off_t FcCacheSkipToArch (int fd, const char * arch, FcBool global); static FcBool FcCacheCopyOld (int fd, int fd_orig, off_t start); static void * FcDirCacheProduce (FcFontSet *set, FcCache * metadata); static FcBool FcDirCacheConsume (int fd, const char * dir, FcFontSet *set); FcBool FcDirCacheRead (FcFontSet * set, FcStrSet * dirs, const FcChar8 *dir); static int FcCacheNextOffset(off_t w); static char * FcCacheMachineSignature (void); static FcBool FcCacheHaveBank (int bank); static void FcCacheAddBankDir (int bank, const char * dir); struct MD5Context { FcChar32 buf[4]; FcChar32 bits[2]; unsigned char in[64]; }; static void MD5Init(struct MD5Context *ctx); static void MD5Update(struct MD5Context *ctx, unsigned char *buf, unsigned len); static void MD5Final(unsigned char digest[16], struct MD5Context *ctx); static void MD5Transform(FcChar32 buf[4], FcChar32 in[16]); #define FC_DBG_CACHE_REF 1024 static char * FcCacheReadString (int fd, char *dest, int len) { FcChar8 c; FcBool escape; int size; int i; if (len == 0) return 0; size = len; i = 0; escape = FcFalse; while (read (fd, &c, 1) == 1) { if (!escape) { switch (c) { case '"': c = '\0'; break; case '\\': escape = FcTrue; continue; } } if (i == size) { dest[i++] = 0; return dest; } dest[i++] = c; if (c == '\0') return dest; escape = FcFalse; } return 0; } static void FcCacheSkipString (int fd) { FcChar8 c; FcBool escape; escape = FcFalse; while (read (fd, &c, 1) == 1) { if (!escape) { switch (c) { case '"': c = '\0'; break; case '\\': escape = FcTrue; continue; } } if (c == '\0') return; escape = FcFalse; } return; } static FcBool FcCacheWriteString (int fd, const char *chars) { if (write (fd, chars, strlen(chars)+1) != strlen(chars)+1) return FcFalse; return FcTrue; } static void FcGlobalCacheDirDestroy (FcGlobalCacheDir *d) { FcMemFree (FC_MEM_STRING, strlen (d->name)+1); free (d->name); FcMemFree (FC_MEM_CACHE, sizeof (FcGlobalCacheDir)); free (d); } FcGlobalCache * FcGlobalCacheCreate (void) { FcGlobalCache *cache; cache = malloc (sizeof (FcGlobalCache)); if (!cache) return 0; FcMemAlloc (FC_MEM_CACHE, sizeof (FcGlobalCache)); cache->dirs = 0; cache->updated = FcFalse; cache->fd = -1; return cache; } void FcGlobalCacheDestroy (FcGlobalCache *cache) { FcGlobalCacheDir *d, *next; for (d = cache->dirs; d; d = next) { next = d->next; FcGlobalCacheDirDestroy (d); } FcMemFree (FC_MEM_CACHE, sizeof (FcGlobalCache)); free (cache); } void FcGlobalCacheLoad (FcGlobalCache *cache, FcStrSet *staleDirs, const FcChar8 *cache_file, FcConfig *config) { char name_buf[FC_MAX_FILE_LEN]; FcGlobalCacheDir *d, *next; FcFileTime config_time = FcConfigModifiedTime (config); char * current_arch_machine_name; char candidate_arch_machine_name[MACHINE_SIGNATURE_SIZE + 9]; off_t current_arch_start; struct stat cache_stat, dir_stat; if (stat ((char *) cache_file, &cache_stat) < 0) return; cache->fd = open ((char *) cache_file, O_RDONLY); if (cache->fd == -1) return; cache->updated = FcFalse; current_arch_machine_name = FcCacheMachineSignature (); current_arch_start = FcCacheSkipToArch(cache->fd, current_arch_machine_name, FcTrue); if (current_arch_start < 0) goto bail_and_destroy; lseek (cache->fd, current_arch_start, SEEK_SET); FcCacheReadString (cache->fd, candidate_arch_machine_name, sizeof (candidate_arch_machine_name)); if (strlen(candidate_arch_machine_name) == 0) goto bail_and_destroy; while (1) { off_t targ; FcCacheReadString (cache->fd, name_buf, sizeof (name_buf)); if (!strlen(name_buf)) break; /* Directory must be older than the global cache file; also cache must be newer than the config file. */ if (stat ((char *) name_buf, &dir_stat) < 0 || dir_stat.st_mtime > cache_stat.st_mtime || (config_time.set && cache_stat.st_mtime < config_time.time)) { FcCache md; FcStrSetAdd (staleDirs, FcStrCopy ((FcChar8 *)name_buf)); read (cache->fd, &md, sizeof (FcCache)); lseek (cache->fd, FcCacheNextOffset (lseek(cache->fd, 0, SEEK_CUR)) + md.count, SEEK_SET); continue; } d = malloc (sizeof (FcGlobalCacheDir)); if (!d) goto bail1; d->next = cache->dirs; cache->dirs = d; d->name = (char *)FcStrCopy ((FcChar8 *)name_buf); d->ent = 0; d->offset = lseek (cache->fd, 0, SEEK_CUR); if (read (cache->fd, &d->metadata, sizeof (FcCache)) != sizeof (FcCache)) goto bail1; targ = FcCacheNextOffset (lseek(cache->fd, 0, SEEK_CUR)) + d->metadata.count; if (lseek (cache->fd, targ, SEEK_SET) != targ) goto bail1; } return; bail1: for (d = cache->dirs; d; d = next) { next = d->next; free (d); } cache->dirs = 0; close (cache->fd); cache->fd = -1; return; bail_and_destroy: close (cache->fd); cache->fd = -1; if (stat ((char *) cache_file, &cache_stat) == 0) unlink ((char *)cache_file); return; } FcBool FcGlobalCacheReadDir (FcFontSet *set, FcStrSet *dirs, FcGlobalCache * cache, const char *dir, FcConfig *config) { FcGlobalCacheDir *d; FcBool ret = FcFalse; if (cache->fd == -1) return FcFalse; for (d = cache->dirs; d; d = d->next) { if (strncmp (d->name, dir, strlen(dir)) == 0) { lseek (cache->fd, d->offset, SEEK_SET); if (!FcDirCacheConsume (cache->fd, dir, set)) return FcFalse; if (strcmp (d->name, dir) == 0) ret = FcTrue; } } return ret; } FcBool FcGlobalCacheUpdate (FcGlobalCache *cache, const char *name, FcFontSet *set) { FcGlobalCacheDir * d; if (!set->nfont) return FcTrue; for (d = cache->dirs; d; d = d->next) { if (strcmp(d->name, name) == 0) break; } if (!d) { d = malloc (sizeof (FcGlobalCacheDir)); if (!d) return FcFalse; d->next = cache->dirs; cache->dirs = d; } cache->updated = FcTrue; d->name = (char *)FcStrCopy ((FcChar8 *)name); d->ent = FcDirCacheProduce (set, &d->metadata); d->offset = 0; return FcTrue; } FcBool FcGlobalCacheSave (FcGlobalCache *cache, const FcChar8 *cache_file) { int fd, fd_orig; FcGlobalCacheDir *dir; FcAtomic *atomic; off_t current_arch_start = 0, truncate_to; char * current_arch_machine_name, * header; if (!cache->updated) return FcTrue; #if defined (HAVE_GETUID) && defined (HAVE_GETEUID) /* Set-UID programs can't safely update the cache */ if (getuid () != geteuid ()) return FcFalse; #endif atomic = FcAtomicCreate (cache_file); if (!atomic) return FcFalse; if (!FcAtomicLock (atomic)) goto bail1; fd = open ((char *) FcAtomicNewFile(atomic), O_RDWR | O_CREAT, S_IRUSR | S_IWUSR); if (fd == -1) goto bail2; fd_orig = open ((char *) FcAtomicOrigFile(atomic), O_RDONLY); current_arch_machine_name = FcCacheMachineSignature (); if (fd_orig == -1) current_arch_start = 0; else current_arch_start = FcCacheSkipToArch (fd_orig, current_arch_machine_name, FcTrue); if (current_arch_start < 0) current_arch_start = FcCacheNextOffset (lseek(fd_orig, 0, SEEK_END)); if (!FcCacheCopyOld(fd, fd_orig, current_arch_start)) goto bail3; close (fd_orig); fd_orig = -1; current_arch_start = lseek(fd, 0, SEEK_CUR); if (ftruncate (fd, current_arch_start) == -1) goto bail3; header = malloc (10 + strlen (current_arch_machine_name)); if (!header) goto bail3; truncate_to = current_arch_start + strlen(current_arch_machine_name) + 11; for (dir = cache->dirs; dir; dir = dir->next) { truncate_to += strlen(dir->name) + 1; truncate_to += sizeof (FcCache); truncate_to = FcCacheNextOffset (truncate_to); truncate_to += dir->metadata.count; } truncate_to -= current_arch_start; sprintf (header, "%8x ", (int)truncate_to); strcat (header, current_arch_machine_name); if (!FcCacheWriteString (fd, header)) goto bail4; for (dir = cache->dirs; dir; dir = dir->next) { if (dir->ent) { FcCacheWriteString (fd, dir->name); write (fd, &dir->metadata, sizeof(FcCache)); lseek (fd, FcCacheNextOffset (lseek(fd, 0, SEEK_CUR)), SEEK_SET); write (fd, dir->ent, dir->metadata.count); free (dir->ent); } } FcCacheWriteString (fd, ""); if (close (fd) == -1) goto bail25; if (!FcAtomicReplaceOrig (atomic)) goto bail25; FcAtomicUnlock (atomic); FcAtomicDestroy (atomic); cache->updated = FcFalse; return FcTrue; bail4: free (header); bail3: if (fd_orig != -1) close (fd_orig); close (fd); bail25: FcAtomicDeleteNew (atomic); bail2: FcAtomicUnlock (atomic); bail1: FcAtomicDestroy (atomic); return FcFalse; } /* * Find the next presumably-mmapable offset after the supplied file * position. */ static int FcCacheNextOffset(off_t w) { static long pagesize = -1; if (pagesize == -1) pagesize = sysconf(_SC_PAGESIZE); if (w % pagesize == 0) return w; else return ((w / pagesize)+1)*pagesize; } /* return the address of the segment for the provided arch, * or -1 if arch not found */ static off_t FcCacheSkipToArch (int fd, const char * arch, FcBool global) { char candidate_arch_machine_name_count[MACHINE_SIGNATURE_SIZE + 9]; char * candidate_arch; off_t current_arch_start = 0; lseek (fd, 0, SEEK_SET); if (!global) FcCacheSkipString (fd); current_arch_start = lseek (fd, 0, SEEK_CUR); /* skip arches that are not the current arch */ while (1) { long bs; if (lseek (fd, current_arch_start, SEEK_SET) != current_arch_start) return -1; if (FcCacheReadString (fd, candidate_arch_machine_name_count, sizeof (candidate_arch_machine_name_count)) == 0) return -1; if (!strlen(candidate_arch_machine_name_count)) return -1; bs = strtol(candidate_arch_machine_name_count, &candidate_arch, 16); // count = 0 should probably be distinguished from the !bs condition if (!bs || bs < strlen (candidate_arch_machine_name_count)) return -1; candidate_arch++; /* skip leading space */ if (strcmp (candidate_arch, arch)==0) return current_arch_start; current_arch_start += bs; } return -1; } /* Cuts out the segment at the file pointer (moves everything else * down to cover it), and leaves the file pointer at the end of the * file. */ static FcBool FcCacheCopyOld (int fd, int fd_orig, off_t start) { char * buf = malloc (8192); char candidate_arch_machine_name[MACHINE_SIGNATURE_SIZE + 9]; long bs; int c, bytes_skipped; off_t loc; if (!buf) return FcFalse; loc = 0; lseek (fd, 0, SEEK_SET); lseek (fd_orig, 0, SEEK_SET); do { int b = 8192; if (loc + b > start) b = start - loc; if ((c = read (fd_orig, buf, b)) <= 0) break; if (write (fd, buf, c) < 0) goto bail; loc += c; } while (c > 0); lseek (fd, start, SEEK_SET); if (FcCacheReadString (fd, candidate_arch_machine_name, sizeof (candidate_arch_machine_name)) == 0) goto done; if (!strlen(candidate_arch_machine_name)) goto done; bs = strtol(candidate_arch_machine_name, 0, 16); if (bs == 0) goto done; bytes_skipped = 0; do { lseek (fd, start+bs+bytes_skipped, SEEK_SET); if ((c = read (fd, buf, 8192)) <= 0) break; lseek (fd, start+bytes_skipped, SEEK_SET); if (write (fd, buf, c) < 0) goto bail; bytes_skipped += c; } while (c > 0); lseek (fd, start+bytes_skipped, SEEK_SET); done: free (buf); return FcTrue; bail: free (buf); return FcFalse; } /* Does not check that the cache has the appropriate arch section. */ /* Also, this can be fooled if the original location has a stale * cache, and the hashed location has an up-to-date cache. Oh well, * sucks to be you in that case! */ FcBool FcDirCacheValid (const FcChar8 *dir) { FcChar8 *cache_file; struct stat file_stat, dir_stat; int fd; if (stat ((char *) dir, &dir_stat) < 0) return FcFalse; cache_file = FcStrPlus (dir, (FcChar8 *) "/" FC_DIR_CACHE_FILE); if (!cache_file) return FcFalse; fd = FcDirCacheOpen ((char *)cache_file); if (fd < 0) goto bail; if (fstat (fd, &file_stat) < 0) goto bail1; close (fd); FcStrFree (cache_file); /* * If the directory has been modified more recently than * the cache file, the cache is not valid */ if (dir_stat.st_mtime > file_stat.st_mtime) return FcFalse; return FcTrue; bail1: close (fd); bail: FcStrFree (cache_file); return FcFalse; } /* Assumes that the cache file in 'dir' exists. * Checks that the cache has the appropriate arch section. */ FcBool FcDirCacheHasCurrentArch (const FcChar8 *dir) { char *cache_file; int fd; off_t current_arch_start; char *current_arch_machine_name; cache_file = (char *)FcStrPlus (dir, (FcChar8 *) "/" FC_DIR_CACHE_FILE); if (!cache_file) return FcFalse; fd = FcDirCacheOpen (cache_file); if (fd < 0) goto bail; current_arch_machine_name = FcCacheMachineSignature(); current_arch_start = FcCacheSkipToArch(fd, current_arch_machine_name, FcFalse); close (fd); if (current_arch_start < 0) return FcFalse; return FcTrue; bail: free (cache_file); return FcFalse; } FcBool FcDirCacheUnlink (const FcChar8 *dir) { FcChar8 *cache_file = FcStrPlus (dir, (FcChar8 *) "/" FC_DIR_CACHE_FILE); struct stat cache_stat; if (stat ((char *) cache_file, &cache_stat) == 0 && unlink ((char *)cache_file) != 0) { FcStrFree (cache_file); return FcFalse; } FcStrFree (cache_file); return FcTrue; } static int FcCacheReadDirs (FcConfig * config, FcGlobalCache * cache, FcStrList *list, FcFontSet * set) { int ret = 0; FcChar8 *dir; FcChar8 *file, *base; FcStrSet *subdirs; FcStrList *sublist; struct stat statb; /* * Read in the results from 'list'. */ while ((dir = FcStrListNext (list))) { if (!FcConfigAcceptFilename (config, dir)) continue; /* freed below */ file = (FcChar8 *) malloc (strlen ((char *) dir) + 1 + FC_MAX_FILE_LEN + 1); if (!file) return FcFalse; strcpy ((char *) file, (char *) dir); strcat ((char *) file, "/"); base = file + strlen ((char *) file); subdirs = FcStrSetCreate (); if (!subdirs) { fprintf (stderr, "Can't create directory set\n"); ret++; free (file); continue; } if (access ((char *) dir, X_OK) < 0) { switch (errno) { case ENOENT: case ENOTDIR: case EACCES: break; default: fprintf (stderr, "\"%s\": ", dir); perror (""); ret++; } FcStrSetDestroy (subdirs); free (file); continue; } if (stat ((char *) dir, &statb) == -1) { fprintf (stderr, "\"%s\": ", dir); perror (""); FcStrSetDestroy (subdirs); ret++; free (file); continue; } if (!S_ISDIR (statb.st_mode)) { fprintf (stderr, "\"%s\": not a directory, skipping\n", dir); FcStrSetDestroy (subdirs); free (file); continue; } if (!FcDirCacheValid (dir) || !FcDirCacheRead (set, subdirs, dir)) { if (FcDebug () & FC_DBG_FONTSET) printf ("cache scan dir %s\n", dir); FcDirScanConfig (set, subdirs, cache, config->blanks, dir, FcFalse, config); } sublist = FcStrListCreate (subdirs); FcStrSetDestroy (subdirs); if (!sublist) { fprintf (stderr, "Can't create subdir list in \"%s\"\n", dir); ret++; free (file); continue; } ret += FcCacheReadDirs (config, cache, sublist, set); free (file); } FcStrListDone (list); return ret; } FcFontSet * FcCacheRead (FcConfig *config, FcGlobalCache * cache) { FcFontSet * s = FcFontSetCreate(); if (!s) return 0; if (FcCacheReadDirs (config, cache, FcConfigGetConfigDirs (config), s)) goto bail; return s; bail: FcFontSetDestroy (s); return 0; } static const char bin2hex[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f' }; static char * FcDirCacheHashName (char * cache_file, int collisions) { unsigned char hash[16], hex_hash[33]; char *cache_hashed; unsigned char uscore = '_'; int cnt, i; FcChar8 *tmp; struct MD5Context ctx; MD5Init (&ctx); MD5Update (&ctx, (unsigned char *)cache_file, strlen (cache_file)); for (i = 0; i < collisions; i++) MD5Update (&ctx, &uscore, 1); MD5Final (hash, &ctx); for (cnt = 0; cnt < 16; ++cnt) { hex_hash[2*cnt] = bin2hex[hash[cnt] >> 4]; hex_hash[2*cnt+1] = bin2hex[hash[cnt] & 0xf]; } hex_hash[32] = 0; tmp = FcStrPlus ((FcChar8 *)hex_hash, (FcChar8 *)FC_CACHE_SUFFIX); if (!tmp) return 0; cache_hashed = (char *)FcStrPlus ((FcChar8 *)PKGCACHEDIR"/", tmp); free (tmp); return cache_hashed; } /* Opens the hashed name for cache_file. * This would fail in the unlikely event of a collision and subsequent * removal of the file which originally caused the collision. */ static int FcDirCacheOpen (char *cache_file) { int fd = -1, collisions = 0; char *cache_hashed; char name_buf[FC_MAX_FILE_LEN]; fd = open(cache_file, O_RDONLY); if (fd != -1) return fd; do { cache_hashed = FcDirCacheHashName (cache_file, collisions++); if (!cache_hashed) return -1; if (fd > 0) close (fd); fd = open(cache_hashed, O_RDONLY); if (fd == -1) return -1; FcCacheReadString (fd, name_buf, sizeof (name_buf)); if (!strlen(name_buf)) goto bail; } while (strcmp (name_buf, cache_file) != 0); return fd; bail: close (fd); return -1; } /* read serialized state from the cache file */ FcBool FcDirCacheRead (FcFontSet * set, FcStrSet * dirs, const FcChar8 *dir) { char *cache_file; int fd; char *current_arch_machine_name; char candidate_arch_machine_name[9+MACHINE_SIGNATURE_SIZE]; off_t current_arch_start = 0; char subdirName[FC_MAX_FILE_LEN + 1 + 12 + 1]; cache_file = (char *)FcStrPlus (dir, (FcChar8 *) "/" FC_DIR_CACHE_FILE); if (!cache_file) return FcFalse; fd = FcDirCacheOpen (cache_file); if (fd < 0) goto bail; current_arch_machine_name = FcCacheMachineSignature(); current_arch_start = FcCacheSkipToArch(fd, current_arch_machine_name, FcFalse); if (current_arch_start < 0) goto bail1; lseek (fd, current_arch_start, SEEK_SET); if (FcCacheReadString (fd, candidate_arch_machine_name, sizeof (candidate_arch_machine_name)) == 0) goto bail1; while (strlen(FcCacheReadString (fd, subdirName, sizeof (subdirName))) > 0) FcStrSetAdd (dirs, (FcChar8 *)subdirName); if (!FcDirCacheConsume (fd, (const char *)dir, set)) goto bail1; close(fd); free (cache_file); return FcTrue; bail1: close (fd); bail: free (cache_file); return FcFalse; } static FcBool FcDirCacheConsume (int fd, const char * dir, FcFontSet *set) { FcCache metadata; void * current_dir_block; off_t pos; read(fd, &metadata, sizeof(FcCache)); if (metadata.magic != FC_CACHE_MAGIC) return FcFalse; if (!metadata.count) return FcTrue; pos = FcCacheNextOffset (lseek(fd, 0, SEEK_CUR)); current_dir_block = mmap (0, metadata.count, PROT_READ, MAP_SHARED, fd, pos); if (current_dir_block == MAP_FAILED) return FcFalse; FcCacheAddBankDir (metadata.bank, dir); if (!FcFontSetUnserialize (&metadata, set, current_dir_block)) return FcFalse; return FcTrue; } static void * FcDirCacheProduce (FcFontSet *set, FcCache *metadata) { void * current_dir_block, * final_dir_block; static unsigned int rand_state = 0; int bank, needed_bytes_no_align; if (!rand_state) rand_state = time(0L); bank = rand_r(&rand_state); while (FcCacheHaveBank(bank)) bank = rand_r(&rand_state); memset (metadata, 0, sizeof(FcCache)); FcFontSetNewBank(); needed_bytes_no_align = FcFontSetNeededBytes (set); metadata->count = needed_bytes_no_align + FcFontSetNeededBytesAlign (); metadata->magic = FC_CACHE_MAGIC; metadata->bank = bank; if (!needed_bytes_no_align) /* not a failure, no fonts to write */ { /* no, you don't really need to write any bytes at all. */ metadata->count = 0; return 0; } current_dir_block = malloc (metadata->count); if (!current_dir_block) goto bail; // shut up valgrind memset (current_dir_block, 0, metadata->count); final_dir_block = FcFontSetDistributeBytes (metadata, current_dir_block); if ((void *)((char *)current_dir_block+metadata->count) < final_dir_block) goto bail; if (!FcFontSetSerialize (bank, set)) goto bail; return current_dir_block; bail: free (current_dir_block); return 0; } /* write serialized state to the cache file */ FcBool FcDirCacheWrite (FcFontSet *set, FcStrSet *dirs, const FcChar8 *dir) { char *cache_file; char *cache_to_open; int fd, fd_orig, i, dirs_count; FcAtomic *atomic; FcCache metadata; off_t current_arch_start = 0, truncate_to; char name_buf[FC_MAX_FILE_LEN]; int collisions; char *current_arch_machine_name, * header; void *current_dir_block = 0; cache_file = (char *)FcStrPlus (dir, (FcChar8 *) "/" FC_DIR_CACHE_FILE); if (!cache_file) goto bail; /* Ensure that we're not trampling a cache for some other dir. */ /* This is slightly different from FcDirCacheOpen, since it * needs the filename, not the file descriptor. */ fd = -1; collisions = 0; do { cache_to_open = FcDirCacheHashName (cache_file, collisions++); if (!cache_to_open) goto bail0; if (fd > 0) close (fd); fd = open(cache_to_open, O_RDONLY); if (fd == -1) break; FcCacheReadString (fd, name_buf, sizeof (name_buf)); close (fd); if (!strlen(name_buf)) break; if (strcmp (name_buf, cache_file) != 0) continue; } while (0); current_dir_block = FcDirCacheProduce (set, &metadata); if (metadata.count && !current_dir_block) goto bail1; if (FcDebug () & FC_DBG_CACHE) printf ("FcDirCacheWriteDir cache_file \"%s\"\n", cache_file); atomic = FcAtomicCreate ((FcChar8 *)cache_to_open); if (!atomic) goto bail1; if (!FcAtomicLock (atomic)) { /* Now try rewriting the original version of the file. */ FcAtomicDestroy (atomic); atomic = FcAtomicCreate (cache_file); fd_orig = open (cache_file, O_RDONLY); if (fd_orig == -1) fd_orig = open((char *)FcAtomicOrigFile (atomic), O_RDONLY); fd = open((char *)FcAtomicNewFile (atomic), O_RDWR | O_CREAT, 0666); if (fd == -1) goto bail2; } /* In all cases, try opening the real location of the cache file first. */ /* (even if that's not atomic.) */ fd_orig = open (cache_file, O_RDONLY); if (fd_orig == -1) fd_orig = open((char *)FcAtomicOrigFile (atomic), O_RDONLY); fd = open((char *)FcAtomicNewFile (atomic), O_RDWR | O_CREAT, 0666); if (fd == -1) goto bail3; FcCacheWriteString (fd, cache_file); current_arch_machine_name = FcCacheMachineSignature (); current_arch_start = 0; if (fd_orig != -1) current_arch_start = FcCacheSkipToArch(fd_orig, current_arch_machine_name, FcFalse); if (current_arch_start < 0) current_arch_start = FcCacheNextOffset (lseek(fd_orig, 0, SEEK_END)); if (fd_orig != -1 && !FcCacheCopyOld(fd, fd_orig, current_arch_start)) goto bail4; if (fd_orig != -1) close (fd_orig); current_arch_start = lseek(fd, 0, SEEK_CUR); if (ftruncate (fd, current_arch_start) == -1) goto bail4; /* allocate space for subdir names in this block */ dirs_count = 0; for (i = 0; i < dirs->size; i++) dirs_count += strlen((char *)dirs->strs[i]) + 1; dirs_count ++; /* now write the address of the next offset */ truncate_to = FcCacheNextOffset (FcCacheNextOffset (current_arch_start + sizeof (FcCache) + dirs_count) + metadata.count) - current_arch_start; header = malloc (10 + strlen (current_arch_machine_name)); if (!header) goto bail4; sprintf (header, "%8x ", (int)truncate_to); strcat (header, current_arch_machine_name); if (!FcCacheWriteString (fd, header)) goto bail5; for (i = 0; i < dirs->size; i++) FcCacheWriteString (fd, (char *)dirs->strs[i]); FcCacheWriteString (fd, ""); write (fd, &metadata, sizeof(FcCache)); if (metadata.count) { lseek (fd, FcCacheNextOffset (lseek(fd, 0, SEEK_END)), SEEK_SET); write (fd, current_dir_block, metadata.count); free (current_dir_block); } /* this actually serves to pad out the cache file, if needed */ if (ftruncate (fd, current_arch_start + truncate_to) == -1) goto bail5; close(fd); if (!FcAtomicReplaceOrig(atomic)) goto bail5; FcAtomicUnlock (atomic); FcAtomicDestroy (atomic); return FcTrue; bail5: free (header); bail4: close (fd); bail3: FcAtomicUnlock (atomic); bail2: FcAtomicDestroy (atomic); bail1: free (cache_to_open); bail0: unlink ((char *)cache_file); free (cache_file); if (current_dir_block) free (current_dir_block); bail: return FcFalse; } static char * FcCacheMachineSignature () { static char buf[MACHINE_SIGNATURE_SIZE]; int32_t magic = ENDIAN_TEST; char * m = (char *)&magic; sprintf (buf, "%2x%2x%2x%2x " "%4x %4x %4x %4x %4x %4x %4x %4x %4x %4x %4x %4x " "%4x %4x %4x %4x %4x %4x %4x %4x\n", m[0], m[1], m[2], m[3], (unsigned int)sizeof (char), (unsigned int)sizeof (char *), (unsigned int)sizeof (int), (unsigned int)sizeof (FcPattern), (unsigned int)sizeof (FcPatternEltPtr), (unsigned int)sizeof (struct _FcPatternElt *), (unsigned int)sizeof (FcPatternElt), (unsigned int)sizeof (FcObjectPtr), (unsigned int)sizeof (FcValueListPtr), (unsigned int)sizeof (FcValue), (unsigned int)sizeof (FcValueBinding), (unsigned int)sizeof (struct _FcValueList *), (unsigned int)sizeof (FcCharSet), (unsigned int)sizeof (FcCharLeaf **), (unsigned int)sizeof (FcChar16 *), (unsigned int)sizeof (FcChar16), (unsigned int)sizeof (FcCharLeaf), (unsigned int)sizeof (FcChar32), (unsigned int)sizeof (FcCache), (unsigned int)sysconf(_SC_PAGESIZE)); return buf; } static int banks_ptr = 0, banks_alloc = 0; int * _fcBankId = 0, * _fcBankIdx = 0; static const char ** bankDirs = 0; static FcBool FcCacheHaveBank (int bank) { int i; if (bank < FC_BANK_FIRST) return FcTrue; for (i = 0; i < banks_ptr; i++) if (_fcBankId[i] == bank) return FcTrue; return FcFalse; } int FcCacheBankToIndexMTF (int bank) { int i, j; for (i = 0; i < banks_ptr; i++) if (_fcBankId[_fcBankIdx[i]] == bank) { int t = _fcBankIdx[i]; for (j = i; j > 0; j--) _fcBankIdx[j] = _fcBankIdx[j-1]; _fcBankIdx[0] = t; return t; } if (banks_ptr >= banks_alloc) { int * b, * bidx; const char ** bds; b = realloc (_fcBankId, (banks_alloc + 4) * sizeof(int)); if (!b) return -1; _fcBankId = b; bidx = realloc (_fcBankIdx, (banks_alloc + 4) * sizeof(int)); if (!bidx) return -1; _fcBankIdx = bidx; bds = realloc (bankDirs, (banks_alloc + 4) * sizeof (char *)); if (!bds) return -1; bankDirs = bds; banks_alloc += 4; } i = banks_ptr++; _fcBankId[i] = bank; _fcBankIdx[i] = i; return i; } static void FcCacheAddBankDir (int bank, const char * dir) { int bi = FcCacheBankToIndexMTF (bank); if (bi < 0) return; bankDirs[bi] = (const char *)FcStrCopy ((FcChar8 *)dir); } const char * FcCacheFindBankDir (int bank) { int bi = FcCacheBankToIndex (bank); return bankDirs[bi]; } /* * This code implements the MD5 message-digest algorithm. * The algorithm is due to Ron Rivest. This code was * written by Colin Plumb in 1993, no copyright is claimed. * This code is in the public domain; do with it what you wish. * * Equivalent code is available from RSA Data Security, Inc. * This code has been tested against that, and is equivalent, * except that you don't need to include two pages of legalese * with every copy. * * To compute the message digest of a chunk of bytes, declare an * MD5Context structure, pass it to MD5Init, call MD5Update as * needed on buffers full of bytes, and then call MD5Final, which * will fill a supplied 16-byte array with the digest. */ #ifndef HIGHFIRST #define byteReverse(buf, len) /* Nothing */ #else /* * Note: this code is harmless on little-endian machines. */ void byteReverse(unsigned char *buf, unsigned longs) { FcChar32 t; do { t = (FcChar32) ((unsigned) buf[3] << 8 | buf[2]) << 16 | ((unsigned) buf[1] << 8 | buf[0]); *(FcChar32 *) buf = t; buf += 4; } while (--longs); } #endif /* * Start MD5 accumulation. Set bit count to 0 and buffer to mysterious * initialization constants. */ static void MD5Init(struct MD5Context *ctx) { ctx->buf[0] = 0x67452301; ctx->buf[1] = 0xefcdab89; ctx->buf[2] = 0x98badcfe; ctx->buf[3] = 0x10325476; ctx->bits[0] = 0; ctx->bits[1] = 0; } /* * Update context to reflect the concatenation of another buffer full * of bytes. */ static void MD5Update(struct MD5Context *ctx, unsigned char *buf, unsigned len) { FcChar32 t; /* Update bitcount */ t = ctx->bits[0]; if ((ctx->bits[0] = t + ((FcChar32) len << 3)) < t) ctx->bits[1]++; /* Carry from low to high */ ctx->bits[1] += len >> 29; t = (t >> 3) & 0x3f; /* Bytes already in shsInfo->data */ /* Handle any leading odd-sized chunks */ if (t) { unsigned char *p = (unsigned char *) ctx->in + t; t = 64 - t; if (len < t) { memcpy(p, buf, len); return; } memcpy(p, buf, t); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, (FcChar32 *) ctx->in); buf += t; len -= t; } /* Process data in 64-byte chunks */ while (len >= 64) { memcpy(ctx->in, buf, 64); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, (FcChar32 *) ctx->in); buf += 64; len -= 64; } /* Handle any remaining bytes of data. */ memcpy(ctx->in, buf, len); } /* * Final wrapup - pad to 64-byte boundary with the bit pattern * 1 0* (64-bit count of bits processed, MSB-first) */ static void MD5Final(unsigned char digest[16], struct MD5Context *ctx) { unsigned count; unsigned char *p; /* Compute number of bytes mod 64 */ count = (ctx->bits[0] >> 3) & 0x3F; /* Set the first char of padding to 0x80. This is safe since there is always at least one byte free */ p = ctx->in + count; *p++ = 0x80; /* Bytes of padding needed to make 64 bytes */ count = 64 - 1 - count; /* Pad out to 56 mod 64 */ if (count < 8) { /* Two lots of padding: Pad the first block to 64 bytes */ memset(p, 0, count); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, (FcChar32 *) ctx->in); /* Now fill the next block with 56 bytes */ memset(ctx->in, 0, 56); } else { /* Pad block to 56 bytes */ memset(p, 0, count - 8); } byteReverse(ctx->in, 14); /* Append length in bits and transform */ ((FcChar32 *) ctx->in)[14] = ctx->bits[0]; ((FcChar32 *) ctx->in)[15] = ctx->bits[1]; MD5Transform(ctx->buf, (FcChar32 *) ctx->in); byteReverse((unsigned char *) ctx->buf, 4); memcpy(digest, ctx->buf, 16); memset(ctx, 0, sizeof(ctx)); /* In case it's sensitive */ } /* The four core functions - F1 is optimized somewhat */ /* #define F1(x, y, z) (x & y | ~x & z) */ #define F1(x, y, z) (z ^ (x & (y ^ z))) #define F2(x, y, z) F1(z, x, y) #define F3(x, y, z) (x ^ y ^ z) #define F4(x, y, z) (y ^ (x | ~z)) /* This is the central step in the MD5 algorithm. */ #define MD5STEP(f, w, x, y, z, data, s) \ ( w += f(x, y, z) + data, w = w<>(32-s), w += x ) /* * The core of the MD5 algorithm, this alters an existing MD5 hash to * reflect the addition of 16 longwords of new data. MD5Update blocks * the data and converts bytes into longwords for this routine. */ static void MD5Transform(FcChar32 buf[4], FcChar32 in[16]) { register FcChar32 a, b, c, d; a = buf[0]; b = buf[1]; c = buf[2]; d = buf[3]; MD5STEP(F1, a, b, c, d, in[0] + 0xd76aa478, 7); MD5STEP(F1, d, a, b, c, in[1] + 0xe8c7b756, 12); MD5STEP(F1, c, d, a, b, in[2] + 0x242070db, 17); MD5STEP(F1, b, c, d, a, in[3] + 0xc1bdceee, 22); MD5STEP(F1, a, b, c, d, in[4] + 0xf57c0faf, 7); MD5STEP(F1, d, a, b, c, in[5] + 0x4787c62a, 12); MD5STEP(F1, c, d, a, b, in[6] + 0xa8304613, 17); MD5STEP(F1, b, c, d, a, in[7] + 0xfd469501, 22); MD5STEP(F1, a, b, c, d, in[8] + 0x698098d8, 7); MD5STEP(F1, d, a, b, c, in[9] + 0x8b44f7af, 12); MD5STEP(F1, c, d, a, b, in[10] + 0xffff5bb1, 17); MD5STEP(F1, b, c, d, a, in[11] + 0x895cd7be, 22); MD5STEP(F1, a, b, c, d, in[12] + 0x6b901122, 7); MD5STEP(F1, d, a, b, c, in[13] + 0xfd987193, 12); MD5STEP(F1, c, d, a, b, in[14] + 0xa679438e, 17); MD5STEP(F1, b, c, d, a, in[15] + 0x49b40821, 22); MD5STEP(F2, a, b, c, d, in[1] + 0xf61e2562, 5); MD5STEP(F2, d, a, b, c, in[6] + 0xc040b340, 9); MD5STEP(F2, c, d, a, b, in[11] + 0x265e5a51, 14); MD5STEP(F2, b, c, d, a, in[0] + 0xe9b6c7aa, 20); MD5STEP(F2, a, b, c, d, in[5] + 0xd62f105d, 5); MD5STEP(F2, d, a, b, c, in[10] + 0x02441453, 9); MD5STEP(F2, c, d, a, b, in[15] + 0xd8a1e681, 14); MD5STEP(F2, b, c, d, a, in[4] + 0xe7d3fbc8, 20); MD5STEP(F2, a, b, c, d, in[9] + 0x21e1cde6, 5); MD5STEP(F2, d, a, b, c, in[14] + 0xc33707d6, 9); MD5STEP(F2, c, d, a, b, in[3] + 0xf4d50d87, 14); MD5STEP(F2, b, c, d, a, in[8] + 0x455a14ed, 20); MD5STEP(F2, a, b, c, d, in[13] + 0xa9e3e905, 5); MD5STEP(F2, d, a, b, c, in[2] + 0xfcefa3f8, 9); MD5STEP(F2, c, d, a, b, in[7] + 0x676f02d9, 14); MD5STEP(F2, b, c, d, a, in[12] + 0x8d2a4c8a, 20); MD5STEP(F3, a, b, c, d, in[5] + 0xfffa3942, 4); MD5STEP(F3, d, a, b, c, in[8] + 0x8771f681, 11); MD5STEP(F3, c, d, a, b, in[11] + 0x6d9d6122, 16); MD5STEP(F3, b, c, d, a, in[14] + 0xfde5380c, 23); MD5STEP(F3, a, b, c, d, in[1] + 0xa4beea44, 4); MD5STEP(F3, d, a, b, c, in[4] + 0x4bdecfa9, 11); MD5STEP(F3, c, d, a, b, in[7] + 0xf6bb4b60, 16); MD5STEP(F3, b, c, d, a, in[10] + 0xbebfbc70, 23); MD5STEP(F3, a, b, c, d, in[13] + 0x289b7ec6, 4); MD5STEP(F3, d, a, b, c, in[0] + 0xeaa127fa, 11); MD5STEP(F3, c, d, a, b, in[3] + 0xd4ef3085, 16); MD5STEP(F3, b, c, d, a, in[6] + 0x04881d05, 23); MD5STEP(F3, a, b, c, d, in[9] + 0xd9d4d039, 4); MD5STEP(F3, d, a, b, c, in[12] + 0xe6db99e5, 11); MD5STEP(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16); MD5STEP(F3, b, c, d, a, in[2] + 0xc4ac5665, 23); MD5STEP(F4, a, b, c, d, in[0] + 0xf4292244, 6); MD5STEP(F4, d, a, b, c, in[7] + 0x432aff97, 10); MD5STEP(F4, c, d, a, b, in[14] + 0xab9423a7, 15); MD5STEP(F4, b, c, d, a, in[5] + 0xfc93a039, 21); MD5STEP(F4, a, b, c, d, in[12] + 0x655b59c3, 6); MD5STEP(F4, d, a, b, c, in[3] + 0x8f0ccc92, 10); MD5STEP(F4, c, d, a, b, in[10] + 0xffeff47d, 15); MD5STEP(F4, b, c, d, a, in[1] + 0x85845dd1, 21); MD5STEP(F4, a, b, c, d, in[8] + 0x6fa87e4f, 6); MD5STEP(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10); MD5STEP(F4, c, d, a, b, in[6] + 0xa3014314, 15); MD5STEP(F4, b, c, d, a, in[13] + 0x4e0811a1, 21); MD5STEP(F4, a, b, c, d, in[4] + 0xf7537e82, 6); MD5STEP(F4, d, a, b, c, in[11] + 0xbd3af235, 10); MD5STEP(F4, c, d, a, b, in[2] + 0x2ad7d2bb, 15); MD5STEP(F4, b, c, d, a, in[9] + 0xeb86d391, 21); buf[0] += a; buf[1] += b; buf[2] += c; buf[3] += d; }