1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2004, 2005, 2006, 2010 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 "ui/gui/psppire.h"
24 #include "language/lexer/include-path.h"
25 #include "libpspp/argv-parser.h"
26 #include "libpspp/assertion.h"
27 #include "libpspp/cast.h"
28 #include "libpspp/copyleft.h"
29 #include "libpspp/str.h"
30 #include "libpspp/string-array.h"
31 #include "libpspp/version.h"
32 #include "ui/source-init-opts.h"
34 #include "gl/configmake.h"
35 #include "gl/progname.h"
36 #include "gl/relocatable.h"
37 #include "gl/version-etc.h"
38 #include "gl/xalloc.h"
41 #define _(msgid) gettext (msgid)
42 #define N_(msgid) msgid
45 /* Arguments to be interpreted before the X server gets initialised */
55 static const struct argv_option startup_options[N_STARTUP_OPTIONS] =
57 {"help", 'h', no_argument, OPT_HELP},
58 {"version", 'V', no_argument, OPT_VERSION},
59 {"no-splash", 'q', no_argument, OPT_NO_SPLASH}
65 char *inc_path = string_array_join (include_path_default (), " ");
66 GOptionGroup *gtk_options;
68 gchar *gtk_help_base, *gtk_help;
70 /* Get help text for GTK+ options. */
71 ctx = g_option_context_new ("psppire");
72 gtk_options = gtk_get_option_group (FALSE);
73 gtk_help_base = g_option_context_get_help (ctx, FALSE, gtk_options);
74 g_option_context_free (ctx);
76 /* The GTK+ help text starts with usage instructions that we don't want,
77 followed by a blank line. Trim off everything up to and including the
79 gtk_help = strstr (gtk_help_base, "\n\n");
80 gtk_help = gtk_help != NULL ? gtk_help + 2 : gtk_help_base;
83 PSPPIRE, a GUI for PSPP, a program for statistical analysis of sample data.\n\
84 Usage: %s [OPTION]... FILE\n\
86 Arguments to long options also apply to equivalent short options.\n\
89 -q, --no-splash don't show splash screen during startup\n\
93 -I, --include=DIR append DIR to search path\n\
94 -I-, --no-include clear search path\n\
95 -a, --algorithm={compatible|enhanced}\n\
96 set to `compatible' if you want output\n\
97 calculated from broken algorithms\n\
98 -x, --syntax={compatible|enhanced}\n\
99 set to `compatible' to disable PSPP extensions\n\
100 -i, --interactive interpret syntax in interactive mode\n\
101 -s, --safer don't allow some unsafe operations\n\
102 Default search path: %s\n\
104 Informative output:\n\
105 -h, --help display this help and exit\n\
106 -V, --version output version information and exit\n\
108 A non-option argument is interpreted as a .sav or .por file to load.\n"),
109 program_name, gtk_help, inc_path);
112 g_free (gtk_help_base);
114 emit_bug_reporting_address ();
119 startup_option_callback (int id, void *show_splash_)
121 gboolean *show_splash = show_splash_;
130 version_etc (stdout, "psppire", PACKAGE_NAME, PACKAGE_VERSION,
131 "Ben Pfaff", "John Darrington", "Jason Stover",
136 *show_splash = FALSE;
145 create_splash_window (void)
150 gtk_window_set_auto_startup_notification (FALSE);
152 splash = gtk_window_new (GTK_WINDOW_POPUP);
154 gtk_window_set_position (GTK_WINDOW (splash),
155 GTK_WIN_POS_CENTER_ALWAYS);
157 gtk_window_set_type_hint (GTK_WINDOW (splash),
158 GDK_WINDOW_TYPE_HINT_SPLASHSCREEN);
160 image = gtk_image_new_from_file (relocate (PKGDATADIR "/splash.png"));
162 gtk_container_add (GTK_CONTAINER (splash), image);
164 gtk_widget_show (image);
170 hide_splash_window (gpointer data)
172 GtkWidget *splash = data;
173 gtk_widget_destroy (splash);
174 gtk_window_set_auto_startup_notification (TRUE);
180 quit_one_loop (gpointer data)
186 struct initialisation_parameters
188 const char *data_file;
189 GtkWidget *splash_window;
194 run_inner_loop (gpointer data)
196 struct initialisation_parameters *ip = data;
197 initialize (ip->data_file);
199 g_timeout_add (500, hide_splash_window, ip->splash_window);
209 static GMemVTable vtable =
220 main (int argc, char *argv[])
222 struct initialisation_parameters init_p;
223 gboolean show_splash = TRUE;
224 struct argv_parser *parser;
227 set_program_name (argv[0]);
229 g_mem_set_vtable (&vtable);
231 gtk_disable_setlocale ();
234 if ( ! gtk_parse_args (&argc, &argv) )
236 perror ("Error parsing arguments");
240 if ( (vers = gtk_check_version (GTK_MAJOR_VERSION,
242 GTK_MICRO_VERSION)) )
244 g_warning ("%s", vers);
248 /* Parse our own options.
249 This must come BEFORE gdk_init otherwise options such as
250 --help --version which ought to work without an X server, won't.
252 parser = argv_parser_create ();
253 argv_parser_add_options (parser, startup_options, N_STARTUP_OPTIONS,
254 startup_option_callback, &show_splash);
255 source_init_register_argv_parser (parser);
256 if (!argv_parser_run (parser, argc, argv))
258 argv_parser_destroy (parser);
260 /* Initialise GDK. Theoretically this call can remove options from argc,argv if
261 it thinks they are gdk options.
262 However there shouldn't be any here because of the gtk_parse_args call above. */
263 gdk_init (&argc, &argv);
265 init_p.splash_window = create_splash_window ();
266 init_p.data_file = optind < argc ? argv[optind] : NULL;
269 gtk_widget_show (init_p.splash_window);
271 g_idle_add (quit_one_loop, 0);
273 gtk_quit_add (0, run_inner_loop, &init_p);