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