/*
 * Cleancache frontend
 *
 * This code provides the generic "frontend" layer to call a matching
 * "backend" driver implementation of cleancache.  See
 * Documentation/vm/cleancache.txt for more information.
 *
 * Copyright (C) 2009-2010 Oracle Corp. All rights reserved.
 * Author: Dan Magenheimer
 *
 * This work is licensed under the terms of the GNU GPL, version 2.
 */

#include <linux/module.h>
#include <linux/fs.h>
#include <linux/exportfs.h>
#include <linux/mm.h>
#include <linux/debugfs.h>
#include <linux/cleancache.h>

/*
 * cleancache_ops is set by cleancache_ops_register to contain the pointers
 * to the cleancache "backend" implementation functions.
 */
static struct cleancache_ops *cleancache_ops __read_mostly;

/*
 * Counters available via /sys/kernel/debug/frontswap (if debugfs is
 * properly configured.  These are for information only so are not protected
 * against increment races.
 */
static u64 cleancache_succ_gets;
static u64 cleancache_failed_gets;
static u64 cleancache_puts;
static u64 cleancache_invalidates;

/*
 * When no backend is registered all calls to init_fs and init_shared_fs
 * are registered and fake poolids (FAKE_FS_POOLID_OFFSET or
 * FAKE_SHARED_FS_POOLID_OFFSET, plus offset in the respective array
 * [shared_|]fs_poolid_map) are given to the respective super block
 * (sb->cleancache_poolid) and no tmem_pools are created. When a backend
 * registers with cleancache the previous calls to init_fs and init_shared_fs
 * are executed to create tmem_pools and set the respective poolids. While no
 * backend is registered all "puts", "gets" and "flushes" are ignored or failed.
 */
#define MAX_INITIALIZABLE_FS 32
#define FAKE_FS_POOLID_OFFSET 1000
#define FAKE_SHARED_FS_POOLID_OFFSET 2000

#define FS_NO_BACKEND (-1)
#define FS_UNKNOWN (-2)
static int fs_poolid_map[MAX_INITIALIZABLE_FS];
static int shared_fs_poolid_map[MAX_INITIALIZABLE_FS];
static char *uuids[MAX_INITIALIZABLE_FS];
/*
 * Mutex for the [shared_|]fs_poolid_map to guard against multiple threads
 * invoking umount (and ending in __cleancache_invalidate_fs) and also multiple
 * threads calling mount (and ending up in __cleancache_init_[shared|]fs).
 */
static DEFINE_MUTEX(poolid_mutex);
/*
 * When set to false (default) all calls to the cleancache functions, except
 * the __cleancache_invalidate_fs and __cleancache_init_[shared|]fs are guarded
 * by the if (!cleancache_ops) return. This means multiple threads (from
 * different filesystems) will be checking cleancache_ops. The usage of a
 * bool instead of a atomic_t or a bool guarded by a spinlock is OK - we are
 * OK if the time between the backend's have been initialized (and
 * cleancache_ops has been set to not NULL) and when the filesystems start
 * actually calling the backends. The inverse (when unloading) is obviously
 * not good - but this shim does not do that (yet).
 */

/*
 * The backends and filesystems work all asynchronously. This is b/c the
 * backends can be built as modules.
 * The usual sequence of events is:
 *      a) mount /      -> __cleancache_init_fs is called. We set the
 *              [shared_|]fs_poolid_map and uuids for.
 *
 *      b). user does I/Os -> we call the rest of __cleancache_* functions
 *              which return immediately as cleancache_ops is false.
 *
 *      c). modprobe zcache -> cleancache_register_ops. We init the backend
 *              and set cleancache_ops to true, and for any fs_poolid_map
 *              (which is set by __cleancache_init_fs) we initialize the poolid.
 *
 *      d). user does I/Os -> now that cleancache_ops is true all the
 *              __cleancache_* functions can call the backend. They all check
 *              that fs_poolid_map is valid and if so invoke the backend.
 *
 *      e). umount /    -> __cleancache_invalidate_fs, the fs_poolid_map is
 *              reset (which is the second check in the __cleancache_* ops
 *              to call the backend).
 *
 * The sequence of event could also be c), followed by a), and d). and e). The
 * c) would not happen anymore. There is also the chance of c), and one thread
 * doing a) + d), and another doing e). For that case we depend on the
 * filesystem calling __cleancache_invalidate_fs in the proper sequence (so
 * that it handles all I/Os before it invalidates the fs (which is last part
 * of unmounting process).
 *
 * Note: The acute reader will notice that there is no "rmmod zcache" case.
 * This is b/c the functionality for that is not yet implemented and when
 * done, will require some extra locking not yet devised.
 */

