Filter file choosers by mimetype instead of file name
[pspp-builds.git] / src / ui / gui / main.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2004, 2005, 2006, 2010, 2011  Free Software Foundation
3
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.
8
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.
13
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/>. */
16
17 #include <config.h>
18
19 #include "ui/gui/psppire.h"
20
21 #include <gtk/gtk.h>
22 #include <stdlib.h>
23
24 #include "language/lexer/include-path.h"
25 #include "libpspp/argv-parser.h"
26 #include "libpspp/array.h"
27 #include "libpspp/assertion.h"
28 #include "libpspp/cast.h"
29 #include "libpspp/copyleft.h"
30 #include "libpspp/str.h"
31 #include "libpspp/string-array.h"
32 #include "libpspp/version.h"
33 #include "ui/source-init-opts.h"
34
35 #include "gl/configmake.h"
36 #include "gl/progname.h"
37 #include "gl/relocatable.h"
38 #include "gl/version-etc.h"
39 #include "gl/xalloc.h"
40
41 #include "gettext.h"
42 #define _(msgid) gettext (msgid)
43 #define N_(msgid) msgid
44
45 \f
46 /* Arguments to be interpreted before the X server gets initialised */
47
48 enum
49   {
50     OPT_HELP,
51     OPT_VERSION,
52     OPT_NO_SPLASH,
53     N_STARTUP_OPTIONS
54   };
55
56 static const struct argv_option startup_options[N_STARTUP_OPTIONS] =
57   {
58     {"help",      'h', no_argument, OPT_HELP},
59     {"version",   'V', no_argument, OPT_VERSION},
60     {"no-splash", 'q', no_argument, OPT_NO_SPLASH}
61   };
62
63 static void
64 usage (void)
65 {
66   char *inc_path = string_array_join (include_path_default (), " ");
67   GOptionGroup *gtk_options;
68   GOptionContext *ctx;
69   gchar *gtk_help_base, *gtk_help;
70
71   /* Get help text for GTK+ options.  */
72   ctx = g_option_context_new ("psppire");
73   gtk_options = gtk_get_option_group (FALSE);
74   gtk_help_base = g_option_context_get_help (ctx, FALSE, gtk_options);
75   g_option_context_free (ctx);
76
77   /* The GTK+ help text starts with usage instructions that we don't want,
78      followed by a blank line.  Trim off everything up to and including the
79      first blank line. */
80   gtk_help = strstr (gtk_help_base, "\n\n");
81   gtk_help = gtk_help != NULL ? gtk_help + 2 : gtk_help_base;
82
83   printf (_("\
84 PSPPIRE, a GUI for PSPP, a program for statistical analysis of sample data.\n\
85 Usage: %s [OPTION]... FILE\n\
86 \n\
87 Arguments to long options also apply to equivalent short options.\n\
88 \n\
89 GUI options:\n\
90   -q, --no-splash           don't show splash screen during startup\n\
91 \n\
92 %s\
93 Language options:\n\
94   -I, --include=DIR         append DIR to search path\n\
95   -I-, --no-include         clear search path\n\
96   -a, --algorithm={compatible|enhanced}\n\
97                             set to `compatible' if you want output\n\
98                             calculated from broken algorithms\n\
99   -x, --syntax={compatible|enhanced}\n\
100                             set to `compatible' to disable PSPP extensions\n\
101   -i, --interactive         interpret syntax in interactive mode\n\
102   -s, --safer               don't allow some unsafe operations\n\
103 Default search path: %s\n\
104 \n\
105 Informative output:\n\
106   -h, --help                display this help and exit\n\
107   -V, --version             output version information and exit\n\
108 \n\
109 A non-option argument is interpreted as a .sav or .por file to load.\n"),
110           program_name, gtk_help, inc_path);
111
112   free (inc_path);
113   g_free (gtk_help_base);
114
115   emit_bug_reporting_address ();
116   exit (EXIT_SUCCESS);
117 }
118
119 static void
120 startup_option_callback (int id, void *show_splash_)
121 {
122   gboolean *show_splash = show_splash_;
123
124   switch (id)
125     {
126     case OPT_HELP:
127       usage ();
128       break;
129
130     case OPT_VERSION:
131       version_etc (stdout, "psppire", PACKAGE_NAME, PACKAGE_VERSION,
132                    "Ben Pfaff", "John Darrington", "Jason Stover",
133                    NULL_SENTINEL);
134       exit (EXIT_SUCCESS);
135
136     case OPT_NO_SPLASH:
137       *show_splash = FALSE;
138       break;
139
140     default:
141       NOT_REACHED ();
142     }
143 }
144 \f
145 static GtkWidget *
146 create_splash_window (void)
147 {
148   GtkWidget *splash ;
149   GtkWidget *image;
150
151   gtk_window_set_auto_startup_notification (FALSE);
152
153   splash = gtk_window_new (GTK_WINDOW_POPUP);
154
155   gtk_window_set_position (GTK_WINDOW (splash),
156                            GTK_WIN_POS_CENTER_ALWAYS);
157
158   gtk_window_set_type_hint (GTK_WINDOW (splash),
159                             GDK_WINDOW_TYPE_HINT_SPLASHSCREEN);
160
161   image = gtk_image_new_from_file (relocate (PKGDATADIR "/splash.png"));
162
163   gtk_container_add (GTK_CONTAINER (splash), image);
164
165   gtk_widget_show (image);
166
167   return splash;
168 }
169
170 static gboolean
171 hide_splash_window (gpointer data)
172 {
173   GtkWidget *splash = data;
174   gtk_widget_destroy (splash);
175   gtk_window_set_auto_startup_notification (TRUE);
176   return FALSE;
177 }
178
179
180 static gboolean
181 quit_one_loop (gpointer data)
182 {
183   gtk_main_quit ();
184   return FALSE;
185 }
186
187 struct initialisation_parameters
188 {
189   const char *data_file;
190   GtkWidget *splash_window;
191 };
192
193
194 static gboolean
195 run_inner_loop (gpointer data)
196 {
197   struct initialisation_parameters *ip = data;
198   initialize (ip->data_file);
199
200   g_timeout_add (500, hide_splash_window, ip->splash_window);
201
202   gtk_main ();
203
204   de_initialize ();
205
206   return FALSE;
207 }
208
209
210 static GMemVTable vtable =
211   {
212     xmalloc,
213     xrealloc,
214     free,
215     xcalloc,
216     malloc,
217     realloc
218   };
219
220 #ifdef __APPLE__
221 /* Searches ARGV for the -psn_xxxx option that the desktop application
222    launcher passes in, and removes it if it finds it.  Returns the new value
223    of ARGC. */
224 static int
225 remove_psn (int argc, char **argv)
226 {
227   int i;
228
229   for (i = 0; i < argc; i++)
230     {
231       if (!strncmp(argv[i], "-psn", 4))
232         {
233           remove_element (argv, argc + 1, sizeof *argv, i);
234           return argc - 1;
235         }
236     }
237   return argc;
238 }
239 #endif  /* __APPLE__ */
240
241 int
242 main (int argc, char *argv[])
243 {
244   struct initialisation_parameters init_p;
245   gboolean show_splash = TRUE;
246   struct argv_parser *parser;
247   const gchar *vers;
248
249   set_program_name (argv[0]);
250
251   g_mem_set_vtable (&vtable);
252
253   gtk_disable_setlocale ();
254
255
256   if ( ! gtk_parse_args (&argc, &argv) )
257     {
258       perror ("Error parsing arguments");
259       exit (1);
260     }
261
262   if ( (vers = gtk_check_version (GTK_MAJOR_VERSION,
263                                  GTK_MINOR_VERSION,
264                                  GTK_MICRO_VERSION)) )
265     {
266       g_warning ("%s", vers);
267     }
268
269 #ifdef __APPLE__
270   argc = remove_psn (argc, argv);
271 #endif
272
273   /* Parse our own options. 
274      This must come BEFORE gdk_init otherwise options such as 
275      --help --version which ought to work without an X server, won't.
276   */
277   parser = argv_parser_create ();
278   argv_parser_add_options (parser, startup_options, N_STARTUP_OPTIONS,
279                            startup_option_callback, &show_splash);
280   source_init_register_argv_parser (parser);
281   if (!argv_parser_run (parser, argc, argv))
282     exit (EXIT_FAILURE);
283   argv_parser_destroy (parser);
284
285   /* Initialise GDK.  Theoretically this call can remove options from argc,argv if
286      it thinks they are gdk options.
287      However there shouldn't be any here because of the gtk_parse_args call above. */
288   gdk_init (&argc, &argv);
289
290   init_p.splash_window = create_splash_window ();
291   init_p.data_file = optind < argc ? argv[optind] : NULL;
292
293   if ( show_splash )
294     gtk_widget_show (init_p.splash_window);
295
296   g_idle_add (quit_one_loop, 0);
297
298   gtk_quit_add (0, run_inner_loop, &init_p);
299   gtk_main ();
300
301   return 0;
302 }