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