// SPDX-License-Identifier: GPL-2.0-only
/*
 * Copyright 2023 Red Hat
 */

#include "funnel-workqueue.h"

#include <linux/atomic.h>
#include <linux/cache.h>
#include <linux/completion.h>
#include <linux/err.h>
#include <linux/kthread.h>
#include <linux/percpu.h>

#include "funnel-queue.h"
#include "logger.h"
#include "memory-alloc.h"
#include "numeric.h"
#include "permassert.h"
#include "string-utils.h"

#include "completion.h"
#include "status-codes.h"

static DEFINE_PER_CPU(unsigned int, service_queue_rotor);

/**
 * DOC: Work queue definition.
 *
 * There are two types of work queues: simple, with one worker thread, and round-robin, which uses
 * a group of the former to do the work, and assigns work to them in round-robin fashion (roughly).
 * Externally, both are represented via the same common sub-structure, though there's actually not
 * a great deal of overlap between the two types internally.
 */
struct vdo_work_queue {
        /* Name of just the work queue (e.g., "cpuQ12") */
        char *name;
        bool round_robin_mode;
        struct vdo_thread *owner;
        /* Life cycle functions, etc */
        const struct vdo_work_queue_type *type;
};

struct simple_work_queue {
        struct vdo_work_queue common;
        struct funnel_queue *priority_lists[VDO_WORK_Q_MAX_PRIORITY + 1];
        void *private;

        /*
         * The fields above are unchanged after setup but often read, and are good candidates for
         * caching -- and if the max priority is 2, just fit in one x86-64 cache line if aligned.
         * The fields below are often modified as we sleep and wake, so we want a separate cache
         * line for performance.
         */

        /* Any (0 or 1) worker threads waiting for new work to do */
        wait_queue_head_t waiting_worker_threads ____cacheline_aligned;
        /* Hack to reduce wakeup calls if the worker thread is running */
        atomic_t idle;

        /* These are infrequently used so in terms of performance we don't care where they land. */
        struct task_struct *thread;
        /* Notify creator once worker has initialized */
        struct completion *started;
};

struct round_robin_work_queue {
        struct vdo_work_queue common;
        struct simple_work_queue **service_queues;
        unsigned int num_service_queues;
};

static inline struct simple_work_queue *as_simple_work_queue(struct vdo_work_queue *queue)
{
        return ((queue == NULL) ?
                NULL : container_of(queue, struct simple_work_queue, common));
}

static inline struct round_robin_work_queue *as_round_robin_work_queue(struct vdo_work_queue *queue)
{
        return ((queue == NULL) ?
                 NULL :
                 container_of(queue, struct round_robin_work_queue, common));
}

/* Processing normal completions. */

/*
 * Dequeue and return the next waiting completion, if any.
 *
 * We scan the funnel queues from highest priority to lowest, once; there is therefore a race
 * condition where a high-priority completion can be enqueued followed by a lower-priority one, and
 * we'll grab the latter (but we'll catch the high-priority item on the next call). If strict
 * enforcement of priorities becomes necessary, this function will need fixing.
 */
static struct vdo_completion *poll_for_completion(struct simple_work_queue *queue)
{
        int i;

        for (i = queue->common.type->max_priority; i >= 0; i--) {
                struct funnel_queue_entry *link = vdo_funnel_queue_poll(queue->priority_lists[i]);

                if (link != NULL)
                        return container_of(link, struct vdo_completion, work_queue_entry_link);
        }

        return NULL;
}

static void enqueue_work_queue_completion(struct simple_work_queue *queue,
                                          struct vdo_completion *completion)
{
        VDO_ASSERT_LOG_ONLY(completion->my_queue == NULL,
                            "completion %px (fn %px) to enqueue (%px) is not already queued (%px)",
                            completion, completion->callback, queue, completion->my_queue);
        if (completion->priority == VDO_WORK_Q_DEFAULT_PRIORITY)
                completion->priority = queue->common.type->default_priority;

        if (VDO_ASSERT(completion->priority <= queue->common.type->max_priority,
                       "priority is in range for queue") != VDO_SUCCESS)
                completion->priority = 0;

        completion->my_queue = &queue->common;

