1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2004, 2005, 2006, 2009, 2010, 2011 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/>. */
20 #include <gsl/gsl_errno.h>
25 #include "data/casereader.h"
26 #include "data/dataset.h"
27 #include "data/datasheet.h"
28 #include "data/file-handle-def.h"
29 #include "data/file-name.h"
30 #include "data/por-file-reader.h"
31 #include "data/settings.h"
32 #include "data/sys-file-reader.h"
34 #include "language/lexer/lexer.h"
35 #include "libpspp/i18n.h"
36 #include "libpspp/message.h"
37 #include "libpspp/version.h"
39 #include "output/driver.h"
40 #include "output/journal.h"
41 #include "output/message-item.h"
43 #include "ui/gui/dict-display.h"
44 #include "ui/gui/executor.h"
45 #include "ui/gui/psppire-data-store.h"
46 #include "ui/gui/psppire-data-window.h"
47 #include "ui/gui/psppire-dict.h"
48 #include "ui/gui/psppire-output-window.h"
49 #include "ui/gui/psppire-selector.h"
50 #include "ui/gui/psppire-var-store.h"
51 #include "ui/gui/psppire-var-view.h"
52 #include "ui/gui/psppire-window-register.h"
53 #include "ui/gui/psppire.h"
54 #include "ui/gui/widgets.h"
55 #include "ui/source-init-opts.h"
56 #include "ui/syntax-gen.h"
58 #include "gl/configmake.h"
59 #include "gl/xalloc.h"
60 #include "gl/relocatable.h"
62 GtkRecentManager *the_recent_mgr = 0;
63 PsppireDataStore *the_data_store = 0;
64 PsppireVarStore *the_var_store = 0;
66 static void create_icon_factory (void);
68 struct dataset * the_dataset = NULL;
70 static GtkWidget *the_data_window;
72 static void load_data_file (const char *);
75 replace_casereader (struct casereader *s)
77 psppire_data_store_set_reader (the_data_store, s);
80 #define _(msgid) gettext (msgid)
81 #define N_(msgid) msgid
87 initialize (const char *data_file)
89 PsppireDict *dictionary = 0;
93 preregister_widgets ();
95 gsl_set_error_handler_off ();
99 the_dataset = dataset_create ();
100 psppire_set_lexer (NULL);
102 dictionary = psppire_dict_new_from_dict (dataset_dict (the_dataset));
104 bind_textdomain_codeset (PACKAGE, "UTF-8");
106 /* Create the model for the var_sheet */
107 the_var_store = psppire_var_store_new (dictionary);
109 the_data_store = psppire_data_store_new (dictionary);
110 replace_casereader (NULL);
112 create_icon_factory ();
114 psppire_output_window_setup ();
117 textdomain (PACKAGE);
120 the_recent_mgr = gtk_recent_manager_get_default ();
122 psppire_selector_set_default_selection_func (GTK_TYPE_ENTRY, insert_source_row_into_entry);
123 psppire_selector_set_default_selection_func (PSPPIRE_VAR_VIEW_TYPE, insert_source_row_into_tree_view);
124 psppire_selector_set_default_selection_func (GTK_TYPE_TREE_VIEW, insert_source_row_into_tree_view);
126 the_data_window = psppire_data_window_new ();
127 if (data_file != NULL)
128 load_data_file (data_file);
130 execute_const_syntax_string (PSPPIRE_DATA_WINDOW (the_data_window), "");
132 gtk_widget_show (the_data_window);
145 psppire_default_data_window (void)
147 return PSPPIRE_DATA_WINDOW (the_data_window);
151 func (gpointer key, gpointer value, gpointer data)
154 PsppireWindow *window = PSPPIRE_WINDOW (value);
156 g_signal_emit_by_name (window, "delete-event", 0, &rv);
162 PsppireWindowRegister *reg = psppire_window_register_new ();
163 psppire_window_register_foreach (reg, func, NULL);
171 const char *file_name;
176 static const struct icon_info icons[] =
178 {PKGDATADIR "/value-labels.png", "pspp-value-labels"},
179 {PKGDATADIR "/weight-cases.png", "pspp-weight-cases"},
180 {PKGDATADIR "/goto-variable.png", "pspp-goto-variable"},
181 {PKGDATADIR "/insert-variable.png", "pspp-insert-variable"},
182 {PKGDATADIR "/insert-case.png", "pspp-insert-case"},
183 {PKGDATADIR "/split-file.png", "pspp-split-file"},
184 {PKGDATADIR "/select-cases.png", "pspp-select-cases"},
185 {PKGDATADIR "/recent-dialogs.png", "pspp-recent-dialogs"},
186 {PKGDATADIR "/nominal.png", "var-nominal"},
187 {PKGDATADIR "/ordinal.png", "var-ordinal"},
188 {PKGDATADIR "/scale.png", "var-scale"},
189 {PKGDATADIR "/string.png", "var-string"},
190 {PKGDATADIR "/date-scale.png", "var-date-scale"}
194 create_icon_factory (void)
197 GtkIconFactory *factory = gtk_icon_factory_new ();
199 for (i = 0 ; i < sizeof (icons) / sizeof(icons[0]); ++i)
203 gdk_pixbuf_new_from_file (relocate (icons[i].file_name), &err);
207 GtkIconSet *icon_set = gtk_icon_set_new_from_pixbuf (pixbuf);
208 g_object_unref (pixbuf);
209 gtk_icon_factory_add ( factory, icons[i].id, icon_set);
213 g_warning ("Cannot create icon: %s", err->message);
214 g_clear_error (&err);
219 /* Create our own "pspp-stock-reset" item, using the
220 GTK_STOCK_REFRESH icon set */
222 GtkStockItem items[] = {
223 {"pspp-stock-reset", N_("_Reset"), 0, 0, PACKAGE},
224 {"pspp-stock-select", N_("_Select"), 0, 0, PACKAGE}
228 gtk_stock_add (items, 2);
229 gtk_icon_factory_add (factory, "pspp-stock-reset",
230 gtk_icon_factory_lookup_default (GTK_STOCK_REFRESH)
233 gtk_icon_factory_add (factory, "pspp-stock-select",
234 gtk_icon_factory_lookup_default (GTK_STOCK_INDEX)
238 gtk_icon_factory_add_default (factory);
242 load_data_file (const char *arg)
244 gchar *filename = NULL;
246 const gchar *local_encoding = NULL;
248 const gboolean local_is_utf8 = g_get_charset (&local_encoding);
250 /* There seems to be no Glib function to convert from local encoding
251 to filename encoding. Therefore it has to be done in two steps:
252 the intermediate encoding is UTF8.
254 Either step could fail. However, in many cases the file can still
255 be loaded even if the conversion fails. So in those cases, after showing
256 a warning, we simply copy the locally encoded filename to the destination
257 and hope for the best.
262 utf8 = xstrdup (arg);
267 utf8 = g_locale_to_utf8 (arg, -1, NULL, &written, &err);
270 g_warning ("Cannot convert filename from local encoding `%s' to UTF-8: %s",
273 g_clear_error (&err);
280 filename = g_filename_from_utf8 (utf8, written, NULL, NULL, &err);
281 if ( NULL == filename)
283 g_warning ("Cannot convert filename from UTF8 to filename encoding: %s",
285 g_clear_error (&err);
291 if ( filename == NULL)
292 filename = xstrdup (arg);
294 psppire_window_load (PSPPIRE_WINDOW (the_data_window), filename);
300 handle_msg (const struct msg *m_, void *lexer_)
302 struct lexer *lexer = lexer_;
305 if (lexer != NULL && m.file_name == NULL)
307 m.file_name = CONST_CAST (char *, lex_get_file_name (lexer));
308 m.first_line = lex_get_first_line_number (lexer, 0);
309 m.last_line = lex_get_last_line_number (lexer, 0);
310 m.first_column = lex_get_first_column (lexer, 0);
311 m.last_column = lex_get_last_column (lexer, 0);
314 message_item_submit (message_item_create (&m));
318 psppire_set_lexer (struct lexer *lexer)
320 msg_set_handler (handle_msg, lexer);