pintos-os.org Git - pspp/blob - src/ui/gui/recode-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2009, 2010, 2011, 2012  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 /* This module implements the RECODE dialog.
  18
  19    It has two forms.  One for recoding values into the same variable.
  20    The second for recoding into different variables.
  21 */
  22
  23 #include <config.h>
  24
  25 #include "recode-dialog.h"
  26
  27 #include "executor.h"
  28
  29 #include "psppire-var-view.h"
  30
  31 #include <gtk/gtk.h>
  32
  33 #include <xalloc.h>
  34 #include <ui/gui/psppire-data-window.h>
  35 #include <ui/gui/dialog-common.h>
  36 #include <ui/gui/dict-display.h>
  37 #include <ui/gui/builder-wrapper.h>
  38 #include "helper.h"
  39 #include <ui/gui/psppire-dialog.h>
  40
  41 #include "psppire-val-chooser.h"
  42
  43 #include <ui/syntax-gen.h>
  44
  45 #include "psppire-acr.h"
  46
  47 #include "gettext.h"
  48 #define _(msgid) gettext (msgid)
  49 #define N_(msgid) msgid
  50
  51
  52 /* Define a boxed type to represent a value which is a candidate
  53    to replace an existing value */
  54
  55 enum new_value_type
  56  {
  57    NV_NUMERIC,
  58    NV_STRING,
  59    NV_SYSMIS,
  60    NV_COPY
  61  };
  62
  63
  64 struct new_value
  65 {
  66   enum new_value_type type;
  67   union {
  68     double v;
  69     gchar *s;
  70   } v;
  71 };
  72
  73
  74 static struct new_value *
  75 new_value_copy (struct new_value *nv)
  76 {
  77   struct new_value *copy = g_memdup (nv, sizeof (*copy));
  78
  79   if ( nv->type == NV_STRING )
  80     copy->v.s = xstrdup (nv->v.s);
  81
  82   return copy;
  83 }
  84
  85
  86 static void
  87 new_value_free (struct new_value *nv)
  88 {
  89   if ( nv->type == NV_STRING )
  90     g_free (nv->v.s);
  91
  92   g_free (nv);
  93 }
  94
  95
  96 static void
  97 new_value_to_string (const GValue *src, GValue *dest)
  98 {
  99   const struct new_value *nv = g_value_get_boxed (src);
 100
 101   g_assert (nv);
 102
 103   switch (nv->type)
 104     {
 105     case NV_NUMERIC:
 106       {
 107         gchar *text = g_strdup_printf ("%g", nv->v.v);
 108         g_value_set_string (dest, text);
 109         g_free (text);
 110       }
 111       break;
 112     case NV_STRING:
 113       g_value_set_string (dest, nv->v.s);
 114       break;
 115     case NV_COPY:
 116       g_value_set_string (dest, "COPY");
 117       break;
 118     case NV_SYSMIS:
 119       g_value_set_string (dest, "SYSMIS");
 120       break;
 121     default:
 122       /* Shouldn't ever happen */
 123       g_warning ("Invalid type in new recode value");
 124       g_value_set_string (dest, "???");
 125       break;
 126     }
 127 }
 128
 129 static GType
 130 new_value_get_type (void)
 131 {
 132   static GType t = 0;
 133
 134   if (t == 0 )
 135     {
 136       t = g_boxed_type_register_static  ("psppire-recode-new-values",
 137                                          (GBoxedCopyFunc) new_value_copy,
 138                                          (GBoxedFreeFunc) new_value_free);
 139
 140       g_value_register_transform_func (t, G_TYPE_STRING,
 141                                        new_value_to_string);
 142     }
 143
 144   return t;
 145 }
 146
 147
 148 \f
 149
 150 enum
 151   {
 152     BUTTON_NEW_VALUE,
 153     BUTTON_NEW_COPY,
 154     BUTTON_NEW_SYSMIS,
 155     n_BUTTONS
 156   };
 157
 158 struct recode_dialog
 159 {
 160   PsppireDict *dict;
 161
 162   GtkWidget *dialog;
 163   PsppireDialog *old_and_new_dialog;
 164
 165   GtkWidget *dict_treeview;
 166   GtkWidget *variable_treeview;
 167   GtkWidget *toggle[n_BUTTONS];
 168
 169   GtkWidget *strings_box;
 170   GtkWidget *convert_button;
 171   GtkWidget *new_copy_label;
 172
 173   GtkWidget *new_value_entry;
 174
 175   GtkWidget *old_value_chooser;
 176
 177   GtkListStore *value_map;
 178
 179   /* Indicates that the INTO {new variables} form of the dialog
 180      is being used */
 181   gboolean different;
 182
 183   PsppireAcr *acr;
 184
 185   gboolean input_var_is_string;
 186
 187   GtkWidget *new_name_entry;
 188   GtkWidget *new_label_entry;
 189   GtkWidget *change_button;
 190
 191   GtkWidget *string_button;
 192   GtkWidget *width_entry;
 193
 194   /* A hash table of struct nlp's indexed by variable */
 195   GHashTable *varmap;
 196 };
 197
 198
 199 static void run_old_and_new_dialog (struct recode_dialog *rd);
 200
 201 static void
 202 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
 203 {
 204   GtkTreeModel *vars =
 205     gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 206
 207   gtk_list_store_clear (GTK_LIST_STORE (vars));
 208
 209   gtk_widget_set_sensitive (rd->change_button, FALSE);
 210   gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
 211   gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
 212
 213   if ( rd->different && rd->varmap )
 214     g_hash_table_remove_all (rd->varmap);
 215
 216   gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
 217 }
 218
 219 static char * generate_syntax (const struct recode_dialog *rd);
 220
 221 enum {
 222   COL_VALUE_OLD,
 223   COL_VALUE_NEW,
 224   n_COL_VALUES
 225 };
 226
 227 /* Dialog is valid iff at least one variable has been selected,
 228    AND the list of mappings is not empty.
 229  */
 230 static gboolean
 231 dialog_state_valid (gpointer data)
 232 {
 233   GtkTreeIter not_used;
 234   struct recode_dialog *rd = data;
 235
 236   if ( ! rd->value_map )
 237     return FALSE;
 238
 239   if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
 240                                         &not_used) )
 241     return FALSE;
 242
 243   if ( rd->different )
 244     {
 245       GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 246
 247       if (g_hash_table_size (rd->varmap) != gtk_tree_model_iter_n_children (model, NULL) )
 248         return FALSE;
 249     }
 250   else
 251     {
 252       GtkTreeModel *vars =
 253         gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 254
 255       if ( !gtk_tree_model_get_iter_first (vars, &not_used))
 256         return FALSE;
 257     }
 258
 259   return TRUE;
 260 }
 261
 262 static void
 263 on_old_new_show (struct recode_dialog *rd)
 264 {
 265   gtk_toggle_button_set_active
 266     (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
 267
 268   g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
 269
 270   g_object_set (rd->toggle[BUTTON_NEW_COPY],
 271                 "visible", rd->different, NULL);
 272
 273   g_object_set (rd->new_copy_label,
 274                 "visible", rd->different, NULL);
 275
 276   g_object_set (rd->strings_box,
 277                 "visible", rd->different, NULL);
 278 }
 279
 280 /* Sets the sensitivity of TARGET dependent upon the active status
 281    of BUTTON */
 282 static void
 283 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
 284 {
 285   gboolean state = gtk_toggle_button_get_active (button);
 286
 287   /*  g_print ("%s Setting %p (%s) to %d because of %p\n",
 288       __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
 289
 290   gtk_widget_set_sensitive (target, state);
 291 }
 292
 293 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
 294
 295
 296 /* Pops up the Recode Same version of the dialog box */
 297 void
 298 recode_same_dialog (PsppireDataWindow *de)
 299 {
 300   recode_dialog (de, FALSE);
 301 }
 302
 303 /* Pops up the Recode Different version of the dialog box */
 304 void
 305 recode_different_dialog (PsppireDataWindow *de)
 306 {
 307   recode_dialog (de, TRUE);
 308 }
 309
 310
 311 /* This might need to be changed to something less naive.
 312    In particular, what happends with dates, etc?
 313  */
 314 static gchar *
 315 num_to_string (gdouble x)
 316 {
 317   return g_strdup_printf ("%g", x);
 318 }
 319
 320 /* Callback which gets called when a new row is selected
 321    in the acr's variable treeview.
 322    We use if to set the togglebuttons and entries to correspond to the
 323    selected row.
 324 */
 325 static void
 326 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
 327 {
 328   struct recode_dialog *rd = data;
 329   GtkTreeModel *model = NULL;
 330   GtkTreeIter iter;
 331
 332   GValue ov_value = {0};
 333   GValue nv_value = {0};
 334   struct old_value *ov = NULL;
 335   struct new_value *nv = NULL;
 336
 337   if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
 338     return;
 339
 340
 341   gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
 342                             COL_VALUE_OLD, &ov_value);
 343
 344   gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
 345                             COL_VALUE_NEW, &nv_value);
 346
 347   ov = g_value_get_boxed (&ov_value);
 348   nv = g_value_get_boxed (&nv_value);
 349
 350   if (nv)
 351     {
 352       switch (nv->type)
 353         {
 354         case NV_NUMERIC:
 355           {
 356             gchar *str = num_to_string (nv->v.v);
 357
 358             gtk_toggle_button_set_active
 359               (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
 360
 361             gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
 362             g_free (str);
 363           }
 364           break;
 365         case NV_STRING:
 366           gtk_toggle_button_set_active
 367             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
 368
 369           gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
 370           break;
 371         case NV_SYSMIS:
 372           gtk_toggle_button_set_active
 373             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
 374
 375           break;
 376         case NV_COPY:
 377           gtk_toggle_button_set_active
 378             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
 379
 380           break;
 381         default:
 382           g_warning ("Invalid new value type");
 383           break;
 384         }
 385
 386       g_value_unset (&nv_value);
 387     }
 388
 389   psppire_val_chooser_set_status (PSPPIRE_VAL_CHOOSER (rd->old_value_chooser), ov);
 390 }
 391
 392 /* Name-Label pair */
 393 struct nlp
 394 {
 395   char *name;
 396   char *label;
 397 };
 398
 399 static struct nlp *
 400 nlp_create (const char *name, const char *label)
 401 {
 402   struct nlp *nlp = xmalloc (sizeof *nlp);
 403
 404   nlp->name = g_strdup (name);
 405
 406   nlp->label = NULL;
 407
 408   if ( 0 != strcmp ("", label))
 409     nlp->label = g_strdup (label);
 410
 411   return nlp;
 412 }
 413
 414 static void
 415 nlp_destroy (gpointer data)
 416 {
 417   struct nlp *nlp = data ;
 418   if ( ! nlp )
 419     return;
 420
 421   g_free (nlp->name);
 422   g_free (nlp->label);
 423   g_free (nlp);
 424 }
 425
 426
 427 /* Callback which gets called when a new row is selected
 428    in the variable treeview.
 429    It sets the name and label entry widgets to reflect the
 430    currently selected row.
 431  */
 432 static void
 433 on_selection_change (GtkTreeSelection *selection, gpointer data)
 434 {
 435   struct recode_dialog *rd = data;
 436
 437   GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 438
 439   GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
 440
 441   if ( rows && !rows->next)
 442     {
 443       /* Exactly one row is selected */
 444       struct nlp *nlp;
 445       struct variable *var;
 446       gboolean ok;
 447       GtkTreeIter iter;
 448
 449       gtk_widget_set_sensitive  (rd->change_button, TRUE);
 450       gtk_widget_set_sensitive  (rd->new_name_entry, TRUE);
 451       gtk_widget_set_sensitive  (rd->new_label_entry, TRUE);
 452
 453       ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
 454       g_return_if_fail (ok);
 455
 456       gtk_tree_model_get (model, &iter,
 457                           0, &var,
 458                           -1);
 459
 460       nlp = g_hash_table_lookup (rd->varmap, var);
 461
 462       if (nlp)
 463         {
 464           gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), nlp->name ? nlp->name : "");
 465           gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), nlp->label ? nlp->label : "");
 466         }
 467       else
 468         {
 469           gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
 470           gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
 471         }
 472     }
 473   else
 474     {
 475       gtk_widget_set_sensitive  (rd->change_button, FALSE);
 476       gtk_widget_set_sensitive  (rd->new_name_entry, FALSE);
 477       gtk_widget_set_sensitive  (rd->new_label_entry, FALSE);
 478
 479       gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
 480       gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
 481     }
 482
 483
 484   g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
 485   g_list_free (rows);
 486 }
 487
 488 static void
 489 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
 490 {
 491   gboolean active;
 492   if (! rd->input_var_is_string )
 493     return ;
 494
 495   active = gtk_toggle_button_get_active (b);
 496   gtk_widget_set_sensitive (rd->convert_button, !active);
 497 }
 498
 499
 500 static void
 501 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
 502 {
 503   gboolean active;
 504
 505   g_return_if_fail (rd->input_var_is_string);
 506
 507   active = gtk_toggle_button_get_active (b);
 508   gtk_widget_set_sensitive (rd->string_button, !active);
 509 }
 510
 511 static void
 512 on_change_clicked (GObject *obj, gpointer data)
 513 {
 514   struct recode_dialog *rd = data;
 515   struct variable *var = NULL;
 516   struct nlp *nlp;
 517
 518   GtkTreeModel *model =  gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 519
 520   GtkTreeIter iter;
 521   GtkTreeSelection *selection =
 522     gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
 523
 524   GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
 525
 526   const gchar *dest_var_name =
 527     gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
 528
 529   const gchar *dest_var_label =
 530     gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
 531
 532   if ( NULL == rows || rows->next != NULL)
 533     goto finish;
 534
 535   gtk_tree_model_get_iter (model, &iter, rows->data);
 536
 537   gtk_tree_model_get (model, &iter, 0, &var, -1);
 538
 539   g_hash_table_remove (rd->varmap, var);
 540
 541   nlp = nlp_create (dest_var_name, dest_var_label);
 542
 543   g_hash_table_insert (rd->varmap, var, nlp);
 544
 545   gtk_tree_model_row_changed (model, rows->data, &iter);
 546
 547  finish:
 548   g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
 549   g_list_free (rows);
 550 }
 551
 552
 553 static void
 554 focus_value_entry (GtkWidget *w, struct recode_dialog *rd)
 555 {
 556   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (w)))
 557     gtk_widget_grab_focus (rd->new_value_entry);
 558 }
 559
 560
 561 /* Callback for the new_value_entry and new_value_togglebutton widgets.
 562    It's used to enable/disable the acr. */
 563 static void
 564 set_acr (struct recode_dialog *rd)
 565 {
 566   const gchar *text;
 567
 568   if ( !gtk_toggle_button_get_active
 569        (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
 570     {
 571       psppire_acr_set_enabled (rd->acr, TRUE);
 572       return;
 573     }
 574
 575   text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
 576
 577   psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
 578 }
 579
 580 static void
 581 render_new_var_name (GtkTreeViewColumn *tree_column,
 582                      GtkCellRenderer *cell,
 583                      GtkTreeModel *tree_model,
 584                      GtkTreeIter *iter,
 585                      gpointer data)
 586 {
 587   struct nlp *nlp = NULL;
 588   struct recode_dialog *rd = data;
 589
 590   struct variable *var = NULL;
 591
 592   gtk_tree_model_get (tree_model, iter,
 593                       0, &var,
 594                       -1);
 595
 596   nlp = g_hash_table_lookup (rd->varmap, var);
 597
 598   if ( nlp )
 599     g_object_set (cell, "text", nlp->name, NULL);
 600   else
 601     g_object_set (cell, "text", "", NULL);
 602 }
 603
 604
 605
 606 static void
 607 recode_dialog (PsppireDataWindow *de, gboolean diff)
 608 {
 609   gint response;
 610
 611   struct recode_dialog rd;
 612
 613   GtkBuilder *builder = builder_new ("recode.ui");
 614
 615   GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
 616
 617   GtkWidget *oldandnew = get_widget_assert (builder, "button1");
 618
 619
 620   GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
 621
 622   rd.change_button = get_widget_assert (builder, "change-button");
 623   rd.varmap = NULL;
 624   rd.dialog = get_widget_assert   (builder, "recode-dialog");
 625   rd.dict_treeview = get_widget_assert (builder, "treeview1");
 626   rd.variable_treeview =   get_widget_assert (builder, "treeview2");
 627   rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
 628   rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
 629
 630   g_object_get (de->data_editor, "dictionary", &rd.dict, NULL);
 631
 632   rd.value_map = gtk_list_store_new (2,
 633                                      old_value_get_type (),
 634                                      new_value_get_type ()
 635                                      );
 636
 637   g_object_set (output_variable_box, "visible", diff, NULL);
 638
 639   if ( diff )
 640     gtk_window_set_title (GTK_WINDOW (rd.dialog),
 641                           _("Recode into Different Variables"));
 642   else
 643     gtk_window_set_title (GTK_WINDOW (rd.dialog),
 644                           _("Recode into Same Variables"));
 645
 646   rd.different = diff;
 647
 648   gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
 649
 650   g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
 651
 652   if (rd.different)
 653     {
 654       GtkTreeSelection *sel;
 655
 656       GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
 657
 658       GtkTreeViewColumn *col = gtk_tree_view_column_new_with_attributes (_("New"),
 659                                                                          renderer,
 660                                                                          "text", NULL,
 661                                                                          NULL);
 662
 663       gtk_tree_view_column_set_cell_data_func (col, renderer,
 664                                                render_new_var_name,
 665                                                &rd, NULL);
 666
 667
 668       gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
 669
 670
 671       col = gtk_tree_view_get_column (GTK_TREE_VIEW (rd.variable_treeview), 0);
 672
 673       g_object_set (col, "title", _("Old"), NULL);
 674
 675       g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
 676
 677       rd.varmap = g_hash_table_new_full (g_direct_hash, g_direct_equal, NULL, nlp_destroy);
 678
 679       sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
 680
 681       g_signal_connect (sel, "changed",
 682                         G_CALLBACK (on_selection_change), &rd);
 683
 684       g_signal_connect (rd.change_button, "clicked",
 685                         G_CALLBACK (on_change_clicked),  &rd);
 686
 687     }
 688
 689   psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
 690
 691   /* Set up the Old & New Values subdialog */
 692   {
 693     rd.string_button = get_widget_assert (builder, "checkbutton1");
 694     rd.width_entry   = get_widget_assert (builder, "spinbutton1");
 695
 696     rd.convert_button           = get_widget_assert (builder, "checkbutton2");
 697
 698     rd.old_value_chooser = get_widget_assert (builder, "val-chooser");
 699
 700     rd.new_value_entry = get_widget_assert (builder, "entry1");
 701
 702
 703     rd.toggle[BUTTON_NEW_VALUE]  = get_widget_assert (builder, "radiobutton1");
 704     rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
 705     rd.toggle[BUTTON_NEW_COPY]   = get_widget_assert (builder, "radiobutton3");
 706
 707     rd.new_copy_label = get_widget_assert (builder, "label3");
 708     rd.strings_box    = get_widget_assert (builder, "table3");
 709
 710     rd.old_and_new_dialog =
 711       PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
 712
 713     gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
 714                                   GTK_WINDOW (de));
 715
 716     rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
 717
 718     g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
 719                       G_CALLBACK (set_acr), &rd);
 720
 721     g_signal_connect_after (rd.toggle[BUTTON_NEW_VALUE], "toggled",
 722                       G_CALLBACK (focus_value_entry), &rd);
 723
 724     g_signal_connect_swapped (rd.new_value_entry, "changed",
 725                       G_CALLBACK (set_acr), &rd);
 726
 727     {
 728       GtkTreeSelection *sel;
 729       /* Remove the ACR's default column.  We don't like it */
 730       GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
 731       gtk_tree_view_remove_column (rd.acr->tv, column);
 732
 733
 734       column =
 735         gtk_tree_view_column_new_with_attributes (_("Old"),
 736                                                   gtk_cell_renderer_text_new (),
 737                                                   "text", 0,
 738                                                   NULL);
 739
 740       gtk_tree_view_append_column (rd.acr->tv, column);
 741
 742       column =
 743         gtk_tree_view_column_new_with_attributes (_("New"),
 744                                                   gtk_cell_renderer_text_new (),
 745                                                   "text", 1,
 746                                                   NULL);
 747
 748       gtk_tree_view_append_column (rd.acr->tv, column);
 749       g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
 750
 751
 752       sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
 753       g_signal_connect (sel, "changed",
 754                         G_CALLBACK (on_acr_selection_change), &rd);
 755     }
 756
 757
 758     g_signal_connect_swapped (oldandnew, "clicked",
 759                               G_CALLBACK (run_old_and_new_dialog), &rd);
 760
 761
 762     g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
 763                       G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
 764
 765     g_signal_connect (rd.string_button, "toggled",
 766                       G_CALLBACK (toggle_sensitivity), rd.width_entry);
 767
 768     g_signal_connect (rd.string_button, "toggled",
 769                       G_CALLBACK (on_string_toggled), &rd);
 770
 771     g_signal_connect (rd.convert_button, "toggled",
 772                       G_CALLBACK (on_convert_toggled), &rd);
 773
 774     g_signal_connect_swapped (rd.old_and_new_dialog, "show",
 775                               G_CALLBACK (on_old_new_show), &rd);
 776   }
 777
 778   g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh),  &rd);
 779
 780
 781   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
 782                                       dialog_state_valid, &rd);
 783
 784   response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
 785
 786   switch (response)
 787     {
 788     case GTK_RESPONSE_OK:
 789       g_free (execute_syntax_string (de, generate_syntax (&rd)));
 790       break;
 791     case PSPPIRE_RESPONSE_PASTE:
 792       g_free (paste_syntax_to_window (generate_syntax (&rd)));
 793       break;
 794     default:
 795       break;
 796     }
 797
 798   if (rd.varmap)
 799     g_hash_table_destroy (rd.varmap);
 800
 801   gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
 802   g_object_unref (rd.value_map);
 803
 804   g_object_unref (builder);
 805 }
 806
 807 /* Initialise VAL to reflect the current status of RD */
 808 static gboolean
 809 set_old_value (GValue *val, const struct recode_dialog *rd)
 810 {
 811   PsppireValChooser *vc = PSPPIRE_VAL_CHOOSER (rd->old_value_chooser);
 812
 813   struct old_value ov;
 814
 815   psppire_val_chooser_get_status (vc, &ov);
 816
 817   g_value_init (val, old_value_get_type ());
 818   g_value_set_boxed (val, &ov);
 819
 820   return TRUE;
 821 }
 822
 823
 824 /* Initialse VAL to reflect the current status of RD */
 825 static gboolean
 826 set_new_value (GValue *val, const struct recode_dialog *rd)
 827 {
 828   const gchar *text = NULL;
 829   struct new_value nv;
 830
 831   if ( gtk_toggle_button_get_active
 832        (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
 833     {
 834       text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
 835
 836       nv.type = NV_NUMERIC;
 837       if (
 838           (! rd->different && rd->input_var_is_string) ||
 839           ( rd->different &&
 840             gtk_toggle_button_get_active
 841                (GTK_TOGGLE_BUTTON (rd->string_button)))
 842           )
 843         {
 844           nv.type = NV_STRING;
 845         }
 846
 847       if ( nv.type == NV_STRING )
 848         nv.v.s = g_strdup (text);
 849       else
 850         nv.v.v = g_strtod (text, 0);
 851     }
 852   else if ( gtk_toggle_button_get_active
 853             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
 854     {
 855       nv.type = NV_COPY;
 856     }
 857
 858   else if ( gtk_toggle_button_get_active
 859             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
 860     {
 861       nv.type = NV_SYSMIS;
 862     }
 863   else
 864     return FALSE;
 865
 866   g_value_init (val, new_value_get_type ());
 867   g_value_set_boxed (val, &nv);
 868
 869   return TRUE;
 870 }
 871
 872
 873 /* A function to set a value in a column in the ACR */
 874 static gboolean
 875 set_value (gint col, GValue  *val, gpointer data)
 876 {
 877   struct recode_dialog *rd = data;
 878
 879   switch ( col )
 880     {
 881     case COL_VALUE_OLD:
 882       set_old_value (val, rd);
 883       break;
 884     case COL_VALUE_NEW:
 885       set_new_value (val, rd);
 886       break;
 887     default:
 888       return FALSE;
 889     }
 890
 891   return TRUE;
 892 }
 893
 894 static void
 895 run_old_and_new_dialog (struct recode_dialog *rd)
 896 {
 897   gint response;
 898   GtkListStore *local_store = clone_list_store (rd->value_map);
 899
 900   psppire_acr_set_model (rd->acr, local_store);
 901   psppire_acr_set_get_value_func (rd->acr, set_value, rd);
 902
 903   gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
 904                         rd->different
 905                         ? _("Recode into Different Variables: Old and New Values ")
 906                         : _("Recode into Same Variables: Old and New Values")
 907                         );
 908
 909
 910   {
 911     /* Find the type of the first variable (it's invariant that
 912        all variables are of the same type) */
 913     const struct variable *v;
 914     GtkTreeIter iter;
 915     GtkTreeModel *model =
 916       gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 917
 918     gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
 919
 920     g_return_if_fail (not_empty);
 921
 922     gtk_tree_model_get (model, &iter, 0, &v, -1);
 923
 924     rd->input_var_is_string = var_is_alpha (v);
 925
 926     g_object_set (rd->old_value_chooser, "is-string", rd->input_var_is_string, NULL);
 927
 928     gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
 929                               var_is_numeric (v));
 930
 931     gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
 932   }
 933
 934
 935   response = psppire_dialog_run (rd->old_and_new_dialog);
 936   psppire_acr_set_model (rd->acr, NULL);
 937
 938
 939   if ( response == PSPPIRE_RESPONSE_CONTINUE )
 940     {
 941       g_object_unref (rd->value_map);
 942       rd->value_map = clone_list_store (local_store);
 943     }
 944   else
 945     g_object_unref (local_store);
 946
 947
 948   psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
 949 }
 950
 951
 952 /* Generate a syntax fragment for NV and append it to STR */
 953 static void
 954 new_value_append_syntax (struct string *dds, const struct new_value *nv)
 955 {
 956   switch (nv->type)
 957     {
 958     case NV_NUMERIC:
 959       ds_put_c_format (dds, "%g", nv->v.v);
 960       break;
 961     case NV_STRING:
 962       syntax_gen_string (dds, ss_cstr (nv->v.s));
 963       break;
 964     case NV_COPY:
 965       ds_put_cstr (dds, "COPY");
 966       break;
 967     case NV_SYSMIS:
 968       ds_put_cstr (dds, "SYSMIS");
 969       break;
 970     default:
 971       /* Shouldn't ever happen */
 972       g_warning ("Invalid type in new recode value");
 973       ds_put_cstr (dds, "???");
 974       break;
 975     }
 976 }
 977
 978
 979 static char *
 980 generate_syntax (const struct recode_dialog *rd)
 981 {
 982   gboolean ok;
 983   GtkTreeIter iter;
 984   gchar *text;
 985   struct string dds;
 986
 987   ds_init_empty (&dds);
 988
 989
 990   /* Declare new string variables if applicable */
 991   if ( rd->different &&
 992        gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
 993     {
 994       GHashTableIter iter;
 995
 996       struct variable *var = NULL;
 997       struct nlp *nlp = NULL;
 998
 999       g_hash_table_iter_init (&iter, rd->varmap);
1000       while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1001         {
1002           ds_put_cstr (&dds, "\nSTRING ");
1003           ds_put_cstr (&dds, nlp->name);
1004           ds_put_c_format (&dds, " (A%d).",
1005                                   (int)
1006                                   gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1007                                   );
1008         }
1009     }
1010
1011   ds_put_cstr (&dds, "\nRECODE ");
1012
1013   psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &dds);
1014
1015   ds_put_cstr (&dds, "\n\t");
1016
1017   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1018     {
1019       ds_put_cstr (&dds, "(CONVERT) ");
1020     }
1021
1022   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1023                                            &iter);
1024        ok;
1025        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1026     {
1027       GValue ov_value = {0};
1028       GValue nv_value = {0};
1029       struct old_value *ov;
1030       struct new_value *nv;
1031       gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1032                                 COL_VALUE_OLD, &ov_value);
1033
1034       gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1035                                 COL_VALUE_NEW, &nv_value);
1036
1037       ov = g_value_get_boxed (&ov_value);
1038       nv = g_value_get_boxed (&nv_value);
1039
1040       ds_put_cstr (&dds, "(");
1041
1042       old_value_append_syntax (&dds, ov);
1043       ds_put_cstr (&dds, " = ");
1044       new_value_append_syntax (&dds, nv);
1045
1046       ds_put_cstr (&dds, ") ");
1047       g_value_unset (&ov_value);
1048       g_value_unset (&nv_value);
1049     }
1050
1051
1052   if ( rd->different )
1053     {
1054
1055       GtkTreeIter iter;
1056       ds_put_cstr (&dds, "\n\tINTO ");
1057
1058       for (ok = psppire_var_view_get_iter_first (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter);
1059            ok;
1060            ok = psppire_var_view_get_iter_next (PSPPIRE_VAR_VIEW (rd->variable_treeview), &iter))
1061           {
1062             struct nlp *nlp = NULL;
1063             const struct variable *var = psppire_var_view_get_variable (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, &iter);
1064
1065             nlp = g_hash_table_lookup (rd->varmap, var);
1066
1067             ds_put_cstr (&dds, nlp->name);
1068             ds_put_cstr (&dds, " ");
1069           }
1070     }
1071
1072   ds_put_cstr (&dds, ".");
1073
1074   /* If applicable, set labels for the new variables. */
1075   if ( rd->different )
1076     {
1077       GHashTableIter iter;
1078
1079       struct variable *var = NULL;
1080       struct nlp *nlp = NULL;
1081
1082       g_hash_table_iter_init (&iter, rd->varmap);
1083       while (g_hash_table_iter_next (&iter, (void**) &var, (void**) &nlp))
1084         {
1085           if (nlp->label)
1086             {
1087               struct string sl;
1088               ds_init_empty (&sl);
1089               syntax_gen_string (&sl, ss_cstr (nlp->label));
1090               ds_put_c_format (&dds, "\nVARIABLE LABELS %s %s.",
1091                                       nlp->name, ds_cstr (&sl));
1092
1093               ds_destroy (&sl);
1094             }
1095         }
1096     }
1097
1098   ds_put_cstr (&dds, "\nEXECUTE.\n");
1099
1100
1101   text = ds_steal_cstr (&dds);
1102
1103   ds_destroy (&dds);
1104
1105   return text;
1106 }