        /* Funnel queue handles the synchronization for the put. */
        vdo_funnel_queue_put(queue->priority_lists[completion->priority],
                             &completion->work_queue_entry_link);

        /*
         * Due to how funnel queue synchronization is handled (just atomic operations), the
         * simplest safe implementation here would be to wake-up any waiting threads after
         * enqueueing each item. Even if the funnel queue is not empty at the time of adding an
         * item to the queue, the consumer thread may not see this since it is not guaranteed to
         * have the same view of the queue as a producer thread.
         *
         * However, the above is wasteful so instead we attempt to minimize the number of thread
         * wakeups. Using an idle flag, and careful ordering using memory barriers, we should be
         * able to determine when the worker thread might be asleep or going to sleep. We use
         * cmpxchg to try to take ownership (vs other producer threads) of the responsibility for
         * waking the worker thread, so multiple wakeups aren't tried at once.
         *
         * This was tuned for some x86 boxes that were handy; it's untested whether doing the read
         * first is any better or worse for other platforms, even other x86 configurations.
         */
        smp_mb();
        if ((atomic_read(&queue->idle) != 1) || (atomic_cmpxchg(&queue->idle, 1, 0) != 1))
                return;

        /* There's a maximum of one thread in this list. */
        wake_up(&queue->waiting_worker_threads);
}

static void run_start_hook(struct simple_work_queue *queue)
{
        if (queue->common.type->start != NULL)
                queue->common.type->start(queue->private);
}

static void run_finish_hook(struct simple_work_queue *queue)
{
        if (queue->common.type->finish != NULL)
                queue->common.type->finish(queue->private);
}

/*
 * Wait for the next completion to process, or until kthread_should_stop indicates that it's time
 * for us to shut down.
 *
 * If kthread_should_stop says it's time to stop but we have pending completions return a
 * completion.
 *
 * Also update statistics relating to scheduler interactions.
 */
static struct vdo_completion *wait_for_next_completion(struct simple_work_queue *queue)
{
        struct vdo_completion *completion;
        DEFINE_WAIT(wait);

        while (true) {
                prepare_to_wait(&queue->waiting_worker_threads, &wait,
                                TASK_INTERRUPTIBLE);
                /*
                 * Don't set the idle flag until a wakeup will not be lost.
                 *
                 * Force synchronization between setting the idle flag and checking the funnel
                 * queue; the producer side will do them in the reverse order. (There's still a
                 * race condition we've chosen to allow, because we've got a timeout below that
                 * unwedges us if we hit it, but this may narrow the window a little.)
                 */
                atomic_set(&queue->idle, 1);
                smp_mb(); /* store-load barrier between "idle" and funnel queue */

                completion = poll_for_completion(queue);
                if (completion != NULL)
                        break;

                /*
                 * We need to check for thread-stop after setting TASK_INTERRUPTIBLE state up
                 * above. Otherwise, schedule() will put the thread to sleep and might miss a
                 * wakeup from kthread_stop() call in vdo_finish_work_queue().
                 */
                if (kthread_should_stop())
                        break;

                schedule();

                /*
                 * Most of the time when we wake, it should be because there's work to do. If it
                 * was a spurious wakeup, continue looping.
                 */
                completion = poll_for_completion(queue);
                if (completion != NULL)
                        break;
        }

        finish_wait(&queue->waiting_worker_threads, &wait);
        atomic_set(&queue->idle, 0);

        return completion;
}

static void process_completion(struct simple_work_queue *queue,
                               struct vdo_completion *completion)
{
        if (VDO_ASSERT(completion->my_queue == &queue->common,
                       "completion %px from queue %px marked as being in this queue (%px)",
                       completion, queue, completion->my_queue) == VDO_SUCCESS)
                completion->my_queue = NULL;

        vdo_run_completion(completion);
}

static void service_work_queue(struct simple_work_queue *queue)
{
        run_start_hook(queue);

        while (true) {
                struct vdo_completion *completion = poll_for_completion(queue);

                if (completion == NULL)
                        completion = wait_for_next_completion(queue);

                if (completion == NULL) {
                        /* No completions but kthread_should_stop() was triggered. */
                        break;
                }

                process_completion(queue, completion);

                /*
                 * Be friendly to a CPU that has other work to do, if the kernel has told us to.
                 * This speeds up some performance tests; that "other work" might include other VDO
                 * threads.
                 */
                cond_resched();
        }

        run_finish_hook(queue);
}

