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 */
54 on_target_change (GObject *obj, const struct compute_dialog *cd)
56 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
57 GtkWidget *type_and_label = get_widget_assert (cd->xml, "compute-button1");
59 const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (target));
60 gboolean valid = var_name && strcmp ("", var_name);
62 gtk_widget_set_sensitive (type_and_label, valid);
66 refresh (GObject *obj, const struct compute_dialog *cd)
68 GtkTextIter start, end;
69 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
70 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
71 GtkWidget *varlist = get_widget_assert (cd->xml, "compute-treeview1");
72 GtkWidget *funclist = get_widget_assert (cd->xml, "compute-treeview2");
74 GtkTextBuffer *buffer =
75 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
77 GtkTreeSelection *selection;
80 /* Clear the target variable entry box */
81 gtk_entry_set_text (GTK_ENTRY (target), "");
82 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);
91 /* Unselect all items in the treeview */
92 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (varlist));
93 gtk_tree_selection_unselect_all (selection);
95 /* And the other one */
96 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (funclist));
97 gtk_tree_selection_unselect_all (selection);
102 erase_selection (GtkTextBuffer *buffer)
104 GtkTextIter start, end;
106 gtk_text_buffer_get_selection_bounds (buffer, &start, &end);
108 gtk_text_buffer_delete (buffer, &start, &end);
114 on_keypad_button (PsppireKeypad *kp, const gchar *syntax, gpointer data)
116 GladeXML *xml = data;
118 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
120 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
122 erase_selection (buffer);
124 gtk_text_buffer_insert_at_cursor (buffer, syntax, strlen (syntax));
126 if (0 == strcmp (syntax, "()"))
129 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
130 gtk_text_buffer_get_iter_at_mark (buffer, &iter, cursor);
131 gtk_text_iter_backward_cursor_position (&iter);
132 gtk_text_buffer_move_mark (buffer, cursor, &iter);
138 erase (PsppireKeypad *kp, gpointer data)
140 GladeXML *xml = data;
142 GtkWidget *rhs = get_widget_assert (xml, "compute-textview1");
144 GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (rhs));
146 erase_selection (buffer);
150 generate_syntax (const struct compute_dialog *cd)
154 GtkTextIter start, end;
155 GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
156 GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
158 GtkTextBuffer *buffer =
159 gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
161 gtk_text_buffer_get_start_iter (buffer, &start);
162 gtk_text_buffer_get_end_iter (buffer, &end);
165 string = g_string_new ("COMPUTE ");
167 g_string_append (string, gtk_entry_get_text (GTK_ENTRY (target)));
169 g_string_append (string, " = ");
171 g_string_append (string,
172 gtk_text_buffer_get_text (buffer, &start, &end, FALSE));
174 g_string_append (string, ".");
178 g_string_free (string, FALSE);
184 /* Pops up the Compute dialog box */
186 compute_dialog (GObject *o, gpointer data)
189 struct data_editor *de = data;
192 struct compute_dialog scd;
194 GladeXML *xml = XML_NEW ("psppire.glade");
196 GtkWidget *dialog = get_widget_assert (xml, "compute-variable-dialog");
198 GtkWidget *dict_view = get_widget_assert (xml, "compute-treeview1");
199 GtkWidget *functions = get_widget_assert (xml, "compute-treeview2");
200 GtkWidget *keypad = get_widget_assert (xml, "psppire-keypad1");
201 GtkWidget *target = get_widget_assert (xml, "compute-entry1");
202 GtkWidget *syntax_area = get_widget_assert (xml, "compute-textview1");
203 GtkWidget *var_selector = get_widget_assert (xml, "compute-selector1");
204 GtkWidget *func_selector = get_widget_assert (xml, "compute-selector2");
206 GtkSheet *var_sheet =
207 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
209 vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
212 gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
215 attach_dictionary_to_treeview (GTK_TREE_VIEW (dict_view),
217 GTK_SELECTION_SINGLE, NULL);
220 psppire_selector_set_subjects (PSPPIRE_SELECTOR (var_selector),
221 dict_view, syntax_area,
222 insert_source_row_into_text_view,
226 function_list_populate (GTK_TREE_VIEW (functions));
228 psppire_selector_set_subjects (PSPPIRE_SELECTOR (func_selector),
229 functions, syntax_area,
230 insert_function_into_syntax_area,
236 g_signal_connect (target, "changed", G_CALLBACK (on_target_change), &scd);
238 g_signal_connect (dialog, "refresh", G_CALLBACK (refresh), &scd);
240 g_signal_connect (keypad, "insert-syntax",
241 G_CALLBACK (on_keypad_button), xml);
243 g_signal_connect (keypad, "erase",
244 G_CALLBACK (erase), xml);
247 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
252 case GTK_RESPONSE_OK:
254 gchar *syntax = generate_syntax (&scd);
255 struct getl_interface *sss = create_syntax_string_source (syntax);
256 execute_syntax (sss);
261 case PSPPIRE_RESPONSE_PASTE:
263 gchar *syntax = generate_syntax (&scd);
265 struct syntax_editor *se =
266 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
268 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
277 g_object_unref (xml);
289 function_list_populate (GtkTreeView *tv)
291 GtkListStore *liststore;
295 const gint n_funcs = expr_get_function_cnt ();
297 liststore = gtk_list_store_new (3, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT);
299 for (i = 0 ; i < n_funcs ; ++i)
301 const struct operation *op = expr_get_function (i);
303 gtk_list_store_append (liststore, &iter);
305 gtk_list_store_set (liststore, &iter,
306 COL_NAME, expr_operation_get_name (op),
307 COL_USAGE, expr_operation_get_prototype (op),
308 COL_ARITY, expr_operation_get_arg_cnt (op),
314 /* Set the cell rendering */
317 GtkTreeViewColumn *col;
318 GtkCellRenderer *renderer;
321 col = gtk_tree_view_column_new ();
323 gtk_tree_view_append_column (tv, col);
325 renderer = gtk_cell_renderer_text_new ();
327 gtk_tree_view_column_pack_start (col, renderer, TRUE);
329 gtk_tree_view_column_add_attribute (col, renderer, "text", COL_USAGE);
332 gtk_tree_view_set_model (tv, GTK_TREE_MODEL (liststore));
339 insert_function_into_syntax_area (GtkTreeIter iter,
340 GtkWidget *text_view,
345 GValue name_value = {0};
346 GValue arity_value = {0};
350 GtkTextBuffer *buffer ;
352 g_return_if_fail (GTK_IS_TEXT_VIEW (text_view));
354 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view));
356 gtk_tree_model_get_value (model, &iter, COL_NAME, &name_value);
357 gtk_tree_model_get_value (model, &iter, COL_ARITY, &arity_value);
359 arity = g_value_get_int (&arity_value);
361 string = g_string_new (g_value_get_string (&name_value));
363 g_string_append (string, "(");
364 for ( i = 0 ; i < arity -1 ; ++i )
366 g_string_append (string, "?,");
368 g_string_append (string, "?)");
371 erase_selection (buffer);
373 gtk_text_buffer_insert_at_cursor (buffer, string->str, string->len);
375 g_value_unset (&name_value);
376 g_value_unset (&arity_value);
377 g_string_free (string, TRUE);
379 /* Now position the cursor over the first '?' */
382 GtkTextIter selectbound;
383 GtkTextMark *cursor = gtk_text_buffer_get_insert (buffer);
384 gtk_text_buffer_get_iter_at_mark (buffer, &insert, cursor);
385 for ( i = 0 ; i < arity ; ++i )
387 gtk_text_iter_backward_cursor_position (&insert);
388 gtk_text_iter_backward_cursor_position (&insert);
390 selectbound = insert;
391 gtk_text_iter_forward_cursor_position (&selectbound);
393 gtk_text_buffer_select_range (buffer, &insert, &selectbound);
398 /* Inserts the name of the selected variable into the destination widget.
399 The destination widget must be a GtkTextView
402 insert_source_row_into_text_view (GtkTreeIter iter,
410 struct variable *var;
411 GtkTreeIter dict_iter;
413 GtkTextBuffer *buffer;
415 g_return_if_fail (GTK_IS_TEXT_VIEW (dest));
417 if ( GTK_IS_TREE_MODEL_FILTER (model))
419 dict = PSPPIRE_DICT (gtk_tree_model_filter_get_model
420 (GTK_TREE_MODEL_FILTER(model)));
422 gtk_tree_model_filter_convert_iter_to_child_iter (GTK_TREE_MODEL_FILTER
428 dict = PSPPIRE_DICT (model);
432 path = gtk_tree_model_get_path (GTK_TREE_MODEL (dict), &dict_iter);
434 idx = gtk_tree_path_get_indices (path);
436 var = psppire_dict_get_variable (dict, *idx);
438 gtk_tree_path_free (path);
440 name = pspp_locale_to_utf8 (var_get_name (var), -1, NULL);
442 buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (dest));
444 erase_selection (buffer);
446 gtk_text_buffer_insert_at_cursor (buffer, name, -1);