/* RetroArch - A frontend for libretro.
* Copyright (C) 2011-2015 - Daniel De Matteis
*
* RetroArch 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 Found-
* ation, either version 3 of the License, or (at your option) any later version.
*
* RetroArch is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along with RetroArch.
* If not, see .
*/
#include
#include "runloop_data.h"
#include "general.h"
#include "input/input_overlay.h"
#ifdef HAVE_THREADS
#include
#endif
typedef int (*transfer_cb_t )(void *data, size_t len);
#ifdef HAVE_NETWORKING
#include
typedef struct http_handle
{
struct
{
struct http_connection_t *handle;
transfer_cb_t cb;
char elem1[PATH_MAX_LENGTH];
} connection;
msg_queue_t *msg_queue;
struct http_t *handle;
transfer_cb_t cb;
} http_handle_t;
#endif
typedef struct nbio_image_handle
{
struct texture_image ti;
bool is_blocking;
bool is_blocking_on_processing;
bool is_finished;
bool is_finished_with_processing;
transfer_cb_t cb;
struct rpng_t *handle;
unsigned processing_pos_increment;
unsigned pos_increment;
uint64_t frame_count;
uint64_t processing_frame_count;
int processing_final_state;
msg_queue_t *msg_queue;
} nbio_image_handle_t;
typedef struct nbio_handle
{
nbio_image_handle_t image;
bool is_blocking;
bool is_finished;
transfer_cb_t cb;
struct nbio_t *handle;
unsigned pos_increment;
uint64_t frame_count;
msg_queue_t *msg_queue;
} nbio_handle_t;
enum
{
THREAD_CODE_INIT = 0,
THREAD_CODE_DEINIT,
THREAD_CODE_ALIVE,
} thread_code_enum;
typedef struct data_runloop
{
#ifdef HAVE_NETWORKING
http_handle_t http;
#endif
#if 0
#ifdef HAVE_LIBRETRODB
struct
{
} db;
#endif
#endif
nbio_handle_t nbio;
bool inited;
#ifdef HAVE_THREADS
bool thread_inited;
unsigned thread_code;
bool alive;
slock_t *lock;
slock_t *cond_lock;
slock_t *overlay_lock;
scond_t *cond;
sthread_t *thread;
#endif
} data_runloop_t;
static struct data_runloop *g_data_runloop;
static void *rarch_main_data_get_ptr(void)
{
return g_data_runloop;
}
#ifdef HAVE_NETWORKING
int cb_core_updater_download(void *data_, size_t len);
int cb_core_updater_list(void *data_, size_t len);
/**
* rarch_main_data_http_iterate_transfer:
*
* Resumes HTTP transfer update.
*
* Returns: 0 when finished, -1 when we should continue
* with the transfer on the next frame.
**/
static int rarch_main_data_http_iterate_transfer(http_handle_t *http)
{
size_t pos = 0, tot = 0;
int percent = 0;
if (!net_http_update(http->handle, &pos, &tot))
{
if(tot != 0)
percent=(unsigned long long)pos*100/(unsigned long long)tot;
else
percent=0;
//#ifdef _WIN32
// RARCH_LOG("%.9I64u / %.9I64u \r", (unsigned long long)pos, (unsigned long long)tot);
//#else
// RARCH_LOG("%.9llu / %.9llu \r", (unsigned long long)pos, (unsigned long long)tot);
//#endif
RARCH_LOG("Download progress: %.d%% \r", percent);
char msg[PATH_MAX_LENGTH];
if(percent > 0)
{
snprintf(msg, sizeof(msg), "Download progress: %d%%", percent);
rarch_main_msg_queue_push(msg, 1, 10, true);
}
return -1;
}
return 0;
}
static int rarch_main_data_http_con_iterate_transfer(http_handle_t *http)
{
if (!net_http_connection_iterate(http->connection.handle))
return -1;
return 0;
}
static int rarch_main_data_http_conn_iterate_transfer_parse(http_handle_t *http)
{
if (net_http_connection_done(http->connection.handle))
{
if (http->connection.handle && http->connection.cb)
http->connection.cb(http, 0);
}
net_http_connection_free(http->connection.handle);
http->connection.handle = NULL;
return 0;
}
static int rarch_main_data_http_iterate_transfer_parse(http_handle_t *http)
{
size_t len = 0;
char *data = (char*)net_http_data(http->handle, &len, false);
if (data && http->cb)
http->cb(data, len);
net_http_delete(http->handle);
http->handle = NULL;
msg_queue_clear(http->msg_queue);
return 0;
}
static int cb_http_conn_default(void *data_, size_t len)
{
http_handle_t *http = (http_handle_t*)data_;
if (!http)
return -1;
http->handle = net_http_new(http->connection.handle);
if (!http->handle)
{
RARCH_ERR("Could not create new HTTP session handle.\n");
return -1;
}
http->cb = NULL;
if (http->connection.elem1[0] != '\0')
{
if (!strcmp(http->connection.elem1, "cb_core_updater_download"))
http->cb = &cb_core_updater_download;
if (!strcmp(http->connection.elem1, "cb_core_updater_list"))
http->cb = &cb_core_updater_list;
}
return 0;
}
/**
* rarch_main_data_http_iterate_poll:
*
* Polls HTTP message queue to see if any new URLs
* are pending.
*
* If handle is freed, will set up a new http handle.
* The transfer will be started on the next frame.
*
* Returns: 0 when an URL has been pulled and we will
* begin transferring on the next frame. Returns -1 if
* no HTTP URL has been pulled. Do nothing in that case.
**/
static int rarch_main_data_http_iterate_poll(http_handle_t *http)
{
char elem0[PATH_MAX_LENGTH];
struct string_list *str_list = NULL;
const char *url = msg_queue_pull(http->msg_queue);
if (!url)
return -1;
/* Can only deal with one HTTP transfer at a time for now */
if (http->handle)
return -1;
str_list = string_split(url, "|");
if (!str_list)
return -1;
if (str_list->size > 0)
strlcpy(elem0, str_list->elems[0].data, sizeof(elem0));
http->connection.handle = net_http_connection_new(elem0);
if (!http->connection.handle)
return -1;
http->connection.cb = &cb_http_conn_default;
if (str_list->size > 1)
strlcpy(http->connection.elem1,
str_list->elems[1].data,
sizeof(http->connection.elem1));
string_list_free(str_list);
return 0;
}
#endif
#ifdef HAVE_MENU
static int cb_image_menu_wallpaper_upload(void *data, size_t len)
{
nbio_handle_t *nbio = (nbio_handle_t*)data;
if (!nbio || !data)
return -1;
if (nbio->image.processing_final_state == IMAGE_PROCESS_ERROR ||
nbio->image.processing_final_state == IMAGE_PROCESS_ERROR_END)
return -1;
menu_driver_load_background(&nbio->image.ti);
texture_image_free(&nbio->image.ti);
nbio->image.is_blocking_on_processing = false;
nbio->image.is_finished_with_processing = true;
nbio->image.is_blocking = true;
nbio->image.is_finished = true;
nbio->is_blocking = true;
nbio->is_finished = true;
return 0;
}
static int cb_image_menu_wallpaper(void *data, size_t len)
{
int retval;
nbio_handle_t *nbio = (nbio_handle_t*)data;
if (!nbio || !data)
return -1;
if ( !nbio->image.handle->has_ihdr ||
!nbio->image.handle->has_idat ||
!nbio->image.handle->has_iend)
return -1;
retval = rpng_nbio_load_image_argb_process(nbio->image.handle,
&nbio->image.ti.pixels, &nbio->image.ti.width, &nbio->image.ti.height);
if (retval == IMAGE_PROCESS_ERROR || retval == IMAGE_PROCESS_ERROR_END)
return -1;
nbio->image.cb = &cb_image_menu_wallpaper_upload;
nbio->image.is_blocking_on_processing = true;
nbio->image.is_finished_with_processing = false;
nbio->image.is_finished = false;
return 0;
}
static int cb_nbio_image_menu_wallpaper(void *data, size_t len)
{
void *ptr = NULL;
nbio_handle_t *nbio = (nbio_handle_t*)data;
if (!nbio || !data)
return -1;
nbio->image.handle = (struct rpng_t*)calloc(1, sizeof(struct rpng_t));
nbio->image.cb = &cb_image_menu_wallpaper;
if (!nbio->image.handle)
{
nbio->image.cb = NULL;
return -1;
}
ptr = nbio_get_ptr(nbio->handle, &len);
if (!ptr)
{
free(nbio->image.handle);
nbio->image.handle = NULL;
nbio->image.cb = NULL;
return -1;
}
nbio->image.handle->buff_data = (uint8_t*)ptr;
nbio->image.pos_increment = (len / 2) ? (len / 2) : 1;
nbio->image.processing_pos_increment = (len / 4) ? (len / 4) : 1;
if (!rpng_nbio_load_image_argb_start(nbio->image.handle))
{
rpng_nbio_load_image_free(nbio->image.handle);
return -1;
}
nbio->image.is_blocking = false;
nbio->image.is_finished = false;
nbio->is_blocking = false;
nbio->is_finished = true;
return 0;
}
#endif
static int rarch_main_data_image_iterate_poll(nbio_handle_t *nbio)
{
const char *path = NULL;
if (!nbio)
return -1;
path = msg_queue_pull(nbio->image.msg_queue);
if (!path)
return -1;
/* Can only deal with one image transfer at a time for now */
if (nbio->image.handle)
return -1;
/* We need to load the image file first. */
msg_queue_clear(nbio->msg_queue);
msg_queue_push(nbio->msg_queue, path, 0, 1);
return 0;
}
static int rarch_main_data_image_iterate_transfer(nbio_handle_t *nbio)
{
unsigned i;
if (!nbio)
return -1;
if (nbio->image.is_finished)
return 0;
for (i = 0; i < nbio->image.pos_increment; i++)
{
if (!rpng_nbio_load_image_argb_iterate(
nbio->image.handle->buff_data,
nbio->image.handle))
goto error;
nbio->image.handle->buff_data +=
4 + 4 + nbio->image.handle->chunk.size + 4;
}
nbio->image.frame_count++;
return 0;
error:
return -1;
}
static int rarch_main_data_image_iterate_process_transfer(nbio_handle_t *nbio)
{
unsigned i;
int retval = 0;
if (!nbio)
return -1;
for (i = 0; i < nbio->image.processing_pos_increment; i++)
{
retval = rpng_nbio_load_image_argb_process(nbio->image.handle,
&nbio->image.ti.pixels, &nbio->image.ti.width, &nbio->image.ti.height);
if (retval != IMAGE_PROCESS_NEXT)
break;
}
nbio->image.processing_frame_count++;
if (retval == IMAGE_PROCESS_NEXT)
return 0;
nbio->image.processing_final_state = retval;
return -1;
}
static int rarch_main_data_image_iterate_parse_free(nbio_handle_t *nbio)
{
if (!nbio)
return -1;
rpng_nbio_load_image_free(nbio->image.handle);
nbio->image.handle = NULL;
nbio->image.frame_count = 0;
nbio->image.processing_frame_count = 0;
msg_queue_clear(nbio->image.msg_queue);
return 0;
}
static int rarch_main_data_image_iterate_process_transfer_parse(nbio_handle_t *nbio)
{
size_t len = 0;
if (nbio->image.handle && nbio->image.cb)
nbio->image.cb(nbio, len);
RARCH_LOG("Image transfer processing took %u frames.\n", (unsigned)nbio->image.processing_frame_count);
return 0;
}
static int rarch_main_data_image_iterate_transfer_parse(nbio_handle_t *nbio)
{
size_t len = 0;
if (nbio->image.handle && nbio->image.cb)
nbio->image.cb(nbio, len);
RARCH_LOG("Image transfer took %u frames.\n", (unsigned)nbio->image.frame_count);
return 0;
}
static int cb_nbio_default(void *data, size_t len)
{
nbio_handle_t *nbio = (nbio_handle_t*)data;
if (!data)
return -1;
(void)len;
nbio->is_blocking = false;
nbio->is_finished = true;
return 0;
}
static int rarch_main_data_nbio_iterate_poll(nbio_handle_t *nbio)
{
char elem0[PATH_MAX_LENGTH], elem1[PATH_MAX_LENGTH];
struct nbio_t* handle = NULL;
struct string_list *str_list = NULL;
const char *path = NULL;
if (!nbio)
return -1;
path = msg_queue_pull(nbio->msg_queue);
if (!path)
return -1;
/* Can only deal with one NBIO transfer at a time for now */
if (nbio->handle)
return -1;
str_list = string_split(path, "|");
if (!str_list)
goto error;
if (str_list->size > 0)
strlcpy(elem0, str_list->elems[0].data, sizeof(elem0));
if (str_list->size > 1)
strlcpy(elem1, str_list->elems[1].data, sizeof(elem1));
handle = nbio_open(elem0, NBIO_READ);
if (!handle)
{
RARCH_ERR("Could not create new file loading handle.\n");
goto error;
}
nbio->handle = handle;
nbio->is_blocking = false;
nbio->is_finished = false;
nbio->cb = &cb_nbio_default;
if (elem1[0] != '\0')
{
#ifdef HAVE_MENU
if (!strcmp(elem1, "cb_menu_wallpaper"))
nbio->cb = &cb_nbio_image_menu_wallpaper;
#endif
}
nbio_begin_read(handle);
string_list_free(str_list);
return 0;
error:
if (str_list)
string_list_free(str_list);
return -1;
}
static int rarch_main_data_nbio_iterate_transfer(nbio_handle_t *nbio)
{
size_t i;
if (!nbio)
return -1;
nbio->pos_increment = 5;
if (nbio->is_finished)
return 0;
for (i = 0; i < nbio->pos_increment; i++)
{
if (nbio_iterate(nbio->handle))
goto error;
}
nbio->frame_count++;
return 0;
error:
return -1;
}
static int rarch_main_data_nbio_iterate_parse_free(nbio_handle_t *nbio)
{
if (!nbio)
return -1;
if (!nbio->is_finished)
return -1;
nbio_free(nbio->handle);
nbio->handle = NULL;
nbio->is_blocking = false;
nbio->is_finished = false;
nbio->frame_count = 0;
msg_queue_clear(nbio->msg_queue);
return 0;
}
static int rarch_main_data_nbio_iterate_parse(nbio_handle_t *nbio)
{
int len = 0;
if (!nbio)
return -1;
if (nbio->cb)
nbio->cb(nbio, len);
RARCH_LOG("File transfer took %u frames.\n", (unsigned)nbio->frame_count);
return 0;
}
#ifdef HAVE_MENU
static void rarch_main_data_rdl_iterate(void)
{
driver_t *driver = driver_get_ptr();
if (!driver->menu->rdl)
return;
if (driver->menu->rdl->blocking)
{
/* Do nonblocking I/O transfers here. */
return;
}
#ifdef HAVE_LIBRETRODB
if (!driver->menu->rdl->iterating)
{
database_info_write_rdl_free(driver->menu->rdl);
driver->menu->rdl = NULL;
return;
}
database_info_write_rdl_iterate(driver->menu->rdl);
#endif
}
#endif
static void rarch_main_data_nbio_iterate(bool is_thread, nbio_handle_t *nbio)
{
if (!nbio)
return;
if (nbio->handle)
{
if (!nbio->is_blocking)
{
if (rarch_main_data_nbio_iterate_transfer(nbio) == -1)
rarch_main_data_nbio_iterate_parse(nbio);
}
else if (nbio->is_finished)
rarch_main_data_nbio_iterate_parse_free(nbio);
}
else
rarch_main_data_nbio_iterate_poll(nbio);
if (nbio->image.handle)
{
if (nbio->image.is_blocking_on_processing)
{
if (rarch_main_data_image_iterate_process_transfer(nbio) == -1)
rarch_main_data_image_iterate_process_transfer_parse(nbio);
}
else if (!nbio->image.is_blocking)
{
if (rarch_main_data_image_iterate_transfer(nbio) == -1)
rarch_main_data_image_iterate_transfer_parse(nbio);
}
else if (nbio->image.is_finished)
rarch_main_data_image_iterate_parse_free(nbio);
}
else
rarch_main_data_image_iterate_poll(nbio);
}
#ifdef HAVE_NETWORKING
static void rarch_main_data_http_iterate(bool is_thread, http_handle_t *http)
{
if (!http)
return;
if (http->connection.handle)
{
if (!rarch_main_data_http_con_iterate_transfer(http))
rarch_main_data_http_conn_iterate_transfer_parse(http);
}
if (http->handle)
{
if (!rarch_main_data_http_iterate_transfer(http))
rarch_main_data_http_iterate_transfer_parse(http);
}
else
rarch_main_data_http_iterate_poll(http);
}
#endif
static void rarch_main_data_db_iterate(void)
{
driver_t *driver = driver_get_ptr();
#ifdef HAVE_MENU
if (driver->menu && driver->menu->rdl)
rarch_main_data_rdl_iterate();
#endif
}
#ifdef HAVE_OVERLAY
static void rarch_main_data_overlay_iterate(bool is_thread, data_runloop_t *runloop)
{
driver_t *driver = driver_get_ptr();
if (rarch_main_is_idle())
return;
if (!driver->overlay)
return;
#ifdef HAVE_THREADS
if (is_thread)
slock_lock(runloop->overlay_lock);
#endif
switch (driver->overlay->state)
{
case OVERLAY_STATUS_NONE:
case OVERLAY_STATUS_ALIVE:
break;
case OVERLAY_STATUS_DEFERRED_LOAD:
input_overlay_load_overlays(driver->overlay);
break;
case OVERLAY_STATUS_DEFERRED_LOADING:
input_overlay_load_overlays_iterate(driver->overlay);
break;
case OVERLAY_STATUS_DEFERRED_LOADING_RESOLVE:
input_overlay_load_overlays_resolve_iterate(driver->overlay);
break;
case OVERLAY_STATUS_DEFERRED_DONE:
input_overlay_new_done(driver->overlay);
break;
case OVERLAY_STATUS_DEFERRED_ERROR:
input_overlay_free(driver->overlay);
break;
default:
break;
}
#ifdef HAVE_THREADS
if (is_thread)
slock_unlock(runloop->overlay_lock);
#endif
}
#endif
#ifdef HAVE_THREADS
static void data_runloop_thread_deinit(data_runloop_t *runloop)
{
if (!runloop->thread_inited)
{
slock_lock(runloop->cond_lock);
runloop->alive = false;
scond_signal(runloop->cond);
slock_unlock(runloop->cond_lock);
sthread_join(runloop->thread);
slock_free(runloop->lock);
slock_free(runloop->cond_lock);
slock_free(runloop->overlay_lock);
scond_free(runloop->cond);
}
runloop->thread_inited = false;
}
#endif
void rarch_main_data_deinit(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
if (!data_runloop)
return;
#ifdef HAVE_THREADS
if (data_runloop->thread_inited)
{
data_runloop_thread_deinit(data_runloop);
data_runloop->thread_code = THREAD_CODE_DEINIT;
}
#endif
data_runloop->inited = false;
}
void rarch_main_data_free(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
if (data_runloop)
free(data_runloop);
data_runloop = NULL;
}
static void data_runloop_iterate(bool is_thread, data_runloop_t *runloop)
{
runloop = (data_runloop_t*)rarch_main_data_get_ptr();
#ifdef HAVE_OVERLAY
rarch_main_data_overlay_iterate(is_thread, runloop);
#endif
rarch_main_data_nbio_iterate(is_thread, &runloop->nbio);
#ifdef HAVE_NETWORKING
rarch_main_data_http_iterate(is_thread, &runloop->http);
#endif
rarch_main_data_db_iterate();
}
#ifdef HAVE_THREADS
static void data_thread_loop(void *data)
{
data_runloop_t *runloop = (data_runloop_t*)data;
RARCH_LOG("[Data Thread]: Initializing data thread.\n");
slock_lock(runloop->lock);
while (!runloop->thread_inited)
scond_wait(runloop->cond, runloop->lock);
slock_unlock(runloop->lock);
RARCH_LOG("[Data Thread]: Starting data thread.\n");
for (;;)
{
slock_lock(runloop->lock);
if (!runloop->alive)
break;
data_runloop_iterate(true, runloop);
slock_unlock(runloop->lock);
}
RARCH_LOG("[Data Thread]: Stopping data thread.\n");
data_runloop_thread_deinit(runloop);
}
static void rarch_main_data_thread_init(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
if ((data_runloop->thread = sthread_create(data_thread_loop, data_runloop)))
{
data_runloop->lock = slock_new();
data_runloop->cond_lock = slock_new();
data_runloop->overlay_lock = slock_new();
data_runloop->cond = scond_new();
}
else
data_runloop->thread = NULL;
data_runloop->thread_inited = (data_runloop->thread != NULL);
if (!data_runloop->thread_inited)
return;
data_runloop->alive = true;
data_runloop->thread_code = THREAD_CODE_ALIVE;
}
#endif
void rarch_main_data_iterate(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
settings_t *settings = config_get_ptr();
(void)settings;
#ifdef HAVE_THREADS
#if 0
if (settings->menu.threaded_data_runloop_enable)
{
switch (data_runloop->thread_code)
{
case THREAD_CODE_ALIVE:
if (data_runloop->alive)
return;
break;
case THREAD_CODE_INIT:
rarch_main_data_thread_init();
break;
case THREAD_CODE_DEINIT:
break;
}
}
#endif
#endif
data_runloop_iterate(false, data_runloop);
}
static data_runloop_t *rarch_main_data_new(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)calloc(1, sizeof(data_runloop_t));
if (!data_runloop)
return NULL;
#ifdef HAVE_THREADS
data_runloop->thread_inited = false;
data_runloop->alive = false;
#endif
data_runloop->inited = true;
return data_runloop;
}
void rarch_main_data_clear_state(void)
{
rarch_main_data_deinit();
rarch_main_data_free();
g_data_runloop = rarch_main_data_new();
}
void rarch_main_data_init_queues(void)
{
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
#ifdef HAVE_NETWORKING
if (!data_runloop->http.msg_queue)
rarch_assert(data_runloop->http.msg_queue = msg_queue_new(8));
#endif
if (!data_runloop->nbio.msg_queue)
rarch_assert(data_runloop->nbio.msg_queue = msg_queue_new(8));
if (!data_runloop->nbio.image.msg_queue)
rarch_assert(data_runloop->nbio.image.msg_queue = msg_queue_new(8));
}
void rarch_main_data_msg_queue_push(unsigned type,
const char *msg, const char *msg2,
unsigned prio, unsigned duration, bool flush)
{
char new_msg[PATH_MAX_LENGTH];
msg_queue_t *queue = NULL;
data_runloop_t *data_runloop = (data_runloop_t*)rarch_main_data_get_ptr();
snprintf(new_msg, sizeof(new_msg), "%s|%s", msg, msg2);
switch(type)
{
case DATA_TYPE_NONE:
break;
case DATA_TYPE_FILE:
queue = data_runloop->nbio.msg_queue;
break;
case DATA_TYPE_IMAGE:
queue = data_runloop->nbio.image.msg_queue;
break;
#ifdef HAVE_NETWORKING
case DATA_TYPE_HTTP:
queue = data_runloop->http.msg_queue;
break;
#endif
#ifdef HAVE_OVERLAY
case DATA_TYPE_OVERLAY:
break;
#endif
}
if (!queue)
return;
if (flush)
msg_queue_clear(queue);
msg_queue_push(queue, new_msg, prio, duration);
}