Merge 'master' into 'gtk3'.
[pspp] / src / ui / gui / aggregate-dialog.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2010, 2011, 2012, 2013  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 #include <config.h>
18
19 #include "dialog-common.h"
20
21 #include <gl/c-xvasprintf.h>
22 #include <language/stats/aggregate.h>
23
24 #include <ui/syntax-gen.h>
25 #include <libpspp/str.h>
26
27 #include "aggregate-dialog.h"
28 #include "psppire-selector.h"
29 #include "psppire-dictview.h"
30 #include "psppire-dialog.h"
31
32 #include "psppire-data-window.h"
33 #include "psppire-var-view.h"
34 #include "psppire-acr.h"
35
36 #include "dict-display.h"
37
38 #include "executor.h"
39 #include "builder-wrapper.h"
40 #include "helper.h"
41
42 #include <gtk/gtk.h>
43
44 #include "gettext.h"
45 #define _(msgid) gettext (msgid)
46 #define N_(msgid) msgid
47
48
49 enum
50   {
51     COMBO_MODEL_COL_DESC = 0,
52     COMBO_MODEL_COL_SYNTAX,
53     COMBO_MODEL_COL_SRC_VARS,
54     COMBO_MODEL_COL_ARITY
55   };
56
57
58 struct aggregate
59 {
60   GtkBuilder *xml;
61   PsppireDataWindow *de ;
62   PsppireDict *dict;
63   GtkWidget *break_variables;
64
65   GtkWidget *replace_radiobutton;
66   GtkWidget *add_radiobutton;
67   GtkWidget *filename_radiobutton;
68   GtkWidget *filename_button;
69   GtkWidget *filename_box;
70   GtkWidget *filename_label;
71
72   GtkWidget *function_combo;
73
74   GtkWidget *summary_acr;
75   GtkWidget *summary_var_name_entry;
76   GtkWidget *summary_var_label_entry;
77
78   GtkWidget *summary_sv;
79   GtkWidget *summary_sv_entry;
80
81   GtkWidget *summary_arg1;
82   GtkWidget *summary_arg2;
83
84   GtkWidget *summary_arg1_entry;
85   GtkWidget *summary_arg2_entry;
86
87   GtkWidget *sorted_button;
88   GtkWidget *needs_sort_button;
89
90   GtkWidget *pane;
91 };
92
93
94 static char * generate_syntax (const struct aggregate *rd);
95
96
97 static void update_arguments (struct aggregate *agg);
98
99
100 static void
101 refresh (struct aggregate *agg)
102 {
103   GtkTreeModel *liststore =
104     gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
105   gtk_list_store_clear (GTK_LIST_STORE (liststore));
106
107   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->add_radiobutton), TRUE);
108   gtk_label_set_text (GTK_LABEL (agg->filename_label), "");
109
110
111   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (agg->needs_sort_button), TRUE);
112
113   gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), "");
114   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), "");
115   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), "");
116   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), "");
117   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), "N_BREAK");
118   gtk_editable_select_region (GTK_EDITABLE (agg->summary_var_name_entry), 0, -1);
119
120   gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), N);
121
122   gtk_list_store_clear (PSPPIRE_ACR (agg->summary_acr)->list_store);
123
124   update_arguments (agg);
125 }
126
127
128 static gboolean
129 dialog_state_valid (gpointer data)
130 {
131   GtkTreeIter iter;
132   const struct aggregate *agg = data;
133
134   GtkTreeModel *liststore =
135     gtk_tree_view_get_model (GTK_TREE_VIEW (agg->break_variables));
136
137   if ( ! gtk_tree_model_get_iter_first  (liststore, &iter))
138     return FALSE;
139
140   liststore = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
141   
142   if ( ! gtk_tree_model_get_iter_first (liststore, &iter))
143     return FALSE;
144
145   return TRUE;
146 }
147
148
149 static void
150 choose_filename (struct aggregate *fd)
151 {
152   GtkFileFilter *filter;
153
154   GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Aggregate destination file"),
155                                                            GTK_WINDOW (fd->de),
156                                                            GTK_FILE_CHOOSER_ACTION_SAVE,
157                                                            GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
158                                                            GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
159                                                            NULL);
160   g_object_set (dialog, "local-only", FALSE, NULL);
161
162   gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE);
163
164
165   filter = gtk_file_filter_new ();
166   gtk_file_filter_set_name (filter, _("System Files (*.sav)"));
167   gtk_file_filter_add_mime_type (filter, "application/x-spss-sav");
168   gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
169
170   filter = gtk_file_filter_new ();
171   gtk_file_filter_set_name (filter, _("Compressed System Files (*.zsav)"));
172   gtk_file_filter_add_pattern (filter, "*.zsav");
173   gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
174
175   filter = gtk_file_filter_new ();
176   gtk_file_filter_set_name (filter, _("Portable Files (*.por) "));
177   gtk_file_filter_add_mime_type (filter, "application/x-spss-por");
178   gtk_file_chooser_add_filter (GTK_FILE_CHOOSER (dialog), filter);
179
180
181   if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
182     {
183       char *filename;
184
185       filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
186
187       gtk_label_set_text (GTK_LABEL (fd->filename_label), filename);
188
189       g_free (filename);
190     }
191
192
193   gtk_widget_destroy (dialog);
194 }
195
196
197 static void
198 populate_combo_model (GtkComboBox *cb)
199 {
200   GtkListStore *list =  gtk_list_store_new (4, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT, G_TYPE_INT);
201   GtkTreeIter iter;
202   const struct agr_func *af = agr_func_tab;
203   GtkCellRenderer *renderer ;
204
205   for (af = agr_func_tab; af->name; ++af)
206     {
207       const gchar *s = af->description;
208       if (s == NULL)
209         continue;
210
211       gtk_list_store_append (list, &iter);
212       gtk_list_store_set (list, &iter,
213                           COMBO_MODEL_COL_DESC, gettext (s),
214                           COMBO_MODEL_COL_SYNTAX, af->name,
215                           COMBO_MODEL_COL_SRC_VARS, af->src_vars,
216                           COMBO_MODEL_COL_ARITY, af->n_args,
217                           -1);
218     }
219
220   renderer = gtk_cell_renderer_text_new ();
221   gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (cb), renderer, FALSE);
222
223   gtk_cell_layout_add_attribute (GTK_CELL_LAYOUT (cb), renderer, "text", 0);
224
225   gtk_combo_box_set_model (GTK_COMBO_BOX (cb), GTK_TREE_MODEL (list));
226   g_object_unref (list);
227 }
228
229
230
231 /* Returns TRUE iff all the necessary controls have been set to
232    completely specify a summary function */
233 static gboolean
234 summary_complete (const struct aggregate *agg)
235 {
236   GtkTreeIter iter;
237   int n_args;
238   enum agr_src_vars src_vars;
239   gboolean ok;
240   GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
241
242   if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry))))
243     return FALSE;
244
245   ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
246
247   if (! ok)
248     return FALSE;
249
250
251
252   gtk_tree_model_get  (model,
253                        &iter,
254                        COMBO_MODEL_COL_ARITY,   &n_args,
255                        COMBO_MODEL_COL_SRC_VARS, &src_vars,
256                        -1);
257
258   if ( src_vars == AGR_SV_YES )
259     {
260       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry))))
261         return FALSE;
262     }
263
264   if ( n_args >= 2)
265     {
266       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry))))
267         return FALSE;
268     }
269
270   if ( n_args >= 1)
271     {
272       if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry))))
273         return FALSE;
274     }
275
276
277   return TRUE;
278 }
279
280
281 static void
282 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string);
283
284
285 static void
286 render_summary   (GtkTreeViewColumn *tree_column,
287                   GtkCellRenderer *cell,
288                   GtkTreeModel *tree_model,
289                   GtkTreeIter *iter,
290                   gpointer data)
291 {
292   struct aggregate *agg = data;
293   
294   GString *string = g_string_new ("");
295
296   append_summary_spec (agg, iter, string);
297
298   
299   g_object_set (cell, "text", string->str, NULL);
300
301   g_string_free (string, TRUE);
302 }
303
304
305 /* Enable/Disable the summary variable ACR */
306 static void
307 update_acr (struct aggregate *agg)
308 {
309   gboolean ready = summary_complete (agg);
310
311   psppire_acr_set_enabled (PSPPIRE_ACR (agg->summary_acr), ready);
312 }
313
314
315 /* Update the sensitivity of the summary variable argument fields */
316 static void
317 update_arguments (struct aggregate *agg)
318 {
319   GtkTreeIter iter;
320
321   gboolean ok = gtk_combo_box_get_active_iter (GTK_COMBO_BOX (agg->function_combo), &iter);
322
323   if ( ok)
324     {
325       GtkTreeModel *model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
326       int n_args;
327       enum agr_src_vars src_vars;
328       gtk_tree_model_get  (model,
329                            &iter,
330                            COMBO_MODEL_COL_ARITY,   &n_args,
331                            COMBO_MODEL_COL_SRC_VARS, &src_vars,
332                            -1);
333
334       gtk_widget_set_sensitive (agg->summary_sv, src_vars != AGR_SV_NO);
335       gtk_widget_set_sensitive (agg->summary_arg2, n_args >= 2);
336       gtk_widget_set_sensitive (agg->summary_arg1, n_args >= 1);
337     }
338   else
339     {
340       gtk_widget_set_sensitive (agg->summary_sv,   FALSE);
341       gtk_widget_set_sensitive (agg->summary_arg2, FALSE);
342       gtk_widget_set_sensitive (agg->summary_arg1, FALSE);
343     }
344 }
345
346 enum 
347   {
348     SUMMARY_COL_VARNAME = 0,
349     SUMMARY_COL_VARLABEL,
350     SUMMARY_COL_FUNCIDX,
351     SUMMARY_COL_SRCVAR,
352     SUMMARY_COL_ARG1,
353     SUMMARY_COL_ARG2
354   };
355
356 /* Set VAL to the value appropriate for COL according to the
357    current state of the dialog */
358 static gboolean
359 get_summary_spec (gint col, GValue *val, gpointer data)
360 {
361   const struct aggregate *agg = data;
362   switch (col)
363     {
364     case SUMMARY_COL_VARNAME:
365       g_value_init (val, G_TYPE_STRING);
366       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_name_entry)));
367       break;
368     case SUMMARY_COL_VARLABEL:
369       g_value_init (val, G_TYPE_STRING);
370       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_var_label_entry)));
371       break;
372     case SUMMARY_COL_SRCVAR:
373       g_value_init (val, G_TYPE_STRING);
374       g_value_set_string (val, gtk_entry_get_text (GTK_ENTRY (agg->summary_sv_entry)));
375       break;
376     case SUMMARY_COL_FUNCIDX:
377       g_value_init (val, G_TYPE_INT);
378       g_value_set_int (val, gtk_combo_box_get_active (GTK_COMBO_BOX (agg->function_combo)));
379       break;
380     case SUMMARY_COL_ARG1:
381       {
382         const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg1_entry));
383         g_value_init (val, G_TYPE_DOUBLE);
384         g_value_set_double (val, g_strtod (text, 0));
385       }
386       break;
387     case SUMMARY_COL_ARG2:
388       {
389         const gchar *text = gtk_entry_get_text (GTK_ENTRY (agg->summary_arg2_entry));
390         g_value_init (val, G_TYPE_DOUBLE);
391         g_value_set_double (val, g_strtod (text, 0));
392       }
393       break;
394     default:
395       g_assert_not_reached ();
396       break;
397     }
398
399   return TRUE;
400 }
401
402
403 /* Update the status of the dialog box according to what row of the ACR's treeview
404    is selected */
405 static  void
406 on_acr_change (const struct aggregate *agg, GtkTreeView *tv)
407 {
408   const gchar *varname;
409   const gchar *label;
410   const gchar *srcvar;
411   gint f_idx;
412   double arg1, arg2;
413   gchar *text = NULL;
414     
415   GtkTreeIter iter;
416   GtkTreePath *path = NULL;
417   GtkTreeModel *model = gtk_tree_view_get_model (tv);
418   gtk_tree_view_get_cursor (tv, &path, NULL);
419   
420   gtk_tree_model_get_iter (model, &iter, path);
421
422   gtk_tree_model_get (model, &iter,
423                       SUMMARY_COL_VARNAME, &varname,
424                       SUMMARY_COL_VARLABEL, &label,
425                       SUMMARY_COL_FUNCIDX, &f_idx,
426                       SUMMARY_COL_SRCVAR, &srcvar,
427                       SUMMARY_COL_ARG1, &arg1,
428                       SUMMARY_COL_ARG2, &arg2,
429                       -1);
430
431   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_name_entry), varname);
432   gtk_entry_set_text (GTK_ENTRY (agg->summary_var_label_entry), label);
433   gtk_entry_set_text (GTK_ENTRY (agg->summary_sv_entry), srcvar);
434   
435   text = c_xasprintf ("%g", arg1);
436   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg1_entry), text);
437   g_free (text);
438
439   text = c_xasprintf ("%g", arg2);
440   gtk_entry_set_text (GTK_ENTRY (agg->summary_arg2_entry), text);
441   g_free (text);
442
443   gtk_combo_box_set_active (GTK_COMBO_BOX (agg->function_combo), f_idx);
444 }
445
446
447 /* Set the pane to 50% of its maximum size */
448 static void
449 set_initial_pos (GtkPaned *pane)
450 {
451   int max_pos;
452   g_object_get (pane, 
453                 "max-position", &max_pos,
454                 NULL);
455
456   gtk_paned_set_position (pane, max_pos);
457 }
458
459
460
461 /* Pops up the Aggregate dialog box */
462 void
463 aggregate_dialog (PsppireDataWindow *dw)
464 {
465   struct aggregate fd;
466   gint response;
467
468   GtkWidget *dialog ;
469   GtkWidget *source ;
470
471   GtkWidget *break_selector ;
472
473   fd.xml = builder_new ("aggregate.ui");
474
475   fd.de = dw;
476
477   dialog = get_widget_assert (fd.xml, "psppire-dialog1");
478   source = get_widget_assert   (fd.xml, "dict-view");
479   break_selector = get_widget_assert   (fd.xml, "break-selector");
480
481   fd.pane = get_widget_assert (fd.xml, "hbox1");
482   
483   fd.break_variables = get_widget_assert (fd.xml, "psppire-var-view1");
484   fd.filename_radiobutton = get_widget_assert (fd.xml, "filename-radiobutton");
485   fd.filename_button = get_widget_assert (fd.xml, "filename-button");
486   fd.filename_box = get_widget_assert (fd.xml, "filename-box");
487   fd.filename_label = get_widget_assert (fd.xml, "filename-label");
488   fd.replace_radiobutton = get_widget_assert (fd.xml, "replace-radiobutton");
489   fd.add_radiobutton = get_widget_assert (fd.xml, "add-radiobutton");
490   fd.function_combo = get_widget_assert (fd.xml, "function-combo");
491
492   fd.summary_acr = get_widget_assert (fd.xml, "psppire-acr1");
493   fd.summary_var_name_entry = get_widget_assert (fd.xml, "summary-var-name-entry");
494
495   fd.summary_arg1 = get_widget_assert (fd.xml, "summary-arg1");
496   fd.summary_arg2 = get_widget_assert (fd.xml, "summary-arg2");
497
498   fd.summary_arg1_entry = get_widget_assert (fd.xml, "summary-arg-entry1");
499   fd.summary_arg2_entry = get_widget_assert (fd.xml, "summary-arg-entry2");
500
501   fd.summary_var_label_entry = get_widget_assert (fd.xml, "summary-var-label-entry");
502
503   fd.summary_sv = get_widget_assert (fd.xml, "source-var");
504   fd.summary_sv_entry = get_widget_assert (fd.xml, "source-var-entry");
505
506   fd.sorted_button = get_widget_assert (fd.xml, "sorted-radiobutton");
507   fd.needs_sort_button = get_widget_assert (fd.xml, "needs-sort-radiobutton");
508
509   {
510     GtkTreeViewColumn *column ;
511
512     GList *l ;
513
514     GtkCellRenderer *cell_renderer ;
515
516     GtkListStore *list = gtk_list_store_new (6,
517                                              G_TYPE_STRING,
518                                              G_TYPE_STRING,
519                                              G_TYPE_INT, 
520                                              G_TYPE_STRING,
521                                              G_TYPE_DOUBLE,
522                                              G_TYPE_DOUBLE);
523
524     psppire_acr_set_model (PSPPIRE_ACR (fd.summary_acr), list);
525     g_object_unref (list);
526
527     psppire_acr_set_get_value_func (PSPPIRE_ACR (fd.summary_acr),
528                                                  get_summary_spec, &fd);
529
530     column = gtk_tree_view_get_column (PSPPIRE_ACR (fd.summary_acr)->tv, 0);
531
532     l = gtk_cell_layout_get_cells (GTK_CELL_LAYOUT (column));
533
534     cell_renderer = l->data;
535
536     gtk_tree_view_column_set_cell_data_func (column,
537                                              cell_renderer,
538                                              render_summary, 
539                                              &fd,
540                                              NULL);
541
542     g_signal_connect_swapped (PSPPIRE_ACR (fd.summary_acr)->tv,
543                               "cursor-changed", G_CALLBACK (on_acr_change), &fd);
544   }
545   
546   g_signal_connect_swapped (fd.summary_var_name_entry, "changed", G_CALLBACK (update_acr),  &fd);
547   g_signal_connect_swapped (fd.function_combo, "changed", G_CALLBACK (update_acr),  &fd);
548   g_signal_connect_swapped (fd.summary_sv_entry, "changed", G_CALLBACK (update_acr),  &fd);  
549   g_signal_connect_swapped (fd.summary_arg1_entry, "changed", G_CALLBACK (update_acr),  &fd);  
550   g_signal_connect_swapped (fd.summary_arg2_entry, "changed", G_CALLBACK (update_acr),  &fd);  
551
552
553   g_signal_connect (fd.pane, "realize", G_CALLBACK (set_initial_pos),  &fd);  
554
555
556   g_signal_connect_swapped (fd.function_combo, "changed",
557                             G_CALLBACK (update_arguments),  &fd);
558
559   populate_combo_model (GTK_COMBO_BOX (fd.function_combo));
560
561   g_signal_connect_swapped (dialog, "refresh", G_CALLBACK (refresh),  &fd);
562
563   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (fd.de));
564
565   g_object_get (fd.de->data_editor, "dictionary", &fd.dict, NULL);
566   g_object_set (source, "model", fd.dict, NULL);
567
568
569   psppire_selector_set_filter_func (PSPPIRE_SELECTOR (break_selector), NULL);
570
571
572   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
573                                       dialog_state_valid, &fd);
574
575   g_signal_connect (fd.filename_radiobutton, "toggled",
576                     G_CALLBACK (set_sensitivity_from_toggle), fd.filename_box );
577
578   g_signal_connect_swapped (fd.filename_button, "clicked",
579                     G_CALLBACK (choose_filename), &fd);
580
581
582   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
583
584   switch (response)
585     {
586     case GTK_RESPONSE_OK:
587       g_free (execute_syntax_string (dw, generate_syntax (&fd)));
588       break;
589     case PSPPIRE_RESPONSE_PASTE:
590       g_free (paste_syntax_to_window (generate_syntax (&fd)));
591       break;
592     default:
593       break;
594     }
595
596   g_object_unref (fd.xml);
597 }
598
599
600 \f
601
602 static void
603 append_destination_filename (const struct aggregate *agg, GString *gs)
604 {
605   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->filename_radiobutton)))
606     {
607       struct string ss;
608       const gchar *s = gtk_label_get_text (GTK_LABEL (agg->filename_label));
609       ds_init_empty (&ss);
610       syntax_gen_string (&ss, ss_cstr (s));
611       g_string_append (gs, ds_cstr (&ss));
612       ds_destroy (&ss);
613     }
614   else
615     {
616       g_string_append (gs, "* ");
617
618       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->replace_radiobutton)))
619         g_string_append (gs, "MODE=REPLACE");
620       else
621         g_string_append (gs, "MODE=ADDVARIABLES");
622     }
623 }
624
625 /* Append the syntax of the summary function pointed to by ITER to STRING */
626 static void
627 append_summary_spec (const struct aggregate *agg, GtkTreeIter *iter, GString *string)
628 {
629   GtkTreeIter combo_iter;
630   char *varname = NULL;
631   char *funcname = NULL;
632
633   GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
634   GtkTreeModel *combo_model = gtk_combo_box_get_model (GTK_COMBO_BOX (agg->function_combo));
635
636
637   /* This is an index into the combo_model.  Its used to get the function name */
638   int f_idx;
639   double arg1, arg2;
640   int arity;
641   enum agr_src_vars has_src_vars;
642   gchar *label = NULL;
643   gchar *srcvar = NULL;
644
645   gtk_tree_model_get (acr_model, iter,
646                       SUMMARY_COL_VARNAME, &varname,
647                       SUMMARY_COL_VARLABEL, &label,
648                       SUMMARY_COL_FUNCIDX, &f_idx,
649                       SUMMARY_COL_SRCVAR, &srcvar,
650                       SUMMARY_COL_ARG1, &arg1,
651                       SUMMARY_COL_ARG2, &arg2,
652                       -1);
653
654   gtk_tree_model_iter_nth_child (combo_model, &combo_iter, NULL, f_idx);
655
656   gtk_tree_model_get (combo_model, &combo_iter,
657                       COMBO_MODEL_COL_SYNTAX, &funcname,
658                       COMBO_MODEL_COL_ARITY, &arity,
659                       COMBO_MODEL_COL_SRC_VARS, &has_src_vars,
660                       -1);
661
662   g_string_append (string, varname);
663
664   if (0 != strcmp ("", label))
665     {
666       struct string ss;
667       ds_init_empty (&ss);
668       syntax_gen_string (&ss, ss_cstr (label));
669       g_string_append (string, " ");
670       g_string_append (string, ds_cstr (&ss));
671       ds_destroy (&ss);
672     }
673     
674   g_string_append_printf (string, " = %s", funcname);
675
676   if ( has_src_vars != AGR_SV_NO)
677     {
678       struct string dss;
679       ds_init_cstr (&dss, " (");
680       
681       ds_put_cstr (&dss, srcvar);
682
683       if ( arity > 0)
684         ds_put_c_format (&dss, ", %g", arg1);
685
686       if ( arity > 1)
687         ds_put_c_format (&dss, ", %g", arg2);
688
689       ds_put_cstr (&dss, ")");
690
691       g_string_append (string, ds_cstr (&dss));
692
693       ds_destroy (&dss);
694     }
695
696    free (label);
697    free (srcvar);
698    free (varname);
699    free (funcname);
700 }
701
702
703
704 static void
705 append_summary_variable_syntax (const struct aggregate *agg,  GString *string)
706 {
707   GtkTreeIter iter;
708   GtkTreeModel *acr_model = GTK_TREE_MODEL (PSPPIRE_ACR (agg->summary_acr)->list_store);
709
710
711   gboolean ok;
712
713   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (acr_model), &iter);
714        ok ;
715        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (acr_model), &iter)
716        )
717     {
718       g_string_append (string, "\n\t/");
719
720       append_summary_spec (agg, &iter, string);
721     }
722 }
723
724
725 static char *
726 generate_syntax (const struct aggregate *agg)
727 {
728   gchar *text;
729
730   GString *string = g_string_new ("AGGREGATE OUTFILE=");
731
732   append_destination_filename (agg, string);
733
734   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (agg->sorted_button)))
735     g_string_append (string, "\n\t/PRESORTED");
736
737   g_string_append (string, "\n\t/BREAK=");
738
739   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (agg->break_variables), 0, string);
740
741   append_summary_variable_syntax (agg, string);
742
743   g_string_append (string, ".\n");
744
745   text = string->str;
746
747   g_string_free (string, FALSE);
748
749   return text;
750 }