cgminer.c

/*
 * Copyright 2016-2017 Fazio <Bai yang.bai@bitmain.com>
 * Copyright 2016-2017 Clement Duan <kai.duan@bitmain.com>
 * Copyright 2016 Miguel Padilla
 * Copyright 2011-2015 Con Kolivas
 * Copyright 2011-2015 Andrew Smith
 * Copyright 2011-2012 Luke Dashjr
 * Copyright 2010 Jeff Garzik
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 3 of the License, or (at your option)
 * any later version.  See COPYING for more details.
 */

#include "config.h"

#ifdef HAVE_CURSES
#include <curses.h>
#endif

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <stdint.h>
#include <unistd.h>
#include <sys/time.h>
#include <time.h>
#include <math.h>
#include <stdarg.h>
#include <assert.h>
#include <signal.h>
#include <limits.h>

#ifdef USE_USBUTILS
#include <semaphore.h>
#endif

#ifdef USE_LIBSYSTEMD
#include <systemd/sd-daemon.h>
#endif

#include <sys/sysinfo.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/resource.h>
#include <ccan/opt/opt.h>
#include <jansson.h>

#ifdef HAVE_LIBCURL
#include <curl/curl.h>
#else
char *curly = ":D";
#endif

#include <libgen.h>
#include "sha2.h"

#include "compat.h"
#include "miner.h"
#include "bench_block.h"

#ifdef USE_BITMAIN
#include "driver-bitmain.h"
#define USE_USBUTILS
#endif

#ifdef USE_BITMAIN_C5
#include "driver-btm-c5.h"
#endif

#ifdef USE_USBUTILS
#include "usbutils.h"
#endif

#if defined(unix) || defined(__APPLE__)
#include <errno.h>
#include <fcntl.h>
#include <sys/wait.h>
#endif

struct strategies strategies[] =
{
    { "Failover" },
    { "Round Robin" },
    { "Rotate" },
    { "Load Balance" },
    { "Balance" },
};

static char packagename[256];

FILE * g_logwork_file      = NULL;
FILE * g_logwork_files[65] = {0};
FILE * g_logwork_diffs[65] = {0};
int g_logwork_asicnum      = 0;

bool opt_work_update;
bool opt_protocol;


static struct benchfile_layout
{
    int length;
    char *name;
} benchfile_data[] =
{
    { 1,    "Version" },
    { 64,   "MerkleRoot" },
    { 64,   "PrevHash" },
    { 8,    "DifficultyBits" },
    { 10,   "NonceTime" } // 10 digits
};


enum benchwork
{
    BENCHWORK_VERSION = 0,
    BENCHWORK_MERKLEROOT,
    BENCHWORK_PREVHASH,
    BENCHWORK_DIFFBITS,
    BENCHWORK_NONCETIME,
    BENCHWORK_COUNT
};


#ifdef HAVE_LIBCURL
static char *opt_btc_address;
static char *opt_btc_sig;
#endif

char nonce_num10_string[NONCE_BUFF];
char nonce_num30_string[NONCE_BUFF];
char nonce_num60_string[NONCE_BUFF];

static char *opt_benchfile;
static bool opt_benchfile_display;
static FILE *benchfile_in;
static int benchfile_line;
static int benchfile_work;
static bool opt_benchmark;

static bool work_filled;
static bool work_emptied;

bool have_longpoll;
bool want_per_device_stats;
bool use_syslog;
bool opt_quiet;
bool opt_realquiet;
bool opt_loginput;
bool opt_compact;

const int opt_cutofftemp       = 95;
int opt_log_interval           = 5;
int opt_queue                  = 1;
static int max_queue           = 1;
int opt_scantime               = -1;
const int max_scantime         = -1;
int opt_expiry                 = 120;
int opt_pool_fallback          = 120;
unsigned long global_quota_gcd = 1;

static const bool opt_time = true;
unsigned long long global_hashrate;

time_t last_getwork;



#if defined(USE_USBUTILS)
int nDevs;
#endif

bool opt_restart = true;
bool opt_nogpu;

struct list_head scan_devices;
static bool opt_display_devs;
int total_devices;
int zombie_devs;
static int most_devices;
struct cgpu_info **devices;
int mining_threads;
int num_processors;

#ifdef HAVE_CURSES
bool use_curses = true;
#else
bool use_curses;
#endif

static bool opt_widescreen;
static bool alt_status;
static bool switch_status;
static bool opt_submit_stale = true;
static int opt_shares;

bool opt_fail_only;
static bool opt_fix_protocol;
bool opt_lowmem;
bool opt_autofan;
bool opt_autoengine;
bool opt_noadl;

char *opt_version_path = NULL;
char *opt_logfile_path = NULL;
char *opt_logfile_openflag = NULL;
char *opt_logwork_path = NULL;
char *opt_logwork_asicnum = NULL;

bool opt_logwork_diff = false;

char *opt_api_allow = NULL;
char *opt_api_groups;
char *opt_api_description = PACKAGE_STRING;
int opt_api_port = 4028;
char *opt_api_host = API_LISTEN_ADDR;

bool opt_api_listen;
bool opt_api_mcast;

char *opt_api_mcast_addr = API_MCAST_ADDR;
char *opt_api_mcast_code = API_MCAST_CODE;
char *opt_api_mcast_des = "";
int opt_api_mcast_port = 4028;

bool opt_api_network;
bool opt_delaynet;
bool opt_disable_pool;
static bool no_work;

bool opt_worktime;
static char *opt_set_null;

#ifdef USE_BITMAIN // mean S7 only
char *opt_bitmain_options = NULL;
char *opt_bitmain_freq    = NULL;
char *opt_bitmain_voltage = NULL;
bool fan_custom = TRUE;
char *fan_pwm_data = (char*) 20;
//uint8_t fan_eft = 1;
bool fan_ctrl_type = TRUE;
#endif

static char *opt_set_null;

#ifdef USE_USBUTILS
char *opt_usb_select = NULL;
int opt_usbdump = -1;
bool opt_usb_list_all;
cgsem_t usb_resource_sem;
static pthread_t usb_poll_thread;
static bool usb_polling;
static int usbres_thr_id;
static int hotplug_thr_id;
#endif

char *opt_kernel_path;
char *cgminer_path;

#define QUIET   (opt_quiet || opt_realquiet)

struct thr_info *control_thr;
struct thr_info **mining_thr;
static int gwsched_thr_id;
static int watchpool_thr_id;
static int watchdog_thr_id;

#ifdef HAVE_CURSES
static int input_thr_id;
#endif

int gpur_thr_id;
static int api_thr_id;

static int total_control_threads;
bool hotplug_mode;
static int new_devices;
static int new_threads;
int hotplug_time = 5;

#if LOCK_TRACKING
pthread_mutex_t lockstat_lock;
#endif

pthread_mutex_t hash_lock;
pthread_mutex_t update_job_lock;

static pthread_mutex_t *stgd_lock;
pthread_mutex_t console_lock;
cglock_t ch_lock;
static pthread_rwlock_t blk_lock;
static pthread_mutex_t sshare_lock;

pthread_rwlock_t netacc_lock;
pthread_rwlock_t mining_thr_lock;
pthread_rwlock_t devices_lock;

static pthread_mutex_t lp_lock;
static pthread_cond_t lp_cond;

pthread_mutex_t restart_lock;
pthread_cond_t restart_cond;

pthread_cond_t gws_cond;

#define CG_LOCAL_MHASHES_MAX_NUM 12

double g_local_mhashes_dones[CG_LOCAL_MHASHES_MAX_NUM] = {0};
int g_local_mhashes_index = 0;
double g_displayed_rolling = 0;
char g_miner_version[256] = {0};
char g_miner_compiletime[256] = {0};
char g_miner_type[256] = {0};

double rolling1, rolling5, rolling15;
double total_rolling;
double total_mhashes_done;
double new_total_mhashes_done;

char displayed_hash_rate[16] = {0};

// only used for total_secs, because we need use system info time, instead of real data time.
time_t total_tv_start_sys;
time_t total_tv_end_sys;

static struct timeval total_tv_start;
static struct timeval total_tv_end;
static struct timeval restart_tv_start;
static struct timeval update_tv_start;

cglock_t control_lock;
pthread_mutex_t stats_lock;

int hw_errors;
int g_max_fan, g_max_temp;
int64_t total_accepted, total_rejected, total_diff1;
int64_t total_getworks, total_stale, total_discarded;
double total_diff_accepted, total_diff_rejected, total_diff_stale;
static int staged_rollable;
unsigned int new_blocks;
static unsigned int work_block = 0;
unsigned int found_blocks;

unsigned int local_work;
unsigned int local_work_last = 0;
long local_work_lasttime = 0;
unsigned int total_go, total_ro;

struct pool **pools;
static struct pool *currentpool = NULL;

int total_pools, enabled_pools;
enum pool_strategy pool_strategy = POOL_FAILOVER;
int opt_rotate_period;
static int total_urls, total_users, total_passes, total_userpasses, total_extranonce;

static
#ifndef HAVE_CURSES
const
#endif
bool curses_active;

/* Protected by ch_lock */
char current_hash[68];
static char prev_block[12];
static char current_block[32];

static char datestamp[40];
static char blocktime[32];
struct timeval block_timeval;
static char best_share[8] = "0";
double current_diff = 0xFFFFFFFFFFFFFFFFULL;
static char block_diff[8];
uint64_t best_diff = 0;


struct block
{
    char hash[68];
    UT_hash_handle hh;
    int block_no;
};

static struct block *blocks = NULL;


int swork_id;


/* For creating a hash database of stratum shares submitted that have not had
 * a response yet */
struct stratum_share
{
    UT_hash_handle hh;
    bool block;
    struct work *work;
    int id;
    time_t sshare_time;
    time_t sshare_sent;
};

static struct stratum_share *stratum_shares = NULL;

char *opt_socks_proxy = NULL;
int opt_suggest_diff;

int opt_multi_version = 1;  // set here to true / 1

static const char def_conf[] = "bmminer.conf";

static char *default_config;
static bool config_loaded;
static int include_count;

#define JSON_INCLUDE_CONF "include"
#define JSON_LOAD_ERROR "JSON decode of file '%s' failed\n %s"
#define JSON_LOAD_ERROR_LEN strlen(JSON_LOAD_ERROR)
#define JSON_MAX_DEPTH 10
#define JSON_MAX_DEPTH_ERR "Too many levels of JSON includes (limit 10) or a loop"
#define JSON_WEB_ERROR "WEB config err"

#if defined(unix) || defined(__APPLE__)
static char *opt_stderr_cmd = NULL;
static int forkpid;
#endif // defined(unix)

struct sigaction termhandler, inthandler, abrthandler;

struct thread_q *getq;

static uint32_t total_work;
struct work *staged_work = NULL;


struct schedtime
{
    bool enable;
    struct tm tm;
};


struct schedtime schedstart;
struct schedtime schedstop;
bool sched_paused;


static bool time_before(struct tm *tm1, struct tm *tm2)
{
    if (tm1->tm_hour < tm2->tm_hour)
        return true;
    if (tm1->tm_hour == tm2->tm_hour && tm1->tm_min < tm2->tm_min)
        return true;
    return false;
}


static bool should_run(void)
{
    struct timeval tv;
    struct tm *tm;

    if (!schedstart.enable && !schedstop.enable)
    {
        return true;
    }

    cgtime(&tv);

    const time_t tmp_time = tv.tv_sec;
    tm                    = localtime(&tmp_time);

    if (schedstart.enable)
    {
        if (!schedstop.enable)
        {
            if (time_before(tm, (struct tm *) &schedstart.tm))
            {
                return false;
            }

            /* This is a once off event with no stop time set */
            schedstart.enable = false;
            return true;
        }
        if (time_before((struct tm *) &schedstart.tm, (struct tm *) &schedstop.tm))
        {
            if (time_before(tm, (struct tm *) &schedstop.tm) && !time_before(tm, (struct tm *) &schedstart.tm))
            {
                return true;
            }

            return false;
        }

        /* Times are reversed */
        if (time_before(tm, (struct tm *) &schedstart.tm))
        {
            if (time_before(tm, (struct tm *) &schedstop.tm))
            {
                return true;
            }

            return false;
        }

        return true;
    }
    /* only schedstop.enable == true */
    if (!time_before(tm, (struct tm *) &schedstop.tm))
    {
        return false;
    }

    return true;
}


void get_datestamp(char *f, size_t fsiz, struct timeval *tv)
{
    struct tm *tm;

    const time_t tmp_time = tv->tv_sec;
    int ms = (int)(tv->tv_usec / 1000);
    tm = localtime(&tmp_time);
    snprintf(f, fsiz, "[%d-%02d-%02d %02d:%02d:%02d.%03d]",
             tm->tm_year + 1900,
             tm->tm_mon + 1,
             tm->tm_mday,
             tm->tm_hour,
             tm->tm_min,
             tm->tm_sec, ms);
}


static void get_timestamp(char *f, size_t fsiz, struct timeval *tv)
{
    struct tm *tm;

    const time_t tmp_time = tv->tv_sec;
    int ms = (int)(tv->tv_usec / 1000);
    tm = localtime(&tmp_time);
    snprintf(f, fsiz, "[%02d:%02d:%02d.%03d]",
             tm->tm_hour,
             tm->tm_min,
             tm->tm_sec, ms);
}


static char exit_buf[512];


static void applog_and_exit(const char *fmt, ...)
{
    va_list ap;

    va_start(ap, fmt);
    vsnprintf(exit_buf, sizeof(exit_buf), fmt, ap);
    va_end(ap);
    _applog(LOG_ERR, exit_buf, true);
    exit(1);
}


static pthread_mutex_t sharelog_lock;
static FILE *sharelog_file = NULL;


static struct thr_info *__get_thread(int thr_id)
{
    return mining_thr[thr_id];
}


struct thr_info *get_thread(int thr_id)
{
    struct thr_info *thr;

    rd_lock(&mining_thr_lock);
    thr = __get_thread(thr_id);
    rd_unlock(&mining_thr_lock);

    return thr;
}


static struct cgpu_info *get_thr_cgpu(int thr_id)
{
    struct thr_info *thr = get_thread(thr_id);

    return thr->cgpu;
}


struct cgpu_info *get_devices(int id)
{
    struct cgpu_info *cgpu;

    rd_lock(&devices_lock);
    cgpu = devices[id];
    rd_unlock(&devices_lock);

    return cgpu;
}


static void sharelog(const char*disposition, const struct work*work)
{
    char *target, *hash, *data;
    struct cgpu_info *cgpu;
    unsigned long int t;
    struct pool *pool;
    int thr_id, rv;
    char s[1024];
    size_t ret;

    if (!sharelog_file)
    {
        return;
    }

    thr_id = work->thr_id;
    cgpu   = get_thr_cgpu(thr_id);
    pool   = work->pool;
    t      = (unsigned long int)(work->tv_work_found.tv_sec);
    target = bin2hex(work->target, sizeof(work->target));
    hash   = bin2hex(work->hash, sizeof(work->hash));
    data   = bin2hex(work->data, sizeof(work->data));

    // timestamp,disposition,target,pool,dev,thr,sharehash,sharedata
    rv = snprintf(s, sizeof(s), "%lu,%s,%s,%s,%s%u,%u,%s,%s\n", t, disposition, target, pool->rpc_url, cgpu->drv->name, cgpu->device_id, thr_id, hash, data);

    free(target);
    free(hash);
    free(data);

    if (rv >= (int)(sizeof(s)))
    {
        s[sizeof(s) - 1] = '\0';
    }
    else if (rv < 0)
    {
        applog(LOG_ERR, "sharelog printf error");
        return;
    }

    mutex_lock(&sharelog_lock);
    ret = fwrite(s, rv, 1, sharelog_file);
    fflush(sharelog_file);
    mutex_unlock(&sharelog_lock);

    if (ret != 1)
    {
        applog(LOG_ERR, "sharelog fwrite error");
    }
}

static char *getwork_req = "{\"method\": \"getwork\", \"params\": [], \"id\":0}\n";

static char *gbt_req = "{\"id\": 0, \"method\": \"getblocktemplate\", \"params\": [{\"capabilities\": [\"coinbasetxn\", \"workid\", \"coinbase/append\"]}]}\n";

static char *gbt_solo_req = "{\"id\": 0, \"method\": \"getblocktemplate\"}\n";


/* Adjust all the pools' quota to the greatest common denominator after a pool
 * has been added or the quotas changed. */
void adjust_quota_gcd(void)
{
    unsigned long gcd, lowest_quota = ~0UL, quota;
    struct pool *pool;
    int i;

    for (i = 0; i < total_pools; i++)
    {
        pool = pools[i];
        quota = (unsigned long) pool->quota;

        if (!quota)
        {
            continue;
        }

        if (quota < lowest_quota)
        {
            lowest_quota = quota;
        }
    }

    if (likely(lowest_quota < ~0UL))
    {
        gcd = lowest_quota;

        for (i = 0; i < total_pools; i++)
        {
            pool = pools[i];
            quota = (unsigned long) pool->quota;

            if (!quota)
            {
                continue;
            }

            while (quota % gcd)
            {
                gcd--;
            }
        }
    }
    else
    {
        gcd = 1;
    }

    for (i = 0; i < total_pools; i++)
    {
        pool = pools[i];
        pool->quota_used *= global_quota_gcd;
        pool->quota_used /= gcd;
        pool->quota_gcd = (int) (pool->quota / gcd);
    }

    global_quota_gcd = gcd;
    applog(LOG_DEBUG, "Global quota greatest common denominator set to %lu", gcd);
}


/* Return value is ignored if not called from add_pool_details */
struct pool *add_pool(void)
{
    struct pool *pool;

    pool = cgcalloc(sizeof(struct pool), (size_t)1);

#ifdef USE_BITMAIN_C5
    pool->support_vil = false; // TODO: why does S9 not support vil mode?
#endif

    if (!pool)
    {
        quit(1, "Failed to malloc pool in add_pool");
    }

    pool->pool_no        = pool->prio = total_pools;
    pools                = cgrealloc(pools, sizeof(struct pool *) * (total_pools + 2));
    pools[total_pools++] = pool;

    mutex_init(&pool->pool_lock);

    if (unlikely(pthread_cond_init(&pool->cr_cond, NULL)))
    {
        quit(1, "Failed to pthread_cond_init in add_pool");
    }

    cglock_init(&pool->data_lock);
    mutex_init(&pool->stratum_lock);
    cglock_init(&pool->gbt_lock);
    INIT_LIST_HEAD(&pool->curlring);

    /* Make sure the pool doesn't think we've been idle since time 0 */
    pool->tv_idle.tv_sec = ~0UL;

    pool->rpc_req   = getwork_req;
    pool->rpc_proxy = NULL;
    pool->quota     = 1;

    adjust_quota_gcd();
    pool->extranonce_subscribe = false;

    return pool;
}


/* Pool variant of test and set */
static bool pool_tset(struct pool *pool, bool *var)
{
    bool ret;

    mutex_lock(&pool->pool_lock);

    ret  = *var;
    *var = true;

    mutex_unlock(&pool->pool_lock);

    return ret;
}


bool pool_tclear(struct pool *pool, bool *var)
{
    bool ret;

    mutex_lock(&pool->pool_lock);

    ret  = *var;
    *var = false;

    mutex_unlock(&pool->pool_lock);

    return ret;
}


struct pool *current_pool(void)
{
    struct pool *pool;

    cg_rlock(&control_lock);

    pool = currentpool;

    cg_runlock(&control_lock);

    return pool;
}


char *set_int_range(const char *arg, int *i, int min, int max)
{
    char *err = opt_set_intval(arg, i);

    if (err)
    {
        return err;
    }

    if (*i < min || *i > max)
    {
        return "Value out of range";
    }

    return NULL;
}


static char *set_int_0_to_9999(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 9999);
}


static char *set_int_1_to_65535(const char *arg, int *i)
{
    return set_int_range(arg, i, 1, 65535);
}


static char *set_int_0_to_10(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 10);
}


static char *set_int_0_to_100(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 100);
}


static char *set_int_0_to_255(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 255);
}


static char *set_int_1_to_255(const char *arg, int *i)
{
    return set_int_range(arg, i, 1, 255);
}


static char *set_int_0_to_7680(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 7680);
}


static char *set_int_0_to_200(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 200);
}


static char *set_int_32_to_63(const char *arg, int *i)
{
    return set_int_range(arg, i, 32, 63);
}


static char *set_int_22_to_75(const char *arg, int *i)
{
    return set_int_range(arg, i, 22, 75);
}


static char *set_int_42_to_85(const char *arg, int *i)
{
    return set_int_range(arg, i, 42, 85);
}


static char *set_int_22_to_55(const char *arg, int *i)
{
    return set_int_range(arg, i, 22, 55);
}


static char *set_int_42_to_65(const char *arg, int *i)
{
    return set_int_range(arg, i, 42, 62);
}


static char *set_int_1_to_10(const char *arg, int *i)
{
    return set_int_range(arg, i, 1, 10);
}

static char __maybe_unused *set_int_0_to_4(const char *arg, int *i)
{
    return set_int_range(arg, i, 0, 4);
}


void get_intrange(char *arg, int *val1, int *val2)
{
    if (sscanf(arg, "%d-%d", val1, val2) == 1)
    {
        *val2 = *val1;
    }
}


static char *set_balance(enum pool_strategy *strategy)
{
    *strategy = POOL_BALANCE;
    return NULL;
}


static char *set_loadbalance(enum pool_strategy *strategy)
{
    *strategy = POOL_LOADBALANCE;
    return NULL;
}


static char *set_rotate(const char *arg, char __maybe_unused *i)
{
    pool_strategy = POOL_ROTATE;
    return set_int_range(arg, &opt_rotate_period, 0, 9999);
}


static char *set_rr(enum pool_strategy *strategy)
{
    *strategy = POOL_ROUNDROBIN;
    return NULL;
}

/* Detect that url is for a stratum protocol either via the presence of
 * stratum+tcp or by detecting a stratum server response */
bool detect_stratum(struct pool *pool, char *url)
{


    if (!extract_sockaddr(url, &pool->sockaddr_url, &pool->stratum_port))
    {
        return false;
    }

    if (!strncasecmp(url, "stratum+tcp://", 14))
    {
        pool->rpc_url = strdup(url);
        pool->has_stratum = true;
        pool->stratum_url = pool->sockaddr_url;
        return true;
    }

    return false;
}


static struct pool *add_url(void)
{
    total_urls++;

    if (total_urls > total_pools)
    {
        add_pool();
    }

    return pools[total_urls - 1];
}


static char *setup_url(struct pool *pool, char *arg)
{
    arg = get_proxy(arg, pool);

    if (detect_stratum(pool, arg))
    {
        goto out;
    }

    opt_set_charp(arg, &pool->rpc_url);

    if (strncmp(arg, "http://", 7) && strncmp(arg, "https://", 8))
    {
        char *httpinput;

        httpinput = cgmalloc((size_t)256);

        strcpy(httpinput, "stratum+tcp://");
        strncat(httpinput, arg, 242);

        detect_stratum(pool, httpinput);
    }

out:

    return pool->rpc_url;

}

static char *set_url(char *arg)
{
    struct pool *pool = add_url();

    setup_url(pool, arg);

    if (strstr(pool->rpc_url, ".nicehash.com") || strstr(pool->rpc_url, "#xnsub"))
    {
        pool->extranonce_subscribe = true;
        applog(LOG_DEBUG, "Pool %d extranonce subscribing enabled.", pool->pool_no);
    }

    return NULL;
}


static char *set_quota(char *arg)
{
    char *semicolon = strchr(arg, ';'), *url;
    int len, qlen, quota;
    struct pool *pool;

    if (!semicolon)
    {
        return "No semicolon separated quota;URL pair found";
    }

    len        = strlen(arg);
    *semicolon = '\0';
    qlen       = strlen(arg);

    if (!qlen)
    {
        return "No parameter for quota found";
    }

    len -= qlen + 1;

    if (len < 1)
    {
        return "No parameter for URL found";
    }

    quota = atoi(arg);

    if (quota < 0)
    {
        return "Invalid negative parameter for quota set";
    }

    url = arg + qlen + 1;
    pool = add_url();
    setup_url(pool, url);
    pool->quota = quota;
    applog(LOG_INFO, "Setting pool %d to quota %d", pool->pool_no, pool->quota);
    adjust_quota_gcd();

    return NULL;
}

static char *set_user(const char *arg)
{
    struct pool *pool;

    if (total_userpasses)
    {
        return "Use only user + pass or userpass, but not both";
    }
    total_users++;

    if (total_users > total_pools)
    {
        add_pool();
    }

    pool = pools[total_users - 1];
    opt_set_charp(arg, &pool->rpc_user);

    return NULL;
}


static char *set_pass(const char *arg)
{
    struct pool *pool;

    if (total_userpasses)
    {
        return "Use only user + pass or userpass, but not both";
    }

    total_passes++;

    if (total_passes > total_pools)
    {
        add_pool();
    }

    pool = pools[total_passes - 1];
    opt_set_charp(arg, &pool->rpc_pass);

    return NULL;
}

static char *set_userpass(const char *arg)
{
    struct pool *pool;
    char *updup;

    if (total_users || total_passes)
    {

        return "Use only user + pass or userpass, but not both";
    }

    total_userpasses++;

    if (total_userpasses > total_pools)
    {
        add_pool();
    }

    pool  = pools[total_userpasses - 1];
    updup = strdup(arg);

    opt_set_charp(arg, &pool->rpc_userpass);

    pool->rpc_user = strtok(updup, ":");

    if (!pool->rpc_user)
    {
        return "Failed to find : delimited user info";
    }

    pool->rpc_pass = strtok(NULL, ":");

    if (!pool->rpc_pass)
    {
        pool->rpc_pass = strdup("");
    }

    return NULL;
}

static char *set_extranonce_subscribe(char *arg)
{
    struct pool *pool;

    total_extranonce++;

    if (total_extranonce > total_pools)
    {
        add_pool();
    }

    pool = pools[total_extranonce - 1];
    applog(LOG_DEBUG, "Enable extranonce subscribe on %d", pool->pool_no);
    opt_set_bool(&pool->extranonce_subscribe);

    return NULL;
}


static char *enable_debug(bool *flag)
{
    *flag = false;
    /* Turn on verbose output, too. */
    opt_log_output = false;
    return NULL;
}


static char *opt_set_sched_start;
static char *opt_set_sched_stop;


static char *set_schedtime(const char *arg, struct schedtime *st)
{
    if (sscanf(arg, "%d:%d", &st->tm.tm_hour, &st->tm.tm_min) != 2)
    {
        return "Invalid time set, should be HH:MM";
    }

    if (st->tm.tm_hour > 23 || st->tm.tm_min > 59 || st->tm.tm_hour < 0 || st->tm.tm_min < 0)
    {
        return "Invalid time set.";
    }

    st->enable = true;
    return NULL;
}


static char *set_sched_start(const char *arg)
{
    return set_schedtime(arg, &schedstart);
}


static char *set_sched_stop(const char *arg)
{
    return set_schedtime(arg, &schedstop);
}

static char *opt_set_sharelog;
static char* set_sharelog(char *arg)
{
    char *r = "";
    long int i = strtol(arg, &r, 10);

    if ((!*r) && i >= 0 && i <= INT_MAX)
    {
        sharelog_file = fdopen((int)i, "a");
        if (!sharelog_file)
            applog(LOG_ERR, "Failed to open fd %u for share log", (unsigned int)i);
    }
    else if (!strcmp(arg, "-"))
    {
        sharelog_file = stdout;
        if (!sharelog_file)
        {
            applog(LOG_ERR, "Standard output missing for share log");
        }
    }
    else
    {
        sharelog_file = fopen(arg, "a");
        if (!sharelog_file)
        {
            applog(LOG_ERR, "Failed to open %s for share log", arg);
        }
    }

    return NULL;
}


static char *temp_cutoff_str = NULL;
static char __maybe_unused *opt_set_temp_cutoff;

char *set_temp_cutoff(char *arg)
{
    int val;

    if (!(arg && arg[0]))
    {
        return "Invalid parameters for set temp cutoff";
    }
    val = atoi(arg);

    if (val < 0 || val > 200)
    {
        return "Invalid value passed to set temp cutoff";
    }
    temp_cutoff_str = arg;

    return NULL;
}

static void load_temp_cutoffs()
{
    int i, val = 0, device = 0;
    char *nextptr;

    if (temp_cutoff_str)
    {
        for (device = 0, nextptr = strtok(temp_cutoff_str, ","); nextptr; ++device, nextptr = strtok(NULL, ","))
        {
            if (device >= total_devices)
            {
                quit(1, "Too many values passed to set temp cutoff");
            }

            val = atoi(nextptr);

            if (val < 0 || val > 200)
            {
                quit(1, "Invalid value passed to set temp cutoff");
            }

            rd_lock(&devices_lock);
            devices[device]->cutofftemp = val;
            rd_unlock(&devices_lock);
        }
    }
    else
    {
        rd_lock(&devices_lock);

        for (i = device; i < total_devices; ++i)
        {
            if (!devices[i]->cutofftemp)
            {
                devices[i]->cutofftemp = opt_cutofftemp;
            }
        }
        rd_unlock(&devices_lock);

        return;
    }

    if (device <= 1)
    {
        rd_lock(&devices_lock);

        for (i = device; i < total_devices; ++i)
        {
            devices[i]->cutofftemp = val;
        }
        rd_unlock(&devices_lock);
    }
}


static char *set_logfile_path(const char *arg)
{
    opt_set_charp(arg, &opt_logfile_path);

    return NULL;
}


static char *set_logfile_openflag(const char *arg)
{
    opt_set_charp(arg, &opt_logfile_openflag);

    return NULL;
}


static char *set_logwork_path(const char *arg)
{
    opt_set_charp(arg, &opt_logwork_path);

    return NULL;
}


static char *set_logwork_asicnum(const char *arg)
{
    opt_set_charp(arg, &opt_logwork_asicnum);

    return NULL;
}


static char *set_float_125_to_500(const char *arg, float *i)
{
    char *err = opt_set_floatval(arg, i);

    if (err)
    {
        return err;
    }

    if (*i < 125 || *i > 500)
    {
        return "Value out of range";
    }

    return NULL;
}


static char *set_float_100_to_250(const char *arg, float *i)
{
    char *err = opt_set_floatval(arg, i);

    if (err)
    {
        return err;
    }

    if (*i < 100 || *i > 250)
    {
        return "Value out of range";
    }

    return NULL;
}


static char *set_null(const char __maybe_unused *arg)
{
    return NULL;
}



static char *set_version_path(const char *arg)
{
    opt_set_charp(arg, &opt_version_path);

    return NULL;
}


#ifdef USE_BITMAIN
static char *set_bitmain_options(const char *arg)
{
    opt_set_charp(arg, &opt_bitmain_options);

    return NULL;
}
static char *set_bitmain_freq(const char *arg)
{
    opt_set_charp(arg, &opt_bitmain_freq);

    return NULL;
}
static char *set_bitmain_voltage(const char *arg)
{
    opt_set_charp(arg, &opt_bitmain_voltage);

    return NULL;
}

static char *set_bitmain_fanmax(const char *arg)
{
    opt_set_intval(arg, &opt_bitmain_fan_max);

    return NULL;
}
#endif


/* These options are available from config file or commandline */
static struct opt_table opt_config_table[] =
{


    OPT_WITH_ARG("--version-file",
    set_version_path, NULL, opt_hidden,
    "Set miner version file"),

    OPT_WITH_ARG("--logfile-openflag",
    set_logfile_openflag, NULL, opt_hidden,
    "Set log file open flag, default: a+"),

    OPT_WITH_ARG("--logwork",
    set_logwork_path, NULL, opt_hidden,
    "Set log work file path, following: minertext"),

    OPT_WITH_ARG("--logwork-asicnum",
    set_logwork_asicnum, NULL, opt_hidden,
    "Set log work asic num, following: 1, 32, 64"),

    OPT_WITHOUT_ARG("--logwork-diff",
    opt_set_bool, &opt_logwork_diff,
    "Allow log work diff"),

    OPT_WITH_ARG("--logfile",
    set_logfile_path, NULL, opt_hidden,
    "Set log file, default: bmminer.log"),

    OPT_WITH_ARG("--api-allow",
    opt_set_charp, NULL, &opt_api_allow,
    "Allow API access only to the given list of [G:]IP[/Prefix] addresses[/subnets]"),

    OPT_WITH_ARG("--api-description",
    opt_set_charp, NULL, &opt_api_description,
    "Description placed in the API status header, default: cgminer version"),

    OPT_WITH_ARG("--api-groups",
    opt_set_charp, NULL, &opt_api_groups,
    "API one letter groups G:cmd:cmd[,P:cmd:*...] defining the cmds a groups can use"),

    OPT_WITHOUT_ARG("--api-listen",
    opt_set_bool, &opt_api_listen,
    "Enable API, default: disabled"),

    OPT_WITHOUT_ARG("--api-mcast",
    opt_set_bool, &opt_api_mcast,
    "Enable API Multicast listener, default: disabled"),

    OPT_WITH_ARG("--api-mcast-addr",
    opt_set_charp, NULL, &opt_api_mcast_addr,
    "API Multicast listen address"),

    OPT_WITH_ARG("--api-mcast-code",
    opt_set_charp, NULL, &opt_api_mcast_code,
    "Code expected in the API Multicast message, don't use '-'"),

    OPT_WITH_ARG("--api-mcast-des",
    opt_set_charp, NULL, &opt_api_mcast_des,
    "Description appended to the API Multicast reply, default: ''"),

    OPT_WITH_ARG("--api-mcast-port",
    set_int_1_to_65535, opt_show_intval, &opt_api_mcast_port,
    "API Multicast listen port"),

    OPT_WITHOUT_ARG("--api-network",
    opt_set_bool, &opt_api_network,
    "Allow API (if enabled) to listen on/for any address, default: only 127.0.0.1"),

    OPT_WITH_ARG("--api-port",
    set_int_1_to_65535, opt_show_intval, &opt_api_port,
    "Port number of miner API"),

    OPT_WITH_ARG("--api-host",
    opt_set_charp, NULL, &opt_api_host,
    "Specify API listen address, default: 0.0.0.0"),

    OPT_WITHOUT_ARG("--balance",
    set_balance, &pool_strategy,
    "Change multipool strategy from failover to even share balance"),

    OPT_WITH_ARG("--benchfile",
    opt_set_charp, NULL, &opt_benchfile,
    "Run cgminer in benchmark mode using a work file - produces no shares"),

    OPT_WITHOUT_ARG("--benchfile-display",
    opt_set_bool, &opt_benchfile_display,
    "Display each benchfile nonce found"),

    OPT_WITHOUT_ARG("--benchmark",
    opt_set_bool, &opt_benchmark,
    "Run cgminer in benchmark mode - produces no shares"),


#ifdef USE_BITMAIN_C5
    OPT_WITHOUT_ARG("--bitmain-fan-ctrl",
    opt_set_bool, &opt_bitmain_fan_ctrl,
    "Enable bitmain miner fan controlling"),

    OPT_WITH_ARG("--bitmain-fan-pwm",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_fan_pwm,
    "Set bitmain fan pwm percentage 0~100"),

    OPT_WITH_ARG("--bitmain-freq",
    set_int_0_to_9999,opt_show_intval, &opt_bitmain_c5_freq,
    "Set frequency"),

    OPT_WITH_ARG("--bitmain-voltage",
    set_int_0_to_9999,opt_show_intval, &opt_bitmain_c5_voltage,
    "Set voltage"),


    OPT_WITHOUT_ARG("--fixed-freq",
    opt_set_bool, &opt_fixed_freq,
    "Set bitmain miner use fixed freq"),

    OPT_WITHOUT_ARG("--no-pre-heat",
    opt_set_false, &opt_pre_heat,
    "Set bitmain miner doesn't pre heat"),


#endif

#ifdef USE_BITMAIN
    OPT_WITH_ARG("--bitmain-dev",
    set_bitmain_dev, NULL, NULL,
    "Set bitmain device (default: /dev/bitmain-asic)"),


    OPT_WITH_ARG("--bitmain-fan-max",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_fan_max,
    "Set bitmain fan 35 to 100"),

    OPT_WITH_ARG("--bitmain-fan-min",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_fan_min,
    "Set bitmain fan 35 to 100"),


    OPT_WITHOUT_ARG("--bitmain-hwerror",
    opt_set_bool, &opt_bitmain_hwerror,
    "Set bitmain device detect hardware error"),

    OPT_WITHOUT_ARG("--bitmain-checkall",
    opt_set_bool, &opt_bitmain_checkall,
    "Set bitmain check all"),

    OPT_WITHOUT_ARG("--bitmain-checkn2diff",
    opt_set_bool, &opt_bitmain_checkn2diff,
    "Set bitmain check not 2 pow diff"),

    OPT_WITHOUT_ARG("--bitmain-nobeeper",
    opt_set_bool, &opt_bitmain_nobeeper,
    "Set bitmain beeper no ringing"),

    OPT_WITHOUT_ARG("--bitmain-notempoverctrl",
    opt_set_bool, &opt_bitmain_notempoverctrl,
    "Set bitmain not stop runing when temprerature is over 80 degree Celsius"),

    OPT_WITHOUT_ARG("--bitmain-auto",
    opt_set_bool, &opt_bitmain_auto,
    "Adjust bitmain overclock frequency dynamically for best hashrate"),

    OPT_WITHOUT_ARG("--bitmain-homemode",
    opt_set_bool, &opt_bitmain_homemode,
    "Set bitmain miner to home mode"),

    OPT_WITHOUT_ARG("--bitmain-use-vil",
    opt_set_bool, &opt_bitmain_new_cmd_type_vil,
    "Set bitmain miner use vil mode"),

    OPT_WITHOUT_ARG("--bitmain-fan-ctrl",
    opt_set_bool, &opt_bitmain_fan_ctrl,
    "Enable bitmain miner fan control"),

    OPT_WITH_ARG("--bitmain-fan-pwm",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_fan_pwm,
    "Set bitmain fan pwm percentage 0~100"),

    OPT_WITH_ARG("--bitmain-cutoff",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_overheat,
    "Set bitmain overheat cut off temperature"),
    OPT_WITH_ARG("--bitmain-fan",
    set_bitmain_fan, NULL, NULL,
    "Set fanspeed percentage for bitmain, single value or range (default: 20-100)"),
    OPT_WITH_ARG("--bitmain-freq-S7",
    set_bitmain_freq, NULL, NULL,
    "Set frequency"),
    OPT_WITH_ARG("--bitmain-voltage",
    set_bitmain_voltage, NULL, NULL,
    "Set voltage"),
    OPT_WITH_ARG("--bitmain-options",
    set_bitmain_options, NULL, NULL,
    "Set bitmain options baud:miners:asic:timeout:freq"),
    OPT_WITH_ARG("--bitmain-temp",
    set_int_0_to_100, opt_show_intval, &opt_bitmain_temp,
    "Set bitmain target temperature"),
#endif

#ifdef HAVE_LIBCURL
    OPT_WITH_ARG("--btc-address",
    opt_set_charp, NULL, &opt_btc_address,
    "Set bitcoin target address when solo mining to bitcoind (mandatory)"),
    OPT_WITH_ARG("--btc-sig",
    opt_set_charp, NULL, &opt_btc_sig,
    "Set signature to add to coinbase when solo mining (optional)"),
#endif

#ifdef HAVE_CURSES
    OPT_WITHOUT_ARG("--compact",
    opt_set_bool, &opt_compact,
    "Use compact display without per device statistics"),
#endif

    OPT_WITHOUT_ARG("--debug|-D",
    enable_debug, &opt_debug,
    "Enable debug output"),
    OPT_WITHOUT_ARG("--disable-rejecting",
    opt_set_bool, &opt_disable_pool,
    "Automatically disable pools that continually reject shares"),

    OPT_WITH_ARG("--expiry|-E",
    set_int_0_to_9999, opt_show_intval, &opt_expiry,
    "Upper bound on how many seconds after getting work we consider a share from it stale"),


    OPT_WITHOUT_ARG("--extranonce-subscribe",
    set_extranonce_subscribe, NULL,
    "Enable 'extranonce' stratum subscribe for MinToRRo by Zwilla"),

    OPT_WITHOUT_ARG("--failover-only",
    opt_set_bool, &opt_fail_only,
    "Don't leak work to backup pools when primary pool is lagging"),

    OPT_WITHOUT_ARG("--fix-protocol",
    opt_set_bool, &opt_fix_protocol,
    "Do not redirect to a different getwork protocol (eg. stratum)"),

    OPT_WITH_ARG("--fallback-time",
    opt_set_intval, opt_show_intval, &opt_pool_fallback,
    "Set time in seconds to fall back to a higher priority pool after period of instability"),

    OPT_WITH_ARG("--hotplug",
    set_int_0_to_9999, NULL, &hotplug_time,
#ifdef USE_USBUTILS
    "Seconds between hotplug checks (0 means never check)"
#else
    opt_hidden
#endif
                ),

    OPT_WITHOUT_ARG("--load-balance",
    set_loadbalance, &pool_strategy,
    "Change multipool strategy from failover to quota based balance"),

    OPT_WITH_ARG("--log|-l",
    set_int_0_to_9999, opt_show_intval, &opt_log_interval,
    "Interval in seconds between log output"),

    OPT_WITHOUT_ARG("--lowmem",
    opt_set_bool, &opt_lowmem,
    "Minimise caching of shares for low memory applications"),

#if defined(unix) || defined(__APPLE__)
    OPT_WITH_ARG("--monitor|-m",
    opt_set_charp, NULL, &opt_stderr_cmd,
    "Use custom pipe cmd for output messages"),
#endif // defined(unix)

    OPT_WITHOUT_ARG("--net-delay",
    opt_set_bool, &opt_delaynet,
    "Impose small delays in networking to not overload slow routers"),

    OPT_WITHOUT_ARG("--no-pool-disable",
    opt_set_invbool, &opt_disable_pool,
    opt_hidden),

    OPT_WITHOUT_ARG("--no-submit-stale",
    opt_set_invbool, &opt_submit_stale,
    "Don't submit shares if they are detected as stale"),

    OPT_WITH_ARG("--pass|-p",
    set_pass, NULL, &opt_set_null,
    "Password for bitcoin JSON-RPC server"),

    OPT_WITHOUT_ARG("--per-device-stats",
    opt_set_bool, &want_per_device_stats,
    "Force verbose mode and output per-device statistics"),

    OPT_WITH_ARG("--pools",
    opt_set_bool, NULL, &opt_set_null, opt_hidden),

    OPT_WITHOUT_ARG("--protocol-dump|-P",
    opt_set_bool, &opt_protocol,
    "Verbose dump of protocol-level activities"),

    OPT_WITH_ARG("--queue|-Q",
    set_int_0_to_9999, opt_show_intval, &opt_queue,
    "Maximum number of work items to have queued"),

    OPT_WITHOUT_ARG("--quiet|-q",
    opt_set_bool, &opt_quiet,
    "Disable logging output, display status and errors"),

    OPT_WITH_ARG("--quota|-U",
    set_quota, NULL, &opt_set_null,
    "quota;URL combination for server with load-balance strategy quotas"),

    OPT_WITHOUT_ARG("--real-quiet",
    opt_set_bool, &opt_realquiet,
    "Disable all output"),

    OPT_WITH_ARG("--retries",
    set_null, NULL, &opt_set_null,
    opt_hidden),

    OPT_WITH_ARG("--retry-pause",
    set_null, NULL, &opt_set_null,
    opt_hidden),

    OPT_WITH_ARG("--rotate",
    set_rotate, NULL, &opt_set_null,
    "Change multipool strategy from failover to regularly rotate at N minutes"),

    OPT_WITHOUT_ARG("--round-robin",
    set_rr, &pool_strategy,
    "Change multipool strategy from failover to round robin on failure"),

#ifdef USE_FPGA_SERIAL
    OPT_WITH_CBARG("--scan-serial|-S",
    add_serial, NULL, &opt_add_serial,
    "Serial port to probe for Serial FPGA Mining device"),
#endif

    OPT_WITH_ARG("--scan-time|-s",
    set_int_0_to_9999, opt_show_intval, &opt_scantime,
    "Upper bound on time spent scanning current work, in seconds"),

    OPT_WITH_CBARG("--sched-start",
    set_sched_start, NULL, &opt_set_sched_start,
    "Set a time of day in HH:MM to start mining (a once off without a stop time)"),

    OPT_WITH_CBARG("--sched-stop",
    set_sched_stop, NULL, &opt_set_sched_stop,
    "Set a time of day in HH:MM to stop mining (will quit without a start time)"),

    OPT_WITH_CBARG("--sharelog",
    set_sharelog, NULL, &opt_set_sharelog,
    "Append share log to file"),

    OPT_WITH_ARG("--shares",
    opt_set_intval, NULL, &opt_shares,
    "Quit after mining N shares (default: unlimited)"),

    OPT_WITH_ARG("--socks-proxy",
    opt_set_charp, NULL, &opt_socks_proxy,
    "Set socks4 proxy (host:port)"),

    OPT_WITH_ARG("--suggest-diff",
    opt_set_intval, NULL, &opt_suggest_diff,
    "Suggest miner difficulty for pool to user (default: none)"),

    OPT_WITH_ARG("--multi-version",
    opt_set_intval, NULL, &opt_multi_version,
    "Multi version mining!"),

#ifdef HAVE_SYSLOG_H
    OPT_WITHOUT_ARG("--syslog",
    opt_set_bool, &use_syslog,
    "Use system log for output messages (default: standard error)"),
#endif

    OPT_WITHOUT_ARG("--text-only|-T",
    opt_set_invbool, &use_curses,
#ifdef HAVE_CURSES
    "Disable ncurses formatted screen output"
#else
    opt_hidden
#endif
                   ),

    OPT_WITH_ARG("--url|-o",
    set_url, NULL, &opt_set_null,
    "URL for bitcoin JSON-RPC server"),

#ifdef USE_USBUTILS
    OPT_WITH_ARG("--usb",
    opt_set_charp, NULL, &opt_usb_select,
    "USB device selection"),
    OPT_WITH_ARG("--usb-dump",
    set_int_0_to_10, opt_show_intval, &opt_usbdump,
    opt_hidden),
    OPT_WITHOUT_ARG("--usb-list-all",
    opt_set_bool, &opt_usb_list_all,
    opt_hidden),
#endif

    OPT_WITH_ARG("--user|-u",
    set_user, NULL, &opt_set_null,
    "Username for bitcoin JSON-RPC server"),

    OPT_WITH_ARG("--userpass|-O",
    set_userpass, NULL, &opt_set_null,
    "Username:Password pair for bitcoin JSON-RPC server"),

    OPT_WITHOUT_ARG("--verbose",
    opt_set_bool, &opt_log_output,
    "Log verbose output to stderr as well as status output"),

    OPT_WITHOUT_ARG("--widescreen",
    opt_set_bool, &opt_widescreen,
    "Use extra wide display without toggling"),

    OPT_WITHOUT_ARG("--worktime",
    opt_set_bool, &opt_worktime,
    "Display extra work time debug information"),

    OPT_ENDTABLE
};

static char *load_config(const char *arg, void __maybe_unused *unused);

static int fileconf_load;

static char *parse_config(json_t *config, bool fileconf)
{
    static char err_buf[200];
    struct opt_table *opt;
    const char *str;
    json_t *val;

    if (fileconf && !fileconf_load)
    {
        fileconf_load = 1;
    }

    for (opt = opt_config_table; opt->type != OPT_END; opt++)
    {
        char *p, *name;

        /* We don't handle subtables. */
        assert(!(opt->type & OPT_SUBTABLE));

        if (!opt->names)
        {
            continue;
        }

        /* Pull apart the option name(s). */
        name = strdup(opt->names);
        for (p = strtok(name, "|"); p; p = strtok(NULL, "|"))
        {
            char *err = NULL;

            /* Ignore short options. */
            if (p[1] != '-')
            {
                continue;
            }

            val = json_object_get(config, p+2);

            if (!val)
            {
                continue;
            }

            if ((opt->type & (OPT_HASARG | OPT_PROCESSARG)) && json_is_string(val))
            {
                str = json_string_value(val);
                err = opt->cb_arg(str, opt->u.arg);

                if (opt->type == OPT_PROCESSARG)
                {
                    opt_set_charp(str, opt->u.arg);
                }
            }
            else if ((opt->type & (OPT_HASARG | OPT_PROCESSARG)) && json_is_array(val))
            {
                json_t *arr_val;
                size_t index;

                json_array_foreach(val, index, arr_val)
                {
                    if (json_is_string(arr_val))
                    {
                        str = json_string_value(arr_val);
                        err = opt->cb_arg(str, opt->u.arg);

                        if (opt->type == OPT_PROCESSARG)
                        {
                            opt_set_charp(str, opt->u.arg);
                        }
                    }
                    else if (json_is_object(arr_val))
                    {
                        err = parse_config(arr_val, false);
                    }
                    if (err)
                    {
                        break;
                    }
                }
            }
            else if ((opt->type & OPT_NOARG) && json_is_true(val))
            {
                err = opt->cb(opt->u.arg);
            }
            else
            {
                err = "Invalid value";
            }

            if (err)
            {
                /* Allow invalid values to be in configuration
                 * file, just skipping over them provided the
                 * JSON is still valid after that. */
                if (fileconf)
                {
                    applog(LOG_ERR, "Invalid config option %s: %s", p, err);
                    fileconf_load = -1;
                }
                else
                {
                    snprintf(err_buf, sizeof(err_buf), "Parsing JSON option %s: %s",
                             p, err);
                    return err_buf;
                }
            }
        }

        free(name);
    }

    val = json_object_get(config, JSON_INCLUDE_CONF);

    if (val && json_is_string(val))
    {
        return load_config(json_string_value(val), NULL);
    }

    return NULL;
}

char *cnfbuf = NULL;

#ifdef HAVE_LIBCURL
char conf_web1[] = "http://";
char conf_web2[] = "https://";

static char *load_web_config(const char *arg)
{
    json_t *val = json_web_config(arg);

    if (!val || !json_is_object(val))
        return JSON_WEB_ERROR;

    if (!cnfbuf)
        cnfbuf = strdup(arg);

    config_loaded = true;

    return parse_config(val, true);
}
#endif

static char *load_config(const char *arg, void __maybe_unused *unused)
{
    json_error_t err;
    json_t *config;
    char *json_error;
    size_t siz;

#ifdef HAVE_LIBCURL
    if (strncasecmp(arg, conf_web1, sizeof(conf_web1)-1) == 0 ||
        strncasecmp(arg, conf_web2, sizeof(conf_web2)-1) == 0)
        return load_web_config(arg);
#endif

    if (!cnfbuf)
    {
        cnfbuf = strdup(arg);
    }

    if (++include_count > JSON_MAX_DEPTH)
    {
        return JSON_MAX_DEPTH_ERR;
    }

    config = json_load_file(arg, 0, &err);

    if (!json_is_object(config))
    {
        siz = JSON_LOAD_ERROR_LEN + strlen(arg) + strlen(err.text);
        json_error = cgmalloc(siz);
        snprintf(json_error, siz, JSON_LOAD_ERROR, arg, err.text);
        return json_error;
    }

    config_loaded = true;

    /* Parse the config now, so we can override it.  That can keep pointers
     * so don't free config object. */
    return parse_config(config, true);
}


static char *set_default_config(const char *arg)
{
    opt_set_charp(arg, &default_config);

    return NULL;
}


void default_save_file(char *filename);

static void load_default_config(void)
{
    cnfbuf = cgmalloc(PATH_MAX);

    default_save_file(cnfbuf);

    if (!access(cnfbuf, R_OK))
    {
        load_config(cnfbuf, NULL);
    }
    else
    {
        free(cnfbuf);
        cnfbuf = NULL;
    }
}

extern const char *opt_argv0;

static char *opt_verusage_and_exit(const char *extra)
{
    printf("%s\nBuilt with "

#ifdef USE_BITMAIN
           "bitmain "
#endif
#ifdef USE_BITMAIN_C5
           "bitmain_c5 "
#endif


           "mining support.\n"
           , packagename);
    printf("%s", opt_usage(opt_argv0, extra));
    fflush(stdout);
    exit(0);
}

#if defined(USE_USBUTILS)
char *display_devs(int *ndevs)
{
    *ndevs = 0;
    usb_all(0);
    exit(*ndevs);
}
#endif

/* These options are available from commandline only */
static struct opt_table opt_cmdline_table[] =
{
    OPT_WITH_ARG("--config|-c", load_config, NULL, &opt_set_null,
    "Load a JSON-format configuration file\n"
    "See example-S7.conf or S9.conf for an example configuration."),

    OPT_WITH_ARG("--default-config", set_default_config, NULL, &opt_set_null,
    "Specify the filename of the default config file\n"
    "Loaded at start and used when saving without a name."),

    OPT_WITHOUT_ARG("--help|-h", opt_verusage_and_exit, NULL,
    "Print this message"),

#if defined(USE_USBUTILS)
    OPT_WITHOUT_ARG("--ndevs|-n",
    display_devs, &nDevs,
    "Display all USB devices and exit"),
#endif
    OPT_WITHOUT_ARG("--version|-V",
    opt_version_and_exit, packagename,
    "Display version and exit"),

    OPT_ENDTABLE
};

#ifdef HAVE_LIBCURL
static bool jobj_binary(const json_t *obj, const char *key,
                        void *buf, size_t buflen, bool required)
{
    const char *hexstr;
    json_t *tmp;

    tmp = json_object_get(obj, key);
    if (unlikely(!tmp))
    {
        if (unlikely(required))
            applog(LOG_ERR, "JSON key '%s' not found", key);
        return false;
    }
    hexstr = json_string_value(tmp);
    if (unlikely(!hexstr))
    {
        applog(LOG_ERR, "JSON key '%s' is not a string", key);
        return false;
    }
    if (!hex2bin(buf, hexstr, buflen))
        return false;

    return true;
}
#endif

static void calc_midstate(struct work *work)
{
    unsigned char data[64];
    uint32_t *data32 = (uint32_t *)data;
    sha256_ctx ctx;

    flip64(data32, work->data);
    sha256_init(&ctx);
    sha256_update(&ctx, data, 64);
    cg_memcpy(work->midstate, ctx.h, 32);
    endian_flip32(work->midstate, work->midstate);
}

/* Returns the current value of total_work and increments it */
static int total_work_inc(void)
{
    int ret;

    cg_wlock(&control_lock);
    ret = total_work++;
    cg_wunlock(&control_lock);

    return ret;
}

static struct work *make_work(void)
{
    struct work *work = cgcalloc(1, sizeof(struct work));

    if (unlikely(!work))
    {
        quit(1, "Failed to calloc work in make_work");
    }

    work->id = (uint32_t) total_work_inc();

    return work;
}

/* This is the central place all work that is about to be retired should be
 * cleaned to remove any dynamically allocated arrays within the struct */
void clean_work(struct work *work)
{
    free(work->job_id);
    free(work->ntime);
    free(work->coinbase);
    free(work->nonce1);
    memset(work, 0, sizeof(struct work));
}

/* All dynamically allocated work structs should be freed here to not leak any
 * ram from arrays allocated within the work struct. NULL the actual pointer
 * used to call free_work. */
void _free_work(struct work **workptr, const char *file, const char *func, const int line)
{
    struct work *work = *workptr;

    if (unlikely(!work))
    {
        applog(LOG_ERR, "Free work called with NULL work from %s %s:%d", file, func, line);

        return;
    }

    clean_work(work);
    free(work);
    *workptr = NULL;
}

static void gen_hash(unsigned char *data, unsigned char *hash, int len);
static void calc_diff(struct work *work, double known);
char *workpadding = "000000800000000000000000000000000000000000000000000000000000000000000000000000000000000080020000";

#ifdef HAVE_LIBCURL
/* Process transactions with GBT by storing the binary value of the first
 * transaction, and the hashes of the remaining transactions since these
 * remain constant with an altered coinbase when generating work. Must be
 * entered under gbt_lock */
static void gbt_merkle_bins(struct pool *pool, json_t *transaction_arr);

static void __build_gbt_txns(struct pool *pool, json_t *res_val)
{
    json_t *txn_array;

    txn_array = json_object_get(res_val, "transactions");
    gbt_merkle_bins(pool, txn_array);
}

static void __gbt_merkleroot(struct pool *pool, unsigned char *merkle_root)
{
    unsigned char merkle_sha[64];
    int i;

    gen_hash(pool->coinbase, merkle_root, pool->coinbase_len);
    cg_memcpy(merkle_sha, merkle_root, 32);
    for (i = 0; i < pool->merkles; i++)
    {
        cg_memcpy(merkle_sha + 32, pool->merklebin + i * 32, 32);
        gen_hash(merkle_sha, merkle_root, 64);
        cg_memcpy(merkle_sha, merkle_root, 32);
    }
}

static bool work_decode(struct pool *pool, struct work *work, json_t *val);

static void update_gbt(struct pool *pool)
{
    int rolltime;
    json_t *val;
    CURL *curl;

    curl = curl_easy_init();
    if (unlikely(!curl))
        quit (1, "CURL initialisation failed in update_gbt");

    val = json_rpc_call(curl, pool->rpc_url, pool->rpc_userpass,
                        pool->rpc_req, true, false, &rolltime, pool, false);

    if (val)
    {
        struct work *work = make_work(); // update_gbt
        bool rc = work_decode(pool, work, val);

        total_getworks++;
        pool->getwork_requested++;
        if (rc)
        {
            applog(LOG_DEBUG, "Successfully retrieved and updated GBT from pool %u %s",
                   pool->pool_no, pool->rpc_url);
            if (pool == current_pool())
                opt_work_update = true;
        }
        else
        {
            applog(LOG_DEBUG, "Successfully retrieved but FAILED to decipher GBT from pool %u %s",
                   pool->pool_no, pool->rpc_url);
        }
        json_decref(val);
        free_work(work);
    }
    else
    {
        applog(LOG_DEBUG, "FAILED to update GBT from pool %u %s",
               pool->pool_no, pool->rpc_url);
    }
    curl_easy_cleanup(curl);
}

static void gen_gbt_work(struct pool *pool, struct work *work)
{
    unsigned char merkleroot[32];
    struct timeval now;
    uint64_t nonce2le;

    cgtime(&now);
    if (now.tv_sec - pool->tv_lastwork.tv_sec > 60)
        update_gbt(pool);

    cg_wlock(&pool->gbt_lock);
    nonce2le = htole64(pool->nonce2);
    cg_memcpy(pool->coinbase + pool->nonce2_offset, &nonce2le, pool->n2size);
    pool->nonce2++;
    cg_dwlock(&pool->gbt_lock);
    __gbt_merkleroot(pool, merkleroot);

    cg_memcpy(work->data, &pool->gbt_version, 4);
    cg_memcpy(work->data + 4, pool->previousblockhash, 32);
    cg_memcpy(work->data + 4 + 32 + 32, &pool->curtime, 4);
    cg_memcpy(work->data + 4 + 32 + 32 + 4, &pool->gbt_bits, 4);

    cg_memcpy(work->target, pool->gbt_target, 32);

    work->coinbase = bin2hex(pool->coinbase, pool->coinbase_len);

    /* For encoding the block data on submission */
    work->gbt_txns = pool->gbt_txns + 1;

    if (pool->gbt_workid)
        work->job_id = strdup(pool->gbt_workid);
    cg_runlock(&pool->gbt_lock);

    flip32(work->data + 4 + 32, merkleroot);
    memset(work->data + 4 + 32 + 32 + 4 + 4, 0, 4); /* nonce */

    hex2bin(work->data + 4 + 32 + 32 + 4 + 4 + 4, workpadding, 48);

    if (opt_debug)
    {
        char *header = bin2hex(work->data, 128);

        applog(LOG_DEBUG, "Generated GBT header %s", header);
        applog(LOG_DEBUG, "Work coinbase %s", work->coinbase);
        free(header);
    }

    calc_midstate(work);
    local_work++;
    work->pool = pool;
    work->gbt = true;
    work->longpoll = false;
    work->getwork_mode = GETWORK_MODE_GBT;
    work->work_block = work_block;
    /* Nominally allow a driver to ntime roll 60 seconds */
    work->drv_rolllimit = 60;
    calc_diff(work, 0);
    cgtime(&work->tv_staged);
}

static bool gbt_decode(struct pool *pool, json_t *res_val)
{
    const char *previousblockhash;
    const char *target;
    const char *coinbasetxn;
    const char *longpollid;
    unsigned char hash_swap[32];
    int expires;
    int version;
    int curtime;
    bool submitold;
    const char *bits;
    const char *workid;
    int cbt_len, orig_len;
    uint8_t *extra_len;
    size_t cal_len;

    previousblockhash = json_string_value(json_object_get(res_val, "previousblockhash"));
    target = json_string_value(json_object_get(res_val, "target"));
    coinbasetxn = json_string_value(json_object_get(json_object_get(res_val, "coinbasetxn"), "data"));
    longpollid = json_string_value(json_object_get(res_val, "longpollid"));
    expires = json_integer_value(json_object_get(res_val, "expires"));
    version = json_integer_value(json_object_get(res_val, "version"));
    curtime = json_integer_value(json_object_get(res_val, "curtime"));
    submitold = json_is_true(json_object_get(res_val, "submitold"));
    bits = json_string_value(json_object_get(res_val, "bits"));
    workid = json_string_value(json_object_get(res_val, "workid"));

    if (!previousblockhash || !target || !coinbasetxn || !longpollid ||
        !expires || !version || !curtime || !bits)
    {
        applog(LOG_ERR, "JSON failed to decode GBT");
        return false;
    }

    applog(LOG_DEBUG, "previousblockhash: %s", previousblockhash);
    applog(LOG_DEBUG, "target: %s", target);
    applog(LOG_DEBUG, "coinbasetxn: %s", coinbasetxn);
    applog(LOG_DEBUG, "longpollid: %s", longpollid);
    applog(LOG_DEBUG, "expires: %d", expires);
    applog(LOG_DEBUG, "version: %d", version);
    applog(LOG_DEBUG, "curtime: %d", curtime);
    applog(LOG_DEBUG, "submitold: %s", submitold ? "true" : "false");
    applog(LOG_DEBUG, "bits: %s", bits);
    if (workid)
        applog(LOG_DEBUG, "workid: %s", workid);

    cg_wlock(&pool->gbt_lock);
    free(pool->coinbasetxn);
    pool->coinbasetxn = strdup(coinbasetxn);
    cbt_len = strlen(pool->coinbasetxn) / 2;
    /* We add 8 bytes of extra data corresponding to nonce2 */
    pool->n2size = 8;
    pool->coinbase_len = cbt_len + pool->n2size;
    cal_len = pool->coinbase_len + 1;
    free(pool->coinbase);
    pool->coinbase = cgcalloc(cal_len, 1);
    hex2bin(pool->coinbase, pool->coinbasetxn, 42);
    extra_len = pool->coinbase + 41;
    orig_len = *extra_len;
    hex2bin(pool->coinbase + 42, pool->coinbasetxn + 84, orig_len);
    *extra_len += pool->n2size;
    hex2bin(pool->coinbase + 42 + *extra_len, pool->coinbasetxn + 84 + (orig_len * 2),
            cbt_len - orig_len - 42);
    pool->nonce2_offset = orig_len + 42;

    free(pool->longpollid);
    pool->longpollid = strdup(longpollid);
    free(pool->gbt_workid);
    if (workid)
        pool->gbt_workid = strdup(workid);
    else
        pool->gbt_workid = NULL;

    hex2bin(hash_swap, previousblockhash, 32);
    swap256(pool->previousblockhash, hash_swap);

    hex2bin(hash_swap, target, 32);
    swab256(pool->gbt_target, hash_swap);

    pool->gbt_expires = expires;
    pool->gbt_version = htobe32(version);
    pool->curtime = htobe32(curtime);
    pool->submit_old = submitold;

    hex2bin((unsigned char *)&pool->gbt_bits, bits, 4);

    __build_gbt_txns(pool, res_val);

    if (pool->transactions < 3)
    {
        pool->bad_work++;
    }

    cg_wunlock(&pool->gbt_lock);

    return true;
}

#ifdef USE_BITMAIN_C5
static bool getwork_decode(json_t *res_val, struct work *work)
{
    if (unlikely(!jobj_binary(res_val, "data", work->data, sizeof(work->data), true)))
    {
        applog(LOG_ERR, "JSON inval data");
        return false;
    }

    if (!jobj_binary(res_val, "midstate", work->midstate, sizeof(work->midstate), false))
    {
        // Calculate it ourselves
        applog(LOG_DEBUG, "Calculating midstate locally");
        calc_midstate(work);
    }

    if (unlikely(!jobj_binary(res_val, "target", work->target, sizeof(work->target), true)))
    {
        applog(LOG_ERR, "JSON inval target");
        return false;
    }

    return true;
}

/* Returns whether the pool supports local work generation or not. */
static bool pool_localgen(struct pool *pool)
{
    return (pool->has_stratum || pool->has_gbt || pool->gbt_solo);
}
#endif

static void gbt_merkle_bins(struct pool *pool, json_t *transaction_arr)
{
    unsigned char *hashbin;
    json_t *arr_val;
    int i, j, binleft, binlen;

    free(pool->txn_data);

    pool->txn_data     = NULL;
    pool->transactions = 0;
    pool->merkles      = 0;
    pool->transactions = json_array_size(transaction_arr);
    binlen             = pool->transactions * 32 + 32;
    hashbin            = alloca(binlen + 32);

    memset(hashbin, 0, 32);
    binleft = binlen / 32;

    if (pool->transactions)
    {
        int len = 0, ofs = 0;
        const char *txn;

        for (i = 0; i < pool->transactions; i++)
        {
            arr_val = json_array_get(transaction_arr, i);
            txn = json_string_value(json_object_get(arr_val, "data"));

            if (!txn)
            {
                applog(LOG_ERR, "Pool %d json_string_value fail - cannot find transaction data",
                       pool->pool_no);
                return;
            }
            len += strlen(txn);
        }

        pool->txn_data = cgmalloc(len + 1);
        pool->txn_data[len] = '\0';

        for (i = 0; i < pool->transactions; i++)
        {
            unsigned char binswap[32];
            const char *hash;

            arr_val = json_array_get(transaction_arr, i);
            hash = json_string_value(json_object_get(arr_val, "hash"));
            txn = json_string_value(json_object_get(arr_val, "data"));
            len = strlen(txn);
            cg_memcpy(pool->txn_data + ofs, txn, len);
            ofs += len;

            if (!hash)
            {
                unsigned char *txn_bin;
                int txn_len;

                txn_len = len / 2;
                txn_bin = cgmalloc(txn_len);
                hex2bin(txn_bin, txn, txn_len);
                /* This is needed for pooled mining since only
                 * transaction data and not hashes are sent */
                gen_hash(txn_bin, hashbin + 32 + 32 * i, txn_len);
                continue;
            }

            if (!hex2bin(binswap, hash, 32))
            {
                applog(LOG_ERR, "Failed to hex2bin hash in gbt_merkle_bins");
                return;
            }
            swab256(hashbin + 32 + 32 * i, binswap);
        }
    }
    if (binleft > 1)
    {
        while (42)
        {
            if (binleft == 1)
            {
                break;
            }
            cg_memcpy(pool->merklebin + (pool->merkles * 32), hashbin + 32, 32);
            pool->merkles++;
            if (binleft % 2)
            {
                cg_memcpy(hashbin + binlen, hashbin + binlen - 32, 32);
                binlen += 32;
                binleft++;
            }

            for (i = 32, j = 64; j < binlen; i += 32, j += 64)
            {
                gen_hash(hashbin + j, hashbin + i, 64);
            }

            binleft /= 2;
            binlen = binleft * 32;
        }
    }

    if (opt_debug)
    {
        char hashhex[68];

        for (i = 0; i < pool->merkles; i++)
        {
            __bin2hex(hashhex, pool->merklebin + i * 32, 32);
            applog(LOG_DEBUG, "MH%d %s",i, hashhex);
        }
    }
    applog(LOG_INFO, "Stored %d transactions from pool %d", pool->transactions,
           pool->pool_no);
}

static double diff_from_target(void *target);

static const char scriptsig_header[] = "01000000010000000000000000000000000000000000000000000000000000000000000000ffffffff";
static unsigned char scriptsig_header_bin[41];

static bool gbt_solo_decode(struct pool *pool, json_t *res_val)
{
    json_t *transaction_arr, *coinbase_aux;
    const char *previousblockhash;
    unsigned char hash_swap[32];
    struct timeval now;
    const char *target;
    uint64_t coinbasevalue;
    const char *flags;
    const char *bits;
    char header[228];
    int ofs = 0, len;
    uint64_t *u64;
    uint32_t *u32;
    int version;
    int curtime;
    int height;

    previousblockhash = json_string_value(json_object_get(res_val, "previousblockhash"));
    target = json_string_value(json_object_get(res_val, "target"));
    transaction_arr = json_object_get(res_val, "transactions");
    version = json_integer_value(json_object_get(res_val, "version"));
    curtime = json_integer_value(json_object_get(res_val, "curtime"));
    bits = json_string_value(json_object_get(res_val, "bits"));
    height = json_integer_value(json_object_get(res_val, "height"));
    coinbasevalue = json_integer_value(json_object_get(res_val, "coinbasevalue"));
    coinbase_aux = json_object_get(res_val, "coinbaseaux");
    flags = json_string_value(json_object_get(coinbase_aux, "flags"));

    if (!previousblockhash || !target || !version || !curtime || !bits || !coinbase_aux || !flags)
    {
        applog(LOG_ERR, "Pool %d JSON failed to decode GBT", pool->pool_no);
        return false;
    }

    applog(LOG_DEBUG, "previousblockhash: %s", previousblockhash);
    applog(LOG_DEBUG, "target: %s", target);
    applog(LOG_DEBUG, "version: %d", version);
    applog(LOG_DEBUG, "curtime: %d", curtime);
    applog(LOG_DEBUG, "bits: %s", bits);
    applog(LOG_DEBUG, "height: %d", height);
    applog(LOG_DEBUG, "flags: %s", flags);

    cg_wlock(&pool->gbt_lock);
    hex2bin(hash_swap, previousblockhash, 32);
    swap256(pool->previousblockhash, hash_swap);
    __bin2hex(pool->prev_hash, pool->previousblockhash, 32);

    hex2bin(hash_swap, target, 32);
    swab256(pool->gbt_target, hash_swap);
    pool->sdiff = diff_from_target(pool->gbt_target);

    pool->gbt_version = htobe32(version);
    pool->curtime = htobe32(curtime);
    snprintf(pool->ntime, 9, "%08x", curtime);
    snprintf(pool->bbversion, 9, "%08x", version);
    snprintf(pool->nbit, 9, "%s", bits);
    pool->nValue = coinbasevalue;
    hex2bin((unsigned char *)&pool->gbt_bits, bits, 4);
    gbt_merkle_bins(pool, transaction_arr);
    if (pool->transactions < 3)
        pool->bad_work++;
    pool->height = height;

    memset(pool->scriptsig_base, 0, 42);
    ofs++; // Leave room for template length

    /* Put block height at start of template. */
    ofs += ser_number(pool->scriptsig_base + ofs, height); // max 5

    /* Followed by flags */
    len = strlen(flags) / 2;
    pool->scriptsig_base[ofs++] = len;
    hex2bin(pool->scriptsig_base + ofs, flags, len);
    ofs += len;

    /* Followed by timestamp */
    cgtime(&now);
    pool->scriptsig_base[ofs++] = 0xfe; // Encode seconds as u32
    u32 = (uint32_t *)&pool->scriptsig_base[ofs];
    *u32 = htole32(now.tv_sec);
    ofs += 4; // sizeof uint32_t
    pool->scriptsig_base[ofs++] = 0xfe; // Encode usecs as u32
    u32 = (uint32_t *)&pool->scriptsig_base[ofs];
    *u32 = htole32(now.tv_usec);
    ofs += 4; // sizeof uint32_t

    cg_memcpy(pool->scriptsig_base + ofs, "\x09\x63\x67\x6d\x69\x6e\x65\x72\x34\x32", 10);
    ofs += 10;

    /* Followed by extranonce size, fixed at 8 */
    pool->scriptsig_base[ofs++] = 8;
    pool->nonce2_offset = 41 + ofs;
    ofs += 8;

    if (opt_btc_sig)
    {
        len = strlen(opt_btc_sig);
        if (len > 32)
            len = 32;
        pool->scriptsig_base[ofs++] = len;
        cg_memcpy(pool->scriptsig_base + ofs, opt_btc_sig, len);
        ofs += len;
    }

    pool->scriptsig_base[0] = ofs++; // Template length
    pool->n1_len = ofs;

    len =   41 // prefix
            + ofs // Template length
            + 4 // txin sequence no
            + 1 // transactions
            + 8 // value
            + 1 + 25 // txout
            + 4; // lock
    free(pool->coinbase);
    pool->coinbase = cgcalloc(len, 1);
    cg_memcpy(pool->coinbase + 41, pool->scriptsig_base, ofs);
    cg_memcpy(pool->coinbase + 41 + ofs, "\xff\xff\xff\xff", 4);
    pool->coinbase[41 + ofs + 4] = 1;
    u64 = (uint64_t *)&(pool->coinbase[41 + ofs + 4 + 1]);
    *u64 = htole64(coinbasevalue);

    pool->nonce2 = 0;
    pool->n2size = 4;
    pool->coinbase_len = 41 + ofs + 4 + 1 + 8 + 1 + 25 + 4;
    cg_wunlock(&pool->gbt_lock);

    snprintf(header, 225, "%s%s%s%s%s%s%s",
             pool->bbversion,
             pool->prev_hash,
             "0000000000000000000000000000000000000000000000000000000000000000",
             pool->ntime,
             pool->nbit,
             "00000000", /* nonce */
             workpadding);
    if (unlikely(!hex2bin(pool->header_bin, header, 112)))
        quit(1, "Failed to hex2bin header in gbt_solo_decode");

    return true;
}

static bool work_decode(struct pool *pool, struct work *work, json_t *val)
{
    json_t *res_val = json_object_get(val, "result");
    bool ret = false;

    cgtime(&pool->tv_lastwork);
    if (!res_val || json_is_null(res_val))
    {
        applog(LOG_ERR, "JSON Failed to decode result");
        goto out;
    }

    if (pool->gbt_solo)
    {
        if (unlikely(!gbt_solo_decode(pool, res_val)))
            goto out;
        goto out_true;
    }
    if (unlikely(!gbt_decode(pool, res_val)))
        goto out;
    work->gbt = true;
    memset(work->hash, 0, sizeof(work->hash));

    cgtime(&work->tv_staged);

out_true:

    ret = true;

out:
    return ret;
}

#else /* HAVE_LIBCURL */
/* Always true with stratum */
#define pool_localgen(pool) (true)
#define json_rpc_call(curl, url, userpass, rpc_req, probe, longpoll, rolltime, pool, share) (NULL)
#define work_decode(pool, work, val) (false)
#define gen_gbt_work(pool, work) {}
#endif /* HAVE_LIBCURL */

int dev_from_id(int thr_id)
{
    struct cgpu_info *cgpu = get_thr_cgpu(thr_id);

    return cgpu->device_id;
}

/* Create an exponentially decaying average over the opt_log_interval */
void decay_time(double *f, double fadd, double fsecs, double interval)
{
    double ftotal, fprop;

    if (fsecs <= 0)
    {
        return;
    }

    fprop = 1.0 - 1 / (exp(fsecs / interval));
    ftotal = 1.0 + fprop;
    *f += (fadd / fsecs * fprop);
    *f /= ftotal;
}


static int __total_staged(void)
{
    return HASH_COUNT(staged_work);
}


static int total_staged(void)
{
    int ret;

    mutex_lock(stgd_lock);
    ret = __total_staged();
    mutex_unlock(stgd_lock);

    return ret;
}

#ifdef HAVE_CURSES
WINDOW *mainwin, *statuswin, *logwin;
#endif

double total_secs      = 1.0;
double new_total_secs  = 1.0;
double last_total_secs = 1.0;

static char statusline[256];
/* logstart is where the log window should start */
static int devcursor, logstart, logcursor;
#ifdef HAVE_CURSES
/* statusy is where the status window goes up to in cases where it won't fit at startup */
static int statusy;
#endif

#ifdef HAVE_CURSES
static inline void unlock_curses(void)
{
    mutex_unlock(&console_lock);
}

static inline void lock_curses(void)
{
    mutex_lock(&console_lock);
}

static bool curses_active_locked(void)
{
    bool ret;

    lock_curses();
    ret = curses_active;
    if (!ret)
        unlock_curses();
    return ret;
}
#endif

/* Convert a uint64_t value into a truncated string for displaying with its
 * associated suitable for Mega, Giga etc. Buf array needs to be long enough */
static void suffix_string(uint64_t val, char *buf, size_t bufsiz, int sigdigits)
{
    double dval;
    const double  dkilo = 1000.0;
    const uint64_t kilo = 1000ull;
    const uint64_t mega = 1000000ull;
    const uint64_t giga = 1000000000ull;
    const uint64_t tera = 1000000000000ull;
    const uint64_t peta = 1000000000000000ull;
    const uint64_t exa  = 1000000000000000000ull;

    char suffix[2] = "";
    bool decimal   = true;



    if (val >= exa)
    {
        val /= peta;
        dval = (double)(val / dkilo);
        strcpy(suffix, "E");
    }
    else if (val >= peta)
    {
        val /= tera;
        dval = (double)(val / dkilo);
        strcpy(suffix, "P");
    }
    else if (val >= tera)
    {
        val /= giga;
        dval = (double)(val / dkilo);
        strcpy(suffix, "T");
    }
    else if (val >= giga)
    {
        val /= mega;
        dval = (double)(val / dkilo);
        strcpy(suffix, "G");
    }
    else if (val >= mega)
    {
        val /= kilo;
        dval = (double)(val / dkilo);
        strcpy(suffix, "M");
    }
    else if (val >= kilo)
    {
        dval = (double)(val / dkilo);
        strcpy(suffix, "K");
    }
    else
    {
        dval = val;
        decimal = false;
    }

    if (!sigdigits)
    {
        if (decimal)
        {
            snprintf(buf, bufsiz, "%.3g%s", dval, suffix);
        }
        else
        {
            snprintf(buf, bufsiz, "%d%s", (unsigned int)dval, suffix);
        }
    }
    else
    {
        /* Always show sigdigits + 1, padded on right with zeroes
         * followed by suffix */
        int ndigits = sigdigits - 1 - (dval > 0.0 ? floor(log10(dval)) : 0);
        snprintf(buf, bufsiz, "%*.*f%s", sigdigits + 1, ndigits, dval, suffix);

    }
}

double cgpu_runtime(struct cgpu_info *cgpu)
{
    struct timeval now;
    double dev_runtime;

    if (cgpu->dev_start_tv.tv_sec == 0)
    {
        dev_runtime = total_secs;
    }
    else
    {
        cgtime(&now);
        dev_runtime = tdiff(&now, &(cgpu->dev_start_tv));
    }

    if (dev_runtime < 1.0)
    {
        dev_runtime = 1.0;
    }
    return dev_runtime;
}


double tsince_restart(void)
{
    struct timeval now;

    cgtime(&now);
    return tdiff(&now, &restart_tv_start);
}


double tsince_update(void)
{
    struct timeval now;

    cgtime(&now);
    return tdiff(&now, &update_tv_start);
}


static void get_statline(char *buf, size_t bufsiz, struct cgpu_info *cgpu)
{
    char displayed_hashes[16], displayed_rolling[16];
    double dev_runtime, wu;
    uint64_t dh64, dr64;

    dev_runtime = cgpu_runtime(cgpu);

    wu = ((cgpu->diff1 / dev_runtime) * 60.0);

    dh64 = cgpu->total_mhashes / dev_runtime * 1000000ull;
    dr64 = cgpu->rolling * 1000000ull;
    suffix_string(dh64, displayed_hashes, sizeof(displayed_hashes), 4);
    suffix_string(dr64, displayed_rolling, sizeof(displayed_rolling), 4);

    snprintf(buf, bufsiz, "%s%d ", cgpu->drv->name, cgpu->device_id);
    cgpu->drv->get_statline_before(buf, bufsiz, cgpu);

    tailsprintf(buf,
                bufsiz,
                "(%ds):%s (avg):%sh/s | A:%.0f R:%.0f HW:%d WU:%.1f/m",
                opt_log_interval,
                displayed_rolling,
                displayed_hashes,
                cgpu->diff_accepted,
                cgpu->diff_rejected,
                cgpu->hw_errors,
                wu);

    cgpu->drv->get_statline(buf, bufsiz, cgpu);
}


static bool shared_strategy(void)
{
    return (pool_strategy == POOL_LOADBALANCE || pool_strategy == POOL_BALANCE);
}

#ifdef HAVE_CURSES
#define CURBUFSIZ 256
#define cg_mvwprintw(win, y, x, fmt, ...) do { \
    char tmp42[CURBUFSIZ]; \
    snprintf(tmp42, sizeof(tmp42), fmt, ##__VA_ARGS__); \
    mvwprintw(win, y, x, "%s", tmp42); \
} while (0)
#define cg_wprintw(win, fmt, ...) do { \
    char tmp42[CURBUFSIZ]; \
    snprintf(tmp42, sizeof(tmp42), fmt, ##__VA_ARGS__); \
    wprintw(win, "%s", tmp42); \
} while (0)

/* Must be called with curses mutex lock held and curses_active */
static void curses_print_status(void)
{
    struct pool *pool = current_pool();
    int linewidth = opt_widescreen ? 100 : 80;

    wattron(statuswin, A_BOLD);
    cg_mvwprintw(statuswin, 0, 0, " " PACKAGE " version " VERSION " - Started: %s", datestamp);
    wattroff(statuswin, A_BOLD);
    mvwhline(statuswin, 1, 0, '-', linewidth);
    cg_mvwprintw(statuswin, 2, 0, " %s", statusline);
    wclrtoeol(statuswin);
    if (opt_widescreen)
    {
        cg_mvwprintw(statuswin, 3, 0, " A:%.0f  R:%.0f  HW:%d  WU:%.1f/m | ST: %d  SS: %"PRId64"  NB: %d  LW: %d  GF: %d  RF: %d",
                     total_diff_accepted, total_diff_rejected, hw_errors,
                     total_diff1 / total_secs * 60,
                     total_staged(), total_stale, new_blocks, local_work, total_go, total_ro);
    }
    else if (alt_status)
    {
        cg_mvwprintw(statuswin, 3, 0, " ST: %d  SS: %"PRId64"  NB: %d  LW: %d  GF: %d  RF: %d",
                     total_staged(), total_stale, new_blocks, local_work, total_go, total_ro);
    }
    else
    {
        cg_mvwprintw(statuswin, 3, 0, " A:%.0f  R:%.0f  HW:%d  WU:%.1f/m",
                     total_diff_accepted, total_diff_rejected, hw_errors,
                     total_diff1 / total_secs * 60);
    }
    wclrtoeol(statuswin);
    if (shared_strategy() && total_pools > 1)
    {
        cg_mvwprintw(statuswin, 4, 0, " Connected to multiple pools with%s block change notify",
                     have_longpoll ? "": "out");
    }
    else if (pool->has_stratum)
    {
        cg_mvwprintw(statuswin, 4, 0, " Connected to %s diff %s with stratum as user %s",
                     pool->sockaddr_url, pool->diff, pool->rpc_user);
    }
    else
    {
        cg_mvwprintw(statuswin, 4, 0, " Connected to %s diff %s with%s %s as user %s",
                     pool->sockaddr_url, pool->diff, have_longpoll ? "": "out",
                     pool->has_gbt ? "GBT" : "LP", pool->rpc_user);
    }
    wclrtoeol(statuswin);
    cg_mvwprintw(statuswin, 5, 0, " Block: %s...  Diff:%s  Started: %s  Best share: %s   ",
                 prev_block, block_diff, blocktime, best_share);
    mvwhline(statuswin, 6, 0, '-', linewidth);
    mvwhline(statuswin, statusy - 1, 0, '-', linewidth);
#ifdef USE_USBUTILS
    cg_mvwprintw(statuswin, devcursor - 1, 1, "[U]SB management [P]ool management [S]ettings [D]isplay options [Q]uit");
#else
    cg_mvwprintw(statuswin, devcursor - 1, 1, "[P]ool management [S]ettings [D]isplay options [Q]uit");
#endif
}

static void adj_width(int var, int *length)
{
    if ((int)(log10(var) + 1) > *length)
        (*length)++;
}

static void adj_fwidth(float var, int *length)
{
    if ((int)(log10(var) + 1) > *length)
        (*length)++;
}

#define STATBEFORELEN 23
const char blanks[] = "                                        ";

static void curses_print_devstatus(struct cgpu_info *cgpu, int devno, int count)
{
    static int devno_width = 1, dawidth = 1, drwidth = 1, hwwidth = 1, wuwidth = 1;
    char logline[256], unique_id[12];
    struct timeval now;
    double dev_runtime, wu;
    unsigned int devstatlen;

    if (opt_compact)
        return;

    if (devcursor + count > LINES - 2)
        return;

    if (count >= most_devices)
        return;

    if (cgpu->dev_start_tv.tv_sec == 0)
        dev_runtime = total_secs;
    else
    {
        cgtime(&now);
        dev_runtime = tdiff(&now, &(cgpu->dev_start_tv));
    }

    if (dev_runtime < 1.0)
        dev_runtime = 1.0;

    cgpu->utility = cgpu->accepted / dev_runtime * 60;
    wu = cgpu->diff1 / dev_runtime * 60;

    wmove(statuswin,devcursor + count, 0);
    adj_width(devno, &devno_width);
    if (cgpu->unique_id)
    {
        unique_id[8] = '\0';
        cg_memcpy(unique_id, blanks, 8);
        strncpy(unique_id, cgpu->unique_id, 8);
    }
    else
        sprintf(unique_id, "%-8d", cgpu->device_id);
    cg_wprintw(statuswin, " %*d: %s %-8s: ", devno_width, devno, cgpu->drv->name,
               unique_id);
    logline[0] = '\0';
    cgpu->drv->get_statline_before(logline, sizeof(logline), cgpu);
    devstatlen = strlen(logline);
    if (devstatlen < STATBEFORELEN)
        strncat(logline, blanks, STATBEFORELEN - devstatlen);
    cg_wprintw(statuswin, "%s | ", logline);


#ifdef USE_USBUTILS
    if (cgpu->usbinfo.nodev)
        cg_wprintw(statuswin, "ZOMBIE");
    else
#endif
        if (cgpu->status == LIFE_DEAD)
            cg_wprintw(statuswin, "DEAD  ");
        else if (cgpu->status == LIFE_SICK)
            cg_wprintw(statuswin, "SICK  ");
        else if (cgpu->deven == DEV_DISABLED)
            cg_wprintw(statuswin, "OFF   ");
        else if (cgpu->deven == DEV_RECOVER)
            cg_wprintw(statuswin, "REST  ");
        else if (opt_widescreen)
        {
            char displayed_hashes[16], displayed_rolling[16];
            uint64_t d64;

            d64 = cgpu->total_mhashes / dev_runtime * 1000000ull;
            suffix_string(d64, displayed_hashes, sizeof(displayed_hashes), 4);
            d64 = cgpu->rolling * 1000000ull;
            suffix_string(d64, displayed_rolling, sizeof(displayed_rolling), 4);
            adj_width(wu, &wuwidth);
            adj_fwidth(cgpu->diff_accepted, &dawidth);
            adj_fwidth(cgpu->diff_rejected, &drwidth);
            adj_width(cgpu->hw_errors, &hwwidth);
            cg_wprintw(statuswin, "%6s / %6sh/s WU:%*.1f/m "
                       "A:%*.0f R:%*.0f HW:%*d",
                       displayed_rolling,
                       displayed_hashes, wuwidth + 2, wu,
                       dawidth, cgpu->diff_accepted,
                       drwidth, cgpu->diff_rejected,
                       hwwidth, cgpu->hw_errors);
        }
        else if (!alt_status)
        {
            char displayed_hashes[16], displayed_rolling[16];
            uint64_t d64;

            d64 = cgpu->total_mhashes / dev_runtime * 1000000ull;
            suffix_string(d64, displayed_hashes, sizeof(displayed_hashes), 4);
            d64 = cgpu->rolling * 1000000ull;
            suffix_string(d64, displayed_rolling, sizeof(displayed_rolling), 4);
            adj_width(wu, &wuwidth);
            cg_wprintw(statuswin, "%6s / %6sh/s WU:%*.1f/m", displayed_rolling,
                       displayed_hashes, wuwidth + 2, wu);
        }
        else
        {
            adj_fwidth(cgpu->diff_accepted, &dawidth);
            adj_fwidth(cgpu->diff_rejected, &drwidth);
            adj_width(cgpu->hw_errors, &hwwidth);

            cg_wprintw(statuswin,
                       "A:%*.0f R:%*.0f HW:%*d",
                       dawidth, cgpu->diff_accepted,
                       drwidth, cgpu->diff_rejected,
                       hwwidth, cgpu->hw_errors);
        }

    logline[0] = '\0';
    cgpu->drv->get_statline(logline, sizeof(logline), cgpu);
    cg_wprintw(statuswin, "%s", logline);

    wclrtoeol(statuswin);
}
#endif

#ifdef HAVE_CURSES
/* Check for window resize. Called with curses mutex locked */
static inline void change_logwinsize(void)
{
    int x, y, logx, logy;

    getmaxyx(mainwin, y, x);
    if (x < 80 || y < 25)
        return;

    if (y > statusy + 2 && statusy < logstart)
    {
        if (y - 2 < logstart)
            statusy = y - 2;
        else
            statusy = logstart;
        logcursor = statusy + 1;
        mvwin(logwin, logcursor, 0);
        wresize(statuswin, statusy, x);
    }

    y -= logcursor;
    getmaxyx(logwin, logy, logx);
    /* Detect screen size change */
    if (x != logx || y != logy)
        wresize(logwin, y, x);
}

static void check_winsizes(void)
{
    if (!use_curses)
        return;
    if (curses_active_locked())
    {
        int y, x;

        erase();
        x = getmaxx(statuswin);

        if (logstart > LINES - 2)
        {
            statusy = LINES - 2;
        }
        else
        {
            statusy = logstart;
        }
        logcursor = statusy;
        wresize(statuswin, statusy, x);
        getmaxyx(mainwin, y, x);
        y -= logcursor;
        wresize(logwin, y, x);
        mvwin(logwin, logcursor, 0);
        unlock_curses();
    }
}

static void disable_curses_windows(void);
static void enable_curses_windows(void);

static void switch_logsize(bool __maybe_unused newdevs)
{
    if (curses_active_locked())
    {
        if (opt_compact)
        {
            logstart = devcursor + 1;
            logcursor = logstart + 1;
        }
        else
        {
            logstart = devcursor + most_devices + 1;
            logcursor = logstart + 1;
        }

        unlock_curses();
        check_winsizes();
    }
}

/* For mandatory printing when mutex is already locked */
void _wlog(const char *str)
{
    wprintw(logwin, "%s", str);
}


/* Mandatory printing */
void _wlogprint(const char *str)
{
    if (curses_active_locked())
    {
        wprintw(logwin, "%s", str);
        unlock_curses();
    }
}
#endif

#ifdef HAVE_CURSES
bool log_curses_only(int prio, const char *datetime, const char *str)
{
    bool high_prio;

    high_prio = (prio == LOG_WARNING || prio == LOG_ERR);

    if (curses_active_locked())
    {
        if (!opt_loginput || high_prio)
        {
            wprintw(logwin, "%s%s\n", datetime, str);
            if (high_prio)
            {
                touchwin(logwin);
                wrefresh(logwin);
            }
        }
        unlock_curses();
        return true;
    }
    return false;
}

void clear_logwin(void)
{
    if (curses_active_locked())
    {
        erase();
        wclear(logwin);
        unlock_curses();
    }
}

void logwin_update(void)
{
    if (curses_active_locked())
    {
        touchwin(logwin);
        wrefresh(logwin);
        unlock_curses();
    }
}
#endif

static void enable_pool(struct pool *pool)
{
    if (pool->enabled != POOL_ENABLED)
    {
        enabled_pools++;
        pool->enabled = POOL_ENABLED;
    }
}

#ifdef HAVE_CURSES
static void disable_pool(struct pool *pool)
{
    if (pool->enabled == POOL_ENABLED)
        enabled_pools--;
    pool->enabled = POOL_DISABLED;
}
#endif

static void reject_pool(struct pool *pool)
{
    if (pool->enabled == POOL_ENABLED)
    {
        enabled_pools--;
    }

    pool->enabled = POOL_REJECTING;
}

static void restart_threads(void);

/* Theoretically threads could race when modifying accepted and
 * rejected values but the chance of two submits completing at the
 * same time is zero so there is no point adding extra locking */
static void share_result(
    json_t *val,
    json_t *res,
    json_t *err,
    const struct work *work,
    char *hashshow,
    bool resubmit,
    char *worktime
)
{
    struct pool *pool = work->pool;
    struct cgpu_info *cgpu;

    cgpu = get_thr_cgpu(work->thr_id);

    if (json_is_true(res) || (work->gbt && json_is_null(res)))
    {
        mutex_lock(&stats_lock);

        cgpu->accepted++;
        total_accepted++;
        pool->accepted++;

        cgpu->diff_accepted += work->work_difficulty;
        total_diff_accepted += work->work_difficulty;
        pool->diff_accepted += work->work_difficulty;

        mutex_unlock(&stats_lock);

        pool->seq_rejects          = 0;
        cgpu->last_share_pool      = pool->pool_no;
        cgpu->last_share_pool_time = time(NULL);
        cgpu->last_share_diff      = work->work_difficulty;
        pool->last_share_time      = cgpu->last_share_pool_time;
        pool->last_share_diff      = work->work_difficulty;

        applog(LOG_DEBUG, "PROOF OF WORK RESULT: true (yay!!!)");

        if (!QUIET)
        {
            if (total_pools > 1)
            {
                applog(LOG_NOTICE, "Accepted %s %s %d pool %d %s%s",
                       hashshow, cgpu->drv->name, cgpu->device_id, work->pool->pool_no, resubmit ? "(resubmit)" : "", worktime);
            }
            else
            {
                applog(LOG_NOTICE, "Accepted %s %s %d %s%s",
                       hashshow, cgpu->drv->name, cgpu->device_id, resubmit ? "(resubmit)" : "", worktime);
            }
        }
        sharelog("accept", work);

        if (opt_shares && total_diff_accepted >= opt_shares)
        {
            applog(LOG_WARNING, "Successfully mined %d accepted shares as requested and exiting.", opt_shares);
            kill_work();
            return;
        }

        /* Detect if a pool that has been temporarily disabled for
         * continually rejecting shares has started accepting shares.
         * This will only happen with the work returned from a
         * longpoll */
        if (unlikely(pool->enabled == POOL_REJECTING))
        {
            applog(LOG_WARNING, "Rejecting pool %d now accepting shares, re-enabling!", pool->pool_no);
            enable_pool(pool);
            switch_pools(NULL);
        }

        /* If we know we found the block we know better than anyone
         * that new work is needed. */
        if (unlikely(work->block))
        {
            restart_threads();
        }
    }
    else
    {
        mutex_lock(&stats_lock);
        cgpu->rejected++;
        total_rejected++;
        pool->rejected++;
        cgpu->diff_rejected += work->work_difficulty;
        total_diff_rejected += work->work_difficulty;
        pool->diff_rejected += work->work_difficulty;
        pool->seq_rejects++;
        mutex_unlock(&stats_lock);

        applog(LOG_DEBUG, "PROOF OF WORK RESULT: false (booooo)");

        if (!QUIET)
        {
            char where[20];
            char disposition[36] = "reject";
            char reason[32];

            strcpy(reason, "");

            if (total_pools > 1)
            {
                snprintf(where, sizeof(where), "pool %d", work->pool->pool_no);
            }
            else
            {
                strcpy(where, "");
            }

            if (!work->gbt)
            {
                res = json_object_get(val, "reject-reason");
            }

            if (res)
            {
                const char *reasontmp = json_string_value(res);

                size_t reasonLen = strlen(reasontmp);

                if (reasonLen > 28)
                {
                    reasonLen = 28;
                }

                reason[0] = ' ';
                reason[1] = '(';

                cg_memcpy(2 + reason, reasontmp, (size_t)reasonLen);

                reason[reasonLen + 2] = ')';
                reason[reasonLen + 3] = '\0';

                cg_memcpy(disposition + 7, reasontmp, (size_t)reasonLen);
                disposition[6] = ':';
                disposition[reasonLen + 7] = '\0';
            }
            else if (work->stratum && err)
            {
                if (json_is_array(err))
                {
                    json_t *reason_val = json_array_get(err, 1);
                    char *reason_str;

                    if (reason_val && json_is_string(reason_val))
                    {
                        reason_str = (char *)json_string_value(reason_val);
                        snprintf(reason, 31, " (%s)", reason_str);
                    }
                }
                else if (json_is_string(err))
                {
                    const char *s = json_string_value(err);
                    snprintf(reason, 31, " (%s)", s);
                }
            }

            applog(LOG_NOTICE,
                   "Rejected %s %s %d %s%s %s%s",
                   hashshow,
                   cgpu->drv->name,
                   cgpu->device_id,
                   where,
                   reason,
                   resubmit ? "(resubmit)" : "", worktime);

            sharelog(disposition, work);
        }

        /* Once we have more than a nominal amount of sequential rejects,
         * at least 10 and more than 3 mins at the current utility,
         * disable the pool because some pool error is likely to have
         * ensued. Do not do this if we know the share just happened to
         * be stale due to networking delays.
         */
        if (pool->seq_rejects > 10 && !work->stale && opt_disable_pool && enabled_pools > 1)
        {
            double utility = total_accepted / total_secs * 60;

            if (pool->seq_rejects > utility * 3 && enabled_pools > 1)
            {
                applog(LOG_WARNING, "Pool %d rejected %d sequential shares, disabling!", pool->pool_no, pool->seq_rejects);
                reject_pool(pool);

                if (pool == current_pool())
                {
                    switch_pools(NULL);
                }

                pool->seq_rejects = 0;
            }
        }
    }
}


static void show_hash(struct work *work, char *hashshow)
{
    unsigned char rhash[32];
    char diffdisp[16];
    unsigned long h32;
    uint32_t *hash32;
    uint64_t uintdiff;
    int ofs;

    swab256(rhash, work->hash);

    for (ofs = 0; ofs <= 28; ofs ++)
    {
        if (rhash[ofs])
        {
            break;
        }
    }

    hash32   = (uint32_t *)(rhash + ofs);
    h32      = be32toh(*hash32);
    uintdiff = round(work->work_difficulty);

    suffix_string(work->share_diff, diffdisp, sizeof (diffdisp), 0);
    snprintf(hashshow, 64, "%08lx Diff %s/%"PRIu64"%s", h32, diffdisp, uintdiff,
             work->block? " BLOCK!" : "");
}

#ifdef HAVE_LIBCURL
static void text_print_status(int thr_id)
{
    struct cgpu_info *cgpu;
    char logline[256];

    cgpu = get_thr_cgpu(thr_id);
    if (cgpu)
    {
        get_statline(logline, sizeof(logline), cgpu);
        printf("%s\n", logline);
    }
}

static void print_status(int thr_id)
{
    if (!curses_active)
        text_print_status(thr_id);
}

static bool submit_upstream_work(struct work *work, CURL *curl, bool resubmit)
{
    json_t *val, *res, *err;
    char *s;
    bool rc = false;
    int thr_id = work->thr_id;
    struct cgpu_info *cgpu = get_thr_cgpu(thr_id);
    struct pool *pool = work->pool;
    int rolltime;
    struct timeval tv_submit, tv_submit_reply;
    char hashshow[64 + 4] = "";
    char worktime[200] = "";
    struct timeval now;
    double dev_runtime;
    char gbt_block[1024], varint[12];
    unsigned char data[80];

    /* build JSON-RPC request */
    flip80(data, work->data);
    __bin2hex(gbt_block, data, 80); // 160 length

    if (work->gbt_txns < 0xfd)
    {
        uint8_t val8 = work->gbt_txns;

        __bin2hex(varint, (const unsigned char *)&val8, 1);
    }
    else if (work->gbt_txns <= 0xffff)
    {
        uint16_t val16 = htole16(work->gbt_txns);

        strcat(gbt_block, "fd"); // +2
        __bin2hex(varint, (const unsigned char *)&val16, 2);
    }
    else
    {
        uint32_t val32 = htole32(work->gbt_txns);

        strcat(gbt_block, "fe"); // +2
        __bin2hex(varint, (const unsigned char *)&val32, 4);
    }
    strcat(gbt_block, varint); // +8 max
    strcat(gbt_block, work->coinbase);

    s = cgmalloc(1024);
    sprintf(s, "{\"id\": 0, \"method\": \"submitblock\", \"params\": [\"%s", gbt_block);
    /* Has submit/coinbase support */
    if (!pool->has_gbt)
    {
        cg_rlock(&pool->gbt_lock);
        if (pool->txn_data)
            s = realloc_strcat(s, pool->txn_data);
        cg_runlock(&pool->gbt_lock);
    }
    if (work->job_id)
    {
        s = realloc_strcat(s, "\", {\"workid\": \"");
        s = realloc_strcat(s, work->job_id);
        s = realloc_strcat(s, "\"}]}");
    }
    else
        s = realloc_strcat(s, "\"]}");
    applog(LOG_DEBUG, "DBG: sending %s submit RPC call: %s", pool->rpc_url, s);
    s = realloc_strcat(s, "\n");

    cgtime(&tv_submit);
    /* issue JSON-RPC request */
    val = json_rpc_call(curl, pool->rpc_url, pool->rpc_userpass, s, false, false, &rolltime, pool, true);
    cgtime(&tv_submit_reply);
    free(s);

    if (unlikely(!val))
    {
        applog(LOG_INFO, "submit_upstream_work json_rpc_call failed");
        if (!pool_tset(pool, &pool->submit_fail))
        {
            total_ro++;
            pool->remotefail_occasions++;
            if (opt_lowmem)
            {
                applog(LOG_WARNING, "Pool %d communication failure, discarding shares", pool->pool_no);
                goto out;
            }
            applog(LOG_WARNING, "Pool %d communication failure, caching submissions", pool->pool_no);
        }
        cgsleep_ms(3500);
        goto out;
    }
    else if (pool_tclear(pool, &pool->submit_fail))
        applog(LOG_WARNING, "Pool %d communication resumed, submitting work", pool->pool_no);

    res = json_object_get(val, "result");
    err = json_object_get(val, "error");

    if (!QUIET)
    {
        show_hash(work, hashshow);

        if (opt_worktime)
        {
            char workclone[20];
            struct tm *tm, tm_getwork, tm_submit_reply;
            double getwork_time = tdiff(&(work->tv_getwork_reply),
                                        &(work->tv_getwork));
            double getwork_to_work = tdiff(&(work->tv_work_start),
                                           &(work->tv_getwork_reply));
            double work_time = tdiff(&(work->tv_work_found),
                                     &(work->tv_work_start));
            double work_to_submit = tdiff(&tv_submit,
                                          &(work->tv_work_found));
            double submit_time = tdiff(&tv_submit_reply, &tv_submit);
            int diffplaces = 3;

            time_t tmp_time = work->tv_getwork.tv_sec;
            tm = localtime(&tmp_time);
            cg_memcpy(&tm_getwork, tm, sizeof(struct tm));
            tmp_time = tv_submit_reply.tv_sec;
            tm = localtime(&tmp_time);
            cg_memcpy(&tm_submit_reply, tm, sizeof(struct tm));

            if (work->clone)
            {
                snprintf(workclone, sizeof(workclone), "C:%1.3f",
                         tdiff(&(work->tv_cloned),
                               &(work->tv_getwork_reply)));
            }
            else
                strcpy(workclone, "O");

            if (work->work_difficulty < 1)
                diffplaces = 6;

            snprintf(worktime, sizeof(worktime),
                     " <-%08lx.%08lx M:%c D:%1.*f G:%02d:%02d:%02d:%1.3f %s (%1.3f) W:%1.3f (%1.3f) S:%1.3f R:%02d:%02d:%02d",
                     (unsigned long)be32toh(*(uint32_t *)&(work->data[28])),
                     (unsigned long)be32toh(*(uint32_t *)&(work->data[24])),
                     work->getwork_mode, diffplaces, work->work_difficulty,
                     tm_getwork.tm_hour, tm_getwork.tm_min,
                     tm_getwork.tm_sec, getwork_time, workclone,
                     getwork_to_work, work_time, work_to_submit, submit_time,
                     tm_submit_reply.tm_hour, tm_submit_reply.tm_min,
                     tm_submit_reply.tm_sec);
        }
    }

    share_result(val, res, err, work, hashshow, resubmit, worktime);

    if (cgpu->dev_start_tv.tv_sec == 0)
        dev_runtime = total_secs;
    else
    {
        cgtime(&now);
        dev_runtime = tdiff(&now, &(cgpu->dev_start_tv));
    }

    if (dev_runtime < 1.0)
        dev_runtime = 1.0;

    cgpu->utility = cgpu->accepted / dev_runtime * 60;

    if (!opt_realquiet)
        print_status(thr_id);
    if (!want_per_device_stats)
    {
        char logline[256];

        get_statline(logline, sizeof(logline), cgpu);
        applog(LOG_INFO, "%s", logline);
    }

    json_decref(val);

    rc = true;
out:
    return rc;
}

static bool get_upstream_work(struct work *work, CURL *curl)
{
    struct pool *pool = work->pool;
    struct cgminer_pool_stats *pool_stats = &(pool->cgminer_pool_stats);
    struct timeval tv_elapsed;
    json_t *val = NULL;
    bool rc = false;
    char *url;

    url = pool->rpc_url;

    applog(LOG_DEBUG, "DBG: sending %s get RPC call: %s", url, pool->rpc_req);

    cgtime(&work->tv_getwork);

    val = json_rpc_call(curl, url, pool->rpc_userpass, pool->rpc_req, false,
                        false, &work->rolltime, pool, false);
    pool_stats->getwork_attempts++;

    if (likely(val))
    {
        rc = work_decode(pool, work, val);
        if (unlikely(!rc))
            applog(LOG_DEBUG, "Failed to decode work in get_upstream_work");
    }
    else
        applog(LOG_DEBUG, "Failed json_rpc_call in get_upstream_work");

    cgtime(&work->tv_getwork_reply);
    timersub(&(work->tv_getwork_reply), &(work->tv_getwork), &tv_elapsed);
    pool_stats->getwork_wait_rolling += ((double)tv_elapsed.tv_sec + ((double)tv_elapsed.tv_usec / 1000000)) * 0.63;
    pool_stats->getwork_wait_rolling /= 1.63;

    timeradd(&tv_elapsed, &(pool_stats->getwork_wait), &(pool_stats->getwork_wait));
    if (timercmp(&tv_elapsed, &(pool_stats->getwork_wait_max), >))
    {
        pool_stats->getwork_wait_max.tv_sec = tv_elapsed.tv_sec;
        pool_stats->getwork_wait_max.tv_usec = tv_elapsed.tv_usec;
    }
    if (timercmp(&tv_elapsed, &(pool_stats->getwork_wait_min), <))
    {
        pool_stats->getwork_wait_min.tv_sec = tv_elapsed.tv_sec;
        pool_stats->getwork_wait_min.tv_usec = tv_elapsed.tv_usec;
    }
    pool_stats->getwork_calls++;

    work->pool = pool;
    work->longpoll = false;
    work->getwork_mode = GETWORK_MODE_POOL;
    calc_diff(work, 0);
    total_getworks++;
    pool->getwork_requested++;

    if (likely(val))
        json_decref(val);

    return rc;
}
#endif /* HAVE_LIBCURL */

/* Specifies whether we can use this pool for work or not. */
static bool pool_unusable(struct pool *pool)
{
    if (pool->idle)
    {
        return true;
    }

    if (pool->enabled != POOL_ENABLED)
    {
        return true;
    }

    if (pool->has_stratum && (!pool->stratum_active || !pool->stratum_notify))
    {
        return true;
    }
    return false;
}

/* In balanced mode, the amount of diff1 solutions per pool is monitored as a
 * rolling average per 10 minutes and if pools start getting more, it biases
 * away from them to distribute work evenly. The share count is reset to the
 * rolling average every 10 minutes to not send all work to one pool after it
 * has been disabled/out for an extended period. */
static struct pool *select_balanced(struct pool *cp)
{
    int i, lowest = cp->shares;
    struct pool *ret = cp;

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];

        if (pool_unusable(pool))
        {
            continue;
        }

        if (pool->shares < lowest)
        {
            lowest = pool->shares;
            ret = pool;
        }
    }

    ret->shares++;
    return ret;
}

static struct pool *priority_pool(int choice);


/* Select any active pool in a rotating fashion when loadbalance is chosen if
 * it has any quota left. */
static inline struct pool *select_pool(void)
{
    static int rotating_pool = 0;
    struct pool *pool, *cp;
    bool avail = false;
    int tested, i;

    cp = current_pool();

    if (pool_strategy == POOL_BALANCE)
    {
        pool = select_balanced(cp);
        goto out;
    }

    if (pool_strategy != POOL_LOADBALANCE)
    {
        pool = cp;
        goto out;
    }
    else
    {
        pool = NULL;
    }

    for (i = 0; i < total_pools; i++)
    {
        struct pool *tp = pools[i];

        if (tp->quota_used < tp->quota_gcd)
        {
            avail = true;
            break;
        }
    }

    /* There are no pools with quota, so reset them. */
    if (!avail)
    {
        for (i = 0; i < total_pools; i++)
        {
            pools[i]->quota_used = 0;
        }

        if (++rotating_pool >= total_pools)
        {
            rotating_pool = 0;
        }
    }

    /* Try to find the first pool in the rotation that is usable */
    tested = 0;

    while (!pool && tested++ < total_pools)
    {
        pool = pools[rotating_pool];

        if (pool->quota_used++ < pool->quota_gcd)
        {
            if (!pool_unusable(pool))
            {
                break;
            }
        }

        pool = NULL;

        if (++rotating_pool >= total_pools)
        {
            rotating_pool = 0;
        }
    }

    /* If there are no alive pools with quota, choose according to
     * priority. */
    if (!pool)
    {
        for (i = 0; i < total_pools; i++)
        {
            struct pool *tp = priority_pool(i);

            if (!pool_unusable(tp))
            {
                pool = tp;
                break;
            }
        }
    }

    /* If still nothing is usable, use the current pool */
    if (!pool)
    {
        pool = cp;
    }
out:

    applog(LOG_DEBUG, "Selecting pool %d for work", pool->pool_no);
    return pool;
}


/* truediffone == 0x00000000FFFF0000000000000000000000000000000000000000000000000000
 * Generate a 256 bit binary LE target by cutting up diff into 64 bit sized
 * portions or vice versa. */
static const double truediffone = 26959535291011309493156476344723991336010898738574164086137773096960.0;
static const double bits192     = 6277101735386680763835789423207666416102355444464034512896.0;
static const double bits128     = 340282366920938463463374607431768211456.0;
static const double bits64      = 18446744073709551616.0;


/* Converts a little endian 256 bit value to a double */
static double le256todouble(const void *target)
{
    uint64_t *data64;
    double dcut64;

    data64 = (uint64_t *)(target + 24);
    dcut64 = le64toh(*data64) * bits192;

    data64  = (uint64_t *)(target + 16);
    dcut64 += le64toh(*data64) * bits128;

    data64  = (uint64_t *)(target + 8);
    dcut64 += le64toh(*data64) * bits64;

    data64  = (uint64_t *)(target);
    dcut64 += le64toh(*data64);

    return dcut64;
}


static double diff_from_target(void *target)
{
    double d64, dcut64;

    d64 = truediffone;
    dcut64 = le256todouble(target);

    if (unlikely(!dcut64))
    {
        dcut64 = 1;
    }

    return d64 / dcut64;
}

/*
 * Calculate the work->work_difficulty based on the work->target
 */
static void calc_diff(struct work *work, double known)
{
    struct cgminer_pool_stats *pool_stats = &(work->pool->cgminer_pool_stats);
    double difficulty;
    uint64_t uintdiff;

    if (known)
    {
        work->work_difficulty = known;
    }
    else
    {
        work->work_difficulty = diff_from_target(work->target);
    }

    difficulty = work->work_difficulty;

    pool_stats->last_diff = difficulty;
    uintdiff = round(difficulty);
    suffix_string(uintdiff, work->pool->diff, sizeof(work->pool->diff), 0);

    if (difficulty == pool_stats->min_diff)
    {
        pool_stats->min_diff_count++;
    }
    else if (difficulty < pool_stats->min_diff || pool_stats->min_diff == 0)
    {
        pool_stats->min_diff = difficulty;
        pool_stats->min_diff_count = 1;
    }

    if (difficulty == pool_stats->max_diff)
    {
        pool_stats->max_diff_count++;
    }
    else if (difficulty > pool_stats->max_diff)
    {
        pool_stats->max_diff = difficulty;
        pool_stats->max_diff_count = 1;
    }
}


static unsigned char bench_hidiff_bins[16][160];
static unsigned char bench_lodiff_bins[16][160];
static unsigned char bench_target[32];

/* Iterate over the lo and hi diff benchmark work items such that we find one
 * diff 32+ share every 32 work items. */
static void get_benchmark_work(struct work *work)
{
    work->work_difficulty = 32;
    cg_memcpy(work->target, bench_target, 32);
    work->drv_rolllimit = 0;
    work->mandatory = true;
    work->pool = pools[0];
    cgtime(&work->tv_getwork);
    copy_time(&work->tv_getwork_reply, &work->tv_getwork);
    work->getwork_mode = GETWORK_MODE_BENCHMARK;
}


static void benchfile_dspwork(struct work *work, uint32_t nonce)
{
    char buf[1024];
    uint32_t dn;
    int i;

    dn = 0;
    for (i = 0; i < 4; i++)
    {
        dn *= 0x100;
        dn += nonce & 0xff;
        nonce /= 0x100;
    }

    __bin2hex(buf, work->data, sizeof(work->data));

    applog(LOG_ERR, "BENCHFILE nonce %u=0x%08x for work=%s",
           (unsigned int)dn, (unsigned int)dn, buf);

}

static bool benchfile_get_work(struct work *work)
{
    char buf[1024];
    char item[1024];
    bool got = false;

    if (!benchfile_in)
    {
        if (opt_benchfile)
        {
            benchfile_in = fopen(opt_benchfile, "r");
        }
        else
        {
            quit(1, "BENCHFILE Invalid benchfile NULL");
        }

        if (!benchfile_in)
        {
            quit(1, "BENCHFILE Failed to open benchfile '%s'", opt_benchfile);
        }

        benchfile_line = 0;

        if (!fgets(buf, 1024, benchfile_in))
        {
            quit(1, "BENCHFILE Failed to read benchfile '%s'", opt_benchfile);
        }

        got = true;
        benchfile_work = 0;
    }

    if (!got)
    {
        if (!fgets(buf, 1024, benchfile_in))
        {
            if (benchfile_work == 0)
                quit(1, "BENCHFILE No work in benchfile '%s'", opt_benchfile);
            fclose(benchfile_in);
            benchfile_in = NULL;
            return benchfile_get_work(work);
        }
    }

    do
    {
        benchfile_line++;

        // Empty lines and lines starting with '#' or '/' are ignored
        if (*buf != '\0' && *buf != '#' && *buf != '/')
        {
            char *commas[BENCHWORK_COUNT];
            int i, j, len;
            long nonce_time;

            commas[0] = buf;

            for (i = 1; i < BENCHWORK_COUNT; i++)
            {
                commas[i] = strchr(commas[i-1], ',');

                if (!commas[i])
                {
                    quit(1, "BENCHFILE Invalid input file line %d"
                         " - field count is %d but should be %d",
                         benchfile_line, i, BENCHWORK_COUNT);
                }
                len = (int) (commas[i] - commas[i - 1]);
                if (benchfile_data[i-1].length &&
                    (len != benchfile_data[i-1].length))
                {
                    quit(1, "BENCHFILE Invalid input file line %d "
                         "field %d (%s) length is %d but should be %d",
                         benchfile_line, i,
                         benchfile_data[i-1].name,
                         len, benchfile_data[i-1].length);
                }

                *(commas[i]++) = '\0';
            }

            // NonceTime may have LF's etc
            len = strlen(commas[BENCHWORK_NONCETIME]);

            if (len < benchfile_data[BENCHWORK_NONCETIME].length)
            {
                quit(1, "BENCHFILE Invalid input file line %d field %d"
                     " (%s) length is %d but should be least %d",
                     benchfile_line, BENCHWORK_NONCETIME+1,
                     benchfile_data[BENCHWORK_NONCETIME].name, len,
                     benchfile_data[BENCHWORK_NONCETIME].length);
            }

            sprintf(item, "0000000%c", commas[BENCHWORK_VERSION][0]);

            j = strlen(item);

            for (i = benchfile_data[BENCHWORK_PREVHASH].length-8; i >= 0; i -= 8)
            {
                sprintf(&(item[j]), "%.8s", &commas[BENCHWORK_PREVHASH][i]);
                j += 8;
            }

            for (i = benchfile_data[BENCHWORK_MERKLEROOT].length-8; i >= 0; i -= 8)
            {
                sprintf(&(item[j]), "%.8s", &commas[BENCHWORK_MERKLEROOT][i]);
                j += 8;
            }

            nonce_time = atol(commas[BENCHWORK_NONCETIME]);

            sprintf(&(item[j]), "%08lx", nonce_time);
            j += 8;

            strcpy(&(item[j]), commas[BENCHWORK_DIFFBITS]);
            j += benchfile_data[BENCHWORK_DIFFBITS].length;

            memset(work, 0, sizeof(*work));

            hex2bin(work->data, item, (size_t)(j >> 1));

            calc_midstate(work);

            benchfile_work++;

            return true;
        }
    }

    while (fgets(buf, 1024, benchfile_in));

    if (benchfile_work == 0)
    {
        quit(1, "BENCHFILE No work in benchfile '%s'", opt_benchfile);
    }

    fclose(benchfile_in);
    benchfile_in = NULL;
    return benchfile_get_work(work);
}


static void get_benchfile_work(struct work *work)
{
    benchfile_get_work(work);
    work->mandatory = true;
    work->pool = pools[0];
    cgtime(&work->tv_getwork);
    copy_time(&work->tv_getwork_reply, &work->tv_getwork);
    work->getwork_mode = GETWORK_MODE_BENCHMARK;
    calc_diff(work, 0);
}


#ifdef HAVE_CURSES
static void disable_curses_windows(void)
{
    leaveok(logwin, false);
    leaveok(statuswin, false);
    leaveok(mainwin, false);
    nocbreak();
    echo();
    delwin(logwin);
    delwin(statuswin);
}

/* Force locking of curses console_lock on shutdown since a dead thread might
 * have grabbed the lock. */
static bool curses_active_forcelocked(void)
{
    bool ret;

    mutex_trylock(&console_lock);
    ret = curses_active;
    if (!ret)
        unlock_curses();
    return ret;
}

static void disable_curses(void)
{
    if (curses_active_forcelocked())
    {
        use_curses = false;
        curses_active = false;
        disable_curses_windows();
        delwin(mainwin);
        endwin();
        unlock_curses();
    }
}
#endif


static void kill_timeout(struct thr_info *thr)
{
    cg_completion_timeout(&thr_info_cancel, thr, 1000);
}


static void kill_mining(void)
{
    struct thr_info *thr;
    int i;

    forcelog(LOG_DEBUG, "Killing off mining threads");
    /* Kill the mining threads*/
    for (i = 0; i < mining_threads; i++)
    {
        pthread_t *pth = NULL;

        thr = get_thread(i);

        if (thr && PTH(thr) != 0L)
        {
            pth = &thr->pth;
        }

// TODO:

        thr_info_cancel(thr);

        if (pth && *pth)
        {
            pthread_join(*pth, NULL);
        }

    }
}

static void __kill_work(void)
{
    struct thr_info *thr;
    int i;

    if (!successful_connect)
        return;

    forcelog(LOG_INFO, "Received kill message");

#ifdef USE_USBUTILS
    /* Best to get rid of it first so it doesn't
     * try to create any new devices */
    forcelog(LOG_DEBUG, "Killing off HotPlug thread");
    thr = &control_thr[hotplug_thr_id];
    kill_timeout(thr);
#endif

    forcelog(LOG_DEBUG, "Killing off watchpool thread");
    /* Kill the watchpool thread */
    thr = &control_thr[watchpool_thr_id];
    kill_timeout(thr);

    forcelog(LOG_DEBUG, "Killing off watchdog thread");
    /* Kill the watchdog thread */
    thr = &control_thr[watchdog_thr_id];
    kill_timeout(thr);

    forcelog(LOG_DEBUG, "Shutting down mining threads");

    for (i = 0; i < mining_threads; i++)
    {
        struct cgpu_info *cgpu;

        thr = get_thread(i);

        if (!thr)
        {
            continue;
        }
        cgpu = thr->cgpu;

        if (!cgpu)
        {
            continue;
        }

        cgpu->shutdown = true;
    }

    sleep(1);

    cg_completion_timeout(&kill_mining, NULL, 3000);

    /* Stop the others */
    forcelog(LOG_DEBUG, "Killing off API thread");
    thr = &control_thr[api_thr_id];
    kill_timeout(thr);

#ifdef USE_USBUTILS
    /* Release USB resources in case it's a restart
     * and not a QUIT */
    forcelog(LOG_DEBUG, "Releasing all USB devices");
    cg_completion_timeout(&usb_cleanup, NULL, 1000);

    forcelog(LOG_DEBUG, "Killing off usbres thread");
    thr = &control_thr[usbres_thr_id];
    kill_timeout(thr);
#endif

}


/* This should be the common exit path */
void kill_work(void)
{
    cg_completion_timeout(&__kill_work, NULL, 5000);

    quit(0, "Shutdown signal received.");
}

static
char **initial_args;

static void clean_up(bool restarting);


void app_restart(void)
{
    applog(LOG_WARNING, "Attempting to restart %s", packagename);
#ifdef USE_LIBSYSTEMD
    sd_notify(false, "RELOADING=1\n"
              "STATUS=Restarting...");
#endif

    cg_completion_timeout(&__kill_work, NULL, 5000);
    clean_up(true);

#if defined(unix) || defined(__APPLE__)
    if (forkpid > 0)
    {
        kill(forkpid, SIGTERM);
        forkpid = 0;
    }
#endif

    execv(initial_args[0], (EXECV_2ND_ARG_TYPE)initial_args);
    applog(LOG_WARNING, "Failed to restart application");
}


static void sighandler(int __maybe_unused sig)
{
    /* Restore signal handlers so we can still quit if kill_work fails */
    sigaction(SIGTERM, &termhandler, NULL);
    sigaction(SIGINT, &inthandler, NULL);
    sigaction(SIGABRT, &abrthandler, NULL);
    kill_work();
}

static void _stage_work(struct work *work);

#define stage_work(WORK) do { \
    _stage_work(WORK); \
    WORK = NULL; \
} while (0)


/* Adjust an existing char ntime field with a relative noffset */
static void modify_ntime(char *ntime, int noffset)
{
    unsigned char bin[4];
    uint32_t h32, *be32 = (uint32_t *)bin;

    hex2bin(bin, ntime, (size_t) 4);
    h32 = be32toh(*be32) + noffset;
    *be32 = htobe32(h32);
    __bin2hex(ntime, bin, (size_t) 4);
}


void roll_work(struct work *work)
{
    uint32_t *work_ntime;
    uint32_t ntime;

    work_ntime = (uint32_t *)(work->data + 68);
    ntime = be32toh(*work_ntime);
    ntime++;
    *work_ntime = htobe32(ntime);
    local_work++;
    work->rolls++;
    work->nonce = 0;
    applog(LOG_DEBUG, "Successfully rolled work");

    /* Change the ntime field if this is stratum work */
    if (work->ntime)
    {
        modify_ntime(work->ntime, 1);
    }

    /* This is now a different work item so it needs a different ID for the
     * hashtable */
    work->id = (uint32_t) total_work_inc();
}


struct work *make_clone(struct work *work)
{
    struct work *work_clone = copy_work(work);

    work_clone->clone = true;
    cgtime(&(work_clone->tv_cloned));
    work_clone->longpoll  = false;
    work_clone->mandatory = false;
    /* Make cloned work appear slightly older to bias towards keeping the
     * master work item which can be further rolled */
    work_clone->tv_staged.tv_sec -= 1;

    return work_clone;
}


#ifdef HAVE_LIBCURL
/* Called with pool_lock held. Recruit an extra curl if none are available for
 * this pool. */
static void recruit_curl(struct pool *pool)
{
    struct curl_ent *ce = cgcalloc(sizeof(struct curl_ent), 1);

    ce->curl = curl_easy_init();
    if (unlikely(!ce->curl))
        quit(1, "Failed to init in recruit_curl");

    list_add(&ce->node, &pool->curlring);
    pool->curls++;
}

/* Grab an available curl if there is one. If not, then recruit extra curls
 * unless we are in a submit_fail situation, or we have opt_delaynet enabled
 * and there are already 5 curls in circulation. Limit total number to the
 * number of mining threads per pool as well to prevent blasting a pool during
 * network delays/outages. */
static struct curl_ent *pop_curl_entry(struct pool *pool)
{
    int curl_limit = opt_delaynet ? 5 : (mining_threads + opt_queue) * 2;
    bool recruited = false;
    struct curl_ent *ce;

    mutex_lock(&pool->pool_lock);
retry:
    if (!pool->curls)
    {
        recruit_curl(pool);
        recruited = true;
    }
    else if (list_empty(&pool->curlring))
    {
        if (pool->curls >= curl_limit)
        {
            pthread_cond_wait(&pool->cr_cond, &pool->pool_lock);
            goto retry;
        }
        else
        {
            recruit_curl(pool);
            recruited = true;
        }
    }
    ce = list_entry(pool->curlring.next, struct curl_ent, node);
    list_del(&ce->node);
    mutex_unlock(&pool->pool_lock);

    if (recruited)
        applog(LOG_DEBUG, "Recruited curl for pool %d", pool->pool_no);
    return ce;
}

static void push_curl_entry(struct curl_ent *ce, struct pool *pool)
{
    mutex_lock(&pool->pool_lock);
    list_add_tail(&ce->node, &pool->curlring);
    cgtime(&ce->tv);
    pthread_cond_broadcast(&pool->cr_cond);
    mutex_unlock(&pool->pool_lock);
}

static bool stale_work(struct work *work, bool share);

static inline bool should_roll(struct work *work)
{
    struct timeval now;
    time_t expiry;

    if (work->pool != current_pool() && pool_strategy != POOL_LOADBALANCE && pool_strategy != POOL_BALANCE)
        return false;

    if (work->rolltime > opt_scantime)
        expiry = work->rolltime;
    else
        expiry = opt_scantime;
    expiry = expiry * 2 / 3;

    /* We shouldn't roll if we're unlikely to get one shares' duration
     * work out of doing so */
    cgtime(&now);
    if (now.tv_sec - work->tv_staged.tv_sec > expiry)
        return false;

    return true;
}

/* Limit rolls to 7000 to not beyond 2 hours in the future where bitcoind will
 * reject blocks as invalid. */
static inline bool can_roll(struct work *work)
{
    return (!work->stratum && work->pool && work->rolltime && !work->clone &&
            work->rolls < 7000 && !stale_work(work, false));
}

static void *submit_work_thread(void *userdata)
{
    struct work *work = (struct work *)userdata;
    struct pool *pool = work->pool;
    bool resubmit = false;
    struct curl_ent *ce;

    pthread_detach(pthread_self());

    RenameThread("SubmitWork");

    applog(LOG_DEBUG, "Creating extra submit work thread");

    ce = pop_curl_entry(pool);
    /* submit solution to bitcoin via JSON-RPC */
    while (!submit_upstream_work(work, ce->curl, resubmit))
    {
        if (opt_lowmem)
        {
            applog(LOG_NOTICE, "Pool %d share being discarded to minimise memory cache", pool->pool_no);
            break;
        }
        resubmit = true;
        if (stale_work(work, true))
        {
            applog(LOG_NOTICE, "Pool %d share became stale while retrying submit, discarding", pool->pool_no);

            mutex_lock(&stats_lock);
            total_stale++;
            pool->stale_shares++;
            total_diff_stale += work->work_difficulty;
            pool->diff_stale += work->work_difficulty;
            mutex_unlock(&stats_lock);

            free_work(work);
            break;
        }

        /* pause, then restart work-request loop */
        applog(LOG_INFO, "json_rpc_call failed on submit_work, retrying");
    }
    push_curl_entry(ce, pool);

    return NULL;
}

static bool clone_available(void)
{
    struct work *work_clone = NULL, *work, *tmp;
    bool cloned = false;

    mutex_lock(stgd_lock);
    if (!staged_rollable)
        goto out_unlock;

    HASH_ITER(hh, staged_work, work, tmp)
    {
        if (can_roll(work) && should_roll(work))
        {
            roll_work(work);
            work_clone = make_clone(work);
            roll_work(work);
            cloned = true;
            break;
        }
    }

out_unlock:
    mutex_unlock(stgd_lock);

    if (cloned)
    {
        applog(LOG_DEBUG, "Pushing cloned available work to stage thread");
        stage_work(work_clone);
    }
    return cloned;
}

/* Clones work by rolling it if possible, and returning a clone instead of the
 * original work item which gets staged again to possibly be rolled again in
 * the future */
static struct work *clone_work(struct work *work)
{
    int mrs = mining_threads + opt_queue - total_staged();
    struct work *work_clone;
    bool cloned;

    if (mrs < 1)
        return work;

    cloned = false;
    work_clone = make_clone(work);
    while (mrs-- > 0 && can_roll(work) && should_roll(work))
    {
        applog(LOG_DEBUG, "Pushing rolled converted work to stage thread");
        stage_work(work_clone);
        roll_work(work);
        work_clone = make_clone(work);
        /* Roll it again to prevent duplicates should this be used
         * directly later on */
        roll_work(work);
        cloned = true;
    }

    if (cloned)
    {
        stage_work(work);
        return work_clone;
    }

    free_work(work_clone);

    return work;
}

#else /* HAVE_LIBCURL */
static void *submit_work_thread(void __maybe_unused *userdata)
{
    pthread_detach(pthread_self());
    return NULL;
}
#endif /* HAVE_LIBCURL */

/* Return an adjusted ntime if we're submitting work that a device has
 * internally offset the ntime. */
static char *offset_ntime(const char *ntime, int noffset)
{
    unsigned char bin[4];
    uint32_t h32, *be32 = (uint32_t *)bin;

    hex2bin(bin, ntime, (size_t) 4);
    h32   = be32toh(*be32) + noffset;
    *be32 = htobe32(h32);

    return bin2hex(bin, (size_t) 4);
}

/* Duplicates any dynamically allocated arrays within the work struct to
 * prevent a copied work struct from freeing ram belonging to another struct */
static void _copy_work(struct work *work, const struct work *base_work, int noffset)
{
    uint32_t id = work->id;

    clean_work(work);
    cg_memcpy(work, base_work, sizeof(struct work));
    /* Keep the unique new id assigned during make_work to prevent copied
     * work from having the same id. */
    work->id = id;

    if (base_work->job_id)
    {
        work->job_id = strdup(base_work->job_id);
    }

    if (base_work->nonce1)
    {
        work->nonce1 = strdup(base_work->nonce1);
    }
    if (base_work->ntime)
    {
        /* If we are passed an noffset the binary work->data ntime and
         * the work->ntime hex string need to be adjusted. */
        if (noffset)
        {
            uint32_t *work_ntime = (uint32_t *)(work->data + 68);
            uint32_t ntime = be32toh(*work_ntime);

            ntime += noffset;
            *work_ntime = htobe32(ntime);
            work->ntime = offset_ntime(base_work->ntime, noffset);
        }
        else
        {
            work->ntime = strdup(base_work->ntime);
        }
    }
    else if (noffset)
    {
        uint32_t *work_ntime = (uint32_t *)(work->data + 68);
        uint32_t ntime = be32toh(*work_ntime);

        ntime += noffset;
        *work_ntime = htobe32(ntime);
    }

    if (base_work->coinbase)
    {
        work->coinbase = strdup(base_work->coinbase);
    }
//#ifdef USE_BITMAIN_C5
    work->version = base_work->version;
//#endif
}

void set_work_ntime(struct work *work, int ntime)  // only for bitfury? set_work_ntime(work, timestamp); this function parse_bxf_submit
{
    uint32_t *work_ntime = (uint32_t *)(work->data + 68);

    *work_ntime = htobe32(ntime);

    if (work->ntime)
    {
        free(work->ntime);
        work->ntime = bin2hex((unsigned char *)work_ntime, (size_t) 4);
    }
}

/* Generates a copy of an existing work struct, creating fresh heap allocations
 * for all dynamically allocated arrays within the struct. noffset is used for
 * when a driver has internally rolled the ntime, noffset is a relative value.
 * The macro copy_work() calls this function with an noffset of 0. */
struct work *copy_work_noffset(struct work *base_work, int noffset)
{
    struct work *work = make_work(); // *copy_work_noffset

    _copy_work(work, base_work, noffset);

    return work;
}

void pool_died(struct pool *pool)
{
    if (!pool_tset(pool, &pool->idle))
    {
        cgtime(&pool->tv_idle);

        if (pool == current_pool())
        {
            applog(LOG_WARNING, "Pool %d %s not responding!", pool->pool_no, pool->rpc_url);
            switch_pools(NULL);
        }
        else
        {
            applog(LOG_INFO, "Pool %d %s failed to return work", pool->pool_no, pool->rpc_url);
        }
    }
}

static bool stale_work(struct work *work, bool share)
{
    struct timeval now;
    time_t work_expiry;
    struct pool *pool;
    int getwork_delay;

    if (opt_benchmark || opt_benchfile)
    {
        return false;
    }

    if (work->work_block != work_block)
    {
        applog(LOG_DEBUG, "Work stale due to block mismatch");
        return true;
    }

    /* Technically the rolltime should be correct but some pools
     * advertise a broken expire= that is lower than a meaningful
     * scantime */
    if (work->rolltime > opt_scantime)
    {
        work_expiry = work->rolltime;
    }
    else
    {
        work_expiry = opt_expiry;
    }

    pool = work->pool;

    if (!share && pool->has_stratum)
    {
        bool same_job;

        if (!pool->stratum_active || !pool->stratum_notify)
        {
            applog(LOG_DEBUG, "Work stale due to stratum inactive");
            return true;
        }

        same_job = true;

        cg_rlock(&pool->data_lock);

        if (strcmp(work->job_id, pool->swork.job_id))
        {
            same_job = false;
        }

        cg_runlock(&pool->data_lock);

        if (!same_job)
        {
            applog(LOG_DEBUG, "Work stale due to stratum job_id mismatch");
            return true;
        }
    }

    /* Factor in the average getwork delay of this pool, rounding it up to
     * the nearest second */
    getwork_delay = (int) (pool->cgminer_pool_stats.getwork_wait_rolling * 5 + 1);
    work_expiry -= getwork_delay;

    if (unlikely(work_expiry < 5))
    {
        work_expiry = 5;
    }

    cgtime(&now);

    if ((now.tv_sec - work->tv_staged.tv_sec) >= work_expiry)
    {
        applog(LOG_DEBUG, "Work stale due to expiry");
        return true;
    }

    if (opt_fail_only && !share && pool != current_pool() && !work->mandatory &&
        pool_strategy != POOL_LOADBALANCE && pool_strategy != POOL_BALANCE)
    {
        applog(LOG_DEBUG, "Work stale due to fail only pool mismatch");
        return true;
    }

    return false;
}


uint64_t share_diff(const struct work *work)
{
    bool new_best = false;
    double d64, s64;
    uint64_t ret;

    d64 = truediffone;
    s64 = le256todouble(work->hash);

    if (unlikely(!s64))
    {
        s64 = 0;
    }

    ret = round(d64 / s64);

    cg_wlock(&control_lock);

    if (unlikely(ret > best_diff))
    {
        new_best = true;
        best_diff = ret;
        suffix_string(best_diff, best_share, sizeof(best_share), 0);
    }

    if (unlikely(ret > work->pool->best_diff))
    {
        work->pool->best_diff = ret;
    }

    cg_wunlock(&control_lock);

    if (unlikely(new_best))
    {
        applog(LOG_INFO, "New best share: %s", best_share);
    }

    return ret;
}

uint64_t share_ndiff(const struct work *work)
{
    double d64, s64;
    uint64_t ret = 0;

    if(work != NULL)
    {
        d64 = truediffone;
        s64 = le256todouble(work->hash);

        if (unlikely(!s64))
        {
            ret = 0;
        }
        else
        {
            ret = (d64 / s64);
        }
    }
    return ret;
}


static void regen_hash(struct work *work)
{
    uint32_t *data32 = (uint32_t *)(work->data);
    unsigned char swap[80];
    uint32_t *swap32 = (uint32_t *)swap;
    unsigned char hash1[32];

    flip80(swap32, data32);
    sha256(swap, 80, hash1);
    sha256(hash1, 32, (unsigned char *)(work->hash));
}

static bool cnx_needed(struct pool *pool);

/* Find the pool that currently has the highest priority */
static struct pool *priority_pool(int choice)
{
    struct pool *ret = NULL;
    int i;

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];

        if (pool->prio == choice)
        {
            ret = pool;
            break;
        }
    }

    if (unlikely(!ret))
    {
        applog(LOG_ERR, "WTF No pool %d found!", choice);
        return pools[choice];
    }

    return ret;
}


void switch_pools(struct pool *selected)
{
    struct pool *pool, *last_pool;
    int i, pool_no, next_pool;

    cg_wlock(&control_lock);

    last_pool = currentpool;
    pool_no   = currentpool->pool_no;

    /* Switch selected to pool number 0 and move the rest down */
    if (selected)
    {
        if (selected->prio != 0)
        {
            for (i = 0; i < total_pools; i++)
            {
                pool = pools[i];
                if (pool->prio < selected->prio)
                    pool->prio++;
            }
            selected->prio = 0;
        }
    }

    switch (pool_strategy)
    {
        /* All of these set to the master pool */
        case POOL_BALANCE:

        case POOL_FAILOVER:

        case POOL_LOADBALANCE:
            for (i = 0; i < total_pools; i++)
            {
                pool = priority_pool(i);

                if (pool_unusable(pool))
                {
                    continue;
                }
                pool_no = pool->pool_no;
                break;
            }
            break;
        /* Both of these simply increment and cycle */
        case POOL_ROUNDROBIN:

        case POOL_ROTATE:

            if (selected && !selected->idle)
            {
                pool_no = selected->pool_no;
                break;
            }
            next_pool = pool_no;
            /* Select the next alive pool */
            for (i = 1; i < total_pools; i++)
            {
                next_pool++;

                if (next_pool >= total_pools)
                {
                    next_pool = 0;
                }

                pool = pools[next_pool];

                if (pool_unusable(pool))
                {
                    continue;
                }

                pool_no = next_pool;
                break;
            }

            break;

        default:
            break;
    }

    currentpool = pools[pool_no];
    pool        = currentpool;

    cg_wunlock(&control_lock);

    if (pool != last_pool && pool_strategy != POOL_LOADBALANCE && pool_strategy != POOL_BALANCE)
    {
        applog(LOG_WARNING, "Switching to pool %d %s", pool->pool_no, pool->rpc_url);
        clear_pool_work(last_pool);
    }

    mutex_lock(&lp_lock);
    pthread_cond_broadcast(&lp_cond);
    mutex_unlock(&lp_lock);

}

void _discard_work(struct work **workptr, const char *file, const char *func, const int line)
{
    struct work *work = *workptr;

    if (unlikely(!work))
    {
        applog(LOG_ERR, "Discard work called with NULL work from %s %s:%d", file, func, line);
        return;
    }

    if (!work->clone && !work->rolls && !work->mined)
    {
        if (work->pool)
        {
            work->pool->discarded_work++;
            work->pool->quota_used--;
            work->pool->works--;
        }
        total_discarded++;
        applog(LOG_DEBUG, "Discarded work");
    }
    else
    {
        applog(LOG_DEBUG, "Discarded cloned or rolled work");
    }
    _free_work(workptr, file, func, line);
}

static void wake_gws(void)
{
    mutex_lock(stgd_lock);
    pthread_cond_signal(&gws_cond);
    mutex_unlock(stgd_lock);
}

static void discard_stale(void)
{
    struct work *work, *tmp;
    int stale = 0;

    mutex_lock(stgd_lock);

    HASH_ITER(hh, staged_work, work, tmp)
    {
        if (stale_work(work, false))
        {
            HASH_DEL(staged_work, work);
            discard_work(work);  // stale
            stale++;
        }
    }

    pthread_cond_signal(&gws_cond);
    mutex_unlock(stgd_lock);

    if (stale)
    {
        applog(LOG_DEBUG, "Discarded %d stales that didn't match current hash", stale);
    }
}

/* A generic wait function for threads that poll that will wait a specified
 * time tdiff waiting on the pthread conditional that is broadcast when a
 * work restart is required. Returns the value of pthread_cond_timedwait
 * which is zero if the condition was met or ETIMEDOUT if not.
 */
int restart_wait(struct thr_info *thr, unsigned int mstime)
{
    struct timeval tdiff;
    struct timeval then;
    struct timeval now;
    struct timespec abstime;
    int rc;

    tdiff.tv_sec  = mstime / 1000;
    tdiff.tv_usec = mstime * 1000 - (tdiff.tv_sec * 1000000);

    cgtime(&now);
    timeradd(&now, &tdiff, &then);

    abstime.tv_sec  = then.tv_sec;
    abstime.tv_nsec = then.tv_usec * 1000;

    mutex_lock(&restart_lock);

    if (thr->work_restart)
    {
        rc = 0;
    }
    else
    {
        rc = pthread_cond_timedwait(&restart_cond, &restart_lock, &abstime);
    }
    mutex_unlock(&restart_lock);

    return rc;
}

static void *restart_thread(void __maybe_unused *arg)
{
    struct cgpu_info *cgpu;
    int i, mt;
    pthread_detach(pthread_self());

    /* Discard staged work that is now stale */
    discard_stale();
    rd_lock(&mining_thr_lock);
    mt = mining_threads;
    rd_unlock(&mining_thr_lock);

    for (i = 0; i < mt; i++)
    {
        cgpu = mining_thr[i]->cgpu;

        if (unlikely(!cgpu))
        {
            continue;
        }

        if (cgpu->deven != DEV_ENABLED)
        {
            continue;
        }

        mining_thr[i]->work_restart = true;
        flush_queue(cgpu);
        cgpu->drv->flush_work(cgpu);
    }

    mutex_lock(&restart_lock);
    pthread_cond_broadcast(&restart_cond);
    mutex_unlock(&restart_lock);

#ifdef USE_USBUTILS
    /* Cancels any cancellable usb transfers. Flagged as such it means they
     * are usualy waiting on a read result and it's safe to abort the read
     * early. */
    cancel_usb_transfers();
#endif
    return NULL;
}


/* In order to prevent a deadlock via the various drv->flush_work
 * implementations we send the restart messages via a separate thread. */
static void restart_threads(void)
{
    pthread_t rthread;

    cgtime(&restart_tv_start);

    if (unlikely(pthread_create(&rthread, NULL, restart_thread, NULL)))
    {
        quit(1, "Failed to create restart thread");
    }
}

static void signal_work_update(void)
{
    int i;

    applog(LOG_INFO, "Work update message received");

    cgtime(&update_tv_start);
    rd_lock(&mining_thr_lock);

    for (i = 0; i < mining_threads; i++)
    {
        mining_thr[i]->work_update = true;
    }

    rd_unlock(&mining_thr_lock);
}

static void set_curblock(const char *hexstr, const unsigned char *bedata)
{
    int ofs;

    cg_wlock(&ch_lock);
    cgtime(&block_timeval);
    strcpy(current_hash, hexstr);
    cg_memcpy(current_block, bedata, 32);
    get_timestamp(blocktime, sizeof(blocktime), &block_timeval);
    cg_wunlock(&ch_lock);

    for (ofs = 0; ofs <= 56; ofs++)
    {
        if (memcmp(&current_hash[ofs], "0", 1))
        {
            break;
        }
    }
    strncpy(prev_block, &current_hash[ofs], 8);
    prev_block[8] = '\0';

    applog(LOG_INFO, "New block: %s... diff %s", current_hash, block_diff);
}

static int block_sort(struct block *blocka, struct block *blockb)
{
    return blocka->block_no - blockb->block_no;
}

/* Decode the current block difficulty which is in packed form */
static void set_blockdiff(const struct work *work)
{
    uint8_t pow = work->data[72];
    int powdiff = (8 * (0x1d - 3)) - (8 * (pow - 3));

    if (powdiff < 8)
    {
        powdiff = 8;
    }

    uint32_t diff32  = be32toh(*((uint32_t *)(work->data + 72))) & 0x00FFFFFF;
    double numerator = 0xFFFFULL << powdiff;
    double ddiff     = numerator / (double)diff32;

    if (unlikely(current_diff != ddiff))
    {
        suffix_string((uint64_t)ddiff, block_diff, sizeof(block_diff), 0);
        current_diff = ddiff;
        applog(LOG_NOTICE, "Network diff set to %s", block_diff);
    }
}

/* Search to see if this string is from a block that has been seen before */
static bool block_exists(const char *hexstr, const unsigned char *bedata, const struct work *work)
{
    int deleted_block = 0;
    struct block *s;
    bool ret = true;

    wr_lock(&blk_lock);
    HASH_FIND_STR(blocks, hexstr, s);
    if (!s)
    {
        s = cgcalloc(sizeof(struct block), (size_t) 1);

        if (unlikely(!s))
        {
            quit (1, "block_exists OOM");
        }

        strcpy(s->hash, hexstr);
        s->block_no = new_blocks++;

        ret = false;
        /* Only keep the last hour's worth of blocks in memory since
         * work from blocks before this is virtually impossible and we
         * want to prevent memory usage from continually rising */
        if (HASH_COUNT(blocks) > 3)
        {
            struct block *oldblock;

            HASH_SORT(blocks, block_sort);
            oldblock = blocks;
            deleted_block = oldblock->block_no;
            HASH_DEL(blocks, oldblock);
            free(oldblock);
        }

        HASH_ADD_STR(blocks, hash, s);
        set_blockdiff(work);

        if (deleted_block)
        {
            applog(LOG_DEBUG, "Deleted block %d from database", deleted_block);
        }
    }

    wr_unlock(&blk_lock);

    if (!ret)
    {
        set_curblock(hexstr, bedata);
    }

    if (deleted_block)
    {
        applog(LOG_DEBUG, "Deleted block %d from database", deleted_block);
    }

    return ret;
}

static bool test_work_current(struct work *work)
{
    struct pool *pool = work->pool;
    unsigned char bedata[32];
    char hexstr[68];
    bool ret = true;
    unsigned char *bin_height = &pool->coinbase[43];
    uint8_t cb_height_sz = bin_height[-1];
    uint32_t height = 0;

    if (work->mandatory)
    {
        return ret;
    }

    swap256(bedata, work->data + 4);
    __bin2hex(hexstr, bedata, (size_t) 32);

    /* Calculate block height */
    if (cb_height_sz <= 4)
    {
        cg_memcpy(&height, bin_height, cb_height_sz);
        height = le32toh(height);
        height--;
    }

    cg_wlock(&pool->data_lock);

    if (pool->swork.clean)
    {
        pool->swork.clean = false;
        work->longpoll = true;
    }

    cg_wunlock(&pool->data_lock);

    /* Search to see if this block exists yet and if not, consider it a
     * new block and set the current block details to this one */
    if (!block_exists(hexstr, bedata, work))
    {
        /* Copy the information to this pool's prev_block since it
         * knows the new block exists. */
        cg_memcpy(pool->prev_block, bedata, 32);

        if (unlikely(new_blocks == 1))
        {
            ret = false;
            goto out;
        }

        work->work_block = ++work_block;

        if (work->longpoll)
        {
            if (work->stratum)
            {
                applog(LOG_NOTICE, "Stratum from pool %d detected new block at height %d", pool->pool_no, height);
            }
            else
            {
                applog(LOG_NOTICE, "%sLONGPOLL from pool %d detected new block", work->gbt ? "GBT " : "", work->pool->pool_no);
            }
        }
        else if (have_longpoll && !pool->gbt_solo)
        {
            applog(LOG_NOTICE, "New block detected on network before pool notification");
        }
        else if (!pool->gbt_solo)
        {
            applog(LOG_NOTICE, "New block detected on network");
        }
        restart_threads();
    }
    else
    {
        if (memcmp(pool->prev_block, bedata, 32))
        {
            /* Work doesn't match what this pool has stored as
             * prev_block. Let's see if the work is from an old
             * block or the pool is just learning about a new
             * block. */
            if (memcmp(bedata, current_block, 32))
            {
                /* Doesn't match current block. It's stale */
                applog(LOG_DEBUG, "Stale data from pool %d at height %d", pool->pool_no, height);
                ret = false;
            }
            else
            {
                /* Work is from new block and pool is up now
                 * current. */
                applog(LOG_INFO, "Pool %d now up to date at height %d", pool->pool_no, height);
                cg_memcpy(pool->prev_block, bedata, 32);
            }
        }

#if 0
        /* This isn't ideal, this pool is still on an old block but
         * accepting shares from it. To maintain fair work distribution
         * we work on it anyway. */
        if (memcmp(bedata, current_block, 32))
        {
            applog(LOG_DEBUG, "Pool %d still on old block", pool->pool_no);
        }
#endif
        if (work->longpoll)
        {
            work->work_block = ++work_block;
            if (shared_strategy() || work->pool == current_pool())
            {
                if (work->stratum)
                {
                    applog(LOG_NOTICE, "Stratum from pool %d requested work restart",
                           pool->pool_no);
                }
                else
                {
                    applog(LOG_NOTICE, "%sLONGPOLL from pool %d requested work restart",
                           work->gbt ? "GBT " : "", work->pool->pool_no);
                }
                restart_threads();
            }
        }
    }

out:
    work->longpoll = false;

    return ret;
}


static int tv_sort(struct work *worka, struct work *workb)
{
    return worka->tv_staged.tv_sec - workb->tv_staged.tv_sec;
}


static bool work_rollable(struct work *work)
{
    return (!work->clone && work->rolltime);
}


static bool hash_push(struct work *work)
{
    bool rc = true;

    mutex_lock(stgd_lock);

    if (work_rollable(work))
    {
        staged_rollable++;
    }

    if (likely(!getq->frozen))
    {
        HASH_ADD_INT(staged_work, id, work);
        HASH_SORT(staged_work, tv_sort);
    }
    else
    {
        rc = false;
    }

    pthread_cond_broadcast(&getq->cond);
    mutex_unlock(stgd_lock);

    return rc;
}


static void _stage_work(struct work *work)
{
    applog(LOG_DEBUG, "Pushing work from pool %d to hash queue", work->pool->pool_no);
    work->work_block = work_block;
    test_work_current(work);
    work->pool->works++;
    hash_push(work);
}


#ifdef HAVE_CURSES
int curses_int(const char *query)
{
    int ret;
    char *cvar;

    cvar = curses_input(query);
    ret = atoi(cvar);
    free(cvar);
    return ret;
}
#endif

#ifdef HAVE_CURSES
static bool input_pool(bool live);
#endif

#ifdef HAVE_CURSES
static void display_pool_summary(struct pool *pool)
{
    double efficiency = 0.0;

    if (curses_active_locked())
    {
        wlog("Pool: %s\n", pool->rpc_url);
        if (pool->solved)
            wlog("SOLVED %d BLOCK%s!\n", pool->solved, pool->solved > 1 ? "S" : "");
        if (!pool->has_stratum)
            wlog("%s own long-poll support\n", pool->hdr_path ? "Has" : "Does not have");
        wlog(" Queued work requests: %d\n", pool->getwork_requested);
        wlog(" Share submissions: %"PRId64"\n", pool->accepted + pool->rejected);
        wlog(" Accepted shares: %"PRId64"\n", pool->accepted);
        wlog(" Rejected shares: %"PRId64"\n", pool->rejected);
        wlog(" Accepted difficulty shares: %1.f\n", pool->diff_accepted);
        wlog(" Rejected difficulty shares: %1.f\n", pool->diff_rejected);
        if (pool->accepted || pool->rejected)
            wlog(" Reject ratio: %.1f%%\n", (double)(pool->rejected * 100) / (double)(pool->accepted + pool->rejected));
        efficiency = pool->getwork_requested ? pool->accepted * 100.0 / pool->getwork_requested : 0.0;
        if (!pool_localgen(pool))
            wlog(" Efficiency (accepted / queued): %.0f%%\n", efficiency);

        wlog(" Items worked on: %d\n", pool->works);
        wlog(" Discarded work due to new blocks: %d\n", pool->discarded_work);
        wlog(" Stale submissions discarded due to new blocks: %d\n", pool->stale_shares);
        wlog(" Unable to get work from server occasions: %d\n", pool->getfail_occasions);
        wlog(" Submitting work remotely delay occasions: %d\n\n", pool->remotefail_occasions);
        unlock_curses();
    }
}
#endif


/* We can't remove the memory used for this struct pool because there may
 * still be work referencing it. We just remove it from the pools list */
void remove_pool(struct pool *pool)
{
    int i, last_pool = total_pools - 1;
    struct pool *other;

    /* Boost priority of any lower prio than this one */
    for (i = 0; i < total_pools; i++)
    {
        other = pools[i];
        if (other->prio > pool->prio)
            other->prio--;
    }

    if (pool->pool_no < last_pool)
    {
        /* Swap the last pool for this one */
        (pools[last_pool])->pool_no = pool->pool_no;
        pools[pool->pool_no] = pools[last_pool];
    }

    /* Give it an invalid number */
    pool->pool_no = total_pools;
    pool->removed = true;
    total_pools--;
}

/* add a mutex if this needs to be thread safe in the future */
static struct JE
{
    char *buf;
    struct JE *next;
} *jedata = NULL;


static void json_escape_free()
{
    struct JE *jeptr = jedata;
    struct JE *jenext;

    jedata = NULL;

    while (jeptr)
    {
        jenext = jeptr->next;
        free(jeptr->buf);
        free(jeptr);
        jeptr = jenext;
    }
}

static char *json_escape(char *str)
{
    struct JE *jeptr;
    char *buf, *ptr;

    /* 2x is the max, may as well just allocate that */
    ptr         = buf = cgmalloc(strlen(str) * 2 + 1);
    jeptr       = cgmalloc(sizeof(*jeptr));
    jeptr->buf  = buf;
    jeptr->next = jedata;
    jedata      = jeptr;

    while (*str)
    {
        if (*str == '\\' || *str == '"')
            *(ptr++) = '\\';

        *(ptr++) = *(str++);
    }

    *ptr = '\0';

    return buf;
}


void write_config(FILE *fcfg)
{
    struct opt_table *opt;
    int i;

    /* Write pool values */
    fputs("{\n\"pools\" : [", fcfg);
    for(i = 0; i < total_pools; i++)
    {
        struct pool *pool = priority_pool(i);

        if (pool->quota != 1)
        {
            fprintf(fcfg, "%s\n\t{\n\t\t\"quota\" : \"%s%s%s%d;%s\",", i > 0 ? "," : "",
                    pool->rpc_proxy ? json_escape((char *)proxytype(pool->rpc_proxytype)) : "",
                    pool->rpc_proxy ? json_escape(pool->rpc_proxy) : "",
                    pool->rpc_proxy ? "|" : "",
                    pool->quota,
                    json_escape(pool->rpc_url));
        }
        else
        {
            fprintf(fcfg, "%s\n\t{\n\t\t\"url\" : \"%s%s%s%s\",", i > 0 ? "," : "",
                    pool->rpc_proxy ? json_escape((char *)proxytype(pool->rpc_proxytype)) : "",
                    pool->rpc_proxy ? json_escape(pool->rpc_proxy) : "",
                    pool->rpc_proxy ? "|" : "",
                    json_escape(pool->rpc_url));
        }

        if (pool->extranonce_subscribe)
        {
            fputs("\n\t\t\"extranonce-subscribe\" : true,", fcfg);
        }

        fprintf(fcfg, "\n\t\t\"user\" : \"%s\",", json_escape(pool->rpc_user));
        fprintf(fcfg, "\n\t\t\"pass\" : \"%s\"\n\t}", json_escape(pool->rpc_pass));
    }
    fputs("\n]\n", fcfg);

    /* Simple bool,int and char options */
    for (opt = opt_config_table; opt->type != OPT_END; opt++)
    {
        char *p, *name = strdup(opt->names);

        for (p = strtok(name, "|"); p; p = strtok(NULL, "|"))
        {
            if (p[1] != '-')
            {
                continue;
            }

            if (opt->desc == opt_hidden)
            {
                continue;
            }

            if (opt->type & OPT_NOARG &&
                ((void *)opt->cb == (void *)opt_set_bool || (void *)opt->cb == (void *)opt_set_invbool) &&
                (*(bool *)opt->u.arg == ((void *)opt->cb == (void *)opt_set_bool)))
            {
                fprintf(fcfg, ",\n\"%s\" : true", p+2);
                continue;
            }

            if (opt->type & OPT_HASARG &&
                ((void *)opt->cb_arg == (void *)opt_set_intval ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_9999 ||
                 (void *)opt->cb_arg == (void *)set_int_1_to_65535 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_10 ||
                 (void *)opt->cb_arg == (void *)set_int_1_to_10 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_100 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_255 ||
                 (void *)opt->cb_arg == (void *)set_int_1_to_255 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_7680 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_200 ||
                 (void *)opt->cb_arg == (void *)set_int_0_to_4 ||
                 (void *)opt->cb_arg == (void *)set_int_32_to_63 ||
                 (void *)opt->cb_arg == (void *)set_int_22_to_75 ||
                 (void *)opt->cb_arg == (void *)set_int_42_to_85 ||
                 (void *)opt->cb_arg == (void *)set_int_22_to_55 ||
                 (void *)opt->cb_arg == (void *)set_int_42_to_65))
            {
                fprintf(fcfg, ",\n\"%s\" : \"%d\"", p+2, *(int *)opt->u.arg);
                continue;
            }

            if (opt->type & OPT_HASARG &&
                (((void *)opt->cb_arg == (void *)set_float_125_to_500) ||
                 (void *)opt->cb_arg == (void *)set_float_100_to_250))
            {
                fprintf(fcfg, ",\n\"%s\" : \"%.1f\"", p+2, *(float *)opt->u.arg);
                continue;
            }

            if (opt->type & (OPT_HASARG | OPT_PROCESSARG) &&
                (opt->u.arg != &opt_set_null))
            {
                char *carg = *(char **)opt->u.arg;

                if (carg)
                {
                    fprintf(fcfg, ",\n\"%s\" : \"%s\"", p+2, json_escape(carg));
                }

                continue;
            }
        }

        free(name);
    }

    /* Special case options */
    if (pool_strategy == POOL_BALANCE)
    {
        fputs(",\n\"balance\" : true", fcfg);
    }

    if (pool_strategy == POOL_LOADBALANCE)
    {
        fputs(",\n\"load-balance\" : true", fcfg);
    }

    if (pool_strategy == POOL_ROUNDROBIN)
    {
        fputs(",\n\"round-robin\" : true", fcfg);
    }

    if (pool_strategy == POOL_ROTATE)
    {
        fprintf(fcfg, ",\n\"rotate\" : \"%d\"", opt_rotate_period);
    }

    fputs("\n}\n", fcfg);

    json_escape_free();
}

void zero_bestshare(void)
{
    int i;
    best_diff = 0;
    memset(best_share, 0, 8);
    suffix_string(best_diff, best_share, sizeof(best_share), 0);

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];
        pool->best_diff = 0;
    }
}


static struct timeval tv_hashmeter;
static time_t hashdisplay_t;


void zero_stats(void)
{
    int i;
    struct sysinfo sInfo;
    if (sysinfo(&sInfo))
    {
        applog(LOG_INFO, "Failed to get sysinfo, errno:%u, reason:%s\n",
               errno, strerror(errno));
        total_tv_start_sys=time(NULL);
    }
    else
    {
        total_tv_start_sys=sInfo.uptime;
    }

    cgtime(&total_tv_start);
    copy_time(&tv_hashmeter, &total_tv_start);

    total_rolling      = 0;
    rolling1           = 0;
    rolling5           = 0;
    rolling15          = 0;
    total_mhashes_done = 0;
    new_total_mhashes_done = 0;

    for(i = 0; i < CG_LOCAL_MHASHES_MAX_NUM; i++)
    {
        g_local_mhashes_dones[i] = 0;
    }

    g_local_mhashes_index = 0;
    g_max_fan             = 0;
    g_max_temp            = 0;
    total_getworks        = 0;
    total_accepted        = 0;
    total_rejected        = 0;
    hw_errors             = 0;
    total_stale           = 0;
    total_discarded       = 0;
    local_work            = 0;
    total_go              = 0;
    total_ro              = 0;
    total_secs            = 1.0;
    new_total_secs        = 1.0;
    last_total_secs       = 1.0;
    total_diff1           = 0;
    found_blocks          = 0;
    total_diff_accepted   = 0;
    total_diff_rejected   = 0;
    total_diff_stale      = 0;

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];

        pool->getwork_requested    = 0;
        pool->accepted             = 0;
        pool->rejected             = 0;
        pool->stale_shares         = 0;
        pool->discarded_work       = 0;
        pool->getfail_occasions    = 0;
        pool->remotefail_occasions = 0;
        pool->last_share_time      = 0;
        pool->diff1                = 0;
        pool->diff_accepted        = 0;
        pool->diff_rejected        = 0;
        pool->diff_stale           = 0;
        pool->last_share_diff      = 0;
    }

    zero_bestshare();

    for (i = 0; i < total_devices; ++i)
    {
        struct cgpu_info *cgpu = get_devices(i);

        copy_time(&cgpu->dev_start_tv, &total_tv_start);

        mutex_lock(&hash_lock);

        cgpu->total_mhashes        = 0;
        cgpu->accepted             = 0;
        cgpu->rejected             = 0;
        cgpu->hw_errors            = 0;
        cgpu->utility              = 0.0;
        cgpu->last_share_pool_time = 0;
        cgpu->diff1                = 0;
        cgpu->diff_accepted        = 0;
        cgpu->diff_rejected        = 0;
        cgpu->last_share_diff      = 0;

        mutex_unlock(&hash_lock);

        /* Don't take any locks in the driver zero stats function, as
         * it's called async from everything else and we don't want to
         * deadlock. */
        cgpu->drv->zero_stats(cgpu);
    }
}


static void set_highprio(void)
{

    int ret = nice(-10);

    if (!ret)
        applog(LOG_DEBUG, "Unable to set thread to high priority");

}


static void set_lowprio(void)
{

    int ret = nice(10);

    if (!ret)
    {
        applog(LOG_INFO, "Unable to set thread to low priority");
    }

}

#ifdef HAVE_CURSES
static void display_pools(void)
{
    struct pool *pool;
    int selected, i;
    char input;

    opt_loginput = true;
    immedok(logwin, true);
    clear_logwin();

updated:

    for (i = 0; i < total_pools; i++)
    {
        pool = pools[i];

        if (pool == current_pool())
        {
            wattron(logwin, A_BOLD);
        }

        if (pool->enabled != POOL_ENABLED)
        {
            wattron(logwin, A_DIM);
        }

        wlogprint("%d: ", pool->pool_no);
        switch (pool->enabled)
        {
            case POOL_ENABLED:
                wlogprint("Enabled ");
                break;
            case POOL_DISABLED:
                wlogprint("Disabled ");
                break;
            case POOL_REJECTING:
                wlogprint("Rejecting ");
                break;
        }
        wlogprint("%s Quota %d Prio %d: %s  User:%s\n",
                  pool->idle? "Dead" : "Alive",
                  pool->quota,
                  pool->prio,
                  pool->rpc_url, pool->rpc_user);
        wattroff(logwin, A_BOLD | A_DIM);
    }
retry:
    wlogprint("\nCurrent pool management strategy: %s\n",
              strategies[pool_strategy].s);
    if (pool_strategy == POOL_ROTATE)
        wlogprint("Set to rotate every %d minutes\n", opt_rotate_period);
    wlogprint("[F]ailover only %s\n", opt_fail_only ? "enabled" : "disabled");
    wlogprint("Pool [A]dd [R]emove [D]isable [E]nable [Q]uota change\n");
    wlogprint("[C]hange management strategy [S]witch pool [I]nformation\n");
    wlogprint("Or press any other key to continue\n");
    logwin_update();
    input = getch();

    if (!strncasecmp(&input, "a", 1))
    {
        input_pool(true);
        goto updated;
    }
    else if (!strncasecmp(&input, "r", 1))
    {
        if (total_pools <= 1)
        {
            wlogprint("Cannot remove last pool");
            goto retry;
        }
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        if (pool == current_pool())
            switch_pools(NULL);
        if (pool == current_pool())
        {
            wlogprint("Unable to remove pool due to activity\n");
            goto retry;
        }
        disable_pool(pool);
        remove_pool(pool);
        goto updated;
    }
    else if (!strncasecmp(&input, "s", 1))
    {
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        enable_pool(pool);
        switch_pools(pool);
        goto updated;
    }
    else if (!strncasecmp(&input, "d", 1))
    {
        if (enabled_pools <= 1)
        {
            wlogprint("Cannot disable last pool");
            goto retry;
        }
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        disable_pool(pool);
        if (pool == current_pool())
            switch_pools(NULL);
        goto updated;
    }
    else if (!strncasecmp(&input, "e", 1))
    {
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        enable_pool(pool);
        if (pool->prio < current_pool()->prio)
            switch_pools(pool);
        goto updated;
    }
    else if (!strncasecmp(&input, "c", 1))
    {
        for (i = 0; i <= TOP_STRATEGY; i++)
            wlogprint("%d: %s\n", i, strategies[i].s);
        selected = curses_int("Select strategy number type");
        if (selected < 0 || selected > TOP_STRATEGY)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        if (selected == POOL_ROTATE)
        {
            opt_rotate_period = curses_int("Select interval in minutes");

            if (opt_rotate_period < 0 || opt_rotate_period > 9999)
            {
                opt_rotate_period = 0;
                wlogprint("Invalid selection\n");
                goto retry;
            }
        }
        pool_strategy = selected;
        switch_pools(NULL);
        goto updated;
    }
    else if (!strncasecmp(&input, "i", 1))
    {
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        display_pool_summary(pool);
        goto retry;
    }
    else if (!strncasecmp(&input, "q", 1))
    {
        selected = curses_int("Select pool number");
        if (selected < 0 || selected >= total_pools)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        pool = pools[selected];
        selected = curses_int("Set quota");
        if (selected < 0)
        {
            wlogprint("Invalid negative quota\n");
            goto retry;
        }
        pool->quota = selected;
        adjust_quota_gcd();
        goto updated;
    }
    else
        clear_logwin();

    immedok(logwin, false);
    opt_loginput = false;
}

static void display_options(void)
{
    int selected;
    char input;

    opt_loginput = true;
    immedok(logwin, true);
    clear_logwin();
retry:
    wlogprint("[N]ormal [C]lear [S]ilent mode (disable all output)\n");
    wlogprint("[D]ebug:%s\n[P]er-device:%s\n[Q]uiet:%s\n[V]erbose:%s\n"
              "[R]PC debug:%s\n[W]orkTime details:%s\nco[M]pact: %s\n"
              "[T]oggle status switching:%s\n"
              "w[I]descreen:%s\n"
              "[Z]ero statistics\n"
              "[L]og interval:%d\n",
              opt_debug ? "on" : "off",
              want_per_device_stats? "on" : "off",
              opt_quiet ? "on" : "off",
              opt_log_output ? "on" : "off",
              opt_protocol ? "on" : "off",
              opt_worktime ? "on" : "off",
              opt_compact ? "on" : "off",
              switch_status ? "enabled" : "disabled",
              opt_widescreen ? "enabled" : "disabled",
              opt_log_interval);
    wlogprint("Select an option or any other key to return\n");
    logwin_update();
    input = getch();
    if (!strncasecmp(&input, "q", 1))
    {
        opt_quiet ^= true;
        wlogprint("Quiet mode %s\n", opt_quiet ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "v", 1))
    {
        opt_log_output ^= true;
        if (opt_log_output)
            opt_quiet = false;
        wlogprint("Verbose mode %s\n", opt_log_output ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "n", 1))
    {
        opt_log_output = false;
        opt_debug = false;
        opt_quiet = false;
        opt_protocol = false;
        opt_compact = false;
        want_per_device_stats = false;
        wlogprint("Output mode reset to normal\n");
        switch_logsize(false);
        goto retry;
    }
    else if (!strncasecmp(&input, "d", 1))
    {
        opt_debug ^= true;
        opt_log_output = opt_debug;
        if (opt_debug)
            opt_quiet = false;
        wlogprint("Debug mode %s\n", opt_debug ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "m", 1))
    {
        opt_compact ^= true;
        wlogprint("Compact mode %s\n", opt_compact ? "enabled" : "disabled");
        switch_logsize(false);
        goto retry;
    }
    else if (!strncasecmp(&input, "p", 1))
    {
        want_per_device_stats ^= true;
        opt_log_output = want_per_device_stats;
        wlogprint("Per-device stats %s\n", want_per_device_stats ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "r", 1))
    {
        opt_protocol ^= true;
        if (opt_protocol)
            opt_quiet = false;
        wlogprint("RPC protocol debugging %s\n", opt_protocol ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "c", 1))
        clear_logwin();
    else if (!strncasecmp(&input, "l", 1))
    {
        selected = curses_int("Interval in seconds");
        if (selected < 0 || selected > 9999)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        opt_log_interval = selected;
        wlogprint("Log interval set to %d seconds\n", opt_log_interval);
        goto retry;
    }
    else if (!strncasecmp(&input, "s", 1))
    {
        opt_realquiet = true;
    }
    else if (!strncasecmp(&input, "w", 1))
    {
        opt_worktime ^= true;
        wlogprint("WorkTime details %s\n", opt_worktime ? "enabled" : "disabled");
        goto retry;
    }
    else if (!strncasecmp(&input, "t", 1))
    {
        switch_status ^= true;
        goto retry;
    }
    else if (!strncasecmp(&input, "i", 1))
    {
        opt_widescreen ^= true;
        goto retry;
    }
    else if (!strncasecmp(&input, "z", 1))
    {
        zero_stats();
        goto retry;
    }
    else
        clear_logwin();

    immedok(logwin, false);
    opt_loginput = false;
}
#endif

void default_save_file(char *filename)
{
    if (default_config && *default_config)
    {
        strcpy(filename, default_config);
        return;
    }

#if defined(unix) || defined(__APPLE__)
    if (getenv("HOME") && *getenv("HOME"))
    {
        strcpy(filename, getenv("HOME"));
        strcat(filename, "/");
    }
    else
        strcpy(filename, "");
    strcat(filename, ".bmminer/");
    mkdir(filename, 0777);
#else
    strcpy(filename, "");
#endif
    strcat(filename, def_conf);
}

#ifdef HAVE_CURSES
static void set_options(void)
{
    int selected;
    char input;

    opt_loginput = true;
    immedok(logwin, true);
    clear_logwin();
retry:
    wlogprint("[Q]ueue: %d\n[S]cantime: %d\n[E]xpiry: %d\n"
              "[W]rite config file\n[C]gminer restart\n",
              opt_queue, opt_scantime, opt_expiry);
    wlogprint("Select an option or any other key to return\n");
    logwin_update();
    input = getch();

    if (!strncasecmp(&input, "q", 1))
    {
        selected = curses_int("Extra work items to queue");
        if (selected < 0 || selected > 9999)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        opt_queue = selected;
        if (opt_queue < max_queue)
            max_queue = opt_queue;
        goto retry;
    }
    else if  (!strncasecmp(&input, "s", 1))
    {
        selected = curses_int("Set scantime in seconds");
        if (selected < 0 || selected > 9999)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        opt_scantime = selected;
        goto retry;
    }
    else if  (!strncasecmp(&input, "e", 1))
    {
        selected = curses_int("Set expiry time in seconds");
        if (selected < 0 || selected > 9999)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        opt_expiry = selected;
        goto retry;
    }
    else if  (!strncasecmp(&input, "w", 1))
    {
        FILE *fcfg;
        char *str, filename[PATH_MAX], prompt[PATH_MAX + 50];

        default_save_file(filename);
        snprintf(prompt, sizeof(prompt), "Config filename to write (Enter for default) [%s]", filename);
        str = curses_input(prompt);
        if (strcmp(str, "-1"))
        {
            struct stat statbuf;

            strcpy(filename, str);
            free(str);
            if (!stat(filename, &statbuf))
            {
                wlogprint("File exists, overwrite?\n");
                input = getch();
                if (strncasecmp(&input, "y", 1))
                    goto retry;
            }
        }
        else
            free(str);
        fcfg = fopen(filename, "w");
        if (!fcfg)
        {
            wlogprint("Cannot open or create file\n");
            goto retry;
        }
        write_config(fcfg);
        fclose(fcfg);
        goto retry;

    }
    else if (!strncasecmp(&input, "c", 1))
    {
        wlogprint("Are you sure?\n");
        input = getch();
        if (!strncasecmp(&input, "y", 1))
            app_restart();
        else
            clear_logwin();
    }
    else
        clear_logwin();

    immedok(logwin, false);
    opt_loginput = false;
}

#ifdef USE_USBUTILS
static void mt_enable(struct thr_info *mythr)
{
    cgsem_post(&mythr->sem);
}

static void set_usb(void)
{
    int selected, i, mt, enabled, disabled, zombie, total, blacklisted;
    struct cgpu_info *cgpu;
    struct thr_info *thr;
    double val;
    char input;

    opt_loginput = true;
    immedok(logwin, true);
    clear_logwin();

retry:
    enabled = 0;
    disabled = 0;
    zombie = 0;
    total = 0;
    blacklisted = 0;

    rd_lock(&mining_thr_lock);
    mt = mining_threads;
    rd_unlock(&mining_thr_lock);

    for (i = 0; i < mt; i++)
    {
        cgpu = mining_thr[i]->cgpu;
        if (unlikely(!cgpu))
            continue;
        if (cgpu->usbinfo.nodev)
            zombie++;
        else if  (cgpu->deven == DEV_DISABLED)
            disabled++;
        else
            enabled++;
        if (cgpu->blacklisted)
            blacklisted++;
        total++;
    }
    wlogprint("Hotplug interval:%d\n", hotplug_time);
    wlogprint("%d USB devices, %d enabled, %d disabled, %d zombie\n",
              total, enabled, disabled, zombie);
    wlogprint("[S]ummary of device information\n");
    wlogprint("[E]nable device\n");
    wlogprint("[D]isable device\n");
    wlogprint("[U]nplug to allow hotplug restart\n");
    wlogprint("[R]eset device USB\n");
    wlogprint("[L]ist all known devices\n");
    wlogprint("[B]lacklist current device from current instance of cgminer\n");
    wlogprint("[W]hitelist previously blacklisted device\n");
    wlogprint("[H]otplug interval (0 to disable)\n");
    wlogprint("Select an option or any other key to return\n");
    logwin_update();
    input = getch();

    if (!strncasecmp(&input, "s", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        wlogprint("Device %03u:%03u\n", cgpu->usbinfo.bus_number, cgpu->usbinfo.device_address);
        wlogprint("Name %s\n", cgpu->drv->name);
        wlogprint("ID %d\n", cgpu->device_id);
        wlogprint("Enabled: %s\n", cgpu->deven != DEV_DISABLED ? "Yes" : "No");
        wlogprint("Temperature %.1f\n", cgpu->temp);
        wlogprint("MHS av %.0f\n", cgpu->total_mhashes / cgpu_runtime(cgpu));
        wlogprint("Accepted %d\n", cgpu->accepted);
        wlogprint("Rejected %d\n", cgpu->rejected);
        wlogprint("Hardware Errors %d\n", cgpu->hw_errors);
        wlogprint("Last Share Pool %d\n", cgpu->last_share_pool_time > 0 ? cgpu->last_share_pool : -1);
        wlogprint("Total MH %.1f\n", cgpu->total_mhashes);
        wlogprint("Diff1 Work %"PRId64"\n", cgpu->diff1);
        wlogprint("Difficulty Accepted %.1f\n", cgpu->diff_accepted);
        wlogprint("Difficulty Rejected %.1f\n", cgpu->diff_rejected);
        wlogprint("Last Share Difficulty %.1f\n", cgpu->last_share_diff);
        wlogprint("No Device: %s\n", cgpu->usbinfo.nodev ? "True" : "False");
        wlogprint("Last Valid Work %"PRIu64"\n", (uint64_t)cgpu->last_device_valid_work);
        val = 0;
        if (cgpu->hw_errors + cgpu->diff1)
            val = cgpu->hw_errors / (cgpu->hw_errors + cgpu->diff1);
        wlogprint("Device Hardware %.1f%%\n", val);
        val = 0;
        if (cgpu->diff1)
            val = cgpu->diff_rejected / cgpu->diff1;
        wlogprint("Device Rejected %.1f%%\n", val);
        goto retry;
    }
    else if (!strncasecmp(&input, "e", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        if (cgpu->usbinfo.nodev)
        {
            wlogprint("Device removed, unable to re-enable!\n");
            goto retry;
        }
        thr = get_thread(selected);
        cgpu->deven = DEV_ENABLED;
        mt_enable(thr);
        goto retry;
    }
    else if (!strncasecmp(&input, "d", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        cgpu->deven = DEV_DISABLED;
        goto retry;
    }
    else if (!strncasecmp(&input, "u", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        if (cgpu->usbinfo.nodev)
        {
            wlogprint("Device already removed, unable to unplug!\n");
            goto retry;
        }
        usb_nodev(cgpu);
        goto retry;
    }
    else if (!strncasecmp(&input, "r", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        if (cgpu->usbinfo.nodev)
        {
            wlogprint("Device already removed, unable to reset!\n");
            goto retry;
        }
        usb_reset(cgpu);
        goto retry;
    }
    else if (!strncasecmp(&input, "b", 1))
    {
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        if (cgpu->usbinfo.nodev)
        {
            wlogprint("Device already removed, unable to blacklist!\n");
            goto retry;
        }
        blacklist_cgpu(cgpu);
        goto retry;
    }
    else if (!strncasecmp(&input, "w", 1))
    {
        if (!blacklisted)
        {
            wlogprint("No blacklisted devices!\n");
            goto retry;
        }
        wlogprint("Blacklisted devices:\n");
        for (i = 0; i < mt; i++)
        {
            cgpu = mining_thr[i]->cgpu;
            if (unlikely(!cgpu))
                continue;
            if (cgpu->blacklisted)
            {
                wlogprint("%d: %s %d %03u:%03u\n", i, cgpu->drv->name,
                          cgpu->device_id, cgpu->usbinfo.bus_number,
                          cgpu->usbinfo.device_address);
            }
        }
        selected = curses_int("Select device number");
        if (selected < 0 || selected >= mt)
        {
            wlogprint("Invalid selection\n");
            goto retry;
        }
        cgpu = mining_thr[selected]->cgpu;
        if (!cgpu->blacklisted)
        {
            wlogprint("Device not blacklisted, unable to whitelist\n");
            goto retry;
        }
        whitelist_cgpu(cgpu);
        goto retry;
    }
    else if (!strncasecmp(&input, "h", 1))
    {
        selected = curses_int("Select hotplug interval in seconds (0 to disable)");
        if (selected < 0 || selected > 9999)
        {
            wlogprint("Invalid value\n");
            goto retry;
        }
        hotplug_time = selected;
        goto retry;
    }
    else if (!strncasecmp(&input, "l", 1))
    {
        usb_list();
        goto retry;
    }
    else
        clear_logwin();

    immedok(logwin, false);
    opt_loginput = false;
}
#endif

static void *input_thread(void __maybe_unused *userdata)
{
    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);

    RenameThread("Input");

    if (!curses_active)
        return NULL;

    while (1)
    {
        char input;

        input = getch();
        if (!strncasecmp(&input, "q", 1))
        {
            kill_work();
            return NULL;
        }
        else if (!strncasecmp(&input, "d", 1))
            display_options();
        else if (!strncasecmp(&input, "p", 1))
            display_pools();
        else if (!strncasecmp(&input, "s", 1))
            set_options();
#ifdef USE_USBUTILS
        else if (!strncasecmp(&input, "u", 1))
            set_usb();
#endif
        if (opt_realquiet)
        {
            disable_curses();
            break;
        }
    }

    return NULL;
}
#endif

static void *api_thread(void *userdata)
{
    struct thr_info *mythr = userdata;

    pthread_detach(pthread_self());
    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);

    RenameThread("API");

    set_lowprio();
    api(api_thr_id);

    PTH(mythr) = 0L;

    return NULL;
}

/* Sole work devices are serialised wrt calling get_work so they report in on
 * each pass through their scanhash function as well as in get_work whereas
 * queued work devices work asynchronously so get them to report in and out
 * only across get_work. */
static void thread_reportin(struct thr_info *thr)
{
    thr->getwork = false;
    cgtime(&thr->last);

    thr->cgpu->status           = LIFE_WELL;
    thr->cgpu->device_last_well = time(NULL);
}


/* Tell the watchdog thread this thread is waiting on get work and should not
 * be restarted */
static void thread_reportout(struct thr_info *thr)
{
    thr->getwork = true;
    cgtime(&thr->last);

    thr->cgpu->status           = LIFE_WELL;
    thr->cgpu->device_last_well = time(NULL);
}

static void hashmeter(int thr_id, uint64_t hashes_done)
{
    bool showlog = false;
    double tv_tdiff;
    time_t now_t;
    int diff_t;

    uint64_t local_mhashes_done     = 0;
    uint64_t local_mhashes_done_avg = 0;
    int local_mhashes_done_count    = 0;
    int i = 0;

    struct sysinfo sInfo;
    if (sysinfo(&sInfo))
    {
        applog(LOG_INFO, "Failed to get sysinfo, errno:%u, reason:%s\n",
               errno, strerror(errno));
        total_tv_end_sys=time(NULL);
    }
    else
    {
        total_tv_end_sys=sInfo.uptime;
    }

    cgtime(&total_tv_end);

    tv_tdiff = tdiff(&total_tv_end, &tv_hashmeter);
    now_t    = total_tv_end.tv_sec;
    diff_t   = now_t - hashdisplay_t;

    if (diff_t >= opt_log_interval)
    {
        alt_status ^= switch_status;
        hashdisplay_t = now_t;
        showlog = true;
    }
    else if (thr_id < 0)
    {
        /* hashmeter is called by non-mining threads in case nothing
         * has reported in to allow hashrate to converge to zero , but
         * we only update if it has been more than opt_log_interval */
        return;
    }
    copy_time(&tv_hashmeter, &total_tv_end);

    if (thr_id >= 0)
    {
        struct thr_info *thr = get_thread(thr_id);
        struct cgpu_info *cgpu = thr->cgpu;
        double device_tdiff, thr_mhs;

        /* Update the last time this thread reported in */
        copy_time(&thr->last, &total_tv_end);

        cgpu->device_last_well = now_t;
        device_tdiff           = tdiff(&total_tv_end, &cgpu->last_message_tv);

        copy_time(&cgpu->last_message_tv, &total_tv_end);

        thr_mhs = (double) (hashes_done / device_tdiff / 1000000);

        applog(LOG_DEBUG, "[thread %d: %"PRIu64" hashes, %.1f mhash/sec]", thr_id, hashes_done, thr_mhs);
        hashes_done /= 1000000;

        mutex_lock(&hash_lock);
        cgpu->total_mhashes += hashes_done;

        decay_time(&cgpu->rolling,   (double)(hashes_done / 1), device_tdiff, opt_log_interval);
        decay_time(&cgpu->rolling1,  (double)(hashes_done / 1), device_tdiff, 60.0);
        decay_time(&cgpu->rolling5,  (double)(hashes_done / 1), device_tdiff, 300.0);
        decay_time(&cgpu->rolling15, (double)(hashes_done / 1), device_tdiff, 900.0);
        mutex_unlock(&hash_lock);

        if (want_per_device_stats && showlog)
        {
            char logline[256];

            get_statline(logline, sizeof(logline), cgpu);
            if (!curses_active)
            {
                printf("%s          \r", logline);
                fflush(stdout);
            }
            else
            {
                applog(LOG_INFO, "%s", logline);
            }
        }
    }
    else
    {
        /* No device has reported in, we have been called from the
         * watchdog thread so decay all the hashrates */
        mutex_lock(&hash_lock);

        for (thr_id = 0; thr_id < mining_threads; thr_id++)
        {
            struct thr_info *thr = get_thread(thr_id);
            struct cgpu_info *cgpu = thr->cgpu;
            double device_tdiff  = tdiff(&total_tv_end, &cgpu->last_message_tv);

            copy_time(&cgpu->last_message_tv, &total_tv_end);
            decay_time(&cgpu->rolling,   0, device_tdiff, opt_log_interval);
            decay_time(&cgpu->rolling1,  0, device_tdiff, 60.0);
            decay_time(&cgpu->rolling5,  0, device_tdiff, 300.0);
            decay_time(&cgpu->rolling15, 0, device_tdiff, 900.0);
        }

        mutex_unlock(&hash_lock);
    }

    mutex_lock(&hash_lock);
    total_mhashes_done += hashes_done;

    if(showlog)
    {
        g_local_mhashes_index++;

        if(g_local_mhashes_index >= CG_LOCAL_MHASHES_MAX_NUM)
        {
            g_local_mhashes_index = 0;
        }

        for(i = 0; i < CG_LOCAL_MHASHES_MAX_NUM; i++)
        {
            if(g_local_mhashes_dones[i] >= 0)
            {
                local_mhashes_done_avg += g_local_mhashes_dones[i];
                //applog(LOG_DEBUG, "g_local_mhashes_dones[%d] = %f,%d", i, g_local_mhashes_dones[i],g_local_mhashes_index);
                local_mhashes_done_count++;
            }
        }

        if(local_mhashes_done_count > 0)
        {
            local_mhashes_done = local_mhashes_done_avg / local_mhashes_done_count;
        }
        else
        {
            local_mhashes_done = hashes_done;
        }

        // decay_time(&total_rolling, hashes_done, tv_tdiff, opt_log_interval);
        decay_time(&total_rolling, (double)(local_mhashes_done / 1), opt_log_interval, opt_log_interval);
        decay_time(&rolling1, (double)(hashes_done / 1), tv_tdiff, 60.0);
        decay_time(&rolling5, (double)(hashes_done / 1),tv_tdiff, 300.0);
        decay_time(&rolling15, (double)(hashes_done / 1), tv_tdiff, 900.0);
        global_hashrate = (unsigned long long int) (total_rolling * 1000000ull);

        g_local_mhashes_dones[g_local_mhashes_index] = 0;
    }

    g_local_mhashes_dones[g_local_mhashes_index] += hashes_done;
//    total_secs = tdiff(&total_tv_end, &total_tv_start);
    total_secs = total_tv_end_sys*1.0-total_tv_start_sys*1.0;

    if(total_secs - last_total_secs > 86400)
    {
        applog(LOG_ERR, "cgminer time error total_secs = %d last_total_secs = %d", total_secs, last_total_secs);
        mutex_unlock(&hash_lock);
        zero_stats();
        mutex_lock(&hash_lock);
    }
    else
    {
        last_total_secs = total_secs;
    }

    if (showlog)
    {
        char displayed_hashes[16], displayed_rolling[16];
        char displayed_r1[16], displayed_r5[16], displayed_r15[16];
        uint64_t d64;

        d64 = total_mhashes_done / total_secs * 1000000ull;
        suffix_string(d64, displayed_hashes, sizeof(displayed_hashes), 4);

        d64 = total_rolling * 1000000ull;
        g_displayed_rolling = ((((int)total_rolling)/10)*1.0) / 100.0;  // only keep 2 numbers after dot

        suffix_string(d64, displayed_rolling, sizeof(displayed_rolling), 4);
        d64 = rolling1 * 1000000ull;

        suffix_string(d64, displayed_r1, sizeof(displayed_rolling), 4);
        d64 = rolling5 * 1000000ull;

        suffix_string(d64, displayed_r5, sizeof(displayed_rolling), 4);
        d64 = rolling15 * 1000000ull;

        suffix_string(d64, displayed_r15, sizeof(displayed_rolling), 4);

        snprintf(statusline,
                 sizeof(statusline),
                 "(%ds):%s (1m):%s (5m):%s (15m):%s (avg):%sh/s",
                 opt_log_interval,
                 displayed_rolling,
                 displayed_r1,
                 displayed_r5,
                 displayed_r15,
                 displayed_hashes);
    }

    mutex_unlock(&hash_lock);

#ifdef USE_LIBSYSTEMD
    sd_notifyf(false, "STATUS=%s", statusline);
#endif

    if (showlog)
    {
        if (!curses_active)
        {
            printf("%s          \r", statusline);
            fflush(stdout);
        }
        else
        {
            applog(LOG_INFO, "%s", statusline);
        }
    }
}

static void stratum_share_result(json_t *val, json_t *res_val, json_t *err_val, struct stratum_share *sshare)
{
    struct work *work = sshare->work;
    time_t now_t = time(NULL);
    char hashshow[64];
    int srdiff;

    srdiff = now_t - sshare->sshare_sent;

    if (opt_debug || srdiff > 0)
    {
        applog(LOG_INFO, "Pool %d stratum share result lag time %d seconds", work->pool->pool_no, srdiff);
    }

    show_hash(work, hashshow);
    share_result(val, res_val, err_val, work, hashshow, false, "");
}


/* Parses stratum json responses and tries to find the id that the request
 * matched to and treat it accordingly. */
static bool parse_stratum_response(struct pool *pool, char *s)
{
    json_t *val = NULL, *err_val, *res_val, *id_val;
    struct stratum_share *sshare;
    json_error_t err;
    bool ret = false;
    int id;

    val = JSON_LOADS(s, &err);

    if (!val)
    {
        applog(LOG_INFO,"JSON decode failed(%d): %s", err.line, err.text);
        goto out;
    }

    res_val = json_object_get(val, "result");
    err_val = json_object_get(val, "error");
    id_val  = json_object_get(val, "id");

    if (json_is_null(id_val) || !id_val)
    {
        char *ss;

        if (err_val)
        {
            ss = json_dumps(err_val, JSON_INDENT(3));
        }
        else
        {
            ss = strdup("(unknown reason)");
        }

        applog(LOG_INFO, "JSON-RPC non method decode failed: %s", ss);

        free(ss);

        goto out;
    }

    id = json_integer_value(id_val);

    mutex_lock(&sshare_lock);

    HASH_FIND_INT(stratum_shares, &id, sshare);
    if (sshare)
    {
        HASH_DEL(stratum_shares, sshare);
        pool->sshares--;
    }
    mutex_unlock(&sshare_lock);

    if (!sshare)
    {
        double pool_diff;

        if (!res_val)
        {
            goto out;
        }
        /* Since the share is untracked, we can only guess at what the
         * work difficulty is based on the current pool diff. */
        cg_rlock(&pool->data_lock);
        pool_diff = pool->sdiff;
        cg_runlock(&pool->data_lock);

        if (json_is_true(res_val))
        {
            applog(LOG_NOTICE, "Accepted untracked stratum share from pool %d", pool->pool_no);

            /* We don't know what device this came from so we can't
             * attribute the work to the relevant cgpu */
            mutex_lock(&stats_lock);
            total_accepted++;
            pool->accepted++;
            total_diff_accepted += pool_diff;
            pool->diff_accepted += pool_diff;
            mutex_unlock(&stats_lock);
        }
        else
        {
            applog(LOG_NOTICE, "Rejected untracked stratum share from pool %d", pool->pool_no);

            mutex_lock(&stats_lock);
            total_rejected++;
            pool->rejected++;
            total_diff_rejected += pool_diff;
            pool->diff_rejected += pool_diff;
            mutex_unlock(&stats_lock);
        }

        goto out;
    }

    stratum_share_result(val, res_val, err_val, sshare);
    free_work(sshare->work);
    free(sshare);

    ret = true;

out:

    if (val)
    {
        json_decref(val);
    }

    return ret;
}


void clear_stratum_shares(struct pool *pool)
{
    struct stratum_share *sshare, *tmpshare;
    double diff_cleared = 0;
    int cleared = 0;

    mutex_lock(&sshare_lock);

    HASH_ITER(hh, stratum_shares, sshare, tmpshare)
    {
        if (sshare->work->pool == pool)
        {
            HASH_DEL(stratum_shares, sshare);
            diff_cleared += sshare->work->work_difficulty;
            free_work(sshare->work);
            pool->sshares--;
            free(sshare);
            cleared++;
        }
    }
    mutex_unlock(&sshare_lock);

    if (cleared)
    {
        applog(LOG_WARNING, "Lost %d shares due to stratum disconnect on pool %d", cleared, pool->pool_no);
        pool->stale_shares += cleared;
        total_stale += cleared;
        pool->diff_stale += diff_cleared;
        total_diff_stale += diff_cleared;
    }
}

void clear_pool_work(struct pool *pool)
{
    struct work *work, *tmp;
    int cleared = 0;

    mutex_lock(stgd_lock);
    HASH_ITER(hh, staged_work, work, tmp)
    {
        if (work->pool == pool)
        {
            HASH_DEL(staged_work, work);
            free_work(work);
            cleared++;
        }
    }
    mutex_unlock(stgd_lock);

    if (cleared)
        applog(LOG_INFO, "Cleared %d work items due to stratum disconnect on pool %d", cleared, pool->pool_no);
}

static int cp_prio(void)
{
    int prio;

    cg_rlock(&control_lock);
    prio = currentpool->prio;
    cg_runlock(&control_lock);

    return prio;
}

/* We only need to maintain a secondary pool connection when we need the
 * capacity to get work from the backup pools while still on the primary */
static bool cnx_needed(struct pool *pool)
{
    struct pool *cp;

    if (pool->enabled != POOL_ENABLED)
        return false;

    /* Balance strategies need all pools online */
    if (pool_strategy == POOL_BALANCE)
        return true;
    if (pool_strategy == POOL_LOADBALANCE)
        return true;

    /* Idle stratum pool needs something to kick it alive again */
    if (pool->has_stratum && pool->idle)
        return true;

    /* Getwork pools without opt_fail_only need backup pools up to be able
     * to leak shares */
    cp = current_pool();
    if (cp == pool)
        return true;
    if (!pool_localgen(cp) && (!opt_fail_only || !cp->hdr_path))
        return true;
    /* If we're waiting for a response from shares submitted, keep the
     * connection open. */
    if (pool->sshares)
        return true;
    /* If the pool has only just come to life and is higher priority than
     * the current pool keep the connection open so we can fail back to
     * it. */
    if (pool_strategy == POOL_FAILOVER && pool->prio < cp_prio())
        return true;
    /* We've run out of work, bring anything back to life. */
    if (no_work)
        return true;
    return false;
}

static void wait_lpcurrent(struct pool *pool);
static void pool_resus(struct pool *pool);
static void gen_stratum_work(struct pool *pool, struct work *work);

void stratum_resumed(struct pool *pool)
{
    if (pool_tclear(pool, &pool->idle))
    {
        applog(LOG_INFO, "Stratum connection to pool %d resumed", pool->pool_no);
        pool_resus(pool);
    }
}

static bool supports_resume(struct pool *pool)
{
    bool ret;

    cg_rlock(&pool->data_lock);
    ret = (pool->sessionid != NULL);
    cg_runlock(&pool->data_lock);

    return ret;
}

/* One stratum receive thread per pool that has stratum waits on the socket
 * checking for new messages and for the integrity of the socket connection. We
 * reset the connection based on the integrity of the receive side only as the
 * send side will eventually expire data it fails to send. */
static void *stratum_rthread(void *userdata)
{
    struct pool *pool = (struct pool *)userdata;
    char threadname[16];

    pthread_detach(pthread_self());

    snprintf(threadname, sizeof(threadname), "%d/RStratum", pool->pool_no);
    RenameThread(threadname);

    while (42)
    {
        struct timeval timeout;
        int sel_ret;
        fd_set rd;
        char *s;

        if (unlikely(pool->removed))
        {
            suspend_stratum(pool);
            break;
        }

        /* Check to see whether we need to maintain this connection
         * indefinitely or just bring it up when we switch to this
         * pool */
        if (!sock_full(pool) && !cnx_needed(pool))
        {
            suspend_stratum(pool);
            clear_stratum_shares(pool);
            clear_pool_work(pool);

            wait_lpcurrent(pool);
            while (!restart_stratum(pool))
            {
                pool_died(pool);
                if (pool->removed)
                    goto out;
                cgsleep_ms(5000);
            }
        }

        FD_ZERO(&rd);
        FD_SET(pool->sock, &rd);
        timeout.tv_sec = 90;
        timeout.tv_usec = 0;

        /* The protocol specifies that notify messages should be sent
         * every minute so if we fail to receive any for 90 seconds we
         * assume the connection has been dropped and treat this pool
         * as dead */
        if (!sock_full(pool) && (sel_ret = select(pool->sock + 1, &rd, NULL, NULL, &timeout)) < 1)
        {
            applog(LOG_DEBUG, "Stratum select failed on pool %d with value %d", pool->pool_no, sel_ret);
            s = NULL;
        }
        else
            s = recv_line(pool);
        if (!s)
        {
            applog(LOG_NOTICE, "Stratum connection to pool %d interrupted", pool->pool_no);
            pool->getfail_occasions++;
            total_go++;

            /* If the socket to our stratum pool disconnects, all
             * tracked submitted shares are lost and we will leak
             * the memory if we don't discard their records. */
            if (!supports_resume(pool) || opt_lowmem)
                clear_stratum_shares(pool);
            clear_pool_work(pool);
            if (pool == current_pool())
                restart_threads();

            while (!restart_stratum(pool))
            {
                pool_died(pool);
                if (pool->removed)
                    goto out;
                cgsleep_ms(5000);
            }
            continue;
        }

        /* Check this pool hasn't died while being a backup pool and
         * has not had its idle flag cleared */
        stratum_resumed(pool);

        if (!parse_method(pool, s) && !parse_stratum_response(pool, s))
        {
            applog(LOG_INFO, "Unknown stratum msg: %s", s);
        }
        else if (pool->swork.clean)
        {
            struct work *work = make_work(); // else if (pool->swork.clean)

            /* Generate a single work item to update the current
             * block database */
            pool->swork.clean = false;
            gen_stratum_work(pool, work);
            work->longpoll    = true;
            /* Return value doesn't matter. We're just informing
             * that we may need to restart. */
            test_work_current(work);
            free_work(work);
        }
        free(s);
    }

out:
    return NULL;
}


/* Each pool has one stratum send thread for sending shares to avoid many
 * threads being created for submission since all sends need to be serialised
 * anyway. */
static void *stratum_sthread(void *userdata)
{
    struct pool *pool = (struct pool *)userdata;
    uint64_t last_nonce2 = 0;
    uint32_t last_nonce = 0;
    char threadname[16];

    pthread_detach(pthread_self());

    snprintf(threadname, sizeof(threadname), "%d/SStratum", pool->pool_no);
    RenameThread(threadname);

    pool->stratum_q = tq_new();

    if (!pool->stratum_q)
    {
        quit(1, "Failed to create stratum_q in stratum_sthread");
    }

    while (42)
    {
        char noncehex[12], nonce2hex[20], s[1024];
        struct stratum_share *sshare;
        uint32_t * hash32, nonce;
        unsigned char nonce2[8];
        uint64_t *nonce2_64;
        struct work *work;
        bool submitted;

        if (unlikely(pool->removed))
        {
            break;
        }

        work = tq_pop(pool->stratum_q, NULL);
        if (unlikely(!work))
            quit(1, "Stratum q returned empty work");

        if (unlikely(work->nonce2_len > 8))
        {
            applog(LOG_ERR, "Pool %d asking for inappropriately long nonce2 length %d", pool->pool_no, (size_t) work->nonce2_len);
            applog(LOG_ERR, "Not attempting to submit shares");
            free_work(work);
            continue;
        }

        nonce = *((uint32_t *)(work->data + 76));
        nonce2_64 = (uint64_t *)nonce2;
        *nonce2_64 = htole64(work->nonce2);

        /* Filter out duplicate shares */
        if (unlikely(nonce == last_nonce && *nonce2_64 == last_nonce2))
        {
            applog(LOG_INFO, "Filtering duplicate share to pool %d", pool->pool_no);
            free_work(work);
            continue;
        }

        last_nonce = nonce;
        last_nonce2 = *nonce2_64;
        __bin2hex(noncehex, (const unsigned char *)&nonce, (size_t) 4);
        __bin2hex(nonce2hex, nonce2, work->nonce2_len);

        sshare = cgcalloc(sizeof(struct stratum_share), (size_t) 1);
        hash32 = (uint32_t *)work->hash;
        submitted = false;

        sshare->sshare_time = time(NULL);
        /* This work item is freed in parse_stratum_response */
        sshare->work = work;
        memset(s, 0, 1024);

        mutex_lock(&sshare_lock);
        /* Give the stratum share a unique id */
        sshare->id = swork_id++;
        mutex_unlock(&sshare_lock);

        if(pool->support_vil)
        {
            snprintf(s, sizeof(s),
                     "{\"params\": [\"%s\", \"%s\", \"%s\", \"%s\", \"%s\", \"%08x\"], \"id\": %d, \"method\": \"mining.submit\"}",
                     pool->rpc_user,
                     work->job_id,
                     nonce2hex,
                     work->ntime,
                     noncehex,
                     swab32(work->version),
                     sshare->id);
        }
        else
        {
            snprintf(s, sizeof(s),
                     "{\"params\": [\"%s\", \"%s\", \"%s\", \"%s\", \"%s\"], \"id\": %d, \"method\": \"mining.submit\"}",
                     pool->rpc_user,
                     work->job_id,
                     nonce2hex,
                     work->ntime,
                     noncehex,
                     sshare->id);
        }
        applog(LOG_INFO, "Submitting share %08lx to pool %d", (long unsigned int)htole32(hash32[6]), pool->pool_no);

        /* Try resubmitting for up to 2 minutes if we fail to submit
         * once and the stratum pool nonce1 still matches suggesting
         * we may be able to resume. */
        while (time(NULL) < sshare->sshare_time + 120)
        {
            bool sessionid_match;

            if (likely(stratum_send(pool, s, strlen(s))))
            {
                mutex_lock(&sshare_lock);
                HASH_ADD_INT(stratum_shares, id, sshare);
                pool->sshares++;
                mutex_unlock(&sshare_lock);

                if (pool_tclear(pool, &pool->submit_fail))
                    applog(LOG_WARNING, "Pool %d communication resumed, submitting work", pool->pool_no);
                applog(LOG_DEBUG, "Successfully submitted, adding to stratum_shares db");
                submitted = true;
                break;
            }

            if (!pool_tset(pool, &pool->submit_fail) && cnx_needed(pool))
            {
                applog(LOG_WARNING, "Pool %d stratum share submission failure", pool->pool_no);
                total_ro++;
                pool->remotefail_occasions++;
            }

            if (opt_lowmem)
            {
                applog(LOG_DEBUG, "Lowmem option prevents resubmitting stratum share");
                break;
            }

            cg_rlock(&pool->data_lock);
            sessionid_match = (pool->nonce1 && !strcmp(work->nonce1, pool->nonce1));
            cg_runlock(&pool->data_lock);

            if (!sessionid_match)
            {
                applog(LOG_DEBUG, "No matching session id for resubmitting stratum share");
                break;
            }

            /* Retry every 2 seconds */
            sleep(2);
        }

        if (unlikely(!submitted))
        {
            applog(LOG_DEBUG, "Failed to submit stratum share, discarding");
            free_work(work);
            free(sshare);
            pool->stale_shares++;
            total_stale++;
        }
        else
        {
            int ssdiff;

            sshare->sshare_sent = time(NULL);
            ssdiff = sshare->sshare_sent - sshare->sshare_time;
            if (opt_debug || ssdiff > 0)
            {
                applog(LOG_INFO, "Pool %d stratum share submission lag time %d seconds", pool->pool_no, ssdiff);
            }
        }
    }

    /* Freeze the work queue but don't free up its memory in case there is
     * work still trying to be submitted to the removed pool. */
    tq_freeze(pool->stratum_q);

    return NULL;
}


static void init_stratum_threads(struct pool *pool)
{
    have_longpoll = true;

    if (unlikely(pthread_create(&pool->stratum_sthread, NULL, stratum_sthread, (void *)pool)))
        quit(1, "Failed to create stratum sthread");
    if (unlikely(pthread_create(&pool->stratum_rthread, NULL, stratum_rthread, (void *)pool)))
        quit(1, "Failed to create stratum rthread");
}

static void *longpoll_thread(void *userdata);


static bool stratum_works(struct pool *pool)
{
    applog(LOG_INFO, "Testing pool %d stratum %s", pool->pool_no, pool->stratum_url);
    if (!extract_sockaddr(pool->stratum_url, &pool->sockaddr_url, &pool->stratum_port))
        return false;

    if (!initiate_stratum(pool))
        return false;

    return true;
}


#ifdef HAVE_LIBCURL
static void __setup_gbt_solo(struct pool *pool)
{
    cg_wlock(&pool->gbt_lock);
    cg_memcpy(pool->coinbase, scriptsig_header_bin, 41);
    pool->coinbase[41 + pool->n1_len + 4 + 1 + 8] = 25;
    cg_memcpy(pool->coinbase + 41 + pool->n1_len + 4 + 1 + 8 + 1, pool->script_pubkey, 25);
    cg_wunlock(&pool->gbt_lock);
}

static bool setup_gbt_solo(CURL *curl, struct pool *pool)
{
    char s[256];
    int uninitialised_var(rolltime);
    bool ret = false;
    json_t *val = NULL, *res_val, *valid_val;

    if (!opt_btc_address)
    {
        applog(LOG_ERR, "No BTC address specified, unable to mine solo on %s",
               pool->rpc_url);
        goto out;
    }
    snprintf(s, 256, "{\"id\": 1, \"method\": \"validateaddress\", \"params\": [\"%s\"]}\n", opt_btc_address);
    val = json_rpc_call(curl, pool->rpc_url, pool->rpc_userpass, s, true,
                        false, &rolltime, pool, false);
    if (!val)
        goto out;
    res_val = json_object_get(val, "result");
    if (!res_val)
        goto out;
    valid_val = json_object_get(res_val, "isvalid");
    if (!valid_val)
        goto out;
    if (!json_is_true(valid_val))
    {
        applog(LOG_ERR, "Bitcoin address %s is NOT valid", opt_btc_address);
        goto out;
    }
    applog(LOG_NOTICE, "Solo mining to valid address: %s", opt_btc_address);
    ret = true;
    address_to_pubkeyhash(pool->script_pubkey, opt_btc_address);
    hex2bin(scriptsig_header_bin, scriptsig_header, 41);
    __setup_gbt_solo(pool);

    if (opt_debug)
    {
        char *cb = bin2hex(pool->coinbase, pool->coinbase_len);

        applog(LOG_DEBUG, "Pool %d coinbase %s", pool->pool_no, cb);
        free(cb);
    }
    pool->gbt_curl = curl_easy_init();
    if (unlikely(!pool->gbt_curl))
        quit(1, "GBT CURL initialisation failed");

out:
    if (val)
        json_decref(val);
    return ret;
}
#else
static bool setup_gbt_solo(CURL __maybe_unused *curl, struct pool __maybe_unused *pool)
{
    return false;
}
#endif

static void pool_start_lp(struct pool *pool)
{
    if (!pool->lp_started)
    {
        pool->lp_started = true;
        if (unlikely(pthread_create(&pool->longpoll_thread, NULL, longpoll_thread, (void *)pool)))
        {
            quit(1, "Failed to create pool longpoll thread");
        }
    }
}

static bool pool_active(struct pool *pool, bool pinging)
{
    struct timeval tv_getwork, tv_getwork_reply;
    json_t *val = NULL;
    bool ret = false;
    CURL *curl;
    int uninitialised_var(rolltime);

    if (pool->has_gbt)
    {
        applog(LOG_DEBUG, "Retrieving block template from pool %s", pool->rpc_url);
    }
    else
    {
        applog(LOG_INFO, "Testing pool %s", pool->rpc_url);
    }

    /* This is the central point we activate stratum when we can */
retry_stratum:

    if (pool->has_stratum)
    {
        /* We create the stratum thread for each pool just after
         * successful authorisation. Once the init flag has been set
         * we never unset it and the stratum thread is responsible for
         * setting/unsetting the active flag */
        bool init = pool_tset(pool, &pool->stratum_init);

        if (!init)
        {
            bool ret = initiate_stratum(pool) && (!pool->extranonce_subscribe || subscribe_extranonce(pool)) && auth_stratum(pool);

            if (ret)
            {
                init_stratum_threads(pool);
            }
            else
            {
                pool_tclear(pool, &pool->stratum_init);
            }
            return ret;
        }
        return pool->stratum_active;
    }

    curl = curl_easy_init();

    if (unlikely(!curl))
    {
        applog(LOG_ERR, "CURL initialisation failed");
        return false;
    }

    /* Probe for GBT support on first pass */
    if (!pool->probed)
    {
        applog(LOG_DEBUG, "Probing for GBT support");

        val = json_rpc_call(curl, pool->rpc_url, pool->rpc_userpass, gbt_req, true, false, &rolltime, pool, false);

        if (val)
        {
            bool append = false, submit = false, transactions = false;
            json_t *res_val, *mutables;
            int i, mutsize = 0;

            res_val = json_object_get(val, "result");

            if (res_val)
            {
                mutables = json_object_get(res_val, "mutable");
                mutsize = json_array_size(mutables);
            }

            for (i = 0; i < mutsize; i++)
            {
                json_t *arrval = json_array_get(mutables, i);

                if (json_is_string(arrval))
                {
                    const char *mutable = json_string_value(arrval);

                    if (!strncasecmp(mutable, "coinbase/append", 15))
                        append = true;
                    else if (!strncasecmp(mutable, "submit/coinbase", 15))
                        submit = true;
                    else if (!strncasecmp(mutable, "transactions", 12))
                        transactions = true;
                }
            }

            json_decref(val);

            /* Only use GBT if it supports coinbase append and
             * submit coinbase */
            if (append && submit)
            {
                pool->has_gbt = true;
                pool->rpc_req = gbt_req;
            }
            else if (transactions)
            {
                pool->gbt_solo = true;
                pool->rpc_req = gbt_solo_req;
            }
        }
        /* Reset this so we can probe fully just after this. It will be
         * set to true that time.*/
        pool->probed = false;

        if (pool->has_gbt)
        {
            applog(LOG_DEBUG, "GBT coinbase + append support found, switching to GBT protocol");
        }
        else if (pool->gbt_solo)
        {
            applog(LOG_DEBUG, "GBT coinbase without append found, switching to GBT solo protocol");
        }
        else
        {
            applog(LOG_DEBUG, "No GBT coinbase + append support found, pool unusable if it has no stratum");
        }
    }

    cgtime(&tv_getwork);
    val = json_rpc_call(curl, pool->rpc_url, pool->rpc_userpass, pool->rpc_req, true, false, &rolltime, pool, false);
    cgtime(&tv_getwork_reply);

    /* Detect if a http pool has an X-Stratum header at startup,
     * and if so, switch to that in preference to gbt if it works */
    if (pool->stratum_url && !opt_fix_protocol && stratum_works(pool))
    {
        applog(LOG_NOTICE, "Switching pool %d %s to %s", pool->pool_no, pool->rpc_url, pool->stratum_url);

        if (!pool->rpc_url)
        {
            pool->rpc_url = strdup(pool->stratum_url);
        }

        pool->has_stratum = true;
        curl_easy_cleanup(curl);

        goto retry_stratum;
    }

    if (!pool->has_stratum && !pool->gbt_solo && !pool->has_gbt)
    {
        applog(LOG_WARNING, "No Stratum, GBT or Solo support in pool %d %s unable to use", pool->pool_no, pool->rpc_url);
        return false;
    }

    if (val)
    {
        struct work *work = make_work();
        bool rc;

        rc = work_decode(pool, work, val);

        if (rc)
        {
            applog(LOG_DEBUG, "Successfully retrieved and deciphered work from pool %u %s",
                   pool->pool_no, pool->rpc_url);

            if (pool->gbt_solo)
            {
                ret = setup_gbt_solo(curl, pool);
                if (ret)
                    pool_start_lp(pool);
                free_work(work);
                goto out;
            }

            work->pool     = pool;
            work->rolltime = rolltime;

            copy_time(&work->tv_getwork, &tv_getwork);
            copy_time(&work->tv_getwork_reply, &tv_getwork_reply);
            work->getwork_mode = GETWORK_MODE_TESTPOOL;
            calc_diff(work, 0);
            applog(LOG_DEBUG, "Pushing pooltest work to base pool");

            stage_work(work);
            total_getworks++;
            pool->getwork_requested++;
            ret = true;
        }
        else
        {
            applog(LOG_DEBUG, "Successfully retrieved but FAILED to decipher work from pool %u %s", pool->pool_no, pool->rpc_url);
            free_work(work);
        }

        if (pool->lp_url)
        {
            goto out;
        }

        /* Decipher the longpoll URL, if any, and store it in ->lp_url */
        if (pool->hdr_path)
        {
            char *copy_start, *hdr_path;
            bool need_slash = false;
            size_t siz;

            hdr_path = pool->hdr_path;

            if (strstr(hdr_path, "://"))
            {
                pool->lp_url = hdr_path;
                hdr_path = NULL;
            }
            else
            {
                /* absolute path, on current server */
                copy_start = (*hdr_path == '/') ? (hdr_path + 1) : hdr_path;

                if (pool->rpc_url[strlen(pool->rpc_url) - 1] != '/')
                {
                    need_slash = true;
                }

                siz = strlen(pool->rpc_url) + strlen(copy_start) + 2;
                pool->lp_url = cgmalloc(siz);
                snprintf(pool->lp_url, siz, "%s%s%s", pool->rpc_url, need_slash ? "/" : "", copy_start);
            }
        }
        else
        {
            pool->lp_url = NULL;
        }

        pool_start_lp(pool);
    }
    else
    {
        applog(LOG_DEBUG, "FAILED to retrieve work from pool %u %s", pool->pool_no, pool->rpc_url);

        if (!pinging && !pool->idle)
        {
            applog(LOG_WARNING, "Pool %u slow/down or URL or credentials invalid", pool->pool_no);
        }
    }
out:

    if (val)
    {
        json_decref(val);
    }

    curl_easy_cleanup(curl);
    return ret;
}


static void pool_resus(struct pool *pool)
{
    pool->seq_getfails = 0;
    if (pool_strategy == POOL_FAILOVER && pool->prio < cp_prio())
    {
        applog(LOG_WARNING, "Pool %d %s alive, testing stability", pool->pool_no, pool->rpc_url);
    }
    else
    {
        applog(LOG_INFO, "Pool %d %s alive", pool->pool_no, pool->rpc_url);
    }
}


/* If this is called non_blocking, it will return NULL for work so that must
 * be handled. */
static struct work *hash_pop(bool blocking)
{
    struct work *work = NULL, *tmp;
    int hc;

    mutex_lock(stgd_lock);

    if (!HASH_COUNT(staged_work))
    {
        work_emptied = true;

        if (!blocking)
        {
            goto out_unlock;
        }
        do
        {
            struct timespec then;
            struct timeval now;
            int rc;

            cgtime(&now);
            then.tv_sec = now.tv_sec + 10;
            then.tv_nsec = now.tv_usec * 1000;
            pthread_cond_signal(&gws_cond);
            rc = pthread_cond_timedwait(&getq->cond, stgd_lock, &then);
            /* Check again for !no_work as multiple threads may be
                * waiting on this condition and another may set the
                * bool separately. */
            if (rc && !no_work)
            {
                no_work = true;
                applog(LOG_WARNING, "Waiting for work to be available from pools.");
            }
        }
        while (!HASH_COUNT(staged_work));
    }

    if (no_work)
    {
        applog(LOG_WARNING, "Work available from pools, resuming.");
        no_work = false;
    }

    hc = HASH_COUNT(staged_work);

    /* Find clone work if possible, to allow masters to be reused */
    if (hc > staged_rollable)
    {
        HASH_ITER(hh, staged_work, work, tmp)
        {
            if (!work_rollable(work))
                break;
        }
    }
    else
    {
        work = staged_work;
    }

    HASH_DEL(staged_work, work);

    if (work_rollable(work))
    {
        staged_rollable--;
    }

    /* Signal the getwork scheduler to look for more work */
    pthread_cond_signal(&gws_cond);

    /* Signal hash_pop again in case there are mutliple hash_pop waiters */
    pthread_cond_signal(&getq->cond);

    /* Keep track of last getwork grabbed */
    last_getwork = time(NULL);

out_unlock:
    mutex_unlock(stgd_lock);
    return work;

}

static void gen_hash(unsigned char *data, unsigned char *hash, int len)
{
    unsigned char hash1[32];

    sha256(data, (unsigned int) len, hash1);
    sha256(hash1, 32, hash);
}


void set_target(unsigned char *dest_target, double diff)
{
    unsigned char target[32];
    uint64_t *data64, h64;
    double d64, dcut64;

    if (unlikely(diff == 0.0))
    {
        /* This shouldn't happen but best we check to prevent a crash */
        applog(LOG_ERR, "Diff zero passed to set_target");
        diff = 1.0;
    }

    d64      = truediffone;
    d64     /= diff;
    dcut64   = d64 / bits192;
    h64      = dcut64;
    data64   = (uint64_t *)(target + 24);
    *data64  = htole64(h64);
    dcut64   = h64;
    dcut64  *= bits192;
    d64     -= dcut64;
    dcut64   = d64 / bits128;
    h64      = dcut64;
    data64   = (uint64_t *)(target + 16);
    *data64  = htole64(h64);
    dcut64   = h64;
    dcut64  *= bits128;
    d64     -= dcut64;
    dcut64   = d64 / bits64;
    h64      = dcut64;
    data64   = (uint64_t *)(target + 8);
    *data64  = htole64(h64);
    dcut64   = h64;
    dcut64  *= bits64;
    d64     -= dcut64;
    h64      = d64;
    data64   = (uint64_t *)(target);
    *data64  = htole64(h64);

    if (opt_debug)
    {
        char *htarget = bin2hex(target, (size_t)32);

        applog(LOG_DEBUG, "Generated target %s", htarget);
        free(htarget);
    }

    cg_memcpy(dest_target, target, 32);
}


//#ifdef USE_BITMAIN_C5
void get_work_by_nonce2(struct thr_info *thr,
                        struct work **work,
                        struct pool *pool,
                        struct pool *real_pool,
                        uint64_t nonce2,
                        uint32_t ntime,
                        uint32_t version)
{
    *work = make_work();
    const int thr_id = thr->id;
    struct cgpu_info *cgpu = thr->cgpu;
    struct device_drv *drv = cgpu->drv;
    cg_wlock(&pool->data_lock);
    pool->nonce2 = nonce2;
    //if(pool->support_vil) // comment as default
    version = Swap32(version);
    cg_memcpy(pool->header_bin, &version, 4);
    cg_wunlock(&pool->data_lock);

    gen_stratum_work(pool, *work);

    (*work)->pool = real_pool;

    (*work)->thr_id = thr_id;
    (*work)->work_block = work_block;
    (*work)->pool->works++;

    (*work)->mined = true;
    (*work)->version = version;
}

// #endif

/* Generates stratum based work based on the most recent notify information
 * from the pool. This will keep generating work while a pool is down so we use
 * other means to detect when the pool has died in stratum_thread */
static void gen_stratum_work(struct pool *pool, struct work *work)
{
    unsigned char merkle_root[32], merkle_sha[64];
    uint32_t *data32, *swap32;
    uint64_t nonce2le;
    int i;

    cg_wlock(&pool->data_lock);

    /* Update coinbase. Always use an LE encoded nonce2 to fill in values
     * from left to right and prevent overflow errors with small n2sizes */
    nonce2le = htole64(pool->nonce2);
    cg_memcpy(pool->coinbase + pool->nonce2_offset, &nonce2le, (unsigned int)pool->n2size);

    work->nonce2     = pool->nonce2++;
    work->nonce2_len = pool->n2size;

    /* Downgrade to a read lock to read off the pool variables */
    cg_dwlock(&pool->data_lock);

    /* Generate merkle root */
    gen_hash(pool->coinbase, merkle_root, pool->coinbase_len);
    cg_memcpy(merkle_sha, merkle_root, 32);

    for (i = 0; i < pool->merkles; i++)
    {
        cg_memcpy(merkle_sha + 32, pool->swork.merkle_bin[i], 32);
        gen_hash(merkle_sha, merkle_root, 64);
        cg_memcpy(merkle_sha, merkle_root, 32);
    }

    data32 = (uint32_t *)merkle_sha;
    swap32 = (uint32_t *)merkle_root;

    flip32(swap32, data32);

    /* Copy the data template from header_bin */
    cg_memcpy(work->data, pool->header_bin, 112);
    cg_memcpy(work->data + 36, merkle_root, 32);

    /* Store the stratum work diff to check it still matches the pool's
     * stratum diff when submitting shares */
    work->sdiff = pool->sdiff;

    /* Copy parameters required for share submission */
    work->job_id = strdup(pool->swork.job_id);
    work->nonce1 = strdup(pool->nonce1);
    work->ntime  = strdup(pool->ntime);

    cg_runlock(&pool->data_lock);

    if (opt_debug)
    {
        char *header, *merkle_hash;

        header = bin2hex(work->data, (size_t)112);
        merkle_hash = bin2hex((const unsigned char *)merkle_root, (size_t)32);

        applog(LOG_DEBUG, "Generated stratum merkle %s", merkle_hash);
        applog(LOG_DEBUG, "Generated stratum header %s", header);
        applog(LOG_DEBUG, "Work job_id %s nonce2 %"PRIu64" ntime %s", work->job_id, work->nonce2, work->ntime);

        free(header);
        free(merkle_hash);
    }

    calc_midstate(work);

    set_target(work->target, work->sdiff);

    local_work++;

    if((time(NULL) - local_work_lasttime) > 5)
    {
        int diff = local_work - local_work_last;
        //applog(LOG_DEBUG, "local_work 5s gen work count:%d", diff/(time(NULL) - local_work_lasttime));
        local_work_lasttime = time(NULL);
        local_work_last = local_work;
    }

    work->pool          = pool;
    work->stratum       = true;
    work->nonce         = 0;
    work->longpoll      = false;
    work->getwork_mode  = GETWORK_MODE_STRATUM;
    work->work_block    = work_block;

    work->drv_rolllimit = 60;
    /* Nominally allow a driver to ntime roll 60 seconds */

    calc_diff(work, work->sdiff);

    cgtime(&work->tv_staged);
}

#ifdef HAVE_LIBCURL
static void gen_solo_work(struct pool *pool, struct work *work);

/* Use the one instance of gbt_curl, protecting the bool with the gbt_lock but
 * avoiding holding the lock once we've set the bool. */
static void get_gbt_curl(struct pool *pool, int poll)
{
    cg_ilock(&pool->gbt_lock);
    while (pool->gbt_curl_inuse)
    {
        cg_uilock(&pool->gbt_lock);
        cgsleep_ms(poll);
        cg_ilock(&pool->gbt_lock);
    }
    cg_ulock(&pool->gbt_lock);
    pool->gbt_curl_inuse = true;
    cg_wunlock(&pool->gbt_lock);
}

/* No need for locking here */
static inline void release_gbt_curl(struct pool *pool)
{
    pool->gbt_curl_inuse = false;
}

static void update_gbt_solo(struct pool *pool)
{
    struct work *work = make_work();
    int rolltime;
    json_t *val;

    get_gbt_curl(pool, 10);
retry:
    /* Bitcoind doesn't like many open RPC connections. */
    curl_easy_setopt(pool->gbt_curl, CURLOPT_FORBID_REUSE, 1);
    val = json_rpc_call(pool->gbt_curl, pool->rpc_url, pool->rpc_userpass, pool->rpc_req,
                        true, false, &rolltime, pool, false);

    if (likely(val))
    {
        bool rc = work_decode(pool, work, val);

        if (rc)
        {
            __setup_gbt_solo(pool);
            gen_solo_work(pool, work);
            stage_work(work);
        }
        else
            free_work(work);
        json_decref(val);
    }
    else
    {
        applog(LOG_DEBUG, "Pool %d json_rpc_call failed on get gbt, retrying in 5s",
               pool->pool_no);
        if (++pool->seq_getfails > 5)
        {
            pool_died(pool);
            goto out;
        }
        cgsleep_ms(5000);
        goto retry;
    }
out:
    release_gbt_curl(pool);
}

static void gen_solo_work(struct pool *pool, struct work *work)
{
    unsigned char merkle_root[32], merkle_sha[64];
    uint32_t *data32, *swap32;
    struct timeval now;
    uint64_t nonce2le;
    int i;

    cgtime(&now);
    if (now.tv_sec - pool->tv_lastwork.tv_sec > 60)
        update_gbt_solo(pool);

    cg_wlock(&pool->gbt_lock);

    /* Update coinbase. Always use an LE encoded nonce2 to fill in values
     * from left to right and prevent overflow errors with small n2sizes */
    nonce2le = htole64(pool->nonce2);
    cg_memcpy(pool->coinbase + pool->nonce2_offset, &nonce2le, pool->n2size);
    work->nonce2 = pool->nonce2++;
    work->nonce2_len = pool->n2size;
    work->gbt_txns = pool->transactions + 1;

    /* Downgrade to a read lock to read off the pool variables */
    cg_dwlock(&pool->gbt_lock);
    work->coinbase = bin2hex(pool->coinbase, pool->coinbase_len);
    /* Generate merkle root */
    gen_hash(pool->coinbase, merkle_root, pool->coinbase_len);
    cg_memcpy(merkle_sha, merkle_root, 32);
    for (i = 0; i < pool->merkles; i++)
    {
        unsigned char *merkle_bin;

        merkle_bin = pool->merklebin + (i * 32);
        cg_memcpy(merkle_sha + 32, merkle_bin, 32);
        gen_hash(merkle_sha, merkle_root, 64);
        cg_memcpy(merkle_sha, merkle_root, 32);
    }
    data32 = (uint32_t *)merkle_sha;
    swap32 = (uint32_t *)merkle_root;
    flip32(swap32, data32);

    /* Copy the data template from header_bin */
    cg_memcpy(work->data, pool->header_bin, 112);
    cg_memcpy(work->data + 36, merkle_root, 32);

    work->sdiff = pool->sdiff;

    /* Copy parameters required for share submission */
    work->ntime = strdup(pool->ntime);
    cg_memcpy(work->target, pool->gbt_target, 32);
    cg_runlock(&pool->gbt_lock);

    if (opt_debug)
    {
        char *header, *merkle_hash;

        header = bin2hex(work->data, 112);
        merkle_hash = bin2hex((const unsigned char *)merkle_root, 32);
        applog(LOG_DEBUG, "Generated GBT solo merkle %s", merkle_hash);
        applog(LOG_DEBUG, "Generated GBT solo header %s", header);
        applog(LOG_DEBUG, "Work nonce2 %"PRIu64" ntime %s", work->nonce2,
               work->ntime);
        free(header);
        free(merkle_hash);
    }

    calc_midstate(work);

    local_work++;
    work->gbt = true;
    work->pool = pool;
    work->nonce = 0;
    work->longpoll = false;
    work->getwork_mode = GETWORK_MODE_SOLO;
    work->work_block = work_block;
    /* Nominally allow a driver to ntime roll 60 seconds */
    work->drv_rolllimit = 60;
    calc_diff(work, work->sdiff);

    cgtime(&work->tv_staged);
}
#endif

/* The time difference in seconds between when this device last got work via
 * get_work() and generated a valid share. */
int share_work_tdiff(struct cgpu_info *cgpu)
{
    return last_getwork - cgpu->last_device_valid_work;
}

static void set_benchmark_work(struct cgpu_info *cgpu, struct work *work)
{
    cgpu->lodiff += cgpu->direction;
    if (cgpu->lodiff < 1)
    {
        cgpu->direction = 1;
    }

    if (cgpu->lodiff > 15)
    {
        cgpu->direction = -1;

        if (++cgpu->hidiff > 15)
        {
            cgpu->hidiff = 0;
        }

        cg_memcpy(work, &bench_hidiff_bins[cgpu->hidiff][0], 160);
    }
    else
    {
        cg_memcpy(work, &bench_lodiff_bins[cgpu->lodiff][0], 160);
    }
}

struct work *get_work(struct thr_info *thr, const int thr_id)
{
    struct cgpu_info *cgpu = thr->cgpu;
    struct work *work = NULL;
    time_t diff_t;

    thread_reportout(thr);
    applog(LOG_DEBUG, "Popping work from get queue to get work");
    diff_t = time(NULL);

    while (!work)
    {
        work = hash_pop(true);
        if (stale_work(work, false))
        {
            discard_work(work);  // get work
            wake_gws();
        }
    }

    diff_t = time(NULL) - diff_t;
    /* Since this is a blocking function, we need to add grace time to
     * the device's last valid work to not make outages appear to be
     * device failures. */
    if (diff_t > 0)
    {
        applog(LOG_DEBUG, "Get work blocked for %d seconds", (time_t)diff_t);
        cgpu->last_device_valid_work += diff_t;
    }

    applog(LOG_DEBUG, "Got work from get queue to get work for thread %d", thr_id);

    work->thr_id = thr_id;

    if (opt_benchmark)
    {
        set_benchmark_work(cgpu, work);
    }

    thread_reportin(thr);
    work->mined = true;
    work->device_diff = MIN(cgpu->drv->max_diff, work->work_difficulty);
    work->device_diff = MAX(cgpu->drv->min_diff, work->device_diff);
    return work;
}


/* Submit a copy of the tested, statistic recorded work item asynchronously */
static void submit_work_async(struct work *work)
{
    struct pool *pool = work->pool;
    pthread_t submit_thread;

    cgtime(&work->tv_work_found);

    if (opt_benchmark)
    {
        struct cgpu_info *cgpu = get_thr_cgpu(work->thr_id);

        mutex_lock(&stats_lock);
        cgpu->accepted++;
        total_accepted++;
        pool->accepted++;
        cgpu->diff_accepted += work->work_difficulty;
        total_diff_accepted += work->work_difficulty;
        pool->diff_accepted += work->work_difficulty;
        mutex_unlock(&stats_lock);

        applog(LOG_NOTICE, "Accepted %s %d benchmark share nonce %08x", cgpu->drv->name, cgpu->device_id, *(uint32_t *)(work->data + 64 + 12));
        return;
    }

    if (stale_work(work, true))
    {
        if (opt_submit_stale)
        {
            applog(LOG_NOTICE, "Pool %d stale share detected, submitting as user requested", pool->pool_no);
        }
        else if (pool->submit_old)
        {
            applog(LOG_NOTICE, "Pool %d stale share detected, submitting as pool requested", pool->pool_no);
        }
        else
        {
            applog(LOG_NOTICE, "Pool %d stale share detected, discarding", pool->pool_no);
            sharelog("discard", work);

            mutex_lock(&stats_lock);
            total_stale++;
            pool->stale_shares++;

            total_diff_stale += work->work_difficulty;
            pool->diff_stale += work->work_difficulty;

            mutex_unlock(&stats_lock);

            free_work(work);
            return;
        }
        work->stale = true;
    }

    if (work->stratum)
    {
        applog(LOG_DEBUG, "Pushing pool %d work to stratum queue", pool->pool_no);
        if (unlikely(!pool->stratum_q || !tq_push(pool->stratum_q, work)))
        {
            applog(LOG_DEBUG, "Discarding work from removed pool");
            free_work(work);
        }
    }
    else
    {
        applog(LOG_DEBUG, "Pushing submit work to work thread");
        if (unlikely(pthread_create(&submit_thread, NULL, submit_work_thread, (void *)work)))
            quit(1, "Failed to create submit_work_thread");
    }
}


void inc_hw_errors(struct thr_info *thr)
{
    applog(LOG_INFO, "%s %d: invalid nonce - HW error", thr->cgpu->drv->name,
           thr->cgpu->device_id);

    mutex_lock(&stats_lock);
    hw_errors++;
    thr->cgpu->hw_errors++;
    mutex_unlock(&stats_lock);

    thr->cgpu->drv->hw_error(thr);
}

void inc_hw_errors_with_diff(struct thr_info *thr, int diff)
{
    applog(LOG_ERR, "%s%d: invalid nonce - HW error", thr->cgpu->drv->name,
           thr->cgpu->device_id);

    mutex_lock(&stats_lock);
    hw_errors += diff ;
    thr->cgpu->hw_errors += diff;
    mutex_unlock(&stats_lock);

    thr->cgpu->drv->hw_error(thr);
}



void inc_dev_status(int max_fan, int max_temp)
{
    mutex_lock(&stats_lock);
    g_max_fan = max_fan;
    g_max_temp = max_temp;
    mutex_unlock(&stats_lock);
}


/* Fills in the work nonce and builds the output data in work->hash */
static void rebuild_nonce(struct work *work, uint32_t nonce)
{
    uint32_t *work_nonce = (uint32_t *)(work->data + 64 + 12);

    *work_nonce = htole32(nonce);

    regen_hash(work);
}

/* For testing a nonce against diff 1 */
bool test_nonce(struct work *work, uint32_t nonce)
{
    uint32_t *hash_32 = (uint32_t *)(work->hash + 28);

    rebuild_nonce(work, nonce);
    return (*hash_32 == 0);
}

/* For testing a nonce against an arbitrary diff */
bool test_nonce_diff(struct work *work, uint32_t nonce, double diff)
{
    uint64_t *hash64 = (uint64_t *)(work->hash + 24), diff64;

    rebuild_nonce(work, nonce);
    diff64 = 0x00000000ffff0000ULL;
    diff64 /= diff;

    return (le64toh(*hash64) <= diff64);
}

static void update_work_stats(struct thr_info *thr, struct work *work)
{
    double test_diff = current_diff;

    work->share_diff = share_diff(work);

    if (unlikely(work->share_diff >= test_diff))
    {
        work->block = true;
        work->pool->solved++;
        found_blocks++;
        work->mandatory = true;
        applog(LOG_NOTICE, "Found block for pool %d!", work->pool->pool_no);
    }

    mutex_lock(&stats_lock);
    total_diff1 += work->device_diff;
    thr->cgpu->diff1 += work->device_diff;
    work->pool->diff1 += work->device_diff;
    thr->cgpu->last_device_valid_work = time(NULL);
    mutex_unlock(&stats_lock);
}

void inc_work_stats(struct thr_info *thr, struct pool *pool, int diff1)
{
    mutex_lock(&stats_lock);
    total_diff1 += diff1;
    thr->cgpu->diff1 += diff1;

    if(pool)
    {
        pool->diff1 += diff1;
    }
    else
    {
        pool = current_pool();
        pool->diff1 += diff1;
    }
    thr->cgpu->last_device_valid_work = time(NULL);
    mutex_unlock(&stats_lock);
}


/* To be used once the work has been tested to be meet diff1 and has had its
 * nonce adjusted. Returns true if the work target is met. */
bool submit_tested_work(struct thr_info *thr, struct work *work)
{
    struct work *work_out;
    update_work_stats(thr, work);

    if (!fulltest(work->hash, work->target))
    {
        applog(LOG_INFO, "%s %s %d: Share above target",__FUNCTION__, thr->cgpu->drv->name, thr->cgpu->device_id);
        return false;
    }

    work_out = copy_work(work);
    submit_work_async(work_out);
    return true;
}

/* Rudimentary test to see if cgpu has returned the same nonce twice in a row which is
 * always going to be a duplicate which should be reported as a hw error. */
static bool new_nonce(struct thr_info *thr, uint32_t nonce)
{
    struct cgpu_info *cgpu = thr->cgpu;

    if (unlikely(cgpu->last_nonce == nonce))
    {
        applog(LOG_INFO, "%s %d duplicate share detected as HW error", cgpu->drv->name, cgpu->device_id);
        return false;
    }

    cgpu->last_nonce = nonce;
    return true;
}

static bool Hex2Bin(char *hex, unsigned char *pBytes)
{
    int i;
    int j=0;
    for(i=0; i<strlen(hex); i++)
    {
        unsigned char tmp;
        if(hex[i]>='0' && hex[i]<='9')
        {
            tmp=hex[i]-'0';
        }
        else if(hex[i]>='a' && hex[i]<='f')
        {
            tmp=hex[i]-'a'+10;
        }
        else if(hex[i]>='A' && hex[i]<='F')
        {
            tmp=hex[i]-'A'+10;
        }
        else return false;

        if((i%2)==0)
            pBytes[j]=(tmp<<4)&0xf0;
        else pBytes[j++]+=tmp;
    }
    return true;
}

static int getChipIndex(char *nonce4)
{
    char nonce[9];
    unsigned char nonce_bytes[4];

    if(Hex2Bin(nonce,nonce_bytes))
    {
        int chipIndex;
        int slotIndex;
        int coreIndex;

        chipIndex=nonce_bytes[0]/4;

        return chipIndex;
    }
    return -1;
}

FILE *fd_log=NULL;
void cg_savelogwork(struct work *work, unsigned char *nonce_bin)
{
    if(!fd_log)
        fd_log=fopen("/etc/config/worklog.txt","wb");

    if(1)
    {
        int chipIndex;
        char szmsg[1024] = {0};
        unsigned char midstate_tmp[32] = {0};
        unsigned char data_tmp[32] = {0};
        unsigned char hash_tmp[32] = {0};
        char * szworkdata = NULL;
        char * szmidstate = NULL;
        char * szdata = NULL;
        char * sznonce4 = NULL;
        char * sznonce5 = NULL;
        char * szhash = NULL;
        int asicnum = 0;
        uint64_t worksharediff = 0;
        memcpy(midstate_tmp, work->midstate, 32);
        memcpy(data_tmp, work->data+64, 12);
        memcpy(hash_tmp, work->hash, 32);
        rev((void *)midstate_tmp, 32);
        rev((void *)data_tmp, 12);
        rev((void *)hash_tmp, 32);
        szworkdata = bin2hex((void *)work->data, 128);
        szmidstate = bin2hex((void *)midstate_tmp, 32);
        szdata = bin2hex((void *)data_tmp, 12);
        sznonce4 = bin2hex((void *)nonce_bin, 4);
        sznonce5 = bin2hex((void *)nonce_bin, 5);
        szhash = bin2hex((void *)hash_tmp, 32);
        worksharediff = share_ndiff(work);

        chipIndex=getChipIndex(sznonce4);

        // if(chipIndex==15 || chipIndex==31 || chipIndex==47)
        {
            sprintf(szmsg, "midstate %s data %s nonce %s \r\n", szmidstate, szdata, sznonce4);
            fwrite(szmsg, strlen(szmsg), 1, fd_log);
            fflush(fd_log);
        }

        if(szworkdata) free(szworkdata);
        if(szmidstate) free(szmidstate);
        if(szdata) free(szdata);
        if(sznonce4) free(sznonce4);
        if(sznonce5) free(sznonce5);
        if(szhash) free(szhash);
    }
}

void cg_savelogwork_uint32(struct work *work, uint32_t nonce)
{
    if(1)
    {
        unsigned char nonce_bin[5] = {0};
        memcpy(nonce_bin, &nonce, 4);
        cg_savelogwork(work, nonce_bin);
    }
}


/* Returns true if nonce for work was a valid share and not a dupe of the very last
 * nonce submitted by this device. */

bool savelog_nonce(struct work *work, uint32_t nonce)
{
    if (test_nonce(work, nonce))
        cg_savelogwork_uint32(work, nonce);
}

/* Returns true if nonce for work was a valid share and not a dupe of the very last
 * nonce submitted by this device. */
bool submit_nonce(struct thr_info *thr, struct work *work, uint32_t nonce)
{
    if (new_nonce(thr, nonce) && test_nonce(work, nonce))
    {
        submit_tested_work(thr, work);
    }
    else
    {
        inc_hw_errors(thr);
        return false;
    }

    if (opt_benchfile && opt_benchfile_display)
    {
        benchfile_dspwork(work, nonce);
    }

    return true;
}

bool submit_nonce_1(struct thr_info *thr, struct work *work, uint32_t nonce, int * nofull)
{
    if(nofull)
    {
        *nofull = 0;
    }

    if (test_nonce(work, nonce))
    {
        update_work_stats(thr, work);

        if (!fulltest(work->hash, work->target))
        {
            if(nofull) *nofull = 1;
            applog(LOG_INFO, "Share above target");
            return false;
        }
    }
    else
    {
        inc_hw_errors(thr);
        return false;
    }

    return true;
}

void submit_nonce_2(struct work *work)
{
    struct work *work_out;
    work_out = copy_work(work);
    submit_work_async(work_out);
}

bool submit_nonce_direct(struct thr_info *thr, struct work *work, uint32_t nonce)
{
    struct work *work_out;
    uint32_t *work_nonce = (uint32_t *)(work->data + 64 + 12);
    *work_nonce = htole32(nonce);

    work_out = copy_work(work);
    submit_work_async(work_out);
    return true;
}

/* Allows drivers to submit work items where the driver has changed the ntime
 * value by noffset. Must be only used with a work protocol that does not ntime
 * roll itself intrinsically to generate work (eg stratum). We do not touch
 * the original work struct, but the copy of it only. */
bool submit_noffset_nonce(struct thr_info *thr, struct work *work_in, uint32_t nonce,
                          int noffset)
{
    struct work *work = make_work();
    bool ret          = false;

    _copy_work(work, work_in, noffset);

    if (!test_nonce(work, nonce))
    {
        free_work(work);
        inc_hw_errors(thr);
        goto out;
    }

    update_work_stats(thr, work);

    if (opt_benchfile && opt_benchfile_display)
    {
        benchfile_dspwork(work, nonce);
    }

    ret = true;

    if (!fulltest(work->hash, work->target))
    {
        free_work(work);
        applog(LOG_INFO, "%s %d: Share above target", thr->cgpu->drv->name, thr->cgpu->device_id);
        goto  out;
    }
    submit_work_async(work);

out:
    return ret;
}

static inline bool abandon_work(struct work *work, struct timeval *wdiff, uint64_t hashes)
{
    if (wdiff->tv_sec > opt_scantime || hashes >= 0xfffffffe || stale_work(work, false))
    {
        return true;
    }

    return false;
}


static void mt_disable(struct thr_info *mythr, const int thr_id, struct device_drv *drv)
{
    applog(LOG_WARNING, "Thread %d being disabled", thr_id);
    mythr->cgpu->rolling = 0;
    applog(LOG_DEBUG, "Waiting on sem in miner thread");
    cgsem_wait(&mythr->sem);
    applog(LOG_WARNING, "Thread %d being re-enabled", thr_id);
    drv->thread_enable(mythr);
}

/* The main hashing loop for devices that are slow enough to work on one work
 * item at a time, without a queue, aborting work before the entire nonce
 * range has been hashed if needed. */
static void hash_sole_work(struct thr_info *mythr)
{
    const int thr_id = mythr->id;
    struct cgpu_info *cgpu = mythr->cgpu;
    struct device_drv *drv = cgpu->drv;
    struct timeval getwork_start, tv_start, *tv_end, tv_workstart, tv_lastupdate;
    struct cgminer_stats *dev_stats = &(cgpu->cgminer_stats);
    struct cgminer_stats *pool_stats;
    /* Try to cycle approximately 5 times before each log update */
    const long cycle = opt_log_interval / 5 ? : 1;
    const bool primary  = (!mythr->device_thread) || mythr->primary_thread;
    struct timeval sdiff;
    struct timeval diff;
    struct timeval wdiff = {0, 0};
    uint32_t max_nonce  = drv->can_limit_work(mythr);
    int64_t hashes_done = 0;

    tv_end = &getwork_start;
    cgtime(&getwork_start);
    sdiff.tv_sec = sdiff.tv_usec = 0;
    cgtime(&tv_lastupdate);

    while (likely(!cgpu->shutdown))
    {
        struct work *work = get_work(mythr, thr_id);
        int64_t hashes;

        mythr->work_restart = false;
        cgpu->new_work = true;

        cgtime(&tv_workstart);
        work->nonce = 0;
        cgpu->max_hashes = 0;

        if (!drv->prepare_work(mythr, work))
        {
            applog(LOG_ERR, "work prepare failed, exiting mining thread %d", thr_id);
            break;
        }

        work->device_diff = MIN(drv->max_diff, work->work_difficulty);
        work->device_diff = MAX(drv->min_diff, work->device_diff);

        do
        {
            cgtime(&tv_start);

            subtime(&tv_start, &getwork_start);

            addtime(&getwork_start, &dev_stats->getwork_wait);

            if (time_more(&getwork_start, &dev_stats->getwork_wait_max))
            {
                copy_time(&dev_stats->getwork_wait_max, &getwork_start);
            }

            if (time_less(&getwork_start, &dev_stats->getwork_wait_min))
            {
                copy_time(&dev_stats->getwork_wait_min, &getwork_start);
            }
            dev_stats->getwork_calls++;

            pool_stats = &(work->pool->cgminer_stats);

            addtime(&getwork_start, &pool_stats->getwork_wait);

            if (time_more(&getwork_start, &pool_stats->getwork_wait_max))
            {
                copy_time(&pool_stats->getwork_wait_max, &getwork_start);
            }

            if (time_less(&getwork_start, &pool_stats->getwork_wait_min))
            {
                copy_time(&pool_stats->getwork_wait_min, &getwork_start);
            }
            pool_stats->getwork_calls++;

            cgtime(&(work->tv_work_start));

            /* Only allow the mining thread to be cancelled when
             * it is not in the driver code. */
            pthread_setcancelstate(PTHREAD_CANCEL_DISABLE, NULL);

            thread_reportin(mythr);
            hashes = drv->scanhash(mythr, work, (int64_t)(work->nonce + max_nonce));
            thread_reportout(mythr);

            pthread_setcancelstate(PTHREAD_CANCEL_ENABLE, NULL);
            pthread_testcancel();

            /* tv_end is == &getwork_start */
            cgtime(&getwork_start);

            if (unlikely(hashes == -1))
            {
                applog(LOG_ERR, "%s %d failure, disabling!", drv->name, cgpu->device_id);
                cgpu->deven = DEV_DISABLED;
                dev_error(cgpu, REASON_THREAD_ZERO_HASH);
                cgpu->shutdown = true;
                break;
            }

            hashes_done += hashes;

            if (hashes > cgpu->max_hashes)
            {
                cgpu->max_hashes = hashes;
            }

            timersub(tv_end, &tv_start, &diff);
            sdiff.tv_sec += diff.tv_sec;
            sdiff.tv_usec += diff.tv_usec;

            if (sdiff.tv_usec > 1000000)
            {
                ++sdiff.tv_sec;
                sdiff.tv_usec -= 1000000;
            }

            timersub(tv_end, &tv_workstart, &wdiff);

            if (unlikely((long)sdiff.tv_sec < cycle))
            {
                int mult;

                if (likely(max_nonce == 0xffffffff))
                {
                    continue;
                }

                mult = 1000000 / ((sdiff.tv_usec + 0x400) / 0x400) + 0x10;
                mult *= cycle;

                if (max_nonce > (0xffffffff * 0x400) / mult)
                {
                    max_nonce = 0xffffffff;
                }
                else
                {
                    max_nonce = (max_nonce * mult) / 0x400;
                }
            }
            else if (unlikely(sdiff.tv_sec > cycle))
            {
                max_nonce = max_nonce * cycle / sdiff.tv_sec;
            }
            else if (unlikely(sdiff.tv_usec > 100000))
            {
                max_nonce = max_nonce * 0x400 / (((cycle * 1000000) + sdiff.tv_usec) / (cycle * 1000000 / 0x400));
            }

            timersub(tv_end, &tv_lastupdate, &diff);

            /* Update the hashmeter at most 5 times per second */
            if ((hashes_done && (diff.tv_sec > 0 || diff.tv_usec > 200000)) ||
                diff.tv_sec >= opt_log_interval)
            {
                hashmeter(thr_id, (uint64_t)hashes_done);
                hashes_done = 0;
                copy_time(&tv_lastupdate, tv_end);
            }

            if (unlikely(mythr->work_restart))
            {
                /* Apart from device_thread 0, we stagger the
                 * starting of every next thread to try and get
                 * all devices busy before worrying about
                 * getting work for their extra threads */
                if (!primary)
                {
                    struct timespec rgtp;

                    rgtp.tv_sec = 0;
                    rgtp.tv_nsec = 250 * mythr->device_thread * 1000000;
                    nanosleep(&rgtp, NULL);
                }

                break;
            }

            if (unlikely(mythr->pause || cgpu->deven != DEV_ENABLED))
            {
                mt_disable(mythr, thr_id, drv);
            }

            sdiff.tv_sec = sdiff.tv_usec = 0;
        }

        while (!abandon_work(work, &wdiff, (uint64_t)cgpu->max_hashes));

        free_work(work);
    }

    cgpu->deven = DEV_DISABLED;
}

/* Put a new unqueued work item in cgpu->unqueued_work under cgpu->qlock till
 * the driver tells us it's full so that it may extract the work item using
 * the get_queued() function which adds it to the hashtable on
 * cgpu->queued_work. */
static void fill_queue(struct thr_info *mythr, struct cgpu_info *cgpu, struct device_drv *drv, const int thr_id)
{
    do
    {
        bool need_work;

        /* Do this lockless just to know if we need more unqueued work. */
        need_work = (!cgpu->unqueued_work);

        /* get_work is a blocking function so do it outside of lock
         * to prevent deadlocks with other locks. */
        if (need_work)
        {
            struct work *work = get_work(mythr, thr_id);

            wr_lock(&cgpu->qlock);
            /* Check we haven't grabbed work somehow between
             * checking and picking up the lock. */
            if (likely(!cgpu->unqueued_work))
            {
                cgpu->unqueued_work = work;
            }
            else
            {
                need_work = false;
            }
            wr_unlock(&cgpu->qlock);

            if (unlikely(!need_work))
            {
                discard_work(work);
            }  // fill_queue
        }
        /* The queue_full function should be used by the driver to
         * actually place work items on the physical device if it
         * does have a queue. */
    }

    while (!drv->queue_full(cgpu));
}

/* Add a work item to a cgpu's queued hashlist */
void __add_queued(struct cgpu_info *cgpu, struct work *work)
{
    cgpu->queued_count++;
    HASH_ADD_INT(cgpu->queued_work, id, work);
}

struct work *__get_queued(struct cgpu_info *cgpu)
{
    struct work *work = NULL;

    if (cgpu->unqueued_work)
    {
        work = cgpu->unqueued_work;

        if (unlikely(stale_work(work, false)))
        {
            discard_work(work); // *__get_queued
            wake_gws();
        }
        else
        {
            __add_queued(cgpu, work);
        }

        cgpu->unqueued_work = NULL;
    }

    return work;
}

/* This function is for retrieving one work item from the unqueued pointer and
 * adding it to the hashtable of queued work. Code using this function must be
 * able to handle NULL as a return which implies there is no work available. */
struct work *get_queued(struct cgpu_info *cgpu)
{
    struct work *work;

    wr_lock(&cgpu->qlock);
    work = __get_queued(cgpu);
    wr_unlock(&cgpu->qlock);

    return work;
}

void add_queued(struct cgpu_info *cgpu, struct work *work)
{
    wr_lock(&cgpu->qlock);
    __add_queued(cgpu, work);
    wr_unlock(&cgpu->qlock);
}

/* Get fresh work and add it to cgpu's queued hashlist */
struct work *get_queue_work(struct thr_info *thr, struct cgpu_info *cgpu, int thr_id)
{
    struct work *work = get_work(thr, thr_id);

    add_queued(cgpu, work);
    return work;
}


/* This function is for finding an already queued work item in the
 * given que hashtable. Code using this function must be able
 * to handle NULL as a return which implies there is no matching work.
 * The calling function must lock access to the que if it is required.
 * The common values for midstatelen, offset, datalen are 32, 64, 12 */
struct work *__find_work_bymidstate(struct work *que, char *midstate, size_t midstatelen, char *data, int offset, size_t datalen)
{
    struct work *work, *tmp, *ret = NULL;

    HASH_ITER(hh, que, work, tmp)
    {
        if (memcmp(work->midstate, midstate, midstatelen) == 0 &&
            memcmp(work->data + offset, data, datalen) == 0)
        {
            ret = work;
            break;
        }
    }

    return ret;
}


/* This function is for finding an already queued work item in the
 * device's queued_work hashtable. Code using this function must be able
 * to handle NULL as a return which implies there is no matching work.
 * The common values for midstatelen, offset, datalen are 32, 64, 12 */
struct work *find_queued_work_bymidstate(struct cgpu_info *cgpu, char *midstate, size_t midstatelen, char *data, int offset, size_t datalen)
{
    struct work *ret;

    rd_lock(&cgpu->qlock);
    ret = __find_work_bymidstate(cgpu->queued_work, midstate, midstatelen, data, offset, datalen);
    rd_unlock(&cgpu->qlock);

    return ret;
}


struct work *clone_queued_work_bymidstate(struct cgpu_info *cgpu, char *midstate, size_t midstatelen, char *data, int offset, size_t datalen)
{
    struct work *work, *ret = NULL;

    rd_lock(&cgpu->qlock);
    work = __find_work_bymidstate(cgpu->queued_work, midstate, midstatelen, data, offset, datalen);
    if (work)
        ret = copy_work(work);
    rd_unlock(&cgpu->qlock);

    return ret;
}


/* This function is for finding an already queued work item in the
 * given que hashtable. Code using this function must be able
 * to handle NULL as a return which implies there is no matching work.
 * The calling function must lock access to the que if it is required. */
struct work *__find_work_byid(struct work *que, uint32_t id)
{
    struct work *work, *tmp, *ret = NULL;

    HASH_ITER(hh, que, work, tmp)
    {
        if (work->id == id)
        {
            ret = work;
            break;
        }
    }

    return ret;
}


struct work *find_queued_work_byid(struct cgpu_info *cgpu, uint32_t id)
{
    struct work *ret;

    rd_lock(&cgpu->qlock);
    ret = __find_work_byid(cgpu->queued_work, id);
    rd_unlock(&cgpu->qlock);

    return ret;
}


struct work *clone_queued_work_byid(struct cgpu_info *cgpu, uint32_t id)
{
    struct work *work, *ret = NULL;

    rd_lock(&cgpu->qlock);
    work = __find_work_byid(cgpu->queued_work, id);
    if (work)
        ret = copy_work(work);
    rd_unlock(&cgpu->qlock);

    return ret;
}

void __work_completed(struct cgpu_info *cgpu, struct work *work)
{
    cgpu->queued_count--;
    HASH_DEL(cgpu->queued_work, work);
}

/* This iterates over a queued hashlist finding work started more than secs
 * seconds ago and discards the work as completed. The driver must set the
 * work->tv_work_start value appropriately. Returns the number of items aged. */
int age_queued_work(struct cgpu_info *cgpu, double secs)
{
    struct work *work, *tmp;
    struct timeval tv_now;
    int aged = 0;

    cgtime(&tv_now);

    wr_lock(&cgpu->qlock);
    HASH_ITER(hh, cgpu->queued_work, work, tmp)
    {
        if (tdiff(&tv_now, &work->tv_work_start) > secs)
        {
            __work_completed(cgpu, work);
            free_work(work);
            aged++;
        }
    }

    wr_unlock(&cgpu->qlock);

    return aged;
}


/* This function should be used by queued device drivers when they're sure
 * the work struct is no longer in use. */
void work_completed(struct cgpu_info *cgpu, struct work *work)
{
    wr_lock(&cgpu->qlock);
    __work_completed(cgpu, work);
    wr_unlock(&cgpu->qlock);

    free_work(work);
}

/* Combines find_queued_work_bymidstate and work_completed in one function
 * withOUT destroying the work so the driver must free it. */
struct work *take_queued_work_bymidstate(struct cgpu_info *cgpu, char *midstate, size_t midstatelen, char *data, int offset, size_t datalen)
{
    struct work *work;

    wr_lock(&cgpu->qlock);
    work = __find_work_bymidstate(cgpu->queued_work, midstate, midstatelen, data, offset, datalen);
    if (work)
        __work_completed(cgpu, work);
    wr_unlock(&cgpu->qlock);

    return work;
}

void flush_queue(struct cgpu_info *cgpu)
{
    struct work *work = NULL;

    if (unlikely(!cgpu))
    {
        return;
    }

    /* Use only a trylock in case we get into a deadlock with a queueing
     * function holding the read lock when we're called. */
    if (wr_trylock(&cgpu->qlock))
    {
        return;
    }

    work = cgpu->unqueued_work;
    cgpu->unqueued_work = NULL;
    wr_unlock(&cgpu->qlock);

    if (work)
    {
        free_work(work);
        applog(LOG_DEBUG, "Discarded queued work item");
    }
}

/* This version of hash work is for devices that are fast enough to always
 * perform a full nonce range and need a queue to maintain the device busy.
 * Work creation and destruction is not done from within this function
 * directly. */
void hash_queued_work(struct thr_info *mythr)
{
    struct timeval tv_start = {0, 0}, tv_end;
    struct cgpu_info *cgpu = mythr->cgpu;
    struct device_drv *drv = cgpu->drv;
    const int thr_id = mythr->id;
    int64_t hashes_done = 0;

    while (likely(!cgpu->shutdown))
    {
        struct timeval diff;
        int64_t hashes;

        mythr->work_update = false;

        fill_queue(mythr, cgpu, drv, thr_id);

        hashes = drv->scanwork(mythr);

        /* Reset the bool here in case the driver looks for it
         * synchronously in the scanwork loop. */
        mythr->work_restart = false;

        if (unlikely(hashes == -1 ))
        {
            applog(LOG_ERR, "%s %d failure, disabling!", drv->name, cgpu->device_id);
            cgpu->deven = DEV_DISABLED;
            dev_error(cgpu, REASON_THREAD_ZERO_HASH);
            break;
        }

        hashes_done += hashes;
        cgtime(&tv_end);
        timersub(&tv_end, &tv_start, &diff);

        /* Update the hashmeter at most 5 times per second */
        if ((hashes_done && (diff.tv_sec > 0 || diff.tv_usec > 200000)) || diff.tv_sec >= opt_log_interval)
        {
            hashmeter(thr_id, (uint64_t)hashes_done);
            hashes_done = 0;
            copy_time(&tv_start, &tv_end);
        }

        if (unlikely(mythr->pause || cgpu->deven != DEV_ENABLED))
        {
            mt_disable(mythr, thr_id, drv);
        }

        if (mythr->work_update)
        {
            drv->update_work(cgpu);
        }
    }
    cgpu->deven = DEV_DISABLED;
}

/* This version of hash_work is for devices drivers that want to do their own
 * work management entirely, usually by using get_work(). Note that get_work
 * is a blocking function and will wait indefinitely if no work is available
 * so this must be taken into consideration in the driver. */
void hash_driver_work(struct thr_info *mythr)
{
    struct timeval tv_start = {0, 0}, tv_end;
    struct cgpu_info *cgpu  = mythr->cgpu;
    struct device_drv *drv  = cgpu->drv;
    const int thr_id        = mythr->id;
    int64_t hashes_done     = 0;

    while (likely(!cgpu->shutdown))
    {
        struct timeval diff;
        int64_t hashes;

        mythr->work_update = false;

        hashes = drv->scanwork(mythr);

        /* Reset the bool here in case the driver looks for it
         * synchronously in the scanwork loop. */
        mythr->work_restart = false;

        if (unlikely(hashes == -1 ))
        {
            applog(LOG_ERR, "%s %d failure, disabling!", drv->name, cgpu->device_id);
            cgpu->deven = DEV_DISABLED;
            dev_error(cgpu, REASON_THREAD_ZERO_HASH);
            break;
        }

        hashes_done += hashes;
        cgtime(&tv_end);
        timersub(&tv_end, &tv_start, &diff);

        /* Update the hashmeter at most 5 times per second */
        if ((hashes_done && (diff.tv_sec > 0 || diff.tv_usec > 200000)) || diff.tv_sec >= opt_log_interval)
        {
            hashmeter(thr_id, (uint64_t)hashes_done);
            hashes_done = 0;
            copy_time(&tv_start, &tv_end);
        }

        if (unlikely(mythr->pause || cgpu->deven != DEV_ENABLED))
        {
            mt_disable(mythr, thr_id, drv);
        }

// TODO: kano what do you think about this?

        if (mythr->work_update)
        {
            mutex_lock(&update_job_lock);
            drv->update_work(cgpu);
            mutex_unlock(&update_job_lock);
        }
    }
    cgpu->deven = DEV_DISABLED;
}

void *miner_thread(void *userdata)
{
    struct thr_info *mythr = userdata;
    const int thr_id       = mythr->id;
    struct cgpu_info *cgpu = mythr->cgpu;
    struct device_drv *drv = cgpu->drv;

    char threadname[16];

    snprintf(threadname, sizeof(threadname), "%d/Miner", thr_id);
    RenameThread(threadname);

    thread_reportout(mythr);

    if (!drv->thread_init(mythr))
    {
        dev_error(cgpu, REASON_THREAD_FAIL_INIT);
        goto out;
    }

    applog(LOG_DEBUG, "Waiting on sem in miner thread");
    cgsem_wait(&mythr->sem);

    cgpu->last_device_valid_work = time(NULL);
    drv->hash_work(mythr);
    drv->thread_shutdown(mythr);

out:

    return NULL;

}

enum
{
    STAT_SLEEP_INTERVAL     = 1,
    STAT_CTR_INTERVAL       = 10000000,
    FAILURE_INTERVAL        = 30,
};

#ifdef HAVE_LIBCURL
/* Stage another work item from the work returned in a longpoll */
static void convert_to_work(json_t *val, int rolltime, struct pool *pool, struct timeval *tv_lp, struct timeval *tv_lp_reply)
{
    struct work *work;
    bool rc;

    work = make_work();

    rc = work_decode(pool, work, val);
    if (unlikely(!rc))
    {
        applog(LOG_ERR, "Could not convert longpoll data to work");
        free_work(work);
        return;
    }
    total_getworks++;
    pool->getwork_requested++;
    work->pool = pool;
    work->rolltime = rolltime;
    copy_time(&work->tv_getwork, tv_lp);
    copy_time(&work->tv_getwork_reply, tv_lp_reply);
    calc_diff(work, 0);

    if (pool->enabled == POOL_REJECTING)
        work->mandatory = true;

    if (pool->has_gbt)
        gen_gbt_work(pool, work);
    work->longpoll = true;
    work->getwork_mode = GETWORK_MODE_LP;

    /* We'll be checking this work item twice, but we already know it's
     * from a new block so explicitly force the new block detection now
     * rather than waiting for it to hit the stage thread. This also
     * allows testwork to know whether LP discovered the block or not. */
    test_work_current(work);

    /* Don't use backup LPs as work if we have failover-only enabled. Use
     * the longpoll work from a pool that has been rejecting shares as a
     * way to detect when the pool has recovered.
     */
    if (pool != current_pool() && opt_fail_only && pool->enabled != POOL_REJECTING)
    {
        free_work(work);
        return;
    }

    work = clone_work(work);

    applog(LOG_DEBUG, "Pushing converted work to stage thread");

    stage_work(work);
    applog(LOG_DEBUG, "Converted longpoll data to work");
}

/* If we want longpoll, enable it for the chosen default pool, or, if
 * the pool does not support longpoll, find the first one that does
 * and use its longpoll support */
static struct pool *select_longpoll_pool(struct pool *cp)
{
    int i;

    if (cp->hdr_path || cp->has_gbt || cp->gbt_solo)
        return cp;
    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];

        if (pool->has_stratum || pool->hdr_path)
            return pool;
    }
    return NULL;
}
#endif /* HAVE_LIBCURL */

/* This will make the longpoll thread wait till it's the current pool, or it
 * has been flagged as rejecting, before attempting to open any connections.
 */
static void wait_lpcurrent(struct pool *pool)
{
    while (
        !cnx_needed(pool) &&
        (
            pool->enabled == POOL_DISABLED ||
            (
                pool != current_pool() &&
                pool_strategy != POOL_LOADBALANCE &&
                pool_strategy != POOL_BALANCE
            )
        )
    )
    {
        mutex_lock(&lp_lock);
        pthread_cond_wait(&lp_cond, &lp_lock);
        mutex_unlock(&lp_lock);
    }
}

#ifdef HAVE_LIBCURL
static void *longpoll_thread(void *userdata)
{
    struct pool *cp = (struct pool *)userdata;
    /* This *pool is the source of the actual longpoll, not the pool we've
     * tied it to */
    struct timeval start, reply, end;
    struct pool *pool = NULL;
    char threadname[16];
    CURL *curl = NULL;
    int failures = 0;
    char lpreq[1024];
    char *lp_url;
    int rolltime;

    snprintf(threadname, sizeof(threadname), "%d/Longpoll", cp->pool_no);
    RenameThread(threadname);

retry_pool:
    pool = select_longpoll_pool(cp);
    if (!pool)
    {
        applog(LOG_WARNING, "No suitable long-poll found for %s", cp->rpc_url);
        while (!pool)
        {
            cgsleep_ms(60000);
            pool = select_longpoll_pool(cp);
        }
    }

    if (pool->has_stratum)
    {
        applog(LOG_WARNING, "Block change for %s detection via %s stratum",
               cp->rpc_url, pool->rpc_url);
        goto out;
    }

    if (pool->gbt_solo)
    {
        applog(LOG_WARNING, "Block change for %s detection via getblockcount polling",
               cp->rpc_url);
        while (42)
        {
            json_t *val, *res_val = NULL;

            if (unlikely(pool->removed))
                return NULL;

            cgtime(&start);
            wait_lpcurrent(cp);
            sprintf(lpreq, "{\"id\": 0, \"method\": \"getblockcount\"}\n");

            /* We will be making another call immediately after this
             * one to get the height so allow this curl to be reused.*/
            get_gbt_curl(pool, 500);
            curl_easy_setopt(pool->gbt_curl, CURLOPT_FORBID_REUSE, 0);
            val = json_rpc_call(pool->gbt_curl, pool->rpc_url, pool->rpc_userpass, lpreq, true,
                                false, &rolltime, pool, false);
            release_gbt_curl(pool);

            if (likely(val))
                res_val = json_object_get(val, "result");
            if (likely(res_val))
            {
                int height = json_integer_value(res_val);
                const char *prev_hash;

                failures = 0;
                json_decref(val);
                if (height >= cp->height)
                {
                    applog(LOG_WARNING, "Block height change to %d detected on pool %d",
                           height, cp->pool_no);
                    update_gbt_solo(pool);
                    continue;
                }

                sprintf(lpreq, "{\"id\": 0, \"method\": \"getblockhash\", \"params\": [%d]}\n", height);
                get_gbt_curl(pool, 500);
                curl_easy_setopt(pool->gbt_curl, CURLOPT_FORBID_REUSE, 1);
                val = json_rpc_call(pool->gbt_curl, pool->rpc_url, pool->rpc_userpass,
                                    lpreq, true, false, &rolltime, pool, false);
                release_gbt_curl(pool);

                if (val)
                {
                    /* Do a comparison on a short stretch of
                     * the hash to make sure it hasn't changed
                     * due to mining on an orphan branch. */
                    prev_hash = json_string_value(json_object_get(val, "result"));
                    if (unlikely(prev_hash && strncasecmp(prev_hash + 56, pool->prev_hash, 8)))
                    {
                        applog(LOG_WARNING, "Mining on orphan branch detected, switching!");
                        update_gbt_solo(pool);
                    }
                    json_decref(val);
                }

                cgsleep_ms(500);
            }
            else
            {
                if (val)
                    json_decref(val);
                cgtime(&end);
                if (end.tv_sec - start.tv_sec > 30)
                    continue;
                if (failures == 1)
                    applog(LOG_WARNING, "longpoll failed for %s, retrying every 30s", lp_url);
                cgsleep_ms(30000);
            }
        }
    }

    curl = curl_easy_init();
    if (unlikely(!curl))
        quit (1, "Longpoll CURL initialisation failed");

    /* Any longpoll from any pool is enough for this to be true */
    have_longpoll = true;

    wait_lpcurrent(cp);

    lp_url = pool->rpc_url;
    applog(LOG_WARNING, "GBT longpoll ID activated for %s", lp_url);

    while (42)
    {
        json_t *val, *soval;

        wait_lpcurrent(cp);

        cgtime(&start);

        /* Update the longpollid every time, but do it under lock to
         * avoid races */
        if (pool->has_gbt)
        {
            cg_rlock(&pool->gbt_lock);
            snprintf(lpreq, sizeof(lpreq),
                     "{\"id\": 0, \"method\": \"getblocktemplate\", \"params\": "
                     "[{\"capabilities\": [\"coinbasetxn\", \"workid\", \"coinbase/append\"], "
                     "\"longpollid\": \"%s\"}]}\n", pool->longpollid);
            cg_runlock(&pool->gbt_lock);
        }

        /* Longpoll connections can be persistent for a very long time
         * and any number of issues could have come up in the meantime
         * so always establish a fresh connection instead of relying on
         * a persistent one. */
        curl_easy_setopt(curl, CURLOPT_FRESH_CONNECT, 1);
        val = json_rpc_call(curl, lp_url, pool->rpc_userpass,
                            lpreq, false, true, &rolltime, pool, false);

        cgtime(&reply);

        if (likely(val))
        {
            soval = json_object_get(json_object_get(val, "result"), "submitold");
            if (soval)
                pool->submit_old = json_is_true(soval);
            else
                pool->submit_old = false;
            convert_to_work(val, rolltime, pool, &start, &reply);
            failures = 0;
            json_decref(val);
        }
        else
        {
            /* Some pools regularly drop the longpoll request so
             * only see this as longpoll failure if it happens
             * immediately and just restart it the rest of the
             * time. */
            cgtime(&end);
            if (end.tv_sec - start.tv_sec > 30)
                continue;
            if (failures == 1)
                applog(LOG_WARNING, "longpoll failed for %s, retrying every 30s", lp_url);
            cgsleep_ms(30000);
        }

        if (pool != cp)
        {
            pool = select_longpoll_pool(cp);
            if (pool->has_stratum)
            {
                applog(LOG_WARNING, "Block change for %s detection via %s stratum",
                       cp->rpc_url, pool->rpc_url);
                break;
            }
            if (unlikely(!pool))
                goto retry_pool;
        }

        if (unlikely(pool->removed))
            break;
    }

out:
    curl_easy_cleanup(curl);

    return NULL;
}
#else /* HAVE_LIBCURL */
static void *longpoll_thread(void __maybe_unused *userdata)
{
    pthread_detach(pthread_self());
    return NULL;
}

#endif /* HAVE_LIBCURL */

void reinit_device(struct cgpu_info *cgpu)
{
    if (cgpu->deven == DEV_DISABLED)
    {
        return;
    }

#ifdef USE_USBUTILS
    /* Attempt a usb device reset if the device has gone sick */
    if (cgpu->usbdev && cgpu->usbdev->handle)
        libusb_reset_device(cgpu->usbdev->handle);
#endif
    cgpu->drv->reinit_device(cgpu);
}

static struct timeval rotate_tv;


/* We reap curls if they are unused for over a minute */
static void reap_curl(struct pool *pool)
{
    struct curl_ent *ent, *iter;
    struct timeval now;
    int reaped = 0;

    cgtime(&now);

    mutex_lock(&pool->pool_lock);

    list_for_each_entry_safe(ent, iter, &pool->curlring, node)
    {
        if (pool->curls < 2)
        {
            return;
        }

        if (now.tv_sec - ent->tv.tv_sec > 300)
        {
            reaped++;
            pool->curls--;
            list_del(&ent->node);
            curl_easy_cleanup(ent->curl);
            free(ent);
        }
    }
    mutex_unlock(&pool->pool_lock);

    if (reaped)
    {
        applog(LOG_DEBUG, "Reaped %d curl%s from pool %d", reaped, reaped > 1 ? "s" : "", pool->pool_no);
    }
}


/* Prune old shares we haven't had a response about for over 2 minutes in case
 * the pool never plans to respond and we're just leaking memory. If we get a
 * response beyond that time they will be seen as untracked shares. */
static void prune_stratum_shares(struct pool *pool)
{
    struct stratum_share *sshare, *tmpshare;
    time_t current_time = time(NULL);
    int cleared = 0;

    mutex_lock(&sshare_lock);

    HASH_ITER(hh, stratum_shares, sshare, tmpshare)
    {
        if (sshare->work->pool == pool && current_time > sshare->sshare_time + 120)
        {
            HASH_DEL(stratum_shares, sshare);
            free_work(sshare->work);
            free(sshare);
            cleared++;
        }
    }

    mutex_unlock(&sshare_lock);

    if (cleared)
    {
        applog(LOG_WARNING, "Lost %d shares due to no stratum share response from pool %d", cleared, pool->pool_no);
        pool->stale_shares += cleared;
        total_stale += cleared;
    }
}


static void *watchpool_thread(void __maybe_unused *userdata)
{
    int intervals = 0;
    cgtimer_t cgt;

    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);

    RenameThread("Watchpool");

    set_lowprio();
    cgtimer_time(&cgt);

    while (42)
    {
        struct timeval now;
        int i;

        if (++intervals > 120)
            intervals = 0;
        cgtime(&now);

        for (i = 0; i < total_pools; i++)
        {
            struct pool *pool = pools[i];

            if (!opt_benchmark && !opt_benchfile)
            {
                reap_curl(pool);
                prune_stratum_shares(pool);
            }

            if (intervals > 119)
                /* Get a rolling utility per pool over 10 mins */
            {
                double shares     = pool->diff1 - pool->last_shares;
                pool->last_shares = pool->diff1;
                pool->utility     = (pool->utility + shares * 0.63) / 1.63;
                pool->shares      = (int) pool->utility;
            }

            if (pool->enabled == POOL_DISABLED)
            {
                continue;
            }

            /* Don't start testing a pool if its test thread
             * from startup is still doing its first attempt. */
            if (unlikely(pool->testing))
            {
                continue;
            }

            if (pool_active(pool, true))
            {
                if (pool_tclear(pool, &pool->idle))
                {
                    pool_resus(pool);
                }
            }
            else
            {
                cgtime(&pool->tv_idle);
            }

            /* Only switch pools if the failback pool has been
             * alive for more than 5 minutes to prevent
             * intermittently failing pools from being used. */
            if (
                !pool->idle &&
                pool_strategy == POOL_FAILOVER &&
                pool->prio < cp_prio() &&
                now.tv_sec - pool->tv_idle.tv_sec > opt_pool_fallback
            )
            {
                applog(LOG_WARNING, "Pool %d %s stable for >%d seconds", pool->pool_no, pool->rpc_url, opt_pool_fallback);
                switch_pools(NULL);
            }
        }

        if (current_pool()->idle)
        {
            switch_pools(NULL);
        }

        if (pool_strategy == POOL_ROTATE && now.tv_sec - rotate_tv.tv_sec > 60 * opt_rotate_period)
        {
            cgtime(&rotate_tv);
            switch_pools(NULL);
        }

        cgsleep_ms_r(&cgt, 5000);
        cgtimer_time(&cgt);

    }

    return NULL;
}

/* Makes sure the hashmeter keeps going even if mining threads stall, updates
 * the screen at regular intervals, and restarts threads if they appear to have
 * died. */
#define WATCHDOG_INTERVAL       2
#define WATCHDOG_SICK_TIME      120
#define WATCHDOG_DEAD_TIME      600
#define WATCHDOG_SICK_COUNT     (WATCHDOG_SICK_TIME/WATCHDOG_INTERVAL)
#define WATCHDOG_DEAD_COUNT     (WATCHDOG_DEAD_TIME/WATCHDOG_INTERVAL)

static void *watchdog_thread(void __maybe_unused *userdata)
{
    const unsigned int interval = WATCHDOG_INTERVAL;
    struct timeval zero_tv;

#ifdef USE_LIBSYSTEMD
    uint64_t notify_usec;
    struct timeval notify_interval, notify_tv;

    if (sd_watchdog_enabled(false, &notify_usec))
    {
        notify_usec = notify_usec / 2;
        us_to_timeval(&notify_interval, notify_usec);
        cgtime(&notify_tv);
        addtime(&notify_interval, &notify_tv);

        applog(LOG_DEBUG, "Watchdog notify interval: %.3gs",
               notify_usec / 1000000.0);
    }
#endif

    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);

    RenameThread("Watchdog");

    set_lowprio();
    memset(&zero_tv, 0, sizeof(struct timeval));
    cgtime(&rotate_tv);

    while (1)
    {
        int i;
        struct timeval now;

        sleep(interval);

        discard_stale();

        hashmeter(-1, (uint64_t)0);

#ifdef HAVE_CURSES
        if (curses_active_locked())
        {
            struct cgpu_info *cgpu;
            int count;

            change_logwinsize();
            curses_print_status();
            count = 0;
            for (i = 0; i < total_devices; i++)
            {
                cgpu = get_devices(i);
#ifndef USE_USBUTILS
                if (cgpu)
#else
                if (cgpu && !cgpu->usbinfo.nodev)
#endif
                    curses_print_devstatus(cgpu, i, count++);
            }
#ifdef USE_USBUTILS
            for (i = 0; i < total_devices; i++)
            {
                cgpu = get_devices(i);
                if (cgpu && cgpu->usbinfo.nodev)
                    curses_print_devstatus(cgpu, i, count++);
            }
#endif
            touchwin(statuswin);
            wrefresh(statuswin);
            touchwin(logwin);
            wrefresh(logwin);
            unlock_curses();
        }
#endif

        cgtime(&now);

#if USE_LIBSYSTEMD
        if (notify_usec && !time_more(&notify_tv, &now))
        {
            sd_notify(false, "WATCHDOG=1");
            copy_time(&notify_tv, &now);
            addtime(&notify_interval, &notify_tv);
            applog(LOG_DEBUG, "Notified watchdog");
        }
#endif

        if (!sched_paused && !should_run())
        {
            applog(LOG_WARNING, "Pausing execution as per stop time %02d:%02d scheduled", schedstop.tm.tm_hour, schedstop.tm.tm_min);

            if (!schedstart.enable)
            {
                quit(0, "Terminating execution as planned");
                break;
            }

            applog(LOG_WARNING, "Will restart execution as scheduled at %02d:%02d", schedstart.tm.tm_hour, schedstart.tm.tm_min);
            sched_paused = true;

            rd_lock(&mining_thr_lock);

            for (i = 0; i < mining_threads; i++)
            {
                mining_thr[i]->pause = true;
            }

            rd_unlock(&mining_thr_lock);
        }
        else if (sched_paused && should_run())
        {
            applog(LOG_WARNING, "Restarting execution as per start time %02d:%02d scheduled", schedstart.tm.tm_hour, schedstart.tm.tm_min);

            if (schedstop.enable)
            {
                applog(LOG_WARNING, "Will pause execution as scheduled at %02d:%02d", schedstop.tm.tm_hour, schedstop.tm.tm_min);
            }

            sched_paused = false;

            for (i = 0; i < mining_threads; i++)
            {
                struct thr_info *thr;

                thr = get_thread(i);

                /* Don't touch disabled devices */
                if (thr->cgpu->deven == DEV_DISABLED)
                {
                    continue;
                }

                thr->pause = false;
                applog(LOG_DEBUG, "Pushing sem post to thread %d", thr->id);
                cgsem_post(&thr->sem);
            }
        }

        for (i = 0; i < total_devices; ++i)
        {
            struct cgpu_info *cgpu = get_devices(i);
            struct thr_info *thr = cgpu->thr[0];
            enum dev_enable *denable;
            char dev_str[8];

            if (!thr)
            {
                continue;
            }

            cgpu->drv->get_stats(cgpu);

            denable = &cgpu->deven;
            snprintf(dev_str, sizeof(dev_str), "%s %d", cgpu->drv->name, cgpu->device_id);

            /* Thread is waiting on getwork or disabled */
            if (thr->getwork || *denable == DEV_DISABLED)
            {
                continue;
            }

            if (cgpu->status != LIFE_WELL && (now.tv_sec - thr->last.tv_sec < WATCHDOG_SICK_TIME))
            {
                if (cgpu->status != LIFE_INIT)
                    applog(LOG_ERR, "%s: Recovered, declaring WELL!", dev_str);
                cgpu->status = LIFE_WELL;
                cgpu->device_last_well = time(NULL);
            }
            else if (cgpu->status == LIFE_WELL && (now.tv_sec - thr->last.tv_sec > WATCHDOG_SICK_TIME))
            {
                cgpu->rolling = 0;
                cgpu->status = LIFE_SICK;
                applog(LOG_ERR, "%s: Idle for more than 60 seconds, declaring SICK!", dev_str);
                cgtime(&thr->sick);

                dev_error(cgpu, REASON_DEV_SICK_IDLE_60);
                if (opt_restart)
                {
                    applog(LOG_ERR, "%s: Attempting to restart", dev_str);
                    reinit_device(cgpu);
                }
            }
            else if (cgpu->status == LIFE_SICK && (now.tv_sec - thr->last.tv_sec > WATCHDOG_DEAD_TIME))
            {
                cgpu->status = LIFE_DEAD;
                applog(LOG_ERR, "%s: Not responded for more than 10 minutes, declaring DEAD!", dev_str);
                cgtime(&thr->sick);

                dev_error(cgpu, REASON_DEV_DEAD_IDLE_600);
            }
            else if (now.tv_sec - thr->sick.tv_sec > 60 && (cgpu->status == LIFE_SICK || cgpu->status == LIFE_DEAD))
            {
                /* Attempt to restart a GPU that's sick or dead once every minute */
                cgtime(&thr->sick);

                if (opt_restart)
                {
                    reinit_device(cgpu);
                }
            }
        }
    }

    return NULL;
}

static void log_print_status(struct cgpu_info *cgpu)
{
    char logline[255];

    get_statline(logline, sizeof(logline), cgpu);
    applog(LOG_WARNING, "%s", logline);
}

static void noop_get_statline(char __maybe_unused *buf, size_t __maybe_unused bufsiz, struct cgpu_info __maybe_unused *cgpu);
void blank_get_statline_before(char *buf, size_t bufsiz, struct cgpu_info __maybe_unused *cgpu);

void print_summary(void)
{
    struct timeval diff;
    int hours, mins, secs, i;
    double utility, displayed_hashes, work_util;

    timersub(&total_tv_end, &total_tv_start, &diff);
    hours = diff.tv_sec / 3600;
    mins = (diff.tv_sec % 3600) / 60;
    secs = diff.tv_sec % 60;

    utility = total_accepted / total_secs * 60;
    work_util = total_diff1 / total_secs * 60;

    applog(LOG_WARNING, "\nSummary of runtime statistics:\n");
    applog(LOG_WARNING, "Started at %s", datestamp);

    if (total_pools == 1)
    {
        applog(LOG_WARNING, "Pool: %s", pools[0]->rpc_url);
    }

    applog(LOG_WARNING, "Runtime: %d hrs : %d mins : %d secs", hours, mins, secs);
    displayed_hashes = total_mhashes_done / total_secs;

    applog(LOG_WARNING, "Average hashrate: %.1f Mhash/s", displayed_hashes);
    applog(LOG_WARNING, "Solved blocks: %d", found_blocks);
    applog(LOG_WARNING, "Best share difficulty: %s", best_share);
    applog(LOG_WARNING, "Share submissions: %"PRId64, total_accepted + total_rejected);
    applog(LOG_WARNING, "Accepted shares: %"PRId64, total_accepted);
    applog(LOG_WARNING, "Rejected shares: %"PRId64, total_rejected);
    applog(LOG_WARNING, "Accepted difficulty shares: %1.f", total_diff_accepted);
    applog(LOG_WARNING, "Rejected difficulty shares: %1.f", total_diff_rejected);

    if (total_accepted || total_rejected)
    {
        applog(LOG_WARNING, "Reject ratio: %.1f%%", (double)(total_rejected * 100) / (double)(total_accepted + total_rejected));
    }

    applog(LOG_WARNING, "Hardware errors: %d", hw_errors);
    applog(LOG_WARNING, "Utility (accepted shares / min): %.2f/min", utility);
    applog(LOG_WARNING, "Work Utility (diff1 shares solved / min): %.2f/min\n", work_util);

    applog(LOG_WARNING, "Stale submissions discarded due to new blocks: %"PRId64, total_stale);
    applog(LOG_WARNING, "Unable to get work from server occasions: %d", total_go);
    applog(LOG_WARNING, "Work items generated locally: %d", local_work);
    applog(LOG_WARNING, "Submitting work remotely delay occasions: %d", total_ro);
    applog(LOG_WARNING, "New blocks detected on network: %d\n", new_blocks);

    if (total_pools > 1)
    {
        for (i = 0; i < total_pools; i++)
        {
            struct pool *pool = pools[i];

            applog(LOG_WARNING, "Pool: %s", pool->rpc_url);

            if (pool->solved)
            {
                applog(LOG_WARNING, "SOLVED %d BLOCK%s!", pool->solved, pool->solved > 1 ? "S" : "");
            }

            applog(LOG_WARNING, " Share submissions: %"PRId64, pool->accepted + pool->rejected);
            applog(LOG_WARNING, " Accepted shares: %"PRId64, pool->accepted);
            applog(LOG_WARNING, " Rejected shares: %"PRId64, pool->rejected);
            applog(LOG_WARNING, " Accepted difficulty shares: %1.f", pool->diff_accepted);
            applog(LOG_WARNING, " Rejected difficulty shares: %1.f", pool->diff_rejected);

            if (pool->accepted || pool->rejected)
            {
                applog(LOG_WARNING, " Reject ratio: %.1f%%", (double)(pool->rejected * 100) / (double)(pool->accepted + pool->rejected));
            }

            applog(LOG_WARNING, " Items worked on: %d", pool->works);
            applog(LOG_WARNING, " Stale submissions discarded due to new blocks: %d", pool->stale_shares);
            applog(LOG_WARNING, " Unable to get work from server occasions: %d", pool->getfail_occasions);
            applog(LOG_WARNING, " Submitting work remotely delay occasions: %d\n", pool->remotefail_occasions);
        }
    }

    applog(LOG_WARNING, "Summary of per device statistics:\n");

    for (i = 0; i < total_devices; ++i)
    {
        struct cgpu_info *cgpu = get_devices(i);

        cgpu->drv->get_statline_before = (void (*)(char *, size_t, struct cgpu_info *)) &blank_get_statline_before;
        cgpu->drv->get_statline = (void (*)(char *, size_t, struct cgpu_info *)) &noop_get_statline;
        log_print_status(cgpu);
    }

    if (opt_shares)
    {
        applog(LOG_WARNING, "Mined %.0f accepted shares of %d requested\n", total_diff_accepted, opt_shares);
        if (opt_shares > total_diff_accepted)
            applog(LOG_WARNING, "WARNING - Mined only %.0f shares of %d requested.", total_diff_accepted, opt_shares);
    }

    applog(LOG_WARNING, " ");

    fflush(stderr);
    fflush(stdout);
}

static void clean_up(bool restarting)
{
    struct sysinfo sInfo;
    if (sysinfo(&sInfo))
    {
        applog(LOG_INFO, "Failed to get sysinfo, errno:%u, reason:%s\n",
               errno, strerror(errno));
        total_tv_end_sys=time(NULL);
    }
    else
    {
        total_tv_end_sys=sInfo.uptime;
    }

#ifdef USE_USBUTILS
    usb_polling = false;
    pthread_join(usb_poll_thread, NULL);
    libusb_exit(NULL);
#endif

    cgtime(&total_tv_end);

#ifdef HAVE_CURSES
    disable_curses();
#endif
    if (!restarting && !opt_realquiet && successful_connect)
    {
        print_summary();
    }

    curl_global_cleanup();
}

/* Should all else fail and we're unable to clean up threads due to locking
 * issues etc, just silently exit. */
static void *killall_thread(void __maybe_unused *arg)
{
    pthread_detach(pthread_self());
    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);
    sleep(7);
    exit(1);
    return NULL;
}

void __quit(int status, bool clean)
{
    pthread_t killall_t;

#ifdef USE_LIBSYSTEMD
    sd_notify(false, "STOPPING=1\n"
              "STATUS=Shutting down...");
#endif

    if (unlikely(pthread_create(&killall_t, NULL, killall_thread, NULL)))
    {
        exit(1);
    }

    if (clean)
    {
        clean_up(false);
    }

#ifdef HAVE_CURSES
    else
        disable_curses();
#endif

#if defined(unix) || defined(__APPLE__)
    if (forkpid > 0)
    {
        kill(forkpid, SIGTERM);
        forkpid = 0;
    }
#endif
    pthread_cancel(killall_t);

    exit(status);
}

void _quit(int status)
{
    __quit(status, true);
}

#ifdef HAVE_CURSES
char *curses_input(const char *query)
{
    char *input;

    echo();
    input = cgmalloc(255);
    leaveok(logwin, false);
    wlogprint("%s:\n", query);
    wgetnstr(logwin, input, 255);
    if (!strlen(input))
        strcpy(input, "-1");
    leaveok(logwin, true);
    noecho();
    return input;
}
#endif

static bool pools_active = false;

static void *test_pool_thread(void *arg)
{
    struct pool *pool = (struct pool *)arg;

    if (!pool->blocking)
    {
        pthread_detach(pthread_self());
    }

retry:
    if (pool->removed)
    {
        goto out;
    }

    if (pool_active(pool, false))
    {
        pool_tclear(pool, &pool->idle);
        bool first_pool = false;

        cg_wlock(&control_lock);

        if (!pools_active)
        {
            currentpool = pool;

            if (pool->pool_no != 0)
            {
                first_pool = true;
            }

            pools_active = true;
        }

        cg_wunlock(&control_lock);

        if (unlikely(first_pool))
        {
            applog(LOG_NOTICE, "Switching to pool %d %s - first alive pool", pool->pool_no, pool->rpc_url);
        }

        pool_resus(pool);
        switch_pools(NULL);
    }
    else
    {
        pool_died(pool);

        if (!pool->blocking)
        {
            sleep(30);
            goto retry;
        }
    }

    pool->testing = false;
out:
    return NULL;
}


/* Always returns true that the pool details were added unless we are not
 * live, implying this is the only pool being added, so if no pools are
 * active it returns false. */
bool add_pool_details(struct pool *pool, bool live, char *url, char *user, char *pass)
{
    size_t siz;

    url                = get_proxy(url, pool);
    pool->rpc_url      = url;
    pool->rpc_user     = user;
    pool->rpc_pass     = pass;
    siz                = strlen(pool->rpc_user) + strlen(pool->rpc_pass) + 2;
    pool->rpc_userpass = cgmalloc(siz);

    snprintf(pool->rpc_userpass, siz, "%s:%s", pool->rpc_user, pool->rpc_pass);

    pool->testing  = true;
    pool->idle     = true;
    pool->blocking = !live;

    enable_pool(pool);

    pthread_create(&pool->test_thread, NULL, test_pool_thread, (void *)pool);

    if (!live)
    {
        pthread_join(pool->test_thread, NULL);
        return pools_active;
    }

    return true;
}

#ifdef HAVE_CURSES
static bool input_pool(bool live)
{
    char *url, *user, *pass;
    struct pool *pool;
    bool ret = false;

    immedok(logwin, true);
    wlogprint("Input server details.\n");

retry:
    url = NULL;
    user = NULL;
    pass = NULL;
    url = curses_input("URL");
    if (!strcmp(url, "-1"))
    {
        wlogprint("Invalid input\n");
        goto out;
    }

    user = curses_input("Username");
    if (!strcmp(user, "-1"))
    {
        wlogprint("Invalid input\n");
        goto out;
    }

    pass = curses_input("Password [enter for none]");
    if (!strcmp(pass, "-1"))
    {
        free(pass);
        pass = strdup("");
    }

    pool = add_pool();
    url = setup_url(pool, url);
    ret = add_pool_details(pool, live, url, user, pass);
    if (!ret)
    {
        remove_pool(pool);
        wlogprint("URL %s failed alive testing, reinput details\n", url);
        free(url);
        free(user);
        free(pass);
        goto retry;
    }
out:
    immedok(logwin, false);

    if (!ret)
    {
        free(url);
        free(user);
        free(pass);
    }
    return ret;
}
#endif

#if defined(unix) || defined(__APPLE__)
static void fork_monitor()
{
    // Make a pipe: [readFD, writeFD]
    int pfd[2];
    int r = pipe(pfd);

    if (r < 0)
    {
        perror("pipe - failed to create pipe for --monitor");
        exit(1);
    }

    // Make stderr write end of pipe
    fflush(stderr);
    r = dup2(pfd[1], 2);
    if (r < 0)
    {
        perror("dup2 - failed to alias stderr to write end of pipe for --monitor");
        exit(1);
    }
    r = close(pfd[1]);
    if (r < 0)
    {
        perror("close - failed to close write end of pipe for --monitor");
        exit(1);
    }

    // Don't allow a dying monitor to kill the main process
    sighandler_t sr0 = signal(SIGPIPE, SIG_IGN);
    sighandler_t sr1 = signal(SIGPIPE, SIG_IGN);
    if (SIG_ERR == sr0 || SIG_ERR == sr1)
    {
        perror("signal - failed to edit signal mask for --monitor");
        exit(1);
    }

    // Fork a child process
    forkpid = fork();
    if (forkpid < 0)
    {
        perror("fork - failed to fork child process for --monitor");
        exit(1);
    }

    // Child: launch monitor command
    if (0 == forkpid)
    {
        // Make stdin read end of pipe
        r = dup2(pfd[0], 0);
        if (r < 0)
        {
            perror("dup2 - in child, failed to alias read end of pipe to stdin for --monitor");
            exit(1);
        }
        close(pfd[0]);
        if (r < 0)
        {
            perror("close - in child, failed to close read end of  pipe for --monitor");
            exit(1);
        }

        // Launch user specified command
        execl("/bin/bash", "/bin/bash", "-c", opt_stderr_cmd, (char*)NULL);
        perror("execl - in child failed to exec user specified command for --monitor");
        exit(1);
    }

    // Parent: clean up unused fds and bail
    r = close(pfd[0]);
    if (r < 0)
    {
        perror("close - failed to close read end of pipe for --monitor");
        exit(1);
    }
}
#endif // defined(unix)

#ifdef HAVE_CURSES
static void enable_curses_windows(void)
{
    int x,y;

    getmaxyx(mainwin, y, x);
    statuswin = newwin(logstart, x, 0, 0);
    leaveok(statuswin, true);
    logwin = newwin(y - logcursor, 0, logcursor, 0);
    idlok(logwin, true);
    scrollok(logwin, true);
    leaveok(logwin, true);
    cbreak();
    noecho();
}
void enable_curses(void)
{
    lock_curses();
    if (curses_active)
    {
        unlock_curses();
        return;
    }

    mainwin = initscr();
    enable_curses_windows();
    curses_active = true;
    statusy = logstart;
    unlock_curses();
}
#endif

static int cgminer_id_count = 0;

/* Various noop functions for drivers that don't support or need their
 * variants. */
static void noop_reinit_device(struct cgpu_info __maybe_unused *cgpu)
{
}


void blank_get_statline_before(char __maybe_unused *buf,size_t __maybe_unused bufsiz, struct cgpu_info __maybe_unused *cgpu)
{
}


static void noop_get_statline(char __maybe_unused *buf, size_t __maybe_unused bufsiz, struct cgpu_info __maybe_unused *cgpu)
{
}


static bool noop_get_stats(struct cgpu_info __maybe_unused *cgpu)
{
    return true;
}


static bool noop_thread_prepare(struct thr_info __maybe_unused *thr)
{
    return true;
}

static uint64_t noop_can_limit_work(struct thr_info __maybe_unused *thr)
{
    return (uint64_t)0xffffffff;
}

static bool noop_thread_init(struct thr_info __maybe_unused *thr)
{
    return true;
}


static bool noop_prepare_work(struct thr_info __maybe_unused *thr, struct work __maybe_unused *work)
{
    return true;
}


static void noop_hw_error(struct thr_info __maybe_unused *thr)
{
}


static void noop_thread_shutdown(struct thr_info __maybe_unused *thr)
{
}


static void noop_thread_enable(struct thr_info __maybe_unused *thr)
{
}


static void noop_detect(bool __maybe_unused hotplug)
{
}


static struct api_data *noop_get_api_stats(struct cgpu_info __maybe_unused *cgpu)
{
    return NULL;
}


static void noop_hash_work(struct thr_info __maybe_unused *thr)
{
}


static void generic_zero_stats(struct cgpu_info *cgpu)
{
    cgpu->diff_accepted = cgpu->diff_rejected = cgpu->hw_errors = 0;
}


#define noop_flush_work noop_reinit_device
#define noop_update_work noop_reinit_device
#define noop_queue_full noop_get_stats
#define noop_zero_stats noop_reinit_device
#define noop_identify_device noop_reinit_device

/* Fill missing driver drv functions with noops */
void fill_device_drv(struct device_drv *drv)
{
    if (!drv->drv_detect)
    {
        drv->drv_detect = (void (*)(bool)) &noop_detect;
    }

    if (!drv->reinit_device)
    {
        drv->reinit_device = &noop_reinit_device;
    }

    if (!drv->get_statline_before)
    {
        drv->get_statline_before = (void (*)(char *, size_t, struct cgpu_info *)) &blank_get_statline_before;
    }

    if (!drv->get_statline)
    {
        drv->get_statline = (void (*)(char *, size_t, struct cgpu_info *)) &noop_get_statline;
    }

    if (!drv->get_stats)
    {
        drv->get_stats = (bool (*)(struct cgpu_info *)) &noop_get_stats;
    }

    if (!drv->thread_prepare)
    {
        drv->thread_prepare = (bool (*)(struct thr_info *)) &noop_thread_prepare;
    }

    if (!drv->can_limit_work)
    {
        //drv->can_limit_work = &noop_can_limit_work;
    }

    if (!drv->thread_init)
    {
        drv->thread_init = (bool (*)(struct thr_info *)) &noop_thread_init;
    }

    if (!drv->prepare_work)
    {
        drv->prepare_work = (bool (*)(struct thr_info *, struct work *)) &noop_prepare_work;
    }

    if (!drv->hw_error)
    {
        drv->hw_error = &noop_hw_error;
    }

    if (!drv->thread_shutdown)
    {
        drv->thread_shutdown = &noop_thread_shutdown;
    }

    if (!drv->thread_enable)
    {
        drv->thread_enable = &noop_thread_enable;
    }

    if (!drv->hash_work)
    {
        drv->hash_work = &hash_sole_work;
    }

    if (!drv->flush_work)
    {
        drv->flush_work = &noop_flush_work;
    }

    if (!drv->update_work)
    {
        drv->update_work = &noop_update_work;
    }

    if (!drv->queue_full)
    {
        drv->queue_full = (bool (*)(struct cgpu_info *)) &noop_queue_full;
    }

    if (!drv->zero_stats)
    {
        drv->zero_stats = &generic_zero_stats;
    }

    /* If drivers support internal diff they should set a max_diff or
     * we will assume they don't and set max to 1. */
    if (!drv->max_diff)
    {
        drv->max_diff = 1;
    }
}

void null_device_drv(struct device_drv *drv)
{
    drv->drv_detect          = (void (*)(bool)) &noop_detect;
    drv->reinit_device       = &noop_reinit_device;
    drv->get_statline_before = (void (*)(char *, size_t, struct cgpu_info *)) &blank_get_statline_before;
    drv->get_statline        = (void (*)(char *, size_t, struct cgpu_info *)) &noop_get_statline;
    drv->get_api_stats       = &noop_get_api_stats;
    drv->get_stats           = (bool (*)(struct cgpu_info *)) &noop_get_stats;
    drv->identify_device     = &noop_identify_device;
    drv->set_device          = NULL;
    drv->thread_prepare      = (bool (*)(struct thr_info *)) &noop_thread_prepare;
    drv->can_limit_work      = (uint32_t (*)(struct thr_info *)) &noop_can_limit_work;
    drv->thread_init         = (bool (*)(struct thr_info *)) &noop_thread_init;
    drv->prepare_work        = (bool (*)(struct thr_info *, struct work *)) &noop_prepare_work;
    /* This should make the miner thread just exit */
    drv->hash_work           = &noop_hash_work;
    drv->hw_error            = &noop_hw_error;
    drv->thread_shutdown     = &noop_thread_shutdown;
    drv->thread_enable       = &noop_thread_enable;
    drv->zero_stats          = &generic_zero_stats;
    drv->hash_work           = &noop_hash_work;
    drv->queue_full          = (bool (*)(struct cgpu_info *)) &noop_queue_full;
    drv->flush_work          = &noop_flush_work;
    drv->update_work         = &noop_update_work;
    drv->max_diff            = 1;
    drv->min_diff            = 1;

}

void enable_device(struct cgpu_info *cgpu)
{
    cgpu->deven = DEV_ENABLED;

    wr_lock(&devices_lock);
    devices[cgpu->cgminer_id = cgminer_id_count++] = cgpu;
    wr_unlock(&devices_lock);

    if (hotplug_mode)
    {
        new_threads += cgpu->threads;
    }
    else
    {
        mining_threads += cgpu->threads;
    }

    rwlock_init(&cgpu->qlock);
    cgpu->queued_work = NULL;
}


struct _cgpu_devid_counter
{
    char name[4];
    int lastid;
    UT_hash_handle hh;
};


static void adjust_mostdevs(void)
{
    if (total_devices - zombie_devs > most_devices)
    {
        most_devices = total_devices - zombie_devs;
    }
}


bool add_cgpu(struct cgpu_info *cgpu)
{
    static struct _cgpu_devid_counter *devids = NULL;
    struct _cgpu_devid_counter *d;

    HASH_FIND_STR(devids, cgpu->drv->name, d);
    if (d)
    {
        cgpu->device_id = ++d->lastid;
    }
    else
    {
        d = cgmalloc(sizeof(*d));
        cg_memcpy(d->name, cgpu->drv->name, sizeof(d->name));
        cgpu->device_id = d->lastid = 0;
        HASH_ADD_STR(devids, name, d);
    }

    wr_lock(&devices_lock);
    devices = cgrealloc(devices, sizeof(struct cgpu_info *) * (total_devices + new_devices + 2));
    wr_unlock(&devices_lock);

    mutex_lock(&stats_lock);
    cgpu->last_device_valid_work = time(NULL);
    mutex_unlock(&stats_lock);

    if (hotplug_mode)
    {
        devices[total_devices + new_devices++] = cgpu;
    }
    else
    {
        devices[total_devices++] = cgpu;
    }

    adjust_mostdevs();
#ifdef USE_USBUTILS
    if (cgpu->usbdev && !cgpu->unique_id && cgpu->usbdev->serial_string &&
        strlen(cgpu->usbdev->serial_string) > 4)
        cgpu->unique_id = str_text(cgpu->usbdev->serial_string);
#endif
    return true;
}

struct device_drv *copy_drv(struct device_drv *drv)
{
    struct device_drv *copy;

    copy = cgmalloc(sizeof(*copy));
    cg_memcpy(copy, drv, sizeof(*copy));
    copy->copy = true;
    return copy;
}

#ifdef USE_USBUTILS
static void hotplug_process(void)
{
    struct thr_info *thr;
    int i, j;

    for (i = 0; i < new_devices; i++)
    {
        struct cgpu_info *cgpu;
        int dev_no = total_devices + i;

        cgpu = devices[dev_no];
        enable_device(cgpu);
        cgpu->cgminer_stats.getwork_wait_min.tv_sec = MIN_SEC_UNSET;
        cgpu->rolling = cgpu->total_mhashes = 0;
    }

    wr_lock(&mining_thr_lock);
    mining_thr = cgrealloc(mining_thr, sizeof(thr) * (mining_threads + new_threads + 1));
    for (i = 0; i < new_threads; i++)
        mining_thr[mining_threads + i] = cgcalloc(1, sizeof(*thr));

    // Start threads
    for (i = 0; i < new_devices; ++i)
    {
        struct cgpu_info *cgpu = devices[total_devices];
        cgpu->thr = cgmalloc(sizeof(*cgpu->thr) * (cgpu->threads+1));
        cgpu->thr[cgpu->threads] = NULL;
        cgpu->status = LIFE_INIT;
        cgtime(&(cgpu->dev_start_tv));

        for (j = 0; j < cgpu->threads; ++j)
        {
            thr = __get_thread(mining_threads);
            thr->id = mining_threads;
            thr->cgpu = cgpu;
            thr->device_thread = j;

            if (!cgpu->drv->thread_prepare(thr))
            {
                null_device_drv(cgpu->drv);
                cgpu->deven = DEV_DISABLED;
                continue;
            }

            if (unlikely(thr_info_create(thr, NULL, miner_thread, thr)))
                quit(1, "hotplug thread %d create failed", thr->id);

            cgpu->thr[j] = thr;

            /* Enable threads for devices set not to mine but disable
             * their queue in case we wish to enable them later */
            if (cgpu->deven != DEV_DISABLED)
            {
                applog(LOG_DEBUG, "Pushing sem post to thread %d", thr->id);
                cgsem_post(&thr->sem);
            }

            mining_threads++;
        }
        total_devices++;
        applog(LOG_WARNING, "Hotplug: %s added %s %i", cgpu->drv->dname, cgpu->drv->name, cgpu->device_id);
    }
    wr_unlock(&mining_thr_lock);

    adjust_mostdevs();
#ifdef HAVE_CURSES
    switch_logsize(true);
#endif
}

#define DRIVER_DRV_DETECT_HOTPLUG(X) X##_drv.drv_detect(true);

static void *hotplug_thread(void __maybe_unused *userdata)
{
    pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS, NULL);

    RenameThread("Hotplug");

    hotplug_mode = true;

    cgsleep_ms(5000);

    while (0x2a)
    {
// Version 0.1 just add the devices on - worry about using nodev later

        if (hotplug_time == 0)
            cgsleep_ms(5000);
        else
        {
            new_devices = 0;
            new_threads = 0;

            /* Use the DRIVER_PARSE_COMMANDS macro to detect all
             * devices */
            DRIVER_PARSE_COMMANDS(DRIVER_DRV_DETECT_HOTPLUG)

            if (new_devices)
                hotplug_process();

            // hotplug_time >0 && <=9999
            cgsleep_ms(hotplug_time * 1000);
        }
    }

    return NULL;
}
#endif

static void probe_pools(void)
{
    int i;

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];

        pool->testing = true;
        pthread_create(&pool->test_thread, NULL, test_pool_thread, (void *)pool);
    }
}

#define DRIVER_FILL_DEVICE_DRV(X) fill_device_drv(&X##_drv);
#define DRIVER_DRV_DETECT_ALL(X) X##_drv.drv_detect(false);

#ifdef USE_USBUTILS
static void *libusb_poll_thread(void __maybe_unused *arg)
{
    struct timeval tv_end = {0, 100000};

    RenameThread("USBPoll");

    while (likely(usb_polling))
    {
        libusb_handle_events_timeout_completed(NULL, &tv_end, NULL);
    }

    /* Cancel any cancellable usb transfers */
    cancel_usb_transfers();

    /* Keep event handling going until there are no async transfers in
     * flight. */
    tv_end.tv_sec = 0;
    while (async_usb_transfers())
    {
        libusb_handle_events_timeout_completed(NULL, &tv_end, NULL);
    };

    return NULL;
}

static void initialise_usb(void)
{
    int err = libusb_init(NULL);

    if (err)
    {
        fprintf(stderr, "libusb_init() failed err %d", err);
        fflush(stderr);
        quit(1, "libusb_init() failed");
    }
    initialise_usblocks();
    usb_polling = true;
    pthread_create(&usb_poll_thread, NULL, libusb_poll_thread, NULL);
}
#else

#define initialise_usb() {}

#endif

void setStartTimePoint()
{
    char logstr[256];
    struct sysinfo sInfo;
    if (sysinfo(&sInfo))
    {
        sprintf(logstr, "Failed to get sysinfo, errno:%u, reason:%s\n",
                errno, strerror(errno));
        writeInitLogFile(logstr);

        total_tv_start_sys=time(NULL);
        total_tv_end_sys=total_tv_start_sys+1;
    }
    else
    {
        total_tv_start_sys=sInfo.uptime;
        total_tv_end_sys=total_tv_start_sys+1;

        sprintf(logstr, "setStartTimePoint total_tv_start_sys=%d total_tv_end_sys=%d\n",total_tv_start_sys, total_tv_end_sys);
        writeInitLogFile(logstr);
    }
}

int main(int argc, char *argv[])
{
    struct sigaction handler;

    struct work *work = NULL;
    bool pool_msg     = false;

    struct thr_info *thr;
    struct block *block;
    int i, j, slept = 0;
    unsigned int k;
    char *s;
    struct sysinfo sInfo;

    g_logfile_enable = false;

#ifdef USE_BITMAIN_C5
    strcpy(g_logfile_path, "bmminer.log");
#endif

#ifdef USE_BITMAIN
    strcpy(g_logfile_path, "cgminer.log");
#endif

    strcpy(g_logfile_openflag, "a+");
    /* This dangerous functions tramples random dynamically allocated
     * variables so do it before anything at all */
    if (unlikely(curl_global_init(CURL_GLOBAL_ALL)))
    {
        early_quit(1, "Failed to curl_global_init");
    }

#ifdef USE_LIBSYSTEMD
    sd_notify(false, "STATUS=Starting up...");
#endif

# ifdef __linux
    /* If we're on a small lowspec platform with only one CPU, we should
     * yield after dropping a lock to allow a thread waiting for it to be
     * able to get CPU time to grab the lock. */
    if (sysconf(_SC_NPROCESSORS_ONLN) == 1)
        selective_yield = &sched_yield;
#endif

#if LOCK_TRACKING
    // Must be first
    if (unlikely(pthread_mutex_init(&lockstat_lock, NULL)))
        quithere(1, "Failed to pthread_mutex_init lockstat_lock errno=%d", errno);
#endif

    initial_args = cgmalloc(sizeof(char *) * (argc + 1));

    for  (i = 0; i < argc; i++)
    {
        initial_args[i] = strdup(argv[i]);
    }

    initial_args[argc] = NULL;

    mutex_init(&hash_lock);
    mutex_init(&update_job_lock); // S9
    mutex_init(&console_lock);
    cglock_init(&control_lock);
    mutex_init(&stats_lock);
    mutex_init(&sharelog_lock);
    cglock_init(&ch_lock);
    mutex_init(&sshare_lock);
    rwlock_init(&blk_lock);
    rwlock_init(&netacc_lock);
    rwlock_init(&mining_thr_lock);
    rwlock_init(&devices_lock);

    mutex_init(&lp_lock);

    if (unlikely(pthread_cond_init(&lp_cond, NULL)))
    {
        early_quit(1, "Failed to pthread_cond_init lp_cond");
    }

    mutex_init(&restart_lock);

    if (unlikely(pthread_cond_init(&restart_cond, NULL)))
    {
        early_quit(1, "Failed to pthread_cond_init restart_cond");
    }

    if (unlikely(pthread_cond_init(&gws_cond, NULL)))
    {
        early_quit(1, "Failed to pthread_cond_init gws_cond");
    }

    /* Create a unique get work queue */
    getq = tq_new();

    if (!getq)
    {
        early_quit(1, "Failed to create getq");
    }


    /* We use the getq mutex as the staged lock */
    stgd_lock = &getq->mutex;

    initialise_usb();

    snprintf(packagename, sizeof(packagename), "%s %s", PACKAGE, VERSION);

    handler.sa_handler = &sighandler;
    handler.sa_flags = 0;
    sigemptyset(&handler.sa_mask);
    sigaction(SIGTERM, &handler, &termhandler);
    sigaction(SIGINT, &handler, &inthandler);
    sigaction(SIGABRT, &handler, &abrthandler);

    opt_kernel_path = alloca(PATH_MAX);
    strcpy(opt_kernel_path, CGMINER_PREFIX);
    cgminer_path = alloca(PATH_MAX);
    s = strdup(argv[0]);
    strcpy(cgminer_path, dirname(s));
    free(s);
    strcat(cgminer_path, "/");

    devcursor = 8;
    logstart = devcursor + 1;
    logcursor = logstart + 1;

    block = cgcalloc(sizeof(struct block), (size_t) 1);

    for (i = 0; i < 36; i++)
    {
        strcat(block->hash, "0");
    }

    HASH_ADD_STR(blocks, hash, block);
    strcpy(current_hash, block->hash);

    INIT_LIST_HEAD(&scan_devices);

    /* parse command line */
    opt_register_table(opt_config_table,
                       "Options for both config file and command line");

    opt_register_table(opt_cmdline_table,
                       "Options for command line only");

    opt_parse(&argc, argv, applog_and_exit);

    if (argc != 1)
    {
        early_quit(1, "Unexpected extra commandline arguments");
    }

    if (!config_loaded)
    {
        load_default_config();
    }

    if (opt_benchmark || opt_benchfile)
    {
        struct pool *pool;

        pool = add_pool();
        pool->rpc_url = cgmalloc((size_t)255);

        if (opt_benchfile)
        {
            strcpy(pool->rpc_url, "Benchfile");
        }
        else
        {
            strcpy(pool->rpc_url, "Benchmark");
        }

        pool->rpc_user = pool->rpc_url;
        pool->rpc_pass = pool->rpc_url;
        pool->rpc_userpass = pool->rpc_url;
        pool->sockaddr_url = pool->rpc_url;
        strncpy(pool->diff, "?", sizeof(pool->diff)-1);
        pool->diff[sizeof(pool->diff)-1] = '\0';
        enable_pool(pool);
        pool->idle = false;
        successful_connect = true;

        for (i = 0; i < 16; i++)
        {
            hex2bin(&bench_hidiff_bins[i][0], &bench_hidiffs[i][0], (size_t) 160);
            hex2bin(&bench_lodiff_bins[i][0], &bench_lodiffs[i][0], (size_t) 160);
        }

        set_target(bench_target, 32);
    }

    if(opt_version_path)
    {
        FILE * fpversion = fopen(opt_version_path, "rb");
        char tmp[256] = {0};
        int len = 0;
        char * start = 0;

        if(fpversion == NULL)
        {
            applog(LOG_ERR, "Open miner version file %s error", opt_version_path);
        }
        else
        {
            len = fread(tmp, 1, 256, fpversion);

            if(len <= 0)
            {
                applog(LOG_ERR, "Read miner version file %s error %d", opt_version_path, len);
            }
            else
            {
                start = strstr(tmp, "\n");

                if(start == NULL)
                {
                    strcpy(g_miner_compiletime, tmp);
                }
                else
                {
                    cg_memcpy(g_miner_compiletime, tmp, start-tmp);
                    strcpy(g_miner_type, start+1);
                }

                if(g_miner_compiletime[strlen(g_miner_compiletime)-1] == '\n')
                {
                    g_miner_compiletime[strlen(g_miner_compiletime)-1] = 0;
                }

                if(g_miner_compiletime[strlen(g_miner_compiletime)-1] == '\r')
                {
                    g_miner_compiletime[strlen(g_miner_compiletime)-1] = 0;
                }

                if(g_miner_type[strlen(g_miner_type)-1] == '\n')
                {
                    g_miner_type[strlen(g_miner_type)-1] = 0;
                }

                if(g_miner_type[strlen(g_miner_type)-1] == '\r')
                {
                    g_miner_type[strlen(g_miner_type)-1] = 0;
                }
            }
        }

        applog(LOG_ERR, "Miner compile time: %s type: %s", g_miner_compiletime, g_miner_type);
    }

    if(opt_logfile_path)
    {
        g_logfile_enable = true;
        strcpy(g_logfile_path, opt_logfile_path);

        if(opt_logfile_openflag)
        {
            strcpy(g_logfile_openflag, opt_logfile_openflag);
        }

        applog(LOG_ERR, "Log file path: %s Open flag: %s", g_logfile_path, g_logfile_openflag);
    }

    if(opt_logwork_path)
    {
        char szfilepath[256] = {0};

        if(opt_logwork_asicnum)
        {
            if(strlen(opt_logwork_asicnum) <= 0)
            {
                quit(1, "Log work asic num empty");
            }

            g_logwork_asicnum = atoi(opt_logwork_asicnum);

            if(g_logwork_asicnum != 1 && g_logwork_asicnum != 32 && g_logwork_asicnum != 64)
            {
                quit(1, "Log work asic num must be 1, 32, 64");
            }

            applog(LOG_ERR, "Log work path: %s Asic num: %s", opt_logwork_path, opt_logwork_asicnum);
        }
        else
        {
            applog(LOG_ERR, "Log work path: %s", opt_logwork_path);
        }

        sprintf(szfilepath, "%s.txt", opt_logwork_path);
        g_logwork_file = fopen(szfilepath, "a+");
        applog(LOG_ERR, "Log work open file %s", szfilepath);

        if(g_logwork_asicnum == 1)
        {
            sprintf(szfilepath, "%s%02d.txt", opt_logwork_path, g_logwork_asicnum);
            g_logwork_files[0] = fopen(szfilepath, "a+");
            applog(LOG_ERR, "Log work open asic %d file %s", g_logwork_asicnum, szfilepath);
        }
        else if(g_logwork_asicnum == 32 || g_logwork_asicnum == 64)
        {
            for(i = 0; i <= g_logwork_asicnum; i++)
            {
                sprintf(szfilepath, "%s%02d_%02d.txt", opt_logwork_path, g_logwork_asicnum, i);
                g_logwork_files[i] = fopen(szfilepath, "a+");
                applog(LOG_ERR, "Log work open asic %d file %s", g_logwork_asicnum, szfilepath);
            }
        }

        if(opt_logwork_diff)
        {
            for(i = 0; i <= 64; i++)
            {
                sprintf(szfilepath, "%s_diff_%02d.txt", opt_logwork_path, i);
                g_logwork_diffs[i] = fopen(szfilepath, "a+");
                applog(LOG_ERR, "Log work open diff file %s", szfilepath);
            }
        }
    }

#ifdef HAVE_CURSES
    if (opt_realquiet || opt_display_devs)
        use_curses = false;

    if (use_curses)
        enable_curses();
#endif

    applog(LOG_WARNING, "Started %s", packagename);
    if (cnfbuf)
    {
        applog(LOG_NOTICE, "Loaded configuration file %s", cnfbuf);
        switch (fileconf_load)
        {
            case 0:
                applog(LOG_WARNING, "Fatal JSON error in configuration file.");
                applog(LOG_WARNING, "Configuration file could not be used.");
                break;

            case -1:
                applog(LOG_WARNING, "Error in configuration file, partially loaded.");

                if (use_curses)
                {
                    applog(LOG_WARNING, "Start cgminer with -T to see what failed to load.");
                }

                break;

            default:
                break;

        }

        free(cnfbuf);
        cnfbuf = NULL;
    }

    strcat(opt_kernel_path, "/");

    if (want_per_device_stats)
    {
        opt_log_output = true;
    }

#ifdef HAVE_SYSLOG_H
    if (opt_log_output)
        setlogmask(LOG_UPTO(LOG_DEBUG));
    else
        setlogmask(LOG_UPTO(LOG_NOTICE));
#endif

    if (opt_scantime < 0)
    {
        opt_scantime = 60;
    }

    total_control_threads = 8;
    control_thr = cgcalloc(total_control_threads, sizeof(*thr));

    gwsched_thr_id = 0;

#ifdef USE_USBUTILS
    usb_initialise();

    // before device detection
    cgsem_init(&usb_resource_sem);
    usbres_thr_id = 1;
    thr = &control_thr[usbres_thr_id];
    if (thr_info_create(thr, NULL, usb_resource_thread, thr))
        early_quit(1, "usb resource thread create failed");
    pthread_detach(thr->pth);
#endif

    /* Use the DRIVER_PARSE_COMMANDS macro to fill all the device_drvs */
    DRIVER_PARSE_COMMANDS(DRIVER_FILL_DEVICE_DRV)

    /* Use the DRIVER_PARSE_COMMANDS macro to detect all devices */
    DRIVER_PARSE_COMMANDS(DRIVER_DRV_DETECT_ALL)

    if (opt_display_devs)
    {
        applog(LOG_ERR, "Devices detected:");
        for (i = 0; i < total_devices; ++i)
        {
            struct cgpu_info *cgpu = devices[i];
            if (cgpu->name)
            {
                applog(LOG_ERR, " %2d. %s %d: %s (driver: %s)", i, cgpu->drv->name, cgpu->device_id, cgpu->name, cgpu->drv->dname);
            }
            else
            {
                applog(LOG_ERR, " %2d. %s %d (driver: %s)", i, cgpu->drv->name, cgpu->device_id, cgpu->drv->dname);
            }
        }

        early_quit(0, "%d devices listed", total_devices);
    }

    mining_threads = 0;
    for (i = 0; i < total_devices; ++i)
    {
        enable_device(devices[i]);
    }

#ifdef USE_USBUTILS
    if (!total_devices)
    {
        applog(LOG_WARNING, "No devices detected!");
        applog(LOG_WARNING, "Waiting for USB hotplug devices or press q to quit");
    }
#else
    if (!total_devices)
    {
        early_quit(1, "All devices disabled, cannot mint!");
    }
#endif

    most_devices = total_devices;

    load_temp_cutoffs();

    for (i = 0; i < total_devices; ++i)
    {
        devices[i]->cgminer_stats.getwork_wait_min.tv_sec = MIN_SEC_UNSET;
    }

    if (!opt_compact)
    {
        logstart += most_devices;
        logcursor = logstart + 1;
#ifdef HAVE_CURSES
        check_winsizes();
#endif
    }


    if (!total_pools)
    {
        applog(LOG_WARNING, "Need to specify at least one pool server.");
#ifdef HAVE_CURSES
        if (!use_curses || !input_pool(false))
#endif
            early_quit(1, "Pool setup failed");
    }

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool = pools[i];
        size_t siz;

        pool->cgminer_stats.getwork_wait_min.tv_sec = MIN_SEC_UNSET;
        pool->cgminer_pool_stats.getwork_wait_min.tv_sec = MIN_SEC_UNSET;

        if (!pool->rpc_userpass)
        {
            if (!pool->rpc_pass)
            {
                pool->rpc_pass = strdup("");
            }

            if (!pool->rpc_user)
            {
                early_quit(1, "No login credentials supplied for pool %u %s", i, pool->rpc_url);
            }

            siz = strlen(pool->rpc_user) + strlen(pool->rpc_pass) + 2;
            pool->rpc_userpass = cgmalloc(siz);
            snprintf(pool->rpc_userpass, siz, "%s:%s", pool->rpc_user, pool->rpc_pass);
        }
    }
    /* Set the currentpool to pool 0 */
    currentpool = pools[0];

#ifdef HAVE_SYSLOG_H
    if (use_syslog)
        openlog(PACKAGE, LOG_PID, LOG_USER);
#endif

#if defined(unix) || defined(__APPLE__)
    if (opt_stderr_cmd)
        fork_monitor();
#endif // defined(unix)

    mining_thr = cgcalloc(mining_threads, sizeof(thr));

    for (i = 0; i < mining_threads; i++)
    {
        mining_thr[i] = cgcalloc(1, sizeof(*thr));
    }

    // Start threads
    k = 0;

    for (i = 0; i < total_devices; ++i)
    {
        struct cgpu_info *cgpu = devices[i];
        cgpu->thr = cgmalloc(sizeof(*cgpu->thr) * (cgpu->threads+1));
        cgpu->thr[cgpu->threads] = NULL;
        cgpu->status = LIFE_INIT;

        for (j = 0; j < cgpu->threads; ++j, ++k)
        {
            thr = get_thread(k);
            thr->id = k;
            thr->cgpu = cgpu;
            thr->device_thread = j;

            if (!cgpu->drv->thread_prepare(thr))
            {
                continue;
            }

            if (unlikely(thr_info_create(thr, NULL, miner_thread, thr)))
            {
                early_quit(1, "thread %d create failed", thr->id);
            }

            cgpu->thr[j] = thr;

            /* Enable threads for devices set not to mine but disable
             * their queue in case we wish to enable them later */
            if (cgpu->deven != DEV_DISABLED)
            {
                applog(LOG_DEBUG, "Pushing sem post to thread %d", thr->id);
                cgsem_post(&thr->sem);
            }
        }
    }

    if (opt_benchmark || opt_benchfile)
        goto begin_bench;

    for (i = 0; i < total_pools; i++)
    {
        struct pool *pool  = pools[i];

        enable_pool(pool);
        pool->idle = true;
    }

    /* Look for at least one active pool before starting */
    applog(LOG_NOTICE, "Probing for an alive pool");
    probe_pools();

    do
    {
        sleep(1);
        slept++;
    }

    while (!pools_active && slept < 60);

    while (!pools_active)
    {
        if (!pool_msg)
        {
            applog(LOG_ERR, "No servers were found that could be used to get work from.");
            applog(LOG_ERR, "Please check the details from the list below of the servers you have input");
            applog(LOG_ERR, "Most likely you have input the wrong URL, forgotten to add a port, or have not set up workers");

            for (i = 0; i < total_pools; i++)
            {
                struct pool *pool = pools[i];

                applog(LOG_WARNING, "Pool: %d  URL: %s  User: %s  Password: %s",
                       i, pool->rpc_url, pool->rpc_user, pool->rpc_pass);
            }

            pool_msg = true;
            if (use_curses)
            {
                applog(LOG_ERR, "Press any key to exit, or cgminer will wait indefinitely for an alive pool.");
            }
        }

        if (!use_curses)
        {
            early_quit(0, "No servers could be used! Exiting.");
        }
#ifdef HAVE_CURSES
        touchwin(logwin);
        wrefresh(logwin);
        halfdelay(10);
        if (getch() != ERR)
            early_quit(0, "No servers could be used! Exiting.");
        cbreak();
#endif
    };

begin_bench:
    total_mhashes_done = 0;

    for(i = 0; i < CG_LOCAL_MHASHES_MAX_NUM; i++)
    {
        g_local_mhashes_dones[i] = 0;
    }

    g_local_mhashes_index = 0;

    for (i = 0; i < total_devices; i++)
    {
        struct cgpu_info *cgpu = devices[i];

        cgpu->rolling = cgpu->total_mhashes = 0;
    }

    if (sysinfo(&sInfo))
    {
        applog(LOG_INFO, "Failed to get sysinfo, errno:%u, reason:%s\n",
               errno, strerror(errno));
        total_tv_end_sys=time(NULL);
        total_tv_start_sys=time(NULL);
    }
    else
    {
        total_tv_end_sys=sInfo.uptime;
        total_tv_start_sys=sInfo.uptime;
    }

    cgtime(&total_tv_start);
    cgtime(&total_tv_end);
    cgtime(&tv_hashmeter);
    get_datestamp(datestamp, sizeof(datestamp), &total_tv_start);

    watchpool_thr_id = 2;
    thr = &control_thr[watchpool_thr_id];

    /* start watchpool thread */
    if (thr_info_create(thr, NULL, watchpool_thread, NULL))
    {
        early_quit(1, "watchpool thread create failed");
    }

    pthread_detach(thr->pth);

    watchdog_thr_id = 3;
    thr = &control_thr[watchdog_thr_id];

    /* start watchdog thread */
    if (thr_info_create(thr, NULL, watchdog_thread, NULL))
    {
        early_quit(1, "watchdog thread create failed");
    }
    pthread_detach(thr->pth);

    /* Create API socket thread */
    api_thr_id = 5;
    thr = &control_thr[api_thr_id];

    if (thr_info_create(thr, NULL, api_thread, thr))
    {
        early_quit(1, "API thread create failed");
    }

#ifdef USE_USBUTILS
    hotplug_thr_id = 6;
    thr = &control_thr[hotplug_thr_id];
    if (thr_info_create(thr, NULL, hotplug_thread, thr))
        early_quit(1, "hotplug thread create failed");
    pthread_detach(thr->pth);
#endif

#ifdef HAVE_CURSES
    /* Create curses input thread for keyboard input. Create this last so
     * that we know all threads are created since this can call kill_work
     * to try and shut down all previous threads. */
    input_thr_id = 7;
    thr = &control_thr[input_thr_id];
    if (thr_info_create(thr, NULL, input_thread, thr))
        early_quit(1, "input thread create failed");
    pthread_detach(thr->pth);
#endif

    /* Just to be sure */
    if (total_control_threads != 8)
    {
        early_quit(1, "incorrect total_control_threads (%d) should be 8", total_control_threads);
    }

    set_highprio();

#ifdef USE_LIBSYSTEMD
    sd_notify(false, "READY=1\n"
              "STATUS=Started");
#endif

    /* Once everything is set up, main() becomes the getwork scheduler */
    while (42)
    {
        int ts, max_staged = max_queue;
        struct pool *pool;

        if (opt_work_update)
        {
            signal_work_update();
        }

        opt_work_update = false;

        mutex_lock(stgd_lock);
        ts = __total_staged();
        /* Wait until hash_pop tells us we need to create more work */

        if (ts > max_staged)
        {
            work_filled = true;
            pthread_cond_wait(&gws_cond, stgd_lock);
            ts = __total_staged();
        }

        mutex_unlock(stgd_lock);

        if (ts > max_staged)
        {
            /* Keeps slowly generating work even if it's not being
             * used to keep last_getwork incrementing and to see
             * if pools are still alive. */
            work_filled = true;
            work        = hash_pop(false);

            if (work)
            {
                discard_work(work); /* main loop  */
            }

            continue;
        }

        if (work)
        {
            discard_work(work); /* main loop */
        }

        work = make_work(); /* main loop */

        while (42)
        {
            pool = select_pool();

            if (!pool_unusable(pool))
            {
                break;
            }

            switch_pools(NULL);
            pool = select_pool();

            if (pool_unusable(pool))
            {
                cgsleep_ms(11);
            }
        };

        if (pool->has_stratum)
        {
            gen_stratum_work(pool, work);
            applog(LOG_DEBUG, "Generated stratum work");
            stage_work(work);
            continue;
        }

        if (opt_benchfile)
        {
            get_benchfile_work(work);
            applog(LOG_DEBUG, "Generated benchfile work");
            stage_work(work);
            continue;
        }
        else if (opt_benchmark)
        {
            get_benchmark_work(work);
            applog(LOG_DEBUG, "Generated benchmark work");
            stage_work(work);
            continue;
        }

#ifdef HAVE_LIBCURL
        if (pool->gbt_solo)
        {
            gen_solo_work(pool, work);
            applog(LOG_DEBUG, "Generated GBT SOLO work");
            stage_work(work);
            continue;
        }

        if (pool->has_gbt)
        {
            gen_gbt_work(pool, work);
            applog(LOG_DEBUG, "Generated GBT work");
            stage_work(work);
            continue;
        }
#endif
        if (opt_benchfile)
        {
            get_benchfile_work(work);
            applog(LOG_DEBUG, "Generated benchfile work");
            stage_work(work);
            continue;
        }
        else if (opt_benchmark)
        {
            get_benchmark_work(work);
            applog(LOG_DEBUG, "Generated benchmark work");
            stage_work(work);
            continue;
        }
    }

    return 0;
}