/*
 * Register operations for cleancache, returning previous thus allowing
 * detection of multiple backends and possible nesting.
 */
struct cleancache_ops *cleancache_register_ops(struct cleancache_ops *ops)
{
        struct cleancache_ops *old = cleancache_ops;
        int i;

        mutex_lock(&poolid_mutex);
        for (i = 0; i < MAX_INITIALIZABLE_FS; i++) {
                if (fs_poolid_map[i] == FS_NO_BACKEND)
                        fs_poolid_map[i] = ops->init_fs(PAGE_SIZE);
                if (shared_fs_poolid_map[i] == FS_NO_BACKEND)
                        shared_fs_poolid_map[i] = ops->init_shared_fs
                                        (uuids[i], PAGE_SIZE);
        }
        /*
         * We MUST set cleancache_ops _after_ we have called the backends
         * init_fs or init_shared_fs functions. Otherwise the compiler might
         * re-order where cleancache_ops is set in this function.
         */
        barrier();
        cleancache_ops = ops;
        mutex_unlock(&poolid_mutex);
        return old;
}
EXPORT_SYMBOL(cleancache_register_ops);

/* Called by a cleancache-enabled filesystem at time of mount */
void __cleancache_init_fs(struct super_block *sb)
{
        int i;

        mutex_lock(&poolid_mutex);
        for (i = 0; i < MAX_INITIALIZABLE_FS; i++) {
                if (fs_poolid_map[i] == FS_UNKNOWN) {
                        sb->cleancache_poolid = i + FAKE_FS_POOLID_OFFSET;
                        if (cleancache_ops)
                                fs_poolid_map[i] = cleancache_ops->init_fs(PAGE_SIZE);
                        else
                                fs_poolid_map[i] = FS_NO_BACKEND;
                        break;
                }
        }
        mutex_unlock(&poolid_mutex);
}
EXPORT_SYMBOL(__cleancache_init_fs);

/* Called by a cleancache-enabled clustered filesystem at time of mount */
void __cleancache_init_shared_fs(char *uuid, struct super_block *sb)
{
        int i;

        mutex_lock(&poolid_mutex);
        for (i = 0; i < MAX_INITIALIZABLE_FS; i++) {
                if (shared_fs_poolid_map[i] == FS_UNKNOWN) {
                        sb->cleancache_poolid = i + FAKE_SHARED_FS_POOLID_OFFSET;
                        uuids[i] = uuid;
                        if (cleancache_ops)
                                shared_fs_poolid_map[i] = cleancache_ops->init_shared_fs
                                                (uuid, PAGE_SIZE);
                        else
                                shared_fs_poolid_map[i] = FS_NO_BACKEND;
                        break;
                }
        }
        mutex_unlock(&poolid_mutex);
}
EXPORT_SYMBOL(__cleancache_init_shared_fs);

/*
 * If the filesystem uses exportable filehandles, use the filehandle as
 * the key, else use the inode number.
 */
static int cleancache_get_key(struct inode *inode,
                              struct cleancache_filekey *key)
{
        int (*fhfn)(struct inode *, __u32 *fh, int *, struct inode *);
        int len = 0, maxlen = CLEANCACHE_KEY_MAX;
        struct super_block *sb = inode->i_sb;

