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