static int work_queue_runner(void *ptr)
{
        struct simple_work_queue *queue = ptr;

        complete(queue->started);
        service_work_queue(queue);
        return 0;
}

/* Creation & teardown */

static void free_simple_work_queue(struct simple_work_queue *queue)
{
        unsigned int i;

        for (i = 0; i <= VDO_WORK_Q_MAX_PRIORITY; i++)
                vdo_free_funnel_queue(queue->priority_lists[i]);
        vdo_free(queue->common.name);
        vdo_free(queue);
}

static void free_round_robin_work_queue(struct round_robin_work_queue *queue)
{
        struct simple_work_queue **queue_table = queue->service_queues;
        unsigned int count = queue->num_service_queues;
        unsigned int i;

        queue->service_queues = NULL;

        for (i = 0; i < count; i++)
                free_simple_work_queue(queue_table[i]);
        vdo_free(queue_table);
        vdo_free(queue->common.name);
        vdo_free(queue);
}

void vdo_free_work_queue(struct vdo_work_queue *queue)
{
        if (queue == NULL)
                return;

        vdo_finish_work_queue(queue);

        if (queue->round_robin_mode)
                free_round_robin_work_queue(as_round_robin_work_queue(queue));
        else
                free_simple_work_queue(as_simple_work_queue(queue));
}

static int make_simple_work_queue(const char *thread_name_prefix, const char *name,
                                  struct vdo_thread *owner, void *private,
                                  const struct vdo_work_queue_type *type,
                                  struct simple_work_queue **queue_ptr)
{
        DECLARE_COMPLETION_ONSTACK(started);
        struct simple_work_queue *queue;
        int i;
        struct task_struct *thread = NULL;
        int result;

        VDO_ASSERT_LOG_ONLY((type->max_priority <= VDO_WORK_Q_MAX_PRIORITY),
                            "queue priority count %u within limit %u", type->max_priority,
                            VDO_WORK_Q_MAX_PRIORITY);

        result = vdo_allocate(1, "simple work queue", &queue);
        if (result != VDO_SUCCESS)
                return result;

        queue->private = private;
        queue->started = &started;
        queue->common.type = type;
        queue->common.owner = owner;
        init_waitqueue_head(&queue->waiting_worker_threads);

        result = vdo_duplicate_string(name, "queue name", &queue->common.name);
        if (result != VDO_SUCCESS) {
                vdo_free(queue);
                return -ENOMEM;
        }

        for (i = 0; i <= type->max_priority; i++) {
                result = vdo_make_funnel_queue(&queue->priority_lists[i]);
                if (result != VDO_SUCCESS) {
                        free_simple_work_queue(queue);
                        return result;
                }
        }

        thread = kthread_run(work_queue_runner, queue, "%s:%s", thread_name_prefix,
                             queue->common.name);
        if (IS_ERR(thread)) {
                free_simple_work_queue(queue);
                return (int) PTR_ERR(thread);
        }

        queue->thread = thread;

        /*
         * If we don't wait to ensure the thread is running VDO code, a quick kthread_stop (due to
         * errors elsewhere) could cause it to never get as far as running VDO, skipping the
         * cleanup code.
         *
         * Eventually we should just make that path safe too, and then we won't need this
         * synchronization.
         */
        wait_for_completion(&started);

        *queue_ptr = queue;
        return VDO_SUCCESS;
}

/**
 * vdo_make_work_queue() - Create a work queue; if multiple threads are requested, completions will
 *                         be distributed to them in round-robin fashion.
 * @thread_name_prefix: A prefix for the thread names to identify them as a vdo thread.
 * @name: A base name to identify this queue.
 * @owner: The vdo_thread structure to manage this queue.
 * @type: The type of queue to create.
 * @thread_count: The number of actual threads handling this queue.
 * @thread_privates: An array of private contexts, one for each thread; may be NULL.
 * @queue_ptr: A pointer to return the new work queue.
 *
 * Each queue is associated with a struct vdo_thread which has a single vdo thread id. Regardless
 * of the actual number of queues and threads allocated here, code outside of the queue
 * implementation will treat this as a single zone.
 */
