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