1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2004, 2005, 2006, 2009, 2010, 2011, 2012, 2013, 2014, 2016 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/any-reader.h"
26 #include "data/casereader.h"
27 #include "data/dataset.h"
28 #include "data/datasheet.h"
29 #include "data/file-handle-def.h"
30 #include "data/session.h"
31 #include "data/settings.h"
33 #include "language/lexer/lexer.h"
34 #include "libpspp/i18n.h"
35 #include "libpspp/message.h"
36 #include "libpspp/version.h"
38 #include "output/driver.h"
39 #include "output/journal.h"
40 #include "output/message-item.h"
42 #include "ui/gui/dict-display.h"
43 #include "ui/gui/executor.h"
44 #include "ui/gui/psppire-data-store.h"
45 #include "ui/gui/psppire-data-window.h"
46 #include "ui/gui/psppire-dict.h"
47 #include "ui/gui/psppire.h"
48 #include "ui/gui/psppire-output-window.h"
49 #include "ui/gui/psppire-syntax-window.h"
50 #include "ui/gui/psppire-selector.h"
51 #include "ui/gui/psppire-var-view.h"
52 #include "ui/gui/psppire-means-layer.h"
53 #include "ui/gui/psppire-window-register.h"
54 #include "ui/gui/widgets.h"
55 #include "ui/source-init-opts.h"
56 #include "ui/syntax-gen.h"
59 #include "gl/configmake.h"
60 #include "gl/xalloc.h"
61 #include "gl/relocatable.h"
63 void create_icon_factory (void);
65 #define _(msgid) gettext (msgid)
66 #define N_(msgid) msgid
69 register_selection_functions (void)
71 psppire_selector_set_default_selection_func (GTK_TYPE_ENTRY, insert_source_row_into_entry);
72 psppire_selector_set_default_selection_func (PSPPIRE_VAR_VIEW_TYPE, insert_source_row_into_tree_view);
73 psppire_selector_set_default_selection_func (GTK_TYPE_TREE_VIEW, insert_source_row_into_tree_view);
74 psppire_selector_set_default_selection_func (PSPPIRE_TYPE_MEANS_LAYER, insert_source_row_into_layers);
78 initialize (const struct init_source *is)
86 preregister_widgets ();
89 gsl_set_error_handler_off ();
92 output_engine_push ();
101 psppire_set_lexer (NULL);
104 bind_textdomain_codeset (PACKAGE, "UTF-8");
107 if ( ! gtk_parse_args (is->argc, is->argv) )
109 perror ("Error parsing arguments");
117 textdomain (PACKAGE);
131 output_engine_pop ();
136 psppire_quit (GApplication *app)
138 g_application_quit (app);
143 int resolution; /* The dimension of the images which will be used */
144 size_t n_sizes; /* The number of items in the array below. */
145 const GtkIconSize *usage; /* An array determining for what the icon set is used */
149 handle_msg (const struct msg *m_, void *lexer_)
151 struct lexer *lexer = lexer_;
154 if (lexer != NULL && m.file_name == NULL)
156 m.file_name = CONST_CAST (char *, lex_get_file_name (lexer));
157 m.first_line = lex_get_first_line_number (lexer, 0);
158 m.last_line = lex_get_last_line_number (lexer, 0);
159 m.first_column = lex_get_first_column (lexer, 0);
160 m.last_column = lex_get_last_column (lexer, 0);
162 m.command_name = output_get_command_name ();
164 message_item_submit (message_item_create (&m));
166 free (m.command_name);
170 psppire_set_lexer (struct lexer *lexer)
172 msg_set_handler (handle_msg, lexer);
177 psppire_preload_file (const gchar *file)
179 const gchar *local_encoding = "UTF-8";
181 struct file_handle *fh = fh_create_file (NULL,
184 fh_default_properties ());
185 const char *filename = fh_get_file_name (fh);
187 int retval = any_reader_detect (fh, NULL);
190 /* Check to see if the file is a .sav or a .por file. If not
191 assume that it is a syntax file */
193 w = open_data_window (NULL, filename, NULL, NULL);
194 else if (retval == 0)
196 create_data_window ();
197 w = open_syntax_window (filename, NULL);