/* psppire-var-store.c
-
+
PSPPIRE --- A Graphical User Interface for PSPP
Copyright (C) 2006 Free Software Foundation
- Written by John Darrington
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
#include <gtksheet/gsheetmodel.h>
-#include "psppire-variable.h"
#include "psppire-var-store.h"
#include "var-sheet.h"
#include "helper.h"
static gboolean psppire_var_store_clear(GSheetModel *model, gint row, gint col);
-static gboolean psppire_var_store_set_string(GSheetModel *model,
+static gboolean psppire_var_store_set_string(GSheetModel *model,
const gchar *text, gint row, gint column);
static gint psppire_var_store_get_row_count(const GSheetModel * model);
-static gchar *text_for_column(const struct PsppireVariable *pv, gint c, GError **err);
+static gchar *text_for_column(const struct variable *pv, gint c, GError **err);
static void psppire_var_store_sheet_row_init (GSheetRowIface *iface);
{
const struct fmt_spec *write_spec ;
- struct PsppireVariable *pv = psppire_var_store_get_variable(var_store, row);
+ struct variable *pv = psppire_var_store_get_var (var_store, row);
- if ( !pv )
+ if ( !pv )
return TRUE;
- if ( ALPHA == psppire_variable_get_type(pv) && column == COL_DECIMALS )
+ if ( VAR_STRING == var_get_type (pv) && column == COL_DECIMALS )
return FALSE;
- write_spec = psppire_variable_get_write_spec(pv);
+ write_spec =var_get_write_format (pv);
- switch ( write_spec->type )
+ switch ( write_spec->type )
{
- case FMT_DATE:
- case FMT_EDATE:
- case FMT_SDATE:
- case FMT_ADATE:
- case FMT_JDATE:
- case FMT_QYR:
- case FMT_MOYR:
- case FMT_WKYR:
- case FMT_DATETIME:
- case FMT_TIME:
- case FMT_DTIME:
- case FMT_WKDAY:
- case FMT_MONTH:
+ case FMT_DATE:
+ case FMT_EDATE:
+ case FMT_SDATE:
+ case FMT_ADATE:
+ case FMT_JDATE:
+ case FMT_QYR:
+ case FMT_MOYR:
+ case FMT_WKYR:
+ case FMT_DATETIME:
+ case FMT_TIME:
+ case FMT_DTIME:
+ case FMT_WKDAY:
+ case FMT_MONTH:
if ( column == COL_DECIMALS || column == COL_WIDTH)
return FALSE;
break;
return TRUE;
}
+
+struct variable *
+psppire_var_store_get_var (PsppireVarStore *store, gint row)
+{
+ return psppire_dict_get_variable (store->dict, row);
+}
+
static gboolean
psppire_var_store_is_editable(const GSheetModel *model, gint row, gint column)
{
{
PsppireVarStore *store = PSPPIRE_VAR_STORE(model);
- if ( ! psppire_var_store_item_editable(store, row, column) )
+ if ( ! psppire_var_store_item_editable(store, row, column) )
return &store->disabled;
-
+
return NULL;
}
gint row, gint column)
{
PsppireVarStore *store = PSPPIRE_VAR_STORE(model);
-
+
return store->font_desc;
}
return retval;
}
-static void
+static void
var_change_callback(GtkWidget *w, gint n, gpointer data)
{
GSheetModel *model = G_SHEET_MODEL(data);
}
-static void
+static void
var_delete_callback(GtkWidget *w, gint first, gint n, gpointer data)
{
GSheetModel *model = G_SHEET_MODEL(data);
-
+
g_sheet_model_rows_deleted (model, first, n);
}
-static void
+static void
var_insert_callback(GtkWidget *w, gint row, gpointer data)
{
GSheetModel *model = G_SHEET_MODEL(data);
var_store->dict = dict;
- g_signal_connect(dict, "variable-changed", G_CALLBACK(var_change_callback),
+ g_signal_connect(dict, "variable-changed", G_CALLBACK(var_change_callback),
var_store);
- g_signal_connect(dict, "variables-deleted", G_CALLBACK(var_delete_callback),
+ g_signal_connect(dict, "variables-deleted", G_CALLBACK(var_delete_callback),
var_store);
- g_signal_connect(dict, "variable-inserted", G_CALLBACK(var_insert_callback),
+ g_signal_connect(dict, "variable-inserted", G_CALLBACK(var_insert_callback),
var_store);
{
PsppireVarStore *store = PSPPIRE_VAR_STORE(model);
- struct PsppireVariable *pv;
+ struct variable *pv;
if ( row >= psppire_dict_get_var_cnt(store->dict))
return 0;
-
- pv = psppire_dict_get_variable (store->dict, row);
-
- return text_for_column(pv, column, 0);
-}
-
-struct PsppireVariable *
-psppire_var_store_get_variable(PsppireVarStore *store, gint row)
-{
- g_return_val_if_fail(store, NULL);
- g_return_val_if_fail(store->dict, NULL);
-
- if ( row >= psppire_dict_get_var_cnt(store->dict))
- return 0;
+ pv = psppire_dict_get_variable (store->dict, row);
- return psppire_dict_get_variable (store->dict, row);
+ return text_for_column (pv, column, 0);
}
-/* Clears that part of the variable store, if possible, which corresponds
+
+/* Clears that part of the variable store, if possible, which corresponds
to ROW, COL.
Returns true if anything was updated, false otherwise.
*/
-static gboolean
+static gboolean
psppire_var_store_clear(GSheetModel *model, gint row, gint col)
{
- struct PsppireVariable *pv ;
+ struct variable *pv ;
PsppireVarStore *var_store = PSPPIRE_VAR_STORE(model);
- if ( row >= psppire_dict_get_var_cnt(var_store->dict))
+ if ( row >= psppire_dict_get_var_cnt (var_store->dict))
return FALSE;
- pv = psppire_var_store_get_variable(var_store, row);
+ pv = psppire_var_store_get_var (var_store, row);
- if ( !pv )
+ if ( !pv )
return FALSE;
switch (col)
{
case COL_LABEL:
- psppire_variable_set_label(pv, 0);
+ var_set_label (pv, 0);
return TRUE;
break;
}
return FALSE;
}
-/* Attempts to update that part of the variable store which corresponds
+/* Attempts to update that part of the variable store which corresponds
to ROW, COL with the value TEXT.
Returns true if anything was updated, false otherwise.
*/
-static gboolean
-psppire_var_store_set_string(GSheetModel *model,
+static gboolean
+psppire_var_store_set_string(GSheetModel *model,
const gchar *text, gint row, gint col)
{
- struct PsppireVariable *pv ;
+ struct variable *pv ;
PsppireVarStore *var_store = PSPPIRE_VAR_STORE(model);
if ( row >= psppire_dict_get_var_cnt(var_store->dict))
return FALSE;
- pv = psppire_var_store_get_variable(var_store, row);
- if ( !pv )
+ pv = psppire_var_store_get_var (var_store, row);
+
+ if ( !pv )
return FALSE;
switch (col)
{
case COL_NAME:
- return psppire_variable_set_name(pv, text);
+ psppire_dict_rename_var (var_store->dict, pv, text);
+ return TRUE;
break;
case COL_COLUMNS:
if ( ! text) return FALSE;
- return psppire_variable_set_columns(pv, atoi(text));
+ var_set_display_width (pv, atoi(text));
+ return TRUE;
break;
case COL_WIDTH:
- if ( ! text) return FALSE;
- return psppire_variable_set_width(pv, atoi(text));
+ {
+ int width = atoi (text);
+ if ( ! text) return FALSE;
+ if ( var_is_alpha (pv))
+ var_set_width (pv, width);
+ else
+ {
+ struct fmt_spec fmt ;
+ fmt = *var_get_write_format (pv);
+ if ( width < fmt_min_output_width (fmt.type)
+ ||
+ width > fmt_max_output_width (fmt.type))
+ return FALSE;
+
+ fmt.w = width;
+ fmt.d = MIN (fmt_max_output_decimals (fmt.type, width), fmt.d);
+
+ var_set_both_formats (pv, &fmt);
+ }
+
+ return TRUE;
+ }
break;
case COL_DECIMALS:
- if ( ! text) return FALSE;
- return psppire_variable_set_decimals(pv, atoi(text));
+ {
+ int decimals;
+ struct fmt_spec fmt;
+ if ( ! text) return FALSE;
+ decimals = atoi (text);
+ fmt = *var_get_write_format (pv);
+ if ( decimals >
+ fmt_max_output_decimals (fmt.type,
+ fmt.w
+ ))
+ return FALSE;
+
+ fmt.d = decimals;
+ var_set_both_formats (pv, &fmt);
+ return TRUE;
+ }
break;
case COL_LABEL:
- psppire_variable_set_label(pv, text);
+ var_set_label(pv, text);
return TRUE;
break;
case COL_TYPE:
static gchar *
-text_for_column(const struct PsppireVariable *pv, gint c, GError **err)
+text_for_column(const struct variable *pv, gint c, GError **err)
{
static gchar none[] = N_("None");
- static const gchar *const type_label[] =
+ static const gchar *const type_label[] =
{
N_("Numeric"),
N_("Comma"),
N_("Custom"),
N_("String")
};
- enum {VT_NUMERIC, VT_COMMA, VT_DOT, VT_SCIENTIFIC, VT_DATE, VT_DOLLAR,
+ enum {VT_NUMERIC, VT_COMMA, VT_DOT, VT_SCIENTIFIC, VT_DATE, VT_DOLLAR,
VT_CUSTOM, VT_STRING};
- const struct fmt_spec *write_spec = psppire_variable_get_write_spec(pv);
+ const struct fmt_spec *write_spec = var_get_write_format (pv);
switch (c)
{
case COL_NAME:
- return pspp_locale_to_utf8(psppire_variable_get_name(pv), -1, err);
+ return pspp_locale_to_utf8 ( var_get_name (pv), -1, err);
break;
case COL_TYPE:
{
- switch ( write_spec->type )
+ switch ( write_spec->type )
{
case FMT_F:
return g_locale_to_utf8(gettext(type_label[VT_NUMERIC]), -1, 0, 0, err);
case FMT_E:
return g_locale_to_utf8(gettext(type_label[VT_SCIENTIFIC]), -1, 0, 0, err);
break;
- case FMT_DATE:
- case FMT_EDATE:
- case FMT_SDATE:
- case FMT_ADATE:
- case FMT_JDATE:
- case FMT_QYR:
- case FMT_MOYR:
- case FMT_WKYR:
- case FMT_DATETIME:
- case FMT_TIME:
- case FMT_DTIME:
- case FMT_WKDAY:
- case FMT_MONTH:
+ case FMT_DATE:
+ case FMT_EDATE:
+ case FMT_SDATE:
+ case FMT_ADATE:
+ case FMT_JDATE:
+ case FMT_QYR:
+ case FMT_MOYR:
+ case FMT_WKYR:
+ case FMT_DATETIME:
+ case FMT_TIME:
+ case FMT_DTIME:
+ case FMT_WKDAY:
+ case FMT_MONTH:
return g_locale_to_utf8(type_label[VT_DATE], -1, 0, 0, err);
break;
case FMT_DOLLAR:
case FMT_A:
return g_locale_to_utf8(gettext(type_label[VT_STRING]), -1, 0, 0, err);
break;
- default:
+ default:
{
char str[FMT_STRING_LEN_MAX + 1];
- g_warning("Unknown format: \"%s\"\n",
- fmt_to_string(write_spec, str));
+ g_warning("Unknown format: \"%s\"\n",
+ fmt_to_string(write_spec, str));
}
break;
}
{
gchar *s;
GString *gstr = g_string_sized_new(10);
- g_string_printf(gstr, _("%d"), psppire_variable_get_columns(pv));
+ g_string_printf(gstr, _("%d"), var_get_display_width (pv));
s = g_locale_to_utf8(gstr->str, gstr->len, 0, 0, err);
g_string_free(gstr, TRUE);
return s;
}
break;
case COL_LABEL:
- return pspp_locale_to_utf8(psppire_variable_get_label(pv), -1, err);
+ return pspp_locale_to_utf8 (var_get_label (pv), -1, err);
break;
case COL_MISSING:
{
gchar *s;
- const struct missing_values *miss = psppire_variable_get_missing(pv);
- if ( mv_is_empty(miss))
+ const struct missing_values *miss = var_get_missing_values (pv);
+ if ( mv_is_empty(miss))
return g_locale_to_utf8(gettext(none), -1, 0, 0, err);
else
{
const int n = mv_n_values(miss);
gchar *mv[4] = {0,0,0,0};
gint i;
- for(i = 0 ; i < n; ++i )
+ for(i = 0 ; i < n; ++i )
{
union value v;
mv_peek_value(miss, &v, i);
mv[i] = value_to_text(v, *write_spec);
- if ( i > 0 )
+ if ( i > 0 )
g_string_append(gstr, ", ");
g_string_append(gstr, mv[i]);
g_free(mv[i]);
gchar *l, *h;
union value low, high;
mv_peek_range(miss, &low.f, &high.f);
-
+
l = value_to_text(low, *write_spec);
h = value_to_text(high, *write_spec);
g_free(l);
g_free(h);
- if ( mv_has_value(miss))
+ if ( mv_has_value(miss))
{
gchar *ss = 0;
union value v;
break;
case COL_VALUES:
{
- const struct val_labs *vls = psppire_variable_get_value_labels(pv);
- if ( ! vls || 0 == val_labs_count(vls) )
- return g_locale_to_utf8(gettext(none), -1, 0, 0, err);
+ if ( ! var_has_value_labels (pv))
+ return g_locale_to_utf8 (gettext (none), -1, 0, 0, err);
else
{
gchar *ss;
- GString *gstr = g_string_sized_new(10);
+ GString *gstr = g_string_sized_new (10);
+ const struct val_labs *vls = var_get_value_labels (pv);
struct val_labs_iterator *ip = 0;
struct val_lab *vl = val_labs_first_sorted (vls, &ip);
- g_assert(vl);
+ g_assert (vl);
{
- gchar *const vstr = value_to_text(vl->value, *write_spec);
+ gchar *const vstr = value_to_text (vl->value, *write_spec);
- g_string_printf(gstr, "{%s,\"%s\"}_", vstr, vl->label);
- g_free(vstr);
+ g_string_printf (gstr, "{%s,\"%s\"}_", vstr, vl->label);
+ g_free (vstr);
}
- val_labs_done(&ip);
-
- ss = pspp_locale_to_utf8(gstr->str, gstr->len, err);
- g_string_free(gstr, TRUE);
+ val_labs_done (&ip);
+
+ ss = pspp_locale_to_utf8 (gstr->str, gstr->len, err);
+ g_string_free (gstr, TRUE);
return ss;
}
}
break;
case COL_ALIGN:
{
- const gint align = psppire_variable_get_alignment(pv);
+ const gint align = var_get_alignment(pv);
- g_assert(align < n_ALIGNMENTS);
+ g_assert (align < n_ALIGNMENTS);
return g_locale_to_utf8(gettext(alignments[align]), -1, 0, 0, err);
}
break;
case COL_MEASURE:
{
- const gint measure = psppire_variable_get_measure(pv);
+ const gint measure = var_get_measure (pv);
- g_assert(measure < n_MEASURES);
- return g_locale_to_utf8(gettext(measures[measure]), -1, 0, 0, err);
+ g_assert (measure < n_MEASURES);
+ return g_locale_to_utf8 (gettext (measures[measure]),
+ -1, 0, 0, err);
}
break;
}
gint rows = 0;
PsppireVarStore *vs = PSPPIRE_VAR_STORE(model);
- if (vs->dict)
- rows = psppire_dict_get_var_cnt(vs->dict);
+ if (vs->dict)
+ rows = psppire_dict_get_var_cnt(vs->dict);
return rows ;
}
gint rows = 0;
PsppireVarStore *vs = PSPPIRE_VAR_STORE(geom);
- if (vs->dict)
- rows = psppire_dict_get_var_cnt(vs->dict);
+ if (vs->dict)
+ rows = psppire_dict_get_var_cnt(vs->dict);
return rows + TRAILING_ROWS;
}
geometry_is_sensitive(const GSheetRow *geom, gint row, gpointer data)
{
PsppireVarStore *vs = PSPPIRE_VAR_STORE(geom);
-
- if ( ! vs->dict)
+
+ if ( ! vs->dict)
return FALSE;
- return row < psppire_dict_get_var_cnt(vs->dict);
+ return row < psppire_dict_get_var_cnt(vs->dict);
}
static
geometry_get_button_label(const GSheetRow *geom, gint unit, gpointer data)
{
gchar *label = g_strdup_printf(_("%d"), unit);
-
+
return label;
}
projects / pspp-builds.git / blobdiff