int vdo_make_work_queue(const char *thread_name_prefix, const char *name,
                        struct vdo_thread *owner, const struct vdo_work_queue_type *type,
                        unsigned int thread_count, void *thread_privates[],
                        struct vdo_work_queue **queue_ptr)
{
        struct round_robin_work_queue *queue;
        int result;
        char thread_name[TASK_COMM_LEN];
        unsigned int i;

        if (thread_count == 1) {
                struct simple_work_queue *simple_queue;
                void *context = ((thread_privates != NULL) ? thread_privates[0] : NULL);

                result = make_simple_work_queue(thread_name_prefix, name, owner, context,
                                                type, &simple_queue);
                if (result == VDO_SUCCESS)
                        *queue_ptr = &simple_queue->common;
                return result;
        }

        result = vdo_allocate(1, "round-robin work queue", &queue);
        if (result != VDO_SUCCESS)
                return result;

        result = vdo_allocate(thread_count, "subordinate work queues", &queue->service_queues);
        if (result != VDO_SUCCESS) {
                vdo_free(queue);
                return result;
        }

        queue->num_service_queues = thread_count;
        queue->common.round_robin_mode = true;
        queue->common.owner = owner;

        result = vdo_duplicate_string(name, "queue name", &queue->common.name);
        if (result != VDO_SUCCESS) {
                vdo_free(queue->service_queues);
                vdo_free(queue);
                return -ENOMEM;
        }

        *queue_ptr = &queue->common;

        for (i = 0; i < thread_count; i++) {
                void *context = ((thread_privates != NULL) ? thread_privates[i] : NULL);

                snprintf(thread_name, sizeof(thread_name), "%s%u", name, i);
                result = make_simple_work_queue(thread_name_prefix, thread_name, owner,
                                                context, type, &queue->service_queues[i]);
                if (result != VDO_SUCCESS) {
                        queue->num_service_queues = i;
                        /* Destroy previously created subordinates. */
                        vdo_free_work_queue(vdo_forget(*queue_ptr));
                        return result;
                }
        }

        return VDO_SUCCESS;
}

static void finish_simple_work_queue(struct simple_work_queue *queue)
{
        if (queue->thread == NULL)
                return;

        /* Tells the worker thread to shut down and waits for it to exit. */
        kthread_stop(queue->thread);
        queue->thread = NULL;
}

static void finish_round_robin_work_queue(struct round_robin_work_queue *queue)
{
        struct simple_work_queue **queue_table = queue->service_queues;
        unsigned int count = queue->num_service_queues;
        unsigned int i;

        for (i = 0; i < count; i++)
                finish_simple_work_queue(queue_table[i]);
}

/* No enqueueing of completions should be done once this function is called. */
void vdo_finish_work_queue(struct vdo_work_queue *queue)
{
        if (queue == NULL)
                return;

        if (queue->round_robin_mode)
                finish_round_robin_work_queue(as_round_robin_work_queue(queue));
        else
                finish_simple_work_queue(as_simple_work_queue(queue));
}

/* Debugging dumps */

static void dump_simple_work_queue(struct simple_work_queue *queue)
{
        const char *thread_status = "no threads";
        char task_state_report = '-';

        if (queue->thread != NULL) {
                task_state_report = task_state_to_char(queue->thread);
                thread_status = atomic_read(&queue->idle) ? "idle" : "running";
        }

        vdo_log_info("workQ %px (%s) %s (%c)", &queue->common, queue->common.name,
                     thread_status, task_state_report);

        /* ->waiting_worker_threads wait queue status? anyone waiting? */
}

/*
 * Write to the buffer some info about the completion, for logging. Since the common use case is
 * dumping info about a lot of completions to syslog all at once, the format favors brevity over
 * readability.
 */
void vdo_dump_work_queue(struct vdo_work_queue *queue)
{
        if (queue->round_robin_mode) {
                struct round_robin_work_queue *round_robin = as_round_robin_work_queue(queue);
                unsigned int i;

                for (i = 0; i < round_robin->num_service_queues; i++)
                        dump_simple_work_queue(round_robin->service_queues[i]);
        } else {
                dump_simple_work_queue(as_simple_work_queue(queue));
        }
}

