src/ui/gui/psppire-var-store.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2006, 2009  Free Software Foundation
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17 #include <config.h>
  18 #include <string.h>
  19 #include <stdlib.h>
  20 #include <gettext.h>
  21 #define _(msgid) gettext (msgid)
  22 #define N_(msgid) msgid
  23
  24 #include <libpspp/i18n.h>
  25
  26 #include <gobject/gvaluecollector.h>
  27
  28 #include <ui/gui/sheet/psppire-sheetmodel.h>
  29
  30 #include "psppire-var-store.h"
  31 #include "helper.h"
  32
  33 #include <data/dictionary.h>
  34 #include <data/variable.h>
  35 #include <data/format.h>
  36 #include <data/missing-values.h>
  37
  38 #include "val-labs-dialog.h"
  39 #include "missing-val-dialog.h"
  40 #include <data/value-labels.h>
  41
  42 #include "var-display.h"
  43
  44 static void
  45 var_change_callback (GtkWidget *w, gint n, gpointer data)
  46 {
  47   PsppireSheetModel *model = PSPPIRE_SHEET_MODEL (data);
  48
  49   psppire_sheet_model_range_changed (model,
  50                                  n, 0, n, PSPPIRE_VAR_STORE_n_COLS);
  51 }
  52
  53
  54 static void
  55 var_delete_callback (GtkWidget *w, gint dict_idx, gint case_idx, gint val_cnt, gpointer data)
  56 {
  57   PsppireSheetModel *model = PSPPIRE_SHEET_MODEL (data);
  58
  59   psppire_sheet_model_rows_deleted (model, dict_idx, 1);
  60 }
  61
  62
  63
  64 static void
  65 var_insert_callback (GtkWidget *w, glong row, gpointer data)
  66 {
  67   PsppireSheetModel *model = PSPPIRE_SHEET_MODEL (data);
  68
  69   psppire_sheet_model_rows_inserted (model, row, 1);
  70 }
  71
  72 static void
  73 refresh (PsppireDict  *d, gpointer data)
  74 {
  75   PsppireVarStore *vs = data;
  76
  77   psppire_sheet_model_range_changed (PSPPIRE_SHEET_MODEL (vs), -1, -1, -1, -1);
  78 }
  79
  80 enum
  81   {
  82     PROP_0,
  83     PSPPIRE_VAR_STORE_FORMAT_TYPE,
  84     PSPPIRE_VAR_STORE_DICT
  85   };
  86
  87 static void         psppire_var_store_init            (PsppireVarStore      *var_store);
  88 static void         psppire_var_store_class_init      (PsppireVarStoreClass *class);
  89 static void         psppire_var_store_sheet_model_init (PsppireSheetModelIface *iface);
  90 static void         psppire_var_store_finalize        (GObject           *object);
  91 static void         psppire_var_store_dispose        (GObject           *object);
  92
  93
  94 static gchar *psppire_var_store_get_string (const PsppireSheetModel *sheet_model, glong row, glong column);
  95
  96 static gboolean  psppire_var_store_clear (PsppireSheetModel *model,  glong row, glong col);
  97
  98
  99 static gboolean psppire_var_store_set_string (PsppireSheetModel *model,
 100                                           const gchar *text, glong row, glong column);
 101
 102 static glong psppire_var_store_get_row_count (const PsppireSheetModel * model);
 103 static glong psppire_var_store_get_column_count (const PsppireSheetModel * model);
 104
 105 static gchar *text_for_column (PsppireVarStore *vs, const struct variable *pv,
 106                                gint c, GError **err);
 107
 108
 109 static GObjectClass *parent_class = NULL;
 110
 111 GType
 112 psppire_var_store_format_type_get_type (void)
 113 {
 114   static GType etype = 0;
 115   if (etype == 0)
 116     {
 117       static const GEnumValue values[] =
 118         {
 119           { PSPPIRE_VAR_STORE_INPUT_FORMATS,
 120             "PSPPIRE_VAR_STORE_INPUT_FORMATS",
 121             "input" },
 122           { PSPPIRE_VAR_STORE_OUTPUT_FORMATS,
 123             "PSPPIRE_VAR_STORE_OUTPUT_FORMATS",
 124             "output" },
 125           { 0, NULL, NULL }
 126         };
 127
 128       etype = g_enum_register_static
 129         (g_intern_static_string ("PsppireVarStoreFormatType"), values);
 130
 131     }
 132   return etype;
 133 }
 134
 135 GType
 136 psppire_var_store_get_type (void)
 137 {
 138   static GType var_store_type = 0;
 139
 140   if (!var_store_type)
 141     {
 142       static const GTypeInfo var_store_info =
 143       {
 144         sizeof (PsppireVarStoreClass),
 145         NULL,           /* base_init */
 146         NULL,           /* base_finalize */
 147         (GClassInitFunc) psppire_var_store_class_init,
 148         NULL,           /* class_finalize */
 149         NULL,           /* class_data */
 150         sizeof (PsppireVarStore),
 151         0,
 152         (GInstanceInitFunc) psppire_var_store_init,
 153       };
 154
 155       static const GInterfaceInfo sheet_model_info =
 156       {
 157         (GInterfaceInitFunc) psppire_var_store_sheet_model_init,
 158         NULL,
 159         NULL
 160       };
 161
 162       var_store_type = g_type_register_static (G_TYPE_OBJECT, "PsppireVarStore", &var_store_info, 0);
 163
 164       g_type_add_interface_static (var_store_type,
 165                                    PSPPIRE_TYPE_SHEET_MODEL,
 166                                    &sheet_model_info);
 167     }
 168
 169   return var_store_type;
 170 }
 171
 172 static void
 173 psppire_var_store_set_property (GObject      *object,
 174                                 guint         property_id,
 175                                 const GValue *value,
 176                                 GParamSpec   *pspec)
 177 {
 178   PsppireVarStore *self = (PsppireVarStore *) object;
 179
 180   switch (property_id)
 181     {
 182     case PSPPIRE_VAR_STORE_FORMAT_TYPE:
 183       self->format_type = g_value_get_enum (value);
 184       break;
 185
 186     case PSPPIRE_VAR_STORE_DICT:
 187       if ( self->dictionary)
 188         g_object_unref (self->dictionary);
 189       self->dictionary = g_value_dup_object (value);
 190       g_signal_connect (self->dictionary, "variable-changed", G_CALLBACK (var_change_callback),
 191                         self);
 192
 193       g_signal_connect (self->dictionary, "variable-deleted", G_CALLBACK (var_delete_callback),
 194                         self);
 195
 196       g_signal_connect (self->dictionary, "variable-inserted",
 197                         G_CALLBACK (var_insert_callback), self);
 198
 199       g_signal_connect (self->dictionary, "backend-changed", G_CALLBACK (refresh),
 200                         self);
 201
 202       /* The entire model has changed */
 203       psppire_sheet_model_range_changed (PSPPIRE_SHEET_MODEL (self), -1, -1, -1, -1);
 204
 205       break;
 206
 207     default:
 208       G_OBJECT_WARN_INVALID_PROPERTY_ID(object, property_id, pspec);
 209       break;
 210     }
 211 }
 212
 213 static void
 214 psppire_var_store_get_property (GObject      *object,
 215                         guint         property_id,
 216                         GValue       *value,
 217                         GParamSpec   *pspec)
 218 {
 219   PsppireVarStore *self = (PsppireVarStore *) object;
 220
 221   switch (property_id)
 222     {
 223     case PSPPIRE_VAR_STORE_FORMAT_TYPE:
 224       g_value_set_enum (value, self->format_type);
 225       break;
 226
 227     case PSPPIRE_VAR_STORE_DICT:
 228       g_value_take_object (value, self->dictionary);
 229       break;
 230
 231     default:
 232       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
 233       break;
 234     }
 235 }
 236
 237
 238 static void
 239 psppire_var_store_class_init (PsppireVarStoreClass *class)
 240 {
 241   GObjectClass *object_class;
 242   GParamSpec *format_pspec;
 243   GParamSpec *dict_pspec;
 244
 245   parent_class = g_type_class_peek_parent (class);
 246   object_class = (GObjectClass*) class;
 247
 248   object_class->finalize = psppire_var_store_finalize;
 249   object_class->dispose = psppire_var_store_dispose;
 250   object_class->set_property = psppire_var_store_set_property;
 251   object_class->get_property = psppire_var_store_get_property;
 252
 253   format_pspec = g_param_spec_enum ("format-type",
 254                              "Variable format type",
 255                              ("Whether variables have input or output "
 256                               "formats"),
 257                              PSPPIRE_TYPE_VAR_STORE_FORMAT_TYPE,
 258                              PSPPIRE_VAR_STORE_OUTPUT_FORMATS,
 259                              G_PARAM_READWRITE);
 260
 261   g_object_class_install_property (object_class,
 262                                    PSPPIRE_VAR_STORE_FORMAT_TYPE,
 263                                    format_pspec);
 264
 265   dict_pspec = g_param_spec_object ("dictionary",
 266                                     "Dictionary",
 267                                     "The PsppireDict represented by this var store",
 268                                     PSPPIRE_TYPE_DICT,
 269                                     G_PARAM_READWRITE | G_PARAM_CONSTRUCT);
 270
 271   g_object_class_install_property (object_class,
 272                                    PSPPIRE_VAR_STORE_DICT,
 273                                    dict_pspec);
 274 }
 275
 276 #define DISABLED_COLOR "gray"
 277
 278 static void
 279 psppire_var_store_init (PsppireVarStore *var_store)
 280 {
 281   if ( ! gdk_color_parse (DISABLED_COLOR, &var_store->disabled))
 282         g_critical ("Could not parse color \"%s\"", DISABLED_COLOR);
 283
 284   var_store->dictionary = NULL;
 285   var_store->format_type = PSPPIRE_VAR_STORE_OUTPUT_FORMATS;
 286 }
 287
 288 static gboolean
 289 psppire_var_store_item_editable (PsppireVarStore *var_store, glong row, glong column)
 290 {
 291   const struct fmt_spec *write_spec ;
 292
 293   struct variable *pv = psppire_var_store_get_var (var_store, row);
 294
 295   if ( !pv )
 296     return TRUE;
 297
 298   if ( var_is_alpha (pv) && column == PSPPIRE_VAR_STORE_COL_DECIMALS )
 299     return FALSE;
 300
 301   write_spec = var_get_print_format (pv);
 302
 303   switch ( write_spec->type )
 304     {
 305     case FMT_DATE:
 306     case FMT_EDATE:
 307     case FMT_SDATE:
 308     case FMT_ADATE:
 309     case FMT_JDATE:
 310     case FMT_QYR:
 311     case FMT_MOYR:
 312     case FMT_WKYR:
 313     case FMT_DATETIME:
 314     case FMT_TIME:
 315     case FMT_DTIME:
 316     case FMT_WKDAY:
 317     case FMT_MONTH:
 318       if ( column == PSPPIRE_VAR_STORE_COL_DECIMALS || column == PSPPIRE_VAR_STORE_COL_WIDTH)
 319         return FALSE;
 320       break;
 321     default:
 322       break;
 323     }
 324
 325   return TRUE;
 326 }
 327
 328
 329 struct variable *
 330 psppire_var_store_get_var (PsppireVarStore *store, glong row)
 331 {
 332   return psppire_dict_get_variable (store->dictionary, row);
 333 }
 334
 335 static gboolean
 336 psppire_var_store_is_editable (const PsppireSheetModel *model, glong row, glong column)
 337 {
 338   PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
 339   return psppire_var_store_item_editable (store, row, column);
 340 }
 341
 342
 343 static GdkColor *
 344 psppire_var_store_get_foreground (const PsppireSheetModel *model, glong row, glong column)
 345 {
 346   PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
 347
 348   if ( ! psppire_var_store_item_editable (store, row, column) )
 349     return &store->disabled;
 350
 351   return NULL;
 352 }
 353
 354
 355 static gchar *get_column_title (const PsppireSheetModel *model, gint col);
 356 static gchar *get_row_title (const PsppireSheetModel *model, gint row);
 357 static gboolean get_row_sensitivity (const PsppireSheetModel *model, gint row);
 358
 359 static void
 360 psppire_var_store_sheet_model_init (PsppireSheetModelIface *iface)
 361 {
 362   iface->get_row_count = psppire_var_store_get_row_count;
 363   iface->get_column_count = psppire_var_store_get_column_count;
 364   iface->free_strings = TRUE;
 365   iface->get_string = psppire_var_store_get_string;
 366   iface->set_string = psppire_var_store_set_string;
 367   iface->clear_datum = psppire_var_store_clear;
 368   iface->is_editable = psppire_var_store_is_editable;
 369   iface->get_foreground = psppire_var_store_get_foreground;
 370   iface->get_background = NULL;
 371   iface->get_justification = NULL;
 372
 373   iface->get_column_title = get_column_title;
 374
 375   iface->get_row_title = get_row_title;
 376   iface->get_row_sensitivity = get_row_sensitivity;
 377
 378   iface->get_row_overstrike = NULL;
 379 }
 380
 381 /**
 382  * psppire_var_store_new:
 383  * @dict: The dictionary for this var_store.
 384  *
 385  *
 386  * Return value: a new #PsppireVarStore
 387  **/
 388 PsppireVarStore *
 389 psppire_var_store_new (PsppireDict *dict)
 390 {
 391   PsppireVarStore *retval;
 392
 393   retval = g_object_new (GTK_TYPE_VAR_STORE, "dictionary", dict, NULL);
 394
 395   //  psppire_var_store_set_dictionary (retval, dict);
 396
 397   return retval;
 398 }
 399
 400 #if 0
 401 /**
 402  * psppire_var_store_replace_set_dictionary:
 403  * @var_store: The variable store
 404  * @dict: The dictionary to set
 405  *
 406  * If a dictionary is already associated with the var-store, then it will be
 407  * destroyed.
 408  **/
 409 void
 410 psppire_var_store_set_dictionary (PsppireVarStore *var_store, PsppireDict *dict)
 411 {
 412   if ( var_store->dict ) g_object_unref (var_store->dict);
 413
 414   var_store->dict = dict;
 415
 416   g_signal_connect (dict, "variable-changed", G_CALLBACK (var_change_callback),
 417                    var_store);
 418
 419   g_signal_connect (dict, "variable-deleted", G_CALLBACK (var_delete_callback),
 420                    var_store);
 421
 422   g_signal_connect (dict, "variable-inserted",
 423                     G_CALLBACK (var_insert_callback), var_store);
 424
 425   g_signal_connect (dict, "backend-changed", G_CALLBACK (refresh),
 426                     var_store);
 427
 428   /* The entire model has changed */
 429   psppire_sheet_model_range_changed (PSPPIRE_SHEET_MODEL (var_store), -1, -1, -1, -1);
 430 }
 431 #endif
 432
 433 static void
 434 psppire_var_store_finalize (GObject *object)
 435 {
 436   /* must chain up */
 437   (* parent_class->finalize) (object);
 438 }
 439
 440 static void
 441 psppire_var_store_dispose (GObject *object)
 442 {
 443   PsppireVarStore *self = PSPPIRE_VAR_STORE (object);
 444
 445   if (self->dictionary)
 446     g_object_unref (self->dictionary);
 447
 448   /* must chain up */
 449   (* parent_class->finalize) (object);
 450 }
 451
 452
 453 static gchar *
 454 psppire_var_store_get_string (const PsppireSheetModel *model,
 455                               glong row, glong column)
 456 {
 457   PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
 458
 459   struct variable *pv;
 460
 461   if ( row >= psppire_dict_get_var_cnt (store->dictionary))
 462     return 0;
 463
 464   pv = psppire_dict_get_variable (store->dictionary, row);
 465
 466   return text_for_column (store, pv, column, 0);
 467 }
 468
 469
 470 /* Clears that part of the variable store, if possible, which corresponds
 471    to ROW, COL.
 472    Returns true if anything was updated, false otherwise.
 473 */
 474 static gboolean
 475 psppire_var_store_clear (PsppireSheetModel *model,  glong row, glong col)
 476 {
 477   struct variable *pv ;
 478
 479   PsppireVarStore *var_store = PSPPIRE_VAR_STORE (model);
 480
 481   if ( row >= psppire_dict_get_var_cnt (var_store->dictionary))
 482       return FALSE;
 483
 484   pv = psppire_var_store_get_var (var_store, row);
 485
 486   if ( !pv )
 487     return FALSE;
 488
 489   switch (col)
 490     {
 491     case PSPPIRE_VAR_STORE_COL_LABEL:
 492       var_set_label (pv, NULL);
 493       return TRUE;
 494       break;
 495     }
 496
 497   return FALSE;
 498 }
 499
 500 /* Attempts to update that part of the variable store which corresponds
 501    to ROW, COL with  the value TEXT.
 502    Returns true if anything was updated, false otherwise.
 503 */
 504 static gboolean
 505 psppire_var_store_set_string (PsppireSheetModel *model,
 506                           const gchar *text, glong row, glong col)
 507 {
 508   struct variable *pv ;
 509
 510   PsppireVarStore *var_store = PSPPIRE_VAR_STORE (model);
 511
 512   if ( row >= psppire_dict_get_var_cnt (var_store->dictionary))
 513       return FALSE;
 514
 515   pv = psppire_var_store_get_var (var_store, row);
 516
 517   if ( !pv )
 518     return FALSE;
 519
 520   switch (col)
 521     {
 522     case PSPPIRE_VAR_STORE_COL_NAME:
 523       {
 524         gboolean ok;
 525         ok =  psppire_dict_rename_var (var_store->dictionary, pv, text);
 526         return ok;
 527       }
 528     case PSPPIRE_VAR_STORE_COL_COLUMNS:
 529       if ( ! text) return FALSE;
 530       var_set_display_width (pv, atoi (text));
 531       return TRUE;
 532       break;
 533     case PSPPIRE_VAR_STORE_COL_WIDTH:
 534       {
 535         const int width = atoi (text);
 536         if ( ! text)
 537           return FALSE;
 538
 539         if (width < 0)
 540           return FALSE;
 541
 542         if ( var_is_alpha (pv))
 543           {
 544             if ( width > MAX_STRING )
 545               return FALSE;
 546             var_set_width (pv, width);
 547           }
 548         else
 549           {
 550             bool for_input
 551               = var_store->format_type == PSPPIRE_VAR_STORE_INPUT_FORMATS;
 552             struct fmt_spec fmt ;
 553             fmt = *var_get_write_format (pv);
 554             if ( width < fmt_min_width (fmt.type, for_input)
 555                  ||
 556                  width > fmt_max_width (fmt.type, for_input))
 557               return FALSE;
 558
 559             fmt.w = width;
 560             fmt.d = MIN (fmt_max_decimals (fmt.type, width, for_input), fmt.d);
 561
 562             var_set_both_formats (pv, &fmt);
 563           }
 564
 565         return TRUE;
 566       }
 567       break;
 568     case PSPPIRE_VAR_STORE_COL_DECIMALS:
 569       {
 570         bool for_input
 571           = var_store->format_type == PSPPIRE_VAR_STORE_INPUT_FORMATS;
 572         int decimals;
 573         struct fmt_spec fmt;
 574         if ( ! text) return FALSE;
 575         decimals = atoi (text);
 576         fmt = *var_get_write_format (pv);
 577         if ( decimals >
 578              fmt_max_decimals (fmt.type,
 579                                fmt.w,
 580                                for_input
 581                                ))
 582           return FALSE;
 583
 584         fmt.d = decimals;
 585         var_set_both_formats (pv, &fmt);
 586         return TRUE;
 587       }
 588       break;
 589     case PSPPIRE_VAR_STORE_COL_LABEL:
 590       {
 591         var_set_label (pv, text);
 592         return TRUE;
 593       }
 594       break;
 595     case PSPPIRE_VAR_STORE_COL_TYPE:
 596     case PSPPIRE_VAR_STORE_COL_VALUES:
 597     case PSPPIRE_VAR_STORE_COL_MISSING:
 598     case PSPPIRE_VAR_STORE_COL_ALIGN:
 599     case PSPPIRE_VAR_STORE_COL_MEASURE:
 600       /* These can be modified only by their respective dialog boxes */
 601       return FALSE;
 602       break;
 603     default:
 604       g_assert_not_reached ();
 605       return FALSE;
 606     }
 607
 608   return TRUE;
 609 }
 610
 611
 612 static const gchar none[] = N_("None");
 613
 614 static  gchar *
 615 text_for_column (PsppireVarStore *vs,
 616                  const struct variable *pv, gint c, GError **err)
 617 {
 618   PsppireDict *dict = vs->dictionary;
 619   static const gchar *const type_label[] =
 620     {
 621       N_("Numeric"),
 622       N_("Comma"),
 623       N_("Dot"),
 624       N_("Scientific"),
 625       N_("Date"),
 626       N_("Dollar"),
 627       N_("Custom"),
 628       N_("String")
 629     };
 630
 631   enum {VT_NUMERIC, VT_COMMA, VT_DOT, VT_SCIENTIFIC, VT_DATE, VT_DOLLAR,
 632         VT_CUSTOM, VT_STRING};
 633
 634   const struct fmt_spec *write_spec = var_get_write_format (pv);
 635
 636   switch (c)
 637     {
 638     case PSPPIRE_VAR_STORE_COL_NAME:
 639       return xstrdup (var_get_name (pv));
 640       break;
 641     case PSPPIRE_VAR_STORE_COL_TYPE:
 642       {
 643         switch ( write_spec->type )
 644           {
 645           case FMT_F:
 646             return g_locale_to_utf8 (gettext (type_label[VT_NUMERIC]), -1, 0, 0, err);
 647             break;
 648           case FMT_COMMA:
 649             return g_locale_to_utf8 (gettext (type_label[VT_COMMA]), -1, 0, 0, err);
 650             break;
 651           case FMT_DOT:
 652             return g_locale_to_utf8 (gettext (type_label[VT_DOT]), -1, 0, 0, err);
 653             break;
 654           case FMT_E:
 655             return g_locale_to_utf8 (gettext (type_label[VT_SCIENTIFIC]), -1, 0, 0, err);
 656             break;
 657           case FMT_DATE:
 658           case FMT_EDATE:
 659           case FMT_SDATE:
 660           case FMT_ADATE:
 661           case FMT_JDATE:
 662           case FMT_QYR:
 663           case FMT_MOYR:
 664           case FMT_WKYR:
 665           case FMT_DATETIME:
 666           case FMT_TIME:
 667           case FMT_DTIME:
 668           case FMT_WKDAY:
 669           case FMT_MONTH:
 670             return g_locale_to_utf8 (type_label[VT_DATE], -1, 0, 0, err);
 671             break;
 672           case FMT_DOLLAR:
 673             return g_locale_to_utf8 (type_label[VT_DOLLAR], -1, 0, 0, err);
 674             break;
 675           case FMT_CCA:
 676           case FMT_CCB:
 677           case FMT_CCC:
 678           case FMT_CCD:
 679           case FMT_CCE:
 680             return g_locale_to_utf8 (gettext (type_label[VT_CUSTOM]), -1, 0, 0, err);
 681             break;
 682           case FMT_A:
 683             return g_locale_to_utf8 (gettext (type_label[VT_STRING]), -1, 0, 0, err);
 684             break;
 685           default:
 686             {
 687               char str[FMT_STRING_LEN_MAX + 1];
 688               g_warning ("Unknown format: \"%s\"\n",
 689                         fmt_to_string (write_spec, str));
 690             }
 691             break;
 692           }
 693       }
 694       break;
 695     case PSPPIRE_VAR_STORE_COL_WIDTH:
 696       {
 697         gchar *s;
 698         GString *gstr = g_string_sized_new (10);
 699         g_string_printf (gstr, _("%d"), write_spec->w);
 700         s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
 701         g_string_free (gstr, TRUE);
 702         return s;
 703       }
 704       break;
 705     case PSPPIRE_VAR_STORE_COL_DECIMALS:
 706       {
 707         gchar *s;
 708         GString *gstr = g_string_sized_new (10);
 709         g_string_printf (gstr, _("%d"), write_spec->d);
 710         s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
 711         g_string_free (gstr, TRUE);
 712         return s;
 713       }
 714       break;
 715     case PSPPIRE_VAR_STORE_COL_COLUMNS:
 716       {
 717         gchar *s;
 718         GString *gstr = g_string_sized_new (10);
 719         g_string_printf (gstr, _("%d"), var_get_display_width (pv));
 720         s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
 721         g_string_free (gstr, TRUE);
 722         return s;
 723       }
 724       break;
 725     case PSPPIRE_VAR_STORE_COL_LABEL:
 726       {
 727         const char *label = var_get_label (pv);
 728         if (label)
 729           return xstrdup (label);
 730         return NULL;
 731       }
 732       break;
 733
 734     case PSPPIRE_VAR_STORE_COL_MISSING:
 735       {
 736         return missing_values_to_string (dict, pv, err);
 737       }
 738       break;
 739     case PSPPIRE_VAR_STORE_COL_VALUES:
 740       {
 741         if ( ! var_has_value_labels (pv))
 742           return g_locale_to_utf8 (gettext (none), -1, 0, 0, err);
 743         else
 744           {
 745             const struct val_labs *vls = var_get_value_labels (pv);
 746             const struct val_lab **labels = val_labs_sorted (vls);
 747             const struct val_lab *vl = labels[0];
 748             free (labels);
 749
 750             g_assert (vl);
 751
 752             {
 753               gchar *const vstr = value_to_text (vl->value, dict, *write_spec);
 754
 755               return g_strdup_printf ( "{%s,\"%s\"}_", vstr, val_lab_get_label (vl));
 756             }
 757           }
 758       }
 759       break;
 760     case PSPPIRE_VAR_STORE_COL_ALIGN:
 761       {
 762         const gint align = var_get_alignment (pv);
 763
 764         g_assert (align < n_ALIGNMENTS);
 765         return g_locale_to_utf8 (gettext (alignments[align]), -1, 0, 0, err);
 766       }
 767       break;
 768     case PSPPIRE_VAR_STORE_COL_MEASURE:
 769       {
 770         return measure_to_string (pv, err);
 771       }
 772       break;
 773     }
 774   return 0;
 775 }
 776
 777
 778
 779 /* Return the number of variables */
 780 gint
 781 psppire_var_store_get_var_cnt (PsppireVarStore  *store)
 782 {
 783   return psppire_dict_get_var_cnt (store->dictionary);
 784 }
 785
 786
 787 static glong
 788 psppire_var_store_get_row_count (const PsppireSheetModel * model)
 789 {
 790   gint rows = 0;
 791   PsppireVarStore *vs = PSPPIRE_VAR_STORE (model);
 792
 793   if (vs->dictionary)
 794     rows =  psppire_dict_get_var_cnt (vs->dictionary);
 795
 796   return rows ;
 797 }
 798
 799 static glong
 800 psppire_var_store_get_column_count (const PsppireSheetModel * model)
 801 {
 802   return PSPPIRE_VAR_STORE_n_COLS ;
 803 }
 804
 805 \f
 806
 807 /* Row related funcs */
 808
 809
 810 static gboolean
 811 get_row_sensitivity (const PsppireSheetModel *model, gint row)
 812 {
 813   PsppireVarStore *vs = PSPPIRE_VAR_STORE (model);
 814
 815   if ( ! vs->dictionary)
 816     return FALSE;
 817
 818   return  row < psppire_dict_get_var_cnt (vs->dictionary);
 819 }
 820
 821
 822 static gchar *
 823 get_row_title (const PsppireSheetModel *model, gint unit)
 824 {
 825   return g_strdup_printf (_("%d"), unit + 1);
 826 }
 827
 828
 829 \f
 830
 831 static const gchar *column_titles[] = {
 832   N_("Name"),
 833   N_("Type"),
 834   N_("Width"),
 835   N_("Decimals"),
 836   N_("Label"),
 837   N_("Values"),
 838   N_("Missing"),
 839   N_("Columns"),
 840   N_("Align"),
 841   N_("Measure"),
 842 };
 843
 844
 845 static gchar *
 846 get_column_title (const PsppireSheetModel *model, gint col)
 847 {
 848   if ( col >= 10)
 849     return NULL;
 850   return g_strdup (gettext (column_titles[col]));
 851 }