        key->u.ino = inode->i_ino;
        if (sb->s_export_op != NULL) {
                fhfn = sb->s_export_op->encode_fh;
                if  (fhfn) {
                        len = (*fhfn)(inode, &key->u.fh[0], &maxlen, NULL);
                        if (len <= FILEID_ROOT || len == FILEID_INVALID)
                                return -1;
                        if (maxlen > CLEANCACHE_KEY_MAX)
                                return -1;
                }
        }
        return 0;
}

/*
 * Returns a pool_id that is associated with a given fake poolid.
 */
static int get_poolid_from_fake(int fake_pool_id)
{
        if (fake_pool_id >= FAKE_SHARED_FS_POOLID_OFFSET)
                return shared_fs_poolid_map[fake_pool_id -
                        FAKE_SHARED_FS_POOLID_OFFSET];
        else if (fake_pool_id >= FAKE_FS_POOLID_OFFSET)
                return fs_poolid_map[fake_pool_id - FAKE_FS_POOLID_OFFSET];
        return FS_NO_BACKEND;
}

/*
 * "Get" data from cleancache associated with the poolid/inode/index
 * that were specified when the data was put to cleanache and, if
 * successful, use it to fill the specified page with data and return 0.
 * The pageframe is unchanged and returns -1 if the get fails.
 * Page must be locked by caller.
 *
 * The function has two checks before any action is taken - whether
 * a backend is registered and whether the sb->cleancache_poolid
 * is correct.
 */
int __cleancache_get_page(struct page *page)
{
        int ret = -1;
        int pool_id;
        int fake_pool_id;
        struct cleancache_filekey key = { .u.key = { 0 } };

        if (!cleancache_ops) {
                cleancache_failed_gets++;
                goto out;
        }

        VM_BUG_ON_PAGE(!PageLocked(page), page);
        fake_pool_id = page->mapping->host->i_sb->cleancache_poolid;
        if (fake_pool_id < 0)
                goto out;
        pool_id = get_poolid_from_fake(fake_pool_id);

        if (cleancache_get_key(page->mapping->host, &key) < 0)
                goto out;

        if (pool_id >= 0)
                ret = cleancache_ops->get_page(pool_id,
                                key, page->index, page);
        if (ret == 0)
                cleancache_succ_gets++;
        else
                cleancache_failed_gets++;
out:
        return ret;
}
EXPORT_SYMBOL(__cleancache_get_page);

/*
 * "Put" data from a page to cleancache and associate it with the
 * (previously-obtained per-filesystem) poolid and the page's,
 * inode and page index.  Page must be locked.  Note that a put_page
 * always "succeeds", though a subsequent get_page may succeed or fail.
 *
 * The function has two checks before any action is taken - whether
 * a backend is registered and whether the sb->cleancache_poolid
 * is correct.
 */
void __cleancache_put_page(struct page *page)
{
        int pool_id;
        int fake_pool_id;
        struct cleancache_filekey key = { .u.key = { 0 } };

        if (!cleancache_ops) {
                cleancache_puts++;
                return;
        }

        VM_BUG_ON_PAGE(!PageLocked(page), page);
        fake_pool_id = page->mapping->host->i_sb->cleancache_poolid;
        if (fake_pool_id < 0)
                return;

        pool_id = get_poolid_from_fake(fake_pool_id);

        if (pool_id >= 0 &&
                cleancache_get_key(page->mapping->host, &key) >= 0) {
                cleancache_ops->put_page(pool_id, key, page->index, page);
                cleancache_puts++;
        }
}
EXPORT_SYMBOL(__cleancache_put_page);

/*
 * Invalidate any data from cleancache associated with the poolid and the
 * page's inode and page index so that a subsequent "get" will fail.
 *
 * The function has two checks before any action is taken - whether
 * a backend is registered and whether the sb->cleancache_poolid
 * is correct.
 */
