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