/* nbdkit
 * Copyright Red Hat
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * * Redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer.
 *
 * * Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the distribution.
 *
 * * Neither the name of Red Hat nor the names of its contributors may be
 * used to endorse or promote products derived from this software without
 * specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY RED HAT AND CONTRIBUTORS ''AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RED HAT OR
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <config.h>

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include <inttypes.h>
#include <string.h>
#include <errno.h>
#include <time.h>

#define NBDKIT_API_VERSION 2
#include <nbdkit-plugin.h>

#include "cleanup.h"
#include "minmax.h"
#include "random.h"

/* The size of disk in bytes (initialized by size=<SIZE> parameter). */
static int64_t size = 0;

/* Seed. */
static uint32_t seed;

/* Fast mode. */
static bool fast = false;
static unsigned char fastbuffer[512];

/* Underlying function that generates repeatable data.
 *
 * We use nbdkit common/include/random.h to make random numbers.
 *
 * However we're not quite using it in the ordinary way.  In order to
 * be able to read any byte of data without needing to run the PRNG
 * from the start, the random data is computed from the index and seed
 * through three rounds of PRNG:
 *
 * index i     PRNG(seed+i)   -> PRNG -> PRNG -> mod 256 -> buf[i]
 * index i+1   PRNG(seed+i+1) -> PRNG -> PRNG -> mod 256 -> buf[i+1]
 * etc
 */
static void
generate (uint64_t offset, uint32_t count, unsigned char *buf)
{
  uint64_t s;
  uint32_t i;

  for (i = 0; i < count; ++i) {
    struct random_state state;

    xsrandom (seed + offset + i, &state);
    xrandom (&state);
    xrandom (&state);
    s = xrandom (&state);
    s &= 255;
    buf[i] = s;
  }
}

/* In fast mode, we use generate() above to generate a fixed sector
 * which is repeated across the whole disk.  However to prevent the
 * data from being too easily compressible, we do a simple
 * manipulation of the buffer depending on the sector number.
 */
static void
get_fast_sector (uint64_t bufnum, uint8_t *buf)
{
  size_t i;
  const uint8_t o = bufnum & 0xff;

  /* GCC unrolls and vectorizes this. */
  for (i = 0; i < sizeof fastbuffer; ++i) {
    buf[i] = fastbuffer[i] ^ o;
  }
}

static void
random_load (void)
{
  /* Set the seed to a random-ish value.  This is not meant to be
   * cryptographically useful.  It can be overridden using the seed
   * parameter.
   */
  seed = time (NULL);
}

static int
random_config (const char *key, const char *value)
{
  if (strcmp (key, "seed") == 0) {
    if (nbdkit_parse_uint32_t ("seed", value, &seed) == -1)
      return -1;
  }
  else if (strcmp (key, "size") == 0) {
    int64_t r = nbdkit_parse_size (value);
    if (r == -1)
      return -1;
    size = r;
  }
  else if (strcmp (key, "fast") == 0) {
    int r = nbdkit_parse_bool (value);
    if (r == -1)
      return -1;
    fast = r;
  }
  else {
    nbdkit_error ("unknown parameter '%s'", key);
    return -1;
  }

  return 0;
}

#define random_config_help \
  "size=<SIZE>  (required) Size of the backing disk\n" \
  "seed=<SEED>             Random number generator seed\n" \
  "fast=true               Generate repeated data (much faster)"

#define THREAD_MODEL NBDKIT_THREAD_MODEL_PARALLEL

static int
random_get_ready (void)
{
  if (fast)
    generate (0, sizeof fastbuffer, fastbuffer);
  return 0;
}

/* Create the per-connection handle. */
static void *
random_open (int readonly)
{
  return NBDKIT_HANDLE_NOT_NEEDED;
}

/* Get the disk size. */
static int64_t
random_get_size (void *handle)
{
  return size;
}

/* Serves the same data over multiple connections. */
static int
random_can_multi_conn (void *handle)
{
  return 1;
}

/* Cache. */
static int
random_can_cache (void *handle)
{
  /* Everything is already in memory, returning this without
   * implementing .cache lets nbdkit do the correct no-op.
   */
  return NBDKIT_CACHE_NATIVE;
}

/* Read data. */
static int
random_pread (void *handle, void *buf, uint32_t count, uint64_t offset,
              uint32_t flags)
{
  if (!fast) {
    /* In slow mode we generate the data properly. */
    generate (offset, count, buf);
  }
  else {
    /* In fast mode we just duplicate the same buffer. */
    uint8_t bounce[sizeof fastbuffer];
    uint64_t bufnum, bufoffs;

    bufnum = offset / sizeof fastbuffer;  /* buffer number */
    bufoffs = offset % sizeof fastbuffer; /* offset within the buffer */

    /* Unaligned head */
    if (bufoffs) {
      uint64_t n = MIN (sizeof fastbuffer - bufoffs, count);

      get_fast_sector (bufnum, bounce);
      memcpy (buf, &bounce[bufoffs], n);

      buf += n;
      count -= n;
      offset += n;
      bufnum++;
    }

    /* Aligned body */
    while (count >= sizeof fastbuffer) {
      get_fast_sector (bufnum, buf);

      buf += sizeof fastbuffer;
      count -= sizeof fastbuffer;
      offset += sizeof fastbuffer;
      bufnum++;
    }

    /* Unaligned tail */
    if (count) {
      get_fast_sector (bufnum, bounce);
      memcpy (buf, bounce, count);
    }
  }
  return 0;
}

/* Write data.
 *
 * This verifies that the data matches what is read.  This is
 * implemented by calling random_pread above internally and comparing
 * the two buffers.
 */
static int
random_pwrite (void *handle, const void *buf,
               uint32_t count, uint64_t offset,
               uint32_t flags)
{
  CLEANUP_FREE char *expected = malloc (count);
  if (expected == NULL) {
    nbdkit_error ("malloc: %m");
    return -1;
  }

  if (random_pread (handle, expected, count, offset, flags) == -1)
    return -1;

  if (memcmp (buf, expected, count) != 0) {
    errno = EIO;
    nbdkit_error ("data written does not match expected");
    return -1;
  }

  return 0;
}

/* Trim and zero are always errors.  By providing these functions we
 * short-circuit the fallback paths which would be very slow and
 * return EIO anyway.
 */
static int
random_trim_zero (void *handle, uint32_t count, uint64_t offset,
                  uint32_t flags)
{
  errno = EIO;
  nbdkit_error ("attempt to trim or zero non-sparse random disk");
  return -1;
}

static struct nbdkit_plugin plugin = {
  .name              = "random",
  .version           = PACKAGE_VERSION,
  .load              = random_load,
  .config            = random_config,
  .config_help       = random_config_help,
  .magic_config_key  = "size",
  .get_ready         = random_get_ready,
  .open              = random_open,
  .get_size          = random_get_size,
  .can_multi_conn    = random_can_multi_conn,
  .can_cache         = random_can_cache,
  .pread             = random_pread,
  .pwrite            = random_pwrite,
  .trim              = random_trim_zero,
  .zero              = random_trim_zero,
  /* In this plugin, errno is preserved properly along error return
   * paths from failed system calls.
   */
  .errno_is_preserved = 1,
};

NBDKIT_REGISTER_PLUGIN (plugin)