void __cleancache_invalidate_page(struct address_space *mapping,
                                        struct page *page)
{
        /* careful... page->mapping is NULL sometimes when this is called */
        int pool_id;
        int fake_pool_id = mapping->host->i_sb->cleancache_poolid;
        struct cleancache_filekey key = { .u.key = { 0 } };

        if (!cleancache_ops)
                return;

        if (fake_pool_id >= 0) {
                pool_id = get_poolid_from_fake(fake_pool_id);
                if (pool_id < 0)
                        return;

                VM_BUG_ON_PAGE(!PageLocked(page), page);
                if (cleancache_get_key(mapping->host, &key) >= 0) {
                        cleancache_ops->invalidate_page(pool_id,
                                        key, page->index);
                        cleancache_invalidates++;
                }
        }
}
EXPORT_SYMBOL(__cleancache_invalidate_page);

/*
 * Invalidate all data from cleancache associated with the poolid and the
 * mappings's inode so that all subsequent gets to this poolid/inode
 * will fail.
 *
 * The function has two checks before any action is taken - whether
 * a backend is registered and whether the sb->cleancache_poolid
 * is correct.
 */
void __cleancache_invalidate_inode(struct address_space *mapping)
{
        int pool_id;
        int fake_pool_id = mapping->host->i_sb->cleancache_poolid;
        struct cleancache_filekey key = { .u.key = { 0 } };

        if (!cleancache_ops)
                return;

        if (fake_pool_id < 0)
                return;

        pool_id = get_poolid_from_fake(fake_pool_id);

        if (pool_id >= 0 && cleancache_get_key(mapping->host, &key) >= 0)
                cleancache_ops->invalidate_inode(pool_id, key);
}
EXPORT_SYMBOL(__cleancache_invalidate_inode);

/*
 * Called by any cleancache-enabled filesystem at time of unmount;
 * note that pool_id is surrendered and may be returned by a subsequent
 * cleancache_init_fs or cleancache_init_shared_fs.
 */
void __cleancache_invalidate_fs(struct super_block *sb)
{
        int index;
        int fake_pool_id = sb->cleancache_poolid;
        int old_poolid = fake_pool_id;

        mutex_lock(&poolid_mutex);
        if (fake_pool_id >= FAKE_SHARED_FS_POOLID_OFFSET) {
                index = fake_pool_id - FAKE_SHARED_FS_POOLID_OFFSET;
                old_poolid = shared_fs_poolid_map[index];
                shared_fs_poolid_map[index] = FS_UNKNOWN;
                uuids[index] = NULL;
        } else if (fake_pool_id >= FAKE_FS_POOLID_OFFSET) {
                index = fake_pool_id - FAKE_FS_POOLID_OFFSET;
                old_poolid = fs_poolid_map[index];
                fs_poolid_map[index] = FS_UNKNOWN;
        }
        sb->cleancache_poolid = -1;
        if (cleancache_ops)
                cleancache_ops->invalidate_fs(old_poolid);
        mutex_unlock(&poolid_mutex);
}
EXPORT_SYMBOL(__cleancache_invalidate_fs);

static int __init init_cleancache(void)
{
        int i;

#ifdef CONFIG_DEBUG_FS
        struct dentry *root = debugfs_create_dir("cleancache", NULL);
        if (root == NULL)
                return -ENXIO;
        debugfs_create_u64("succ_gets", S_IRUGO, root, &cleancache_succ_gets);
        debugfs_create_u64("failed_gets", S_IRUGO,
                                root, &cleancache_failed_gets);
        debugfs_create_u64("puts", S_IRUGO, root, &cleancache_puts);
        debugfs_create_u64("invalidates", S_IRUGO,
                                root, &cleancache_invalidates);
#endif
        for (i = 0; i < MAX_INITIALIZABLE_FS; i++) {
                fs_poolid_map[i] = FS_UNKNOWN;
                shared_fs_poolid_map[i] = FS_UNKNOWN;
        }
        return 0;
}
module_init(init_cleancache)