+ if (page_size == 0) {
+ page_size = getpagesize();
+ }
+
+ BlueSkyLog *log = fs->log;
+ BlueSkyCacheFile *map = bluesky_cachefile_lookup(fs, log_dir, log_seq);
+
+ if (map == NULL) {
+ return NULL;
+ }
+
+ if (map->addr == NULL) {
+ while (!map->ready && map->fetching) {
+ g_print("Waiting for log segment to be fetched from cloud...\n");
+ g_cond_wait(map->cond, map->lock);
+ }
+
+ int fd = openat(log->dirfd, map->filename, O_RDONLY);
+
+ if (fd < 0) {
+ fprintf(stderr, "Error opening logfile %s: %m\n", map->filename);
+ bluesky_cachefile_unref(map);
+ g_mutex_unlock(map->lock);
+ return NULL;
+ }
+
+ off_t length = lseek(fd, 0, SEEK_END);
+ map->addr = (const char *)mmap(NULL, length, PROT_READ, MAP_SHARED,
+ fd, 0);
+ g_atomic_int_add(&log->disk_used, -(map->len / 1024));
+ map->len = length;
+ g_atomic_int_add(&log->disk_used, map->len / 1024);
+
+ g_print("Re-mapped log segment %d...\n", log_seq);
+ g_atomic_int_inc(&map->refcount);
+
+ close(fd);
+ }
+
+ g_mutex_unlock(log->mmap_lock);
+
+ BlueSkyRCStr *str;
+ map->atime = bluesky_get_current_time();
+ str = bluesky_string_new_from_mmap(map, log_offset, log_size);
+ bluesky_cachefile_unref(map);
+ g_mutex_unlock(map->lock);
+ return str;
+}
+
+void bluesky_mmap_unref(BlueSkyCacheFile *mmap)
+{
+ if (mmap == NULL)
+ return;
+
+ if (g_atomic_int_dec_and_test(&mmap->mapcount)) {
+ g_mutex_lock(mmap->lock);
+ if (g_atomic_int_get(&mmap->mapcount) == 0) {
+ g_print("Unmapped log segment %d...\n", mmap->log_seq);
+ munmap((void *)mmap->addr, mmap->len);
+ mmap->addr = NULL;
+ g_atomic_int_add(&mmap->refcount, -1);
+ }
+ g_mutex_unlock(mmap->lock);
+ }
+}
+
+/* Scan through all currently-stored files in the journal/cache and garbage
+ * collect old unused ones, if needed. */
+static void gather_cachefiles(gpointer key, gpointer value, gpointer user_data)
+{
+ GList **files = (GList **)user_data;
+ *files = g_list_prepend(*files, value);
+}
+
+static gint compare_cachefiles(gconstpointer a, gconstpointer b)
+{
+ int64_t ta, tb;
+
+ ta = ((BlueSkyCacheFile *)a)->atime;
+ tb = ((BlueSkyCacheFile *)b)->atime;
+ if (ta < tb)
+ return -1;
+ else if (ta > tb)
+ return 1;
+ else
+ return 0;
+}
+
+void bluesky_cachefile_gc(BlueSkyFS *fs)
+{
+ GList *files = NULL;
+
+ g_mutex_lock(fs->log->mmap_lock);
+ g_hash_table_foreach(fs->log->mmap_cache, gather_cachefiles, &files);
+
+ /* Sort based on atime. The atime should be stable since it shouln't be
+ * updated except by threads which can grab the mmap_lock, which we already
+ * hold. */
+ files = g_list_sort(files, compare_cachefiles);
+
+ /* Walk the list of files, starting with the oldest, deleting files if
+ * possible until enough space has been reclaimed. */
+ g_print("\nScanning cache: (total size = %d kB)\n", fs->log->disk_used);
+ while (files != NULL) {
+ BlueSkyCacheFile *cachefile = (BlueSkyCacheFile *)files->data;
+ /* Try to lock the structure, but if the lock is held by another thread
+ * then we'll just skip the file on this pass. */
+ if (g_mutex_trylock(cachefile->lock)) {
+ int64_t age = bluesky_get_current_time() - cachefile->atime;
+ g_print("%s addr=%p mapcount=%d refcount=%d atime_age=%f",
+ cachefile->filename, cachefile->addr, cachefile->mapcount,
+ cachefile->refcount, age / 1e6);
+ if (cachefile->fetching)
+ g_print(" (fetching)");
+ g_print("\n");
+
+ gboolean deletion_candidate = FALSE;
+ if (g_atomic_int_get(&fs->log->disk_used)
+ > bluesky_options.cache_size
+ && g_atomic_int_get(&cachefile->refcount) == 0
+ && g_atomic_int_get(&cachefile->mapcount) == 0)
+ {
+ deletion_candidate = TRUE;
+ }
+
+ /* Don't allow journal files to be reclaimed until all data is
+ * known to be durably stored in the cloud. */
+ if (cachefile->type == CLOUDLOG_JOURNAL
+ && cachefile->log_seq >= fs->log->journal_watermark)
+ {
+ deletion_candidate = FALSE;
+ }
+
+ if (deletion_candidate) {
+ g_print(" ...deleting\n");
+ if (unlinkat(fs->log->dirfd, cachefile->filename, 0) < 0) {
+ fprintf(stderr, "Unable to unlink journal %s: %m\n",
+ cachefile->filename);
+ }
+
+ g_atomic_int_add(&fs->log->disk_used, -(cachefile->len / 1024));
+ g_hash_table_remove(fs->log->mmap_cache, cachefile->filename);
+ g_mutex_unlock(cachefile->lock);
+ g_mutex_free(cachefile->lock);
+ g_cond_free(cachefile->cond);
+ g_free(cachefile->filename);
+ g_free(cachefile);
+ } else {
+ g_mutex_unlock(cachefile->lock);
+ }
+ }
+ files = g_list_delete_link(files, files);
+ }
+ g_list_free(files);
+
+ g_mutex_unlock(fs->log->mmap_lock);