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