static int load_radioart_image(struct radioart *ra, const char* preset_name,
struct dim *dim)
{
char path[MAX_PATH];
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(false);
#endif
snprintf(path, sizeof(path), FMPRESET_PATH "/%s.bmp",preset_name);
if (!file_exists(path))
snprintf(path, sizeof(path), FMPRESET_PATH "/%s.jpg",preset_name);
if (!file_exists(path))
{
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(true);
#endif
return -1;
}
strlcpy(ra->name, preset_name, MAX_FMPRESET_LEN+1);
ra->dim.height = dim->height;
ra->dim.width = dim->width;
ra->last_tick = current_tick;
ra->handle = bufopen(path, 0, TYPE_BITMAP, &ra->dim);
if (ra->handle == ERR_BUFFER_FULL)
{
int i = find_oldest_image();
bufclose(i);
ra->handle = bufopen(path, 0, TYPE_BITMAP, &ra->dim);
}
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(true);
#endif
return ra->handle;
}
void series_view_refresh (GtkWidget *w, windata_t *vwin)
{
series_view *sview = (series_view *) vwin->data;
if (sview != NULL && sview->varnum > 0 && sview->varnum < dataset->v) {
int list[2] = {1, sview->varnum};
PRN *prn = NULL;
int err;
if (bufopen(&prn)) {
return;
}
err = printdata(list, NULL, dataset, OPT_O, prn);
if (err) {
gui_errmsg(err);
gretl_print_destroy(prn);
} else {
/* replace text buffer in sview using prn */
const char *buf = gretl_print_get_trimmed_buffer(prn);
textview_set_text(vwin->text, buf);
gretl_print_destroy(prn);
}
}
}
static void multi_series_view_print (windata_t *vwin)
{
series_view *sview = (series_view *) vwin->data;
PRN *prn;
int err = 0;
if (bufopen(&prn)) {
return;
}
if (sview->view == VIEW_STANDARD) {
err = printdata(sview->list, NULL, dataset, OPT_O, prn);
} else {
err = print_series_with_format(sview->list, dataset,
sview->format, sview->digits,
prn);
}
if (err) {
gui_errmsg(err);
} else {
textview_set_text(vwin->text, gretl_print_get_trimmed_buffer(prn));
}
gretl_print_destroy(prn);
}
static void multi_series_view_print_sorted (windata_t *vwin)
{
series_view *sview = (series_view *) vwin->data;
int *obsvec = make_obsvec(sview);
PRN *prn;
int err = 0;
if (obsvec == NULL) {
return;
}
if (bufopen(&prn)) {
free(obsvec);
return;
}
err = print_data_in_columns(sview->list, obsvec, dataset,
OPT_NONE, prn);
if (err) {
gui_errmsg(err);
} else {
const char *buf = gretl_print_get_trimmed_buffer(prn);
textview_set_text(vwin->text, buf);
}
free(obsvec);
gretl_print_destroy(prn);
}
static void single_series_view_print (windata_t *vwin)
{
series_view *sview = (series_view *) vwin->data;
char num_format[32];
double x;
PRN *prn;
int i, t, obslen;
int err = 0;
if (bufopen(&prn)) {
return;
}
if (sview->view == VIEW_STANDARD) {
int list[2] = { 1, sview->varnum };
/* regular printout: unsort if need be */
if (sview->sorted) {
series_view_unsort(sview);
}
err = printdata(list, NULL, dataset, OPT_O, prn);
if (err) {
gui_errmsg(err);
}
goto finalize;
}
obslen = max_obs_marker_length(dataset);
if (sview->format == 'g') {
sprintf(num_format, "%%#13.%dg\n", sview->digits);
} else {
sprintf(num_format, "%%13.%df\n", sview->digits);
}
pprintf(prn, "\n%*s ", obslen, " ");
pprintf(prn, "%13s\n\n", dataset->varname[sview->varnum]);
for (i=0; i<sview->npoints; i++) {
t = sview->points[i].obsnum;
x = sview->points[i].val;
print_obs_marker(t, dataset, obslen, prn);
if (na(x)) {
pputc(prn, '\n');
} else {
pprintf(prn, num_format, x);
}
}
finalize:
if (!err) {
textview_set_text(vwin->text, gretl_print_get_buffer(prn));
}
gretl_print_destroy(prn);
}
static int load_radioart_image(struct radioart *ra, const char* preset_name,
struct dim *dim)
{
char path[MAX_PATH];
struct bufopen_bitmap_data user_data;
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(false);
#endif
snprintf(path, sizeof(path), FMPRESET_PATH "/%s.bmp",preset_name);
if (!file_exists(path))
snprintf(path, sizeof(path), FMPRESET_PATH "/%s.jpg",preset_name);
if (!file_exists(path))
{
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(true);
#endif
return -1;
}
strlcpy(ra->name, preset_name, MAX_FMPRESET_LEN+1);
ra->dim.height = dim->height;
ra->dim.width = dim->width;
ra->last_tick = current_tick;
user_data.embedded_albumart = NULL;
user_data.dim = &ra->dim;
ra->handle = bufopen(path, 0, TYPE_BITMAP, &user_data);
if (ra->handle == ERR_BUFFER_FULL)
{
int i = find_oldest_image_index();
if (i != -1)
{
bufclose(radioart[i].handle);
ra->handle = bufopen(path, 0, TYPE_BITMAP, &user_data);
}
}
#ifndef HAVE_NOISY_IDLE_MODE
cpu_idle_mode(true);
#endif
return ra->handle;
}
static void dlg_text_set_from_sys (equation_system *sys,
dialog_t *d)
{
const char *buf;
PRN *prn;
if (bufopen(&prn)) {
return;
}
print_equation_system_info(sys, dataset, OPT_NONE, prn);
buf = gretl_print_get_buffer(prn);
textview_set_text(d->edit, buf);
gretl_print_destroy(prn);
}
PRN *vwin_print_sorted_with_format (windata_t *vwin, PrnFormat fmt)
{
series_view *sview = (series_view *) vwin->data;
int *obsvec;
PRN *prn;
int err = 0;
obsvec = make_obsvec(sview);
if (obsvec == NULL) {
return NULL;
}
if (bufopen(&prn)) {
free(obsvec);
return NULL;
}
gretl_print_set_format(prn, fmt);
if (sview->varnum > 0) {
/* single series, no list */
int list[2] = {1, sview->varnum};
err = print_data_in_columns(list, obsvec, dataset,
OPT_NONE, prn);
} else {
err = print_data_in_columns(sview->list, obsvec, dataset,
OPT_NONE, prn);
}
if (err) {
gui_errmsg(err);
gretl_print_destroy(prn);
prn = NULL;
}
free(obsvec);
return prn;
}
static void summary_print_formatted (windata_t *vwin, series_view *sview)
{
Summary *summ = vwin->data;
int digits = 0, places = 0;
PRN *prn;
if (bufopen(&prn)) {
return;
}
if (sview->view != VIEW_STANDARD && sview->digits > 0) {
if (sview->format == 'g') {
digits = sview->digits;
} else {
places = sview->digits;
}
}
print_summary_single(summ, digits, places, dataset, prn);
textview_set_text(vwin->text, gretl_print_get_trimmed_buffer(prn));
gretl_print_destroy(prn);
}
static ExecState *gretl_console_init (char *cbuf)
{
ExecState *s;
PRN *prn;
s = mymalloc(sizeof *s);
if (s == NULL) {
return NULL;
}
if (bufopen(&prn)) {
free(s);
return NULL;
}
set_gretl_echo(1);
gretl_exec_state_init(s, CONSOLE_EXEC, cbuf,
get_lib_cmd(), model, prn);
command_history_init();
return s;
}
