src/ui/gui/recode-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 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 /* 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 <language/syntax-string-source.h>
  35 #include <ui/gui/psppire-data-window.h>
  36 #include <ui/gui/dialog-common.h>
  37 #include <ui/gui/dict-display.h>
  38 #include <ui/gui/helper.h>
  39 #include <ui/gui/psppire-dialog.h>
  40 #include <ui/gui/psppire-var-store.h>
  41
  42 #include <ui/syntax-gen.h>
  43
  44 #include "psppire-acr.h"
  45
  46 #include "gettext.h"
  47 #define _(msgid) gettext (msgid)
  48 #define N_(msgid) msgid
  49
  50
  51 /* Define a boxed type to represent a value which is a candidate
  52    to replace an existing value */
  53
  54 enum new_value_type
  55  {
  56    NV_NUMERIC,
  57    NV_STRING,
  58    NV_SYSMIS,
  59    NV_COPY
  60  };
  61
  62
  63 struct new_value
  64 {
  65   enum new_value_type type;
  66   union {
  67     double v;
  68     gchar *s;
  69   } v;
  70 };
  71
  72
  73 static struct new_value *
  74 new_value_copy (struct new_value *nv)
  75 {
  76   struct new_value *copy = g_memdup (nv, sizeof (*copy));
  77
  78   if ( nv->type == NV_STRING )
  79     copy->v.s = xstrdup (nv->v.s);
  80
  81   return copy;
  82 }
  83
  84
  85 static void
  86 new_value_free (struct new_value *nv)
  87 {
  88   if ( nv->type == NV_STRING )
  89     g_free (nv->v.s);
  90
  91   g_free (nv);
  92 }
  93
  94
  95 static void
  96 new_value_to_string (const GValue *src, GValue *dest)
  97 {
  98   const struct new_value *nv = g_value_get_boxed (src);
  99
 100   g_assert (nv);
 101
 102   switch (nv->type)
 103     {
 104     case NV_NUMERIC:
 105       {
 106         gchar *text = g_strdup_printf ("%g", nv->v.v);
 107         g_value_set_string (dest, text);
 108         g_free (text);
 109       }
 110       break;
 111     case NV_STRING:
 112       g_value_set_string (dest, nv->v.s);
 113       break;
 114     case NV_COPY:
 115       g_value_set_string (dest, "COPY");
 116       break;
 117     case NV_SYSMIS:
 118       g_value_set_string (dest, "SYSMIS");
 119       break;
 120     default:
 121       /* Shouldn't ever happen */
 122       g_warning ("Invalid type in new recode value");
 123       g_value_set_string (dest, "???");
 124       break;
 125     }
 126 }
 127
 128 static GType
 129 new_value_get_type (void)
 130 {
 131   static GType t = 0;
 132
 133   if (t == 0 )
 134     {
 135       t = g_boxed_type_register_static  ("psppire-recode-new-values",
 136                                          (GBoxedCopyFunc) new_value_copy,
 137                                          (GBoxedFreeFunc) new_value_free);
 138
 139       g_value_register_transform_func (t, G_TYPE_STRING,
 140                                        new_value_to_string);
 141     }
 142
 143   return t;
 144 }
 145
 146
 147 \f
 148
 149
 150 /* A boxed type representing a value, or a range of values which may
 151    potentially be replaced by something */
 152
 153 enum old_value_type
 154  {
 155    OV_NUMERIC,
 156    OV_STRING,
 157    OV_SYSMIS,
 158    OV_MISSING,
 159    OV_RANGE,
 160    OV_LOW_UP,
 161    OV_HIGH_DOWN,
 162    OV_ELSE
 163  };
 164
 165 struct old_value
 166  {
 167    enum old_value_type type;
 168    union {
 169      double v;
 170      gchar *s;
 171      double range[2];
 172    } v;
 173  };
 174
 175
 176 static struct old_value *
 177 old_value_copy (struct old_value *ov)
 178 {
 179   struct old_value *copy = g_memdup (ov, sizeof (*copy));
 180
 181   if ( ov->type == OV_STRING )
 182     copy->v.s = g_strdup (ov->v.s);
 183
 184   return copy;
 185 }
 186
 187
 188 static void
 189 old_value_free (struct old_value *ov)
 190 {
 191   if (ov->type == OV_STRING)
 192     g_free (ov->v.s);
 193   g_free (ov);
 194 }
 195
 196 static void
 197 old_value_to_string (const GValue *src, GValue *dest)
 198 {
 199   const struct old_value *ov = g_value_get_boxed (src);
 200
 201   switch (ov->type)
 202     {
 203     case OV_NUMERIC:
 204       {
 205         gchar *text = g_strdup_printf ("%g", ov->v.v);
 206         g_value_set_string (dest, text);
 207         g_free (text);
 208       }
 209       break;
 210     case OV_STRING:
 211       g_value_set_string (dest, ov->v.s);
 212       break;
 213     case OV_MISSING:
 214       g_value_set_string (dest, "MISSING");
 215       break;
 216     case OV_SYSMIS:
 217       g_value_set_string (dest, "SYSMIS");
 218       break;
 219     case OV_ELSE:
 220       g_value_set_string (dest, "ELSE");
 221       break;
 222     case OV_RANGE:
 223       {
 224         gchar *text;
 225         char en_dash[6] = {0,0,0,0,0,0};
 226
 227         g_unichar_to_utf8 (0x2013, en_dash);
 228
 229         text = g_strdup_printf ("%g %s %g",
 230                                        ov->v.range[0],
 231                                        en_dash,
 232                                        ov->v.range[1]);
 233         g_value_set_string (dest, text);
 234         g_free (text);
 235       }
 236       break;
 237     case OV_LOW_UP:
 238       {
 239         gchar *text;
 240         char en_dash[6] = {0,0,0,0,0,0};
 241
 242         g_unichar_to_utf8 (0x2013, en_dash);
 243
 244         text = g_strdup_printf ("LOWEST %s %g",
 245                                 en_dash,
 246                                 ov->v.range[1]);
 247
 248         g_value_set_string (dest, text);
 249         g_free (text);
 250       }
 251       break;
 252     case OV_HIGH_DOWN:
 253       {
 254         gchar *text;
 255         char en_dash[6] = {0,0,0,0,0,0};
 256
 257         g_unichar_to_utf8 (0x2013, en_dash);
 258
 259         text = g_strdup_printf ("%g %s HIGHEST",
 260                                 ov->v.range[0],
 261                                 en_dash);
 262
 263         g_value_set_string (dest, text);
 264         g_free (text);
 265       }
 266       break;
 267     default:
 268       g_warning ("Invalid type in old recode value");
 269       g_value_set_string (dest, "???");
 270       break;
 271     };
 272 }
 273
 274 static GType
 275 old_value_get_type (void)
 276 {
 277   static GType t = 0;
 278
 279   if (t == 0 )
 280     {
 281       t = g_boxed_type_register_static  ("psppire-recode-old-values",
 282                                          (GBoxedCopyFunc) old_value_copy,
 283                                          (GBoxedFreeFunc) old_value_free);
 284
 285       g_value_register_transform_func     (t, G_TYPE_STRING,
 286                                            old_value_to_string);
 287     }
 288
 289   return t;
 290 }
 291
 292 \f
 293
 294 enum
 295   {
 296     BUTTON_NEW_VALUE,
 297     BUTTON_NEW_COPY,
 298     BUTTON_NEW_SYSMIS,
 299     BUTTON_OLD_VALUE,
 300     BUTTON_OLD_SYSMIS,
 301     BUTTON_OLD_MISSING,
 302     BUTTON_OLD_RANGE,
 303     BUTTON_OLD_LOW_UP,
 304     BUTTON_OLD_HIGH_DOWN,
 305     BUTTON_OLD_ELSE,
 306     n_BUTTONS
 307   };
 308
 309 struct recode_dialog
 310 {
 311   PsppireDict *dict;
 312
 313   GtkWidget *dialog;
 314   PsppireDialog *old_and_new_dialog;
 315
 316   GtkWidget *dict_treeview;
 317   GtkWidget *variable_treeview;
 318   GtkWidget *toggle[n_BUTTONS];
 319
 320   GtkWidget *strings_box;
 321   GtkWidget *convert_button;
 322   GtkWidget *new_copy_label;
 323
 324   GtkWidget *ov_value_entry;
 325   GtkWidget *new_value_entry;
 326
 327   GtkWidget *ov_range_lower_entry;
 328   GtkWidget *ov_range_upper_entry;
 329   GtkWidget *ov_low_up_entry;
 330   GtkWidget *ov_high_down_entry;
 331
 332   GtkListStore *value_map;
 333
 334   /* Indicates that the INTO {new variables} form of the dialog
 335      is being used */
 336   gboolean different;
 337
 338   PsppireAcr *acr;
 339
 340   gboolean input_var_is_string;
 341
 342   GtkListStore *var_map;
 343   GtkWidget *new_name_entry;
 344   GtkWidget *new_label_entry;
 345   GtkWidget *change_button;
 346
 347   GtkWidget *string_button;
 348   GtkWidget *width_entry;
 349 };
 350
 351
 352 static void run_old_and_new_dialog (struct recode_dialog *rd);
 353
 354 static void
 355 refresh (PsppireDialog *dialog, struct recode_dialog *rd)
 356 {
 357   gtk_widget_set_sensitive (rd->change_button, FALSE);
 358   gtk_widget_set_sensitive (rd->new_name_entry, FALSE);
 359   gtk_widget_set_sensitive (rd->new_label_entry, FALSE);
 360
 361
 362   if ( rd->different )
 363     gtk_list_store_clear (GTK_LIST_STORE (rd->var_map));
 364   else
 365     {
 366       GtkTreeModel *vars =
 367         gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 368
 369       gtk_list_store_clear (GTK_LIST_STORE (vars));
 370     }
 371
 372   gtk_list_store_clear (GTK_LIST_STORE (rd->value_map));
 373 }
 374
 375 static char * generate_syntax (const struct recode_dialog *rd);
 376
 377 enum {
 378   COL_OLD,
 379   COL_NEW_NAME,
 380   COL_NEW_LABEL,
 381   n_COL_VARS
 382 };
 383
 384 enum {
 385   COL_VALUE_OLD,
 386   COL_VALUE_NEW,
 387   n_COL_VALUES
 388 };
 389
 390 /* Dialog is valid iff at least one variable has been selected,
 391    AND the list of mappings is not empty.
 392  */
 393 static gboolean
 394 dialog_state_valid (gpointer data)
 395 {
 396   GtkTreeIter not_used;
 397   struct recode_dialog *rd = data;
 398
 399   if ( ! rd->value_map )
 400     return FALSE;
 401
 402   if ( ! gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
 403                                         &not_used) )
 404     return FALSE;
 405
 406   if ( rd->different )
 407     {
 408       GtkTreeIter iter;
 409
 410       gboolean ok;
 411
 412       for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
 413                                                &iter);
 414            ok;
 415            ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map),
 416                                           &iter))
 417         {
 418           gchar *name = NULL;
 419
 420           gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
 421                               COL_NEW_NAME, &name, -1);
 422
 423           if ( name == NULL )
 424             return FALSE;
 425
 426           g_free (name);
 427         }
 428     }
 429   else
 430     {
 431       GtkTreeModel *vars =
 432         gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
 433
 434       if ( !gtk_tree_model_get_iter_first (vars, &not_used))
 435         return FALSE;
 436
 437     }
 438
 439   return TRUE;
 440 }
 441
 442 static void
 443 on_old_new_show (struct recode_dialog *rd)
 444 {
 445   gtk_toggle_button_set_active
 446     (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_OLD_VALUE]), TRUE);
 447
 448   g_signal_emit_by_name (rd->toggle[BUTTON_OLD_VALUE], "toggled");
 449
 450   gtk_toggle_button_set_active
 451     (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE]), TRUE);
 452
 453   g_signal_emit_by_name (rd->toggle[BUTTON_NEW_VALUE], "toggled");
 454
 455   g_object_set (rd->toggle[BUTTON_NEW_COPY],
 456                 "visible", rd->different, NULL);
 457
 458   g_object_set (rd->new_copy_label,
 459                 "visible", rd->different, NULL);
 460
 461   g_object_set (rd->strings_box,
 462                 "visible", rd->different, NULL);
 463 }
 464
 465 /* Sets the sensitivity of TARGET dependent upon the active status
 466    of BUTTON */
 467 static void
 468 toggle_sensitivity (GtkToggleButton *button, GtkWidget *target)
 469 {
 470   gboolean state = gtk_toggle_button_get_active (button);
 471
 472   /*  g_print ("%s Setting %p (%s) to %d because of %p\n",
 473       __FUNCTION__, target, gtk_widget_get_name (target), state, button); */
 474
 475   gtk_widget_set_sensitive (target, state);
 476 }
 477
 478 static void recode_dialog (PsppireDataWindow *de, gboolean diff);
 479
 480
 481 /* Pops up the Recode Same version of the dialog box */
 482 void
 483 recode_same_dialog (GObject *o, gpointer data)
 484 {
 485   PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
 486
 487   recode_dialog (de, FALSE);
 488 }
 489
 490 /* Pops up the Recode Different version of the dialog box */
 491 void
 492 recode_different_dialog (GObject *o, gpointer data)
 493 {
 494   PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
 495
 496   recode_dialog (de, TRUE);
 497 }
 498
 499 static void
 500 render_new_var_name (GtkTreeViewColumn *tree_column,
 501                      GtkCellRenderer *cell,
 502                      GtkTreeModel *tree_model,
 503                      GtkTreeIter *iter,
 504                      gpointer data)
 505 {
 506   gchar *new_var_name = NULL;
 507
 508   gtk_tree_model_get (tree_model, iter, COL_NEW_NAME, &new_var_name, -1);
 509
 510   g_object_set (cell, "text", new_var_name, NULL);
 511
 512   g_free (new_var_name);
 513 }
 514
 515
 516 /* This might need to be changed to something less naive.
 517    In particular, what happends with dates, etc?
 518  */
 519 static gchar *
 520 num_to_string (gdouble x)
 521 {
 522   return g_strdup_printf ("%g", x);
 523 }
 524
 525 /* Callback which gets called when a new row is selected
 526    in the acr's variable treeview.
 527    We use if to set the togglebuttons and entries to correspond to the
 528    selected row.
 529 */
 530 static void
 531 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
 532 {
 533   struct recode_dialog *rd = data;
 534   GtkTreeModel *model = NULL;
 535   GtkTreeIter iter;
 536
 537   GValue ov_value = {0};
 538   GValue nv_value = {0};
 539   struct old_value *ov = NULL;
 540   struct new_value *nv = NULL;
 541
 542   if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
 543     return;
 544
 545
 546   gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
 547                             COL_VALUE_OLD, &ov_value);
 548
 549   gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
 550                             COL_VALUE_NEW, &nv_value);
 551
 552   ov = g_value_get_boxed (&ov_value);
 553   nv = g_value_get_boxed (&nv_value);
 554
 555   if (nv)
 556     {
 557       switch (nv->type)
 558         {
 559         case NV_NUMERIC:
 560           {
 561             gchar *str = num_to_string (nv->v.v);
 562
 563             gtk_toggle_button_set_active
 564               (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
 565
 566             gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), str);
 567             g_free (str);
 568           }
 569           break;
 570         case NV_STRING:
 571           gtk_toggle_button_set_active
 572             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE]), TRUE);
 573
 574           gtk_entry_set_text (GTK_ENTRY (rd->new_value_entry), nv->v.s);
 575           break;
 576         case NV_SYSMIS:
 577           gtk_toggle_button_set_active
 578             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS]), TRUE);
 579
 580           break;
 581         case NV_COPY:
 582           gtk_toggle_button_set_active
 583             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY]), TRUE);
 584
 585           break;
 586         default:
 587           g_warning ("Invalid new value type");
 588           break;
 589         }
 590
 591       g_value_unset (&nv_value);
 592     }
 593
 594   if ( ov )
 595     {
 596     switch (ov->type)
 597       {
 598       case OV_STRING:
 599           gtk_toggle_button_set_active
 600             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
 601
 602           gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), ov->v.s);
 603         break;
 604
 605       case OV_NUMERIC:
 606         {
 607           gchar *str;
 608
 609           gtk_toggle_button_set_active
 610             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_VALUE]), TRUE);
 611
 612           str = num_to_string (ov->v.v);
 613
 614           gtk_entry_set_text (GTK_ENTRY (rd->ov_value_entry), str);
 615
 616           g_free (str);
 617         }
 618         break;
 619
 620       case OV_SYSMIS:
 621         gtk_toggle_button_set_active
 622           (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_SYSMIS]), TRUE);
 623         break;
 624
 625       case OV_MISSING:
 626         gtk_toggle_button_set_active
 627           (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_MISSING]), TRUE);
 628         break;
 629
 630       case OV_RANGE:
 631         {
 632           gchar *str;
 633
 634           gtk_toggle_button_set_active
 635             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_RANGE]), TRUE);
 636
 637           str = num_to_string (ov->v.range[0]);
 638
 639           gtk_entry_set_text (GTK_ENTRY (rd->ov_range_lower_entry), str);
 640
 641           g_free (str);
 642
 643
 644           str = num_to_string (ov->v.range[1]);
 645
 646           gtk_entry_set_text (GTK_ENTRY (rd->ov_range_upper_entry), str);
 647
 648           g_free (str);
 649         }
 650         break;
 651
 652       case OV_LOW_UP:
 653         {
 654           gchar *str = num_to_string (ov->v.range[1]);
 655
 656           gtk_toggle_button_set_active
 657             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_LOW_UP]), TRUE);
 658
 659           gtk_entry_set_text (GTK_ENTRY (rd->ov_low_up_entry), str);
 660
 661           g_free (str);
 662         }
 663         break;
 664
 665       case OV_HIGH_DOWN:
 666         {
 667           gchar *str = num_to_string (ov->v.range[0]);
 668
 669           gtk_toggle_button_set_active
 670             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_HIGH_DOWN]), TRUE);
 671
 672           gtk_entry_set_text (GTK_ENTRY (rd->ov_high_down_entry), str);
 673
 674           g_free (str);
 675         }
 676         break;
 677
 678       case OV_ELSE:
 679         gtk_toggle_button_set_active
 680           (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_OLD_ELSE]), TRUE);
 681         break;
 682
 683       default:
 684         g_warning ("Unknown old value type");
 685         break;
 686       };
 687     g_value_unset (&ov_value);
 688     }
 689 }
 690
 691 /* Callback which gets called when a new row is selected
 692    in the variable treeview.
 693    It sets the name and label entry widgets to reflect the
 694    currently selected row.
 695  */
 696 static void
 697 on_selection_change (GtkTreeSelection *selection, gpointer data)
 698 {
 699   struct recode_dialog *rd = data;
 700   GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
 701
 702   GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
 703
 704   if ( rows && !rows->next)
 705     {
 706       /* Exactly one row is selected */
 707
 708       gboolean ok;
 709       GtkTreeIter iter;
 710       gchar *name = NULL;
 711       gchar *label = NULL;
 712
 713       gtk_widget_set_sensitive  (rd->change_button, TRUE);
 714       gtk_widget_set_sensitive  (rd->new_name_entry, TRUE);
 715       gtk_widget_set_sensitive  (rd->new_label_entry, TRUE);
 716
 717       ok = gtk_tree_model_get_iter (model, &iter, (GtkTreePath*) rows->data);
 718
 719       gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
 720                           COL_NEW_NAME, &name,
 721                           COL_NEW_LABEL, &label,
 722                           -1);
 723
 724       gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), name ? name : "");
 725       gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), label ? label : "");
 726
 727       g_free (name);
 728       g_free (label);
 729     }
 730   else
 731     {
 732       gtk_widget_set_sensitive  (rd->change_button, FALSE);
 733       gtk_widget_set_sensitive  (rd->new_name_entry, FALSE);
 734       gtk_widget_set_sensitive  (rd->new_label_entry, FALSE);
 735
 736       gtk_entry_set_text (GTK_ENTRY (rd->new_name_entry), "");
 737       gtk_entry_set_text (GTK_ENTRY (rd->new_label_entry), "");
 738     }
 739
 740   g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
 741   g_list_free (rows);
 742 }
 743
 744 static void
 745 on_string_toggled (GtkToggleButton *b, struct recode_dialog *rd)
 746 {
 747   gboolean active;
 748   if (! rd->input_var_is_string )
 749     return ;
 750
 751   active = gtk_toggle_button_get_active (b);
 752   gtk_widget_set_sensitive (rd->convert_button, !active);
 753 }
 754
 755
 756 static void
 757 on_convert_toggled (GtkToggleButton *b, struct recode_dialog *rd)
 758 {
 759   gboolean active;
 760
 761   g_return_if_fail (rd->input_var_is_string);
 762
 763   active = gtk_toggle_button_get_active (b);
 764   gtk_widget_set_sensitive (rd->string_button, !active);
 765 }
 766
 767
 768 static void
 769 on_change_clicked (GObject *obj, gpointer data)
 770 {
 771   struct recode_dialog *rd = data;
 772   GtkTreeModel *model = GTK_TREE_MODEL (rd->var_map);
 773   GtkTreeIter iter;
 774   GtkTreeSelection *selection =
 775     gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
 776
 777   GList *rows = gtk_tree_selection_get_selected_rows (selection, &model);
 778
 779   const gchar *dest_var_name =
 780     gtk_entry_get_text (GTK_ENTRY (rd->new_name_entry));
 781
 782   const gchar *dest_var_label =
 783     gtk_entry_get_text (GTK_ENTRY (rd->new_label_entry));
 784
 785   if ( NULL == rows )
 786     return;
 787
 788   gtk_tree_model_get_iter (model, &iter, rows->data);
 789
 790   gtk_list_store_set (rd->var_map, &iter,
 791                       COL_NEW_NAME, dest_var_name,
 792                       COL_NEW_LABEL, dest_var_label,
 793                       -1);
 794
 795   g_list_foreach (rows, (GFunc) gtk_tree_path_free, NULL);
 796   g_list_free (rows);
 797 }
 798
 799
 800 /* If there's nothing selected in the variable treeview,
 801    then automatically select the first item */
 802 static void
 803 select_something (GtkTreeModel *treemodel,
 804                   GtkTreePath  *arg1,
 805                   GtkTreeIter  *arg2,
 806                   gpointer      data)
 807 {
 808   struct recode_dialog *rd = data;
 809   GtkTreeSelection *sel;
 810
 811   sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd->variable_treeview));
 812
 813   if ( gtk_tree_selection_count_selected_rows (sel) < 1)
 814     {
 815       GtkTreeIter iter;
 816
 817       gtk_tree_model_get_iter_first   (treemodel, &iter);
 818
 819       gtk_tree_selection_select_iter  (sel, &iter);
 820     }
 821 }
 822
 823
 824 /* Callback for the new_value_entry and new_value_togglebutton widgets.
 825    It's used to enable/disable the acr. */
 826 static void
 827 set_acr (struct recode_dialog *rd)
 828 {
 829   const gchar *text;
 830
 831   if ( !gtk_toggle_button_get_active
 832        (GTK_TOGGLE_BUTTON (rd->toggle[BUTTON_NEW_VALUE])))
 833     {
 834       psppire_acr_set_enabled (rd->acr, TRUE);
 835       return;
 836     }
 837
 838   text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
 839
 840   psppire_acr_set_enabled (rd->acr, !g_str_equal (text, ""));
 841 }
 842
 843 static void
 844 recode_dialog (PsppireDataWindow *de, gboolean diff)
 845 {
 846   gint response;
 847
 848   struct recode_dialog rd;
 849
 850   GtkBuilder *builder = builder_new ("recode.ui");
 851
 852   GtkWidget *selector = get_widget_assert (builder, "psppire-selector1");
 853
 854   GtkWidget *oldandnew = get_widget_assert (builder, "button1");
 855
 856
 857   GtkWidget *output_variable_box = get_widget_assert (builder,"frame4");
 858
 859
 860   PsppireVarStore *vs = NULL;
 861
 862   g_object_get (de->data_editor, "var-store", &vs, NULL);
 863
 864   rd.change_button = get_widget_assert (builder, "change-button");
 865
 866   rd.dialog = get_widget_assert   (builder, "recode-dialog");
 867   rd.dict_treeview = get_widget_assert (builder, "treeview1");
 868   rd.variable_treeview =   get_widget_assert (builder, "treeview2");
 869   rd.new_name_entry = get_widget_assert (builder, "dest-name-entry");
 870   rd.new_label_entry = get_widget_assert (builder, "dest-label-entry");
 871
 872   g_object_get (vs, "dictionary", &rd.dict, NULL);
 873
 874   rd.value_map = gtk_list_store_new (2,
 875                                      old_value_get_type (),
 876                                      new_value_get_type ()
 877                                      );
 878
 879   g_object_set (output_variable_box, "visible", diff, NULL);
 880
 881   if ( diff )
 882     gtk_window_set_title (GTK_WINDOW (rd.dialog),
 883                           _("Recode into Different Variables"));
 884   else
 885     gtk_window_set_title (GTK_WINDOW (rd.dialog),
 886                           _("Recode into Same Variables"));
 887
 888   rd.different = diff;
 889
 890   gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
 891
 892   g_object_set (rd.dict_treeview, "model", rd.dict, NULL);
 893
 894   if (rd.different)
 895     {
 896       GtkTreeSelection *sel;
 897       GtkTreeViewColumn *col;
 898       GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
 899
 900       rd.var_map = gtk_list_store_new (n_COL_VARS, G_TYPE_INT,
 901                                                     G_TYPE_STRING,
 902                                                     G_TYPE_STRING);
 903
 904
 905       gtk_tree_view_set_model (GTK_TREE_VIEW (rd.variable_treeview),
 906                                GTK_TREE_MODEL (rd.var_map));
 907
 908       col = gtk_tree_view_column_new_with_attributes (_("Old"),
 909                                                   renderer,
 910                                                   "text", NULL,
 911                                                   NULL);
 912
 913       gtk_tree_view_column_set_cell_data_func (col, renderer,
 914                                                XXX_cell_var_name,
 915                                                rd.dict, 0);
 916
 917
 918       gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
 919
 920
 921       renderer = gtk_cell_renderer_text_new ();
 922
 923       col = gtk_tree_view_column_new_with_attributes (_("New"),
 924                                                   renderer,
 925                                                   "text", NULL,
 926                                                   NULL);
 927
 928       gtk_tree_view_column_set_cell_data_func (col, renderer,
 929                                                render_new_var_name,
 930                                                NULL, NULL);
 931
 932
 933       gtk_tree_view_append_column (GTK_TREE_VIEW (rd.variable_treeview), col);
 934
 935       g_object_set (rd.variable_treeview, "headers-visible", TRUE, NULL);
 936
 937       g_signal_connect (rd.change_button, "clicked",
 938                         G_CALLBACK (on_change_clicked),  &rd);
 939
 940       sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.variable_treeview));
 941       g_signal_connect (sel, "changed",
 942                         G_CALLBACK (on_selection_change), &rd);
 943
 944       g_signal_connect (rd.var_map, "row-inserted",
 945                         G_CALLBACK (select_something), &rd);
 946     }
 947
 948   psppire_selector_set_allow (PSPPIRE_SELECTOR (selector), homogeneous_types);
 949
 950   /* Set up the Old & New Values subdialog */
 951   {
 952     rd.string_button = get_widget_assert (builder, "checkbutton1");
 953     rd.width_entry   = get_widget_assert (builder, "spinbutton1");
 954
 955     rd.convert_button           = get_widget_assert (builder, "checkbutton2");
 956
 957     rd.ov_range_lower_entry = get_widget_assert (builder, "entry5");
 958     rd.ov_range_upper_entry  = get_widget_assert (builder, "entry3");
 959     rd.ov_low_up_entry       = get_widget_assert (builder, "entry6");
 960     rd.ov_high_down_entry    = get_widget_assert (builder, "entry7");
 961
 962     rd.new_value_entry = get_widget_assert (builder, "entry1");
 963     rd.ov_value_entry  = get_widget_assert (builder, "entry2");
 964
 965     rd.toggle[BUTTON_NEW_VALUE]  = get_widget_assert (builder, "radiobutton1");
 966     rd.toggle[BUTTON_NEW_SYSMIS] = get_widget_assert (builder, "radiobutton2");
 967     rd.toggle[BUTTON_NEW_COPY]   = get_widget_assert (builder, "radiobutton3");
 968     rd.toggle[BUTTON_OLD_VALUE]  = get_widget_assert (builder, "radiobutton4");
 969     rd.toggle[BUTTON_OLD_SYSMIS] = get_widget_assert (builder, "radiobutton6");
 970     rd.toggle[BUTTON_OLD_MISSING]= get_widget_assert (builder, "radiobutton7");
 971     rd.toggle[BUTTON_OLD_RANGE]  = get_widget_assert (builder, "radiobutton8");
 972     rd.toggle[BUTTON_OLD_LOW_UP] = get_widget_assert (builder, "radiobutton10");
 973     rd.toggle[BUTTON_OLD_HIGH_DOWN] = get_widget_assert (builder, "radiobutton5");
 974     rd.toggle[BUTTON_OLD_ELSE]   = get_widget_assert (builder, "radiobutton11");
 975
 976     rd.new_copy_label = get_widget_assert (builder, "label3");
 977     rd.strings_box    = get_widget_assert (builder, "table3");
 978
 979     rd.old_and_new_dialog =
 980       PSPPIRE_DIALOG (get_widget_assert (builder, "old-new-values-dialog"));
 981
 982     gtk_window_set_transient_for (GTK_WINDOW (rd.old_and_new_dialog),
 983                                   GTK_WINDOW (de));
 984
 985     rd.acr = PSPPIRE_ACR (get_widget_assert (builder, "psppire-acr1"));
 986
 987     g_signal_connect_swapped (rd.toggle[BUTTON_NEW_VALUE], "toggled",
 988                       G_CALLBACK (set_acr), &rd);
 989
 990     g_signal_connect_swapped (rd.new_value_entry, "changed",
 991                       G_CALLBACK (set_acr), &rd);
 992
 993     {
 994       GtkTreeSelection *sel;
 995       /* Remove the ACR's default column.  We don't like it */
 996       GtkTreeViewColumn *column = gtk_tree_view_get_column (rd.acr->tv, 0);
 997       gtk_tree_view_remove_column (rd.acr->tv, column);
 998
 999
1000       column =
1001         gtk_tree_view_column_new_with_attributes (_("Old"),
1002                                                   gtk_cell_renderer_text_new (),
1003                                                   "text", 0,
1004                                                   NULL);
1005
1006       gtk_tree_view_append_column (rd.acr->tv, column);
1007
1008       column =
1009         gtk_tree_view_column_new_with_attributes (_("New"),
1010                                                   gtk_cell_renderer_text_new (),
1011                                                   "text", 1,
1012                                                   NULL);
1013
1014       gtk_tree_view_append_column (rd.acr->tv, column);
1015       g_object_set (rd.acr->tv, "headers-visible", TRUE, NULL);
1016
1017
1018       sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (rd.acr->tv));
1019       g_signal_connect (sel, "changed",
1020                         G_CALLBACK (on_acr_selection_change), &rd);
1021     }
1022
1023
1024     g_signal_connect_swapped (oldandnew, "clicked",
1025                               G_CALLBACK (run_old_and_new_dialog), &rd);
1026
1027
1028     g_signal_connect (rd.toggle[BUTTON_NEW_VALUE], "toggled",
1029                       G_CALLBACK (toggle_sensitivity), rd.new_value_entry);
1030
1031     g_signal_connect (rd.toggle[BUTTON_OLD_VALUE], "toggled",
1032                       G_CALLBACK (toggle_sensitivity), rd.ov_value_entry);
1033
1034     g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1035                       G_CALLBACK (toggle_sensitivity),
1036                       get_widget_assert (builder, "entry3"));
1037
1038     g_signal_connect (rd.toggle[BUTTON_OLD_RANGE], "toggled",
1039                       G_CALLBACK (toggle_sensitivity),
1040                       get_widget_assert (builder, "entry5"));
1041
1042     g_signal_connect (rd.toggle[BUTTON_OLD_LOW_UP], "toggled",
1043                       G_CALLBACK (toggle_sensitivity), rd.ov_low_up_entry);
1044
1045     g_signal_connect (rd.toggle[BUTTON_OLD_HIGH_DOWN], "toggled",
1046                       G_CALLBACK (toggle_sensitivity), rd.ov_high_down_entry);
1047
1048     g_signal_connect (rd.string_button, "toggled",
1049                       G_CALLBACK (toggle_sensitivity), rd.width_entry);
1050
1051     g_signal_connect (rd.string_button, "toggled",
1052                       G_CALLBACK (on_string_toggled), &rd);
1053
1054     g_signal_connect (rd.convert_button, "toggled",
1055                       G_CALLBACK (on_convert_toggled), &rd);
1056
1057     g_signal_connect_swapped (rd.old_and_new_dialog, "show",
1058                               G_CALLBACK (on_old_new_show), &rd);
1059   }
1060
1061   g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh),  &rd);
1062
1063
1064   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
1065                                       dialog_state_valid, &rd);
1066
1067   response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
1068
1069   switch (response)
1070     {
1071     case GTK_RESPONSE_OK:
1072       {
1073         gchar *syntax = generate_syntax (&rd);
1074
1075         struct getl_interface *sss = create_syntax_string_source (syntax);
1076         execute_syntax (sss);
1077
1078         g_free (syntax);
1079       }
1080       break;
1081     case PSPPIRE_RESPONSE_PASTE:
1082       {
1083         gchar *syntax = generate_syntax (&rd);
1084         paste_syntax_in_new_window (syntax);
1085
1086         g_free (syntax);
1087       }
1088       break;
1089     default:
1090       break;
1091     }
1092
1093
1094   gtk_list_store_clear (GTK_LIST_STORE (rd.value_map));
1095   g_object_unref (rd.value_map);
1096
1097   g_object_unref (builder);
1098 }
1099
1100 /* Initialise VAL to reflect the current status of RD */
1101 static gboolean
1102 set_old_value (GValue *val, const struct recode_dialog *rd)
1103 {
1104   const gchar *text = NULL;
1105   struct old_value ov;
1106   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1107                                      (rd->toggle [BUTTON_OLD_VALUE])))
1108     {
1109       text = gtk_entry_get_text (GTK_ENTRY (rd->ov_value_entry));
1110       if ( rd->input_var_is_string )
1111         {
1112           ov.type = OV_STRING;
1113           ov.v.s = g_strdup (text);
1114         }
1115       else
1116         {
1117           ov.type = OV_NUMERIC;
1118           ov.v.v = g_strtod (text, 0);
1119         }
1120     }
1121   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1122                                           (rd->toggle [BUTTON_OLD_MISSING])))
1123     {
1124       ov.type = OV_MISSING;
1125     }
1126   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1127                                           (rd->toggle [BUTTON_OLD_SYSMIS])))
1128     {
1129       ov.type = OV_SYSMIS;
1130     }
1131   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1132                                           (rd->toggle [BUTTON_OLD_ELSE])))
1133     {
1134       ov.type = OV_ELSE;
1135     }
1136   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1137                                           (rd->toggle [BUTTON_OLD_RANGE])))
1138     {
1139       const gchar *text;
1140       text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_lower_entry));
1141
1142       ov.type = OV_RANGE;
1143       ov.v.range[0] = g_strtod (text, 0);
1144
1145       text = gtk_entry_get_text (GTK_ENTRY (rd->ov_range_upper_entry));
1146       ov.v.range[1] = g_strtod (text, 0);
1147     }
1148   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1149                                           (rd->toggle [BUTTON_OLD_LOW_UP])))
1150     {
1151       const gchar *text =
1152         gtk_entry_get_text (GTK_ENTRY (rd->ov_low_up_entry));
1153
1154       ov.type = OV_LOW_UP;
1155       ov.v.range[1] = g_strtod (text, 0);
1156     }
1157   else if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON
1158                                           (rd->toggle [BUTTON_OLD_HIGH_DOWN])))
1159     {
1160       const gchar *text =
1161         gtk_entry_get_text (GTK_ENTRY (rd->ov_high_down_entry));
1162
1163       ov.type = OV_HIGH_DOWN;
1164       ov.v.range[0] = g_strtod (text, 0);
1165     }
1166   else
1167     return FALSE;
1168
1169   g_value_init (val, old_value_get_type ());
1170   g_value_set_boxed (val, &ov);
1171
1172   return TRUE;
1173 }
1174
1175
1176 /* Initialse VAL to reflect the current status of RD */
1177 static gboolean
1178 set_new_value (GValue *val, const struct recode_dialog *rd)
1179 {
1180   const gchar *text = NULL;
1181   struct new_value nv;
1182
1183   if ( gtk_toggle_button_get_active
1184        (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_VALUE])))
1185     {
1186       text = gtk_entry_get_text (GTK_ENTRY (rd->new_value_entry));
1187
1188       nv.type = NV_NUMERIC;
1189       if (
1190           (! rd->different && rd->input_var_is_string) ||
1191           ( rd->different &&
1192             gtk_toggle_button_get_active
1193                (GTK_TOGGLE_BUTTON (rd->string_button)))
1194           )
1195         {
1196           nv.type = NV_STRING;
1197         }
1198
1199       if ( nv.type == NV_STRING )
1200         nv.v.s = g_strdup (text);
1201       else
1202         nv.v.v = g_strtod (text, 0);
1203     }
1204   else if ( gtk_toggle_button_get_active
1205             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_COPY])))
1206     {
1207       nv.type = NV_COPY;
1208     }
1209
1210   else if ( gtk_toggle_button_get_active
1211             (GTK_TOGGLE_BUTTON (rd->toggle [BUTTON_NEW_SYSMIS])))
1212     {
1213       nv.type = NV_SYSMIS;
1214     }
1215   else
1216     return FALSE;
1217
1218   g_value_init (val, new_value_get_type ());
1219   g_value_set_boxed (val, &nv);
1220
1221   return TRUE;
1222 }
1223
1224
1225 /* A function to set a value in a column in the ACR */
1226 gboolean
1227 set_value (gint col, GValue  *val, gpointer data)
1228 {
1229   struct recode_dialog *rd = data;
1230
1231   switch ( col )
1232     {
1233     case COL_VALUE_OLD:
1234       set_old_value (val, rd);
1235       break;
1236     case COL_VALUE_NEW:
1237       set_new_value (val, rd);
1238       break;
1239     default:
1240       return FALSE;
1241     }
1242
1243   return TRUE;
1244 }
1245
1246 static void
1247 run_old_and_new_dialog (struct recode_dialog *rd)
1248 {
1249   gint response;
1250   GtkListStore *local_store = clone_list_store (rd->value_map);
1251
1252   psppire_acr_set_model (rd->acr, local_store);
1253   psppire_acr_set_get_value_func (rd->acr, set_value, rd);
1254
1255   gtk_window_set_title (GTK_WINDOW (rd->old_and_new_dialog),
1256                         rd->different
1257                         ? _("Recode into Different Variables: Old and New Values ")
1258                         : _("Recode into Same Variables: Old and New Values")
1259                         );
1260
1261
1262   {
1263     /* Find the type of the first variable (it's invariant that
1264        all variables are of the same type) */
1265     const struct variable *v;
1266     GtkTreeIter iter;
1267     GtkTreeModel *model =
1268       gtk_tree_view_get_model (GTK_TREE_VIEW (rd->variable_treeview));
1269
1270     gboolean not_empty = gtk_tree_model_get_iter_first (model, &iter);
1271
1272     g_return_if_fail (not_empty);
1273
1274     gtk_tree_model_get (model, &iter, 0, &v, -1);
1275
1276     rd->input_var_is_string = var_is_alpha (v);
1277
1278     gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_SYSMIS],
1279                               var_is_numeric (v));
1280     gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_RANGE],
1281                               var_is_numeric (v));
1282     gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_LOW_UP],
1283                               var_is_numeric (v));
1284     gtk_widget_set_sensitive (rd->toggle [BUTTON_OLD_HIGH_DOWN],
1285                               var_is_numeric (v));
1286     gtk_widget_set_sensitive (rd->toggle [BUTTON_NEW_SYSMIS],
1287                               var_is_numeric (v));
1288
1289     gtk_widget_set_sensitive (rd->convert_button, var_is_alpha (v));
1290   }
1291
1292
1293   response = psppire_dialog_run (rd->old_and_new_dialog);
1294   psppire_acr_set_model (rd->acr, NULL);
1295
1296
1297   if ( response == PSPPIRE_RESPONSE_CONTINUE )
1298     {
1299       g_object_unref (rd->value_map);
1300       rd->value_map = clone_list_store (local_store);
1301     }
1302   else
1303     g_object_unref (local_store);
1304
1305
1306   psppire_dialog_notify_change (PSPPIRE_DIALOG (rd->dialog));
1307 }
1308
1309
1310 /* Generate a syntax fragment for NV and append it to STR */
1311 static void
1312 new_value_append_syntax (GString *str, const struct new_value *nv)
1313 {
1314   switch (nv->type)
1315     {
1316     case NV_NUMERIC:
1317       g_string_append_printf (str, "%g", nv->v.v);
1318       break;
1319     case NV_STRING:
1320       {
1321         struct string ds = DS_EMPTY_INITIALIZER;
1322         syntax_gen_string (&ds, ss_cstr (nv->v.s));
1323         g_string_append (str, ds_cstr (&ds));
1324         ds_destroy (&ds);
1325       }
1326       break;
1327     case NV_COPY:
1328       g_string_append (str, "COPY");
1329       break;
1330     case NV_SYSMIS:
1331       g_string_append (str, "SYSMIS");
1332       break;
1333     default:
1334       /* Shouldn't ever happen */
1335       g_warning ("Invalid type in new recode value");
1336       g_string_append (str, "???");
1337       break;
1338     }
1339 }
1340
1341
1342 /* Generate a syntax fragment for NV and append it to STR */
1343 static void
1344 old_value_append_syntax (GString *str, const struct old_value *ov)
1345 {
1346   switch (ov->type)
1347     {
1348     case OV_NUMERIC:
1349       g_string_append_printf (str, "%g", ov->v.v);
1350       break;
1351     case OV_STRING:
1352       {
1353         struct string ds = DS_EMPTY_INITIALIZER;
1354         syntax_gen_string (&ds, ss_cstr (ov->v.s));
1355         g_string_append (str, ds_cstr (&ds));
1356         ds_destroy (&ds);
1357       }
1358       break;
1359     case OV_MISSING:
1360       g_string_append (str, "MISSING");
1361       break;
1362     case OV_SYSMIS:
1363       g_string_append (str, "SYSMIS");
1364       break;
1365     case OV_ELSE:
1366       g_string_append (str, "ELSE");
1367       break;
1368     case OV_RANGE:
1369       g_string_append_printf (str, "%g THRU %g",
1370                               ov->v.range[0],
1371                               ov->v.range[1]);
1372       break;
1373     case OV_LOW_UP:
1374       g_string_append_printf (str, "LOWEST THRU %g",
1375                               ov->v.range[1]);
1376       break;
1377     case OV_HIGH_DOWN:
1378       g_string_append_printf (str, "%g THRU HIGHEST",
1379                               ov->v.range[0]);
1380       break;
1381     default:
1382       g_warning ("Invalid type in old recode value");
1383       g_string_append (str, "???");
1384       break;
1385     };
1386 }
1387
1388
1389
1390 static char *
1391 generate_syntax (const struct recode_dialog *rd)
1392 {
1393   gboolean ok;
1394   GtkTreeIter iter;
1395   gchar *text;
1396
1397   GString *str = g_string_sized_new (100);
1398
1399   /* Declare new string variables if applicable */
1400   if ( rd->different &&
1401        gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->string_button)))
1402     {
1403       GtkTreeIter iter;
1404
1405
1406       for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1407                                                &iter);
1408            ok;
1409            ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1410         {
1411           gchar *name = NULL;
1412
1413           gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1414                               COL_NEW_NAME, &name, -1);
1415
1416           g_string_append (str, "\nSTRING ");
1417           g_string_append (str, name);
1418           g_string_append_printf (str, " (A%d).",
1419                                   (int)
1420                                   gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->width_entry) )
1421                                   );
1422
1423           g_free (name);
1424         }
1425     }
1426
1427   g_string_append (str, "\nRECODE ");
1428
1429   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->variable_treeview), 0, str);
1430
1431   g_string_append (str, "\n\t");
1432
1433   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->convert_button)))
1434     {
1435       g_string_append (str, "(CONVERT) ");
1436     }
1437
1438   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->value_map),
1439                                            &iter);
1440        ok;
1441        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->value_map), &iter))
1442     {
1443       GValue ov_value = {0};
1444       GValue nv_value = {0};
1445       struct old_value *ov;
1446       struct new_value *nv;
1447       gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1448                                 COL_VALUE_OLD, &ov_value);
1449
1450       gtk_tree_model_get_value (GTK_TREE_MODEL (rd->value_map), &iter,
1451                                 COL_VALUE_NEW, &nv_value);
1452
1453       ov = g_value_get_boxed (&ov_value);
1454       nv = g_value_get_boxed (&nv_value);
1455
1456       g_string_append (str, "(");
1457
1458       old_value_append_syntax (str, ov);
1459       g_string_append (str, " = ");
1460       new_value_append_syntax (str, nv);
1461
1462       g_string_append (str, ") ");
1463       g_value_unset (&ov_value);
1464       g_value_unset (&nv_value);
1465     }
1466
1467
1468   if ( rd->different )
1469     {
1470       GtkTreeIter iter;
1471       g_string_append (str, "\n\tINTO ");
1472
1473       for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1474                                                &iter);
1475            ok;
1476            ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1477         {
1478           gchar *name = NULL;
1479
1480           gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1481                               COL_NEW_NAME, &name, -1);
1482
1483           g_string_append (str, name);
1484           g_string_append (str, " ");
1485
1486           g_free (name);
1487         }
1488     }
1489
1490   g_string_append (str, ".");
1491
1492
1493   /* If applicable, set labels for the new variables. */
1494   if ( rd->different )
1495     {
1496       GtkTreeIter iter;
1497
1498       for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (rd->var_map),
1499                                                &iter);
1500            ok;
1501            ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (rd->var_map), &iter))
1502         {
1503           struct string ls;
1504           gchar *label = NULL;
1505           gchar *name = NULL;
1506
1507           gtk_tree_model_get (GTK_TREE_MODEL (rd->var_map), &iter,
1508                               COL_NEW_NAME, &name,
1509                               COL_NEW_LABEL, &label, -1);
1510
1511           if ( 0 == strcmp (label, "") )
1512             {
1513               g_free (name);
1514               g_free (label);
1515               continue;
1516             }
1517
1518           ds_init_empty (&ls);
1519           syntax_gen_string (&ls, ss_cstr (label));
1520           g_free (label);
1521
1522           g_string_append_printf (str, "\nVARIABLE LABELS %s %s.",
1523                                   name, ds_cstr (&ls));
1524
1525           g_free (name);
1526           ds_destroy (&ls);
1527         }
1528     }
1529
1530
1531   g_string_append (str, "\nEXECUTE.\n");
1532
1533
1534   text = str->str;
1535
1536   g_string_free (str, FALSE);
1537
1538   return text;
1539 }