pintos-os.org Git - pspp/blob - src/ui/gui/aggregate-dialog.c

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