1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007 Free Software Foundation
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.
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.
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/>. */
19 #include "compute-dialog.h"
21 #include "psppire-dialog.h"
22 #include "psppire-keypad.h"
23 #include "data-editor.h"
24 #include <gtksheet/gtksheet.h>
25 #include "psppire-var-store.h"
26 #include "dialog-common.h"
27 #include "dict-display.h"
29 #include <language/expressions/public.h>
30 #include <language/syntax-string-source.h>
31 #include "syntax-editor.h"
33 static void function_list_populate (GtkTreeView *tv);
35 static void insert_function_into_syntax_area (GtkTreeIter iter,
40 static void insert_source_row_into_text_view (GtkTreeIter iter,
49 GladeXML *xml; /* The xml that generated the widgets */
56 on_target_change (GObject *obj, struct compute_dialog *cd)
58 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
59 GtkWidget *type_and_label = get_widget_assert (cd->xml, "compute-button1");
61 const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (target));
62 gboolean valid = var_name && strcmp ("", var_name);
64 gtk_widget_set_sensitive (type_and_label, valid);
68 refresh (GObject *obj, const struct compute_dialog *cd)
70 GtkTextIter start, end;
71 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
72 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
73 GtkWidget *varlist = get_widget_assert (cd->xml, "compute-treeview1");
74 GtkWidget *funclist = get_widget_assert (cd->xml, "compute-treeview2");
76 GtkTextBuffer *buffer =
77 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
79 GtkTreeSelection *selection;
81 /* Clear the target variable entry box */
82 gtk_entry_set_text (GTK_ENTRY (target), "");
83 g_signal_emit_by_name (target, "changed");
85 /* Clear the syntax area textbuffer */
86 gtk_text_buffer_get_start_iter (buffer, &start);
87 gtk_text_buffer_get_end_iter (buffer, &end);
88 gtk_text_buffer_delete (buffer, &start, &end);
90 /* Unselect all items in the treeview */
91 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (varlist));
92 gtk_tree_selection_unselect_all (selection);
94 /* And the other one */
95 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (funclist));
96 gtk_tree_selection_unselect_all (selection);
101 erase_selection (GtkTextBuffer *buffer)
103 GtkTextIter start, end;
105 gtk_text_buffer_get_selection_bounds (buffer, &start, &end);
107 gtk_text_buffer_delete (buffer, &start, &end);
113 on_keypad_button (PsppireKeypad *kp, const gchar *syntax, gpointer data)
115 GladeXML *xml = data;
117 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
119 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
121 erase_selection (buffer);
123 gtk_text_buffer_insert_at_cursor (buffer, syntax, strlen (syntax));
125 if (0 == strcmp (syntax, "()"))
128 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
129 gtk_text_buffer_get_iter_at_mark (buffer, &iter, cursor);
130 gtk_text_iter_backward_cursor_position (&iter);
131 gtk_text_buffer_move_mark (buffer, cursor, &iter);
137 erase (PsppireKeypad *kp, gpointer data)
139 GladeXML *xml = data;
141 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
143 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
145 erase_selection (buffer);
149 generate_syntax (const struct compute_dialog *cd)
153 const gchar *target_name ;
154 const gchar *expression;
156 GtkTextIter start, end;
157 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
158 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
159 GtkWidget *string_toggle = get_widget_assert (cd->xml, "radio-button-string");
160 GtkWidget *user_label_toggle =
161 get_widget_assert (cd->xml, "radio-button-user-label");
162 GtkWidget *width_entry = get_widget_assert (cd->xml, "type-and-label-width");
163 GtkWidget *label_entry = get_widget_assert (cd->xml,
164 "type-and-label-label-entry");
167 GtkTextBuffer *buffer =
168 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
170 gtk_text_buffer_get_start_iter (buffer, &start);
171 gtk_text_buffer_get_end_iter (buffer, &end);
173 target_name = gtk_entry_get_text (GTK_ENTRY (target));
175 expression = gtk_text_buffer_get_text (buffer, &start, &end, FALSE);
177 string = g_string_sized_new (64);
179 if ( cd-> use_type &&
180 NULL == psppire_dict_lookup_var (cd->dict, target_name ))
182 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (string_toggle)))
184 const char *w = gtk_entry_get_text (GTK_ENTRY(width_entry));
185 g_string_append_printf (string,
186 "STRING %s (a%s).\n", target_name, w);
189 g_string_append_printf (string, "NUMERIC %s.\n", target_name);
192 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (user_label_toggle)))
193 label = gtk_entry_get_text (GTK_ENTRY (label_entry));
197 if ( strlen (label) > 0 )
198 g_string_append_printf (string, "VARIABLE LABEL %s '%s'.\n",
202 g_string_append_printf (string, "COMPUTE %s = %s.\n",
207 g_string_append (string, "EXECUTE.\n");
211 g_string_free (string, FALSE);
217 reset_type_label_dialog (struct compute_dialog *cd)
219 const gchar *target_name;
220 struct variable *target_var;
222 GtkWidget *width_entry =
223 get_widget_assert (cd->xml, "type-and-label-width");
225 GtkWidget *label_entry =
226 get_widget_assert (cd->xml, "type-and-label-label-entry");
228 GtkWidget *numeric_target =
229 get_widget_assert (cd->xml, "radio-button-numeric");
231 GtkWidget *string_target =
232 get_widget_assert (cd->xml, "radio-button-string");
235 target_name = gtk_entry_get_text
236 (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1")));
239 if ( (target_var = psppire_dict_lookup_var (cd->dict, target_name)) )
241 /* Existing Variable */
243 GtkWidget *user_label =
244 get_widget_assert (cd->xml, "radio-button-user-label");
246 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (user_label), TRUE);
248 label = var_get_label (target_var);
252 gtk_entry_set_text (GTK_ENTRY (label_entry), label);
255 gtk_widget_set_sensitive (width_entry, FALSE);
257 if ( var_is_numeric (target_var))
258 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target),
261 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (string_target),
264 gtk_widget_set_sensitive (numeric_target, FALSE);
265 gtk_widget_set_sensitive (string_target, FALSE);
269 GtkWidget *expression =
270 get_widget_assert (cd->xml, "radio-button-expression-label");
272 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (expression), TRUE);
274 gtk_widget_set_sensitive (width_entry, TRUE);
275 gtk_widget_set_sensitive (numeric_target, TRUE);
276 gtk_widget_set_sensitive (string_target, TRUE);
278 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target),
285 run_type_label_dialog (GtkButton *b, gpointer data)
287 struct compute_dialog *cd = data;
290 GtkWidget *subdialog = get_widget_assert (cd->xml, "type-and-label-dialog");
291 GtkWidget *dialog = get_widget_assert (cd->xml, "compute-variable-dialog");
293 gtk_window_set_transient_for (GTK_WINDOW (subdialog), GTK_WINDOW (dialog));
295 reset_type_label_dialog (cd);
296 response = psppire_dialog_run (PSPPIRE_DIALOG (subdialog));
297 if ( response == PSPPIRE_RESPONSE_CONTINUE)
303 on_expression_toggle (GtkToggleButton *button, gpointer data)
305 struct compute_dialog *cd = data;
308 get_widget_assert (cd->xml, "type-and-label-label-entry");
310 if ( gtk_toggle_button_get_active (button))
312 gtk_entry_set_text (GTK_ENTRY (entry), "");
313 gtk_widget_set_sensitive (entry, FALSE);
318 struct variable *target_var;
319 const gchar *target_name = gtk_entry_get_text
320 (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1")));
322 target_var = psppire_dict_lookup_var (cd->dict, target_name);
323 label = var_get_label (target_var);
326 gtk_entry_set_text (GTK_ENTRY (entry), label);
328 gtk_widget_set_sensitive (entry, TRUE);
333 /* Return TRUE if the dialog box's widgets' state are such that clicking OK
334 might not result in erroneous syntax being generated */
336 contents_plausible (gpointer data)
338 struct compute_dialog *cd = data;
340 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
341 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
342 GtkTextBuffer *buffer =
343 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
345 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (target))))
348 if ( gtk_text_buffer_get_char_count (buffer) == 0 )
354 /* Pops up the Compute dialog box */
356 compute_dialog (GObject *o, gpointer data)
359 struct data_editor *de = data;
362 struct compute_dialog scd;
364 GladeXML *xml = XML_NEW ("psppire.glade");
366 GtkWidget *dialog = get_widget_assert (xml, "compute-variable-dialog");
368 GtkWidget *dict_view = get_widget_assert (xml, "compute-treeview1");
369 GtkWidget *functions = get_widget_assert (xml, "compute-treeview2");
370 GtkWidget *keypad = get_widget_assert (xml, "psppire-keypad1");
371 GtkWidget *target = get_widget_assert (xml, "compute-entry1");
372 GtkWidget *syntax_area = get_widget_assert (xml, "compute-textview1");
373 GtkWidget *var_selector = get_widget_assert (xml, "compute-selector1");
374 GtkWidget *func_selector = get_widget_assert (xml, "compute-selector2");
375 GtkWidget *type_and_label = get_widget_assert (xml, "compute-button1");
377 GtkWidget *expression =
378 get_widget_assert (xml, "radio-button-expression-label");
381 GtkSheet *var_sheet =
382 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
384 vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
388 scd.use_type = FALSE;
390 g_signal_connect (expression, "toggled",
391 G_CALLBACK(on_expression_toggle), &scd);
393 gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
396 attach_dictionary_to_treeview (GTK_TREE_VIEW (dict_view),
398 GTK_SELECTION_SINGLE, NULL);
401 psppire_selector_set_subjects (PSPPIRE_SELECTOR (var_selector),
402 dict_view, syntax_area,
403 insert_source_row_into_text_view,
407 function_list_populate (GTK_TREE_VIEW (functions));
409 psppire_selector_set_subjects (PSPPIRE_SELECTOR (func_selector),
410 functions, syntax_area,
411 insert_function_into_syntax_area,
417 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
418 contents_plausible, &scd);
420 g_signal_connect (target, "changed", G_CALLBACK (on_target_change), &scd);
422 g_signal_connect (dialog, "refresh", G_CALLBACK (refresh), &scd);
424 g_signal_connect (keypad, "insert-syntax",
425 G_CALLBACK (on_keypad_button), xml);
427 g_signal_connect (keypad, "erase",
428 G_CALLBACK (erase), xml);
431 g_signal_connect (type_and_label, "clicked",
432 G_CALLBACK (run_type_label_dialog), &scd);
436 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
441 case GTK_RESPONSE_OK:
443 gchar *syntax = generate_syntax (&scd);
444 struct getl_interface *sss = create_syntax_string_source (syntax);
445 execute_syntax (sss);
450 case PSPPIRE_RESPONSE_PASTE:
452 gchar *syntax = generate_syntax (&scd);
454 struct syntax_editor *se =
455 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
457 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
466 g_object_unref (xml);
478 function_list_populate (GtkTreeView *tv)
480 GtkListStore *liststore;
484 const gint n_funcs = expr_get_function_cnt ();
486 liststore = gtk_list_store_new (3, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT);
488 for (i = 0 ; i < n_funcs ; ++i)
490 const struct operation *op = expr_get_function (i);
492 gtk_list_store_append (liststore, &iter);
494 gtk_list_store_set (liststore, &iter,
495 COL_NAME, expr_operation_get_name (op),
496 COL_USAGE, expr_operation_get_prototype (op),
497 COL_ARITY, expr_operation_get_arg_cnt (op),
503 /* Set the cell rendering */
506 GtkTreeViewColumn *col;
507 GtkCellRenderer *renderer;
510 col = gtk_tree_view_column_new ();
512 gtk_tree_view_append_column (tv, col);
514 renderer = gtk_cell_renderer_text_new ();
516 gtk_tree_view_column_pack_start (col, renderer, TRUE);
518 gtk_tree_view_column_add_attribute (col, renderer, "text", COL_USAGE);
521 gtk_tree_view_set_model (tv, GTK_TREE_MODEL (liststore));
528 insert_function_into_syntax_area (GtkTreeIter iter,
529 GtkWidget *text_view,
534 GValue name_value = {0};
535 GValue arity_value = {0};
539 GtkTextBuffer *buffer ;
541 g_return_if_fail (GTK_IS_TEXT_VIEW (text_view));
543 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view));
545 gtk_tree_model_get_value (model, &iter, COL_NAME, &name_value);
546 gtk_tree_model_get_value (model, &iter, COL_ARITY, &arity_value);
548 arity = g_value_get_int (&arity_value);
550 string = g_string_new (g_value_get_string (&name_value));
552 g_string_append (string, "(");
553 for ( i = 0 ; i < arity -1 ; ++i )
555 g_string_append (string, "?,");
557 g_string_append (string, "?)");
560 erase_selection (buffer);
562 gtk_text_buffer_insert_at_cursor (buffer, string->str, string->len);
564 g_value_unset (&name_value);
565 g_value_unset (&arity_value);
566 g_string_free (string, TRUE);
568 /* Now position the cursor over the first '?' */
571 GtkTextIter selectbound;
572 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
573 gtk_text_buffer_get_iter_at_mark (buffer, &insert, cursor);
574 for ( i = 0 ; i < arity ; ++i )
576 gtk_text_iter_backward_cursor_position (&insert);
577 gtk_text_iter_backward_cursor_position (&insert);
579 selectbound = insert;
580 gtk_text_iter_forward_cursor_position (&selectbound);
582 gtk_text_buffer_select_range (buffer, &insert, &selectbound);
587 /* Inserts the name of the selected variable into the destination widget.
588 The destination widget must be a GtkTextView
591 insert_source_row_into_text_view (GtkTreeIter iter,
599 struct variable *var;
600 GtkTreeIter dict_iter;
602 GtkTextBuffer *buffer;
604 g_return_if_fail (GTK_IS_TEXT_VIEW (dest));
606 if ( GTK_IS_TREE_MODEL_FILTER (model))
608 dict = PSPPIRE_DICT (gtk_tree_model_filter_get_model
609 (GTK_TREE_MODEL_FILTER(model)));
611 gtk_tree_model_filter_convert_iter_to_child_iter (GTK_TREE_MODEL_FILTER
617 dict = PSPPIRE_DICT (model);
621 path = gtk_tree_model_get_path (GTK_TREE_MODEL (dict), &dict_iter);
623 idx = gtk_tree_path_get_indices (path);
625 var = psppire_dict_get_variable (dict, *idx);
627 gtk_tree_path_free (path);
629 name = pspp_locale_to_utf8 (var_get_name (var), -1, NULL);
631 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (dest));
633 erase_selection (buffer);
635 gtk_text_buffer_insert_at_cursor (buffer, name, -1);