void
supply_register (struct regcache *regcache, int n, const void *buf)
{
if (buf)
memcpy (register_data (regcache, n, 0), buf, register_size (n));
else
memset (register_data (regcache, n, 0), 0, register_size (n));
}
int register_string(void) {
/* Register the data type */
return register_data(&operations,_STR);
}
int
main(int argc, char **argv)
{
data_interface_test_summary *summary;
struct starpu_conf conf;
starpu_conf_init(&conf);
conf.ncuda = 2;
conf.nopencl = 1;
conf.nmic = -1;
if (starpu_initialize(&conf, &argc, &argv) == -ENODEV || starpu_cpu_worker_get_count() == 0)
return STARPU_TEST_SKIPPED;
register_data();
summary = run_tests(&bcsr_config);
if (!summary)
exit(EXIT_FAILURE);
unregister_data();
starpu_shutdown();
data_interface_test_summary_print(stderr, summary);
return data_interface_test_summary_success(summary);
}
int register_int(void) {
/* Register the data type */
return register_data(&operations,_INT);
}
int
main(void)
{
#ifdef STARPU_USE_CPU
int ret;
ret = starpu_init(NULL);
STARPU_CHECK_RETURN_VALUE(ret, "starpu_init");
ncpu = starpu_cpu_worker_get_count();
#ifdef STARPU_USE_CUDA
ncuda = starpu_cuda_worker_get_count();
#endif
#ifdef STARPU_USE_OPENCL
nopencl = starpu_opencl_worker_get_count();
#endif
if (ncpu == 0 || !gpus_available())
{
starpu_shutdown();
return 77;
}
#ifdef STARPU_USE_OPENCL
ret = starpu_opencl_load_opencl_from_file("examples/basic_examples/multiformat_opencl_kernel.cl",
&opencl_program, NULL);
STARPU_CHECK_RETURN_VALUE(ret, "starpu_opencl_load_opencl_from_file");
ret = starpu_opencl_load_opencl_from_file("examples/basic_examples/multiformat_conversion_codelets_opencl_kernel.cl",
&opencl_conversion_program, NULL);
STARPU_CHECK_RETURN_VALUE(ret, "starpu_opencl_load_opencl_from_file");
#endif
init_problem_data();
print_it();
register_data();
create_and_submit_tasks();
unregister_data();
print_it();
#ifdef STARPU_USE_OPENCL
ret = starpu_opencl_unload_opencl(&opencl_program);
STARPU_CHECK_RETURN_VALUE(ret, "starpu_opencl_unload_opencl");
starpu_opencl_unload_opencl(&opencl_conversion_program);
#endif
starpu_shutdown();
return check_it();
#else
/* Without the CPU, there is no point in using the multiformat
* interface, so this test is pointless. */
return 77;
#endif
}
void
supply_register_zeroed (struct regcache *regcache, int n)
{
memset (register_data (regcache, n, 0), 0,
register_size (regcache->tdesc, n));
#ifndef IN_PROCESS_AGENT
if (regcache->register_status != NULL)
regcache->register_status[n] = REG_VALID;
#endif
}
void
supply_register (struct regcache *regcache, int n, const void *buf)
{
if (buf)
{
memcpy (register_data (regcache, n, 0), buf,
register_size (regcache->tdesc, n));
#ifndef IN_PROCESS_AGENT
if (regcache->register_status != NULL)
regcache->register_status[n] = REG_VALID;
#endif
}
else
{
memset (register_data (regcache, n, 0), 0,
register_size (regcache->tdesc, n));
#ifndef IN_PROCESS_AGENT
if (regcache->register_status != NULL)
regcache->register_status[n] = REG_UNAVAILABLE;
#endif
}
}
static void maybe_start_editing (void)
{
int cancel = 0;
gchar *msg;
msg = g_strdup_printf(_("Enter name for first variable\n"
"(max. %d characters)"),
VNAMELEN - 1);
blocking_edit_dialog(CREATE_DATASET, _("gretl: name variable"),
msg, NULL, prep_spreadsheet, NULL,
VARCLICK_NONE, NULL, &cancel);
g_free(msg);
if (cancel) {
/* accept the default blank dataset */
register_data(NULLDATA_STARTED);
}
}
void
collect_register_as_string (struct regcache *regcache, int n, char *buf)
{
bin2hex (register_data (regcache, n, 1), buf,
register_size (regcache->tdesc, n));
}
void
collect_register (struct regcache *regcache, int n, void *buf)
{
memcpy (buf, register_data (regcache, n, 1),
register_size (regcache->tdesc, n));
}
void
collect_register_as_string (struct regcache *regcache, int n, char *buf)
{
convert_int_to_ascii (register_data (regcache, n, 1),
buf, register_size (n));
}
void
collect_register_as_string(int n, char *buf)
{
convert_int_to_ascii(register_data(n, 1), buf, register_size(n));
}
void
collect_register(int n, void *buf)
{
memcpy(buf, register_data(n, 1), register_size(n));
}
void
supply_register(int n, const void *buf)
{
memcpy(register_data(n, 0), buf, register_size(n));
}
static int dwiz_make_changes (DATASET *dwinfo, dw_opts *opts,
GtkWidget *dlg)
{
gchar *setobs_cmd = NULL;
gretlopt opt = OPT_NONE;
int create = (opts->flags & DW_CREATE);
int delmiss = (opts->flags & DW_DROPMISS);
int delete_markers = 0;
int err = 0;
#if DWDEBUG
fprintf(stderr, "dwiz_make_changes: create = %d\n", create);
#endif
/* preliminaries */
if (time_series(dwinfo)) {
ntodate(dwinfo->stobs, dwinfo->t1, dwinfo);
} else if (known_panel(dwinfo)) {
if (!dataset_is_panel(dataset)) {
/* Turning a subset of a non-panel dataset into a panel:
this change will be irreversible */
maybe_unrestrict_dataset();
}
}
/* special: reorganizing dataset based on panel index vars */
if (dwinfo->structure == PANEL_UNKNOWN) {
int uv, tv;
err = translate_panel_vars(opts, &uv, &tv);
if (!err) {
err = set_panel_structure_from_vars(uv, tv, dataset);
}
if (!err) {
setobs_cmd = g_strdup_printf("setobs %s %s --panel-vars",
dataset->varname[uv],
dataset->varname[tv]);
}
goto finalize;
}
/* check for nothing to be done */
if (dwinfo->structure == dataset->structure &&
dwinfo->pd == dataset->pd &&
strcmp(dwinfo->stobs, dataset->stobs) == 0) {
if (create || delmiss) {
/* recording? */
goto finalize;
} else {
infobox(_("No changes were made"));
return 0;
}
}
/* if converting to time series, we probably don't want to
retain any original observation-marker strings */
if (dwinfo->structure == TIME_SERIES &&
dataset->markers && !delmiss) {
delete_markers = 1;
}
/* handle panel structure */
if (known_panel(dwinfo)) {
int nunits = dwinfo->t1;
int nperiods = dataset->n / nunits;
/* we don't offer a choice of "starting obs" */
dwinfo->pd = (dwinfo->structure == STACKED_TIME_SERIES)?
nperiods : nunits;
strcpy(dwinfo->stobs, "1.1");
}
/* handle conversion to cross-section */
if (dwinfo->structure == CROSS_SECTION) {
strcpy(dwinfo->stobs, "1");
}
if (dwinfo->structure == TIME_SERIES) {
opt = OPT_T;
} else if (dwinfo->structure == STACKED_TIME_SERIES) {
opt = OPT_S;
} else if (dwinfo->structure == STACKED_CROSS_SECTION) {
opt = OPT_C;
} else if (dwinfo->structure == CROSS_SECTION) {
opt = OPT_X;
} else if (dwinfo->structure == SPECIAL_TIME_SERIES) {
opt = OPT_N;
}
err = simple_set_obs(dataset, dwinfo->pd, dwinfo->stobs, opt);
#if DWDEBUG
fprintf(stderr, "pd=%d, stobs='%s', opt=%d; set_obs returned %d\n",
dwinfo->pd, dwinfo->stobs, opt, err);
#endif
if (!err && setobs_cmd == NULL) {
setobs_cmd = g_strdup_printf("setobs %d %s%s",
dwinfo->pd, dwinfo->stobs,
print_flags(opt, SETOBS));
}
finalize:
if (!err && delmiss) {
err = dataset_purge_missing_rows(dataset);
}
if (err) {
gui_errmsg(err);
} else if (create) {
if (opts->flags & DW_SSHEET) {
gtk_widget_hide(dlg);
maybe_start_editing();
} else {
register_data(NULLDATA_STARTED);
lib_command_sprintf("nulldata %d", dataset->n);
record_command_verbatim();
}
} else {
if (delete_markers) {
dataset_destroy_obs_markers(dataset);
}
mark_dataset_as_modified();
}
if (!err && setobs_cmd != NULL) {
lib_command_strcpy(setobs_cmd);
record_command_verbatim();
}
g_free(setobs_cmd);
#if DWDEBUG
fprintf(stderr, "dwiz_make_changes: returning %d\n", err);
#endif
return err;
}