static void get_function_name(void *pointer, char *buffer, size_t buffer_length)
{
        if (pointer == NULL) {
                /*
                 * Format "%ps" logs a null pointer as "(null)" with a bunch of leading spaces. We
                 * sometimes use this when logging lots of data; don't be so verbose.
                 */
                strscpy(buffer, "-", buffer_length);
        } else {
                /*
                 * Use a pragma to defeat gcc's format checking, which doesn't understand that
                 * "%ps" actually does support a precision spec in Linux kernel code.
                 */
                char *space;

#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wformat"
                snprintf(buffer, buffer_length, "%.*ps", buffer_length - 1, pointer);
#pragma GCC diagnostic pop

                space = strchr(buffer, ' ');
                if (space != NULL)
                        *space = '\0';
        }
}

void vdo_dump_completion_to_buffer(struct vdo_completion *completion, char *buffer,
                                   size_t length)
{
        size_t current_length =
                scnprintf(buffer, length, "%.*s/", TASK_COMM_LEN,
                          (completion->my_queue == NULL ? "-" : completion->my_queue->name));

        if (current_length < length - 1) {
                get_function_name((void *) completion->callback, buffer + current_length,
                                  length - current_length);
        }
}

/* Completion submission */
/*
 * If the completion has a timeout that has already passed, the timeout handler function may be
 * invoked by this function.
 */
void vdo_enqueue_work_queue(struct vdo_work_queue *queue,
                            struct vdo_completion *completion)
{
        /*
         * Convert the provided generic vdo_work_queue to the simple_work_queue to actually queue
         * on.
         */
        struct simple_work_queue *simple_queue = NULL;

        if (!queue->round_robin_mode) {
                simple_queue = as_simple_work_queue(queue);
        } else {
                struct round_robin_work_queue *round_robin = as_round_robin_work_queue(queue);

                /*
                 * It shouldn't be a big deal if the same rotor gets used for multiple work queues.
                 * Any patterns that might develop are likely to be disrupted by random ordering of
                 * multiple completions and migration between cores, unless the load is so light as
                 * to be regular in ordering of tasks and the threads are confined to individual
                 * cores; with a load that light we won't care.
                 */
                unsigned int rotor = this_cpu_inc_return(service_queue_rotor);
                unsigned int index = rotor % round_robin->num_service_queues;

                simple_queue = round_robin->service_queues[index];
        }

        enqueue_work_queue_completion(simple_queue, completion);
}

/* Misc */

/*
 * Return the work queue pointer recorded at initialization time in the work-queue stack handle
 * initialized on the stack of the current thread, if any.
 */
static struct simple_work_queue *get_current_thread_work_queue(void)
{
        /*
         * In interrupt context, if a vdo thread is what got interrupted, the calls below will find
         * the queue for the thread which was interrupted. However, the interrupted thread may have
         * been processing a completion, in which case starting to process another would violate
         * our concurrency assumptions.
         */
        if (in_interrupt())
                return NULL;

        if (kthread_func(current) != work_queue_runner)
                /* Not a VDO work queue thread. */
                return NULL;

        return kthread_data(current);
}

struct vdo_work_queue *vdo_get_current_work_queue(void)
{
        struct simple_work_queue *queue = get_current_thread_work_queue();

        return (queue == NULL) ? NULL : &queue->common;
}

struct vdo_thread *vdo_get_work_queue_owner(struct vdo_work_queue *queue)
{
        return queue->owner;
}

/**
 * vdo_get_work_queue_private_data() - Returns the private data for the current thread's work
 *                                     queue, or NULL if none or if the current thread is not a
 *                                     work queue thread.
 */
void *vdo_get_work_queue_private_data(void)
{
        struct simple_work_queue *queue = get_current_thread_work_queue();

        return (queue != NULL) ? queue->private : NULL;
}

bool vdo_work_queue_type_is(struct vdo_work_queue *queue,
                            const struct vdo_work_queue_type *type)
{
        return (queue->type == type);
}